10 SCREEN1,,0:COLOR15,1,1:KEY OFF:LOCATE0,4:PRINT"   TENLINER SIMON GAME":PRINT"":PRINT"":PRINT" A GAME BY ONIRIC FACTOR":PRINT"":PRINT"REPEAT THE PATTERNS TO WIN":PRINT"":PRINT"USE 1-4 KEYS TO PLAY SOUNDS":FORI=0TO3000:NEXT:CLS 'INTRO
20 L=0:FORI=0TO31:B$=B$+CHR$(255):LOCATEI,3:PRINT"-":LOCATEI,19:PRINT"-":LOCATEI,21:PRINT"-":NEXT:DIMN$(5):DIMPT%(10):FORI=0TO3:SPRITE$(I)=B$:PUTSPRITEI,(I*16+100,72),I+1*3,I:N$(I+1)=CHR$(I+65):NEXT:S=0:VPOKE8197,161
30 LOCATE 5,3:PRINT"TENLINER SIMON GAME":LOCATE 0,20: PRINT"SCORE "+STR$(S):LOCATE 15,20:PRINT"            ":LOCATE 0,1:GOTO80 
40 IF L>4 THEN GOTO 90: ELSE D%=1: FORI=1TO2+L: TP%=1+RND(TIME)*4: PT%(I)=TP%: NR$=N$(TP%):PLAYNR$: PUTSPRITE30,((TP%-1)*16+100,92),7,1: FORI2=0TO250:NEXTI2:NEXTI: PUTSPRITE30,((TP%-1)*16+100,92),0,1:'PATRON
50 K$=INKEY$: IF K$<>"" THEN K2%=ASC(K$)-48: IF K2%<5 THEN PUTSPRITE30,((K2%-1)*16+100,92),15,1:PLAYN$(K2%): IF K2%=PT%(D%) THEN IF D%<2+L-.5 THEN D%=D%+1: S=S+10: ELSE GOTO 70 ELSE GOTO 70
60 GOTO 50
70 LOCATE 15,20:IF K2%=PT%(D%) THEN PRINT"WELL DONE!! ": S=S+10+10*L: FORI2=0TO1000:NEXTI2: L=L+.5: GOTO 30: ELSE PRINT"GAME OVER!! ":L=0:D%=0:S=0:LOCATE 6,20:PRINT"       ":FORI2=0TO4000:NEXTI2: GOTO 30
80 SOUND7,62: PLAY"O4T240V14L8CDEDC2DEFG2.": FORI=0TO1500:NEXT: GOTO 40
90 SOUND7,62: PLAY"TV14L16OEFEFGABO5C2": LOCATE 10,20:IF K2%=PT%(D%) THEN PRINT"YOU WIN THE GAME!!"
100 COLOR 15,1,RND(TIME)*15: VPOKE8197,161: GOTO 100
