Avoid the O’s to win the game! Use cursor keys to move.
PROG : 16509
D-FILE: 19459
VARS : 20252
E-LINE: 20253
STKBOT: 20253
STKEND: 20253
9999 means line number
PRINT means treat as KEYWORD P
10 REM **BONKERS**SLR/1985****
20 LET S=0
30 PRINT ,,,," ² · õµ õö ²ö
²óô·öó ±² ±² ±² ²² öµ µ ²³
³ñ²³ô ´÷ ´÷ ´÷ õµõõö õ õõ õò
õõ µ òñ òñ òñ ó õµ õµ ÷¶
õµ ¶³ö µõ µõ µõ"
40 PRINT "¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸
¸¸¸¸¸¸¸¸¸¸¸¸ BY: S T E V E N
R E I D ** ¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸
¸¸¸¸¸¸¸¸¸¸¸¸"
50 PRINT ,,,,"STOP THE O""S BE
FOE THEY BONK YOU**"
60 PRINT ,,,," USE ARROW KEYS
FOR MOVEMENT...."
70 PRINT ,,,,"PRESS ENTER TO B
EGIN GAME PLAY??"
80 PAUSE 4E4
85 CLS
90 LET X=10
100 LET Y=4
110 LET X1=X
120 LET Y1=Y
130 DIM Z(8)
140 LET Z(1)=4
150 LET Z(2)=10
160 LET Z(3)=4
170 LET Z(4)=21
180 LET Z(5)=17
190 LET Z(6)=10
200 LET Z(7)=17
210 LET Z(8)=21
215 FAST
220 FOR A=0 TO 21
240 PRINT AT A,0;" ";TAB 31;" "
;AT 0,A;" ";AT 21,A;"
";AT 1,1;" ";AT 1,30;" "
;AT 20,1;" ";AT 20,30;" "
250 NEXT A
260 PRINT AT 19,15;"!!";AT 2,15
;"!!";AT 3,5;"!!";TAB 15;"!!";
TAB 25;"!!";AT 4,5;"!!";TAB 25;"
!!";AT 5,5;"!!";TAB 25;"!!";AT 6
,5;"!!";TAB 25;"!!";AT 9,15;"!!"
;AT 10,1;"!!";TAB 14;"!!!!";TAB
29;"!!";AT 11,1;"!!";TAB 14;"!!!
!";TAB 29;"!!";AT 12,15;"!!";AT
15,5;"!!";TAB 25;"!!";AT 16,5;"!
!";TAB 25;"!!";AT 17,5;"!!";TAB
25;"!!";AT 18,5;"!!";TAB 15;"!!"
;TAB 25;"!!"
270 LET C$="PEEK (PEEK 16398+25
6*PEEK 16399)"
275 SLOW
280 PRINT AT X,Y;"X";AT X1,Y1;"
-" AND (X1<>X OR Y1<>Y)
290 LET X1=X
300 LET Y1=Y
310 LET X=X-(INKEY$="7")+(
INKEY$="6")
320 LET Y=Y-(INKEY$="5")+(
INKEY$="8")
325 FAST
330 FOR C=1 TO 7 STEP 2
335 IF Z(C)=0 THEN GOTO 400
340 PRINT AT Z(C),Z(C+1);"O"
350 IF RND>.5 THEN LET Z(C)=Z(C
)+SGN (X-Z(C))
360 LET Z(C+1)=Z(C+1)+(INT (RND
*3-1))
370 PRINT AT Z(C),Z(C+1);
380 IF VAL C$=128 OR VAL C$=22
THEN LET Z(C)=0
390 PRINT "O"
400 NEXT C
405 SLOW
410 PRINT AT X,Y;
420 IF VAL C$<>0 AND VAL C$<>18
9 THEN GOTO 600
430 LET S=S+1
440 IF Z(1)=0 AND Z(3)=0 AND Z(
5)=0 AND Z(7)=0 THEN GOTO 460
450 GOTO 280
460 CLS
465 SLOW
470 PRINT "YOU COMPLETED A LEVE
L...BONUS POINTS****",,"SCORE:
";
480 LET S=S+400+INT (RND*100+10
0)
490 PRINT S,,"PRESS ENTER TO CO
NTINUE ON******"
500 PAUSE 4E4
510 CLS
520 GOTO 90
600 CLS
605 SLOW
610 PRINT ,,,," ² · õµ õö ²ö
²óô·öó ±² ±² ±² ²² öµ µ ²³
³ñ²³ô ´÷ ´÷ ´÷ õµõõö õ õõ õò
õõ µ òñ òñ òñ ó õµ õµ ÷¶
õµ ¶³ö µõ µõ µõ"
620 PRINT "¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸
¸¸¸¸¸¸¸¸¸¸¸¸ BY: S T E V E N
R E I D ** ¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸
¸¸¸¸¸¸¸¸¸¸¸¸"
630 PRINT ,,,," ****YOU"VE BE
EN BONKED**** "
640 PRINT ,," YOU SCORED
"
650 LET S=S+(100 AND Z(1)=0)+(1
00 AND Z(3)=0)+(100 AND Z(5)=0)+
(100 AND Z(7)=0)
660 LET C$=STR$ S
670 FOR F=1 TO LEN C$
680 LET C$(F)=CHR$ (CODE C$(F)+
128)
690 NEXT F
700 PRINT AT 13,15;C$;" POINTS*
*"
710 PRINT ,,,,"PRESS ENTER TO P
LAY GAME AGAIN.."
720 PAUSE 4E4
730 IF INKEY$="LPRINT " THEN
GOTO 800
740 CLS
750 RUN
800 CLEAR
810 CLS
820 SAVE "BO"
830 RUN