Machine Language version of Road Hog. Use Z (left) and . (right) to dodge the incoming cars.
PROG : 16509
D-FILE: 24606
VARS : 25399
E-LINE: 25400
STKBOT: 25400
STKEND: 25400
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?? ????E?
1 REM **ROAD HOG**SLR/1983***
2 REM
30241 :)LN ATN ?5£RND ñFAST 5$RND
)?SGN ;6??LN Eú5 6??LN ??5 6??
?*?5ú 6??E??FAST 5ñ SGN ;6??5ö
FAST 5+ SGN 7GOSUB ???6??5+
FAST E??SGN BFOR GOSUB ?FAST E??
FAST 5ú SGN ;SGN 7GOSUB ???6??E?
?FAST 5ñ SGN BFOR GOSUB ?FAST E?
?SGN ??LN PRINT !?TAB ? )AT ?ññ
LN IF ?LN .?E??76??GOSUB ???B
GOSUB ?IF C?E??76??GOSUB ???B
GOSUB ?IF ¹?5 FAST 5 SGN ??LN
PRINT !?ô?DAY:) ?ñô LN IF ?E??
LN INPUT ?LN .?TAN 5 FAST 5L
SGN 7GOSUB ???6??LN INPUT ?LN .?
5< FAST E??SGN ??LN PRINT !?PI?
º¹º )X?ñõ LN IF ?5= FAST E??SGN
??LN PRINT !??? ¸º¸ )??ñõ LN IF
?LN .?5??LN SAVE ?LN ??LN RND?
LN ??5??LN ??LN ??5??LN SAVE ?5?
?LN H?LN ??LN N??,?Z);?ññ LN ??
LN X?LN 2?TAB TAN ?E??FAST 5ò
SGN BGOSUB ?PAUSE TAN ?E??FAST 5
ñ SGN BFOR GOSUB ?6??LN ??5??LN
SAVE ?5??LN H?LN ??LN N??LLIST ?
.)LPRINT ?ññ LN ??LN X?LN 2?TAB
)?E??FAST 5; SGN BGOSUB ?ASN )?
IF )?E??FAST 5ñ SGN ;6??5CONT ó
FAST 5M FAST E??SGN BFOR GOSUB ?
FAST 5C SGN LN )?SGN ;6??5ñ
FAST E??SGN 7GOSUB ???6
22570 76??GOSUB ?
22695 IF Y?LN X?E??FAST 5< SGN B
GOSUB ?ASN ???E?E??FAST 5ú SGN ;
6??5ñ FAST 5 SGN ??LN PRINT !?µ
?SCORE:)??ñö LN IF ?E??LN INPUT
?LN .?5ò FAST 5 SGN ??LN PRINT
!?G?CARS:)B?ñõ LN IF ?E??LN
INPUT ??Z? )Y?ññ LN IF ?LN .?E??
76??GOSUB ???BGOSUB ?IF B?E??
FAST 5CONT óSGN ;6??LN ???*?5÷ 6
??LN ARND6??E??FAST 5;;SGN LN
CLEAR ?FAST 5ñ SGN ;6 ?E ?FAST 5
£ SGN ;6´?TAN E??FAST 5÷ SGN B
GOSUB ?TAB ??E??FAST E´?SGN ??
LN PRINT !?U?¸)T?ññ LN IF ?LN .?
E??FAST 5ù SGN BGOSUB ?TAB ??E??
FAST E´?SGN ??LN PRINT !???¸¸)??
ñò LN IF ?LN .?E??FAST 5" SGN B
GOSUB ?TAB AT ?E??FAST E´?SGN ??
LN PRINT !?<?¹¸¹)(?ñó LN IF ?E??
FAST 5ñ SGN ;FAST E´?SGN ??LN
PRINT !?P?¸º¸)M?ñó LN IF ?LN .?E
??FAST 5$ SGN BGOSUB ?TAB >?E??
FAST E´?SGN ??LN PRINT !?STOP ?º
¹¹º) TO ?ñô LN IF ?E??FAST 5ñ
SGN ;FAST E´?SGN ??LN PRINT !?ö?
¸ºº¸)ò?ñô LN IF ?LN .?E??FAST 5?
SGN BGOSUB ?TAB ??E??FAST E´?
SGN ??LN PRINT !?O?º¹¹º)K?ñô LN
IF ?E??FAST 5ñ SGN ;FAST E´?SGN
??LN PRINT !???¸ºº¸)??ñô LN IF ?
LN .?E??FAST 5) SGN BGOSUB ?TAB
Q?E??FAST E´?SGN ??LN PRINT !?¶?
º¹ó¹º)±?ñõ LN IF ?E??FAST 5ñ
SGN ;FAST E´?SGN ??LN PRINT !?E?
¸ººº¸)9?ñõ LN IF ?LN .?EORND6M
RNDTAN E??FAST 5) SGN BGOSUB ?
TAB EXP ?LN ATN ?E??FAST 5÷ SGN
BGOSUB ?TAB RAND ?E??FAST E´?
SGN ??LN PRINT !?GOSUB ? )GOTO ?
ññ LN IF ?LN .?E??FAST 5ù SGN B
GOSUB ?TAB 9?E??FAST E´?SGN ??
LN PRINT !?;? )*?ñò LN IF ?LN .
?E??FAST 5" SGN BGOSUB ?TAB ??E?
?FAST E´?SGN ??LN PRINT !??? )
??ñó LN IF ?E??FAST 5ñ SGN ;
FAST E´?SGN ??LN PRINT !??? )?
?ñó LN IF ?LN .?E??FAST 5$ SGN B
GOSUB ?TAB VAL ?E??FAST E´?SGN ?
?LN PRINT !?-? )>?ñô LN IF ?E
??FAST 5ñ SGN ;FAST E´?SGN ??LN
PRINT !?T? )P?ñô LN IF ?LN .?
E??FAST 5? SGN BGOSUB ?TAB -?E??
FAST E´?SGN ??LN PRINT !?SCROLL
? )STOP ?ñô LN IF ?E??FAST 5ñ
SGN ;FAST E´?SGN ??LN PRINT !?ú
? )ö?ñô LN IF ?LN .?E??FAST 5
) SGN BGOSUB ?TAB ??E??FAST E´?
SGN ??LN PRINT !?T? )O?ñõ
LN IF ?E??FAST 5ñ SGN ;FAST E´?
SGN ??LN PRINT !??? )??ñõ
LN IF ?LN .?E??FAST 5ò SGN ;6??E
?FAST 5ñ SGN BGOSUB ?TAB >?E´?
FAST 5ò SGN BFOR GOSUB ?6´?E ?
FAST 5ò SGN BGOSUB ?TAB J?E´?
FAST 5ò SGN BFOR GOSUB ?6´?E ?
FAST 5ó SGN BGOSUB ?TAB ATN ?E´?
FAST 5ñ SGN BFOR GOSUB ?6´?E ?
FAST 5õ SGN BGOSUB ?TAB NEW ?E´?
FAST 5ñ SGN ;6´?E ?FAST 5ö SGN B
GOSUB ?TAB ?E´?FAST 5ñ SGN ;6´?
TAN LN ??5ñ FAST 5 SGN ??LN
PRINT !?,?SCORE:)=?ñö LN IF ?E??
LN INPUT ?LN .?5= FAST E??SGN ??
LN PRINT !?INKEY$?CRASH)W?ñõ LN
IF ?LN .?5; LN =RND5= FAST E??
SGN ??LN PRINT !???CRASH)??ñõ
LN IF ?LN .?5; LN =RNDLN ??LN
RND?LN ??LN N??º?E)¹?ññ LN ??LN
X?LN 2?TAB 9?5>=£LN ??6¸?LN ??
LN RND?LN ??LN N??O?)O?ñ LN ??
LN X?LN 2?ASN TAN ??Q??G?E??
FAST 5ñ SGN ;FAST E??FAST 5ó
SGN ;SGN 7GOSUB ?£?6:?E??FAST E£
?FAST E????LPRINT SGN ;FAST ??
FAST 55 SGN LN )?FAST 5ñ ??
LPRINT SGN ;FAST ??SGN ;õ?FAST ?
2? )1?ññ LN ??SGN LN >?SGN B
GOSUB ?ASN P??ñ?E£?76£?GOSUB ?:?
BGOSUB ?IF CONT ?TAN TAN )
4? ñ ú - - 4 4 M U?
S" T"T") ?? ó ú " :
õB LET D=PEEK 16396+256*PEEK
16397
6 CLS
7 LET DAY=0
8 GOSUB 20
10 LET SC=0
15 GOTO 70
20 LET X=10
22 LET DAY=DAY+1
30 FOR H=6 TO 21
40 FOR G=21-H TO H+10
45 PRINT AT H-1,G;" "
50 NEXT G
60 NEXT H
62 PRINT AT 0,0;"DAY:";DAY
65 RETURN
70 FOR S=0 TO 49
80 GOSUB 200
90 GOSUB 300
100 PRINT AT 19,X;" º¹º ";AT 20
,X;" ¸º¸ "
110 LET I$=INKEY$
120 IF I$="Z" AND X>2 THEN LET
X=X-1
130 IF I$="." AND X<25 THEN
LET X=X+1
131 LET TT=1000+(50-S)*40
135 FOR T=1 TO TT
136 NEXT T
140 GOSUB 400
150 IF A<>19 THEN GOTO 90
160 LET SC=SC+10
161 PRINT AT 1,0;"SCORE:";SC
162 PRINT AT 2,0;"CARS:";S;" "
170 NEXT S
180 LET SC=SC+1000
190 GOSUB 20
195 GOTO 70
200 LET A=7
201 REM LET R=INT (6*RND+1)
202 REM LET MRND=USR 16550
203 LET MRND=RND
208 LET R=INT (MRND/6553+1)
209 REM PRINT AT 1,15;"MRND:";M
RND;" R";R;" "
210 LET Q=R+12
220 RETURN
300 IF A=7 THEN PRINT AT A,Q;"¸
"
310 IF A=9 THEN PRINT AT A,Q;"¸
¸"
320 IF A=11 THEN PRINT AT A,Q;"
¹¸¹";AT A+1,Q;"¸º¸"
330 IF A=13 THEN PRINT AT A,Q;"
º¹¹º";AT A+1,Q;"¸ºº¸"
340 IF A=15 THEN PRINT AT A,Q;"
º¹¹º";AT A+1,Q;"¸ºº¸"
350 IF A=17 THEN PRINT AT A,Q;"
º¹ó¹º";AT A+1,Q;"¸ººº¸"
370 RAND
390 RETURN
400 IF A=17 THEN GOSUB 600
410 IF A=7 THEN PRINT AT A,Q;"
"
420 IF A=9 THEN PRINT AT A,Q;"
"
430 IF A=11 THEN PRINT AT A,Q;"
";AT A+1,Q;" "
440 IF A=13 THEN PRINT AT A,Q;"
";AT A+1,Q;" "
450 IF A=15 THEN PRINT AT A,Q;"
";AT A+1,Q;" "
460 IF A=17 THEN PRINT AT A,Q;"
";AT A+1,Q;" "
470 LET A=A+2
480 REM LET Q=Q-(2 AND R=1 OR R
=2)-(1 AND R=3)+(1 AND R=5 OR R=
6)
481 IF R=1 THEN LET Q=Q-2
482 IF R=2 THEN LET Q=Q-2
483 IF R=3 THEN LET Q=Q-1
484 IF R=5 THEN LET Q=Q+1
485 IF R=6 THEN LET Q=Q+1
490 RETURN
501 GOSUB 30
510 PRINT AT 1,0;"SCORE:";SC
520 PRINT AT 20,X;"CRASH"
521 PAUSE 25
530 REM LET O=SIN PI
540 PRINT AT 20,X;"CRASH"
550 REM LET O=SIN PI
551 PAUSE 25
552 IF INKEY$="E" THEN LET L=
USR 3292
553 IF INKEY$<>"" THEN GOTO 5
560 GOTO 520
600 FOR C=X+1 TO X+3
610 IF PEEK (D+C+A*33+1)<>CODE
" " THEN GOTO 500
620 NEXT C
630 RETURN
700 SAVE "RHML"
710 LET L=USR 20500