18-06-88/X-15

Home » CEEFAX disks » telesoftware7.adl » 18-06-88/X-15

18-06-88/X-15

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 » CEEFAX disks » telesoftware7.adl
Filename:	18-06-88/X-15
Read OK:	✔
File size:	1BA4 bytes
Load address:	FFFF1900
Exec address:	FFFF801F

Duplicates

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

AEW website » mu » mu_5_25_discs_Micro_User_03_02_D-MU03_02.ssd » X-15
AEW website » mu » mu_Micro_User_03_02_MU3-2_B.uef » X-15
CEEFAX disks » telesoftware16.adl » 26-05-89/X-15
CEEFAX disks » telesoftware7.adl » 18-06-88/X-15

File contents

   10REM ========================
   20REM
   30REM   X-15
   40REM   By D. J. Pilling
   50REM   (C) The Micro User
   60REM
   70REM ========================
   80PROCc
   90PROCs
  100MODE7
  110PROCi
  120MODE2
  130PROCscs
  140REPEAT
  150PROCgs
  160REPEAT
  170N%=RND(3):SC%=SC%+100
  180IFN%=1PROCgrs:REPEAT PROCsc:PROCg:UNTILW%=252 ELSEIFN%=2 PROCts:REPEAT PROCsc:PROCt:UNTILW%=252 ELSE PROCcis:REPEAT PROCsc:PROCci:UNTILW%=252
  190UNTILOV%
  200PROCge
  210UNTIL FALSE
  220END
  230DEFPROCsc
  240L%=L%+D%
  250IFI%=P% I%=I%+30 ELSEI%=P%
  260IFINKEYK% C%=I%+8:D%=1:E%=E%+672 ELSEIFINKEYJ%ANDL%>2 C%=I%+19:D%=-1:E%=E%-608 ELSEC%=I%:D%=0:E%=E%+32
  270IFE%>&7FFF E%=E%-&5000 ELSEIFE%<&3000 E%=E%+&5000
  280IF?E% PROCexp:ENDPROC
  290O%=O%+32:W%=W%+4
  300IFO%=256O%=0:U%=U%+1
  310IFW%=256W%=0:V%=V%+1
  320IFU%=&80U%=&30:V%=&6
  330IFF%PRINTTAB(X%,Y%)" ":IFX%=18F%=0
  340?&350=O%:?&351=U%
  350*FX19
  360VDU23;12,V%;0;0;0;23;13,W%;0;0;0;
  370PRINTTAB(4,L%)$C%TAB(19,0)$S%;
  380IFF%ELSEIFINKEYR% X%=7:Y%=L%+D%:F%=E%+32:SOUND1,1,200,20 ELSE440
  390IFF%>&7FFF F%=F%-&5000
  400IF?F%PROCx(?F%AND170,X%,Y%):GOTO440
  410F%=F%+32
  420IFF%>&7FFF F%=F%-&5000
  430IF?F%PROCx(?F%AND170,X%+1,Y%) ELSE F%=F%+32:X%=X%+1:PRINTTAB(X%,Y%)D$
  440IFG% ELSEIFINKEYZ% H%=L%+1+D%:G%=7:M%=E%+1312:SOUND2,2,150,15:ENDPROC ELSEENDPROC
  450IFM%>&7FFF M%=M%-&5000
  460IF?M%PROCy(?M%AND170,G%-1,H%):ENDPROC
  470M%=M%+640
  480G%=G%-1:IFH%>13 PRINTTAB(G%,H%)" " ELSEPRINTTAB(G%,H%)R$:H%=H%+1
  490ENDPROC
  500DEFPROCx(N%,X%,Y%)
  510SOUND&11,0,0,1
  520F%=0:IFN%<42 SC%=SC%+5 ELSEIFN%<162 ENDPROC ELSEIFN%=168 RL%=FALSE:SOUND&13,0,0,1:SC%=SC%+10 ELSEIFN%=162 ML%=FALSE:MF%=FALSE:SOUND&13,0,0,1:SC%=SC%+50 ELSE SC%=SC%+50
  530SOUND0,4,5,3:PRINTTAB(X%,Y%)X$
  540ENDPROC
  550DEFPROCy(N%,X%,Y%)
  560SOUND&12,0,0,1
  570G%=0:IFN%<42 SC%=SC%+5 ELSEIFN%<162 PRINTTAB(X%,Y%)CHR$32:ENDPROC ELSEIFN%=168 RL%=FALSE:SOUND&13,0,0,1:SC%=SC%+10 ELSEIFN%=162 ML%=FALSE:SOUND&13,0,0,1:MF%=FALSE:SC%=SC%+50 ELSE SC%=SC%+50
  580SOUND0,4,5,3:PRINTTAB(X%,Y%)Y$
  590ENDPROC
  600DEFPROCts
  610IFB%<32T%=B%-14:B%=T%+26 ELSEB%=38:T%=12
  620$S%=CHR$17+CHR$(6+RND(6))+B$+STRING$(T%DIV3,S$)+STRING$(8,B$)+STRING$((50-B%)DIV3,S$)
  630S%?(2+T%)=246:S%?B%=236
  640ENDPROC
  650DEFPROCcis
  660B%=35:T%=3
  670$S%=CHR$17+CHR$7+B$+STRING$(11,B$)+STRING$(5,C$)
  680ENDPROC
  690DEFPROCgrs
  700B%=35:T%=3
  710$S%=CHR$17+CHR$(6+RND(6))+B$+STRING$(11,B$)+STRING$(5,S$):S%?B%=236
  720ENDPROC
  730DEFPROCg
  740IF(W%AND12)=12 PRINTTAB(19,RND(A%?(B%-2)));:VDU17,RND(6),248
  750N%=RND(6):PROCru
  760IFW%=128 S%?1=RND(6)+6
  770IFN%=3 PRINTTAB(19,A%?(B%-2));:VDU17,15,227
  780IFN%AND1 IFB%<47 S%?B%=32:B%=B%+3:S%?B%=236:ENDPROC
  790IFB%>20 S%?B%=244:B%=B%-3:S%?B%=237
  800ENDPROC
  810DEFPROCru
  820IFRL%=TRUE ELSEIFW%>180 ENDPROC ELSERT%=T%?A%:RB%=A%?(B%-2)-1:RX%=19:RY%=(RT%+RB%)DIV2:RL%=TRUE:PRINTTAB(RX%,RY%)RH$:SOUND3,6,100,50:ENDPROC
  830RX%=RX%-1:IFRX%<7:RL%=FALSE:SOUND&13,0,0,1:ENDPROC
  840IFRY%>L% IFRY%>RT%:PRINTTAB(RX%,RY%)RU$:RY%=RY%-1:ENDPROC
  850IFRY%<L% IFRY%<RB%:PRINTTAB(RX%,RY%)RD$:RY%=RY%+1:ENDPROC
  860ENDPROC
  870DEFPROCmu
  880IFN%=3:PRINTTAB(19,A%?(B%-2));:VDU17,15,242
  890IFML% ELSEIFW%>180 ENDPROC ELSE MT%=T%?A%:MY%=A%?(B%-2):MX%=19:ML%=TRUE:PRINTTAB(19,A%?(B%-2));:VDU17,13,242:ENDPROC
  900MX%=MX%-1:IFMF% ELSEIFMX%-6<=MY%-L% MF%=TRUE:SOUND3,3,50,15 ELSEENDPROC
  910IFMY%=MT% OR MX%<7 ELSEPRINTTAB(MX%,MY%)MU$:MY%=MY%-1:ENDPROC
  920PRINTTAB(MX%,MY%)" "
  930ML%=FALSE:MF%=FALSE:SOUND&13,0,0,1:ENDPROC
  940DEFPROCci
  950IF(W%AND12)=12PRINTTAB(19,RND(A%?(B%-2)));:VDU17,RND(6),248
  960N%=RND(6):PROCmu
  970IFN%AND1IFB%>20 S%?B%=240:B%=B%-3:S%?1=N%+6:ENDPROC
  980IFB%<47 B%=B%+3:S%?B%=32
  990S%?1=N%+6
 1000ENDPROC
 1010DEFPROCt
 1020IF(W%AND12)=12PRINTTAB(19,A%?(B%-2)-RND(7));:VDU17,RND(6),248
 1030N%=RND(6):IFN%=1:PRINTTAB(19,(B%-2)DIV3);:VDU17,15,227
 1040IFW%=128 S%?1=RND(6)+6
 1050IFN%AND1 IFT%<24 S%?(2+T%)=244:T%=T%+3:S%?(2+T%)=247:S%?B%=32:B%=B%+3:S%?B%=236:ENDPROC
 1060IFT%>3 S%?B%=244:B%=B%-3:S%?B%=237:S%?(2+T%)=32:T%=T%-3:S%?(2+T%)=246
 1070ENDPROC
 1080DEFPROCc
 1090VDU23,226,0,0,126,0,0,126,0,0
 1100VDU23,227,255,129,153,145,153,145,145,255
 1110VDU23,230,96,112,252,123,123,252,112,96
 1120VDU23,234,219,0,109,0,0,109,0,219
 1130VDU23,235,109,0,219,0,0,219,0,109
 1140VDU23,236,128,144,208,216,248,248,252,255
 1150VDU23,237,1,1,9,9,29,95,127,255
 1160VDU23,240,255,255,195,195,195,255,255,255
 1170VDU23,241,20,28,8,8,8,8,8,0
 1180VDU23,242,66,66,66,66,66,231,231,165
 1190VDU23,243,0,0,0,1,3,39,255,255
 1200VDU23,244,255,255,255,255,255,255,255,255
 1210VDU23,246,255,252,248,248,216,208,144,128
 1220VDU23,247,255,255,223,157,137,137,129,129
 1230VDU23,248,146,84,56,56,56,56,84,146
 1240VDU23,249,136,73,42,28,255,28,42,41
 1250VDU23,250,144,1,36,137,0,18,33,132
 1260ENVELOPE1,1,-3,-3,-3,10,10,10,127,-1,-1,-1,126,110
 1270ENVELOPE2,1,-1,-1,-1,80,80,80,127,0,-1,-1,126,126
 1280ENVELOPE3,1,1,2,100,100,100,5,5,0,-2,50,126,1
 1290ENVELOPE4,1,0,0,0,10,5,5,127,0,-2,-2,126,126
 1300ENVELOPE5,1,0,0,0,10,5,5,127,-1,0,-1,126,126
 1310ENVELOPE6,1,15,-15,-15,4,2,2,5,0,0,-15,80,80
 1320HI%=0:HI$="JOE ZERO":SC%=0:NP%=3
 1330ENDPROC
 1340DEFPROCs
 1350MU$=CHR$32+CHR$8+CHR$11+CHR$17+CHR$13+CHR$242
 1360RU$=CHR$32+CHR$8+CHR$11+CHR$17+CHR$14+CHR$243
 1370RD$=CHR$32+CHR$8+CHR$10+CHR$17+CHR$14+CHR$243
 1380RH$=CHR$17+CHR$14+CHR$243
 1390D$=CHR$17+CHR$1+CHR$226
 1400C$=CHR$240+CHR$8+CHR$10
 1410S$=CHR$244+CHR$8+CHR$10
 1420Y$=CHR$32+CHR$8+CHR$10+CHR$17+CHR$7+CHR$249
 1430X$=CHR$17+CHR$7+CHR$249
 1440E$=CHR$17+CHR$7+CHR$32+CHR$250+CHR$17+CHR$3+CHR$249+CHR$17+CHR$7+CHR$250+CHR$10+STRING$(3,CHR$8)+STRING$(3,CHR$250)+CHR$11+CHR$11+STRING$(3,CHR$8)+STRING$(3,CHR$250)
 1450B$=" "+CHR$8+CHR$10
 1460R$=" "+CHR$17+CHR$1+CHR$8+CHR$10+CHR$241
 1470P0$=CHR$17+CHR$1+CHR$235+CHR$17+CHR$3+CHR$230
 1480P1$=CHR$17+CHR$1+CHR$234+CHR$17+CHR$3+CHR$230
 1490DIMP% 60
 1500DIMA% 66
 1510FORI%=0TO66:A%?I%=I%DIV3:NEXT
 1520$P%=" "+P0$+CHR$13+"  "+CHR$10+CHR$8+P0$+CHR$13+"  "+CHR$11+CHR$8+P0$+CHR$13+" "+P1$+CHR$13+"  "+CHR$10+CHR$8+P1$+CHR$13+"  "+CHR$11+CHR$8+P1$+CHR$13
 1530DIMS% 100
 1540ENDPROC
 1550DEFPROCexp
 1560PRINTTAB(5,L%)E$:SOUND0,5,5,30
 1570SOUND&11,0,0,1:SOUND&12,0,0,1:SOUND&13,0,0,1
 1580PROCd(8)
 1590FORI%=1TO12:VDU19,0,I%MOD6,0,0,0:PROCd(9):SOUND1,-15,RND(200),3:SOUND2,-15,RND(200),3:SOUND3,-15,RND(200),3:PROCd(3):NEXT:PROCd(50)
 1600W%=252:OV%=TRUE
 1610ENDPROC
 1620DEFPROCgs
 1630F%=0:G%=0:D%=0
 1640U%=&30:O%=0:V%=&6:W%=0
 1650E%=18887
 1660L%=10:OV%=FALSE:
 1670ML%=FALSE:MF%=FALSE
 1680RL%=FALSE
 1690VDU19,15,1,0,0,0
 1700VDU19,14,1,0,0,0
 1710VDU19,13,1,0,0,0
 1720FORN%=1TO6
 1730VDU19,6+N%,N%,0,0,0
 1740NEXT
 1750B%=35
 1760ENDPROC
 1770DEFPROCge
 1780*FX21,0
 1790SOUND&11,0,0,1:SOUND&12,0,0,1:SOUND&13,0,0,1
 1800NP%=NP%-1
 1810IF NP%=0 PROCgx
 1820PROCscs
 1830ENDPROC
 1840DEFPROCgx
 1850VDU19,7,7,0,0,0
 1860COLOUR132:CLS
 1870COLOUR131:VDU28,0,26,19,4:CLS
 1880COLOUR129:VDU28,1,25,18,5:CLS
 1890COLOUR7:PRINTTAB(7,1)"X-15"
 1900PRINTTAB(4,3)"GAME  OVER"
 1910PRINTTAB(1,6)"YOUR SCORE ";SC%
 1920PRINTTAB(1,8)"HIGH SCORE ";HI%
 1930IFSC%<HI%PRINT'" BY "HI$:GOTO1970
 1940IFHI%=SC% PRINT''" YOU EQUALED THE" ELSEPRINT''" YOU BEAT THE"
 1950PRINT'" HIGH SCORE !"''" ENTER YOUR NAME"''" > ";
 1960INPUT""A$:IFLENA$>12GOTO1870 ELSEHI$=A$:HI%=SC%:GOTO2000
 1970PRINT'''" RETURN FOR"''" ANOTHER GAME"
 1980REPEATUNTILINKEY(0)=TRUE
 1990REPEATUNTILGET=13
 2000PROCsx:SC%=0:NP%=3:COLOUR128:VDU26:ENDPROC
 2010DEFPROCscs
 2020CLS
 2030VDU23;8202;0;0;0;
 2040VDU19,10,4,0,0,0
 2050COLOUR138:PRINTTAB(0,15)SPC40
 2060COLOUR131:VDU28,0,31,19,17:CLS
 2070COLOUR129:VDU28,1,30,18,18:CLS
 2080VDU19,7,7,0,0,0
 2090COLOUR7
 2100PRINTTAB(6,1)"X-15"
 2110PRINTTAB(1,3)"X-15's -> ";NP%
 2120PRINTTAB(1,5)"SCORE  -> ";SC%
 2130PRINTTAB(1,7)"HIGH   -> ";HI%
 2140PRINTTAB(1,9)"BY -> ";HI$
 2150PRINTTAB(1,11)"RETURN TO START ";
 2160COLOUR128:VDU26
 2170FORI%=1TO10:PRINTTAB(RND(20)-1,RND(9));:VDU17,RND(6),248:NEXT
 2180REPEATPROCp:PROCd(5):UNTILINKEY-74
 2190VDU19,9,1,0,0,0
 2200COLOUR137:COLOUR7
 2210VDU28,1,30,18,18:CLS
 2220PRINTTAB(6,1)"X-15"
 2230VDU26
 2240FORI%=9TO-3 STEP-1
 2250COLOUR128:PROCp:COLOUR137:PROCd(10)
 2260IFI%>-1 A$=STRING$(8,STR$I%+" "):SOUND1,-15,I%*10+100,2:SOUND2,-15,I%*15+100,2 ELSEIFI%=-1 A$=STRING$(4,"GO  "):SOUND0,-15,6,20
 2270C%=(I%+4)MOD4:IFC%=3 C%=4
 2280*FX19
 2290VDU19,9,C%,0,0,0:COLOUR7
 2300PRINTTAB(2,22)A$ TAB(2,24)A$ TAB(2,26)A$ TAB(2,28)A$
 2310NEXT
 2320COLOUR128
 2330VDU28,0,31,19,17:CLS
 2340VDU26
 2350ENDPROC
 2360DEFPROCp
 2370IFN%=1 PRINTTAB(5,10)P0$:N%=0 ELSE PRINTTAB(5,10)P1$:N%=1
 2380ENDPROC
 2390DEFPROCd(T%):T%=TIME+T%:REPEAT UNTIL TIME>T%:ENDPROC
 2400DEFFNGK
 2410I%=0
 2420REPEAT
 2430I%=I%+1
 2440IFI%=127 I%=1
 2450UNTILINKEY-I%
 2460PRINTTAB(1,16)" O.K. RELEASE KEY ";
 2470REPEATUNTILNOTINKEY-I%:PROCd(10)
 2480PRINTTAB(1,16)SPC20
 2490=-I%
 2500DEFPROCi
 2510VDU23;8202;0;0;0;
 2520FORI%=0TO10
 2530A$=CHR$(129+I%MOD6)+CHR$157+CHR$135+CHR$141+"< "+STRING$(5," X-15 ")+" >"
 2540PRINTA$'A$
 2550NEXT:PROCsx
 2560PROCd(25)
 2570VDU28,0,19,39,2:CLS
 2580PRINT''"  PILOT YOUR X-15 THROUGH THE TUNNELS"'"  AND OVER THE HILLS AND CITIES"
 2590PRINT'"  AVOID THE MISSILES AND ASTEROIDS"
 2600PRINT'"  BOMB AND ROCKET AS MANY FUEL DUMPS"'"  AND MISSILE BASES AS YOU CAN"
 2610PRINT''"  FIRST SELECT YOUR KEYS >>"
 2620PRINTTAB(1,14)" HOLD DOWN KEY FOR UP ";
 2630J%=FNGK
 2640PRINTTAB(1,14)" HOLD DOWN KEY FOR DOWN ";
 2650K%=FNGK
 2660PRINTTAB(1,14)" HOLD DOWN KEY FOR BOMB ";
 2670Z%=FNGK
 2680PRINTTAB(1,14)" HOLD DOWN KEY FOR ROCKETS ";
 2690R%=FNGK
 2700PRINTTAB(1,14)SPC30TAB(1,14)" O.K. ";
 2710PROCd(40)
 2720ENDPROC
 2730DEFPROCsx
 2740FORI%=1TO10
 2750SOUND1,-15,RND(200),1
 2760SOUND2,-15,RND(200),1
 2770SOUND3,-15,RND(200),1
 2780PROCd(8)
 2790NEXT
 2800ENDPROC


� ========================
�
�   X-15
(�   By D. J. Pilling
2�   (C) The Micro User
<�
F� ========================
P�c
Z�s
d�7
n�i
x�2
��scs
��
��gs
��
�N%=�(3):SC%=SC%+100
�S�N%=1�grs:� �sc:�g:�W%=252 ��N%=2 �ts:� �sc:�t:�W%=252 � �cis:� �sc:�ci:�W%=252
��OV%
��ge
�� �
��
���sc
�L%=L%+D%
��I%=P% I%=I%+30 �I%=P%
X�K% C%=I%+8:D%=1:E%=E%+672 ��J%�L%>2 C%=I%+19:D%=-1:E%=E%-608 �C%=I%:D%=0:E%=E%+32
0�E%>&7FFF E%=E%-&5000 ��E%<&3000 E%=E%+&5000
�?E% �exp:�
"O%=O%+32:W%=W%+4
,�O%=256O%=0:U%=U%+1
6�W%=256W%=0:V%=V%+1
@�U%=&80U%=&30:V%=&6
J�F%�X%,Y%)" ":�X%=18F%=0
T?&350=O%:?&351=U%
^	*FX19
h#�23;12,V%;0;0;0;23;13,W%;0;0;0;
r�4,L%)$C%�19,0)$S%;
|5�F%��R% X%=7:Y%=L%+D%:F%=E%+32:�1,1,200,20 ��txA
��F%>&7FFF F%=F%-&5000
��?F%�x(?F%�170,X%,Y%):�txA
�F%=F%+32
��F%>&7FFF F%=F%-&5000
�9�?F%�x(?F%�170,X%+1,Y%) � F%=F%+32:X%=X%+1:�X%,Y%)D$
�9�G% ��Z% H%=L%+1+D%:G%=7:M%=E%+1312:�2,2,150,15:� ��
��M%>&7FFF M%=M%-&5000
��?M%�y(?M%�170,G%-1,H%):�
�
M%=M%+640
�2G%=G%-1:�H%>13 �G%,H%)" " ��G%,H%)R$:H%=H%+1
��
���x(N%,X%,Y%)
��&11,0,0,1
�F%=0:�N%<42 SC%=SC%+5 ��N%<162 � ��N%=168 RL%=�:�&13,0,0,1:SC%=SC%+10 ��N%=162 ML%=�:MF%=�:�&13,0,0,1:SC%=SC%+50 � SC%=SC%+50
�0,4,5,3:�X%,Y%)X$
�
&��y(N%,X%,Y%)
0�&12,0,0,1
:�G%=0:�N%<42 SC%=SC%+5 ��N%<162 �X%,Y%)�32:� ��N%=168 RL%=�:�&13,0,0,1:SC%=SC%+10 ��N%=162 ML%=�:�&13,0,0,1:MF%=�:SC%=SC%+50 � SC%=SC%+50
D�0,4,5,3:�X%,Y%)Y$
N�
X��ts
b(�B%<32T%=B%-14:B%=T%+26 �B%=38:T%=12
l8$S%=�17+�(6+�(6))+B$+�T%�3,S$)+�8,B$)+�(50-B%)�3,S$)
vS%?(2+T%)=246:S%?B%=236
��
�	��cis
�B%=35:T%=3
� $S%=�17+�7+B$+�11,B$)+�5,C$)
��
�	��grs
�B%=35:T%=3
�1$S%=�17+�(6+�(6))+B$+�11,B$)+�5,S$):S%?B%=236
��
���g
�0�(W%�12)=12 �19,�(A%?(B%-2)));:�17,�(6),248
�N%=�(6):�ru
��W%=128 S%?1=�(6)+6
%�N%=3 �19,A%?(B%-2));:�17,15,227
-�N%�1 �B%<47 S%?B%=32:B%=B%+3:S%?B%=236:�
&�B%>20 S%?B%=244:B%=B%-3:S%?B%=237
 �
*��ru
4i�RL%=� ��W%>180 � �RT%=T%?A%:RB%=A%?(B%-2)-1:RX%=19:RY%=(RT%+RB%)�2:RL%=�:�RX%,RY%)RH$:�3,6,100,50:�
>'RX%=RX%-1:�RX%<7:RL%=�:�&13,0,0,1:�
H.�RY%>L% �RY%>RT%:�RX%,RY%)RU$:RY%=RY%-1:�
R.�RY%<L% �RY%<RB%:�RX%,RY%)RD$:RY%=RY%+1:�
\�
f��mu
p%�N%=3:�19,A%?(B%-2));:�17,15,242
zX�ML% ��W%>180 � � MT%=T%?A%:MY%=A%?(B%-2):MX%=19:ML%=�:�19,A%?(B%-2));:�17,13,242:�
�6MX%=MX%-1:�MF% ��MX%-6<=MY%-L% MF%=�:�3,3,50,15 ��
�/�MY%=MT% � MX%<7 ��MX%,MY%)MU$:MY%=MY%-1:�
��MX%,MY%)" "
�ML%=�:MF%=�:�&13,0,0,1:�
���ci
�/�(W%�12)=12�19,�(A%?(B%-2)));:�17,�(6),248
�N%=�(6):�mu
�-�N%�1�B%>20 S%?B%=240:B%=B%-3:S%?1=N%+6:�
��B%<47 B%=B%+3:S%?B%=32
�
S%?1=N%+6
��
���t
�1�(W%�12)=12�19,A%?(B%-2)-�(7));:�17,�(6),248
,N%=�(6):�N%=1:�19,(B%-2)�3);:�17,15,227
�W%=128 S%?1=�(6)+6
Q�N%�1 �T%<24 S%?(2+T%)=244:T%=T%+3:S%?(2+T%)=247:S%?B%=32:B%=B%+3:S%?B%=236:�
$H�T%>3 S%?B%=244:B%=B%-3:S%?B%=237:S%?(2+T%)=32:T%=T%-3:S%?(2+T%)=246
.�
8��c
B�23,226,0,0,126,0,0,126,0,0
L+�23,227,255,129,153,145,153,145,145,255
V)�23,230,96,112,252,123,123,252,112,96
`#�23,234,219,0,109,0,0,109,0,219
j#�23,235,109,0,219,0,0,219,0,109
t+�23,236,128,144,208,216,248,248,252,255
~!�23,237,1,1,9,9,29,95,127,255
�+�23,240,255,255,195,195,195,255,255,255
��23,241,20,28,8,8,8,8,8,0
�&�23,242,66,66,66,66,66,231,231,165
� �23,243,0,0,0,1,3,39,255,255
�+�23,244,255,255,255,255,255,255,255,255
�+�23,246,255,252,248,248,216,208,144,128
�+�23,247,255,255,223,157,137,137,129,129
�%�23,248,146,84,56,56,56,56,84,146
�%�23,249,136,73,42,28,255,28,42,41
�$�23,250,144,1,36,137,0,18,33,132
�/�1,1,-3,-3,-3,10,10,10,127,-1,-1,-1,126,110
�.�2,1,-1,-1,-1,80,80,80,127,0,-1,-1,126,126
*�3,1,1,2,100,100,100,5,5,0,-2,50,126,1

)�4,1,0,0,0,10,5,5,127,0,-2,-2,126,126
)�5,1,0,0,0,10,5,5,127,-1,0,-1,126,126
)�6,1,15,-15,-15,4,2,2,5,0,0,-15,80,80
($HI%=0:HI$="JOE ZERO":SC%=0:NP%=3
2�
<��s
FMU$=�32+�8+�11+�17+�13+�242
PRU$=�32+�8+�11+�17+�14+�243
ZRD$=�32+�8+�10+�17+�14+�243
dRH$=�17+�14+�243
nD$=�17+�1+�226
xC$=�240+�8+�10
�S$=�244+�8+�10
�Y$=�32+�8+�10+�17+�7+�249
�X$=�17+�7+�249
�ZE$=�17+�7+�32+�250+�17+�3+�249+�17+�7+�250+�10+�3,�8)+�3,�250)+�11+�11+�3,�8)+�3,�250)
�B$=" "+�8+�10
�R$=" "+�17+�1+�8+�10+�241
�P0$=�17+�1+�235+�17+�3+�230
�P1$=�17+�1+�234+�17+�3+�230
�
�P% 60
�
�A% 66
��I%=0�66:A%?I%=I%�3:�
�o$P%=" "+P0$+�13+"  "+�10+�8+P0$+�13+"  "+�11+�8+P0$+�13+" "+P1$+�13+"  "+�10+�8+P1$+�13+"  "+�11+�8+P1$+�13
��S% 100
�
	��exp
�5,L%)E$:�0,5,5,30
"$�&11,0,0,1:�&12,0,0,1:�&13,0,0,1
,	�d(8)
6b�I%=1�12:�19,0,I%�6,0,0,0:�d(9):�1,-15,�(200),3:�2,-15,�(200),3:�3,-15,�(200),3:�d(3):�:�d(50)
@W%=252:OV%=�
J�
T��gs
^F%=0:G%=0:D%=0
hU%=&30:O%=0:V%=&6:W%=0
rE%=18887
|L%=10:OV%=�:
�ML%=�:MF%=�
�	RL%=�
��19,15,1,0,0,0
��19,14,1,0,0,0
��19,13,1,0,0,0
��N%=1�6
��19,6+N%,N%,0,0,0
��
�	B%=35
��
���ge
�*FX21,0
�$�&11,0,0,1:�&12,0,0,1:�&13,0,0,1

NP%=NP%-1
� NP%=0 �gx
�scs
&�
0��gx
:�19,7,7,0,0,0
D
�132:�
N�131:�28,0,26,19,4:�
X�129:�28,1,25,18,5:�
b�7:�7,1)"X-15"
l�4,3)"GAME  OVER"
v�1,6)"YOUR SCORE ";SC%
��1,8)"HIGH SCORE ";HI%
��SC%<HI%�'" BY "HI$:�trG
�6�HI%=SC% �''" YOU EQUALED THE" ��''" YOU BEAT THE"
�1�'" HIGH SCORE !"''" ENTER YOUR NAME"''" > ";
�,�""A$:�A$>12�DNG �HI$=A$:HI%=SC%:�dPG
�&�'''" RETURN FOR"''" ANOTHER GAME"
����(0)=�
�
���=13
��sx:SC%=0:NP%=3:�128:�26:�
�	��scs
��
��23;8202;0;0;0;
��19,10,4,0,0,0
�138:�0,15)�40
�131:�28,0,31,19,17:�
�129:�28,1,30,18,18:�
 �19,7,7,0,0,0
