Home » Personal collection » Acorn tapes » Commercial_Releases » box04_tape09a_acorn_loony_loco.wav » ....2

....2

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn tapes » Commercial_Releases » box04_tape09a_acorn_loony_loco.wav
Filename: ....2
Read OK: ✔
File size: 160C bytes
Load address: FFFF0E00
Exec address: FFFF8023
Duplicates

There are 5 duplicate copies of this file in the archive:

File contents
   10DIMA$(4),HS$(5),HS(5),blo 4:FORT=1TO5:HS$(T)="Loony..........":HS(T)=150:NEXT
   11REM@
   12*FX200,2
   20IF INKEY-256<>0 AND INKEY-256<>-1 THEN Sp=100 ELSE Sp=250
   30?&3439=Sp:?&3A90=Sp
   40?&92=3:?&93=64:DIM S% 100:P%=S%:[OPT0
   50PHA:LDA&92:STA&A2:PLA:RTS:]
   60?&220=S%:?&221=S% DIV256
   70*FX14,6
   80ss=0
   90ENVELOPE1,4,5,0,-5,10,0,10,126,0,0,-126,126,126:ENVELOPE2,1,3,20,1,1,3,1,126,0,0,-126,126,126
  100*FX11,0
  110SC1=1:VDU23,148,255,255,255,0,0,0,0,0
  120MODE4:VDU23;8202;0;0;0;0;:PRINTTAB(18,6);"Menu"TAB(17,7);STRING$(6,CHR$148);
  130PRINTTAB(5,9);"1).......";:COLOUR0:COLOUR129:PRINT;"START GAME":COLOUR128:COLOUR1
  140PRINTTAB(5,11);"2).......View High Score Table"
  150PRINTTAB(5,13);"3).......Change Starting Screen"
  160PRINTTAB(11,16);"Select Your Choice"
  170MOVE0,400:DRAW0,900:DRAW1279,900:DRAW1279,400:DRAW0,400
  180A$=GET$:A=VALA$:IF A<1 OR A>3 THEN 180
  190ONA GOTO200,660,600
  200SC=SC1:MODE5:FORT=0TO4:T?&CB=0:NEXT:VDU23;8202;0;0;0;:lives=3
  210IF SC=3 THEN PROCCAR ELSE IF SC=2 THEN PROCROOF ELSE IF SC=4 THEN PROCENGINE ELSE PROCTRAIN
  220IF D=0 THEN PROCNEXT ELSE FORT=100TO0STEP-5:SOUND1,1,T,1:NEXT:lives=lives-1
  230IF lives=0 THEN 690
  240IF SC=5 THEN 730
  250GOTO210
  260DEFPROCROOF:PROCCHAR
  261*FX11,0
  262*FX15,0
  270A$=CHR$128+CHR$129:B$="  ":C$=CHR$143+CHR$144+CHR$145+CHR$146+CHR$146
  280COLOUR128:CLS:VDU19,0,4;0;19,1,0;0;19,2,3;0;
  290GCOL0,3:FORT%=0TO1023STEP8:MOVE0,T%:DRAW1279,T%:NEXT:GCOL0,1:FORT%=0TO1279STEP16:MOVET%,0:DRAWT%,1023:NEXT
  300VDU28,2,28,17,3,12,17,131,26
  310PRINTTAB(2,14);SPC(15);TAB(2,15);SPC(15);TAB(2,17);SPC(15);TAB(2,18);SPC(15):COLOUR129:PRINTTAB(2,16);SPC(15);
  320COLOUR129:COLOUR2:PRINTTAB(4,16);A$;B$;A$;B$;A$
  330COLOUR128:COLOUR3:PRINTTAB(2,19);CHR$130;STRING$(13,CHR$135);CHR$131;TAB(17,14);CHR$136;TAB(17,15);CHR$137;TAB(17,17);CHR$137;TAB(17,18);CHR$138
  340FORT%=0TO7:RESTORE420:FORG%=0TO31:READD:G%?(&7120+(T%*32))=D:NEXT,:COLOUR2:PRINTTAB(17,19);CHR$142
  350COLOUR1:PRINTTAB(17,16);CHR$137:COLOUR0:COLOUR131:PRINTTAB(7,18);C$:GCOL0,2:VDU5:MOVE128,415:VDU132:MOVE1024,415:VDU133:MOVE1088,543:VDU139,10,8,140,10,8,141,4,30
  360COLOUR131:FORT=2TO5:PRINTTAB(2,T);SPC(16);:NEXT
  370GCOL0,0:X%=851:FORT%=128TO1152STEP8:MOVET%,827:DRAWT%,X%:A%=RND(4):IF A%>=2 AND X%<859 X%=X%+4 ELSE IF X%>827 X%=X%-4
  380NEXT
  381*FX15,0
  390PROCscore:COLOUR131:CALL&31F8
  400IF ?&95=255 THEN D=0 ELSE D=1:COLOUR128:COLOUR1:PRINTTAB(6,11);"Ahh";:COLOUR2:PRINT;"\";
  410ENDPROC
  420DATA255,248,255,255,0,0,0,0,255,240,255,239,1,1,3,3,255,240,255,255,0,0,8,8,255,240,255,255,0,0,0,0
  430DEFPROCCAR:VDU23,128,44,44,44,44,44,44,44,44:COLOUR128:CLS:VDU19,0,0;0;19,2,5;0;19,1,1;0;:FORT%=6TO26STEP10:PROCtab(T%):NEXT:COLOUR3:FORT%=5TO30:PRINTTAB(10,T%);CHR$128;:NEXT
  440A$="Buffet Car":C%=1:FORT%=1TOLENA$:COLOURC%:PRINTTAB(T%+4,0);MID$(A$,T%,1):C%=C%+1:IF C%=4 C%=1
  450NEXT
  460PROCscore:CALL&38B0
  470IF ?&62=?&93 THEN D=0 ELSE D=1
  480ENDPROC
  490DEFPROCtab(X%)
  500A$=STRING$(10," "):COLOUR129:PRINTTAB(0,X%);A$:A$=STRING$(9," "):COLOUR131:PRINTTAB(0,X%+1);A$;TAB(0,X%+2);A$;
  510COLOUR128:ENDPROC
  520DEFPROCENGINE
  530COLOUR128:CLS:VDU19,0,0;0;19,2,5;0;19,1,1;0;
  540VDU23,148,255,255,255,0,0,0,0,0,23,147,0,0,0,0,0,255,255,255
  550COLOUR3:PRINTTAB(6,11);"12345678"
  560COLOUR1:PRINTTAB(15,9);"Moves":COLOUR2:PRINTTAB(1,22);"Escape For Restart"
  570PROCscore:CALL&3C12
  580IF ?&A2=?&92 THEN D=1 ELSE D=0:COLOUR1:PRINTTAB(7,8);"Brakes";TAB(9,10);"On"
  590ENDPROC
  600CLS
  610PRINTTAB(6,5);"Current Starting Screen:-";SC1
  620PRINTTAB(0,9);"Press 1 to 4 for screen , RETURN to exit"
  630A$=GET$:IF ASCA$=13 THEN GOTO120
  640IF VALA$>0 AND VALA$<5 THEN SC1=VALA$
  650GOTO610
  660Sc=0:MODE5:VDU19,2,2;0;23;8202;0;0;0;
  670PROChigh:GOTO120
  680DEFPROCscore:COLOUR128:COLOUR1:PRINTTAB(6,30);"Lives";:COLOUR2:PRINT;":-";:COLOUR3:PRINT;lives;:ENDPROC
  690IF SC=1 PROCmove
  700MODE5:VDU19,2,2;0;23;8202;0;0;0;
  710A$="":FORT=4TO0STEP-1:A$=A$+STR$(T?&CB):NEXT:Sc=VALA$:PROChigh
  720GOTO120
  730DATA40,40,20,32
  740DATA24,24,4,16
  750FORT=0TO3:RESTORE730
  760FORG=0TO3:READD:SOUND&11,-15,D,5
  770FORH=0TO240:NEXT:*FX21,5
  780NEXT,
  790FORT=0TO3:RESTORE740
  800FORG=0TO3:READD:SOUND&11,-15,D,5
  810FORH=0TO240:NEXT:*FX21,5
  820NEXT,:MODE4
  830PRINTTAB(12,4);"Congratulations!"
  840PRINT'''"   You have completed all screens of"''"               Loony Loco"
  850PRINTTAB(1,30);"Please Press The Space Bar To Continue":REPEAT:UNTILINKEY-99
  860GOTO700
  870DEFPROCTRAIN
  880VDU23,128,255,68,68,68,68,68,68,255,23,129,17,17,34,34,68,68,136,136,23,130,136,136,68,68,34,34,17,17
  890PROCsetup
  900ENVELOPE3,1,1,2,-2,1,3,2,126,0,0,-126,126,126
  910ENVELOPE5,2,1,-1,1,4,3,1,126,0,0,-126,126,126
  920CALL&4F76
  930COLOUR130:COLOUR0:PRINTTAB(9,0);lives
  940CALL&44EE:IF ?&5711=5 D=0 ELSE D=1
  950COLOUR128
  960ENDPROC
  970DEFPROCsetup:VDU19,0,2;0;19,2,0;0;17,128,12,23;8202;0;0;0;
  980FORT%=0TO2:T%?&95C=0:NEXT:FORT%=0TO9:RESTORE420
  990FORG%=0TO31:READD:G%?(&7380+(T%*32))=D:NEXT,
 1000VDU28,0,31,19,24,17,130,12,26
 1010GCOL0,2:X%=896:FORT%=0TO1279STEP8:MOVET%,1023:DRAWT%,X%:G%=RND(4):IF G%>2 AND X%<928 X%=X%+4 ELSE IF X%>896 X%=X%-4
 1020NEXT
 1030COLOUR1:PRINTTAB(0,26);STRING$(20,CHR$128);TAB(0,28);STRING$(20,CHR$128);TAB(0,30);STRING$(20,CHR$128);
 1040VDU30,23;8202;0;0;0;:ENDPROC
 1050DEFPROCdead
 1060SOUND0,1,5,10:FORJ%=0TO9:VDU19,2,1;0;:FORK%=0TO200:NEXT:VDU19,2,0;0;:FORK%=0TO200:NEXT,
 1070ENDPROC
 1080DEFPROCCHAR
 1090VDU23,128,0,7,15,31,63,127,255,0,23,129,0,255,254,252,248,240,224,0,23,130,255,255,127,7,1,0,0,0,23,131,255,255,254,224,128,0,0,0
 1100VDU23,132,0,0,0,0,24,252,252,24,23,133,0,0,0,0,24,63,63,24,23,134,255,255,255,0,0,0,0,0,23,135,255,255,255,255,255,0,0,0
 1110VDU23,136,192,224,240,240,240,240,240,240,23,137,240,240,240,240,240,240,240,240,23,138,240,240,240,240,240,240,224,192
 1120VDU23,139,0,0,0,15,15,15,15,15,23,140,15,15,15,15,15,15,15,15,23,141,15,15,15,15,15,0,0,0,23,142,0,0,0,0,24,255,255,24
 1130VDU23,143,225,115,62,28,24,48,96,192,23,144,30,35,67,3,63,71,71,59,23,145,255,7,14,28,56,112,224,255,23,146,60,122,249,249,249,249,122,60
 1140ENDPROC
 1150DEFPROCNEXT:FORT=0TO200:SOUND&11,2,T,3:NEXT:SC=SC+1:IF SC=2 THEN PROCmove
 1160ENDPROC
 1170DEFPROCmove:FORT=3TO1STEP-1:A=T-1:T?&CB=A?&CB:NEXT:?&CB=0:ENDPROC
 1180REM@
 1190DEFPROChigh:T=1
 1200IF Sc>HS(T) THEN 1230
 1210T=T+1:IF T<>6 THEN 1200
 1220CLS:GOTO1270
 1230IF T=5 THEN 1250
 1240FORG%=5TOT STEP-1:HS(G%)=HS(G%-1):HS$(G%)=HS$(G%-1):NEXT
 1250HS(T)=Sc:PROCname:HS$(T)=A$
 1260A=15-LENHS$(T):HS$(T)=HS$(T)+STRING$(A,"."):COLOUR128:CLS
 1270COLOUR3:PRINTTAB(3,3);STRING$(14,CHR$148);:COLOUR1:PRINTTAB(4,2)"Today's Best"
 1280FORT%=1TO5:IF HS(T%)<950 THEN X=1 ELSE X=0
 1290IF T%=T THEN COLOUR3 ELSE COLOUR1
 1300PRINTTAB(0,(T%*3)+4);HS$(T%):COLOUR2:PRINTTAB(15+0,(T%*3)+4);HS(T%):NEXT
 1310COLOUR3:PRINTTAB(0,29);"PRESS THE  SPACE BAR":REPEAT:UNTILINKEY-99:CLS:ENDPROC
 1320DEFPROCname:COLOUR129:PRINTTAB(2,4);SPC(16):COLOUR2:COLOUR128:PRINTTAB(3,3);STRING$(14,"-");:E%=0:D%=1:L%=0:C%=65:X%=0:Y%=7
 1330*FX11,50
 1340*FX15,0
 1350COLOUR3:PRINTTAB(1,15);"ENTER IN YOUR NAME":COLOUR1:PRINTTAB(2,17);"AND PRESS RETURN":COLOUR3:PRINTTAB(5,19);"Good Play!";
 1380B$=GET$:C%=ASCB$:PROCprint
 1410IF E%=1 THEN 1530
 1420GOTO1380
 1470DEFPROCprint:IF C%=13 OR C%=127 THEN 1510
 1480IF L%=14 ENDPROC
 1490COLOUR128:COLOUR3:VDU31,L%+3,3,C%:L%=L%+1
 1500ENDPROC
 1510IF C%=13 E%=1:ENDPROC
 1520IF L%=0 ENDPROC ELSE COLOUR128:COLOUR2:L%=L%-1:PRINTTAB(L%+3,3);"-":ENDPROC
 1530COLOUR128:COLOUR3:A$="":FORT%=0TOL%-1
 1540A%=135:VDU31,T%+3,3:!blo=USR(&FFF4):A$=A$+CHR$(blo?1):NEXT:*FX11,0
 1550ENDPROC


I�A$(4),HS$(5),HS(5),blo 4:�T=1�5:HS$(T)="Loony..........":HS(T)=150:�
�@
*FX200,2
,� �-256<>0 � �-256<>-1 � Sp=100 � Sp=250
?&3439=Sp:?&3A90=Sp
('?&92=3:?&93=64:� S% 100:P%=S%:[OPT0
2PHA:LDA&92:STA&A2:PLA:RTS:]
<?&220=S%:?&221=S% �256
F*FX14,6
Pss=0
ZS�1,4,5,0,-5,10,0,10,126,0,0,-126,126,126:�2,1,3,20,1,1,3,1,126,0,0,-126,126,126
d*FX11,0
n'SC1=1:�23,148,255,255,255,0,0,0,0,0
x7�4:�23;8202;0;0;0;0;:�18,6);"Menu"�17,7);�6,�148);
�6�5,9);"1).......";:�0:�129:�;"START GAME":�128:�1
�,�5,11);"2).......View High Score Table"
�-�5,13);"3).......Change Starting Screen"
�!�11,16);"Select Your Choice"
�,�0,400:�0,900:�1279,900:�1279,400:�0,400
�!A$=�:A=�A$:� A<1 � A>3 � �tt@
��A �dH@,�tTB,�DXB
�6SC=SC1:�5:�T=0�4:T?&CB=0:�:�23;8202;0;0;0;:lives=3
�>� SC=3 � �CAR � � SC=2 � �ROOF � � SC=4 � �ENGINE � �TRAIN
�8� D=0 � �NEXT � �T=100�0�-5:�1,1,T,1:�:lives=lives-1
�� lives=0 � �trB
�� SC=5 � �dZB
�	�dR@
��ROOF:�CHAR
*FX11,0
*FX15,0
4A$=�128+�129:B$="  ":C$=�143+�144+�145+�146+�146
'�128:�:�19,0,4;0;19,1,0;0;19,2,3;0;
"J�0,3:�T%=0�1023�8:�0,T%:�1279,T%:�:�0,1:�T%=0�1279�16:�T%,0:�T%,1023:�
,�28,2,28,17,3,12,17,131,26
6L�2,14);�(15);�2,15);�(15);�2,17);�(15);�2,18);�(15):�129:�2,16);�(15);
@"�129:�2:�4,16);A$;B$;A$;B$;A$
J[�128:�3:�2,19);�130;�13,�135);�131;�17,14);�136;�17,15);�137;�17,17);�137;�17,18);�138
TF�T%=0�7:��tdA:�G%=0�31:�D:G%?(&7120+(T%*32))=D:�,:�2:�17,19);�142
^r�1:�17,16);�137:�0:�131:�7,18);C$:�0,2:�5:�128,415:�132:�1024,415:�133:�1088,543:�139,10,8,140,10,8,141,4,30
h�131:�T=2�5:�2,T);�(16);:�
ra�0,0:X%=851:�T%=128�1152�8:�T%,827:�T%,X%:A%=�(4):� A%>=2 � X%<859 X%=X%+4 � � X%>827 X%=X%-4
|�
}*FX15,0
��score:�131:�&31F8
�;� ?&95=255 � D=0 � D=1:�128:�1:�6,11);"Ahh";:�2:�;"\";
��
�d�255,248,255,255,0,0,0,0,255,240,255,239,1,1,3,3,255,240,255,255,0,0,8,8,255,240,255,255,0,0,0,0
����CAR:�23,128,44,44,44,44,44,44,44,44:�128:�:�19,0,0;0;19,2,5;0;19,1,1;0;:�T%=6�26�10:�tab(T%):�:�3:�T%=5�30:�10,T%);�128;:�
�NA$="Buffet Car":C%=1:�T%=1��A$:�C%:�T%+4,0);�A$,T%,1):C%=C%+1:� C%=4 C%=1
��
��score:�&38B0
�� ?&62=?&93 � D=0 � D=1
��
�
��tab(X%)
�IA$=�10," "):�129:�0,X%);A$:A$=�9," "):�131:�0,X%+1);A$;�0,X%+2);A$;
�
�128:�
��ENGINE
'�128:�:�19,0,0;0;19,2,5;0;19,1,1;0;
>�23,148,255,255,255,0,0,0,0,0,23,147,0,0,0,0,0,255,255,255
&�3:�6,11);"12345678"
06�1:�15,9);"Moves":�2:�1,22);"Escape For Restart"
:�score:�&3C12
D:� ?&A2=?&92 � D=1 � D=0:�1:�7,8);"Brakes";�9,10);"On"
N�
X�
b*�6,5);"Current Starting Screen:-";SC1
l5�0,9);"Press 1 to 4 for screen , RETURN to exit"
vA$=�:� �A$=13 � �Dx@
�� �A$>0 � �A$<5 � SC1=�A$
�	�DbB
�$Sc=0:�5:�19,2,2;0;23;8202;0;0;0;
��high:�Dx@
�=��score:�128:�1:�6,30);"Lives";:�2:�;":-";:�3:�;lives;:�
�� SC=1 �move
��5:�19,2,2;0;23;8202;0;0;0;
�1A$="":�T=4�0�-1:A$=A$+�(T?&CB):�:Sc=�A$:�high
�	�Dx@
��40,40,20,32
��24,24,4,16
��T=0�3:��dZB
��G=0�3:�D:�&11,-15,D,5
�H=0�240:�:*FX21,5
�,
�T=0�3:��ddB
 �G=0�3:�D:�&11,-15,D,5
*�H=0�240:�:*FX21,5
4	�,:�4
>�12,4);"Congratulations!"
HK�'''"   You have completed all screens of"''"               Loony Loco"
R<�1,30);"Please Press The Space Bar To Continue":�:��-99
\	�t|B
f��TRAIN
pg�23,128,255,68,68,68,68,68,68,255,23,129,17,17,34,34,68,68,136,136,23,130,136,136,68,68,34,34,17,17
z
�setup
�*�3,1,1,2,-2,1,3,2,126,0,0,-126,126,126
�*�5,2,1,-1,1,4,3,1,126,0,0,-126,126,126
�
�&4F76
��130:�0:�9,0);lives
��&44EE:� ?&5711=5 D=0 � D=1
��128
��
�7��setup:�19,0,2;0;19,2,0;0;17,128,12,23;8202;0;0;0;
�%�T%=0�2:T%?&95C=0:�:�T%=0�9:��tdA
�'�G%=0�31:�D:G%?(&7380+(T%*32))=D:�,
��28,0,31,19,24,17,130,12,26
�_�0,2:X%=896:�T%=0�1279�8:�T%,1023:�T%,X%:G%=�(4):� G%>2 � X%<928 X%=X%+4 � � X%>896 X%=X%-4
��
;�1:�0,26);�20,�128);�0,28);�20,�128);�0,30);�20,�128);
�30,23;8202;0;0;0;:�

