'
'   �ͻ             �ͻ     �ͻ         �ͻ     �ͻ �ͻ �ͻ     �ͻ �ͻ �ͻ
'   �ͼ             �ͼ     �ͼ         �ͼ     �ͼ �ͼ �ͼ     �ͼ �ͼ �ͼ
'   �ͻ             �ͻ     �ͻ         �ͻ     �ͻ             �ͻ     �ͻ
'   �ͼ             �ͼ     �ͼ         �ͼ     �ͼ             �ͼ     �ͼ
'   �ͻ             �ͻ     �ͻ �ͻ     �ͻ     �ͻ             �ͻ     �ͻ
'   �ͼ             �ͼ     �ͼ �ͼ     �ͼ     �ͼ             �ͼ     �ͼ
'   �ͻ             �ͻ     �ͻ     �ͻ �ͻ     �ͻ     �ͻ     �ͻ     �ͻ
'   �ͼ             �ͼ     �ͼ     �ͼ �ͼ     �ͼ     �ͼ     �ͼ     �ͼ
'   �ͻ �ͻ �ͻ     �ͻ     �ͻ         �ͻ     �ͻ �ͻ �ͻ     �ͻ �ͻ �ͻ
'   �ͼ �ͼ �ͼ     �ͼ     �ͼ         �ͼ     �ͼ �ͼ �ͼ     �ͼ �ͼ �ͼ
'
'
'                          H E C H O   E N   R O N D A
'
'                                  F5: Empezar
'
'                           es.geocities.com/jm00092
'
'
'
DECLARE SUB reglas ()
DECLARE SUB ayuda ()
DECLARE FUNCTION MENUBOTONES! (h!, v!, largo!, alto!, distancia!, numero!, C!, cf!)
DECLARE SUB simbolos (tipo!, h!, v!, cs!)
DECLARE SUB letras (X!, Y!, TEXT$, escl!, clrs!, ang!, ancho!, relleno!)
DECLARE SUB texto (LV!, LH!, TEXT$, C!, cf!)
DECLARE SUB BOTON (h!, v!, l!, a!, sol!, sombra!, cara!, BORDE!)
DECLARE SUB windows95 (h1!, v1!, h2!, V2!, TITULO$)
DECLARE SUB CONSEGUIDO ()
DECLARE SUB ENTRADA ()
DECLARE SUB gracias ()
DECLARE SUB DICCIONARIO (a!, B!, C!, d!, e!)

RANDOMIZE TIMER
DIM memoria(1 TO 5900)
SCREEN 12
PALETTE 3, 63

    PEN ON                                         '
ON PEN GOSUB mouse                                 ' INSTALACI�N DEL RAT�N
                                                   '
    DIM Cuadro(1 TO 400)                          '
    x1 = 0: x2 = 10: y1 = 0: y2 = 10           '   SITUAR ESTA PARTE
                                                   '
    PSET (x2 - 1, y2 - 1), 15                    '
    DRAW "c15 h8 nr5 nd5"                          '
    PSET (x2, y2 - 1), 15                        '    AL PRINCIPIO DEL
    DRAW "c15 h8 nr5 nd5"                          '
    PSET (x2 - 1, y2), 15                        '
    DRAW "c15 h8 nr5 nd5"                          '
                                                   '
                                                   '     PROGRAMA BASIC
    GET (x1, y1)-(x2, y2), Cuadro             '
                                                   '------------------------
                                                   'ESCRIBIR AQU� LA ORDEN
                     PAINT (1, 1), 0               'PARA COLOREAR EL FONDO
                                                   'DE LA PANTALLA (PAINT)
                                                   '------------------------
                     CLR = 8   '<<-----------------'COMBIAL EL VALOR DE
                                                   'LA VARIABLE CLR POR
    PSET (x2 - 1, y2 - 1), CLR                   'EL COLOR CON QUE SE
    DRAW "c" + STR$(CLR) + " h8 nr5 nd5"           'PRESENTA EL PUNTERO
    PSET (x2, y2 - 1), CLR                       '
    DRAW " h8 nr5 nd5"                             '
    PSET (x2 - 1, y2), CLR                       '
    DRAW " h8 nr5 nd5"                             '

ENTRADA

 

CLS
windows95 24, 24, 592, 422, "LINGO"

letras 84, 104, "lingo", 36, 8, 0, 6, 1
letras 80, 100, "lingo", 36, 14, 0, 6, 1

letras 58, 413, "Hecho en ronda", 20, 8, 90, 4, 1
letras 573, 413, "Hecho en ronda", 20, 8, 90, 4, 1
letras 55, 410, "Hecho en ronda", 20, 3, 90, 4, 1
letras 570, 410, "Hecho en ronda", 20, 3, 90, 4, 1

BOTON 360, 385, 80, 25, 15, 8, 7, 0

letras 373, 400, "ESCAPE", 8, 0, 0, 2, 1

GET (50, 278)-(300, 460), memoria



'        300 332 364 396 428
'   103   .   .   .   .   .
'   135   .   .   .   .   .
'   167   .   .   .   .   .
'   199   .   .   .   .   .
'   231   .   .   .   .   .

inicio:
WHILE INKEY$ <> "": WEND
veces = veces + 1

BOTON 400, 300, 80, 30, 8, 15, 0, 7
BOTON 400, 340, 80, 30, 8, 15, 0, 7
letras 400, 320, STR$(puntos), 16, 10, 0, 3, 1
letras 400, 360, STR$(veces), 16, 13, 0, 3, 1
letras 305, 318, "PUNTOS", 12, 0, 0, 3, 1
letras 315, 358, "JUEGOS", 12, 0, 0, 3, 1



PUT (50, 278), memoria, PSET


BOTON 294, 97, 170, 170, 15, 4, 3, 0

FOR hor = 300 TO 450 STEP 32
FOR ver = 103 TO 250 STEP 32
BOTON hor, ver, 31, 31, 9, 0, 1, 3
NEXT
NEXT





 DICCIONARIO a, B, C, d, e

 


SELECT CASE INT(RND * 5) + 1
CASE 1: p = 40: PISTA$ = CHR$(a)
CASE 2: p = 44: PISTA$ = CHR$(B)
CASE 3: p = 48: PISTA$ = CHR$(C)
CASE 4: p = 52: PISTA$ = CHR$(d)
CASE 5: p = 56: PISTA$ = CHR$(e)
END SELECT
 


 
lc = 8
juego:
 
BOTON 360, 385, 80, 25, 15, 8, 16, 0

FOR hhh = 348 TO 450 STEP 32
LINE (hhh, (((lc - 1) * 16) + 12))-STEP(1, 1), 15, BF
NEXT

texto lc, 40, "_", 15, 1
texto lc, p, PISTA$, 15, 1
IF p = 40 THEN : LINE (312, (((lc - 1) * 16) + 14))-STEP(7, 0), 15
DO

