Home » Personal collection » Acorn DFS disks » dfs_box03_disk09_robs_games.scp » 7
7
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 DFS disks » dfs_box03_disk09_robs_games.scp |
| Filename: | 7 |
| Read OK: | ❌ |
| File size: | 1378 bytes |
| Load address: | FF1900 |
| Exec address: | FF8023 |
File contents
"� 7 Copyright DOCTOR SOFT 1983
�&A10
%�M=&D00 �&DBF �4:!M=!(�-&DF0+M):�
%�M=&B32 �&C8F �4:!M=!(�-&D82+M):�
��X%(360),T%(100):w%=R%:v%=B%:�A%=0�360:X%(A%)=100*��A%:�:�A%=0�100:T%(A%)=��(A%/100)*16:�:RW%=&B32:HB%=&D82:HN%=&D2C:DV%=&D00:z%=0:x%=0:y%=0:H%=0:b%=0:c%=0:d%=0:K%=0:p%=0:R=0:k=0
(�:M$="":m%=0:��tDC
<0�4:q%=1E5:n=1:Q=0:P=6:@%=0:E=-q%:N=1.5:S=150
F *FX11,9
P *FX12,9
Z�r%=750:h%=2190:C%=1440:P%=1400:H=5000:Z%=0:�19,1,4,0,0,0,19,2,2,0,0,0,19,3,3,0,0,0,28,0,31,39,18,30,23;8202;0;0;0;:�=0:G$="":�dFB:F$="":�dZB
�"�C%>5760C%=C%-5760:�13,1)" "
��C%<0C%=C%+5760
���&12,-1,200+P,50:�&11,-1,190+P,50:�&13,-3,1,50:�DV%,C%:Q%=!&78:D%=�:�=0:V%=D%*S/590:E=E+V%*X%(Q%)+v%:N=N+V%*X%((Q%+90)�360)+w%:Q=V%*(P%-1440)�9:H=H+Q
�*W%=E+1500:S%=N+750:E%=W%-q%:N%=S%-1500
� �H<301H=300:i%=1:�t:�tj@
�%i%=0:�&10,-2,5,50:�S<s �S>s+200�S
�#�i%=1Z%=0:P%=1440:�&10,-�S,6,50
��q%<h%�dR@
�7�p%=0:�Q%<160:�Q%>20:�W%>-H:W%=-H:�E%>-H p%=1:�d\@
�5�p%=0:�Q%>200:�Q%<340:�E%<H:E%=H:�W%<H p%=1:�d\@
�p%=0
�J�24,0;150;1279;1023;:S=S-Q/20+P-10+s �20-S �35:�G$=" UP "S=S+2��S<0S=0
�"�S<>0�0,3:@%=3:�5,2)�S:�E(S)
�T@%=&20204:�11,8)1+P*3/100:@%=0:�H>d%�31,2)H �9" ":�H>d%+1�A((H �25)�360):�TNA
.�H<d%�32,2)H �9" ":�H<d%-1�A((H �25)�360)
@@%=3:�12,1)Q%:@%=&20105:�24,1)�B(N,E)/16�24,8)-R%/6E4:@%=0
�m%<>0�m
,"�R<>((B%+5760)�16-Q%)�360�R(R)
@9�K%<>90-Q%�90�0,2:�points(71):K%=90-Q%�90:�points(69)
T
�(0)>1�K
^^�24,0;500;1279;1023;:H%=H*960:X%=�B(N%,E%)+640-C%:�(B%-C%)>1440:�(B%-C%)<4320:p%=1:�tZA
hOY%=h%+H%�R%-P%:A%=�B(S%,E%)+640-C%:�(B%-C%)>1440:�(B%-C%)<4320:p%=1:�tZA
rOO%=h%+H%�R%-P%:F%=�B(S%,W%)+640-C%:�(B%-C%)>1440:�(B%-C%)<4320:p%=1:�tZA
|OG%=h%+H%�R%-P%:I%=�B(N%,W%)+640-C%:�(B%-C%)>1440:�(B%-C%)<4320:p%=1:�tZA
�;J%=h%+H%�R%-P%:�(B%-C%)>1440:�(B%-C%)<4320:p%=1:�tZA
��Z=Z%/60:X%=X%+Z*(r%-Y%):Y%=Y%-Z*(640-X%):A%=A%+Z*(r%-O%):O%=O%-Z*(640-A%):F%=F%+Z*(r%-G%):G%=G%-Z*(640-F%):I%=I%+Z*(r%-J%):J%=J%-Z*(640-I%)
�1�p%=1:X%=0:Y%=0:A%=0:O%=0:F%=0:G%=0:I%=0:J%=0
� *FX 15,1
�#�HZ:�0,3:� RW%:C%=C%+Z%�2:�tB@
�X��E(v%):�213,300:�3,x%,y%:x%=X%(v%�360):y%=X%((v%+90)�360):�213,300:�1,x%,y%:z%=v%:�
�Y��A(H%):�1065,300:�3,b%,c%:b%=X%(� H%):c%=X%((�H%+90)�360):�1065,300:�1,b%,c%:d%=H%:�
̕ݤB(N%,E%):�E%<0�dtA��N%<0�d`A��N%>E%B%=2880+T%(E%*100�N%):�DV%,B%:R%=100*N%�X%((!&78+90)�360)�B%=4320-T%(N%*100�E%):�DV%,B%:R%=100*E%�X%(!&78)
� �TRB
�x�E%>�N%B%=4320+T%(-N%*100�E%):�DV%,B%:R%=100*E%�X%(!&78):�B%=5760-T%(E%*100�-N%):�DV%,B%:R%=100*N%�X%((!&78+90)�360)
� �TRB
�z�N%>0�THB��E%>N%B%=T%(E%*100�N%):�DV%,B%:R%=100*N%�X%((!&78+90)�360)�B%=1440-T%(N%*100�E%):�DV%,B%:R%=100*E%�X%(!&78)
� �TRB
w�E%>N%B%=1440+T%(N%*100�-E%):�DV%,B%:R%=100*E%�X%(!&78)�B%=2880-T%(-E%*100�N%):�DV%,B%:R%=100*N%�X%((!&78+90)�360)
=B%
*��K:�(-105)Z%=Z%+8:�i%=1Z%=0:C%=C%+15
&%�(-98)Z%=Z%-8:�i%=1Z%=0:C%=C%-15
0 �(-99)�S>105P%=P%+10:�DDB
:�(-85)�i%=0P%=P%-10
D�(-88)P=P+1:�P>17P=17
N�(-24)P=P-1:�P<0P=0
X�(-84)�dFB
b�(-68)�dZB
l�(-86)�i%=0�DzB
v�
z&�(-52)N=�(6E6)-3E6:E=�(6E6)-3E6:�
{^�(640+n):�n:N=N-n*82105:�n:E=E-n*82105:�n:�N$:�37,11)" "�30,11)N$:q%=1500:�(N$)=7q%=1E5
|�
��19,-2,2,BNN 112.3
��-9,33,3,LAM 115.6
��-25,-8,4,BIG 115.1
��-24,1,5,MAY 119.9
��12,-14,6,GAT RWY
��13,-11,7,OCK 115.3
��27,17,8,JGW RWY
��-13,-16,1,LHR RWY
�!�G$="DOWN"G$=" UP "�G$="DOWN"
��18,11)G$:�
�+�F$="OUT"F$="IN ":s=200 �F$="OUT":s=100
��5,11)F$:�
�6��HZ:T%=h%-P%:U%=T%+Z%*11:T%=T%-Z%*11:L%=0:M%=1279
�2�T%<500:�U%>500:L%=1279*(500-T%)/(U%-T%):�T`C
/�T%>1023:�U%<1023:L%=1279*(T%-1023)/(T%-U%)
7�U%<500:�T%>500:M%=1279-1279*(500-U%)/(T%-U%):�DHC
�DHC
<�U%>1023:�T%<1023:M%=1279-1279*(U%-1023)/(U%-T%):U%=1023
*�L%>0T%=500
4�M%<1279U%=1023
> �D\C
H�L%>0T%=1023
R�M%<1279U%=500
\�0,1:� HB%:� HN%:�
��m:�24,0;500;1279;1023;:�&10,1,6,50:�&11,2,200,65:�&13,2,190,73:�A=0�55:�(5),A:�85,�(2500)-500,�(1100)+300:�19,1,A,0,0,0:�
�U�d(500):�:�24,0;150;1279;1023;:�R(R):�E(0):�A(0):�35,2)" "�27,8)" "�30,11)�(9):�
���t:�Q<0:�dhC
��S<100N=N-w%:E=E-v%
�3�E%=�W%��N%=�S%M$="OFF RUNWAY!":m%=1:k=k-100:!
�-S=S-6:�S<0S=0:m%=1:M$="TOTAL SCORE:"+�(k)
�!�G$=" UP "M$="GEAR UP":m%=1:!
��
�mk=k+100+Q:m%=9:M$="Very nice!":�Q<-30M$="Good":�Q<-60M$="OUCH!!":�Q<-100M$="HARD IMPACT!!":m%=1:k=k-200:!
�S�Z%>8M$="SCRAPED PODS!":m%=9:-=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD S 00000000 0d 00 01 22 f4 20 37 20 43 6f 70 79 72 69 67 68 |...". 7 Copyrigh|
00000010 74 20 44 4f 43 54 4f 52 20 53 4f 46 54 20 31 39 |t DOCTOR SOFT 19|
00000020 38 33 0d 00 05 09 d6 26 41 31 30 0d 00 0a 25 e3 |83.....&A10...%.|
00000030 4d 3d 26 44 30 30 20 b8 26 44 42 46 20 88 34 3a |M=&D00 .&DBF .4:|
00000040 21 4d 3d 21 28 93 2d 26 44 46 30 2b 4d 29 3a ed |!M=!(.-&DF0+M):.|
00000050 0d 00 0f 25 e3 4d 3d 26 42 33 32 20 b8 26 43 38 |...%.M=&B32 .&C8|
00000060 46 20 88 34 3a 21 4d 3d 21 28 93 2d 26 44 38 32 |F .4:!M=!(.-&D82|
00000070 2b 4d 29 3a ed 0d 00 14 b6 de 58 25 28 33 36 30 |+M):......X%(360|
00000080 29 2c 54 25 28 31 30 30 29 3a 77 25 3d 52 25 3a |),T%(100):w%=R%:|
00000090 76 25 3d 42 25 3a e3 41 25 3d 30 b8 33 36 30 3a |v%=B%:.A%=0.360:|
000000a0 58 25 28 41 25 29 3d 31 30 30 2a b5 b2 41 25 3a |X%(A%)=100*..A%:|
000000b0 ed 3a e3 41 25 3d 30 b8 31 30 30 3a 54 25 28 41 |.:.A%=0.100:T%(A|
000000c0 25 29 3d 9d 99 28 41 25 2f 31 30 30 29 2a 31 36 |%)=..(A%/100)*16|
000000d0 3a ed 3a 52 57 25 3d 26 42 33 32 3a 48 42 25 3d |:.:RW%=&B32:HB%=|
000000e0 26 44 38 32 3a 48 4e 25 3d 26 44 32 43 3a 44 56 |&D82:HN%=&D2C:DV|
000000f0 25 3d 26 44 30 30 3a 7a 25 3d 30 3a 78 25 3d 30 |%=&D00:z%=0:x%=0|
00000100 3a 79 25 3d 30 3a 48 25 3d 30 3a 62 25 3d 30 3a |:y%=0:H%=0:b%=0:|
00000110 63 25 3d 30 3a 64 25 3d 30 3a 4b 25 3d 30 3a 70 |c%=0:d%=0:K%=0:p|
00000120 25 3d 30 3a 52 3d 30 3a 6b 3d 30 0d 00 28 18 da |%=0:R=0:k=0..(..|
00000130 3a 4d 24 3d 22 22 3a 6d 25 3d 30 3a ee 85 e4 8d |:M$="":m%=0:....|
00000140 74 44 43 0d 00 3c 30 ef 34 3a 71 25 3d 31 45 35 |tDC..<0.4:q%=1E5|
00000150 3a 6e 3d 31 3a 51 3d 30 3a 50 3d 36 3a 40 25 3d |:n=1:Q=0:P=6:@%=|
00000160 30 3a 45 3d 2d 71 25 3a 4e 3d 31 2e 35 3a 53 3d |0:E=-q%:N=1.5:S=|
00000170 31 35 30 0d 00 46 0b 2a 46 58 31 31 2c 39 0d 00 |150..F.*FX11,9..|
00000180 50 0b 2a 46 58 31 32 2c 39 0d 00 5a 92 72 25 3d |P.*FX12,9..Z.r%=|
00000190 37 35 30 3a 68 25 3d 32 31 39 30 3a 43 25 3d 31 |750:h%=2190:C%=1|
000001a0 34 34 30 3a 50 25 3d 31 34 30 30 3a 48 3d 35 30 |440:P%=1400:H=50|
000001b0 30 30 3a 5a 25 3d 30 3a ef 31 39 2c 31 2c 34 2c |00:Z%=0:.19,1,4,|
000001c0 30 2c 30 2c 30 2c 31 39 2c 32 2c 32 2c 30 2c 30 |0,0,0,19,2,2,0,0|
000001d0 2c 30 2c 31 39 2c 33 2c 33 2c 30 2c 30 2c 30 2c |,0,19,3,3,0,0,0,|
000001e0 32 38 2c 30 2c 33 31 2c 33 39 2c 31 38 2c 33 30 |28,0,31,39,18,30|
000001f0 2c 32 33 3b 38 32 30 32 3b 30 3b 30 3b 30 3b 3a |,23;8202;0;0;0;:|
00000200 d1 3d 30 3a 47 24 3d 22 22 3a e4 8d 64 46 42 3a |.=0:G$="":..dFB:|
00000210 46 24 3d 22 22 3a e4 8d 64 5a 42 0d 00 82 22 e7 |F$="":..dZB...".|
00000220 43 25 3e 35 37 36 30 43 25 3d 43 25 2d 35 37 36 |C%>5760C%=C%-576|
00000230 30 3a f1 8a 31 33 2c 31 29 22 20 20 22 0d 00 8c |0:..13,1)" "...|
00000240 13 e7 43 25 3c 30 43 25 3d 43 25 2b 35 37 36 30 |..C%<0C%=C%+5760|
00000250 0d 00 96 99 d4 26 31 32 2c 2d 31 2c 32 30 30 2b |.....&12,-1,200+|
00000260 50 2c 35 30 3a d4 26 31 31 2c 2d 31 2c 31 39 30 |P,50:.&11,-1,190|
00000270 2b 50 2c 35 30 3a d4 26 31 33 2c 2d 33 2c 31 2c |+P,50:.&13,-3,1,|
00000280 35 30 3a d6 44 56 25 2c 43 25 3a 51 25 3d 21 26 |50:.DV%,C%:Q%=!&|
00000290 37 38 3a 44 25 3d 91 3a d1 3d 30 3a 56 25 3d 44 |78:D%=.:.=0:V%=D|
000002a0 25 2a 53 2f 35 39 30 3a 45 3d 45 2b 56 25 2a 58 |%*S/590:E=E+V%*X|
000002b0 25 28 51 25 29 2b 76 25 3a 4e 3d 4e 2b 56 25 2a |%(Q%)+v%:N=N+V%*|
000002c0 58 25 28 28 51 25 2b 39 30 29 83 33 36 30 29 2b |X%((Q%+90).360)+|
000002d0 77 25 3a 51 3d 56 25 2a 28 50 25 2d 31 34 34 30 |w%:Q=V%*(P%-1440|
000002e0 29 81 39 3a 48 3d 48 2b 51 0d 00 98 2a 57 25 3d |).9:H=H+Q...*W%=|
000002f0 45 2b 31 35 30 30 3a 53 25 3d 4e 2b 37 35 30 3a |E+1500:S%=N+750:|
00000300 45 25 3d 57 25 2d 71 25 3a 4e 25 3d 53 25 2d 31 |E%=W%-q%:N%=S%-1|
00000310 35 30 30 0d 00 9b 1d e7 48 3c 33 30 31 48 3d 33 |500.....H<301H=3|
00000320 30 30 3a 69 25 3d 31 3a f2 74 3a e5 8d 74 6a 40 |00:i%=1:.t:..tj@|
00000330 0d 00 a0 25 69 25 3d 30 3a d4 26 31 30 2c 2d 32 |...%i%=0:.&10,-2|
00000340 2c 35 2c 35 30 3a e7 53 3c 73 20 84 53 3e 73 2b |,5,50:.S<s .S>s+|
00000350 32 30 30 f2 53 0d 00 aa 23 e7 69 25 3d 31 5a 25 |200.S...#.i%=1Z%|
00000360 3d 30 3a 50 25 3d 31 34 34 30 3a d4 26 31 30 2c |=0:P%=1440:.&10,|
00000370 2d b6 53 2c 36 2c 35 30 0d 00 b4 0f e7 71 25 3c |-.S,6,50.....q%<|
00000380 68 25 e5 8d 64 52 40 0d 00 be 37 e7 70 25 3d 30 |h%..dR@...7.p%=0|
00000390 3a e7 51 25 3c 31 36 30 3a e7 51 25 3e 32 30 3a |:.Q%<160:.Q%>20:|
000003a0 e7 57 25 3e 2d 48 3a 57 25 3d 2d 48 3a e7 45 25 |.W%>-H:W%=-H:.E%|
000003b0 3e 2d 48 20 70 25 3d 31 3a e5 8d 64 5c 40 0d 00 |>-H p%=1:..d\@..|
000003c0 c8 35 e7 70 25 3d 30 3a e7 51 25 3e 32 30 30 3a |.5.p%=0:.Q%>200:|
000003d0 e7 51 25 3c 33 34 30 3a e7 45 25 3c 48 3a 45 25 |.Q%<340:.E%<H:E%|
000003e0 3d 48 3a e7 57 25 3c 48 20 70 25 3d 31 3a e5 8d |=H:.W%<H p%=1:..|
000003f0 64 5c 40 0d 00 d2 08 70 25 3d 30 0d 00 dc 4a ef |d\@....p%=0...J.|
00000400 32 34 2c 30 3b 31 35 30 3b 31 32 37 39 3b 31 30 |24,0;150;1279;10|
00000410 32 33 3b 3a 53 3d 53 2d 51 2f 32 30 2b 50 2d 31 |23;:S=S-Q/20+P-1|
00000420 30 2b 73 20 81 32 30 2d 53 20 81 33 35 3a e7 47 |0+s .20-S .35:.G|
00000430 24 3d 22 20 55 50 20 22 53 3d 53 2b 32 8b e7 53 |$=" UP "S=S+2..S|
00000440 3c 30 53 3d 30 0d 00 e6 22 e7 94 53 3c 3e 30 e6 |<0S=0..."..S<>0.|
00000450 30 2c 33 3a 40 25 3d 33 3a f1 8a 35 2c 32 29 a8 |0,3:@%=3:..5,2).|
00000460 53 3a f2 45 28 53 29 0d 00 fa 54 40 25 3d 26 32 |S:.E(S)...T@%=&2|
00000470 30 32 30 34 3a f1 8a 31 31 2c 38 29 31 2b 50 2a |0204:..11,8)1+P*|
00000480 33 2f 31 30 30 3a 40 25 3d 30 3a e7 48 3e 64 25 |3/100:@%=0:.H>d%|
00000490 f1 8a 33 31 2c 32 29 48 20 81 39 22 20 22 3a e7 |..31,2)H .9" ":.|
000004a0 48 3e 64 25 2b 31 f2 41 28 28 48 20 81 32 35 29 |H>d%+1.A((H .25)|
000004b0 83 33 36 30 29 3a e5 8d 54 4e 41 0d 01 04 2e e7 |.360):..TNA.....|
000004c0 48 3c 64 25 f1 8a 33 32 2c 32 29 48 20 81 39 22 |H<d%..32,2)H .9"|
000004d0 20 22 3a e7 48 3c 64 25 2d 31 f2 41 28 28 48 20 | ":.H<d%-1.A((H |
000004e0 81 32 35 29 83 33 36 30 29 0d 01 0e 40 40 25 3d |.25).360)...@@%=|
000004f0 33 3a f1 8a 31 32 2c 31 29 51 25 3a 40 25 3d 26 |3:..12,1)Q%:@%=&|
00000500 32 30 31 30 35 3a f1 8a 32 34 2c 31 29 a4 42 28 |20105:..24,1).B(|
00000510 4e 2c 45 29 2f 31 36 8a 32 34 2c 38 29 2d 52 25 |N,E)/16.24,8)-R%|
00000520 2f 36 45 34 3a 40 25 3d 30 0d 01 18 0c e7 6d 25 |/6E4:@%=0.....m%|
00000530 3c 3e 30 f2 6d 0d 01 2c 22 e7 52 3c 3e 28 28 42 |<>0.m..,".R<>((B|
00000540 25 2b 35 37 36 30 29 81 31 36 2d 51 25 29 83 33 |%+5760).16-Q%).3|
00000550 36 30 f2 52 28 52 29 0d 01 40 39 e7 4b 25 3c 3e |60.R(R)..@9.K%<>|
00000560 39 30 2d 51 25 83 39 30 e6 30 2c 32 3a f2 70 6f |90-Q%.90.0,2:.po|
00000570 69 6e 74 73 28 37 31 29 3a 4b 25 3d 39 30 2d 51 |ints(71):K%=90-Q|
00000580 25 83 39 30 3a f2 70 6f 69 6e 74 73 28 36 39 29 |%.90:.points(69)|
00000590 0d 01 54 0d e7 a6 28 30 29 3e 31 f2 4b 0d 01 5e |..T...(0)>1.K..^|
000005a0 5e ef 32 34 2c 30 3b 35 30 30 3b 31 32 37 39 3b |^.24,0;500;1279;|
000005b0 31 30 32 33 3b 3a 48 25 3d 48 2a 39 36 30 3a 58 |1023;:H%=H*960:X|
000005c0 25 3d a4 42 28 4e 25 2c 45 25 29 2b 36 34 30 2d |%=.B(N%,E%)+640-|
000005d0 43 25 3a e7 94 28 42 25 2d 43 25 29 3e 31 34 34 |C%:..(B%-C%)>144|
000005e0 30 3a e7 94 28 42 25 2d 43 25 29 3c 34 33 32 30 |0:..(B%-C%)<4320|
000005f0 3a 70 25 3d 31 3a e5 8d 74 5a 41 0d 01 68 4f 59 |:p%=1:..tZA..hOY|
00000600 25 3d 68 25 2b 48 25 81 52 25 2d 50 25 3a 41 25 |%=h%+H%.R%-P%:A%|
00000610 3d a4 42 28 53 25 2c 45 25 29 2b 36 34 30 2d 43 |=.B(S%,E%)+640-C|
00000620 25 3a e7 94 28 42 25 2d 43 25 29 3e 31 34 34 30 |%:..(B%-C%)>1440|
00000630 3a e7 94 28 42 25 2d 43 25 29 3c 34 33 32 30 3a |:..(B%-C%)<4320:|
00000640 70 25 3d 31 3a e5 8d 74 5a 41 0d 01 72 4f 4f 25 |p%=1:..tZA..rOO%|
00000650 3d 68 25 2b 48 25 81 52 25 2d 50 25 3a 46 25 3d |=h%+H%.R%-P%:F%=|
00000660 a4 42 28 53 25 2c 57 25 29 2b 36 34 30 2d 43 25 |.B(S%,W%)+640-C%|
00000670 3a e7 94 28 42 25 2d 43 25 29 3e 31 34 34 30 3a |:..(B%-C%)>1440:|
00000680 e7 94 28 42 25 2d 43 25 29 3c 34 33 32 30 3a 70 |..(B%-C%)<4320:p|
00000690 25 3d 31 3a e5 8d 74 5a 41 0d 01 7c 4f 47 25 3d |%=1:..tZA..|OG%=|
000006a0 68 25 2b 48 25 81 52 25 2d 50 25 3a 49 25 3d a4 |h%+H%.R%-P%:I%=.|
000006b0 42 28 4e 25 2c 57 25 29 2b 36 34 30 2d 43 25 3a |B(N%,W%)+640-C%:|
000006c0 e7 94 28 42 25 2d 43 25 29 3e 31 34 34 30 3a e7 |..(B%-C%)>1440:.|
000006d0 94 28 42 25 2d 43 25 29 3c 34 33 32 30 3a 70 25 |.(B%-C%)<4320:p%|
000006e0 3d 31 3a e5 8d 74 5a 41 0d 01 86 3b 4a 25 3d 68 |=1:..tZA...;J%=h|
000006f0 25 2b 48 25 81 52 25 2d 50 25 3a e7 94 28 42 25 |%+H%.R%-P%:..(B%|
00000700 2d 43 25 29 3e 31 34 34 30 3a e7 94 28 42 25 2d |-C%)>1440:..(B%-|
00000710 43 25 29 3c 34 33 32 30 3a 70 25 3d 31 3a e5 8d |C%)<4320:p%=1:..|
00000720 74 5a 41 0d 01 90 8f 5a 3d 5a 25 2f 36 30 3a 58 |tZA....Z=Z%/60:X|
00000730 25 3d 58 25 2b 5a 2a 28 72 25 2d 59 25 29 3a 59 |%=X%+Z*(r%-Y%):Y|
00000740 25 3d 59 25 2d 5a 2a 28 36 34 30 2d 58 25 29 3a |%=Y%-Z*(640-X%):|
00000750 41 25 3d 41 25 2b 5a 2a 28 72 25 2d 4f 25 29 3a |A%=A%+Z*(r%-O%):|
00000760 4f 25 3d 4f 25 2d 5a 2a 28 36 34 30 2d 41 25 29 |O%=O%-Z*(640-A%)|
00000770 3a 46 25 3d 46 25 2b 5a 2a 28 72 25 2d 47 25 29 |:F%=F%+Z*(r%-G%)|
00000780 3a 47 25 3d 47 25 2d 5a 2a 28 36 34 30 2d 46 25 |:G%=G%-Z*(640-F%|
00000790 29 3a 49 25 3d 49 25 2b 5a 2a 28 72 25 2d 4a 25 |):I%=I%+Z*(r%-J%|
000007a0 29 3a 4a 25 3d 4a 25 2d 5a 2a 28 36 34 30 2d 49 |):J%=J%-Z*(640-I|
000007b0 25 29 0d 01 9a 31 e7 70 25 3d 31 3a 58 25 3d 30 |%)...1.p%=1:X%=0|
000007c0 3a 59 25 3d 30 3a 41 25 3d 30 3a 4f 25 3d 30 3a |:Y%=0:A%=0:O%=0:|
000007d0 46 25 3d 30 3a 47 25 3d 30 3a 49 25 3d 30 3a 4a |F%=0:G%=0:I%=0:J|
000007e0 25 3d 30 0d 01 a4 0c 2a 46 58 20 31 35 2c 31 0d |%=0....*FX 15,1.|
000007f0 01 ae 23 f2 48 5a 3a e6 30 2c 33 3a d6 20 52 57 |..#.HZ:.0,3:. RW|
00000800 25 3a 43 25 3d 43 25 2b 5a 25 81 32 3a e5 8d 74 |%:C%=C%+Z%.2:..t|
00000810 42 40 0d 01 b8 58 dd f2 45 28 76 25 29 3a ec 32 |B@...X..E(v%):.2|
00000820 31 33 2c 33 30 30 3a f0 33 2c 78 25 2c 79 25 3a |13,300:.3,x%,y%:|
00000830 78 25 3d 58 25 28 76 25 83 33 36 30 29 3a 79 25 |x%=X%(v%.360):y%|
00000840 3d 58 25 28 28 76 25 2b 39 30 29 83 33 36 30 29 |=X%((v%+90).360)|
00000850 3a ec 32 31 33 2c 33 30 30 3a f0 31 2c 78 25 2c |:.213,300:.1,x%,|
00000860 79 25 3a 7a 25 3d 76 25 3a e1 0d 01 c2 59 dd f2 |y%:z%=v%:....Y..|
00000870 41 28 48 25 29 3a ec 31 30 36 35 2c 33 30 30 3a |A(H%):.1065,300:|
00000880 f0 33 2c 62 25 2c 63 25 3a 62 25 3d 58 25 28 94 |.3,b%,c%:b%=X%(.|
00000890 20 48 25 29 3a 63 25 3d 58 25 28 28 94 48 25 2b | H%):c%=X%((.H%+|
000008a0 39 30 29 83 33 36 30 29 3a ec 31 30 36 35 2c 33 |90).360):.1065,3|
000008b0 30 30 3a f0 31 2c 62 25 2c 63 25 3a 64 25 3d 48 |00:.1,b%,c%:d%=H|
000008c0 25 3a e1 0d 01 cc 95 dd a4 42 28 4e 25 2c 45 25 |%:.......B(N%,E%|
000008d0 29 3a e7 45 25 3c 30 e5 8d 64 74 41 8b e7 4e 25 |):.E%<0..dtA..N%|
000008e0 3c 30 e5 8d 64 60 41 8b e7 4e 25 3e 45 25 42 25 |<0..d`A..N%>E%B%|
000008f0 3d 32 38 38 30 2b 54 25 28 45 25 2a 31 30 30 81 |=2880+T%(E%*100.|
00000900 4e 25 29 3a d6 44 56 25 2c 42 25 3a 52 25 3d 31 |N%):.DV%,B%:R%=1|
00000910 30 30 2a 4e 25 81 58 25 28 28 21 26 37 38 2b 39 |00*N%.X%((!&78+9|
00000920 30 29 83 33 36 30 29 8b 42 25 3d 34 33 32 30 2d |0).360).B%=4320-|
00000930 54 25 28 4e 25 2a 31 30 30 81 45 25 29 3a d6 44 |T%(N%*100.E%):.D|
00000940 56 25 2c 42 25 3a 52 25 3d 31 30 30 2a 45 25 81 |V%,B%:R%=100*E%.|
00000950 58 25 28 21 26 37 38 29 0d 01 d6 09 e5 8d 54 52 |X%(!&78)......TR|
00000960 42 0d 01 e0 78 e7 45 25 3e 94 4e 25 42 25 3d 34 |B...x.E%>.N%B%=4|
00000970 33 32 30 2b 54 25 28 2d 4e 25 2a 31 30 30 81 45 |320+T%(-N%*100.E|
00000980 25 29 3a d6 44 56 25 2c 42 25 3a 52 25 3d 31 30 |%):.DV%,B%:R%=10|
00000990 30 2a 45 25 81 58 25 28 21 26 37 38 29 3a 8b 42 |0*E%.X%(!&78):.B|
000009a0 25 3d 35 37 36 30 2d 54 25 28 45 25 2a 31 30 30 |%=5760-T%(E%*100|
000009b0 81 2d 4e 25 29 3a d6 44 56 25 2c 42 25 3a 52 25 |.-N%):.DV%,B%:R%|
000009c0 3d 31 30 30 2a 4e 25 81 58 25 28 28 21 26 37 38 |=100*N%.X%((!&78|
000009d0 2b 39 30 29 83 33 36 30 29 0d 01 ea 09 e5 8d 54 |+90).360)......T|
000009e0 52 42 0d 01 f4 7a e7 4e 25 3e 30 e5 8d 54 48 42 |RB...z.N%>0..THB|
000009f0 8b e7 45 25 3e 4e 25 42 25 3d 54 25 28 45 25 2a |..E%>N%B%=T%(E%*|
00000a00 31 30 30 81 4e 25 29 3a d6 44 56 25 2c 42 25 3a |100.N%):.DV%,B%:|
00000a10 52 25 3d 31 30 30 2a 4e 25 81 58 25 28 28 21 26 |R%=100*N%.X%((!&|
00000a20 37 38 2b 39 30 29 83 33 36 30 29 8b 42 25 3d 31 |78+90).360).B%=1|
00000a30 34 34 30 2d 54 25 28 4e 25 2a 31 30 30 81 45 25 |440-T%(N%*100.E%|
00000a40 29 3a d6 44 56 25 2c 42 25 3a 52 25 3d 31 30 30 |):.DV%,B%:R%=100|
00000a50 2a 45 25 81 58 25 28 21 26 37 38 29 0d 01 fe 09 |*E%.X%(!&78)....|
00000a60 e5 8d 54 52 42 0d 02 08 77 e7 94 45 25 3e 4e 25 |..TRB...w..E%>N%|
00000a70 42 25 3d 31 34 34 30 2b 54 25 28 4e 25 2a 31 30 |B%=1440+T%(N%*10|
00000a80 30 81 2d 45 25 29 3a d6 44 56 25 2c 42 25 3a 52 |0.-E%):.DV%,B%:R|
00000a90 25 3d 31 30 30 2a 45 25 81 58 25 28 21 26 37 38 |%=100*E%.X%(!&78|
00000aa0 29 8b 42 25 3d 32 38 38 30 2d 54 25 28 2d 45 25 |).B%=2880-T%(-E%|
00000ab0 2a 31 30 30 81 4e 25 29 3a d6 44 56 25 2c 42 25 |*100.N%):.DV%,B%|
00000ac0 3a 52 25 3d 31 30 30 2a 4e 25 81 58 25 28 28 21 |:R%=100*N%.X%((!|
00000ad0 26 37 38 2b 39 30 29 83 33 36 30 29 0d 02 12 07 |&78+90).360)....|
00000ae0 3d 42 25 0d 02 1c 2a dd f2 4b 3a e7 a6 28 2d 31 |=B%...*..K:..(-1|
00000af0 30 35 29 5a 25 3d 5a 25 2b 38 3a e7 69 25 3d 31 |05)Z%=Z%+8:.i%=1|
00000b00 5a 25 3d 30 3a 43 25 3d 43 25 2b 31 35 0d 02 26 |Z%=0:C%=C%+15..&|
00000b10 25 e7 a6 28 2d 39 38 29 5a 25 3d 5a 25 2d 38 3a |%..(-98)Z%=Z%-8:|
00000b20 e7 69 25 3d 31 5a 25 3d 30 3a 43 25 3d 43 25 2d |.i%=1Z%=0:C%=C%-|
00000b30 31 35 0d 02 30 1f e7 a6 28 2d 39 39 29 e7 53 3e |15..0...(-99).S>|
00000b40 31 30 35 50 25 3d 50 25 2b 31 30 3a e5 8d 44 44 |105P%=P%+10:..DD|
00000b50 42 0d 02 3a 18 e7 a6 28 2d 38 35 29 e7 69 25 3d |B..:...(-85).i%=|
00000b60 30 50 25 3d 50 25 2d 31 30 0d 02 44 1a e7 a6 28 |0P%=P%-10..D...(|
00000b70 2d 38 38 29 50 3d 50 2b 31 3a e7 50 3e 31 37 50 |-88)P=P+1:.P>17P|
00000b80 3d 31 37 0d 02 4e 18 e7 a6 28 2d 32 34 29 50 3d |=17..N...(-24)P=|
00000b90 50 2d 31 3a e7 50 3c 30 50 3d 30 0d 02 58 10 e7 |P-1:.P<0P=0..X..|
00000ba0 a6 28 2d 38 34 29 e4 8d 64 46 42 0d 02 62 10 e7 |.(-84)..dFB..b..|
00000bb0 a6 28 2d 36 38 29 e4 8d 64 5a 42 0d 02 6c 15 e7 |.(-68)..dZB..l..|
00000bc0 a6 28 2d 38 36 29 e7 69 25 3d 30 e5 8d 44 7a 42 |.(-86).i%=0..DzB|
00000bd0 0d 02 76 05 e1 0d 02 7a 26 e7 a6 28 2d 35 32 29 |..v....z&..(-52)|
00000be0 4e 3d b3 28 36 45 36 29 2d 33 45 36 3a 45 3d b3 |N=.(6E6)-3E6:E=.|
00000bf0 28 36 45 36 29 2d 33 45 36 3a e1 0d 02 7b 5e f7 |(6E6)-3E6:...{^.|
00000c00 28 36 34 30 2b 6e 29 3a f3 6e 3a 4e 3d 4e 2d 6e |(640+n):.n:N=N-n|
00000c10 2a 38 32 31 30 35 3a f3 6e 3a 45 3d 45 2d 6e 2a |*82105:.n:E=E-n*|
00000c20 38 32 31 30 35 3a f3 6e 3a f3 4e 24 3a f1 8a 33 |82105:.n:.N$:..3|
00000c30 37 2c 31 31 29 22 20 20 22 8a 33 30 2c 31 31 29 |7,11)" ".30,11)|
00000c40 4e 24 3a 71 25 3d 31 35 30 30 3a e7 a9 28 4e 24 |N$:q%=1500:..(N$|
00000c50 29 3d 37 71 25 3d 31 45 35 0d 02 7c 05 e1 0d 02 |)=7q%=1E5..|....|
00000c60 81 16 dc 31 39 2c 2d 32 2c 32 2c 42 4e 4e 20 31 |...19,-2,2,BNN 1|
00000c70 31 32 2e 33 0d 02 82 16 dc 2d 39 2c 33 33 2c 33 |12.3.....-9,33,3|
00000c80 2c 4c 41 4d 20 31 31 35 2e 36 0d 02 83 17 dc 2d |,LAM 115.6.....-|
00000c90 32 35 2c 2d 38 2c 34 2c 42 49 47 20 31 31 35 2e |25,-8,4,BIG 115.|
00000ca0 31 0d 02 84 16 dc 2d 32 34 2c 31 2c 35 2c 4d 41 |1.....-24,1,5,MA|
00000cb0 59 20 31 31 39 2e 39 0d 02 85 15 dc 31 32 2c 2d |Y 119.9.....12,-|
00000cc0 31 34 2c 36 2c 47 41 54 20 52 57 59 0d 02 86 17 |14,6,GAT RWY....|
00000cd0 dc 31 33 2c 2d 31 31 2c 37 2c 4f 43 4b 20 31 31 |.13,-11,7,OCK 11|
00000ce0 35 2e 33 0d 02 87 14 dc 32 37 2c 31 37 2c 38 2c |5.3.....27,17,8,|
00000cf0 4a 47 57 20 52 57 59 0d 02 88 16 dc 2d 31 33 2c |JGW RWY.....-13,|
00000d00 2d 31 36 2c 31 2c 4c 48 52 20 52 57 59 0d 02 c6 |-16,1,LHR RWY...|
00000d10 21 e7 47 24 3d 22 44 4f 57 4e 22 47 24 3d 22 20 |!.G$="DOWN"G$=" |
00000d20 55 50 20 22 8b 47 24 3d 22 44 4f 57 4e 22 0d 02 |UP ".G$="DOWN"..|
00000d30 d0 10 f1 8a 31 38 2c 31 31 29 47 24 3a f8 0d 02 |....18,11)G$:...|
00000d40 da 2b e7 46 24 3d 22 4f 55 54 22 46 24 3d 22 49 |.+.F$="OUT"F$="I|
00000d50 4e 20 22 3a 73 3d 32 30 30 20 8b 46 24 3d 22 4f |N ":s=200 .F$="O|
00000d60 55 54 22 3a 73 3d 31 30 30 0d 02 e4 0f f1 8a 35 |UT":s=100......5|
00000d70 2c 31 31 29 46 24 3a f8 0d 02 ee 36 dd f2 48 5a |,11)F$:....6..HZ|
00000d80 3a 54 25 3d 68 25 2d 50 25 3a 55 25 3d 54 25 2b |:T%=h%-P%:U%=T%+|
00000d90 5a 25 2a 31 31 3a 54 25 3d 54 25 2d 5a 25 2a 31 |Z%*11:T%=T%-Z%*1|
00000da0 31 3a 4c 25 3d 30 3a 4d 25 3d 31 32 37 39 0d 02 |1:L%=0:M%=1279..|
00000db0 f8 32 e7 54 25 3c 35 30 30 3a e7 55 25 3e 35 30 |.2.T%<500:.U%>50|
00000dc0 30 3a 4c 25 3d 31 32 37 39 2a 28 35 30 30 2d 54 |0:L%=1279*(500-T|
00000dd0 25 29 2f 28 55 25 2d 54 25 29 3a e5 8d 54 60 43 |%)/(U%-T%):..T`C|
00000de0 0d 03 02 2f e7 54 25 3e 31 30 32 33 3a e7 55 25 |.../.T%>1023:.U%|
00000df0 3c 31 30 32 33 3a 4c 25 3d 31 32 37 39 2a 28 54 |<1023:L%=1279*(T|
00000e00 25 2d 31 30 32 33 29 2f 28 54 25 2d 55 25 29 0d |%-1023)/(T%-U%).|
00000e10 03 0c 37 e7 55 25 3c 35 30 30 3a e7 54 25 3e 35 |..7.U%<500:.T%>5|
00000e20 30 30 3a 4d 25 3d 31 32 37 39 2d 31 32 37 39 2a |00:M%=1279-1279*|
00000e30 28 35 30 30 2d 55 25 29 2f 28 54 25 2d 55 25 29 |(500-U%)/(T%-U%)|
00000e40 3a e5 8d 44 48 43 0d 03 16 09 e5 8d 44 48 43 0d |:..DHC......DHC.|
00000e50 03 20 3c e7 55 25 3e 31 30 32 33 3a e7 54 25 3c |. <.U%>1023:.T%<|
00000e60 31 30 32 33 3a 4d 25 3d 31 32 37 39 2d 31 32 37 |1023:M%=1279-127|
00000e70 39 2a 28 55 25 2d 31 30 32 33 29 2f 28 55 25 2d |9*(U%-1023)/(U%-|
00000e80 54 25 29 3a 55 25 3d 31 30 32 33 0d 03 2a 0f e7 |T%):U%=1023..*..|
00000e90 4c 25 3e 30 54 25 3d 35 30 30 0d 03 34 13 e7 4d |L%>0T%=500..4..M|
00000ea0 25 3c 31 32 37 39 55 25 3d 31 30 32 33 0d 03 3e |%<1279U%=1023..>|
00000eb0 09 e5 8d 44 5c 43 0d 03 48 10 e7 4c 25 3e 30 54 |...D\C..H..L%>0T|
00000ec0 25 3d 31 30 32 33 0d 03 52 12 e7 4d 25 3c 31 32 |%=1023..R..M%<12|
00000ed0 37 39 55 25 3d 35 30 30 0d 03 5c 16 e6 30 2c 31 |79U%=500..\..0,1|
00000ee0 3a d6 20 48 42 25 3a d6 20 48 4e 25 3a e1 0d 03 |:. HB%:. HN%:...|
00000ef0 84 7f f2 6d 3a ef 32 34 2c 30 3b 35 30 30 3b 31 |...m:.24,0;500;1|
00000f00 32 37 39 3b 31 30 32 33 3b 3a d4 26 31 30 2c 31 |279;1023;:.&10,1|
00000f10 2c 36 2c 35 30 3a d4 26 31 31 2c 32 2c 32 30 30 |,6,50:.&11,2,200|
00000f20 2c 36 35 3a d4 26 31 33 2c 32 2c 31 39 30 2c 37 |,65:.&13,2,190,7|
00000f30 33 3a e3 41 3d 30 b8 35 35 3a e6 b3 28 35 29 2c |3:.A=0.55:..(5),|
00000f40 41 3a f0 38 35 2c b3 28 32 35 30 30 29 2d 35 30 |A:.85,.(2500)-50|
00000f50 30 2c b3 28 31 31 30 30 29 2b 33 30 30 3a ef 31 |0,.(1100)+300:.1|
00000f60 39 2c 31 2c 41 2c 30 2c 30 2c 30 3a ed 0d 03 8e |9,1,A,0,0,0:....|
00000f70 55 f2 64 28 35 30 30 29 3a da 3a ef 32 34 2c 30 |U.d(500):.:.24,0|
00000f80 3b 31 35 30 3b 31 32 37 39 3b 31 30 32 33 3b 3a |;150;1279;1023;:|
00000f90 f2 52 28 52 29 3a f2 45 28 30 29 3a f2 41 28 30 |.R(R):.E(0):.A(0|
00000fa0 29 3a f1 8a 33 35 2c 32 29 22 20 22 8a 32 37 2c |):..35,2)" ".27,|
00000fb0 38 29 22 20 22 8a 33 30 2c 31 31 29 89 28 39 29 |8)" ".30,11).(9)|
00000fc0 3a f8 0d 03 c0 12 dd f2 74 3a e7 51 3c 30 3a e4 |:.......t:.Q<0:.|
00000fd0 8d 64 68 43 0d 03 c5 17 e7 53 3c 31 30 30 4e 3d |.dhC.....S<100N=|
00000fe0 4e 2d 77 25 3a 45 3d 45 2d 76 25 0d 03 ca 33 e7 |N-w%:E=E-v%...3.|
00000ff0 b4 45 25 3d b4 57 25 84 b4 4e 25 3d b4 53 25 4d |.E%=.W%..N%=.S%M|
00001000 24 3d 22 4f 46 46 20 52 55 4e 57 41 59 21 22 3a |$="OFF RUNWAY!":|
00001010 6d 25 3d 31 3a 6b 3d 6b 2d 31 30 30 3a 21 0d 03 |m%=1:k=k-100:!..|
00001020 d4 2d 53 3d 53 2d 36 3a e7 53 3c 30 53 3d 30 3a |.-S=S-6:.S<0S=0:|
00001030 6d 25 3d 31 3a 4d 24 3d 22 54 4f 54 41 4c 20 53 |m%=1:M$="TOTAL S|
00001040 43 4f 52 45 3a 22 2b c3 28 6b 29 0d 03 d9 21 e7 |CORE:"+.(k)...!.|
00001050 47 24 3d 22 20 55 50 20 22 4d 24 3d 22 47 45 41 |G$=" UP "M$="GEA|
00001060 52 20 55 50 22 3a 6d 25 3d 31 3a 21 0d 03 de 05 |R UP":m%=1:!....|
00001070 e1 0d 03 e8 6d 6b 3d 6b 2b 31 30 30 2b 51 3a 6d |....mk=k+100+Q:m|
00001080 25 3d 39 3a 4d 24 3d 22 56 65 72 79 20 6e 69 63 |%=9:M$="Very nic|
00001090 65 21 22 3a e7 51 3c 2d 33 30 4d 24 3d 22 47 6f |e!":.Q<-30M$="Go|
000010a0 6f 64 22 3a e7 51 3c 2d 36 30 4d 24 3d 22 4f 55 |od":.Q<-60M$="OU|
000010b0 43 48 21 21 22 3a e7 51 3c 2d 31 30 30 4d 24 3d |CH!!":.Q<-100M$=|
000010c0 22 48 41 52 44 20 49 4d 50 41 43 54 21 21 22 3a |"HARD IMPACT!!":|
000010d0 6d 25 3d 31 3a 6b 3d 6b 2d 32 30 30 3a 21 0d 03 |m%=1:k=k-200:!..|
000010e0 f2 53 e7 94 5a 25 3e 38 4d 24 3d 22 53 43 52 41 |.S..Z%>8M$="SCRA|
000010f0 50 45 44 20 50 4f 44 53 21 22 3a 6d 25 3d 39 3a |PED PODS!":m%=9:|
00001100 2d 3d 5b 42 41 44 20 53 45 43 54 4f 52 5d 3d 2d |-=[BAD SECTOR]=-|
*
00001370 2d 3d 5b 42 41 44 20 53 |-=[BAD S|
00001378 
7.m0
7.m1
7.m2
7.m4
7.m5
.