Source Code
1 LET C=1
2 LET D=0
3 LET F=6
4 LET X=3
5 LET C$=" "
6 LET A$="\.:\:.\ :\..\ .\..\ :\. \.:\..\.:\:.\ :\..\ .\..\ :\. \.:"
10 PRINT AT X,C;" "
20 IF X<>Y THEN RETURN
30 LET S=S+(10-E)*(B$(E)<>C$)
40 LET B$(E)=C$
50 RETURN
60 LET S=D
70 FOR E=9 TO 20 STEP -C
80 PRINT AT D,D;"% %S%C%O%R%E% % % % ";AT D,F+C;S;AT F+C,D;"% % %W%A%V%E% ";CHR$ (166-E);"% % "
90 FOR B=C TO 20
100 DIM B$(18)
110 LET B$(E)=CHR$ (E+14)
120 LET Y=INT (RND*5)+C
130 FOR A=C TO C+E
140 PRINT AT Y,C;B$(A TO A+8);AT X,D;C$;AT F,D;A$(A TO A+9)
150 LET X=X+(INKEY$="" AND X<5)-(INKEY$="Z" AND X>C)
160 PRINT AT X,D;">"
170 IF INKEY$="M" THEN GOSUB 10
180 NEXT A
190 IF X=Y AND B$(E)<>C$ THEN GOTO 220
210 NEXT E
215 GOTO 80
220 PRINT AT D,F;S
225 PAUSE 500
230 GOTO 60
999 STOP
\n1000 SAVE "1026%0"
\n1010 GOTO 60