A1$ = UCASE$(INKEY$)
IF A1$ = "�" THEN : A1$ = "�"
LOOP UNTIL A1$ = "A" OR A1$ = "B" OR A1$ = "C" OR A1$ = "D" OR A1$ = "E" OR A1$ = "F" OR A1$ = "G" OR A1$ = "H" OR A1$ = "I" OR A1$ = "J" OR A1$ = "K" OR A1$ = "L" OR A1$ = "M" OR A1$ = "N" OR A1$ = "�" OR A1$ = "O" OR A1$ = "P" OR A1$ = "Q" OR A1$ = "R" OR A1$ = "S" OR A1$ = "T" OR A1$ = "U" OR A1$ = "V" OR A1$ = "W" OR A1$ = "X" OR A1$ = "Y" OR A1$ = "Z" OR A1$ = CHR$(27)
IF A1$ = CHR$(27) THEN : BOTON 360, 385, 80, 25, 8, 15, 16, 0: GOSUB final
  texto lc, 40, A1$, 15, 1

 
texto lc, 44, "_", 15, 1
DO
 
b1$ = UCASE$(INKEY$)
IF b1$ = "�" THEN : b1$ = "�"
LOOP UNTIL b1$ = "A" OR b1$ = "B" OR b1$ = "C" OR b1$ = "D" OR b1$ = "E" OR b1$ = "F" OR b1$ = "G" OR b1$ = "H" OR b1$ = "I" OR b1$ = "J" OR b1$ = "K" OR b1$ = "L" OR b1$ = "M" OR b1$ = "N" OR b1$ = "�" OR b1$ = "O" OR b1$ = "P" OR b1$ = "Q" OR b1$ = "R" OR b1$ = "S" OR b1$ = "T" OR b1$ = "U" OR b1$ = "V" OR b1$ = "W" OR b1$ = "X" OR b1$ = "Y" OR b1$ = "Z" OR b1$ = CHR$(27)
IF b1$ = CHR$(27) THEN : BOTON 360, 385, 80, 25, 8, 15, 16, 0: GOSUB final
  texto lc, 44, b1$, 15, 1


texto lc, 48, "_", 15, 1
DO
 
c1$ = UCASE$(INKEY$)
IF c1$ = "�" THEN : c1$ = "�"
LOOP UNTIL c1$ = "A" OR c1$ = "B" OR c1$ = "C" OR c1$ = "D" OR c1$ = "E" OR c1$ = "F" OR c1$ = "G" OR c1$ = "H" OR c1$ = "I" OR c1$ = "J" OR c1$ = "K" OR c1$ = "L" OR c1$ = "M" OR c1$ = "N" OR c1$ = "�" OR c1$ = "O" OR c1$ = "P" OR c1$ = "Q" OR c1$ = "R" OR c1$ = "S" OR c1$ = "T" OR c1$ = "U" OR c1$ = "V" OR c1$ = "W" OR c1$ = "X" OR c1$ = "Y" OR c1$ = "Z" OR c1$ = CHR$(27)
IF c1$ = CHR$(27) THEN : BOTON 360, 385, 80, 25, 8, 15, 16, 0: GOSUB final
  texto lc, 48, c1$, 15, 1

texto lc, 52, "_", 15, 1
DO
 
d1$ = UCASE$(INKEY$)
IF d1$ = "�" THEN : d1$ = "�"
LOOP UNTIL d1$ = "A" OR d1$ = "B" OR d1$ = "C" OR d1$ = "D" OR d1$ = "E" OR d1$ = "F" OR d1$ = "G" OR d1$ = "H" OR d1$ = "I" OR d1$ = "J" OR d1$ = "K" OR d1$ = "L" OR d1$ = "M" OR d1$ = "N" OR d1$ = "�" OR d1$ = "O" OR d1$ = "P" OR d1$ = "Q" OR d1$ = "R" OR d1$ = "S" OR d1$ = "T" OR d1$ = "U" OR d1$ = "V" OR d1$ = "W" OR d1$ = "X" OR d1$ = "Y" OR d1$ = "Z" OR d1$ = CHR$(27)
IF d1$ = CHR$(27) THEN : BOTON 360, 385, 80, 25, 8, 15, 16, 0: GOSUB final
 texto lc, 52, d1$, 15, 1

texto lc, 56, "_", 15, 1
DO
 
e1$ = UCASE$(INKEY$)
IF e1$ = "�" THEN : e1$ = "�"
LOOP UNTIL e1$ = "A" OR e1$ = "B" OR e1$ = "C" OR e1$ = "D" OR e1$ = "E" OR e1$ = "F" OR e1$ = "G" OR e1$ = "H" OR e1$ = "I" OR e1$ = "J" OR e1$ = "K" OR e1$ = "L" OR e1$ = "M" OR e1$ = "N" OR e1$ = "�" OR e1$ = "O" OR e1$ = "P" OR e1$ = "Q" OR e1$ = "R" OR e1$ = "S" OR e1$ = "T" OR e1$ = "U" OR e1$ = "V" OR e1$ = "W" OR e1$ = "X" OR e1$ = "Y" OR e1$ = "Z" OR e1$ = CHR$(27)
IF e1$ = CHR$(27) THEN : BOTON 360, 385, 80, 25, 8, 15, 16, 0: GOSUB final
texto lc, 56, e1$, 15, 1

 

A2 = ASC(A1$)
SOUND 2000, 1
SELECT CASE (A2)
CASE IS = a
SOUND 1000, 4
SOUND 2000, 1
BOTON 300, (((lc - 1) * 16) - 9), 31, 31, 15, 4, 12, 12
texto lc, 40, A1$, 15, 12
CASE IS = B
SOUND 500, 4
SOUND 2000, 1
BOTON 300, (((lc - 1) * 16) - 9), 31, 31, 15, 6, 14, 12
texto lc, 40, A1$, 8, 14
CASE IS = C
SOUND 500, 4
SOUND 2000, 1
BOTON 300, (((lc - 1) * 16) - 9), 31, 31, 15, 6, 14, 12
texto lc, 40, A1$, 8, 14
CASE IS = d
SOUND 500, 4
SOUND 2000, 1
BOTON 300, (((lc - 1) * 16) - 9), 31, 31, 15, 6, 14, 12
texto lc, 40, A1$, 8, 14
CASE IS = e
SOUND 500, 4
SOUND 2000, 1
BOTON 300, (((lc - 1) * 16) - 9), 31, 31, 15, 6, 14, 12
texto lc, 40, A1$, 8, 14
CASE ELSE
SOUND 200, 4
SOUND 2000, 1
 
END SELECT


