A complied remake of BONKERS that is a bit faster and more playable.
As before, avoid the O’s to win the game! Use cursor keys to move.
PROG : 16509
D-FILE: 28519
VARS : 29312
E-LINE: 29313
STKBOT: 29313
STKEND: 29313
9999 means line number
PRINT means treat as KEYWORD P
0 REM MCII
30403 ?/INKEY$??INKEY$??INKEY$??
INKEY$? ??INKEY$?õPI?8PI?INPUT
PI???LN Vò84IF INT £FAST STR$
ACS ?C!Y-LN õPILN (INKEY$)(BLN
UNPLOT RNDK;)CONT óLN UNPLOT RND
K=)? LN UNPLOT RNDK>2úLN UNPLOT
RNDK)/=LN òINKEY$)CONT óLN ò
INKEY$)? LN òINKEY$2úLN òINKEY$2
ñLN òINKEY$SGN LPRINT TAN FAST B
GOSUB ?LPRINT TAN Y0BGOSUB ?SóW/
RAND ;?õPI?J??J?7TAN E£RND)5
FAST GOSUB ?/RNDù7FAST ;FOR 5
CHR$ òGOSUB PISTOP AT FOR GOSUB
KLPRINT ñQòù6:RNDCLEAR QT5CLEAR
QUóTAN LN VòñCOPY RETURN JFAST
GOSUB PILPRINT COS //LN VòG4IF
LN Vò?RETURN COPY CSAVE ñCOPY
RETURN JFAST GOSUB PILPRINT C
INPUT J?8COS 9?LN X÷ASN DRNDTAN
ACS UNPLOT 6ORNDEORND?NEW ?PCOS
LN ?INKEY$CNEXT TAN YF( AND
GOTO PI?YñACS CKòYôACS DKòACS ÷
PRINT LN INT INKEY$÷ACS ?Kò
INPUT ??)2£UKRND<IF VAL INKEY$
LET J4/òLET KRETURN !SòINPUT ?/Q
Y*( AND GOTO PI?NEW 3?VAL VAL
VAL JACS (ACS (ACS (??DDAT ??ù
AT ?ùGOSUB ?£RNDù76:RNDAT Y/(MU
RNDY5)MTRNDTAN STR$ FAST VAL
RETURN
8218 RNDACS ?CõLN ( /QE:RNDLN ?
PI/CRETURN RNDABS JPI5ñRNDACS ?C
õLN ( /*E:RNDPRINT LET E:RND?76:
RND5TRNDPAT LPRINT SGN TAN 7
PRINT 6:RNDCLEAR QT5UURNDXMURND
RETURN òATN ?PILET TAN U5RND
RETURN CöXM5RND/AE£RNDñSAVE òùQ
?FAST LN ?INKEY$CCLS LPRINT Q
RETURN CASN EúRETURN ZC:RETURN D
4÷ACS 0F?O4CLS ?/INKEY$LN ?!/
ABS ?LCOS ,LN õPI<"/PRINT
RETURN ?SùRETURN ""ACS R AND FPI
NEW Z5)ñ?ôRETURN 5K£RETURN ñCô
RETURN *SôJLN õPIACS õPI7/PRINT
NEW ZLN õPIJ?!PIINT º?MCIF LN O?
VAL ?PI) STR$ FOR 7DFOR D?+?0
FOR KPLOT FOR FOR J?3??3?OC/FOR
JACS 0ACS 1?+?0IF ù??+??0?STOP ;
STOP /<>LPRINT AT ACS ?TAB (
INKEY$TAN ??*>=(INKEY$FOR ?C?
ACS ?TAB (INKEY$TAN GOSUB ?MRND?
ICLEAR ?Rö GOSUB ?/GOSUB ?/??
GOSUB ?Kñ76MRNDACS W??TAN LN E
-RND7PRINT LN -?LN -?LN S?LN
INPUT ?INT ?LN R?LN <>?TAN LN
LEN ?YCODE LN RUN ?LN *?/$LN R?5
LN >?óLN NEXT ?FAST LN LEN ?
LPRINT LN >?LN A?LN LLIST !)
CLEAR ?ñ( LN IF ?E?RNDLN INPUT ?
)RUN ?ñô LN IF ?E?RNDLN INPUT ?
LN .?LN .?YRUN LN RUN ?Y?LN RUN
?LN LET ?RETURN YTAB DRND5LIST ?
FAST LN EúE?RNDDIM LN POKE ?4
CLS INT ?
30455
30386 DER II ENDAT YTAN ?B?6?RND
GOSUB ?0RND<5?RNDLN ??5 6?RNDE?
RND6?RNDLN A?WMõ?5?RNDFAST LN 7?
LPRINT FAST 7776-RNDU*RNDM5RND
LN -?RETURN PAUSE ATN NEXT ?
RETURN RAND ATN CHR$ ?RETURN IF
ATN ,?RETURN THEN CREM RETURN
DIM ATN J?RETURN GOTO ATN ??
RETURN GOSUB ATN >?RETURN FOR
ATN PAUSE ?RETURN NEXT ATN 2?
RETURN SLOW ATN ""?RETURN POKE
ATN VAL ?RETURN FAST ATN L?
RETURN INPUT ATN ¶?RETURN PLOT
ATN ??RETURN UNPLOT ATN ³?
RETURN LET ATN 2?RETURN CLS ATN
K?RETURN STOP ASN £?RETURN
PRINT ATN LET ?RETURN LPRINT
ATN CHR$ ?RETURN NEW ATN ò?
RETURN COPY ATN UNPLOT ?RETURN
REM C?RETURN SCROLL ATN P?
RETURN RETURN ATN $?RETURN
CLEAR ATN A?RETURN 4;E-RND-?
RETURN
8202 2?TAB Q?LN £?LN LEN ?YSLN
RUN ??DRNDLN H?5=RND?S?5?!?S?5?ó
?S?SCROLL RETURN ?4SGN LN RUN ?5
/?LN S?/LEN ñRETURN RETURN
GOSUB ?ACS 1**?POKE ??7?STR$
FOR FAST 67RND6úRNDLN .?LN
INPUT ?JLN RUN ?LPRINT LN ??..
FOR SGN LN ??GOSUB ??RNDLN ??
FAST GOSUB ??RNDBGOSUB ?LPRINT
**6?RND?SCROLL ??7?7TAN ?7?7TAN
FAST AT E0RND7LN ??FOR BGOSUB PI
SQR E?RNDGOSUB ?**FOR 7/GOSUB Y?
PRINT LN -?LN ??LN ??FOR LN ??
FOR LET ?U?YLN /DIM FAST SCROLL
RETURN
10249 CõPRINT LN RUN ?LET LPRINT
TAN VAL FAST E?RNDPRINT ?FAST 76
?RNDLN POKE ?RETURN D4-Y
52727 LN INPUT ?JLN RUN ?LET A ?
LN INPUT ?/òLPRINT LET LPRINT
AT JTAN 5CLEAR ACS LN X?5ñEXP
LN X?LN LET ?5CLEAR ACS LN X?5ñ:
?X?LN -?RETURN
8198 ?LN -?RETURN INKEY$CZ
RETURN
51890 "CYRETURN AT C?RETURN CHR$
ASN >=?RETURN TAB ASN GOTO ?
RETURN ,ASN O?PRINT E-RND7LET ñT
?VAL ñ VAL ñM?VAL ???5INPUT ?
LN S?/?5RND?LN S?/óLN ??5IF ?LN
S?/?Y?LN B?E?RNDFAST LN X?ñCOPY
COPY LN ? óPRINT LN RUN ?LET
RETURN "CõLN B?/INPUT LPRINT
VAL GOSUB ??RNDLN ??Y)LN U?Yñ
LPRINT ?U?LN I?LN SQR ?5??LN X?5
PRINT !LN S?LN -?RETURN ,C>
RETURN ;ASN CLS ?RETURN +ASN
CLS ?5.?LN S?JTAN 5X?LN S??CLS ?
5ñRNDACS ?TAB :"JLN RUN ?UTRND
RETURN )S?:(Y/5URND-??PRINT !LN
??Y?LN B?5RUN ?LN S?/JLN H?5RUN
?LN S?/8?NEW 3?5ñRNDACS ?C:5SRND
-ACS COPY LEN WUSR ?!?òùUTRND
CHR$ 5±UNPLOT .?/RY
50167 LN ABS ?5IF ?LN S??.?LN ??
STR$ LN ??STR$ AT SGN TAN
RETURN RNDABS CONT ?ñWRNDòLN ??
RETURN 0SúRETURN RNDKöLN -?ó/
INPUT RETURN (M÷?CôRETURN $4òóòú
ACS COPY òLN ³?A ?DDGOSUB ??RNDù
?U÷?RETURN $C!RETURN (4òJTAN ?
TAN YñTAN EôRND9ñWRNDJMö?úY4£
ACS ?4KACS LIST ACS RNDFAST 5ö?O
ASN CONT ?LPRINT ?FFAST LN
SCROLL ?LPRINT óACS ?CNEXT J?6ù?
Uö?LN ??RETURN ñ4"Y5LN U?5SAVE ?
LN S?Uö?5õ??ôS**?TAN Eù?)M
GOSUB ?GOSUB ??RNDGOSUB ?SQR
INT ³FAST LN ???NLPRINT ""GOSUB
?ñ?LN ??) LN ??E?RNDGOSUB ?ñ?;6
ñ?ñ ?COS :LN -?LN S?RETURN ñ
ASN ??RETURN 4úLN ?ACOPY FAST
LN -?RETURN =TAB CONT ?LN H?
LPRINT ?RETURN COPY 4£5SGN FOR
LN X?5???S?Y6?U?FAST 5??LN S?LN
-?LN ??RETURN (46LPRINT LN **?5
STR$ VAL LN X?5??LN S?LN -?LN 3?
5AT SGN LN X?5???S?LN -?LN 3?
LPRINT Y5LN U?5???S?I+FAST LN -?
RETURN (CRAND RETURN "4õLN ??/?
RETURN INKEY$4!5RND?LN S?/?
RETURN CHR$ 4"LN ??5U?LN S?/?LN
ABS ?/?LN S?LN -?FAST LN ??
RETURN (4NLN -?LN H?E-RND??LN X?
/"LN -?RETURN TO TAB CONT ?LN O
?5??LN S?LPRINT Y5LN U?5???S?
LPRINT Y5LN U?5H??S?5??LN S?LN ?
?RETURN )CùLPRINT X""LN -??5?LN
-?/FOR ?ññ /ùLN POKE ?ñ GCOS £)
ù?>TAN B.GOSUB ???LIST INT º
STR$ LN ??FOR SGN ;FOR TAN Eñ?6õ
?TAN ?LCOS Eõ?FOR GOSUB KGOSUB ?
õ?TAN FAST Eõ?GOSUB ?ñ?BGOSUB ?
FAST AT LPRINT LN ??VAL FAST LN
??LPRINT AT ?7?TAN FOR ö!?
RETURN CñACS ??FOR 5 ACS T3Kñ
;FOR DFOR (PRINT TAN JPRINT LN ?
?LN ??RETURN + AND RND?RETURN ;
ABS RND?YFAST LN B?LN -?PRINT
LN ??LET RETURN +CôRETURN -47AT
??RETURN 4ôPRINT FAST /PEEK
FAST 5??LN X?LN NEXT ?YFAST 5??
LN U?/ZPRINT VAL /0RETURN /C(
RETURN *TAB CONT ?LN V?5)?LN S?/
BLN V?5CLEAR ?/NEXT YLPRINT LN B
?LET RETURN COS RETURN +C)LN V?
5BFOR LN X?5GOSUB ?LN X?/SCROLL
LN V?Y;LN B?/<>YSGN ?B?RETURN )4
USR LN -?/INT RETURN PEEK 4?LN ?
?5A ?X?RETURN USR 4>LN ??5???S?ñ
??VAL FAST TAN ??TAN RETURN
CODE 4G5õ?YELN U?YFAST LN B?I
COPY LN 5?YSGN LN B?5>?/USR Eõ?
GOSUB ?õ?JGOSUB ???COS ,?TAN
RETURN RND4õ5ARND/VRETURN ABS 4)
LN ??5ACS ?LN X?YCODE 5???U?
RETURN INT ASN ??RETURN LEN 4,
LN -?LN S?LN -?Y5LN U?5>=?/º77
LN ??FOR TAN RETURN SGN 4+LN ??5
LIST ??S??PCOS ACS ?5ñ TAB ??
TAN RETURN SQR TAB CONT ?LN ??5ú
??S?JXACS ?CòINT ¹??A )RND ö!
GOSUB ?Kñ;ZACS >·GOSUB ?·GOSUB ?
(LIST ??TAN LN H?LN -?PRINT Y
FAST LN B?LN H?YSGN LN B?LET
TAN LN -?RETURN -PRINT ATN -?
RETURN (C-RETURN RNDK$RETURN A
USR ??>=µ?LET ATN ??TAN LN ??/
PLOT LN H?/LET 5??/??J??J?7TAN
LN S?RETURN ASN >?YE/PLN ??Y5/I
)(BLN A?LN $?Uõ??£E?RND6?RNDöô
LN B?(CLS $4PLOT LPRINT GOSUB ??
RNDTAN 5Eú/ó5"RNDYLN LN B??LN B?
??B?LN I?LN SQR ?5FOR ?/GOSUB
RETURN ,TAB CONT ?TAN LN ??
RETURN
10245 ?/!YE5ORNDLN U?Y65MRND?U?
LN -?LN S?FAST FAST LN -?LN I?Y7
LN B?5GOSUB ?LN X?LPRINT LN X?Y6
77LN U?LPRINT GOSUB ??RND???LN -
?LN S?FAST FAST YELN U?576LN X?
LPRINT LN X?77YGOSUB LN B?Y?LN U
?YB5GOSUB ?LN U?YIF LPRINT LN ??
FOR ?U?5 /?LN -?RETURN LN )?
LET RETURN AABS CONT ?RETURN 0
AND CONT ?CHR$ 0ö ?ù/ TO FAST E
-RND)õ ;6-RNDLPRINT TAN LN -?LN
S?RETURN ñC1PRINT FAST 5*?LN S?
LPRINT LET RETURN TAB ??YFOR
LN B?LN S?Y5LN U?LN -?5V??S?
GOSUB ?ñ?VAL FAST LN ò?6ñ?FAST
LN PAUSE ?RETURN
10249 KPRINT LN $?/LIST SGN
GOSUB ?FAST AT LPRINT LN ³?AT
GOSUB ?ñ?FAST LN ò?ñ3 LN ??
LPRINT TAN FAST LN LET ?LPRINT
RETURN ?""J?FY
48672 £RNDñSAVE òùYL?TAN ?7Y
48672 /PAUSE LN ò?FAST FAST LN
PAUSE ?RETURN
10257 C!RETURN 0SLET RETURN AK
GOSUB LN $?/CONT 5 SGN ,RETURN
-C(RETURN LC?CHR$ 0DFAST DDAT ùö
?ù</CONT SGN ,RETURN -PRINT LN
NEW ?LET ""???Y.PRINT LN I?LN
SQR ?5??LN X?YYLN B?LET LN B?YM5
KRNDLN U?5,RND?S?Y4/**?PCOS ?N
COS RTAN ?PCòRTAN ?NCOS RTAN E-
RND7(CPLOT RETURN INKEY$ASN ??
RETURN CHR$ ASN ??RETURN "ASN ??
7LN I?RETURN OR 4ú5??LN S?YABS
/?RETURN AND 4õ5·?/LIST PRINT Y
B5GOSUB ?LN U?LET RETURN =4ôY
TAB /GRETURN <>4ôYASN /8RETURN >
C+RETURN <4÷YASN LN 5?/<RETURN
>=4ú5CóLN X?YPAUSE /÷RETURN <=
TAB CONT ?YIF LN 5?LN -?RETURN
AND ASN ,?TAN LN B?EúRND7LN ??
FOR LN ??FOR ?X?LN X?6õ?6÷?TAN E
õ?QCOPY 7TAN 5??LN S?LN 3?LN -?
PRINT 5N?LN S?LN 3?5X?LN S?52?
LN S?LET RETURN =4ôYTAB /A
RETURN <>4ôYASN /2RETURN >4÷Y
ASN LN 5?/!RETURN <C<RETURN >=4ô
Y AND /·RETURN <=TAB CONT ?5Có
LN X?YABS ?+?E÷?GOSUB ?ñ?úWOY""
RETURN COS 7ó/POKE 5R??S?LN
SCROLL ò5VRNDACS QTAN 5LEN ??S?5
VRNDACS PLOT ?÷ò5ò LN **ù""FAST
LN 2?SGN ??ú5ò LN **ù""LN 2?COS
LN 2?COS ??E£RND/SCROLL óóóVAL ó
óóóVAL LN EXP ?5ó LN **ùAT LN 2ù
7Y
28963 7AT ?7?7QREM 7?7?7TAN 77?7?
ù7U£RND1""U$RND0TAN LN -?LN S?Y5
LN U?YGOSUB LN B?Y?5ñ?LN U?5??
LN S?LN H?5???S?7D7FAST FAST AT
Eñ?LN COS :AT LN ??GOSUB ?ñ?TAN
Eñ???<Q /óEñ??LCOS GOSUB KTAN
FAST LN ??5GOSUB ?LN X?LPRINT
LN X?5Dù?X?LN ?5??LN S?5FOR SGN
?X?EôRND9QCOPY FQCOPY FQ 6ù?Y5E?
RNDLN U?I:Uõ??LN X?5ATN ??S?£JM5
RNDöô?7(UNPLOT $4RUN 54 6?RNDE0
RNDñ? ù6ñ?6õ?TAN ?¸RND?:RND?)RND
?1RND?4RNDFOR ?7RND?? $$;?LOAD
?REM
30241 :$LN ATN ?5 6??5ú 6??LN X?
LN X?LN X?LN X??R? ² · õµ õö ²
ö ²óô·öó ±² ±² ±² ²² öµ µ ²
³ ³ñ²³ô ´÷ ´÷ ´÷ õµõõö õ õõ õ
ò õõ µ òñ òñ òñ ó õµ õµ ÷
¶ õµ ¶³ö µõ µõ µõ)R?ñ LN IF ?
LN .??A?¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸
¸¸¸¸¸¸¸¸ BY: S T E V E N R E
I D ** ¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸
¸¸¸¸¸¸¸¸)LEN ?ñ? LN IF ?LN .?LN
X?LN X?LN X?LN X????STOP THE O,S
BEFORE THEY BONK YOU**)INKEY$
?ñ8 LN IF ?LN .?LN X?LN X?LN X?
LN X??4? USE ARROW KEYS FOR MOVE
MENT....) ?ñ4 LN IF ?LN .?LN X?
LN X?LN X?LN X??<=?PRESS ENTER T
O BEGIN GAME PLAY??)V?ñ4 LN IF ?
LN .?LN PI?LN Eú5! FAST LN ARND
FAST 5 4SGN LN CLEAR ?SGN ;6??
LN ARNDFAST 5 4SGN LN CLEAR ?6??
LN ARNDFAST 5COPY ZSGN BGOSUB ?
PAUSE 4??J?5ó FAST E??SGN ;6???Y
?50 FAST E??SGN BFOR GOSUB ?6??E
??6??E??6??5 ?GOSUB ?ñ?LN ??5!
LN ??5ñ GOSUB ? ?DùFAST 5ô SGN
FOR LN ??5ò GOSUB ? ?DùFAST 5ú
SGN FOR LN ??5ó GOSUB ? ?DùFAST
5ô SGN FOR LN ??5ô GOSUB ? ?Dù
FAST 5+ SGN FOR LN ??5õ GOSUB ?
?DùFAST 5) SGN FOR LN ??5ö
GOSUB ? ?DùFAST 5ú SGN FOR LN ??
5÷ GOSUB ? ?DùFAST 5) SGN FOR
LN ??5! GOSUB ? ?DùFAST 5+ SGN
FOR LN ??5 FAST 5+ SGN 7GOSUB ?
´?6¶?E´?FAST 5 SGN ??LN PRINT !
?"? )ú?ññ LN IF ?53 LN RUN ??2?
)1?ññ LN IF ?5 FAST E´?SGN ??
LN PRINT !?INKEY$? )R?ñ
ú LN IF ?5+ FAST E´?SGN ??LN
PRINT !??? )??ñú LN IF
?5ñ FAST 5ñ SGN ??LN PRINT !?ññ
LN IF ?5ñ FAST 52 SGN ??LN
PRINT !?/? )*?ññ LN IF ?5= FAST
5ñ SGN ??LN PRINT !?M? )L?ññ LN
IF ?5= FAST 52 SGN ??LN PRINT !?
ATN ? )ACS ?ññ LN IF ?LN .?E´?76
´?GOSUB ?¶?BGOSUB ?IF IF ?5<
FAST 5? SGN ??LN PRINT !?CLS ?!!
)RAND ?ñò LN IF ?5ò FAST 5? SGN
??LN PRINT !?-?!!)=?ñò LN IF ?5ó
FAST 5õ SGN ??LN PRINT !?L?!!)J
?ñò LN IF ?5? LN RUN ????!!)??ñò
LN IF ?5; LN RUN ????!!)??ñò
LN IF ?5ô FAST 5õ SGN ??LN
PRINT !???!!)??ñò LN IF ?5; LN
RUN ??¸?!!)¶?ñò LN IF ?5õ FAST 5
õ SGN ??LN PRINT !?7?!!)5?ñò LN
IF ?5; LN RUN ??R?!!)P?ñò LN IF
?5ö FAST 5õ SGN ??LN PRINT !?
ABS ?!!)SQR ?ñò LN IF ?5; LN
RUN ??NEW ?!!)SLOW ?ñò LN IF ?5ù
FAST 5? SGN ??LN PRINT !?ñ?!!)
COPY ?ñò LN IF ?5ú FAST 5ñ SGN ?
?LN PRINT !?0?!!),?ñò LN IF ?5:
LN RUN ??M?!!!!)I?ñô LN IF ?51
LN RUN ????!!)??ñò LN IF ?5"
FAST 5ñ SGN ??LN PRINT !???!!)??
ñò LN IF ?5: LN RUN ????!!!!)??ñ
ô LN IF ?51 LN RUN ??"?!!)¹?ñò
LN IF ?5£ FAST 5? SGN ??LN
PRINT !?A?!!)8?ñò LN IF ?5?
FAST 5õ SGN ??LN PRINT !?AT ?!!)
Z?ñò LN IF ?5; LN RUN ??STR$ ?!!
)PEEK ?ñò LN IF ?5( FAST 5õ SGN
??LN PRINT !?LIST ?!!)INPUT ?ñò
LN IF ?5; LN RUN ??ô?!!)ò?ñò LN
IF ?5) FAST 5õ SGN ??LN PRINT !?
3?!!)1?ñò LN IF ?5; LN RUN ??N?!
!)L?ñò LN IF ?5> FAST 5õ SGN ??
LN PRINT !???!!)??ñò LN IF ?5?
LN RUN ????!!)??ñò LN IF ?5; LN
RUN ??
22024 ??ñò LN IF ?LN .?E??FAST E?
?SGN ??LN PRINT !?<?X)>?ññ LN
IF ?E??FAST E??SGN BGOSUB ?TAB V
?E??FAST E??SGN BGOSUB ?TAB V??
SLOW ?E??FAST E??SGN ??LN PRINT
!?ATN ?-)ACS ?ññ LN IF ?LN .?E??
6??E??6??LN FOR ?LN ??LN RND?LN
??LN N??RUN ?7)PLOT ?ññ LN ??LN
X?LN 2?TAB /?E??FAST 5ñ SGN B
FOR GOSUB ?6??LN ??LN RND?LN ??
LN N??C?6)B?ññ LN ??LN X?LN 2?
TAB ??E??FAST 5ñ SGN ;6??LN ??
LN RND?LN ??LN N????5)??ññ LN ??
LN X?LN 2?TAB ??E??FAST 5ñ SGN B
FOR GOSUB ?6??LN ??LN RND?LN ??
LN N??·?8)¶?ññ LN ??LN X?LN 2?
TAB 9?E??FAST 5ñ SGN ;6??5ñ
FAST 5÷ SGN 7GOSUB ?¸?6º?E¸?
GOSUB ? ?DùSTR$ LN ??FOR SGN
FAST 5 SGN BGOSUB ?ASN ABS ??ò?
5 FAST 5M SGN 7GOSUB ?£?6:?5ñ
LN ??LN LIST ?6(?E£?76£?GOSUB ?:
?BGOSUB ?IF LLIST ??POKE ?E¸?
GOSUB ? ?DùSTR$ LN ??FOR SGN
FAST E¸?FAST 5ñ SGN ;GOSUB ? ?Dù
STR$ LN ??FOR SGN SGN ??LN
PRINT !?L?O)K?ññ LN IF ?LN ARND
FAST 5COPY ZSGN BGOSUB ?PAUSE ??
? TO ?LN ARNDFAST 5COPY ZSGN B
GOSUB ?PAUSE B?E¸?FAST 5ñ SGN ;
GOSUB ? ?DùFAST E¸?FAST 5ñ SGN ;
GOSUB ? ?DùSTR$ LN ??FOR SGN
FAST E??FAST E¸?FAST 5ñ SGN ;
GOSUB ? ?DùSTR$ LN ??FOR SGN
SGN BFOR GOSUB ?LN LIST ?SGN ;
SGN FOR LN ??E¸?GOSUB ? ?DùFAST
E¸?GOSUB ? ?DùSTR$ LN ??FOR SGN
FAST LN ARNDFAST 5EESGN LN
CLEAR ?FAST 5ñ SGN BFOR GOSUB ?
SGN ;SGN FOR LN ?????LN ARND
FAST 5COPY ZSGN BGOSUB ?PAUSE D?
E¸?GOSUB ? ?DùFAST E¸?GOSUB ? ?D
ùSTR$ LN ??FOR SGN FAST E??FAST
E¸?GOSUB ? ?DùSTR$ LN ??FOR SGN
SGN BFOR GOSUB ?LN LIST ?SGN ;
SGN FOR LN ??E¸?FAST 5ñ SGN ;
GOSUB ? ?DùFAST E¸?FAST 5ñ SGN ;
GOSUB ? ?DùSTR$ LN ??FOR SGN
FAST LN ARNDFAST 5EESGN LN
CLEAR ?FAST 5ñ SGN BFOR GOSUB ?
SGN ;SGN FOR LN ??E¸?GOSUB ? ?Dù
STR$ LN ??FOR SGN FAST E¸?FAST 5
ñ SGN ;GOSUB ? ?DùSTR$ LN ??FOR
SGN SGN ??LN PRINT !LN 5?E=?
FAST 50 SGN BGOSUB ?ASN VAL ?E=?
FAST 5 SGN BGOSUB ?ASN VAL ?E=?
FAST 5- SGN BGOSUB ?ASN VAL ??
SCROLL ?E¸?GOSUB ? ?DùFAST 5
SGN FOR LN ???<=?0) AND ?ññ LN
IF ??POKE ??FOR ?O)REM ?ññ LN
IF ?E¸?FAST 5ñ SGN ;6¸?E¸?76¸?
GOSUB ?º?BGOSUB ?IF P?E??FAST E?
?SGN ??LN PRINT !LN 5?E=?FAST 5
SGN BGOSUB ?ASN RND?E=?FAST 5X
SGN BGOSUB ?ASN RND??*?E??FAST 5
ñ SGN ;6??5ñ GOSUB ? ?DùSTR$ LN
??FOR SGN FAST 5 SGN BGOSUB ?
TAB R?5ó GOSUB ? ?DùSTR$ LN ??
FOR SGN FAST 5 SGN BGOSUB ?TAB
R?5õ GOSUB ? ?DùSTR$ LN ??FOR
SGN FAST 5 SGN BGOSUB ?TAB R?5÷
GOSUB ? ?DùSTR$ LN ??FOR SGN
FAST 5 SGN BGOSUB ?TAB R??U????
5 FAST 5 SGN ??LN PRINT !??? *
** YOU COMPLETED A LEVEL ***
*
*** BONUS POINTS AWARDED ****
.
PRESS ANY KEY TO CONTINUE ON .)
ASN ?ñ4 LN IF ?LN .?E??FAST 5(ñ
FAST LN ARNDFAST 5?ñSGN LN
CLEAR ?FAST 5? SGN ;??LPRINT
SGN ;FAST ??SGN ;6??5ó FAST 5ú
SGN ??LN PRINT !?N?SCORE: )G?ñ÷
LN IF ?E??LN INPUT ?LN .?E??
FAST 5 SGN BGOSUB ?PAUSE LLIST
?E??FAST 5ñ SGN BFOR GOSUB ?6??
LN PI?LN Eú?GOSUB ?5 FAST E??
FAST 5COS SGN LN )?SGN 7GOSUB ?
£?6:?5ñ LN ??LN LIST ?6(?E£?76£?
GOSUB ?:?BGOSUB ?IF ó?TAN 5:RND
ñFAST 5?RND)?SGN ;?TAN 5õ LN =
RNDLN ??LN RND?LN ??LN N????)??ñ
LN ??LN X?LN 2?ASN ???PI?5M
LN =RNDLN ??LN RND?LN ??LN N??±?
)±?ñ LN ??LN X?LN 2?TAB -????
TAN LN EúLN X?LN X?LN X?LN X??D?
² · õµ õö ²ö ²óô·öó ±² ±² ±²
²² öµ µ ²³ ³ñ²³ô ´÷ ´÷ ´÷
õµõõö õ õõ õò õõ µ òñ òñ òñ
ó õµ õµ ÷¶ õµ ¶³ö µõ µõ µõ
)D?ñ LN IF ?LN .??/?¸¸¸¸¸¸¸¸¸¸¸
¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸ BY: S T
E V E N R E I D ** ¸¸¸¸¸¸¸¸¸¸¸
¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸)S?ñ? LN
IF ?LN .?LN X?LN X?LN X?LN X??
PEEK ? ****YOU"VE BEEN BONKED*
*** )N?ñ4 LN IF ?LN .?LN X?LN
X??!? YOU SCORED
)CONT ?ñ4 LN IF ?LN .?5ñ
GOSUB ? ?DùSTR$ LN ??FOR SGN
FAST 5 SGN BGOSUB ?TAB U?E??
FAST 5? SGN ;6??5ó GOSUB ? ?Dù
STR$ LN ??FOR SGN FAST 5 SGN B
GOSUB ?TAB ??E??FAST 5? SGN ;6??
5õ GOSUB ? ?DùSTR$ LN ??FOR SGN
FAST 5 SGN BGOSUB ?TAB ¶?E??
FAST 5? SGN ;6??5÷ GOSUB ? ?Dù
STR$ LN ??FOR SGN FAST 5 SGN B
GOSUB ?TAB G?E??FAST 5? SGN ;6??
5$ FAST 5? SGN ??LN PRINT !E??
LN INPUT ??ACS ? POINTS**)TAB ?ñ
ù LN IF ?LN .?5$ FAST 5? SGN ??
LN PRINT !LN 5?E=?FAST 59 SGN B
GOSUB ?PAUSE SAVE ??:?E=?FAST 5
SGN ;6=?E=??LN RUN ??SLOW ?5:
FAST 5 SGN ??LN PRINT !LN X?LN
X?LN X?LN X????PRESS ENTER TO PL
AY GAME AGAIN..)E?ñ4 LN IF ?LN .
?LN PI?LN Eú?0?TAN $
ú ó? REM MCODER
II COPYRIGHT 1983 D C
THRELFALL COMPILER AT 17300 PRO
G AT 20500
10 REM *BONKERS*SLR/1985/2012*
20 LET S=0
25 LET L=10
30 PRINT ,,,," ² · õµ õö ²ö
²óô·öó ±² ±² ±² ²² öµ µ ²³
³ñ²³ô ´÷ ´÷ ´÷ õµõõö õ õõ õò
õõ µ òñ òñ òñ ó õµ õµ ÷¶
õµ ¶³ö µõ µõ µõ"
40 PRINT "¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸
¸¸¸¸¸¸¸¸¸¸¸¸ BY: S T E V E N
R E I D ** ¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸
¸¸¸¸¸¸¸¸¸¸¸¸"
50 PRINT ,,,,"STOP THE O,S BEF
ORE THEY BONK YOU**"
60 PRINT ,,,," USE ARROW KEYS
FOR MOVEMENT...."
70 PRINT ,,,,"PRESS ENTER TO B
EGIN GAME PLAY??"
80 GOSUB 575
85 CLS
90 LET X=8+RND/8192
100 LET Y=RND/8192
101 IF RND>16383 THEN GOTO 105
102 LET Y=3+Y
103 GOTO 110
105 LET Y=28-Y
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
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 REM LET C$="PEEK (PEEK 1639
8+256*PEEK 16399)"
275 PRINT AT X,Y;
280 PRINT "X";
282 IF X1=X AND Y1=Y THEN GOTO
310
284 PRINT AT X1,Y1;"-"
290 LET X1=X
300 LET Y1=Y
310 GOSUB 525
312 IF INKEY$="7" THEN LET X=X-
1
314 IF INKEY$="6" THEN LET X=X+
1
320 REM LET Y=Y-(INKEY$="5")+(
INKEY$="8")
322 IF INKEY$="5" THEN LET Y=Y-
1
324 IF INKEY$="8" THEN LET Y=Y+
1
330 FOR C=1 TO 7
335 IF Z(C)<>0 THEN GOTO 340
336 FOR M=0 TO 50
337 LET J=SGN -1
338 NEXT M
339 GOTO 398
340 PRINT AT Z(C),Z(C+1);"O";
341 IF RND>16383 THEN GOTO 350
342 IF RND>16383 THEN LET Z(C+1
)=Z(C+1)+SGN (Y-Z(C+1))
343 LET Z(C)=Z(C)+(INT (RND/109
22-1))
344 GOTO 370
350 IF RND>16383 THEN LET Z(C)=
Z(C)+SGN (X-Z(C))
360 LET Z(C+1)=Z(C+1)+(INT (RND
/10922-1))
370 PRINT AT Z(C),Z(C+1);
375 GOSUB 550
376 IF P<>156 AND P<>128 AND P
<>22 THEN GOTO 390
380 LET Z(C)=0
385 PRINT "0";
387 GOTO 398
390 PRINT "O";
398 LET C=C+1
400 NEXT C
410 PRINT AT X,Y;
415 GOSUB 550
420 IF P<>0 AND P<>189 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 REM CLS
470 PRINT AT 0,0;" *** YOU COMP
LETED A LEVEL ***
**** BONUS P
OINTS AWARDED ****
. PRESS ANY K
EY TO CONTINUE ON ."
480 LET S=S+400+INT (RND/328+10
0)
490 PRINT AT 3,10;"SCORE: ";S
495 IF L>0 THEN LET L=L-1
500 GOSUB 575
510 CLS
520 GOTO 90
525 FOR M=0 TO L*200
527 LET J=SGN -1
530 NEXT M
535 RETURN
550 LET P=PEEK (PEEK 16398+256*
PEEK 16399)
560 RETURN
575 PAUSE 5
580 IF INKEY$<>"" THEN GOTO 575
585 PAUSE 50
590 IF INKEY$="" THEN GOTO 585
595 RETURN
600 CLS
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 REM LET S=S+(100 AND Z(1)=0
)+(100 AND Z(3)=0)+(100 AND Z(5)
=0)+(100 AND Z(7)=0)
651 IF Z(1)=0 THEN LET S=S+100
652 IF Z(3)=0 THEN LET S=S+100
653 IF Z(5)=0 THEN LET S=S+100
654 IF Z(7)=0 THEN LET S=S+100
660 PRINT AT 13,15;S;" POINTS**
"
670 PRINT AT 13,15;
673 GOSUB 550
675 IF P>37 THEN GOTO 710
680 LET P=P+128
690 PRINT CHR$ P;
700 GOTO 673
710 PRINT AT 14,0;,,,,"PRESS EN
TER TO PLAY GAME AGAIN.."
720 GOSUB 575
730 REM IF INKEY$="LPRINT "
THEN GOTO 800
740 CLS
750 GOTO 10
760 STOP
800 CLEAR
810 CLS
820 SAVE "BO2"
830 LET L=USR 20500
840 STOP