Source Code
0 REM \##\##\##\##%T%R%A%P\##\##\##\## BY DILWYN JONES
10 RAND
20 LET A=NOT PI
30 PRINT AT VAL "14",NOT PI;"% % % % % % % % % % % % % ";AT VAL "2",NOT PI;"% % % % %T%R%A%P% % % % % "
40 FOR X=NOT PI TO VAL "10"
50 PRINT "% ";TAB VAL "12";"% "
60 NEXT X
70 LET X=VAL "INT (RND*11)+1"
80 LET Y=VAL "INT (RND*11)+3"
90 PRINT AT Y,X;
100 IF PEEK (PEEK 16398+256*PEEK 16399)=128 THEN GOTO 190
110 PRINT "+";AT Y+(RND<.5)-(RND<.5),X+(RND<.5)-(RND<.5);"% " AND PEEK (PEEK 16398+256*PEEK 16399)<>21
120 LET A=A+SGN PI
130 LET A$=INKEY$
140 IF A$<"5" OR A$>"8" THEN GOTO 130
150 PRINT AT Y,X;" "
160 LET X=X+(A$="8")-(A$="5")
170 LET Y=Y+(A$="6")-(A$="7")
180 GOTO 90
190 PRINT A
195 PRINT AT 20,0;"%A%N%O%T%H%E%R% %G%O%? (Y/N)"
199 IF INKEY$="N" THEN STOP
200 PAUSE 4E4
201 IF INKEY$="N" THEN STOP
205 CLS
210 STOP
215 SAVE "1021%2"
220 RUN