B2 = ASC(b1$)
SELECT CASE (B2)
CASE IS = B
SOUND 1000, 4
SOUND 2000, 1
BOTON 332, (((lc - 1) * 16) - 9), 31, 31, 15, 4, 12, 12
texto lc, 44, b1$, 15, 12
CASE IS = a
SOUND 500, 4
SOUND 2000, 1
BOTON 332, (((lc - 1) * 16) - 9), 31, 31, 15, 6, 14, 12
texto lc, 44, b1$, 8, 14
CASE IS = C
SOUND 500, 4
SOUND 2000, 1
BOTON 332, (((lc - 1) * 16) - 9), 31, 31, 15, 6, 14, 12
texto lc, 44, b1$, 8, 14
CASE IS = d
SOUND 500, 4
SOUND 2000, 1
BOTON 332, (((lc - 1) * 16) - 9), 31, 31, 15, 6, 14, 12
texto lc, 44, b1$, 8, 14
CASE IS = e
SOUND 500, 4
SOUND 2000, 1
BOTON 332, (((lc - 1) * 16) - 9), 31, 31, 15, 6, 14, 12
texto lc, 44, b1$, 8, 14
CASE ELSE
SOUND 200, 4
SOUND 2000, 1
 
END SELECT


C2 = ASC(c1$)
SELECT CASE (C2)
CASE IS = C
SOUND 1000, 4
SOUND 2000, 1
BOTON 364, (((lc - 1) * 16) - 9), 31, 31, 15, 4, 12, 12
texto lc, 48, c1$, 15, 12
CASE IS = B
SOUND 500, 4
SOUND 2000, 1
BOTON 364, (((lc - 1) * 16) - 9), 31, 31, 15, 6, 14, 12
texto lc, 48, c1$, 8, 14
CASE IS = a
SOUND 500, 4
SOUND 2000, 1
BOTON 364, (((lc - 1) * 16) - 9), 31, 31, 15, 6, 14, 12
texto lc, 48, c1$, 8, 14
CASE IS = d
SOUND 500, 4
SOUND 2000, 1
BOTON 364, (((lc - 1) * 16) - 9), 31, 31, 15, 6, 14, 12
texto lc, 48, c1$, 8, 14
CASE IS = e
SOUND 500, 4
SOUND 2000, 1
BOTON 364, (((lc - 1) * 16) - 9), 31, 31, 15, 6, 14, 12
texto lc, 48, c1$, 8, 14
CASE ELSE
SOUND 200, 4
SOUND 2000, 1
 
END SELECT


D2 = ASC(d1$)
SELECT CASE (D2)
CASE IS = d
SOUND 1000, 4
SOUND 2000, 1
BOTON 396, (((lc - 1) * 16) - 9), 31, 31, 15, 4, 12, 12
texto lc, 52, d1$, 15, 12
CASE IS = B
SOUND 500, 4
SOUND 2000, 1
BOTON 396, (((lc - 1) * 16) - 9), 31, 31, 15, 6, 14, 12
texto lc, 52, d1$, 8, 14
CASE IS = C
SOUND 500, 4
SOUND 2000, 1
BOTON 396, (((lc - 1) * 16) - 9), 31, 31, 15, 6, 14, 12
texto lc, 52, d1$, 8, 14
CASE IS = a
SOUND 500, 4
SOUND 2000, 1
BOTON 396, (((lc - 1) * 16) - 9), 31, 31, 15, 6, 14, 12
texto lc, 52, d1$, 8, 14
CASE IS = e
SOUND 500, 4
SOUND 2000, 1
BOTON 396, (((lc - 1) * 16) - 9), 31, 31, 15, 6, 14, 12
texto lc, 52, d1$, 8, 14
CASE ELSE
SOUND 200, 4
SOUND 2000, 1
 
END SELECT


E2 = ASC(e1$)
SELECT CASE (E2)
CASE IS = e
SOUND 1000, 4
SOUND 2000, 1
BOTON 428, (((lc - 1) * 16) - 9), 31, 31, 15, 4, 12, 12
texto lc, 56, e1$, 15, 12
CASE IS = B
SOUND 500, 4
SOUND 2000, 1
BOTON 428, (((lc - 1) * 16) - 9), 31, 31, 15, 6, 14, 12
texto lc, 56, e1$, 8, 14
CASE IS = C
SOUND 500, 4
SOUND 2000, 1
BOTON 428, (((lc - 1) * 16) - 9), 31, 31, 15, 6, 14, 12
texto lc, 56, e1$, 8, 14
CASE IS = d
SOUND 500, 4
SOUND 2000, 1
BOTON 428, (((lc - 1) * 16) - 9), 31, 31, 15, 6, 14, 12
texto lc, 56, e1$, 8, 14
CASE IS = a
SOUND 500, 4
SOUND 2000, 1
BOTON 428, (((lc - 1) * 16) - 9), 31, 31, 15, 6, 14, 12
texto lc, 56, e1$, 8, 14
CASE ELSE
SOUND 200, 4
SOUND 2000, 1
 
END SELECT


lc = lc + 2
IF ASC(A1$) = a AND ASC(b1$) = B AND ASC(c1$) = C AND ASC(d1$) = d AND ASC(e1$) = e THEN : GOSUB LINGO
IF lc = 18 THEN : GOSUB final
GOSUB juego




final:
WHILE INKEY$ <> "": WEND
puntos = puntos - 5
BOTON 400, 300, 80, 30, 8, 15, 0, 7
letras 400, 320, STR$(puntos), 16, 10, 0, 3, 1


windows95 50, 278, 300, 460, "SOLUCI�N"
simbolos 2, 100, 400, 8
letras 140, 380, "esta es la palabra", 8, 0, 0, 2, 1
letras 140, 395, "que buscabamos.", 8, 0, 0, 2, 1

SOUND 2000, 1
SOUND 800, 4
SOUND 2000, 1
BOTON 76, 328, 31, 31, 15, 5, 13, 12
texto 22, 12, CHR$(a), 14, 13
SOUND 800, 4
SOUND 2000, 1
BOTON 108, 328, 31, 31, 15, 5, 13, 12
texto 22, 16, CHR$(B), 14, 13
SOUND 800, 4
SOUND 2000, 1
BOTON 140, 328, 31, 31, 15, 5, 13, 12
texto 22, 20, CHR$(C), 14, 13
SOUND 800, 4
SOUND 2000, 1
BOTON 172, 328, 31, 31, 15, 5, 13, 12
texto 22, 24, CHR$(d), 14, 13
SOUND 800, 4
SOUND 2000, 1
BOTON 204, 328, 31, 31, 15, 5, 13, 12
texto 22, 28, CHR$(e), 14, 13
BOTON 184, 407, 71, 32, 15, 8, 7, 0

letras 186, 425, "aceptar", 8, 0, 0, 2, 1
DO: LOOP WHILE INKEY$ = ""
windows95 50, 278, 300, 460, "SALIR"
simbolos 3, 90, 350, 8

letras 140, 350, "volver a jugar", 8, 0, 0, 2, 1
BOTON 98, 407, 41, 32, 15, 8, 7, 0

BOTON 179, 407, 41, 32, 15, 8, 7, 0
letras 110, 425, "si        no", 8, 0, 0, 2, 1

DO
kbd$ = UCASE$(INKEY$)
LOOP UNTIL kbd$ = "S" OR kbd$ = "N" OR kbd$ = CHR$(27)

IF kbd$ = CHR$(27) THEN : gracias
IF kbd$ = "N" THEN : gracias
IF kbd$ = "S" THEN : GOSUB inicio


LINGO:

