10 REM*******
20 REM*FOLLOW ME
30 REM* ARTSCI INC
40 REM********
50 C=1
60 TD=150
70 DIM A(40)
80 CLS
90 PRINT"**FOLLOW ME**"
100 PRINT"Is a memory game"
110 PRINT"try and see if "
120 PRINT"you can follow";
130 S=S+1
140 IF INKEY$="" THEN 130
150 FOR X=1 TO (S-INT (S/100)*100)
160 Z=RND(1)
170 NEXT
180 CLS
190 IF INKEY$<>"" THEN 190
200 C=1:TD=150
210 PRINT"� � � �"
220 PRINT"1 2 3 4"
230 LOCATE 0,3
240 PRINT"PRESS ANY KEY";
250 IF INKEY$="" THEN 250
260 LOCATE0,3
270 PRINT"             ";
280 N=INT(RND(1)*4)+1
290 LOCATE 10,0
300 PRINT"LEVEL:"
310 LOCATE 13,1
320 PRINT C
330 A(C)=N:C=C+1
340 IF C< 30THEN 440
350 LOCATE 0,2
360 PRINT"YOU ARE THE CHAMP"
370 C=1
380 FOR T=1 TO 8
390 SOUND T,1
400 NEXT
410 C=C+1:IF C<4 THEN 380
420 COPY
430 GOTO 180
440 FOR X=1 TO C-1
450 N=A(X)
460 GOSUB 670
470 NEXT
480 FOR X=1 TO C-1
490 D=1
500 I$=INKEY$
510 D=D+1
520 IF D>200 THEN 790
530 IF I$="" THEN 500
540 G=VAL(I$)
550 IF G<>A(X ) THEN 740
560 TD=50
570 N=G:GOSUB 670
580 NEXT
590 TD=150
600 LOCATE 0,2
610 PRINT"CORRECT!";
620 FOR T=1 TO 400:NEXT
630 LOCATE 0,2
640 PRINT"        "
650 GOTO 280
660 END
670 LOCATE (N*2)-2,0
680 PRINT"�";
690 SOUND N,2
700 LOCATE(N*2)-2,0
710 FOR T=1 TOTD :NEXT
720 PRINT"�";
730 RETURN
740 LOCATE0,2
750 PRINT"SORRY?!"
760 SOUND 8,9
770 FOR T=1 TO 2500:NEXT
780 GOTO 180
790 LOCATE 0,2
800 PRINT"TOO MUCH TIME"
810 SOUND 5,8
820 FOR T=1 TO2500:NEXT
830 GOTO 80
840 CLS