DECLARE SUB mensajes ()
DIM SHARED mem$(6)

CLS
a$ = "±ÛÛÛÛÛ  ±ÛÛÛÛÛ  ±Û      ±Û      ±Û    ±Û  ±Û   ±Û   ±Û   ±ÛÛÛÛÛ   ±ÛÛÛÛÛ"
b$ = "±Û±±±   ±Û  ±Û  ±Û      ±Û      ±Û             ±Û±Û ±Û   ±Û±±±    ±Û"
c$ = "±Û      ±Û  ±Û  ±ÛÛÛÛ   ±ÛÛÛÛ   ±Û    ±Û  ±Û   ±Û±Û ±Û   ±Û       ±Û"
d$ = "±Û ÛÛÛ  ±Û  ±Û  ±Û±±ÛÛ  ±Û±±ÛÛ  ±Û    ±Û  ±Û   ±Û ±Û Û   ±Û ÛÛÛ   ±ÛÛÛÛÛ"
e$ = "±Û ±±Û  ±Û  ±Û  ±Û ±±Û  ±Û ±±Û  ±Û    ±Û  ±Û   ±Û ±Û±Û   ±Û±±±Û   ±±±±±Û"
f$ = "±Û   Û  ±Û  ±Û  ±Û  ±Û  ±Û  ±Û  ±Û    ±Û  ±Û   ±Û ±±ÛÛ   ±Û  ±Û       ±Û"
g$ = "±ÛÛÛÛÛ  ±ÛÛÛÛÛ  ±ÛÛÛÛÛ  ±ÛÛÛÛÛ  ±ÛÛÛ  ±Û  ±Û   ±Û  ±±Û   ±ÛÛÛÛÛ   ±ÛÛÛÛÛ"
h$ = "±±±±±±  ±±±±±±  ±±±±±±  ±±±±±±  ±±±±  ±±  ±±   ±±   ±±   ±±±±±±   ±±±±±±"
LOCATE 21, 26: PRINT "Pulse una Tecla"


COLOR 12

RANDOMIZE TIMER
a = 1
DO
kdb$ = INKEY$
x% = INT(RND * 8) + 1
y% = INT(RND * 79) + 1
SELECT CASE x%
  CASE 1: l$ = a$
  CASE 2: l$ = b$
  CASE 3: l$ = c$
  CASE 4: l$ = d$
  CASE 5: l$ = e$
  CASE 6: l$ = f$
  CASE 7: l$ = g$
  CASE 8: l$ = h$
 CASE ELSE
 END SELECT


LOCATE x% + 10, y%: PRINT MID$(l$, y%, 1)
LOOP WHILE kdb$ = ""

LOCATE 11, 1: PRINT a$
LOCATE 12, 1: PRINT b$
LOCATE 13, 1: PRINT c$
LOCATE 14, 1: PRINT d$
LOCATE 15, 1: PRINT e$
LOCATE 16, 1: PRINT f$
LOCATE 17, 1: PRINT g$
LOCATE 18, 1: PRINT h$
LOCATE 21, 26: PRINT SPACE$(20)


T$(1) = " Conservar Joker's "
T$(2) = " Restaurar Joker's "
T$(3) = "   - Creditos -    "
T$(4) = "  INFO:INFO:INFO   "
COLOR 14
FOR e = 1 TO 4
LOCATE 2 + e, 30: PRINT T$(e)
NEXT
fin = false
lin = 1

DO

kdb$ = INKEY$
COLOR 14, 0
IF kdb$ = CHR$(0) + "H" THEN LOCATE 2 + lin, 30: PRINT T$(lin); : lin = lin - 1
IF kdb$ = CHR$(0) + "P" THEN LOCATE 2 + lin, 30: PRINT T$(lin); : lin = lin + 1

IF kdb$ = CHR$(27) THEN END

IF kdb$ = CHR$(13) THEN
 SELECT CASE lin
  CASE 1
        SHELL "copy *.inf *.jd>nul"
        IF CHR$(SCREEN(4, 1)) = "A" THEN
                                        LOCATE 4, 1: PRINT SPACE$(80);
                                        LOCATE 4, 30: PRINT T$(2)
        COLOR 10
        mem$(1) = "  Para que el conservador funcione debe haber una partida salvada "
        mem$(2) = "  y encontrarse este programa en el Subdirectorio de Gobblings ú3ú"
        mem$(3) = "     La persistencia de este error se debe a que no hay partidas salvadas "
        mensajes
        ELSE
                END
        END IF


  CASE 2
        SHELL "copy *.jd *.inf>nul"
        IF CHR$(SCREEN(5, 1)) = "A" THEN
                                        LOCATE 5, 1: PRINT SPACE$(80);
                                        LOCATE 5, 30: PRINT T$(3)
        COLOR 10
        mem$(1) = "  Para que el restaurador funcione debe haber "
        mem$(2) = "  un Joker's salvado                          "
        mem$(3) = "     La persistencia de este error se debe a que no hay Joker's Salvados "
        mensajes
        ELSE
            END
        END IF

  CASE 3
        COLOR 10
        mem$(1) = "  Conservador de Joker's por:"
        mem$(2) = "                             Jos‚ David Guill‚n"
        mem$(3) = "                             c/Pintor Garcia Ramos n§5 2D"
        mensajes

  CASE 4
        COLOR 10
        mem$(1) = "  Salve una partida, salga del juego y escoja CONSERVAR JOKER'S     "
        mem$(2) = "  Carge el juego nuevamente y utilice todos los Joker's que necesite"
        mem$(3) = "  Luego SALGA del juego y escoja RESTAURAR JOKER'S y carge el juego."
        mensajes

  CASE ELSE
 END SELECT
END IF

IF lin = 0 THEN lin = 4
IF lin = 5 THEN lin = 1

COLOR 14, 7
LOCATE 2 + lin, 30: PRINT T$(lin)

LOOP


SUB mensajes

        COLOR 10
        LOCATE 8, 1: PRINT mem$(1)
        LOCATE 9, 1: PRINT mem$(2)
        LOCATE 10, 1: PRINT mem$(3)
      
        SLEEP
        COLOR 14, 0
        LOCATE 8, 1: PRINT SPACE$(80);
        LOCATE 9, 1: PRINT SPACE$(80);
        LOCATE 10, 1: PRINT SPACE$(80);
        

END SUB