puntos = puntos + 10 - (lc - 10)
BOTON 400, 300, 80, 30, 8, 15, 0, 7

letras 400, 320, STR$(puntos), 16, 10, 0, 3, 1

CONSEGUIDO

possalir:
windows95 50, 278, 300, 460, "SALIR"
simbolos 3, 90, 350, 8

letras 140, 350, "volver a jugar", 8, 0, 0, 2, 1
BOTON 98, 407, 41, 32, 15, 8, 7, 0

BOTON 179, 407, 41, 32, 15, 8, 7, 0
letras 110, 425, "si        no", 8, 0, 0, 2, 1
DO
kbd$ = UCASE$(INKEY$)
LOOP UNTIL kbd$ = "S" OR kbd$ = "N" OR kbd$ = CHR$(27)

IF kbd$ = CHR$(27) THEN :  gracias
IF kbd$ = "N" THEN :  gracias
IF kbd$ = "S" THEN : GOSUB inicio
END

mouse:                                             '
DO                                                 '
        PUT (x1, y1), Cuadro, XOR                   '
        x1 = PEN(4)                               ' SISTEMA DE VISUALIZACI�N
        y1 = PEN(5) * 2                           '
        IF PEN(4) > 629 THEN : x1 = 629           '    SITUAR ESTA PARTE
        IF PEN(5) > 234 THEN : y1 = 234           '       AL FINAL DEL
        PUT (x1, y1), Cuadro, XOR               '      PROGRAMA BASIC
LOOP UNTIL PEN(3) = 0                              '
RETURN                                             '

SUB ayuda
PEN OFF
windows95 106, 8, 534, 472, "AYUDA EN PANTALLA"
BOTON 350, 420, 160, 32, 15, 8, 7, 0
letras 358, 439, "SALIR DE LA AYUDA", 8, 0, 0, 2, 1

letras 112, 72, "USO DEL PROGRAMA", 16, 8, 0, 3, 1
letras 110, 70, "USO DEL PROGRAMA", 16, 3, 0, 3, 1

ANCH = 2
letras 120, 100, "PARA ESCRIBIR LAS LETRAS EN EL CUADRO DE JUEGO", 8, 0, 0, ANCH, 1
letras 120, 115, "SOLO HAY QUE PULSAR LA TECLA CORRESPONDIENTE,", 8, 0, 0, ANCH, 1
letras 120, 130, "NO SE PUEDEN BORRAR Y NO HAY L�MITE DE TIEMPO.", 8, 0, 0, ANCH, 1

letras 120, 160, "PARA SALIR DEL JUEGO SIN TERMINAR SE PUEDE", 8, 0, 0, ANCH, 1
letras 120, 175, "PULSAR LA TECLA ESCAPE Y APARECERA UN CUADRO DE", 8, 0, 0, ANCH, 1
letras 120, 190, "CONFIRMACI�N PARA SALIR O EMPEZAR OTRA PARTIDA.", 8, 0, 0, ANCH, 1
PEN ON
WHILE INKEY$ <> "": WEND
DO: LOOP WHILE INKEY$ = ""
RUN
END SUB

SUB BOTON (h, v, l, a, sol, sombra, cara, BORDE)

PSET (h, v)

LINE STEP(l, a)-STEP(-l, -a), BORDE, B
LINE STEP(1, 1)-STEP(0, a - 2), sol
LINE STEP(0, 0)-STEP(l - 2, 0), sombra
LINE STEP(0, 0)-STEP(0, -a + 2), sombra
LINE STEP(-1, 0)-STEP(-l + 3, 0), sol
LINE STEP(1, 1)-STEP(0, a - 4), sol
LINE STEP(0, 0)-STEP(l - 4, 0), sombra
LINE STEP(0, 0)-STEP(0, -a + 4), sombra
LINE STEP(-1, 0)-STEP(-l + 5, 0), sol
IF cara < 16 THEN : LINE STEP(1, 1)-STEP(l - 6, a - 6), cara, BF

END SUB

SUB CONSEGUIDO
 
FOR a = 1 TO 100
LINE (180, 370)-(80 + (a * 2), 150), a / 7 + 1
SOUND (a * 25) + 100, .2
NEXT
DO
letras 80, 100, "lingo", 36, 256, 0, 6, 1
LOOP WHILE INKEY$ = ""
FOR a = 1 TO 100
LINE (180, 370)-(80 + (a * 2), 150), 7
NEXT

letras 80, 100, "lingo", 36, 14, 0, 6, 1
WHILE INKEY$ <> "": WEND
END SUB

'
'  REPERTORIO DE PALABRAS DISPONIBLES PARA LINGO.BAS HECHO EN RONDA
'
'
'Para a�adir m�s palabras al diccionario situar esta "cadena_comandos" en una
'linea justo antes de la linea "END SELECT" y aumentar "CANTIDAD =" en tantas
'unidades como nuevas palabras haya. Por �ltimo hay que GUARDAR este archivo.
'
'      CASE {n}: PAL$ = {"palabra"}
'
'            n = N�mero de orden (Siguiente al �ltimo existente)
'
'    "palabra" = Cualquier palabra de cinco letras valida para este juego
'                  EN MAYUSCULAS   Y   SIN ACENTOS
'
SUB DICCIONARIO (a, B, C, d, e)
 


'N�MERO DE PALABRAS DEL DICCIONARIO

CANTIDAD = 225




PALABRA = INT(RND * CANTIDAD) + 1

SELECT CASE PALABRA
  CASE 1: PAL$ = "LENTE"
  CASE 2: PAL$ = "VERJA"
  CASE 3: PAL$ = "ROSAL"
  CASE 4: PAL$ = "MELON"
  CASE 5: PAL$ = "JAMON"
  CASE 6: PAL$ = "RIVAL"
  CASE 7: PAL$ = "JUEGO"
  CASE 8: PAL$ = "VIDEO"
  CASE 9: PAL$ = "RATON"
 CASE 10: PAL$ = "CARTA"
 CASE 11: PAL$ = "TUMBA"
 CASE 12: PAL$ = "AEREO"
 CASE 13: PAL$ = "RUIDO"
 CASE 14: PAL$ = "RUINA"
 CASE 15: PAL$ = "CERCA"
 CASE 16: PAL$ = "LEJOS"
 CASE 17: PAL$ = "FONDO"
 CASE 18: PAL$ = "TUNEL"
 CASE 19: PAL$ = "RADIO"
 CASE 20: PAL$ = "RADAR"
 CASE 21: PAL$ = "LAPIZ"
 CASE 22: PAL$ = "CINTA"
 CASE 23: PAL$ = "CANTO"
 CASE 24: PAL$ = "LIBRO"
 CASE 25: PAL$ = "DATIL"
 CASE 26: PAL$ = "MONTE"
 CASE 27: PAL$ = "GATOS"
 CASE 28: PAL$ = "LUNAR"
 CASE 29: PAL$ = "SELLO"
 CASE 30: PAL$ = "BACHE"
 CASE 31: PAL$ = "ROMBO"
 CASE 32: PAL$ = "PINOS"
 CASE 33: PAL$ = "CANAL"
 CASE 34: PAL$ = "SOBRE"
 CASE 35: PAL$ = "LETRA"
 CASE 36: PAL$ = "COCHE"
 CASE 37: PAL$ = "ROLLO"
 CASE 38: PAL$ = "BICHO"
 CASE 39: PAL$ = "COLOR"
 CASE 40: PAL$ = "CALOR"
 CASE 41: PAL$ = "RONDA"
 CASE 42: PAL$ = "MANTA"
 CASE 43: PAL$ = "ACERA"
 CASE 44: PAL$ = "ROLLO"
 CASE 45: PAL$ = "LINEA"
 CASE 46: PAL$ = "TIFON"
 CASE 47: PAL$ = "BARCO"
 CASE 48: PAL$ = "CERDO"
 CASE 49: PAL$ = "BUZON"
 CASE 50: PAL$ = "VERDE"
 CASE 51: PAL$ = "RUEDA"
 CASE 52: PAL$ = "POLEA"
 CASE 53: PAL$ = "PELEA"
 CASE 54: PAL$ = "SALTO"
 CASE 55: PAL$ = "BOTAS"
 CASE 56: PAL$ = "TENIS"
 CASE 57: PAL$ = "BALON"
 CASE 58: PAL$ = "CARRO"
 CASE 59: PAL$ = "CONDE"
 CASE 60: PAL$ = "BARRO"
 CASE 61: PAL$ = "ARENA"
 CASE 62: PAL$ = "LENTO"
 CASE 63: PAL$ = "CAJON"
 CASE 64: PAL$ = "COMER"
 CASE 65: PAL$ = "SALIR"
 CASE 66: PAL$ = "PONER"
 CASE 67: PAL$ = "GANAR"
 CASE 68: PAL$ = "RIMAR"
 CASE 69: PAL$ = "SONAR"
 CASE 70: PAL$ = "PASAR"
 CASE 71: PAL$ = "SUBIR"
 CASE 72: PAL$ = "BAJAR"
 CASE 73: PAL$ = "TOLDO"
 CASE 74: PAL$ = "VIVIR"
 CASE 75: PAL$ = "MIRAR"
 CASE 76: PAL$ = "LIMAR"
 CASE 77: PAL$ = "POLLO"
 CASE 78: PAL$ = "CARGA"
 CASE 79: PAL$ = "CELTA"
 CASE 80: PAL$ = "CA�ON"
 CASE 81: PAL$ = "PATIO"
 CASE 82: PAL$ = "DIANA"
 CASE 83: PAL$ = "PUNTO"
 CASE 84: PAL$ = "LINDO"
 CASE 85: PAL$ = "CHICO"
 CASE 86: PAL$ = "GORDO"
 CASE 87: PAL$ = "BRAZO"
 CASE 88: PAL$ = "OREJA"
 CASE 89: PAL$ = "RUBIO"
 CASE 90: PAL$ = "TEXTO"
 CASE 91: PAL$ = "JUNTO"
 CASE 92: PAL$ = "SELVA"
 CASE 93: PAL$ = "TIGRE"
 CASE 94: PAL$ = "PERRO"
 CASE 95: PAL$ = "BURRO"
 CASE 96: PAL$ = "CAMPO"
 CASE 97: PAL$ = "MILLA"
 CASE 98: PAL$ = "VILLA"
 CASE 99: PAL$ = "RESTO"
CASE 100: PAL$ = "BANDA"
CASE 101: PAL$ = "FINCA"
CASE 102: PAL$ = "DEUDA"
CASE 103: PAL$ = "REINO"
CASE 104: PAL$ = "BUENO"
CASE 105: PAL$ = "LECHE"
CASE 106: PAL$ = "COMBA"
CASE 107: PAL$ = "TANGO"
CASE 108: PAL$ = "PILAR"
CASE 109: PAL$ = "PINAR"
CASE 110: PAL$ = "MOSCA"
CASE 112: PAL$ = "TELAR"
CASE 113: PAL$ = "TELON"
CASE 114: PAL$ = "TORRE"
CASE 115: PAL$ = "BULTO"
CASE 116: PAL$ = "BRUTO"
CASE 117: PAL$ = "PALCO"
CASE 118: PAL$ = "VELOZ"
CASE 119: PAL$ = "BARRA"
CASE 120: PAL$ = "JUNTA"
CASE 121: PAL$ = "ACERO"
CASE 122: PAL$ = "COBRE"
CASE 123: PAL$ = "PLATA"
CASE 124: PAL$ = "CLORO"
CASE 125: PAL$ = "FLUOR"
CASE 126: PAL$ = "ACIDO"
CASE 127: PAL$ = "BASTO"
CASE 128: PAL$ = "ARIDO"
CASE 129: PAL$ = "GENTE"
CASE 130: PAL$ = "POSTE"
CASE 131: PAL$ = "CASPA"
CASE 132: PAL$ = "AEREO"
CASE 133: PAL$ = "TROZO"
CASE 134: PAL$ = "LAPIZ"
CASE 135: PAL$ = "AVION"
CASE 136: PAL$ = "PLACA"
CASE 137: PAL$ = "VERJA"
CASE 138: PAL$ = "MIXTO"
CASE 139: PAL$ = "MILLA"
CASE 140: PAL$ = "SILLA"
CASE 141: PAL$ = "PULGA"
CASE 142: PAL$ = "MONJA"
CASE 143: PAL$ = "DUQUE"
CASE 144: PAL$ = "CIRIO"
CASE 145: PAL$ = "LIRIO"
CASE 146: PAL$ = "FRESA"
CASE 147: PAL$ = "HOTEL"
CASE 148: PAL$ = "PLANO"
CASE 149: PAL$ = "CA�ON"
CASE 150: PAL$ = "BURRO"
CASE 151: PAL$ = "SUELO"
CASE 152: PAL$ = "ARA�A"
CASE 153: PAL$ = "TRAJE"
CASE 154: PAL$ = "TECHO"
CASE 155: PAL$ = "COFRE"
CASE 156: PAL$ = "JALEO"
CASE 157: PAL$ = "VIEJO"
CASE 158: PAL$ = "VIAJE"
CASE 159: PAL$ = "NUEVO"
CASE 160: PAL$ = "OREJA"
CASE 161: PAL$ = "CALLE"
CASE 162: PAL$ = "NIEVE"
CASE 163: PAL$ = "HIELO"
CASE 164: PAL$ = "OTO�O"
CASE 165: PAL$ = "OZONO"
CASE 166: PAL$ = "HELIO"
CASE 167: PAL$ = "TRIGO"
CASE 168: PAL$ = "PARRA"
CASE 169: PAL$ = "CABLE"
CASE 170: PAL$ = "VISTA"
CASE 171: PAL$ = "SALTO"
CASE 172: PAL$ = "ROSCO"
CASE 173: PAL$ = "MIEDO"
CASE 174: PAL$ = "SUSTO"
CASE 175: PAL$ = "ARBOL"
CASE 176: PAL$ = "CLARO"
CASE 177: PAL$ = "TINTA"
CASE 178: PAL$ = "CINCO"
CASE 179: PAL$ = "SIETE"
CASE 180: PAL$ = "SITIO"
CASE 181: PAL$ = "LUGAR"
CASE 182: PAL$ = "TARRO"
CASE 183: PAL$ = "BOLSA"
CASE 184: PAL$ = "PERLA"
CASE 185: PAL$ = "CHIVO"
CASE 186: PAL$ = "MENEO"
CASE 187: PAL$ = "REGLA"
CASE 188: PAL$ = "ROBLE"
CASE 189: PAL$ = "ABETO"
CASE 190: PAL$ = "PLAZA"
CASE 191: PAL$ = "FRENO"
CASE 192: PAL$ = "HIPER"
CASE 193: PAL$ = "YOGUR"
CASE 194: PAL$ = "WATER"
CASE 195: PAL$ = "DUCHA"
CASE 196: PAL$ = "JABON"
CASE 197: PAL$ = "ROSCO"
CASE 198: PAL$ = "VAINA"
CASE 199: PAL$ = "LIRIO"
CASE 200: PAL$ = "SAUNA"
CASE 201: PAL$ = "POLVO"
CASE 202: PAL$ = "POMPA"
CASE 203: PAL$ = "RAMPA"
CASE 204: PAL$ = "RISCO"
CASE 205: PAL$ = "CREDO"
CASE 206: PAL$ = "PARDO"
CASE 207: PAL$ = "NOCHE"
CASE 208: PAL$ = "EPOCA"
CASE 209: PAL$ = "SIGLO"
CASE 210: PAL$ = "AHORA"
CASE 211: PAL$ = "ANTES"
CASE 212: PAL$ = "LUEGO"
CASE 213: PAL$ = "TARDE"
CASE 214: PAL$ = "MUSGO"
CASE 215: PAL$ = "CORTE"
CASE 216: PAL$ = "CORTO"
CASE 217: PAL$ = "PA�AL"
CASE 218: PAL$ = "PU�AL"
CASE 219: PAL$ = "HUEVO"
CASE 220: PAL$ = "TORPE"
CASE 221: PAL$ = "PANEL"
CASE 222: PAL$ = "HOGAR"
CASE 223: PAL$ = "RELOJ"
CASE 224: PAL$ = "FERIA"
CASE 225: PAL$ = "CHULO"
CASE 226: PAL$ = "PLAYA"
CASE 227: PAL$ = "FEUDO"
CASE 228: PAL$ = "PIZZA"
CASE 229: PAL$ = "DESEO"
CASE 230: PAL$ = "BANCO"
END SELECT


a = ASC(MID$(PAL$, 1, 1))
B = ASC(MID$(PAL$, 2, 1))
C = ASC(MID$(PAL$, 3, 1))
d = ASC(MID$(PAL$, 4, 1))
e = ASC(MID$(PAL$, 5, 1))
END SUB

SUB ENTRADA
SCREEN 12
CLS
windows95 160, 152, 480, 450, "INICIO"
letras 193, 224, "lingo.bas", 28, 8, 0, 6, 1
letras 190, 220, "lingo.bas", 28, 14, 0, 6, 1

letras 232, 262, "Bienvenido", 16, 8, 0, 3, 1
letras 230, 260, "Bienvenido", 16, 3, 0, 3, 1

BOTON 220, 280, 81, 32, 15, 8, 7, 0
letras 225, 299, "Empezar", 8, 0, 0, 2, 1
letras 305, 305, "INICIAR EL JUEGO", 8, 0, 0, 2, 1

BOTON 220, 320, 81, 32, 15, 8, 7, 0
letras 235, 339, "AYUDA", 8, 0, 0, 2, 1
letras 305, 345, "USO DEL PROGRAMA", 8, 0, 0, 2, 1

BOTON 220, 360, 81, 32, 15, 8, 7, 0
letras 230, 379, "NORMAS", 8, 0, 0, 2, 1
letras 305, 385, "NORMAS DEL JUEGO", 8, 0, 0, 2, 1

BOTON 220, 400, 81, 32, 15, 8, 7, 0
letras 240, 419, "SALIR", 8, 0, 0, 2, 1
letras 305, 425, "SALIR AHORA MISMO", 8, 0, 0, 2, 1


SELECT CASE MENUBOTONES(219, 279, 83, 34, 40, 4, 0, 7)
CASE 2: ayuda
CASE 3: reglas
CASE 4: gracias
END SELECT

CLS

windows95 160, 152, 480, 328, "RAT�N"
simbolos 1, 220, 240, 8
letras 270, 210, "este programa no es", 8, 0, 0, 2, 1
letras 270, 230, "100 x 100 compatible ", 8, 0, 0, 2, 1
letras 270, 250, "con el rat�n.", 8, 0, 0, 2, 1

BOTON 280, 280, 71, 32, 15, 8, 7, 0
letras 282, 299, "Aceptar", 8, 0, 0, 2, 1
DO: LOOP WHILE INKEY$ = ""
BOTON 280, 280, 71, 32, 8, 15, 30, 0
CLS
windows95 60, 152, 580, 250, "DICCIONARIO"
simbolos 4, 100, 210, 8
BOTON 192, 212, 311, 26, 18, 8, 3, 0

letras 150, 200, "cargando el repertorio de palabras de 5 letras...", 8, 0, 0, 2, 1


LINE (195, 215)-(196, 235), 15, BF
PSET (196, 235), 8

FOR a = 200 TO 500 STEP 1
FOR DELAY = 1 TO 200: NEXT

LINE (a - 3, 215)-(a - 2, 216), 15, BF
LINE (a - 3, 217)-(a - 2, 233), 7, BF
LINE (a - 3, 234)-(a - 2, 235), 8, BF
LINE (a - 1, 215)-(a, 235), 8, BF
PSET (a - 1, 215), 15
NEXT
SOUND 933, 3
WHILE INKEY$ <> "": WEND
END SUB

SUB gracias
CLS
windows95 50, 278, 300, 460, "TERMINADO"
simbolos 2, 90, 380, 8
letras 120, 335, "JMGB", 8, 0, 0, 2, 1
letras 120, 355, "RONDA 1997", 8, 0, 0, 2, 1
letras 140, 380, "gracias por jugar.", 8, 0, 0, 2, 1

BOTON 184, 407, 71, 32, 15, 8, 7, 0
letras 198, 425, "SALIR", 8, 0, 0, 2, 1
SLEEP 1
SOUND 933, 3
COLOR 0



SYSTEM

END SUB

