Asteroid Field

   1 FAST 
   5 FOR Z=SGN PI TO VAL "384"
  10 PRINT "% ";
  20 NEXT Z
  30 LET P=PEEK VAL "16396"+VAL "256"*PEEK VAL "16397"
  31 PRINT AT 8,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
  33 PRINT AT 10,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
  40 LET S=NOT PI
  50 LET R=VAL "133"+P
  60 FOR T=SGN PI TO VAL "10"
  70 FOR Z=SGN PI TO VAL "8"
  80 LET X=RND*VAL "263"+SGN PI+P
  90 IF PEEK X=VAL "118" THEN GOTO VAL "80"
 100 POKE X,VAL "151"
 101 SLOW 
 110 NEXT Z
 120 FOR Z=SGN PI TO VAL "31"
 130 IF PEEK (R+Z)=VAL "151" THEN LET S=S+SGN PI
 140 POKE R+Z,VAL "146"
 150 POKE R+Z,VAL "128"
 160 IF INKEY$="A" THEN LET R=R+VAL "33"
 170 IF R>=VAL "264"+P THEN LET R=R-VAL "33"
 180 IF INKEY$="L" THEN LET R=R-VAL "33"
 190 IF R<=P THEN LET R=R+VAL "33"
 200 NEXT Z
 205 PRINT AT 9,0;"% %S%C%O%R%E% ";S;"% % % % % % %P%A%S%S%E%S% %M%A%D%E% ";T;"% % % % % % "
 229 NEXT T
 230 PRINT AT 5,10;"%G%A%M%E% %O%V%E%R"
 231 PRINT AT 12,0;"% % % % %P%R%E%S%S% %E%N%T%E%R% %T%O% %P%L%A%Y% %A%G%A%I%N% % % "
 232 PRINT AT 13,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
 233 INPUT A$
 234 CLS 
 235 GOTO 1
 240 CLEAR 
 250 SAVE "1032%8"
 260 RUN