��dead
$D�0,1,5,10:�J%=0�9:�19,2,1;0;:�K%=0�200:�:�19,2,0;0;:�K%=0�200:�,
.�
8
��CHAR
B��23,128,0,7,15,31,63,127,255,0,23,129,0,255,254,252,248,240,224,0,23,130,255,255,127,7,1,0,0,0,23,131,255,255,254,224,128,0,0,0
Lz�23,132,0,0,0,0,24,252,252,24,23,133,0,0,0,0,24,63,63,24,23,134,255,255,255,0,0,0,0,0,23,135,255,255,255,255,255,0,0,0
Vy�23,136,192,224,240,240,240,240,240,240,23,137,240,240,240,240,240,240,240,240,23,138,240,240,240,240,240,240,224,192
`x�23,139,0,0,0,15,15,15,15,15,23,140,15,15,15,15,15,15,15,15,23,141,15,15,15,15,15,0,0,0,23,142,0,0,0,0,24,255,255,24
j��23,143,225,115,62,28,24,48,96,192,23,144,30,35,67,3,63,71,71,59,23,145,255,7,14,28,56,112,224,255,23,146,60,122,249,249,249,249,122,60
t�
~7��NEXT:�T=0�200:�&11,2,T,3:�:SC=SC+1:� SC=2 � �move
��
�1��move:�T=3�1�-1:A=T-1:T?&CB=A?&CB:�:?&CB=0:�
��@
���high:T=1
�� Sc>HS(T) � �dND
�T=T+1:� T<>6 � �tpD
��:�dvD
�� T=5 � �dbD
�3�G%=5�T �-1:HS(G%)=HS(G%-1):HS$(G%)=HS$(G%-1):�
�HS(T)=Sc:�name:HS$(T)=A$
�-A=15-�HS$(T):HS$(T)=HS$(T)+�A,"."):�128:�
�0�3:�3,3);�14,�148);:�1:�4,2)"Today's Best"
$�T%=1�5:� HS(T%)<950 � X=1 � X=0

� T%=T � �3 � �1
6�0,(T%*3)+4);HS$(T%):�2:�15+0,(T%*3)+4);HS(T%):�
1�3:�0,29);"PRESS THE  SPACE BAR":�:��-99:�:�
(T��name:�129:�2,4);�(16):�2:�128:�3,3);�14,"-");:E%=0:D%=1:L%=0:C%=65:X%=0:Y%=7
2*FX11,50
<*FX15,0
FZ�3:�1,15);"ENTER IN YOUR NAME":�1:�2,17);"AND PRESS RETURN":�3:�5,19);"Good Play!";
dB$=�:C%=�B$:�print
�� E%=1 � �dzE
�	�DdE
�#��print:� C%=13 � C%=127 � �dfE
�
� L%=14 �
�!�128:�3:�31,L%+3,3,C%:L%=L%+1
��
�� C%=13 E%=1:�
�.� L%=0 � � �128:�2:L%=L%-1:�L%+3,3);"-":�
��128:�3:A$="":�T%=0�L%-1
<A%=135:�31,T%+3,3:!blo=�(&FFF4):A$=A$+�(blo?1):�:*FX11,0
�
�
00000000  0d 00 0a 49 de 41 24 28  34 29 2c 48 53 24 28 35  |...I.A$(4),HS$(5|
00000010  29 2c 48 53 28 35 29 2c  62 6c 6f 20 34 3a e3 54  |),HS(5),blo 4:.T|
00000020  3d 31 b8 35 3a 48 53 24  28 54 29 3d 22 4c 6f 6f  |=1.5:HS$(T)="Loo|
00000030  6e 79 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 22 3a 48 53  |ny..........":HS|
00000040  28 54 29 3d 31 35 30 3a  ed 0d 00 0b 07 f4 15 40  |(T)=150:.......@|
00000050  0d 00 0c 0c 2a 46 58 32  30 30 2c 32 0d 00 14 2c  |....*FX200,2...,|
00000060  e7 20 a6 2d 32 35 36 3c  3e 30 20 80 20 a6 2d 32  |. .-256<>0 . .-2|
00000070  35 36 3c 3e 2d 31 20 8c  20 53 70 3d 31 30 30 20  |56<>-1 . Sp=100 |
00000080  8b 20 53 70 3d 32 35 30  0d 00 1e 17 3f 26 33 34  |. Sp=250....?&34|
00000090  33 39 3d 53 70 3a 3f 26  33 41 39 30 3d 53 70 0d  |39=Sp:?&3A90=Sp.|
000000a0  00 28 27 3f 26 39 32 3d  33 3a 3f 26 39 33 3d 36  |.('?&92=3:?&93=6|
000000b0  34 3a de 20 53 25 20 31  30 30 3a 50 25 3d 53 25  |4:. S% 100:P%=S%|
000000c0  3a 5b 4f 50 54 30 0d 00  32 1f 50 48 41 3a 4c 44  |:[OPT0..2.PHA:LD|
000000d0  41 26 39 32 3a 53 54 41  26 41 32 3a 50 4c 41 3a  |A&92:STA&A2:PLA:|
000000e0  52 54 53 3a 5d 0d 00 3c  1a 3f 26 32 32 30 3d 53  |RTS:]..<.?&220=S|
000000f0  25 3a 3f 26 32 32 31 3d  53 25 20 81 32 35 36 0d  |%:?&221=S% .256.|
00000100  00 46 0b 2a 46 58 31 34  2c 36 0d 00 50 08 73 73  |.F.*FX14,6..P.ss|
00000110  3d 30 0d 00 5a 53 e2 31  2c 34 2c 35 2c 30 2c 2d  |=0..ZS.1,4,5,0,-|
00000120  35 2c 31 30 2c 30 2c 31  30 2c 31 32 36 2c 30 2c  |5,10,0,10,126,0,|
00000130  30 2c 2d 31 32 36 2c 31  32 36 2c 31 32 36 3a e2  |0,-126,126,126:.|
00000140  32 2c 31 2c 33 2c 32 30  2c 31 2c 31 2c 33 2c 31  |2,1,3,20,1,1,3,1|
00000150  2c 31 32 36 2c 30 2c 30  2c 2d 31 32 36 2c 31 32  |,126,0,0,-126,12|
00000160  36 2c 31 32 36 0d 00 64  0b 2a 46 58 31 31 2c 30  |6,126..d.*FX11,0|
00000170  0d 00 6e 27 53 43 31 3d  31 3a ef 32 33 2c 31 34  |..n'SC1=1:.23,14|
00000180  38 2c 32 35 35 2c 32 35  35 2c 32 35 35 2c 30 2c  |8,255,255,255,0,|
00000190  30 2c 30 2c 30 2c 30 0d  00 78 37 eb 34 3a ef 32  |0,0,0,0..x7.4:.2|
000001a0  33 3b 38 32 30 32 3b 30  3b 30 3b 30 3b 30 3b 3a  |3;8202;0;0;0;0;:|
000001b0  f1 8a 31 38 2c 36 29 3b  22 4d 65 6e 75 22 8a 31  |..18,6);"Menu".1|
000001c0  37 2c 37 29 3b c4 36 2c  bd 31 34 38 29 3b 0d 00  |7,7);.6,.148);..|
000001d0  82 36 f1 8a 35 2c 39 29  3b 22 31 29 2e 2e 2e 2e  |.6..5,9);"1)....|
000001e0  2e 2e 2e 22 3b 3a fb 30  3a fb 31 32 39 3a f1 3b  |...";:.0:.129:.;|
000001f0  22 53 54 41 52 54 20 47  41 4d 45 22 3a fb 31 32  |"START GAME":.12|
00000200  38 3a fb 31 0d 00 8c 2c  f1 8a 35 2c 31 31 29 3b  |8:.1...,..5,11);|
00000210  22 32 29 2e 2e 2e 2e 2e  2e 2e 56 69 65 77 20 48  |"2).......View H|
00000220  69 67 68 20 53 63 6f 72  65 20 54 61 62 6c 65 22  |igh Score Table"|
00000230  0d 00 96 2d f1 8a 35 2c  31 33 29 3b 22 33 29 2e  |...-..5,13);"3).|
00000240  2e 2e 2e 2e 2e 2e 43 68  61 6e 67 65 20 53 74 61  |......Change Sta|
00000250  72 74 69 6e 67 20 53 63  72 65 65 6e 22 0d 00 a0  |rting Screen"...|
00000260  21 f1 8a 31 31 2c 31 36  29 3b 22 53 65 6c 65 63  |!..11,16);"Selec|
00000270  74 20 59 6f 75 72 20 43  68 6f 69 63 65 22 0d 00  |t Your Choice"..|
00000280  aa 2c ec 30 2c 34 30 30  3a df 30 2c 39 30 30 3a  |.,.0,400:.0,900:|
00000290  df 31 32 37 39 2c 39 30  30 3a df 31 32 37 39 2c  |.1279,900:.1279,|
000002a0  34 30 30 3a df 30 2c 34  30 30 0d 00 b4 21 41 24  |400:.0,400...!A$|
000002b0  3d be 3a 41 3d bb 41 24  3a e7 20 41 3c 31 20 84  |=.:A=.A$:. A<1 .|
000002c0  20 41 3e 33 20 8c 20 8d  74 74 40 0d 00 be 16 ee  | A>3 . .tt@.....|
000002d0  41 20 e5 8d 64 48 40 2c  8d 74 54 42 2c 8d 44 58  |A ..dH@,.tTB,.DX|
000002e0  42 0d 00 c8 36 53 43 3d  53 43 31 3a eb 35 3a e3  |B...6SC=SC1:.5:.|
000002f0  54 3d 30 b8 34 3a 54 3f  26 43 42 3d 30 3a ed 3a  |T=0.4:T?&CB=0:.:|
00000300  ef 32 33 3b 38 32 30 32  3b 30 3b 30 3b 30 3b 3a  |.23;8202;0;0;0;:|
00000310  6c 69 76 65 73 3d 33 0d  00 d2 3e e7 20 53 43 3d  |lives=3...>. SC=|
00000320  33 20 8c 20 f2 43 41 52  20 8b 20 e7 20 53 43 3d  |3 . .CAR . . SC=|
00000330  32 20 8c 20 f2 52 4f 4f  46 20 8b 20 e7 20 53 43  |2 . .ROOF . . SC|
00000340  3d 34 20 8c 20 f2 45 4e  47 49 4e 45 20 8b 20 f2  |=4 . .ENGINE . .|
00000350  54 52 41 49 4e 0d 00 dc  38 e7 20 44 3d 30 20 8c  |TRAIN...8. D=0 .|
00000360  20 f2 4e 45 58 54 20 8b  20 e3 54 3d 31 30 30 b8  | .NEXT . .T=100.|
00000370  30 88 2d 35 3a d4 31 2c  31 2c 54 2c 31 3a ed 3a  |0.-5:.1,1,T,1:.:|
00000380  6c 69 76 65 73 3d 6c 69  76 65 73 2d 31 0d 00 e6  |lives=lives-1...|
00000390  14 e7 20 6c 69 76 65 73  3d 30 20 8c 20 8d 74 72  |.. lives=0 . .tr|
000003a0  42 0d 00 f0 11 e7 20 53  43 3d 35 20 8c 20 8d 64  |B..... SC=5 . .d|
000003b0  5a 42 0d 00 fa 09 e5 8d  64 52 40 0d 01 04 10 dd  |ZB......dR@.....|
000003c0  f2 52 4f 4f 46 3a f2 43  48 41 52 0d 01 05 0b 2a  |.ROOF:.CHAR....*|
000003d0  46 58 31 31 2c 30 0d 01  06 0b 2a 46 58 31 35 2c  |FX11,0....*FX15,|
000003e0  30 0d 01 0e 34 41 24 3d  bd 31 32 38 2b bd 31 32  |0...4A$=.128+.12|
000003f0  39 3a 42 24 3d 22 20 20  22 3a 43 24 3d bd 31 34  |9:B$="  ":C$=.14|
00000400  33 2b bd 31 34 34 2b bd  31 34 35 2b bd 31 34 36  |3+.144+.145+.146|
00000410  2b bd 31 34 36 0d 01 18  27 fb 31 32 38 3a db 3a  |+.146...'.128:.:|
00000420  ef 31 39 2c 30 2c 34 3b  30 3b 31 39 2c 31 2c 30  |.19,0,4;0;19,1,0|
00000430  3b 30 3b 31 39 2c 32 2c  33 3b 30 3b 0d 01 22 4a  |;0;19,2,3;0;.."J|
00000440  e6 30 2c 33 3a e3 54 25  3d 30 b8 31 30 32 33 88  |.0,3:.T%=0.1023.|
00000450  38 3a ec 30 2c 54 25 3a  df 31 32 37 39 2c 54 25  |8:.0,T%:.1279,T%|
00000460  3a ed 3a e6 30 2c 31 3a  e3 54 25 3d 30 b8 31 32  |:.:.0,1:.T%=0.12|
00000470  37 39 88 31 36 3a ec 54  25 2c 30 3a df 54 25 2c  |79.16:.T%,0:.T%,|
00000480  31 30 32 33 3a ed 0d 01  2c 1e ef 32 38 2c 32 2c  |1023:...,..28,2,|
00000490  32 38 2c 31 37 2c 33 2c  31 32 2c 31 37 2c 31 33  |28,17,3,12,17,13|
000004a0  31 2c 32 36 0d 01 36 4c  f1 8a 32 2c 31 34 29 3b  |1,26..6L..2,14);|
000004b0  89 28 31 35 29 3b 8a 32  2c 31 35 29 3b 89 28 31  |.(15);.2,15);.(1|
000004c0  35 29 3b 8a 32 2c 31 37  29 3b 89 28 31 35 29 3b  |5);.2,17);.(15);|
000004d0  8a 32 2c 31 38 29 3b 89  28 31 35 29 3a fb 31 32  |.2,18);.(15):.12|
000004e0  39 3a f1 8a 32 2c 31 36  29 3b 89 28 31 35 29 3b  |9:..2,16);.(15);|
000004f0  0d 01 40 22 fb 31 32 39  3a fb 32 3a f1 8a 34 2c  |..@".129:.2:..4,|
00000500  31 36 29 3b 41 24 3b 42  24 3b 41 24 3b 42 24 3b  |16);A$;B$;A$;B$;|
00000510  41 24 0d 01 4a 5b fb 31  32 38 3a fb 33 3a f1 8a  |A$..J[.128:.3:..|
00000520  32 2c 31 39 29 3b bd 31  33 30 3b c4 31 33 2c bd  |2,19);.130;.13,.|
00000530  31 33 35 29 3b bd 31 33  31 3b 8a 31 37 2c 31 34  |135);.131;.17,14|
00000540  29 3b bd 31 33 36 3b 8a  31 37 2c 31 35 29 3b bd  |);.136;.17,15);.|
00000550  31 33 37 3b 8a 31 37 2c  31 37 29 3b bd 31 33 37  |137;.17,17);.137|
00000560  3b 8a 31 37 2c 31 38 29  3b bd 31 33 38 0d 01 54  |;.17,18);.138..T|
00000570  46 e3 54 25 3d 30 b8 37  3a f7 8d 74 64 41 3a e3  |F.T%=0.7:..tdA:.|
00000580  47 25 3d 30 b8 33 31 3a  f3 44 3a 47 25 3f 28 26  |G%=0.31:.D:G%?(&|
00000590  37 31 32 30 2b 28 54 25  2a 33 32 29 29 3d 44 3a  |7120+(T%*32))=D:|
000005a0  ed 2c 3a fb 32 3a f1 8a  31 37 2c 31 39 29 3b bd  |.,:.2:..17,19);.|
000005b0  31 34 32 0d 01 5e 72 fb  31 3a f1 8a 31 37 2c 31  |142..^r.1:..17,1|
000005c0  36 29 3b bd 31 33 37 3a  fb 30 3a fb 31 33 31 3a  |6);.137:.0:.131:|
000005d0  f1 8a 37 2c 31 38 29 3b  43 24 3a e6 30 2c 32 3a  |..7,18);C$:.0,2:|
000005e0  ef 35 3a ec 31 32 38 2c  34 31 35 3a ef 31 33 32  |.5:.128,415:.132|
000005f0  3a ec 31 30 32 34 2c 34  31 35 3a ef 31 33 33 3a  |:.1024,415:.133:|
00000600  ec 31 30 38 38 2c 35 34  33 3a ef 31 33 39 2c 31  |.1088,543:.139,1|
00000610  30 2c 38 2c 31 34 30 2c  31 30 2c 38 2c 31 34 31  |0,8,140,10,8,141|
00000620  2c 34 2c 33 30 0d 01 68  1f fb 31 33 31 3a e3 54  |,4,30..h..131:.T|
00000630  3d 32 b8 35 3a f1 8a 32  2c 54 29 3b 89 28 31 36  |=2.5:..2,T);.(16|
00000640  29 3b 3a ed 0d 01 72 61  e6 30 2c 30 3a 58 25 3d  |);:...ra.0,0:X%=|
00000650  38 35 31 3a e3 54 25 3d  31 32 38 b8 31 31 35 32  |851:.T%=128.1152|
00000660  88 38 3a ec 54 25 2c 38  32 37 3a df 54 25 2c 58  |.8:.T%,827:.T%,X|
00000670  25 3a 41 25 3d b3 28 34  29 3a e7 20 41 25 3e 3d  |%:A%=.(4):. A%>=|
00000680  32 20 80 20 58 25 3c 38  35 39 20 58 25 3d 58 25  |2 . X%<859 X%=X%|
00000690  2b 34 20 8b 20 e7 20 58  25 3e 38 32 37 20 58 25  |+4 . . X%>827 X%|
000006a0  3d 58 25 2d 34 0d 01 7c  05 ed 0d 01 7d 0b 2a 46  |=X%-4..|....}.*F|
000006b0  58 31 35 2c 30 0d 01 86  16 f2 73 63 6f 72 65 3a  |X15,0.....score:|
000006c0  fb 31 33 31 3a d6 26 33  31 46 38 0d 01 90 3b e7  |.131:.&31F8...;.|
000006d0  20 3f 26 39 35 3d 32 35  35 20 8c 20 44 3d 30 20  | ?&95=255 . D=0 |
000006e0  8b 20 44 3d 31 3a fb 31  32 38 3a fb 31 3a f1 8a  |. D=1:.128:.1:..|
000006f0  36 2c 31 31 29 3b 22 41  68 68 22 3b 3a fb 32 3a  |6,11);"Ahh";:.2:|
00000700  f1 3b 22 5c 22 3b 0d 01  9a 05 e1 0d 01 a4 64 dc  |.;"\";........d.|
00000710  32 35 35 2c 32 34 38 2c  32 35 35 2c 32 35 35 2c  |255,248,255,255,|
00000720  30 2c 30 2c 30 2c 30 2c  32 35 35 2c 32 34 30 2c  |0,0,0,0,255,240,|
00000730  32 35 35 2c 32 33 39 2c  31 2c 31 2c 33 2c 33 2c  |255,239,1,1,3,3,|
00000740  32 35 35 2c 32 34 30 2c  32 35 35 2c 32 35 35 2c  |255,240,255,255,|
00000750  30 2c 30 2c 38 2c 38 2c  32 35 35 2c 32 34 30 2c  |0,0,8,8,255,240,|
00000760  32 35 35 2c 32 35 35 2c  30 2c 30 2c 30 2c 30 0d  |255,255,0,0,0,0.|
00000770  01 ae 81 dd f2 43 41 52  3a ef 32 33 2c 31 32 38  |.....CAR:.23,128|
00000780  2c 34 34 2c 34 34 2c 34  34 2c 34 34 2c 34 34 2c  |,44,44,44,44,44,|
00000790  34 34 2c 34 34 2c 34 34  3a fb 31 32 38 3a db 3a  |44,44,44:.128:.:|
000007a0  ef 31 39 2c 30 2c 30 3b  30 3b 31 39 2c 32 2c 35  |.19,0,0;0;19,2,5|
000007b0  3b 30 3b 31 39 2c 31 2c  31 3b 30 3b 3a e3 54 25  |;0;19,1,1;0;:.T%|
000007c0  3d 36 b8 32 36 88 31 30  3a f2 74 61 62 28 54 25  |=6.26.10:.tab(T%|
000007d0  29 3a ed 3a fb 33 3a e3  54 25 3d 35 b8 33 30 3a  |):.:.3:.T%=5.30:|
000007e0  f1 8a 31 30 2c 54 25 29  3b bd 31 32 38 3b 3a ed  |..10,T%);.128;:.|
000007f0  0d 01 b8 4e 41 24 3d 22  42 75 66 66 65 74 20 43  |...NA$="Buffet C|
00000800  61 72 22 3a 43 25 3d 31  3a e3 54 25 3d 31 b8 a9  |ar":C%=1:.T%=1..|
00000810  41 24 3a fb 43 25 3a f1  8a 54 25 2b 34 2c 30 29  |A$:.C%:..T%+4,0)|
00000820  3b c1 41 24 2c 54 25 2c  31 29 3a 43 25 3d 43 25  |;.A$,T%,1):C%=C%|
00000830  2b 31 3a e7 20 43 25 3d  34 20 43 25 3d 31 0d 01  |+1:. C%=4 C%=1..|
00000840  c2 05 ed 0d 01 cc 11 f2  73 63 6f 72 65 3a d6 26  |........score:.&|
00000850  33 38 42 30 0d 01 d6 1b  e7 20 3f 26 36 32 3d 3f  |38B0..... ?&62=?|
00000860  26 39 33 20 8c 20 44 3d  30 20 8b 20 44 3d 31 0d  |&93 . D=0 . D=1.|
00000870  01 e0 05 e1 0d 01 ea 0d  dd f2 74 61 62 28 58 25  |..........tab(X%|
00000880  29 0d 01 f4 49 41 24 3d  c4 31 30 2c 22 20 22 29  |)...IA$=.10," ")|
00000890  3a fb 31 32 39 3a f1 8a  30 2c 58 25 29 3b 41 24  |:.129:..0,X%);A$|
000008a0  3a 41 24 3d c4 39 2c 22  20 22 29 3a fb 31 33 31  |:A$=.9," "):.131|
000008b0  3a f1 8a 30 2c 58 25 2b  31 29 3b 41 24 3b 8a 30  |:..0,X%+1);A$;.0|
000008c0  2c 58 25 2b 32 29 3b 41  24 3b 0d 01 fe 0a fb 31  |,X%+2);A$;.....1|
000008d0  32 38 3a e1 0d 02 08 0c  dd f2 45 4e 47 49 4e 45  |28:.......ENGINE|
000008e0  0d 02 12 27 fb 31 32 38  3a db 3a ef 31 39 2c 30  |...'.128:.:.19,0|
000008f0  2c 30 3b 30 3b 31 39 2c  32 2c 35 3b 30 3b 31 39  |,0;0;19,2,5;0;19|
00000900  2c 31 2c 31 3b 30 3b 0d  02 1c 3e ef 32 33 2c 31  |,1,1;0;...>.23,1|
00000910  34 38 2c 32 35 35 2c 32  35 35 2c 32 35 35 2c 30  |48,255,255,255,0|
00000920  2c 30 2c 30 2c 30 2c 30  2c 32 33 2c 31 34 37 2c  |,0,0,0,0,23,147,|
00000930  30 2c 30 2c 30 2c 30 2c  30 2c 32 35 35 2c 32 35  |0,0,0,0,0,255,25|
00000940  35 2c 32 35 35 0d 02 26  19 fb 33 3a f1 8a 36 2c  |5,255..&..3:..6,|
00000950  31 31 29 3b 22 31 32 33  34 35 36 37 38 22 0d 02  |11);"12345678"..|
00000960  30 36 fb 31 3a f1 8a 31  35 2c 39 29 3b 22 4d 6f  |06.1:..15,9);"Mo|
00000970  76 65 73 22 3a fb 32 3a  f1 8a 31 2c 32 32 29 3b  |ves":.2:..1,22);|
00000980  22 45 73 63 61 70 65 20  46 6f 72 20 52 65 73 74  |"Escape For Rest|
00000990  61 72 74 22 0d 02 3a 11  f2 73 63 6f 72 65 3a d6  |art"..:..score:.|
000009a0  26 33 43 31 32 0d 02 44  3a e7 20 3f 26 41 32 3d  |&3C12..D:. ?&A2=|
000009b0  3f 26 39 32 20 8c 20 44  3d 31 20 8b 20 44 3d 30  |?&92 . D=1 . D=0|
000009c0  3a fb 31 3a f1 8a 37 2c  38 29 3b 22 42 72 61 6b  |:.1:..7,8);"Brak|
000009d0  65 73 22 3b 8a 39 2c 31  30 29 3b 22 4f 6e 22 0d  |es";.9,10);"On".|
000009e0  02 4e 05 e1 0d 02 58 05  db 0d 02 62 2a f1 8a 36  |.N....X....b*..6|
000009f0  2c 35 29 3b 22 43 75 72  72 65 6e 74 20 53 74 61  |,5);"Current Sta|
00000a00  72 74 69 6e 67 20 53 63  72 65 65 6e 3a 2d 22 3b  |rting Screen:-";|
00000a10  53 43 31 0d 02 6c 35 f1  8a 30 2c 39 29 3b 22 50  |SC1..l5..0,9);"P|
00000a20  72 65 73 73 20 31 20 74  6f 20 34 20 66 6f 72 20  |ress 1 to 4 for |
00000a30  73 63 72 65 65 6e 20 2c  20 52 45 54 55 52 4e 20  |screen , RETURN |
00000a40  74 6f 20 65 78 69 74 22  0d 02 76 19 41 24 3d be  |to exit"..v.A$=.|
00000a50  3a e7 20 97 41 24 3d 31  33 20 8c 20 e5 8d 44 78  |:. .A$=13 . ..Dx|
00000a60  40 0d 02 80 1d e7 20 bb  41 24 3e 30 20 80 20 bb  |@..... .A$>0 . .|
00000a70  41 24 3c 35 20 8c 20 53  43 31 3d bb 41 24 0d 02  |A$<5 . SC1=.A$..|
00000a80  8a 09 e5 8d 44 62 42 0d  02 94 24 53 63 3d 30 3a  |....DbB...$Sc=0:|
00000a90  eb 35 3a ef 31 39 2c 32  2c 32 3b 30 3b 32 33 3b  |.5:.19,2,2;0;23;|
00000aa0  38 32 30 32 3b 30 3b 30  3b 30 3b 0d 02 9e 0f f2  |8202;0;0;0;.....|
00000ab0  68 69 67 68 3a e5 8d 44  78 40 0d 02 a8 3d dd f2  |high:..Dx@...=..|
00000ac0  73 63 6f 72 65 3a fb 31  32 38 3a fb 31 3a f1 8a  |score:.128:.1:..|
00000ad0  36 2c 33 30 29 3b 22 4c  69 76 65 73 22 3b 3a fb  |6,30);"Lives";:.|
00000ae0  32 3a f1 3b 22 3a 2d 22  3b 3a fb 33 3a f1 3b 6c  |2:.;":-";:.3:.;l|
00000af0  69 76 65 73 3b 3a e1 0d  02 b2 10 e7 20 53 43 3d  |ives;:...... SC=|
00000b00  31 20 f2 6d 6f 76 65 0d  02 bc 1f eb 35 3a ef 31  |1 .move.....5:.1|
00000b10  39 2c 32 2c 32 3b 30 3b  32 33 3b 38 32 30 32 3b  |9,2,2;0;23;8202;|
00000b20  30 3b 30 3b 30 3b 0d 02  c6 31 41 24 3d 22 22 3a  |0;0;0;...1A$="":|
00000b30  e3 54 3d 34 b8 30 88 2d  31 3a 41 24 3d 41 24 2b  |.T=4.0.-1:A$=A$+|
00000b40  c3 28 54 3f 26 43 42 29  3a ed 3a 53 63 3d bb 41  |.(T?&CB):.:Sc=.A|
00000b50  24 3a f2 68 69 67 68 0d  02 d0 09 e5 8d 44 78 40  |$:.high......Dx@|
00000b60  0d 02 da 10 dc 34 30 2c  34 30 2c 32 30 2c 33 32  |.....40,40,20,32|
00000b70  0d 02 e4 0f dc 32 34 2c  32 34 2c 34 2c 31 36 0d  |.....24,24,4,16.|
00000b80  02 ee 10 e3 54 3d 30 b8  33 3a f7 8d 64 5a 42 0d  |....T=0.3:..dZB.|
00000b90  02 f8 1a e3 47 3d 30 b8  33 3a f3 44 3a d4 26 31  |....G=0.3:.D:.&1|
00000ba0  31 2c 2d 31 35 2c 44 2c  35 0d 03 02 16 e3 48 3d  |1,-15,D,5.....H=|
00000bb0  30 b8 32 34 30 3a ed 3a  2a 46 58 32 31 2c 35 0d  |0.240:.:*FX21,5.|
00000bc0  03 0c 06 ed 2c 0d 03 16  10 e3 54 3d 30 b8 33 3a  |....,.....T=0.3:|
00000bd0  f7 8d 64 64 42 0d 03 20  1a e3 47 3d 30 b8 33 3a  |..ddB.. ..G=0.3:|
00000be0  f3 44 3a d4 26 31 31 2c  2d 31 35 2c 44 2c 35 0d  |.D:.&11,-15,D,5.|
00000bf0  03 2a 16 e3 48 3d 30 b8  32 34 30 3a ed 3a 2a 46  |.*..H=0.240:.:*F|
00000c00  58 32 31 2c 35 0d 03 34  09 ed 2c 3a eb 34 0d 03  |X21,5..4..,:.4..|
00000c10  3e 1e f1 8a 31 32 2c 34  29 3b 22 43 6f 6e 67 72  |>...12,4);"Congr|
00000c20  61 74 75 6c 61 74 69 6f  6e 73 21 22 0d 03 48 4b  |atulations!"..HK|
00000c30  f1 27 27 27 22 20 20 20  59 6f 75 20 68 61 76 65  |.'''"   You have|
00000c40  20 63 6f 6d 70 6c 65 74  65 64 20 61 6c 6c 20 73  | completed all s|
00000c50  63 72 65 65 6e 73 20 6f  66 22 27 27 22 20 20 20  |creens of"''"   |
00000c60  20 20 20 20 20 20 20 20  20 20 20 20 4c 6f 6f 6e  |            Loon|
00000c70  79 20 4c 6f 63 6f 22 0d  03 52 3c f1 8a 31 2c 33  |y Loco"..R<..1,3|
00000c80  30 29 3b 22 50 6c 65 61  73 65 20 50 72 65 73 73  |0);"Please Press|
00000c90  20 54 68 65 20 53 70 61  63 65 20 42 61 72 20 54  | The Space Bar T|
00000ca0  6f 20 43 6f 6e 74 69 6e  75 65 22 3a f5 3a fd a6  |o Continue":.:..|
00000cb0  2d 39 39 0d 03 5c 09 e5  8d 74 7c 42 0d 03 66 0b  |-99..\...t|B..f.|
00000cc0  dd f2 54 52 41 49 4e 0d  03 70 67 ef 32 33 2c 31  |..TRAIN..pg.23,1|
00000cd0  32 38 2c 32 35 35 2c 36  38 2c 36 38 2c 36 38 2c  |28,255,68,68,68,|
00000ce0  36 38 2c 36 38 2c 36 38  2c 32 35 35 2c 32 33 2c  |68,68,68,255,23,|
00000cf0  31 32 39 2c 31 37 2c 31  37 2c 33 34 2c 33 34 2c  |129,17,17,34,34,|
00000d00  36 38 2c 36 38 2c 31 33  36 2c 31 33 36 2c 32 33  |68,68,136,136,23|
00000d10  2c 31 33 30 2c 31 33 36  2c 31 33 36 2c 36 38 2c  |,130,136,136,68,|
00000d20  36 38 2c 33 34 2c 33 34  2c 31 37 2c 31 37 0d 03  |68,34,34,17,17..|
00000d30  7a 0a f2 73 65 74 75 70  0d 03 84 2a e2 33 2c 31  |z..setup...*.3,1|
00000d40  2c 31 2c 32 2c 2d 32 2c  31 2c 33 2c 32 2c 31 32  |,1,2,-2,1,3,2,12|
00000d50  36 2c 30 2c 30 2c 2d 31  32 36 2c 31 32 36 2c 31  |6,0,0,-126,126,1|
00000d60  32 36 0d 03 8e 2a e2 35  2c 32 2c 31 2c 2d 31 2c  |26...*.5,2,1,-1,|
00000d70  31 2c 34 2c 33 2c 31 2c  31 32 36 2c 30 2c 30 2c  |1,4,3,1,126,0,0,|
00000d80  2d 31 32 36 2c 31 32 36  2c 31 32 36 0d 03 98 0a  |-126,126,126....|
00000d90  d6 26 34 46 37 36 0d 03  a2 18 fb 31 33 30 3a fb  |.&4F76.....130:.|
00000da0  30 3a f1 8a 39 2c 30 29  3b 6c 69 76 65 73 0d 03  |0:..9,0);lives..|
00000db0  ac 1f d6 26 34 34 45 45  3a e7 20 3f 26 35 37 31  |...&44EE:. ?&571|
00000dc0  31 3d 35 20 44 3d 30 20  8b 20 44 3d 31 0d 03 b6  |1=5 D=0 . D=1...|
00000dd0  08 fb 31 32 38 0d 03 c0  05 e1 0d 03 ca 37 dd f2  |..128........7..|
00000de0  73 65 74 75 70 3a ef 31  39 2c 30 2c 32 3b 30 3b  |setup:.19,0,2;0;|
00000df0  31 39 2c 32 2c 30 3b 30  3b 31 37 2c 31 32 38 2c  |19,2,0;0;17,128,|
00000e00  31 32 2c 32 33 3b 38 32  30 32 3b 30 3b 30 3b 30  |12,23;8202;0;0;0|
00000e10  3b 0d 03 d4 25 e3 54 25  3d 30 b8 32 3a 54 25 3f  |;...%.T%=0.2:T%?|
00000e20  26 39 35 43 3d 30 3a ed  3a e3 54 25 3d 30 b8 39  |&95C=0:.:.T%=0.9|
00000e30  3a f7 8d 74 64 41 0d 03  de 27 e3 47 25 3d 30 b8  |:..tdA...'.G%=0.|
00000e40  33 31 3a f3 44 3a 47 25  3f 28 26 37 33 38 30 2b  |31:.D:G%?(&7380+|
00000e50  28 54 25 2a 33 32 29 29  3d 44 3a ed 2c 0d 03 e8  |(T%*32))=D:.,...|
00000e60  1f ef 32 38 2c 30 2c 33  31 2c 31 39 2c 32 34 2c  |..28,0,31,19,24,|
00000e70  31 37 2c 31 33 30 2c 31  32 2c 32 36 0d 03 f2 5f  |17,130,12,26..._|
00000e80  e6 30 2c 32 3a 58 25 3d  38 39 36 3a e3 54 25 3d  |.0,2:X%=896:.T%=|
00000e90  30 b8 31 32 37 39 88 38  3a ec 54 25 2c 31 30 32  |0.1279.8:.T%,102|
00000ea0  33 3a df 54 25 2c 58 25  3a 47 25 3d b3 28 34 29  |3:.T%,X%:G%=.(4)|
00000eb0  3a e7 20 47 25 3e 32 20  80 20 58 25 3c 39 32 38  |:. G%>2 . X%<928|
00000ec0  20 58 25 3d 58 25 2b 34  20 8b 20 e7 20 58 25 3e  | X%=X%+4 . . X%>|
00000ed0  38 39 36 20 58 25 3d 58  25 2d 34 0d 03 fc 05 ed  |896 X%=X%-4.....|
00000ee0  0d 04 06 3b fb 31 3a f1  8a 30 2c 32 36 29 3b c4  |...;.1:..0,26);.|
00000ef0  32 30 2c bd 31 32 38 29  3b 8a 30 2c 32 38 29 3b  |20,.128);.0,28);|
00000f00  c4 32 30 2c bd 31 32 38  29 3b 8a 30 2c 33 30 29  |.20,.128);.0,30)|
00000f10  3b c4 32 30 2c bd 31 32  38 29 3b 0d 04 10 18 ef  |;.20,.128);.....|
00000f20  33 30 2c 32 33 3b 38 32  30 32 3b 30 3b 30 3b 30  |30,23;8202;0;0;0|
00000f30  3b 3a e1 0d 04 1a 0a dd  f2 64 65 61 64 0d 04 24  |;:.......dead..$|
00000f40  44 d4 30 2c 31 2c 35 2c  31 30 3a e3 4a 25 3d 30  |D.0,1,5,10:.J%=0|
00000f50  b8 39 3a ef 31 39 2c 32  2c 31 3b 30 3b 3a e3 4b  |.9:.19,2,1;0;:.K|
00000f60  25 3d 30 b8 32 30 30 3a  ed 3a ef 31 39 2c 32 2c  |%=0.200:.:.19,2,|
00000f70  30 3b 30 3b 3a e3 4b 25  3d 30 b8 32 30 30 3a ed  |0;0;:.K%=0.200:.|
00000f80  2c 0d 04 2e 05 e1 0d 04  38 0a dd f2 43 48 41 52  |,.......8...CHAR|
00000f90  0d 04 42 83 ef 32 33 2c  31 32 38 2c 30 2c 37 2c  |..B..23,128,0,7,|
00000fa0  31 35 2c 33 31 2c 36 33  2c 31 32 37 2c 32 35 35  |15,31,63,127,255|
00000fb0  2c 30 2c 32 33 2c 31 32  39 2c 30 2c 32 35 35 2c  |,0,23,129,0,255,|
00000fc0  32 35 34 2c 32 35 32 2c  32 34 38 2c 32 34 30 2c  |254,252,248,240,|
00000fd0  32 32 34 2c 30 2c 32 33  2c 31 33 30 2c 32 35 35  |224,0,23,130,255|
00000fe0  2c 32 35 35 2c 31 32 37  2c 37 2c 31 2c 30 2c 30  |,255,127,7,1,0,0|
00000ff0  2c 30 2c 32 33 2c 31 33  31 2c 32 35 35 2c 32 35  |,0,23,131,255,25|
00001000  35 2c 32 35 34 2c 32 32  34 2c 31 32 38 2c 30 2c  |5,254,224,128,0,|
00001010  30 2c 30 0d 04 4c 7a ef  32 33 2c 31 33 32 2c 30  |0,0..Lz.23,132,0|
00001020  2c 30 2c 30 2c 30 2c 32  34 2c 32 35 32 2c 32 35  |,0,0,0,24,252,25|
00001030  32 2c 32 34 2c 32 33 2c  31 33 33 2c 30 2c 30 2c  |2,24,23,133,0,0,|
00001040  30 2c 30 2c 32 34 2c 36  33 2c 36 33 2c 32 34 2c  |0,0,24,63,63,24,|
00001050  32 33 2c 31 33 34 2c 32  35 35 2c 32 35 35 2c 32  |23,134,255,255,2|
00001060  35 35 2c 30 2c 30 2c 30  2c 30 2c 30 2c 32 33 2c  |55,0,0,0,0,0,23,|
00001070  31 33 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |135,255,255,255,|
00001080  32 35 35 2c 32 35 35 2c  30 2c 30 2c 30 0d 04 56  |255,255,0,0,0..V|
00001090  79 ef 32 33 2c 31 33 36  2c 31 39 32 2c 32 32 34  |y.23,136,192,224|
000010a0  2c 32 34 30 2c 32 34 30  2c 32 34 30 2c 32 34 30  |,240,240,240,240|
000010b0  2c 32 34 30 2c 32 34 30  2c 32 33 2c 31 33 37 2c  |,240,240,23,137,|
000010c0  32 34 30 2c 32 34 30 2c  32 34 30 2c 32 34 30 2c  |240,240,240,240,|
*
000010e0  32 33 2c 31 33 38 2c 32  34 30 2c 32 34 30 2c 32  |23,138,240,240,2|
000010f0  34 30 2c 32 34 30 2c 32  34 30 2c 32 34 30 2c 32  |40,240,240,240,2|
00001100  32 34 2c 31 39 32 0d 04  60 78 ef 32 33 2c 31 33  |24,192..`x.23,13|
00001110  39 2c 30 2c 30 2c 30 2c  31 35 2c 31 35 2c 31 35  |9,0,0,0,15,15,15|
00001120  2c 31 35 2c 31 35 2c 32  33 2c 31 34 30 2c 31 35  |,15,15,23,140,15|
00001130  2c 31 35 2c 31 35 2c 31  35 2c 31 35 2c 31 35 2c  |,15,15,15,15,15,|
00001140  31 35 2c 31 35 2c 32 33  2c 31 34 31 2c 31 35 2c  |15,15,23,141,15,|
00001150  31 35 2c 31 35 2c 31 35  2c 31 35 2c 30 2c 30 2c  |15,15,15,15,0,0,|
00001160  30 2c 32 33 2c 31 34 32  2c 30 2c 30 2c 30 2c 30  |0,23,142,0,0,0,0|
00001170  2c 32 34 2c 32 35 35 2c  32 35 35 2c 32 34 0d 04  |,24,255,255,24..|
00001180  6a 8b ef 32 33 2c 31 34  33 2c 32 32 35 2c 31 31  |j..23,143,225,11|
00001190  35 2c 36 32 2c 32 38 2c  32 34 2c 34 38 2c 39 36  |5,62,28,24,48,96|
000011a0  2c 31 39 32 2c 32 33 2c  31 34 34 2c 33 30 2c 33  |,192,23,144,30,3|
000011b0  35 2c 36 37 2c 33 2c 36  33 2c 37 31 2c 37 31 2c  |5,67,3,63,71,71,|
000011c0  35 39 2c 32 33 2c 31 34  35 2c 32 35 35 2c 37 2c  |59,23,145,255,7,|
000011d0  31 34 2c 32 38 2c 35 36  2c 31 31 32 2c 32 32 34  |14,28,56,112,224|
000011e0  2c 32 35 35 2c 32 33 2c  31 34 36 2c 36 30 2c 31  |,255,23,146,60,1|
000011f0  32 32 2c 32 34 39 2c 32  34 39 2c 32 34 39 2c 32  |22,249,249,249,2|
00001200  34 39 2c 31 32 32 2c 36  30 0d 04 74 05 e1 0d 04  |49,122,60..t....|
00001210  7e 37 dd f2 4e 45 58 54  3a e3 54 3d 30 b8 32 30  |~7..NEXT:.T=0.20|
00001220  30 3a d4 26 31 31 2c 32  2c 54 2c 33 3a ed 3a 53  |0:.&11,2,T,3:.:S|
00001230  43 3d 53 43 2b 31 3a e7  20 53 43 3d 32 20 8c 20  |C=SC+1:. SC=2 . |
00001240  f2 6d 6f 76 65 0d 04 88  05 e1 0d 04 92 31 dd f2  |.move........1..|
00001250  6d 6f 76 65 3a e3 54 3d  33 b8 31 88 2d 31 3a 41  |move:.T=3.1.-1:A|
00001260  3d 54 2d 31 3a 54 3f 26  43 42 3d 41 3f 26 43 42  |=T-1:T?&CB=A?&CB|
00001270  3a ed 3a 3f 26 43 42 3d  30 3a e1 0d 04 9c 07 f4  |:.:?&CB=0:......|
00001280  06 40 0d 04 a6 0e dd f2  68 69 67 68 3a 54 3d 31  |.@......high:T=1|
00001290  0d 04 b0 15 e7 20 53 63  3e 48 53 28 54 29 20 8c  |..... Sc>HS(T) .|
000012a0  20 8d 64 4e 44 0d 04 ba  17 54 3d 54 2b 31 3a e7  | .dND....T=T+1:.|
000012b0  20 54 3c 3e 36 20 8c 20  8d 74 70 44 0d 04 c4 0b  | T<>6 . .tpD....|
000012c0  db 3a e5 8d 64 76 44 0d  04 ce 10 e7 20 54 3d 35  |.:..dvD..... T=5|
000012d0  20 8c 20 8d 64 62 44 0d  04 d8 33 e3 47 25 3d 35  | . .dbD...3.G%=5|
000012e0  b8 54 20 88 2d 31 3a 48  53 28 47 25 29 3d 48 53  |.T .-1:HS(G%)=HS|
000012f0  28 47 25 2d 31 29 3a 48  53 24 28 47 25 29 3d 48  |(G%-1):HS$(G%)=H|
00001300  53 24 28 47 25 2d 31 29  3a ed 0d 04 e2 1c 48 53  |S$(G%-1):.....HS|
00001310  28 54 29 3d 53 63 3a f2  6e 61 6d 65 3a 48 53 24  |(T)=Sc:.name:HS$|
00001320  28 54 29 3d 41 24 0d 04  ec 2d 41 3d 31 35 2d a9  |(T)=A$...-A=15-.|
00001330  48 53 24 28 54 29 3a 48  53 24 28 54 29 3d 48 53  |HS$(T):HS$(T)=HS|
00001340  24 28 54 29 2b c4 41 2c  22 2e 22 29 3a fb 31 32  |$(T)+.A,"."):.12|
00001350  38 3a db 0d 04 f6 30 fb  33 3a f1 8a 33 2c 33 29  |8:....0.3:..3,3)|
00001360  3b c4 31 34 2c bd 31 34  38 29 3b 3a fb 31 3a f1  |;.14,.148);:.1:.|
00001370  8a 34 2c 32 29 22 54 6f  64 61 79 27 73 20 42 65  |.4,2)"Today's Be|
00001380  73 74 22 0d 05 00 24 e3  54 25 3d 31 b8 35 3a e7  |st"...$.T%=1.5:.|
00001390  20 48 53 28 54 25 29 3c  39 35 30 20 8c 20 58 3d  | HS(T%)<950 . X=|
000013a0  31 20 8b 20 58 3d 30 0d  05 0a 14 e7 20 54 25 3d  |1 . X=0..... T%=|
000013b0  54 20 8c 20 fb 33 20 8b  20 fb 31 0d 05 14 36 f1  |T . .3 . .1...6.|
000013c0  8a 30 2c 28 54 25 2a 33  29 2b 34 29 3b 48 53 24  |.0,(T%*3)+4);HS$|
000013d0  28 54 25 29 3a fb 32 3a  f1 8a 31 35 2b 30 2c 28  |(T%):.2:..15+0,(|
000013e0  54 25 2a 33 29 2b 34 29  3b 48 53 28 54 25 29 3a  |T%*3)+4);HS(T%):|
000013f0  ed 0d 05 1e 31 fb 33 3a  f1 8a 30 2c 32 39 29 3b  |....1.3:..0,29);|
00001400  22 50 52 45 53 53 20 54  48 45 20 20 53 50 41 43  |"PRESS THE  SPAC|
00001410  45 20 42 41 52 22 3a f5  3a fd a6 2d 39 39 3a db  |E BAR":.:..-99:.|
00001420  3a e1 0d 05 28 54 dd f2  6e 61 6d 65 3a fb 31 32  |:...(T..name:.12|
00001430  39 3a f1 8a 32 2c 34 29  3b 89 28 31 36 29 3a fb  |9:..2,4);.(16):.|
00001440  32 3a fb 31 32 38 3a f1  8a 33 2c 33 29 3b c4 31  |2:.128:..3,3);.1|
00001450  34 2c 22 2d 22 29 3b 3a  45 25 3d 30 3a 44 25 3d  |4,"-");:E%=0:D%=|
00001460  31 3a 4c 25 3d 30 3a 43  25 3d 36 35 3a 58 25 3d  |1:L%=0:C%=65:X%=|
00001470  30 3a 59 25 3d 37 0d 05  32 0c 2a 46 58 31 31 2c  |0:Y%=7..2.*FX11,|
00001480  35 30 0d 05 3c 0b 2a 46  58 31 35 2c 30 0d 05 46  |50..<.*FX15,0..F|
00001490  5a fb 33 3a f1 8a 31 2c  31 35 29 3b 22 45 4e 54  |Z.3:..1,15);"ENT|
000014a0  45 52 20 49 4e 20 59 4f  55 52 20 4e 41 4d 45 22  |ER IN YOUR NAME"|
000014b0  3a fb 31 3a f1 8a 32 2c  31 37 29 3b 22 41 4e 44  |:.1:..2,17);"AND|
000014c0  20 50 52 45 53 53 20 52  45 54 55 52 4e 22 3a fb  | PRESS RETURN":.|
000014d0  33 3a f1 8a 35 2c 31 39  29 3b 22 47 6f 6f 64 20  |3:..5,19);"Good |
000014e0  50 6c 61 79 21 22 3b 0d  05 64 16 42 24 3d be 3a  |Play!";..d.B$=.:|
000014f0  43 25 3d 97 42 24 3a f2  70 72 69 6e 74 0d 05 82  |C%=.B$:.print...|
00001500  11 e7 20 45 25 3d 31 20  8c 20 8d 64 7a 45 0d 05  |.. E%=1 . .dzE..|
00001510  8c 09 e5 8d 44 64 45 0d  05 be 23 dd f2 70 72 69  |....DdE...#..pri|
00001520  6e 74 3a e7 20 43 25 3d  31 33 20 84 20 43 25 3d  |nt:. C%=13 . C%=|
00001530  31 32 37 20 8c 20 8d 64  66 45 0d 05 c8 0d e7 20  |127 . .dfE..... |
00001540  4c 25 3d 31 34 20 e1 0d  05 d2 21 fb 31 32 38 3a  |L%=14 ....!.128:|
00001550  fb 33 3a ef 33 31 2c 4c  25 2b 33 2c 33 2c 43 25  |.3:.31,L%+3,3,C%|
00001560  3a 4c 25 3d 4c 25 2b 31  0d 05 dc 05 e1 0d 05 e6  |:L%=L%+1........|
00001570  12 e7 20 43 25 3d 31 33  20 45 25 3d 31 3a e1 0d  |.. C%=13 E%=1:..|
00001580  05 f0 2e e7 20 4c 25 3d  30 20 e1 20 8b 20 fb 31  |.... L%=0 . . .1|
00001590  32 38 3a fb 32 3a 4c 25  3d 4c 25 2d 31 3a f1 8a  |28:.2:L%=L%-1:..|
000015a0  4c 25 2b 33 2c 33 29 3b  22 2d 22 3a e1 0d 05 fa  |L%+3,3);"-":....|
000015b0  1c fb 31 32 38 3a fb 33  3a 41 24 3d 22 22 3a e3  |..128:.3:A$="":.|
000015c0  54 25 3d 30 b8 4c 25 2d  31 0d 06 04 3c 41 25 3d  |T%=0.L%-1...<A%=|
000015d0  31 33 35 3a ef 33 31 2c  54 25 2b 33 2c 33 3a 21  |135:.31,T%+3,3:!|
000015e0  62 6c 6f 3d ba 28 26 46  46 46 34 29 3a 41 24 3d  |blo=.(&FFF4):A$=|
000015f0  41 24 2b bd 28 62 6c 6f  3f 31 29 3a ed 3a 2a 46  |A$+.(blo?1):.:*F|
00001600  58 31 31 2c 30 0d 06 0e  05 e1 0d ff              |X11,0.......|
0000160c
....2.m0
....2.m1
....2.m2
....2.m4
....2.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .