1 CLS : COLOR 7 : PLAY "O1"
2 PRINT "WELCOME TO 'MEMORY'"
3 PRINT
4 PRINT "Hello, I've written this game because I remembered" :                    PRINT "the game Simon, where You remember to press the ":                       PRINT "Right buttons in the sequence plus a new button each"
5 PRINT "time.  Well, this program does just that.  The computer":                PRINT "will randomly pick a sequence for You.  Just press the"    :             PRINT "right keys.  If You make a mistake, the game ends."
6 PRINT :
7 PRINT "Have fun, Eddie [Planeteer6@aol.com]"
8 PRINT "Press any key to continue...":WHILE INKEY$ = "":WEND
10 CLS
20 RANDOMIZE TIMER
30 DIM A(50),B(50)
40 FOR X = 1 TO 4:KEY(X) ON:NEXT
50 ON KEY(1) GOSUB 260
60 ON KEY(2) GOSUB 320
70 ON KEY(3) GOSUB 380
80 ON KEY(4) GOSUB 440
90 CLS
100 LOCATE 23,6:PRINT"F1"
110 LOCATE 23,22:PRINT"F2"
120 LOCATE 23,40:PRINT"F3"
130 LOCATE 23,56:PRINT"F4"
150 FOR F = 1 TO 50
160 A(F) = INT(RND*4)+1
170 FOR D = 1 TO F :
180 LOCATE 1,1:PRINT A(D):ON A(D) GOSUB 260,320,380,440
190 NEXT D : P = 1
200 FOR C = 1 TO F : G = 0
210 IF G = 0 THEN 210
220 NEXT C
230 P = 0
240 PLAY "l6 N0 l4 "
250 NEXT F
260 FOR X = 1 TO 4:KEY(X) OFF:NEXT : COLOR 4
261 FOR X = 19 TO 22 : LOCATE X,4 : PRINT "OOOOOOO" : NEXT
270 B = 1 : IF P = 1 THEN IF B <> A(C) THEN 500
280 PLAY "c" : COLOR 7
290 G = 9 : IF P = 1 THEN PLAY "L8" : ELSE PLAY "L4"
300 FOR X = 19 TO 22 : LOCATE X,4 : PRINT "       " : NEXT
305 FOR X = 1 TO 4:KEY(X) ON:NEXT
310 RETURN
320 FOR X = 1 TO 4:KEY(X) OFF:NEXT:COLOR 14
321 FOR X = 19 TO 22 : LOCATE X,20: PRINT "OOOOOOO" : NEXT
330 B = 2 : IF P = 1 THEN IF B <> A(C) THEN 500
340 G = 9 : IF P = 1 THEN PLAY "L8" : ELSE PLAY "L4"
350 PLAY "d" : COLOR 7
360 FOR X = 19 TO 22 : LOCATE X,20: PRINT "       " : NEXT
365 FOR X = 1 TO 4:KEY(X) ON:NEXT
370 RETURN
380 FOR X = 1 TO 4:KEY(X) OFF:NEXT : COLOR 2
381 FOR X = 19 TO 22 : LOCATE X,38: PRINT "OOOOOOO" : NEXT
390 B = 3 : IF P = 1 THEN IF B <> A(C) THEN 500
400 G = 9 : IF P = 1 THEN PLAY "L8" : ELSE PLAY "L4"
410 PLAY "e" :COLOR 7
420 FOR X = 19 TO 22 : LOCATE X,38: PRINT "       " : NEXT
425 FOR X = 1 TO 4:KEY(X) ON:NEXT
430 RETURN
440 FOR X = 1 TO 4:KEY(X) OFF:NEXT : COLOR 1
441 FOR X = 19 TO 22 : LOCATE X,54: PRINT "OOOOOOO" : NEXT
450 B = 4 : IF P = 1 THEN IF B <> A(C) THEN 500
460 G = 9 : IF P = 1 THEN PLAY "L8" : ELSE PLAY "L4"
470 PLAY "f" : COLOR 7
480 FOR X = 19 TO 22 : LOCATE X,54: PRINT "       " : NEXT
485 FOR X = 1 TO 4:KEY(X) ON:NEXT
490 RETURN
500 LOCATE 14,4 :PRINT"Sorry": FOR SS = 500 TO 40 STEP -10:SOUND 40,.5:NEXT SS:LOCATE 14,4:PRINT "You should have continued: ":PLAY "N0"
501 FOR X = 19 TO 22 : LOCATE X,1 : PRINT "                                                                            ": NEXT:PLAY "L4"
502 FOR Z = C TO F : P = 0
503 LOCATE 1,1:PRINT A(Z):ON A(Z) GOSUB 260,320,380,440
504 NEXT Z :
505 LOCATE 3,4
510 IF F < 5 THEN PRINT "This isn't Your day!"
520 IF F > 5 AND F < 15 THEN PRINT "Not too bad."
530 IF F > 15 AND F < 25 THEN PRINT "Good."
540 IF F > 25 THEN PRINT "Great."