SUB letras (X, Y, TEXT$, escl, clrs, ang, ancho, relleno)
IF relleno < 1 THEN : relleno = 1
FOR h = 1 TO ancho STEP relleno
FOR v = 1 TO ancho STEP relleno
ccc = POINT(X + h, Y + v)
PSET (X + h, Y + v), ccc
C$ = STR$(clrs): e$ = STR$(escl): a$ = STR$(ang)
FOR a = 1 TO LEN(TEXT$)
IF clrs > 255 THEN C$ = STR$(INT(RND * 15) + 1)
DRAW "S" + e$ + "C" + C$ + "ta" + a$
SELECT CASE UCASE$(MID$(TEXT$, a, 1))
CASE "A": DRAW "br2 u2nnr2u2r2d4"
CASE "B": DRAW "br2 u4r2dgnlfdnl2"
CASE "C": DRAW "br2 bu4 nr2d4r2"
CASE "D": DRAW "br2 u4rfd2glbr2"
CASE "E": DRAW "br2 bu4 nr2d2nr2d2r2"
CASE "F": DRAW "br2 bu4 nr2d2nr2d2br2"
CASE "G": DRAW "br2 bu4 nr2d4r2unld"
CASE "H": DRAW "br2 u2nu2r2nu2d2"
CASE "I": DRAW "br2 nu4"
CASE "J": DRAW "br2 nur2nu4"
CASE "K": DRAW "br2 u2 nu2ne2f2"
CASE "L": DRAW "br2 nu4r2"
CASE "M": DRAW "br2 u4f2e2d4"
CASE "N": DRAW "br2 u4f4nu4"
CASE "�": DRAW "br2 u3f3u3bunl3bd4"
CASE "�": DRAW "br2 u3f3u3bunl3bd4"
CASE "O": DRAW "br2 bu4 nr2d4r2nu4"
CASE "P": DRAW "br2 u2nnr2u2r2d2bd2"
CASE "Q": DRAW "br2 bu4 nr2d4renu3blf"
CASE "R": DRAW "br2 u4r2d2l2f2"
CASE "S": DRAW "br2 r2u2l2u2r2BD4"
CASE "T": DRAW "br2 BU4r2nd4r2bd4"
CASE "U": DRAW "br2 nu4r2nu4"
CASE "V": DRAW "br2 bunu3fenu3bd"
CASE "W": DRAW "br2 bunu3fenu2fenu3bd"
CASE "X": DRAW "br2 br2bu2ne2nf2ng2nh2br2bd2"
CASE "Y": DRAW "br2 br2u2nh2ne2bd2br2"
CASE "Z": DRAW "br2 bu4 r4g2nlnrg2r4"
CASE "1": DRAW "br2 bu3ed4nlr"
CASE "2": DRAW "br2 bu4 r2d2l2d2r2"
CASE "3": DRAW "br2 bu4 r2d2nl2d2nl2" '"br2 bu4 r2fgnlfgnl2bl"
CASE "4": DRAW "br2 bu2 nu2r2nu2d2"
CASE "5": DRAW "br2 bu4 nr2d2r2d2nl2"
CASE "6": DRAW "br2 bu4 nr2d2nr2d2r2nu2"
CASE "7": DRAW "br2 bu4 r2d4"
CASE "8": DRAW "br2 u4r2d2nl2d2nl2"
CASE "9": DRAW "br2 bu2 nr2u2r2d4"
CASE "0": DRAW "br2 bu4 nr2d4r2nu4"
CASE "*": DRAW "br2 br2 u2nl2nu2nr2nengnhfbf "
CASE "+": DRAW "br2 br2 u2nl2nu2r2bd2"
CASE "-": DRAW "br2 bu2r2bd2"
CASE ".": DRAW "br2": PSET STEP(0, 0), clrs
CASE ",": DRAW "br2 ng"
CASE ";": DRAW "br2 ngbunuBD"
CASE ":": DRAW "br2": PSET STEP(0, 0), clrs: PSET STEP(0, -2), clrs: DRAW "bd2"
CASE "=": DRAW "br2 bunr2bu2r2bd3"
CASE "�": DRAW "br2 unr2u2rbunebdrd3"
CASE "�": DRAW "br2 bu3 rbunebdrl2d2nr2dr2"
CASE "�": DRAW "br2 u3bunebd4"
CASE "�": DRAW "br2 u3rbunebdrd3nl2"
CASE "�": DRAW "br2 u3brbunebdbrd3nl2"
CASE "�": DRAW "br2 unr2u2rbunebdrd3"
CASE "�": DRAW "br2 bu3 rbunebdrl2d2nr2dr2"
CASE "�": DRAW "br2 u3bunebd4"
CASE "�": DRAW "br2 u3rbunebdrd3nl2"
CASE "�": DRAW "br2 u3brbunebdbrd3nl2"
CASE ELSE: DRAW "S" + e$ + "ta" + a$ + "BR4"
END SELECT
NEXT: NEXT: NEXT
DRAW "s4ta0"
END SUB

FUNCTION MENUBOTONES (h, v, largo, alto, distancia, numero, C, cf)
posicion = v
LINE (h, posicion)-(h + largo, posicion + alto), C, B', &H5555

DO
DO

kbd$ = INKEY$
LOOP WHILE kbd$ = ""

LINE (h, posicion)-(h + largo, posicion + alto), cf, B', &H5555


SELECT CASE kbd$
          
            'ARRIBA
                CASE CHR$(0) + "H": posicion = posicion - distancia

            'ABAJO
                CASE CHR$(0) + "P": posicion = posicion + distancia

            'ENTER
                CASE CHR$(13): SOUND 950, 4
          
            'CUALQUIER OTRA
                CASE ELSE: posicion = posicion + distancia
            
            
              END SELECT
 IF posicion > v + (distancia * (numero - 1)) THEN : posicion = v
 IF posicion < v THEN : posicion = v + (distancia * (numero - 1))

LINE (h, posicion)-(h + largo, posicion + alto), C, B', &H5555

LOOP UNTIL kbd$ = CHR$(13)
MENUBOTONES = ((posicion - v) / distancia) + 1
END FUNCTION

SUB reglas
PEN OFF
windows95 106, 8, 534, 472, "AYUDA EN PANTALLA"
BOTON 350, 420, 160, 32, 15, 8, 7, 0
letras 358, 439, "SALIR DE LA AYUDA", 8, 0, 0, 2, 1

letras 112, 72, "reglas del juego", 16, 8, 0, 3, 1
letras 110, 70, "reglas del juego", 16, 3, 0, 3, 1

