Source Code
10 LET S=0
20 LET A=2+INT (RND*8)
30 LET B=1+INT (RND*9)
40 PRINT
50 PRINT
90 FOR X=1 TO 10
100 FOR Y=1 TO 10
110 PRINT AT Y,X;"% ";
120 NEXT Y
130 NEXT X
140 LET C=1
150 LET D=1
170 PRINT AT C,D;"%X"
175 LET S=S+1
180 PAUSE 40
190 PRINT AT C,D;"%+"
200 IF INKEY$="7" THEN LET C=C-1
210 IF INKEY$="5" THEN LET D=D-1
220 IF INKEY$="6" THEN LET C=C+1
230 IF INKEY$="8" THEN LET D=D+1
235 IF INKEY$="S" THEN STOP
240 IF C<1 THEN LET C=1
250 IF C>10 THEN LET C=10
260 IF D<1 THEN LET D=1
270 IF D>10 THEN LET D=10
280 IF A=C AND B=D THEN GOTO 900
290 PRINT AT 11,0;"GEIGER COUNTER READS ";ABS (B-D)*7.29+C+A
300 GOTO 170
900 PRINT AT 13,3;"YOU FOUND THE PLUTONIUM"," IN ";S;" TRIES"
910 PRINT AT 11,0;" "
920 PRINT AT C,D;"%P"
930 PAUSE 500
940 CLS
950 RUN
960 CLEAR
970 SAVE "1027%6"
980 RUN
