DECLARE SUB Delay (n!)
DEFINT A-Z
RANDOMIZE TIMER
VIEW PRINT 1 TO 25
OPTION BASE 1
DIM Lista(20)
1 COLOR 7, 1
CLS
FOR i = 1 TO 20: Lista(i) = INT(RND * 10): NEXT
FOR i = 1 TO 20
CLS
LOCATE 1, 1: PRINT "Jogo da mem¢ria 1.0"
LOCATE 2, 1: PRINT "Copyright 1999 (c) WendelSoft";
FOR j = 1 TO i
SELECT CASE Lista(j)
CASE 0: RESTORE Zero
CASE 1: RESTORE Um
CASE 2: RESTORE Dois
CASE 3: RESTORE Tres
CASE 4: RESTORE Quatro
CASE 5: RESTORE Cinco
CASE 6: RESTORE Seis
CASE 7: RESTORE Sete
CASE 8: RESTORE Oito
CASE 9: RESTORE Nove
END SELECT
pl = 5: pc = 5
FOR l = 1 TO 8
READ k
FOR c = 8 TO 1 STEP -1
n = k MOD 2
k = k \ 2
LOCATE pl + l - 1, pc + 2 * c - 2: PRINT STRING$(2, CHR$(187 * n + 32));
NEXT
NEXT
PLAY "MFo4l20cedfb"
Delay .5
NEXT
CLS
LOCATE 1, 1: PRINT "Jogo da mem¢ria 1.0"
LOCATE 2, 1: PRINT "Copyright 1999 (c) WendelSoft";
Delay 4
DO: LOOP UNTIL INKEY$ = ""
LOCATE 5, 1: INPUT "Sequencia :", n$
ok = -1
FOR j = 1 TO i: ok = ok AND (VAL(MID$(n$, j, 1)) = Lista(j)): NEXT
IF NOT ok THEN PRINT "Resposta  :"; : FOR j = 1 TO i: PRINT LTRIM$(STR$(Lista(j))); : NEXT: EXIT FOR
NEXT
PRINT
PRINT "Fim do jogo"
PRINT
IF n$ <> "" THEN
PRINT "Nivel do jogador :"; i - 1
SELECT CASE i - 1
CASE 0: PRINT "Diagn¢stico : amn‚sia cr“nica"
CASE 1: PRINT "Vocˆ lembra qual ‚ o seu nome ?"
CASE 2: PRINT "Sabia que peixe faz bem para o c‚rebro ?"
CASE 3 TO 5: PRINT "Precisa treinar mais a mem¢ria ..."
CASE 6 TO 8: PRINT "Pelo menos o telefone da sua casa vocˆ consegue lembrar, n‚ !?"
CASE 9 TO 11: PRINT "Vocˆ tem uma mem¢ria razo vel... mas funciona"
CASE 12 TO 14: PRINT "Sua mem¢ria ‚ boa, mas pode melhorar ..."
CASE 15 TO 17: PRINT "Vocˆ possui uma ¢tima mem¢ria !"
CASE 18 TO 20: PRINT "Vocˆ tem mem¢ria de elefante, hein !?"
END SELECT
END IF
PRINT "Continua [S/N] ? ";
DO: a$ = UCASE$(INPUT$(1)): LOOP UNTIL a$ = "S" OR a$ = "N"
IF a$ = "S" THEN 1
COLOR 7, 0
CLS
SYSTEM
Zero:
DATA 124,206,222,246,230,198,124,0
Um:
DATA 24,56,24,24,24,24,126,0
Dois:
DATA 124,198,6,28,112,198,254,0
Tres:
DATA 124,198,6,28,6,198,124,0
Quatro:
DATA 28,60,108,204,254,12,12,0
Cinco:
DATA 254,192,252,6,6,198,124,0
Seis:
DATA 60,96,192,252,198,198,124,0
Sete:
DATA 254,198,12,24,48,48,48,0
Oito:
DATA 124,198,198,124,198,198,124,0
Nove:
DATA 124,198,198,126,6,12,120,0

SUB Delay (n!)
t! = TIMER: DO: LOOP UNTIL TIMER - t! >= n!
END SUB