ANCH = 2
letras 120, 100, "EL JUEGO CONSISTE EN DESCUBRIR UNA PALABRA DE", 8, 0, 0, ANCH, 1
letras 120, 115, "CINCO LETRAS ESCRIBIENDO OTRAS PALABRAS TAMBI�N ", 8, 0, 0, ANCH, 1
letras 120, 130, "DE CINCO LETRAS Y VIENDO CUALES LETRAS COINCIDEN.", 8, 0, 0, ANCH, 1
letras 120, 145, "CADA PALABRA VA EN UNA L�NEA DEL CUADRO Y HAY", 8, 0, 0, ANCH, 1
letras 120, 160, "QUE ESCRIBIR UNA LETRA POR CASILLA PARA DESCUBRIR", 8, 0, 0, ANCH, 1
letras 120, 175, "LA PALABRA ESCONDIDA QUE ELIJE EL ORDENADOR ANTES", 8, 0, 0, ANCH, 1
letras 120, 190, "DE CADA PARTIDA ENTRE LAS MUCHAS QUE APARECEN EN ", 8, 0, 0, ANCH, 1
letras 120, 205, "EL DICCIONARIO QUE HAY EN EL INTERIOR DEL PROGRAMA.", 8, 0, 0, ANCH, 1
letras 120, 230, "AL ESCRIBIR LAS CINCO LETRAS LOS CUADROS CAMBIAN", 8, 0, 0, ANCH, 1
letras 120, 245, "AUTOM�TICAMENTE DE COLOR PARA INDICAR ESTO:", 8, 0, 0, ANCH, 1
letras 130, 260, "AZUL.........LA PALABRA OCULTA NO TIENE ESTA LETRA", 8, 1, 0, ANCH, 1
letras 130, 275, "AMARILLO..TIENE ESTA LETRA, PERO EN OTRO SITIO", 8, 14, 0, ANCH, 1
letras 130, 290, "ROJO...........TIENE ESTA LETRA EN ESTE MISMO SITIO", 8, 3, 0, ANCH, 1
letras 120, 315, "NO USAMOS LOS ACENTOS, PERO S� LA �.", 8, 0, 0, ANCH, 1
letras 120, 330, "AL EMPEZAR EL PROGRAMA DA UNA PISTA PARA EMPEZAR", 8, 0, 0, ANCH, 1
letras 120, 345, "SI SE FALLA SE PASA A LA L�NEA INFERIOR Y SI ESTA ", 8, 0, 0, ANCH, 1
letras 120, 360, "ERA LA �LTIMA SE PIERDEN 5 PUNTOS Y LA PARTIDA.", 8, 0, 0, ANCH, 1
letras 120, 375, "AL ACERTAR SE OBTIENEN 10, 8, 6, 4 O 2 PUNTOS,", 8, 0, 0, ANCH, 1
letras 120, 390, "SEG�N LO ARRIBA QUE ESTES EN EL CUADRO", 8, 0, 0, ANCH, 1
PEN ON
WHILE INKEY$ <> "": WEND
DO: LOOP WHILE INKEY$ = ""
RUN

END SUB

SUB simbolos (tipo, h, v, cs)

CONST pi = 3.1415926539#


SELECT CASE tipo
CASE 1
CIRCLE (h + 3, v + 3), 23, cs
PAINT (h + 3, v + 3), cs, cs

CIRCLE (h, v), 23, 0
CIRCLE (h, v), 20, 0
PAINT (h, v), 14, 0
PAINT (h, v - 21), 0, 0
LINE (h - 3, v - 5)-(h + 3, v + 15), 0, BF
CIRCLE (h, v - 12), 4, 0
PAINT (h, v - 12), 0, 0

CASE 2
CIRCLE (h + 3, v + 3), 23, cs
PAINT (h + 3, v + 3), cs, cs

CIRCLE (h, v), 23, 0
CIRCLE (h, v), 20, 0
PAINT (h, v), 10, 0
PAINT (h, v - 21), 0, 0
LINE (h - 3, v - 5)-(h + 3, v + 15), 0, BF
LINE (h - 6, v - 5)-(h + 3, v - 1), 0, BF
LINE (h - 8, v + 11)-(h + 8, v + 15), 0, BF

CIRCLE (h, v - 12), 4, 0
PAINT (h, v - 12), 0, 0

CASE 3

CIRCLE (h + 3, v + 3), 23, cs
PAINT (h + 3, v + 3), cs, cs

CIRCLE (h, v), 23, 0
CIRCLE (h, v), 20, 0
PAINT (h, v), 9, 0
PAINT (h, v - 21), 0, 0
LINE (h - 3, v - 5)-(h + 3, v + 3), 0, BF
LINE (h + 4, v + 7)-(h + 10, v + 7), 0
CIRCLE (h, v + 7), 4, 0, pi / 2
CIRCLE (h, v + 7), 10, 0, pi / 2
PAINT (h - 6, v + 7), 0, 0

CIRCLE (h, v - 12), 4, 0
PAINT (h, v - 12), 0, 0

CASE 4
IF POINT(h, v) = 15 THEN : cs = 15
PSET (h - 20, v - 5), cs
DRAW "d20f13r20e13u20h13l20g13"
PAINT (h, v), cs, cs

PSET (h - 23, v - 10)
DRAW "c15 d20f13r20e13u20h13l20g13"
PAINT (h - 22, v), 15, 15

PSET (h - 20, v - 9)
DRAW "c3 d18f11r18e11u18h11l18g11"
PAINT (h, v), 3, 3

FOR hh = h - 20 TO h - 19
FOR vv = v + 3 TO v + 4
PSET (hh, vv), POINT(hh, vv)
DRAW "S8 C15  br2 r2u2l2u2r2BD4"
DRAW "br2 BU4r2nd4r2bd4"
DRAW "br2 bu4 nr2d4r2nu4"
DRAW "br2 u2nnr2u2r2d2bd2"
NEXT
NEXT
END SELECT
END SUB

SUB texto (LV, LH, TEXT$, C, cf)


LOCATE LV, LH: COLOR C: PRINT TEXT$


IF cf = 0 THEN : PLAY "a": EXIT SUB

 
LH = LH - 1
FOR letrass = 1 TO LEN(TEXT$)
LH = LH + 1

FOR h = ((LH - 1) * 8) TO ((LH - 1) * 8) + 7
FOR v = ((LV - 1) * 16) TO ((LV - 1) * 16) + 15
IF POINT(h, v) = 0 THEN : PSET (h, v), cf
NEXT
NEXT

NEXT
 END SUB

SUB windows95 (h1, v1, h2, V2, TITULO$)

 BOTON h1, v1, h2 - h1, V2 - v1, 15, 8, 7, 0
 LINE (h1 + 5, v1 + 5)-(h2 - 5, v1 + 26), 1, BF
 texto INT(v1 / 16) + 2, INT(h1 / 8) + 5, TITULO$, 15, 1

BOTON h2 - 73, v1 + 7, 20, 18, 15, 8, 7, 1
BOTON h2 - 53, v1 + 7, 20, 18, 15, 8, 7, 1
BOTON h2 - 30, v1 + 7, 20, 18, 15, 8, 7, 1

LINE (h2 - 49, v1 + 12)-(h2 - 39, v1 + 20), 8, B
LINE (h2 - 48, v1 + 13)-(h2 - 38, v1 + 21), 15, B

PSET (h2 - 69, v1 + 20): DRAW "s4 C0R8UL7"

PSET (h2 - 20, v1 + 16): DRAW "C0NE3NF3NG3NH3"
PSET (h2 - 19, v1 + 16): DRAW "C0NE3NF3NG3NH3"

LINE (h1 + 8, v1 + 8)-STEP(14, 14), 15, B
PSET (h1 + 15, v1 + 15)
DRAW "c14bd8h8e8f8g8"
PAINT (h1 + 14, v1 + 15), 14, 14

END SUB