Bomb-Catcher

Source Code

   0  % %B%O%M%B%-%C%A%T%C%H%E%R%                   % %W%R%I%T%T%E%N% % % %B%Y%                   % % %G%E%N%E% % %B%U%Z%A% % 
   1 FAST 
   2 PRINT AT 5,8;"\@@\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\@@";AT 6,8;"\@@% %B%O%M%B%-%C%A%T%C%H%E%R% \@@";AT 7,8;"\@@\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\@@"
   3 PRINT AT 10,3;"YOU ARE PULLING A PILLOW TO     CUSHION THE BOMBS THAT ARE      CONSTANTLY BEING DROPPED.",,,,,"    TO MOVE YOU PRESS THE           5 (LEFT) OR THE 8 (RIGHT)"
   4 PAUSE 40000
   5 CLS 
   6 LET N=15
   7 LET S=0
   8 LET Q=0
   9 RAND 
  10 LET Q=INT (RND*29)
  15 SLOW 
  20 PRINT AT 2,0;"                                "
  25 REM PRINT AT 2,0;"                                ";AT 21,15;" \:.\.: "
  30 PRINT AT 2,Q;" \:'\;;\':"
  40 FOR I=3 TO 21
  50 PRINT AT I,Q+2;"%*"
  60 PRINT AT I-1,Q+2;" "
  70 LET M$=INKEY$
  80 IF M$="" THEN NEXT I
  90 IF M$="8" THEN LET N=N+1
 100 IF M$="5" THEN LET N=N-1
 102 IF N>28 THEN LET N=28
 103 IF N<0 THEN LET N=0
 105 PRINT AT 21,N;" \:.\.: "
 110 NEXT I
 120 IF Q=N OR Q=N-1 THEN LET S=S+1
 125 IF Q<>N AND Q<>N-1 THEN GOTO 200
 130 GOTO 10
 140 CLS 
 150 PRINT AT 8,4;"YOUR SCORE IS: ";S*10
 160 IF S*10>SS THEN LET SS=S*10
 170 PRINT AT 12,4;"%H%I%G%H %S%C%O%R%E %I%S ";SS
 180 PAUSE 40000
 190 GOTO 5
 200 IF Q>25 THEN GOTO 140
 205 FOR J=1 TO 3
 210 FOR K=0 TO -4 STEP -1
 220 PRINT AT 21,Q+2+K;"(";AT 21,Q+2+K;"<"
 230 PRINT AT 21,Q+2+K;" "
 240 PRINT AT 21,Q+2-K;")";AT 21,Q+2-K;">"
 250 PRINT AT 21,Q+2-K;" "
 260 NEXT K
 270 NEXT J
 280 CLS 
 290 GOTO 140
9996 STOP 
9997 LET SS=0
9998 SAVE "BOMB-CATCHE%R"
9999 GOTO 1