5 CLS:PRINT "                STM
7 PRINT:PRINT "                 BY DAN BENGE"
8 FOR X=1 TO 1000:NEXTX
10 REM ***STM***
15 REM(By Dan Benge)
20 CLS:PRINT"Do you want to play with"
30 PRINT"1. Letters?"
40 PRINT"2. Numbers?"
50 PRINT"3. 0 and 1 Only?"
60 PRINT"4. Or do you want to quit?"
70 INPUTA$:ONVAL(A$)GOTO 80,90,100,230;GOTO70
80 A=26:B=65:GOTO120
90 A=10:B=48:GOTO120
100 A=2:B=48:GOTO120
110 REM ***main routine***
120 C=1:TT=300:T=TI:TA=T
130 CLS:A$="":FORD=1TOC:B$=CHR$(B+RND(1)*A):PRINT "                    ";B$;:A$=A$+B$
140 FORE=0TOTT:NEXT:CLS:NEXT
150 PRINT"":INPUT"Answer";B$:IFB$=A$THEN220
160 PRINT"WRONG! your score:"STR$(C-1):PRINT"it was: "+A$
170 PRINT"TIME:"STR$(INT((TA-T)/.6)/100)" seconds"
180 PRINT"play again (Y/N)?"
190 I$=INKEY$:IFI$="Y"THEN120
200 IFI$<>"N"THEN190
210 GOTO20
220 C=C+1:TA=TI:GOTO130
230 END