Source Code
10 LET C$=""
20 LET HS=0
30 IF LEN C$>0 THEN PRINT AT 5,0;"HIGH SCORE - ";C$;" - ";HS
50 PRINT AT 20,0;"WHAT IS YOUR NAME?"
60 INPUT N$
100 PRINT AT 2,7;"% %S%U%B%-%N%I%N%E%R% "
200 LET B$="% % % % % % % % % % % "
300 PRINT AT 9,7;B$;AT 10,7;B$;AT 11,7;B$;AT 12,7;B$;AT 13,7;B$
400 PRINT AT 8,8;"123456789"
600 PRINT AT 20,0;N$;" IS NOW PLAYING."
\n1000 RAND
\n1020 LET A$="999999999"
\n1030 LET A=28
\n1040 LET M=0
\n1050 LET R=INT (1+RND*RND*9)
\n1060 PRINT AT 10,8;A$;AT 12,12;R
\n1070 IF A$="000000000" THEN GOTO 1150
\n1075 IF A<28 THEN GOSUB 2000
\n1080 LET M=M+1
\n1085 PRINT AT 2,20;"SCORE = ";101-M;" "
\n1090 LET P=CODE INKEY$-28
\n1100 IF P<0 OR P>9 THEN GOTO 1090
\n1110 IF P=0 THEN GOTO 1060
\n1120 LET A=CODE A$(P)-R
\n1125 IF A<28 THEN GOSUB 2000
\n1130 LET A$(P)=CHR$ A
\n1140 GOTO 1050
\n1150 PRINT AT 18,0;"FINAL SCORE = ";101-M;AT 20,0;"PRESS ENTER TO PLAY AGAIN"
\n1160 INPUT Z$
\n1170 CLS
\n1180 IF HS<101-M THEN GOSUB 3000
\n1190 GOTO 30
\n2000 LET A=CODE A$(P)+10-R
\n2010 LET M=M+R
\n2020 RETURN
\n3000 LET C$=N$
\n3010 LET HS=101-M
\n3020 RETURN
\n9998 SAVE "SUB-NINE%R"
\n9999 RUN
