### Appears on

Cassette to accompany the June 1983 issue of Synchro-Sette.

### 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." 1000 RAND 1020 LET A$="999999999" 1030 LET A=28 1040 LET M=0 1050 LET R=INT (1+RND*RND*9) 1060 PRINT AT 10,8;A$;AT 12,12;R 1070 IF A$="000000000" THEN GOTO 1150 1075 IF A<28 THEN GOSUB 2000 1080 LET M=M+1 1085 PRINT AT 2,20;"SCORE = ";101-M;" " 1090 LET P=CODE INKEY$-28 1100 IF P<0 OR P>9 THEN GOTO 1090 1110 IF P=0 THEN GOTO 1060 1120 LET A=CODE A$(P)-R 1125 IF A<28 THEN GOSUB 2000 1130 LET A$(P)=CHR$ A 1140 GOTO 1050 1150 PRINT AT 18,0;"FINAL SCORE = ";101-M;AT 20,0;"PRESS ENTER TO PLAY AGAIN" 1160 INPUT Z$ 1170 CLS 1180 IF HS<101-M THEN GOSUB 3000 1190 GOTO 30 2000 LET A=CODE A$(P)+10-R 2010 LET M=M+R 2020 RETURN 3000 LET C$=N$ 3010 LET HS=101-M 3020 RETURN 9998 SAVE "SUB-NINE%R" 9999 RUN