Trap

Gallery

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