Geiger Counter

Gallery

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