*�7
4�6,1)"X-15"
>�1,3)"X-15's -> ";NP%
H�1,5)"SCORE  -> ";SC%
R�1,7)"HIGH   -> ";HI%
\�1,9)"BY -> ";HI$
f�1,11)"RETURN TO START ";
p�128:�26
z,�I%=1�10:�(20)-1,�(9));:�17,�(6),248:�
���p:�d(5):��-74
��19,9,1,0,0,0
��137:�7
��28,1,30,18,18:�
��6,1)"X-15"
��26
��I%=9�-3 �-1
��128:�p:�137:�d(10)
�a�I%>-1 A$=�8,�I%+" "):�1,-15,I%*10+100,2:�2,-15,I%*15+100,2 ��I%=-1 A$=�4,"GO  "):�0,-15,6,20
�C%=(I%+4)�4:�C%=3 C%=4
�	*FX19
��19,9,C%,0,0,0:�7
�(�2,22)A$ �2,24)A$ �2,26)A$ �2,28)A$
	�
	�128
	�28,0,31,19,17:�
	$�26
	.�
	8��p
	B+�N%=1 �5,10)P0$:N%=0 � �5,10)P1$:N%=1
	L�
	V��d(T%):T%=�+T%:� � �>T%:�
	`ݤGK
	jI%=0
	t�
	~I%=I%+1
	��I%=127 I%=1
	�	��-I%
	� �1,16)" O.K. RELEASE KEY ";
	�����-I%:�d(10)
	��1,16)�20
	�=-I%
	���i
	��23;8202;0;0;0;
	��I%=0�10
	�8A$=�(129+I%�6)+�157+�135+�141+"< "+�5," X-15 ")+" >"
	�
�A$'A$
	�	�:�sx

�d(25)

�28,0,19,39,2:�
P�''"  PILOT YOUR X-15 THROUGH THE TUNNELS"'"  AND OVER THE HILLS AND CITIES"
*�'"  AVOID THE MISSILES AND ASTEROIDS"
(M�'"  BOMB AND ROCKET AS MANY FUEL DUMPS"'"  AND MISSILE BASES AS YOU CAN"
2$�''"  FIRST SELECT YOUR KEYS >>"
<$�1,14)" HOLD DOWN KEY FOR UP ";
F
J%=�GK
P&�1,14)" HOLD DOWN KEY FOR DOWN ";
Z
K%=�GK
d&�1,14)" HOLD DOWN KEY FOR BOMB ";
n
Z%=�GK
x)�1,14)" HOLD DOWN KEY FOR ROCKETS ";
�
R%=�GK
��1,14)�30�1,14)" O.K. ";
�
�d(40)
��
���sx
��I%=1�10
��1,-15,�(200),1
��2,-15,�(200),1
��3,-15,�(200),1
�	�d(8)
��
��
�

00000000  0d 00 0a 1e f4 20 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |..... ==========|
00000010  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 0d 00  |==============..|
00000020  14 05 f4 0d 00 1e 0c f4  20 20 20 58 2d 31 35 0d  |........   X-15.|
00000030  00 28 18 f4 20 20 20 42  79 20 44 2e 20 4a 2e 20  |.(..   By D. J. |
00000040  50 69 6c 6c 69 6e 67 0d  00 32 1a f4 20 20 20 28  |Pilling..2..   (|
00000050  43 29 20 54 68 65 20 4d  69 63 72 6f 20 55 73 65  |C) The Micro Use|
00000060  72 0d 00 3c 05 f4 0d 00  46 1e f4 20 3d 3d 3d 3d  |r..<....F.. ====|
00000070  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00000080  3d 3d 3d 3d 0d 00 50 06  f2 63 0d 00 5a 06 f2 73  |====..P..c..Z..s|
00000090  0d 00 64 06 eb 37 0d 00  6e 06 f2 69 0d 00 78 06  |..d..7..n..i..x.|
000000a0  eb 32 0d 00 82 08 f2 73  63 73 0d 00 8c 05 f5 0d  |.2.....scs......|
000000b0  00 96 07 f2 67 73 0d 00  a0 05 f5 0d 00 aa 17 4e  |....gs.........N|
000000c0  25 3d b3 28 33 29 3a 53  43 25 3d 53 43 25 2b 31  |%=.(3):SC%=SC%+1|
000000d0  30 30 0d 00 b4 53 e7 4e  25 3d 31 f2 67 72 73 3a  |00...S.N%=1.grs:|
000000e0  f5 20 f2 73 63 3a f2 67  3a fd 57 25 3d 32 35 32  |. .sc:.g:.W%=252|
000000f0  20 8b e7 4e 25 3d 32 20  f2 74 73 3a f5 20 f2 73  | ..N%=2 .ts:. .s|
00000100  63 3a f2 74 3a fd 57 25  3d 32 35 32 20 8b 20 f2  |c:.t:.W%=252 . .|
00000110  63 69 73 3a f5 20 f2 73  63 3a f2 63 69 3a fd 57  |cis:. .sc:.ci:.W|
00000120  25 3d 32 35 32 0d 00 be  08 fd 4f 56 25 0d 00 c8  |%=252.....OV%...|
00000130  07 f2 67 65 0d 00 d2 07  fd 20 a3 0d 00 dc 05 e0  |..ge..... ......|
00000140  0d 00 e6 08 dd f2 73 63  0d 00 f0 0c 4c 25 3d 4c  |......sc....L%=L|
00000150  25 2b 44 25 0d 00 fa 1a  e7 49 25 3d 50 25 20 49  |%+D%.....I%=P% I|
00000160  25 3d 49 25 2b 33 30 20  8b 49 25 3d 50 25 0d 01  |%=I%+30 .I%=P%..|
00000170  04 58 e7 a6 4b 25 20 43  25 3d 49 25 2b 38 3a 44  |.X..K% C%=I%+8:D|
00000180  25 3d 31 3a 45 25 3d 45  25 2b 36 37 32 20 8b e7  |%=1:E%=E%+672 ..|
00000190  a6 4a 25 80 4c 25 3e 32  20 43 25 3d 49 25 2b 31  |.J%.L%>2 C%=I%+1|
000001a0  39 3a 44 25 3d 2d 31 3a  45 25 3d 45 25 2d 36 30  |9:D%=-1:E%=E%-60|
000001b0  38 20 8b 43 25 3d 49 25  3a 44 25 3d 30 3a 45 25  |8 .C%=I%:D%=0:E%|
000001c0  3d 45 25 2b 33 32 0d 01  0e 30 e7 45 25 3e 26 37  |=E%+32...0.E%>&7|
000001d0  46 46 46 20 45 25 3d 45  25 2d 26 35 30 30 30 20  |FFF E%=E%-&5000 |
000001e0  8b e7 45 25 3c 26 33 30  30 30 20 45 25 3d 45 25  |..E%<&3000 E%=E%|
000001f0  2b 26 35 30 30 30 0d 01  18 0f e7 3f 45 25 20 f2  |+&5000.....?E% .|
00000200  65 78 70 3a e1 0d 01 22  14 4f 25 3d 4f 25 2b 33  |exp:...".O%=O%+3|
00000210  32 3a 57 25 3d 57 25 2b  34 0d 01 2c 17 e7 4f 25  |2:W%=W%+4..,..O%|
00000220  3d 32 35 36 4f 25 3d 30  3a 55 25 3d 55 25 2b 31  |=256O%=0:U%=U%+1|
00000230  0d 01 36 17 e7 57 25 3d  32 35 36 57 25 3d 30 3a  |..6..W%=256W%=0:|
00000240  56 25 3d 56 25 2b 31 0d  01 40 17 e7 55 25 3d 26  |V%=V%+1..@..U%=&|
00000250  38 30 55 25 3d 26 33 30  3a 56 25 3d 26 36 0d 01  |80U%=&30:V%=&6..|
00000260  4a 1d e7 46 25 f1 8a 58  25 2c 59 25 29 22 20 22  |J..F%..X%,Y%)" "|
00000270  3a e7 58 25 3d 31 38 46  25 3d 30 0d 01 54 15 3f  |:.X%=18F%=0..T.?|
00000280  26 33 35 30 3d 4f 25 3a  3f 26 33 35 31 3d 55 25  |&350=O%:?&351=U%|
00000290  0d 01 5e 09 2a 46 58 31  39 0d 01 68 23 ef 32 33  |..^.*FX19..h#.23|
000002a0  3b 31 32 2c 56 25 3b 30  3b 30 3b 30 3b 32 33 3b  |;12,V%;0;0;0;23;|
000002b0  31 33 2c 57 25 3b 30 3b  30 3b 30 3b 0d 01 72 18  |13,W%;0;0;0;..r.|
000002c0  f1 8a 34 2c 4c 25 29 24  43 25 8a 31 39 2c 30 29  |..4,L%)$C%.19,0)|
000002d0  24 53 25 3b 0d 01 7c 35  e7 46 25 8b e7 a6 52 25  |$S%;..|5.F%...R%|
000002e0  20 58 25 3d 37 3a 59 25  3d 4c 25 2b 44 25 3a 46  | X%=7:Y%=L%+D%:F|
000002f0  25 3d 45 25 2b 33 32 3a  d4 31 2c 31 2c 32 30 30  |%=E%+32:.1,1,200|
00000300  2c 32 30 20 8b 8d 74 78  41 0d 01 86 19 e7 46 25  |,20 ..txA.....F%|
00000310  3e 26 37 46 46 46 20 46  25 3d 46 25 2d 26 35 30  |>&7FFF F%=F%-&50|
00000320  30 30 0d 01 90 1f e7 3f  46 25 f2 78 28 3f 46 25  |00.....?F%.x(?F%|
00000330  80 31 37 30 2c 58 25 2c  59 25 29 3a e5 8d 74 78  |.170,X%,Y%):..tx|
00000340  41 0d 01 9a 0c 46 25 3d  46 25 2b 33 32 0d 01 a4  |A....F%=F%+32...|
00000350  19 e7 46 25 3e 26 37 46  46 46 20 46 25 3d 46 25  |..F%>&7FFF F%=F%|
00000360  2d 26 35 30 30 30 0d 01  ae 39 e7 3f 46 25 f2 78  |-&5000...9.?F%.x|
00000370  28 3f 46 25 80 31 37 30  2c 58 25 2b 31 2c 59 25  |(?F%.170,X%+1,Y%|
00000380  29 20 8b 20 46 25 3d 46  25 2b 33 32 3a 58 25 3d  |) . F%=F%+32:X%=|
00000390  58 25 2b 31 3a f1 8a 58  25 2c 59 25 29 44 24 0d  |X%+1:..X%,Y%)D$.|
000003a0  01 b8 39 e7 47 25 20 8b  e7 a6 5a 25 20 48 25 3d  |..9.G% ...Z% H%=|
000003b0  4c 25 2b 31 2b 44 25 3a  47 25 3d 37 3a 4d 25 3d  |L%+1+D%:G%=7:M%=|
000003c0  45 25 2b 31 33 31 32 3a  d4 32 2c 32 2c 31 35 30  |E%+1312:.2,2,150|
000003d0  2c 31 35 3a e1 20 8b e1  0d 01 c2 19 e7 4d 25 3e  |,15:. .......M%>|
000003e0  26 37 46 46 46 20 4d 25  3d 4d 25 2d 26 35 30 30  |&7FFF M%=M%-&500|
000003f0  30 0d 01 cc 1d e7 3f 4d  25 f2 79 28 3f 4d 25 80  |0.....?M%.y(?M%.|
00000400  31 37 30 2c 47 25 2d 31  2c 48 25 29 3a e1 0d 01  |170,G%-1,H%):...|
00000410  d6 0d 4d 25 3d 4d 25 2b  36 34 30 0d 01 e0 32 47  |..M%=M%+640...2G|
00000420  25 3d 47 25 2d 31 3a e7  48 25 3e 31 33 20 f1 8a  |%=G%-1:.H%>13 ..|
00000430  47 25 2c 48 25 29 22 20  22 20 8b f1 8a 47 25 2c  |G%,H%)" " ...G%,|
00000440  48 25 29 52 24 3a 48 25  3d 48 25 2b 31 0d 01 ea  |H%)R$:H%=H%+1...|
00000450  05 e1 0d 01 f4 11 dd f2  78 28 4e 25 2c 58 25 2c  |........x(N%,X%,|
00000460  59 25 29 0d 01 fe 0e d4  26 31 31 2c 30 2c 30 2c  |Y%).....&11,0,0,|
00000470  31 0d 02 08 81 46 25 3d  30 3a e7 4e 25 3c 34 32  |1....F%=0:.N%<42|
00000480  20 53 43 25 3d 53 43 25  2b 35 20 8b e7 4e 25 3c  | SC%=SC%+5 ..N%<|
00000490  31 36 32 20 e1 20 8b e7  4e 25 3d 31 36 38 20 52  |162 . ..N%=168 R|
000004a0  4c 25 3d a3 3a d4 26 31  33 2c 30 2c 30 2c 31 3a  |L%=.:.&13,0,0,1:|
000004b0  53 43 25 3d 53 43 25 2b  31 30 20 8b e7 4e 25 3d  |SC%=SC%+10 ..N%=|
000004c0  31 36 32 20 4d 4c 25 3d  a3 3a 4d 46 25 3d a3 3a  |162 ML%=.:MF%=.:|
000004d0  d4 26 31 33 2c 30 2c 30  2c 31 3a 53 43 25 3d 53  |.&13,0,0,1:SC%=S|
000004e0  43 25 2b 35 30 20 8b 20  53 43 25 3d 53 43 25 2b  |C%+50 . SC%=SC%+|
000004f0  35 30 0d 02 12 17 d4 30  2c 34 2c 35 2c 33 3a f1  |50.....0,4,5,3:.|
00000500  8a 58 25 2c 59 25 29 58  24 0d 02 1c 05 e1 0d 02  |.X%,Y%)X$.......|
00000510  26 11 dd f2 79 28 4e 25  2c 58 25 2c 59 25 29 0d  |&...y(N%,X%,Y%).|
00000520  02 30 0e d4 26 31 32 2c  30 2c 30 2c 31 0d 02 3a  |.0..&12,0,0,1..:|
00000530  8d 47 25 3d 30 3a e7 4e  25 3c 34 32 20 53 43 25  |.G%=0:.N%<42 SC%|
00000540  3d 53 43 25 2b 35 20 8b  e7 4e 25 3c 31 36 32 20  |=SC%+5 ..N%<162 |
00000550  f1 8a 58 25 2c 59 25 29  bd 33 32 3a e1 20 8b e7  |..X%,Y%).32:. ..|
00000560  4e 25 3d 31 36 38 20 52  4c 25 3d a3 3a d4 26 31  |N%=168 RL%=.:.&1|
00000570  33 2c 30 2c 30 2c 31 3a  53 43 25 3d 53 43 25 2b  |3,0,0,1:SC%=SC%+|
00000580  31 30 20 8b e7 4e 25 3d  31 36 32 20 4d 4c 25 3d  |10 ..N%=162 ML%=|
00000590  a3 3a d4 26 31 33 2c 30  2c 30 2c 31 3a 4d 46 25  |.:.&13,0,0,1:MF%|
000005a0  3d a3 3a 53 43 25 3d 53  43 25 2b 35 30 20 8b 20  |=.:SC%=SC%+50 . |
000005b0  53 43 25 3d 53 43 25 2b  35 30 0d 02 44 17 d4 30  |SC%=SC%+50..D..0|
000005c0  2c 34 2c 35 2c 33 3a f1  8a 58 25 2c 59 25 29 59  |,4,5,3:..X%,Y%)Y|
000005d0  24 0d 02 4e 05 e1 0d 02  58 08 dd f2 74 73 0d 02  |$..N....X...ts..|
000005e0  62 28 e7 42 25 3c 33 32  54 25 3d 42 25 2d 31 34  |b(.B%<32T%=B%-14|
000005f0  3a 42 25 3d 54 25 2b 32  36 20 8b 42 25 3d 33 38  |:B%=T%+26 .B%=38|
00000600  3a 54 25 3d 31 32 0d 02  6c 38 24 53 25 3d bd 31  |:T%=12..l8$S%=.1|
00000610  37 2b bd 28 36 2b b3 28  36 29 29 2b 42 24 2b c4  |7+.(6+.(6))+B$+.|
00000620  54 25 81 33 2c 53 24 29  2b c4 38 2c 42 24 29 2b  |T%.3,S$)+.8,B$)+|
00000630  c4 28 35 30 2d 42 25 29  81 33 2c 53 24 29 0d 02  |.(50-B%).3,S$)..|
00000640  76 1b 53 25 3f 28 32 2b  54 25 29 3d 32 34 36 3a  |v.S%?(2+T%)=246:|
00000650  53 25 3f 42 25 3d 32 33  36 0d 02 80 05 e1 0d 02  |S%?B%=236.......|
00000660  8a 09 dd f2 63 69 73 0d  02 94 0e 42 25 3d 33 35  |....cis....B%=35|
00000670  3a 54 25 3d 33 0d 02 9e  20 24 53 25 3d bd 31 37  |:T%=3... $S%=.17|
00000680  2b bd 37 2b 42 24 2b c4  31 31 2c 42 24 29 2b c4  |+.7+B$+.11,B$)+.|
00000690  35 2c 43 24 29 0d 02 a8  05 e1 0d 02 b2 09 dd f2  |5,C$)...........|
000006a0  67 72 73 0d 02 bc 0e 42  25 3d 33 35 3a 54 25 3d  |grs....B%=35:T%=|
000006b0  33 0d 02 c6 31 24 53 25  3d bd 31 37 2b bd 28 36  |3...1$S%=.17+.(6|
000006c0  2b b3 28 36 29 29 2b 42  24 2b c4 31 31 2c 42 24  |+.(6))+B$+.11,B$|
000006d0  29 2b c4 35 2c 53 24 29  3a 53 25 3f 42 25 3d 32  |)+.5,S$):S%?B%=2|
000006e0  33 36 0d 02 d0 05 e1 0d  02 da 07 dd f2 67 0d 02  |36...........g..|
000006f0  e4 30 e7 28 57 25 80 31  32 29 3d 31 32 20 f1 8a  |.0.(W%.12)=12 ..|
00000700  31 39 2c b3 28 41 25 3f  28 42 25 2d 32 29 29 29  |19,.(A%?(B%-2)))|
00000710  3b 3a ef 31 37 2c b3 28  36 29 2c 32 34 38 0d 02  |;:.17,.(6),248..|
00000720  ee 0f 4e 25 3d b3 28 36  29 3a f2 72 75 0d 02 f8  |..N%=.(6):.ru...|
00000730  17 e7 57 25 3d 31 32 38  20 53 25 3f 31 3d b3 28  |..W%=128 S%?1=.(|
00000740  36 29 2b 36 0d 03 02 25  e7 4e 25 3d 33 20 f1 8a  |6)+6...%.N%=3 ..|
00000750  31 39 2c 41 25 3f 28 42  25 2d 32 29 29 3b 3a ef  |19,A%?(B%-2));:.|
00000760  31 37 2c 31 35 2c 32 32  37 0d 03 0c 2d e7 4e 25  |17,15,227...-.N%|
00000770  80 31 20 e7 42 25 3c 34  37 20 53 25 3f 42 25 3d  |.1 .B%<47 S%?B%=|
00000780  33 32 3a 42 25 3d 42 25  2b 33 3a 53 25 3f 42 25  |32:B%=B%+3:S%?B%|
00000790  3d 32 33 36 3a e1 0d 03  16 26 e7 42 25 3e 32 30  |=236:....&.B%>20|
000007a0  20 53 25 3f 42 25 3d 32  34 34 3a 42 25 3d 42 25  | S%?B%=244:B%=B%|
000007b0  2d 33 3a 53 25 3f 42 25  3d 32 33 37 0d 03 20 05  |-3:S%?B%=237.. .|
000007c0  e1 0d 03 2a 08 dd f2 72  75 0d 03 34 69 e7 52 4c  |...*...ru..4i.RL|
000007d0  25 3d b9 20 8b e7 57 25  3e 31 38 30 20 e1 20 8b  |%=. ..W%>180 . .|
000007e0  52 54 25 3d 54 25 3f 41  25 3a 52 42 25 3d 41 25  |RT%=T%?A%:RB%=A%|
000007f0  3f 28 42 25 2d 32 29 2d  31 3a 52 58 25 3d 31 39  |?(B%-2)-1:RX%=19|
00000800  3a 52 59 25 3d 28 52 54  25 2b 52 42 25 29 81 32  |:RY%=(RT%+RB%).2|
00000810  3a 52 4c 25 3d b9 3a f1  8a 52 58 25 2c 52 59 25  |:RL%=.:..RX%,RY%|
00000820  29 52 48 24 3a d4 33 2c  36 2c 31 30 30 2c 35 30  |)RH$:.3,6,100,50|
00000830  3a e1 0d 03 3e 27 52 58  25 3d 52 58 25 2d 31 3a  |:...>'RX%=RX%-1:|
00000840  e7 52 58 25 3c 37 3a 52  4c 25 3d a3 3a d4 26 31  |.RX%<7:RL%=.:.&1|
00000850  33 2c 30 2c 30 2c 31 3a  e1 0d 03 48 2e e7 52 59  |3,0,0,1:...H..RY|
00000860  25 3e 4c 25 20 e7 52 59  25 3e 52 54 25 3a f1 8a  |%>L% .RY%>RT%:..|
00000870  52 58 25 2c 52 59 25 29  52 55 24 3a 52 59 25 3d  |RX%,RY%)RU$:RY%=|
00000880  52 59 25 2d 31 3a e1 0d  03 52 2e e7 52 59 25 3c  |RY%-1:...R..RY%<|
00000890  4c 25 20 e7 52 59 25 3c  52 42 25 3a f1 8a 52 58  |L% .RY%<RB%:..RX|
000008a0  25 2c 52 59 25 29 52 44  24 3a 52 59 25 3d 52 59  |%,RY%)RD$:RY%=RY|
000008b0  25 2b 31 3a e1 0d 03 5c  05 e1 0d 03 66 08 dd f2  |%+1:...\....f...|
000008c0  6d 75 0d 03 70 25 e7 4e  25 3d 33 3a f1 8a 31 39  |mu..p%.N%=3:..19|
000008d0  2c 41 25 3f 28 42 25 2d  32 29 29 3b 3a ef 31 37  |,A%?(B%-2));:.17|
000008e0  2c 31 35 2c 32 34 32 0d  03 7a 58 e7 4d 4c 25 20  |,15,242..zX.ML% |
000008f0  8b e7 57 25 3e 31 38 30  20 e1 20 8b 20 4d 54 25  |..W%>180 . . MT%|
00000900  3d 54 25 3f 41 25 3a 4d  59 25 3d 41 25 3f 28 42  |=T%?A%:MY%=A%?(B|
00000910  25 2d 32 29 3a 4d 58 25  3d 31 39 3a 4d 4c 25 3d  |%-2):MX%=19:ML%=|
00000920  b9 3a f1 8a 31 39 2c 41  25 3f 28 42 25 2d 32 29  |.:..19,A%?(B%-2)|
00000930  29 3b 3a ef 31 37 2c 31  33 2c 32 34 32 3a e1 0d  |);:.17,13,242:..|
00000940  03 84 36 4d 58 25 3d 4d  58 25 2d 31 3a e7 4d 46  |..6MX%=MX%-1:.MF|
00000950  25 20 8b e7 4d 58 25 2d  36 3c 3d 4d 59 25 2d 4c  |% ..MX%-6<=MY%-L|
00000960  25 20 4d 46 25 3d b9 3a  d4 33 2c 33 2c 35 30 2c  |% MF%=.:.3,3,50,|
00000970  31 35 20 8b e1 0d 03 8e  2f e7 4d 59 25 3d 4d 54  |15 ...../.MY%=MT|
00000980  25 20 84 20 4d 58 25 3c  37 20 8b f1 8a 4d 58 25  |% . MX%<7 ...MX%|
00000990  2c 4d 59 25 29 4d 55 24  3a 4d 59 25 3d 4d 59 25  |,MY%)MU$:MY%=MY%|
000009a0  2d 31 3a e1 0d 03 98 11  f1 8a 4d 58 25 2c 4d 59  |-1:.......MX%,MY|
000009b0  25 29 22 20 22 0d 03 a2  1c 4d 4c 25 3d a3 3a 4d  |%)" "....ML%=.:M|
000009c0  46 25 3d a3 3a d4 26 31  33 2c 30 2c 30 2c 31 3a  |F%=.:.&13,0,0,1:|
000009d0  e1 0d 03 ac 08 dd f2 63  69 0d 03 b6 2f e7 28 57  |.......ci.../.(W|
000009e0  25 80 31 32 29 3d 31 32  f1 8a 31 39 2c b3 28 41  |%.12)=12..19,.(A|
000009f0  25 3f 28 42 25 2d 32 29  29 29 3b 3a ef 31 37 2c  |%?(B%-2)));:.17,|
00000a00  b3 28 36 29 2c 32 34 38  0d 03 c0 0f 4e 25 3d b3  |.(6),248....N%=.|
00000a10  28 36 29 3a f2 6d 75 0d  03 ca 2d e7 4e 25 80 31  |(6):.mu...-.N%.1|
00000a20  e7 42 25 3e 32 30 20 53  25 3f 42 25 3d 32 34 30  |.B%>20 S%?B%=240|
00000a30  3a 42 25 3d 42 25 2d 33  3a 53 25 3f 31 3d 4e 25  |:B%=B%-3:S%?1=N%|
00000a40  2b 36 3a e1 0d 03 d4 1b  e7 42 25 3c 34 37 20 42  |+6:......B%<47 B|
00000a50  25 3d 42 25 2b 33 3a 53  25 3f 42 25 3d 33 32 0d  |%=B%+3:S%?B%=32.|
00000a60  03 de 0d 53 25 3f 31 3d  4e 25 2b 36 0d 03 e8 05  |...S%?1=N%+6....|
00000a70  e1 0d 03 f2 07 dd f2 74  0d 03 fc 31 e7 28 57 25  |.......t...1.(W%|
00000a80  80 31 32 29 3d 31 32 f1  8a 31 39 2c 41 25 3f 28  |.12)=12..19,A%?(|
00000a90  42 25 2d 32 29 2d b3 28  37 29 29 3b 3a ef 31 37  |B%-2)-.(7));:.17|
00000aa0  2c b3 28 36 29 2c 32 34  38 0d 04 06 2c 4e 25 3d  |,.(6),248...,N%=|
00000ab0  b3 28 36 29 3a e7 4e 25  3d 31 3a f1 8a 31 39 2c  |.(6):.N%=1:..19,|
00000ac0  28 42 25 2d 32 29 81 33  29 3b 3a ef 31 37 2c 31  |(B%-2).3);:.17,1|
00000ad0  35 2c 32 32 37 0d 04 10  17 e7 57 25 3d 31 32 38  |5,227.....W%=128|
00000ae0  20 53 25 3f 31 3d b3 28  36 29 2b 36 0d 04 1a 51  | S%?1=.(6)+6...Q|
00000af0  e7 4e 25 80 31 20 e7 54  25 3c 32 34 20 53 25 3f  |.N%.1 .T%<24 S%?|
00000b00  28 32 2b 54 25 29 3d 32  34 34 3a 54 25 3d 54 25  |(2+T%)=244:T%=T%|
00000b10  2b 33 3a 53 25 3f 28 32  2b 54 25 29 3d 32 34 37  |+3:S%?(2+T%)=247|
00000b20  3a 53 25 3f 42 25 3d 33  32 3a 42 25 3d 42 25 2b  |:S%?B%=32:B%=B%+|
00000b30  33 3a 53 25 3f 42 25 3d  32 33 36 3a e1 0d 04 24  |3:S%?B%=236:...$|
00000b40  48 e7 54 25 3e 33 20 53  25 3f 42 25 3d 32 34 34  |H.T%>3 S%?B%=244|
00000b50  3a 42 25 3d 42 25 2d 33  3a 53 25 3f 42 25 3d 32  |:B%=B%-3:S%?B%=2|
00000b60  33 37 3a 53 25 3f 28 32  2b 54 25 29 3d 33 32 3a  |37:S%?(2+T%)=32:|
00000b70  54 25 3d 54 25 2d 33 3a  53 25 3f 28 32 2b 54 25  |T%=T%-3:S%?(2+T%|
00000b80  29 3d 32 34 36 0d 04 2e  05 e1 0d 04 38 07 dd f2  |)=246.......8...|
00000b90  63 0d 04 42 1f ef 32 33  2c 32 32 36 2c 30 2c 30  |c..B..23,226,0,0|
00000ba0  2c 31 32 36 2c 30 2c 30  2c 31 32 36 2c 30 2c 30  |,126,0,0,126,0,0|
00000bb0  0d 04 4c 2b ef 32 33 2c  32 32 37 2c 32 35 35 2c  |..L+.23,227,255,|
00000bc0  31 32 39 2c 31 35 33 2c  31 34 35 2c 31 35 33 2c  |129,153,145,153,|
00000bd0  31 34 35 2c 31 34 35 2c  32 35 35 0d 04 56 29 ef  |145,145,255..V).|
00000be0  32 33 2c 32 33 30 2c 39  36 2c 31 31 32 2c 32 35  |23,230,96,112,25|
00000bf0  32 2c 31 32 33 2c 31 32  33 2c 32 35 32 2c 31 31  |2,123,123,252,11|
00000c00  32 2c 39 36 0d 04 60 23  ef 32 33 2c 32 33 34 2c  |2,96..`#.23,234,|
00000c10  32 31 39 2c 30 2c 31 30  39 2c 30 2c 30 2c 31 30  |219,0,109,0,0,10|
00000c20  39 2c 30 2c 32 31 39 0d  04 6a 23 ef 32 33 2c 32  |9,0,219..j#.23,2|
00000c30  33 35 2c 31 30 39 2c 30  2c 32 31 39 2c 30 2c 30  |35,109,0,219,0,0|
00000c40  2c 32 31 39 2c 30 2c 31  30 39 0d 04 74 2b ef 32  |,219,0,109..t+.2|
00000c50  33 2c 32 33 36 2c 31 32  38 2c 31 34 34 2c 32 30  |3,236,128,144,20|
00000c60  38 2c 32 31 36 2c 32 34  38 2c 32 34 38 2c 32 35  |8,216,248,248,25|
00000c70  32 2c 32 35 35 0d 04 7e  21 ef 32 33 2c 32 33 37  |2,255..~!.23,237|
00000c80  2c 31 2c 31 2c 39 2c 39  2c 32 39 2c 39 35 2c 31  |,1,1,9,9,29,95,1|
00000c90  32 37 2c 32 35 35 0d 04  88 2b ef 32 33 2c 32 34  |27,255...+.23,24|
00000ca0  30 2c 32 35 35 2c 32 35  35 2c 31 39 35 2c 31 39  |0,255,255,195,19|
00000cb0  35 2c 31 39 35 2c 32 35  35 2c 32 35 35 2c 32 35  |5,195,255,255,25|
00000cc0  35 0d 04 92 1d ef 32 33  2c 32 34 31 2c 32 30 2c  |5.....23,241,20,|
00000cd0  32 38 2c 38 2c 38 2c 38  2c 38 2c 38 2c 30 0d 04  |28,8,8,8,8,8,0..|
00000ce0  9c 26 ef 32 33 2c 32 34  32 2c 36 36 2c 36 36 2c  |.&.23,242,66,66,|
00000cf0  36 36 2c 36 36 2c 36 36  2c 32 33 31 2c 32 33 31  |66,66,66,231,231|
00000d00  2c 31 36 35 0d 04 a6 20  ef 32 33 2c 32 34 33 2c  |,165... .23,243,|
00000d10  30 2c 30 2c 30 2c 31 2c  33 2c 33 39 2c 32 35 35  |0,0,0,1,3,39,255|
00000d20  2c 32 35 35 0d 04 b0 2b  ef 32 33 2c 32 34 34 2c  |,255...+.23,244,|
00000d30  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |255,255,255,255,|
00000d40  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 0d  |255,255,255,255.|
00000d50  04 ba 2b ef 32 33 2c 32  34 36 2c 32 35 35 2c 32  |..+.23,246,255,2|
00000d60  35 32 2c 32 34 38 2c 32  34 38 2c 32 31 36 2c 32  |52,248,248,216,2|
00000d70  30 38 2c 31 34 34 2c 31  32 38 0d 04 c4 2b ef 32  |08,144,128...+.2|
00000d80  33 2c 32 34 37 2c 32 35  35 2c 32 35 35 2c 32 32  |3,247,255,255,22|
00000d90  33 2c 31 35 37 2c 31 33  37 2c 31 33 37 2c 31 32  |3,157,137,137,12|
00000da0  39 2c 31 32 39 0d 04 ce  25 ef 32 33 2c 32 34 38  |9,129...%.23,248|
00000db0  2c 31 34 36 2c 38 34 2c  35 36 2c 35 36 2c 35 36  |,146,84,56,56,56|
00000dc0  2c 35 36 2c 38 34 2c 31  34 36 0d 04 d8 25 ef 32  |,56,84,146...%.2|
00000dd0  33 2c 32 34 39 2c 31 33  36 2c 37 33 2c 34 32 2c  |3,249,136,73,42,|
00000de0  32 38 2c 32 35 35 2c 32  38 2c 34 32 2c 34 31 0d  |28,255,28,42,41.|
00000df0  04 e2 24 ef 32 33 2c 32  35 30 2c 31 34 34 2c 31  |..$.23,250,144,1|
00000e00  2c 33 36 2c 31 33 37 2c  30 2c 31 38 2c 33 33 2c  |,36,137,0,18,33,|
00000e10  31 33 32 0d 04 ec 2f e2  31 2c 31 2c 2d 33 2c 2d  |132.../.1,1,-3,-|
00000e20  33 2c 2d 33 2c 31 30 2c  31 30 2c 31 30 2c 31 32  |3,-3,10,10,10,12|
00000e30  37 2c 2d 31 2c 2d 31 2c  2d 31 2c 31 32 36 2c 31  |7,-1,-1,-1,126,1|
00000e40  31 30 0d 04 f6 2e e2 32  2c 31 2c 2d 31 2c 2d 31  |10.....2,1,-1,-1|
00000e50  2c 2d 31 2c 38 30 2c 38  30 2c 38 30 2c 31 32 37  |,-1,80,80,80,127|
00000e60  2c 30 2c 2d 31 2c 2d 31  2c 31 32 36 2c 31 32 36  |,0,-1,-1,126,126|
00000e70  0d 05 00 2a e2 33 2c 31  2c 31 2c 32 2c 31 30 30  |...*.3,1,1,2,100|
00000e80  2c 31 30 30 2c 31 30 30  2c 35 2c 35 2c 30 2c 2d  |,100,100,5,5,0,-|
00000e90  32 2c 35 30 2c 31 32 36  2c 31 0d 05 0a 29 e2 34  |2,50,126,1...).4|
00000ea0  2c 31 2c 30 2c 30 2c 30  2c 31 30 2c 35 2c 35 2c  |,1,0,0,0,10,5,5,|
00000eb0  31 32 37 2c 30 2c 2d 32  2c 2d 32 2c 31 32 36 2c  |127,0,-2,-2,126,|
00000ec0  31 32 36 0d 05 14 29 e2  35 2c 31 2c 30 2c 30 2c  |126...).5,1,0,0,|
00000ed0  30 2c 31 30 2c 35 2c 35  2c 31 32 37 2c 2d 31 2c  |0,10,5,5,127,-1,|
00000ee0  30 2c 2d 31 2c 31 32 36  2c 31 32 36 0d 05 1e 29  |0,-1,126,126...)|
00000ef0  e2 36 2c 31 2c 31 35 2c  2d 31 35 2c 2d 31 35 2c  |.6,1,15,-15,-15,|
00000f00  34 2c 32 2c 32 2c 35 2c  30 2c 30 2c 2d 31 35 2c  |4,2,2,5,0,0,-15,|
00000f10  38 30 2c 38 30 0d 05 28  24 48 49 25 3d 30 3a 48  |80,80..($HI%=0:H|
00000f20  49 24 3d 22 4a 4f 45 20  5a 45 52 4f 22 3a 53 43  |I$="JOE ZERO":SC|
00000f30  25 3d 30 3a 4e 50 25 3d  33 0d 05 32 05 e1 0d 05  |%=0:NP%=3..2....|
00000f40  3c 07 dd f2 73 0d 05 46  1f 4d 55 24 3d bd 33 32  |<...s..F.MU$=.32|
00000f50  2b bd 38 2b bd 31 31 2b  bd 31 37 2b bd 31 33 2b  |+.8+.11+.17+.13+|
00000f60  bd 32 34 32 0d 05 50 1f  52 55 24 3d bd 33 32 2b  |.242..P.RU$=.32+|
00000f70  bd 38 2b bd 31 31 2b bd  31 37 2b bd 31 34 2b bd  |.8+.11+.17+.14+.|
00000f80  32 34 33 0d 05 5a 1f 52  44 24 3d bd 33 32 2b bd  |243..Z.RD$=.32+.|
00000f90  38 2b bd 31 30 2b bd 31  37 2b bd 31 34 2b bd 32  |8+.10+.17+.14+.2|
00000fa0  34 33 0d 05 64 14 52 48  24 3d bd 31 37 2b bd 31  |43..d.RH$=.17+.1|
00000fb0  34 2b bd 32 34 33 0d 05  6e 12 44 24 3d bd 31 37  |4+.243..n.D$=.17|
00000fc0  2b bd 31 2b bd 32 32 36  0d 05 78 12 43 24 3d bd  |+.1+.226..x.C$=.|
00000fd0  32 34 30 2b bd 38 2b bd  31 30 0d 05 82 12 53 24  |240+.8+.10....S$|
00000fe0  3d bd 32 34 34 2b bd 38  2b bd 31 30 0d 05 8c 1d  |=.244+.8+.10....|
00000ff0  59 24 3d bd 33 32 2b bd  38 2b bd 31 30 2b bd 31  |Y$=.32+.8+.10+.1|
00001000  37 2b bd 37 2b bd 32 34  39 0d 05 96 12 58 24 3d  |7+.7+.249....X$=|
00001010  bd 31 37 2b bd 37 2b bd  32 34 39 0d 05 a0 5a 45  |.17+.7+.249...ZE|
00001020  24 3d bd 31 37 2b bd 37  2b bd 33 32 2b bd 32 35  |$=.17+.7+.32+.25|
00001030  30 2b bd 31 37 2b bd 33  2b bd 32 34 39 2b bd 31  |0+.17+.3+.249+.1|
00001040  37 2b bd 37 2b bd 32 35  30 2b bd 31 30 2b c4 33  |7+.7+.250+.10+.3|
00001050  2c bd 38 29 2b c4 33 2c  bd 32 35 30 29 2b bd 31  |,.8)+.3,.250)+.1|
00001060  31 2b bd 31 31 2b c4 33  2c bd 38 29 2b c4 33 2c  |1+.11+.3,.8)+.3,|
00001070  bd 32 35 30 29 0d 05 aa  11 42 24 3d 22 20 22 2b  |.250)....B$=" "+|
00001080  bd 38 2b bd 31 30 0d 05  b4 1d 52 24 3d 22 20 22  |.8+.10....R$=" "|
00001090  2b bd 31 37 2b bd 31 2b  bd 38 2b bd 31 30 2b bd  |+.17+.1+.8+.10+.|
000010a0  32 34 31 0d 05 be 1f 50  30 24 3d bd 31 37 2b bd  |241....P0$=.17+.|
000010b0  31 2b bd 32 33 35 2b bd  31 37 2b bd 33 2b bd 32  |1+.235+.17+.3+.2|
000010c0  33 30 0d 05 c8 1f 50 31  24 3d bd 31 37 2b bd 31  |30....P1$=.17+.1|
000010d0  2b bd 32 33 34 2b bd 31  37 2b bd 33 2b bd 32 33  |+.234+.17+.3+.23|
000010e0  30 0d 05 d2 0a de 50 25  20 36 30 0d 05 dc 0a de  |0.....P% 60.....|
000010f0  41 25 20 36 36 0d 05 e6  19 e3 49 25 3d 30 b8 36  |A% 66.....I%=0.6|
00001100  36 3a 41 25 3f 49 25 3d  49 25 81 33 3a ed 0d 05  |6:A%?I%=I%.3:...|
00001110  f0 6f 24 50 25 3d 22 20  22 2b 50 30 24 2b bd 31  |.o$P%=" "+P0$+.1|
00001120  33 2b 22 20 20 22 2b bd  31 30 2b bd 38 2b 50 30  |3+"  "+.10+.8+P0|
00001130  24 2b bd 31 33 2b 22 20  20 22 2b bd 31 31 2b bd  |$+.13+"  "+.11+.|
00001140  38 2b 50 30 24 2b bd 31  33 2b 22 20 22 2b 50 31  |8+P0$+.13+" "+P1|
00001150  24 2b bd 31 33 2b 22 20  20 22 2b bd 31 30 2b bd  |$+.13+"  "+.10+.|
00001160  38 2b 50 31 24 2b bd 31  33 2b 22 20 20 22 2b bd  |8+P1$+.13+"  "+.|
00001170  31 31 2b bd 38 2b 50 31  24 2b bd 31 33 0d 05 fa  |11+.8+P1$+.13...|
00001180  0b de 53 25 20 31 30 30  0d 06 04 05 e1 0d 06 0e  |..S% 100........|
00001190  09 dd f2 65 78 70 0d 06  18 17 f1 8a 35 2c 4c 25  |...exp......5,L%|
000011a0  29 45 24 3a d4 30 2c 35  2c 35 2c 33 30 0d 06 22  |)E$:.0,5,5,30.."|
000011b0  24 d4 26 31 31 2c 30 2c  30 2c 31 3a d4 26 31 32  |$.&11,0,0,1:.&12|
000011c0  2c 30 2c 30 2c 31 3a d4  26 31 33 2c 30 2c 30 2c  |,0,0,1:.&13,0,0,|
000011d0  31 0d 06 2c 09 f2 64 28  38 29 0d 06 36 62 e3 49  |1..,..d(8)..6b.I|
000011e0  25 3d 31 b8 31 32 3a ef  31 39 2c 30 2c 49 25 83  |%=1.12:.19,0,I%.|
000011f0  36 2c 30 2c 30 2c 30 3a  f2 64 28 39 29 3a d4 31  |6,0,0,0:.d(9):.1|
00001200  2c 2d 31 35 2c b3 28 32  30 30 29 2c 33 3a d4 32  |,-15,.(200),3:.2|
00001210  2c 2d 31 35 2c b3 28 32  30 30 29 2c 33 3a d4 33  |,-15,.(200),3:.3|
00001220  2c 2d 31 35 2c b3 28 32  30 30 29 2c 33 3a f2 64  |,-15,.(200),3:.d|
00001230  28 33 29 3a ed 3a f2 64  28 35 30 29 0d 06 40 10  |(3):.:.d(50)..@.|
00001240  57 25 3d 32 35 32 3a 4f  56 25 3d b9 0d 06 4a 05  |W%=252:OV%=...J.|
00001250  e1 0d 06 54 08 dd f2 67  73 0d 06 5e 12 46 25 3d  |...T...gs..^.F%=|
00001260  30 3a 47 25 3d 30 3a 44  25 3d 30 0d 06 68 1a 55  |0:G%=0:D%=0..h.U|
00001270  25 3d 26 33 30 3a 4f 25  3d 30 3a 56 25 3d 26 36  |%=&30:O%=0:V%=&6|
00001280  3a 57 25 3d 30 0d 06 72  0c 45 25 3d 31 38 38 38  |:W%=0..r.E%=1888|
00001290  37 0d 06 7c 10 4c 25 3d  31 30 3a 4f 56 25 3d a3  |7..|.L%=10:OV%=.|
000012a0  3a 0d 06 86 0f 4d 4c 25  3d a3 3a 4d 46 25 3d a3  |:....ML%=.:MF%=.|
000012b0  0d 06 90 09 52 4c 25 3d  a3 0d 06 9a 12 ef 31 39  |....RL%=......19|
000012c0  2c 31 35 2c 31 2c 30 2c  30 2c 30 0d 06 a4 12 ef  |,15,1,0,0,0.....|
000012d0  31 39 2c 31 34 2c 31 2c  30 2c 30 2c 30 0d 06 ae  |19,14,1,0,0,0...|
000012e0  12 ef 31 39 2c 31 33 2c  31 2c 30 2c 30 2c 30 0d  |..19,13,1,0,0,0.|
000012f0  06 b8 0b e3 4e 25 3d 31  b8 36 0d 06 c2 15 ef 31  |....N%=1.6.....1|
00001300  39 2c 36 2b 4e 25 2c 4e  25 2c 30 2c 30 2c 30 0d  |9,6+N%,N%,0,0,0.|
00001310  06 cc 05 ed 0d 06 d6 09  42 25 3d 33 35 0d 06 e0  |........B%=35...|
00001320  05 e1 0d 06 ea 08 dd f2  67 65 0d 06 f4 0b 2a 46  |........ge....*F|
00001330  58 32 31 2c 30 0d 06 fe  24 d4 26 31 31 2c 30 2c  |X21,0...$.&11,0,|
00001340  30 2c 31 3a d4 26 31 32  2c 30 2c 30 2c 31 3a d4  |0,1:.&12,0,0,1:.|
00001350  26 31 33 2c 30 2c 30 2c  31 0d 07 08 0d 4e 50 25  |&13,0,0,1....NP%|
00001360  3d 4e 50 25 2d 31 0d 07  12 0f e7 20 4e 50 25 3d  |=NP%-1..... NP%=|
00001370  30 20 f2 67 78 0d 07 1c  08 f2 73 63 73 0d 07 26  |0 .gx.....scs..&|
00001380  05 e1 0d 07 30 08 dd f2  67 78 0d 07 3a 11 ef 31  |....0...gx..:..1|
00001390  39 2c 37 2c 37 2c 30 2c  30 2c 30 0d 07 44 0a fb  |9,7,7,0,0,0..D..|
000013a0  31 33 32 3a db 0d 07 4e  18 fb 31 33 31 3a ef 32  |132:...N..131:.2|
000013b0  38 2c 30 2c 32 36 2c 31  39 2c 34 3a db 0d 07 58  |8,0,26,19,4:...X|
000013c0  18 fb 31 32 39 3a ef 32  38 2c 31 2c 32 35 2c 31  |..129:.28,1,25,1|
000013d0  38 2c 35 3a db 0d 07 62  13 fb 37 3a f1 8a 37 2c  |8,5:...b..7:..7,|
000013e0  31 29 22 58 2d 31 35 22  0d 07 6c 16 f1 8a 34 2c  |1)"X-15"..l...4,|
000013f0  33 29 22 47 41 4d 45 20  20 4f 56 45 52 22 0d 07  |3)"GAME  OVER"..|
00001400  76 1b f1 8a 31 2c 36 29  22 59 4f 55 52 20 53 43  |v...1,6)"YOUR SC|
00001410  4f 52 45 20 22 3b 53 43  25 0d 07 80 1b f1 8a 31  |ORE ";SC%......1|
00001420  2c 38 29 22 48 49 47 48  20 53 43 4f 52 45 20 22  |,8)"HIGH SCORE "|
00001430  3b 48 49 25 0d 07 8a 1d  e7 53 43 25 3c 48 49 25  |;HI%.....SC%<HI%|
00001440  f1 27 22 20 42 59 20 22  48 49 24 3a e5 8d 74 72  |.'" BY "HI$:..tr|
00001450  47 0d 07 94 36 e7 48 49  25 3d 53 43 25 20 f1 27  |G...6.HI%=SC% .'|
00001460  27 22 20 59 4f 55 20 45  51 55 41 4c 45 44 20 54  |'" YOU EQUALED T|
00001470  48 45 22 20 8b f1 27 27  22 20 59 4f 55 20 42 45  |HE" ..''" YOU BE|
00001480  41 54 20 54 48 45 22 0d  07 9e 31 f1 27 22 20 48  |AT THE"...1.'" H|
00001490  49 47 48 20 53 43 4f 52  45 20 21 22 27 27 22 20  |IGH SCORE !"''" |
000014a0  45 4e 54 45 52 20 59 4f  55 52 20 4e 41 4d 45 22  |ENTER YOUR NAME"|
000014b0  27 27 22 20 3e 20 22 3b  0d 07 a8 2c e8 22 22 41  |''" > ";...,.""A|
000014c0  24 3a e7 a9 41 24 3e 31  32 e5 8d 44 4e 47 20 8b  |$:..A$>12..DNG .|
000014d0  48 49 24 3d 41 24 3a 48  49 25 3d 53 43 25 3a e5  |HI$=A$:HI%=SC%:.|
000014e0  8d 64 50 47 0d 07 b2 26  f1 27 27 27 22 20 52 45  |.dPG...&.'''" RE|
000014f0  54 55 52 4e 20 46 4f 52  22 27 27 22 20 41 4e 4f  |TURN FOR"''" ANO|
00001500  54 48 45 52 20 47 41 4d  45 22 0d 07 bc 0c f5 fd  |THER GAME"......|
00001510  a6 28 30 29 3d b9 0d 07  c6 0a f5 fd a5 3d 31 33  |.(0)=........=13|
00001520  0d 07 d0 1e f2 73 78 3a  53 43 25 3d 30 3a 4e 50  |.....sx:SC%=0:NP|
00001530  25 3d 33 3a fb 31 32 38  3a ef 32 36 3a e1 0d 07  |%=3:.128:.26:...|
00001540  da 09 dd f2 73 63 73 0d  07 e4 05 db 0d 07 ee 13  |....scs.........|
00001550  ef 32 33 3b 38 32 30 32  3b 30 3b 30 3b 30 3b 0d  |.23;8202;0;0;0;.|
00001560  07 f8 12 ef 31 39 2c 31  30 2c 34 2c 30 2c 30 2c  |....19,10,4,0,0,|
00001570  30 0d 08 02 13 fb 31 33  38 3a f1 8a 30 2c 31 35  |0.....138:..0,15|
00001580  29 89 34 30 0d 08 0c 19  fb 31 33 31 3a ef 32 38  |).40.....131:.28|
00001590  2c 30 2c 33 31 2c 31 39  2c 31 37 3a db 0d 08 16  |,0,31,19,17:....|
000015a0  19 fb 31 32 39 3a ef 32  38 2c 31 2c 33 30 2c 31  |..129:.28,1,30,1|
000015b0  38 2c 31 38 3a db 0d 08  20 11 ef 31 39 2c 37 2c  |8,18:... ..19,7,|
000015c0  37 2c 30 2c 30 2c 30 0d  08 2a 06 fb 37 0d 08 34  |7,0,0,0..*..7..4|
000015d0  10 f1 8a 36 2c 31 29 22  58 2d 31 35 22 0d 08 3e  |...6,1)"X-15"..>|
000015e0  1a f1 8a 31 2c 33 29 22  58 2d 31 35 27 73 20 2d  |...1,3)"X-15's -|
000015f0  3e 20 22 3b 4e 50 25 0d  08 48 1a f1 8a 31 2c 35  |> ";NP%..H...1,5|
00001600  29 22 53 43 4f 52 45 20  20 2d 3e 20 22 3b 53 43  |)"SCORE  -> ";SC|
00001610  25 0d 08 52 1a f1 8a 31  2c 37 29 22 48 49 47 48  |%..R...1,7)"HIGH|
00001620  20 20 20 2d 3e 20 22 3b  48 49 25 0d 08 5c 16 f1  |   -> ";HI%..\..|
00001630  8a 31 2c 39 29 22 42 59  20 2d 3e 20 22 3b 48 49  |.1,9)"BY -> ";HI|
00001640  24 0d 08 66 1e f1 8a 31  2c 31 31 29 22 52 45 54  |$..f...1,11)"RET|
00001650  55 52 4e 20 54 4f 20 53  54 41 52 54 20 22 3b 0d  |URN TO START ";.|
00001660  08 70 0c fb 31 32 38 3a  ef 32 36 0d 08 7a 2c e3  |.p..128:.26..z,.|
00001670  49 25 3d 31 b8 31 30 3a  f1 8a b3 28 32 30 29 2d  |I%=1.10:...(20)-|
00001680  31 2c b3 28 39 29 29 3b  3a ef 31 37 2c b3 28 36  |1,.(9));:.17,.(6|
00001690  29 2c 32 34 38 3a ed 0d  08 84 13 f5 f2 70 3a f2  |),248:.......p:.|
000016a0  64 28 35 29 3a fd a6 2d  37 34 0d 08 8e 11 ef 31  |d(5):..-74.....1|
000016b0  39 2c 39 2c 31 2c 30 2c  30 2c 30 0d 08 98 0b fb  |9,9,1,0,0,0.....|
000016c0  31 33 37 3a fb 37 0d 08  a2 14 ef 32 38 2c 31 2c  |137:.7.....28,1,|
000016d0  33 30 2c 31 38 2c 31 38  3a db 0d 08 ac 10 f1 8a  |30,18,18:.......|
000016e0  36 2c 31 29 22 58 2d 31  35 22 0d 08 b6 07 ef 32  |6,1)"X-15".....2|
000016f0  36 0d 08 c0 10 e3 49 25  3d 39 b8 2d 33 20 88 2d  |6.....I%=9.-3 .-|
00001700  31 0d 08 ca 17 fb 31 32  38 3a f2 70 3a fb 31 33  |1.....128:.p:.13|
00001710  37 3a f2 64 28 31 30 29  0d 08 d4 61 e7 49 25 3e  |7:.d(10)...a.I%>|
00001720  2d 31 20 41 24 3d c4 38  2c c3 49 25 2b 22 20 22  |-1 A$=.8,.I%+" "|
00001730  29 3a d4 31 2c 2d 31 35  2c 49 25 2a 31 30 2b 31  |):.1,-15,I%*10+1|
00001740  30 30 2c 32 3a d4 32 2c  2d 31 35 2c 49 25 2a 31  |00,2:.2,-15,I%*1|
00001750  35 2b 31 30 30 2c 32 20  8b e7 49 25 3d 2d 31 20  |5+100,2 ..I%=-1 |
00001760  41 24 3d c4 34 2c 22 47  4f 20 20 22 29 3a d4 30  |A$=.4,"GO  "):.0|
00001770  2c 2d 31 35 2c 36 2c 32  30 0d 08 de 1a 43 25 3d  |,-15,6,20....C%=|
00001780  28 49 25 2b 34 29 83 34  3a e7 43 25 3d 33 20 43  |(I%+4).4:.C%=3 C|
00001790  25 3d 34 0d 08 e8 09 2a  46 58 31 39 0d 08 f2 15  |%=4....*FX19....|
000017a0  ef 31 39 2c 39 2c 43 25  2c 30 2c 30 2c 30 3a fb  |.19,9,C%,0,0,0:.|
000017b0  37 0d 08 fc 28 f1 8a 32  2c 32 32 29 41 24 20 8a  |7...(..2,22)A$ .|
000017c0  32 2c 32 34 29 41 24 20  8a 32 2c 32 36 29 41 24  |2,24)A$ .2,26)A$|
000017d0  20 8a 32 2c 32 38 29 41  24 0d 09 06 05 ed 0d 09  | .2,28)A$.......|
000017e0  10 08 fb 31 32 38 0d 09  1a 14 ef 32 38 2c 30 2c  |...128.....28,0,|
000017f0  33 31 2c 31 39 2c 31 37  3a db 0d 09 24 07 ef 32  |31,19,17:...$..2|
00001800  36 0d 09 2e 05 e1 0d 09  38 07 dd f2 70 0d 09 42  |6.......8...p..B|
00001810  2b e7 4e 25 3d 31 20 f1  8a 35 2c 31 30 29 50 30  |+.N%=1 ..5,10)P0|
00001820  24 3a 4e 25 3d 30 20 8b  20 f1 8a 35 2c 31 30 29  |$:N%=0 . ..5,10)|
00001830  50 31 24 3a 4e 25 3d 31  0d 09 4c 05 e1 0d 09 56  |P1$:N%=1..L....V|
00001840  1e dd f2 64 28 54 25 29  3a 54 25 3d 91 2b 54 25  |...d(T%):T%=.+T%|
00001850  3a f5 20 fd 20 91 3e 54  25 3a e1 0d 09 60 08 dd  |:. . .>T%:...`..|
00001860  a4 47 4b 0d 09 6a 08 49  25 3d 30 0d 09 74 05 f5  |.GK..j.I%=0..t..|
00001870  0d 09 7e 0b 49 25 3d 49  25 2b 31 0d 09 88 10 e7  |..~.I%=I%+1.....|
00001880  49 25 3d 31 32 37 20 49  25 3d 31 0d 09 92 09 fd  |I%=127 I%=1.....|
00001890  a6 2d 49 25 0d 09 9c 20  f1 8a 31 2c 31 36 29 22  |.-I%... ..1,16)"|
000018a0  20 4f 2e 4b 2e 20 52 45  4c 45 41 53 45 20 4b 45  | O.K. RELEASE KE|
000018b0  59 20 22 3b 0d 09 a6 12  f5 fd ac a6 2d 49 25 3a  |Y ";........-I%:|
000018c0  f2 64 28 31 30 29 0d 09  b0 0e f1 8a 31 2c 31 36  |.d(10)......1,16|
000018d0  29 89 32 30 0d 09 ba 08  3d 2d 49 25 0d 09 c4 07  |).20....=-I%....|
000018e0  dd f2 69 0d 09 ce 13 ef  32 33 3b 38 32 30 32 3b  |..i.....23;8202;|
000018f0  30 3b 30 3b 30 3b 0d 09  d8 0c e3 49 25 3d 30 b8  |0;0;0;.....I%=0.|
00001900  31 30 0d 09 e2 38 41 24  3d bd 28 31 32 39 2b 49  |10...8A$=.(129+I|
00001910  25 83 36 29 2b bd 31 35  37 2b bd 31 33 35 2b bd  |%.6)+.157+.135+.|
00001920  31 34 31 2b 22 3c 20 22  2b c4 35 2c 22 20 58 2d  |141+"< "+.5," X-|
00001930  31 35 20 22 29 2b 22 20  3e 22 0d 09 ec 0a f1 41  |15 ")+" >".....A|
00001940  24 27 41 24 0d 09 f6 09  ed 3a f2 73 78 0d 0a 00  |$'A$.....:.sx...|
00001950  0a f2 64 28 32 35 29 0d  0a 0a 13 ef 32 38 2c 30  |..d(25).....28,0|
00001960  2c 31 39 2c 33 39 2c 32  3a db 0d 0a 14 50 f1 27  |,19,39,2:....P.'|
00001970  27 22 20 20 50 49 4c 4f  54 20 59 4f 55 52 20 58  |'"  PILOT YOUR X|
00001980  2d 31 35 20 54 48 52 4f  55 47 48 20 54 48 45 20  |-15 THROUGH THE |
00001990  54 55 4e 4e 45 4c 53 22  27 22 20 20 41 4e 44 20  |TUNNELS"'"  AND |
000019a0  4f 56 45 52 20 54 48 45  20 48 49 4c 4c 53 20 41  |OVER THE HILLS A|
000019b0  4e 44 20 43 49 54 49 45  53 22 0d 0a 1e 2a f1 27  |ND CITIES"...*.'|
000019c0  22 20 20 41 56 4f 49 44  20 54 48 45 20 4d 49 53  |"  AVOID THE MIS|
000019d0  53 49 4c 45 53 20 41 4e  44 20 41 53 54 45 52 4f  |SILES AND ASTERO|
000019e0  49 44 53 22 0d 0a 28 4d  f1 27 22 20 20 42 4f 4d  |IDS"..(M.'"  BOM|
000019f0  42 20 41 4e 44 20 52 4f  43 4b 45 54 20 41 53 20  |B AND ROCKET AS |
00001a00  4d 41 4e 59 20 46 55 45  4c 20 44 55 4d 50 53 22  |MANY FUEL DUMPS"|
00001a10  27 22 20 20 41 4e 44 20  4d 49 53 53 49 4c 45 20  |'"  AND MISSILE |
00001a20  42 41 53 45 53 20 41 53  20 59 4f 55 20 43 41 4e  |BASES AS YOU CAN|
00001a30  22 0d 0a 32 24 f1 27 27  22 20 20 46 49 52 53 54  |"..2$.''"  FIRST|
00001a40  20 53 45 4c 45 43 54 20  59 4f 55 52 20 4b 45 59  | SELECT YOUR KEY|
00001a50  53 20 3e 3e 22 0d 0a 3c  24 f1 8a 31 2c 31 34 29  |S >>"..<$..1,14)|
00001a60  22 20 48 4f 4c 44 20 44  4f 57 4e 20 4b 45 59 20  |" HOLD DOWN KEY |
00001a70  46 4f 52 20 55 50 20 22  3b 0d 0a 46 0a 4a 25 3d  |FOR UP ";..F.J%=|
00001a80  a4 47 4b 0d 0a 50 26 f1  8a 31 2c 31 34 29 22 20  |.GK..P&..1,14)" |
00001a90  48 4f 4c 44 20 44 4f 57  4e 20 4b 45 59 20 46 4f  |HOLD DOWN KEY FO|
00001aa0  52 20 44 4f 57 4e 20 22  3b 0d 0a 5a 0a 4b 25 3d  |R DOWN ";..Z.K%=|
00001ab0  a4 47 4b 0d 0a 64 26 f1  8a 31 2c 31 34 29 22 20  |.GK..d&..1,14)" |
00001ac0  48 4f 4c 44 20 44 4f 57  4e 20 4b 45 59 20 46 4f  |HOLD DOWN KEY FO|
00001ad0  52 20 42 4f 4d 42 20 22  3b 0d 0a 6e 0a 5a 25 3d  |R BOMB ";..n.Z%=|
00001ae0  a4 47 4b 0d 0a 78 29 f1  8a 31 2c 31 34 29 22 20  |.GK..x)..1,14)" |
00001af0  48 4f 4c 44 20 44 4f 57  4e 20 4b 45 59 20 46 4f  |HOLD DOWN KEY FO|
00001b00  52 20 52 4f 43 4b 45 54  53 20 22 3b 0d 0a 82 0a  |R ROCKETS ";....|
00001b10  52 25 3d a4 47 4b 0d 0a  8c 1d f1 8a 31 2c 31 34  |R%=.GK......1,14|
00001b20  29 89 33 30 8a 31 2c 31  34 29 22 20 4f 2e 4b 2e  |).30.1,14)" O.K.|
00001b30  20 22 3b 0d 0a 96 0a f2  64 28 34 30 29 0d 0a a0  | ";.....d(40)...|
00001b40  05 e1 0d 0a aa 08 dd f2  73 78 0d 0a b4 0c e3 49  |........sx.....I|
00001b50  25 3d 31 b8 31 30 0d 0a  be 13 d4 31 2c 2d 31 35  |%=1.10.....1,-15|
00001b60  2c b3 28 32 30 30 29 2c  31 0d 0a c8 13 d4 32 2c  |,.(200),1.....2,|
00001b70  2d 31 35 2c b3 28 32 30  30 29 2c 31 0d 0a d2 13  |-15,.(200),1....|
00001b80  d4 33 2c 2d 31 35 2c b3  28 32 30 30 29 2c 31 0d  |.3,-15,.(200),1.|
00001b90  0a dc 09 f2 64 28 38 29  0d 0a e6 05 ed 0d 0a f0  |....d(8)........|
00001ba0  05 e1 0d ff                                       |....|
00001ba4

18-06-88/X-15.m0

18-06-88/X-15.m1

18-06-88/X-15.m2

18-06-88/X-15.m4

18-06-88/X-15.m5

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