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
\n9996 STOP
\n9997 LET SS=0
\n9998 SAVE "BOMB-CATCHE%R"
\n9999 GOTO 1
