Home » Archimedes archive » Archimedes World » AW-1996-06-Disc 2.adf » !Tables_Tables » !Tables/Pt1/Link
!Tables/Pt1/Link
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 » Archimedes archive » Archimedes World » AW-1996-06-Disc 2.adf » !Tables_Tables |
| Filename: | !Tables/Pt1/Link |
| Read OK: | ✔ |
| File size: | 127C bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
0REMOSCLIADFS::HardDisc4.$.CURR_NEW.DEMOPROG.!Tables.Pt1.Link
1REM LINK
2REM adventures.......
3*FX229,0
4IF M%=1 THEN
5REM adventure 1
6 IFQ%<60 OR Q%>80 S%=1
7 IFQ%=1 THEN
8 IFV%=1:MODE27
9 IFV%=0:MODE12
10 IFV%=0 VDU24,0;960;1278;1022;18,0,128,16,26
11 IFV%=1 VDU 23,17,7,6,8;16;0;
12 VDU 19,1,24,0,0,0
13 SYS "OS_RemoveCursors"
14 ENDIF
15 IF Q%=1 CHAIN"<TableA$Dir>.Pt1.intro"
16 IF Q%=2 CHAIN"<TableA$Dir>.Pt1.griddle"
17 IF Q%=3 CHAIN"<TableA$Dir>.Pt1.invaders"
18 IF Q%=4 THEN
19 IFV%=1:MODE27
20 IFV%=0:MODE12
21 IFV%=0 VDU24,0;960;1278;1022;18,0,128,16,26
22 IFV%=1 VDU 23,17,7,6,8;16;0;
23 VDU 19,1,24,0,0,0
24 SYS "OS_RemoveCursors"
25 Q%=5
26 ENDIF
27 IF Q%=5 CHAIN"<TableA$Dir>.Pt1.connect"
28 IF Q%=6:H%=20:CHAIN"<TableA$Dir>.Pt1.tablextra"
29 IF Q%=7:REM Now not used was intro to next game.
30 IF Q%=7:Q%=8
31 IF Q%=8 CHAIN"<TableA$Dir>.Pt1.lorry"
32 IF Q%=9 CHAIN"<TableA$Dir>.Pt1.tables"
33REM adventure 2
34 IFQ%=20 THEN
35 IFV%=1:MODE27
36 IFV%=0:MODE12
37 IFV%=0 VDU24,0;960;1278;1022;18,0,128,16,26
38 IFV%=1 VDU 23,17,7,6,8;16;0;
39 VDU 19,1,24,0,0,0
40 SYS "OS_RemoveCursors"
41 ENDIF
42 IFQ%=20 CHAIN"<TableA$Dir>.Pt1.intro"
43 IFQ%=21 CHAIN"<TableA$Dir>.Pt1.connect"
44 IFQ%=22 CHAIN"<TableA$Dir>.Pt1.connect"
45 IFQ%=23 CHAIN"<TableA$Dir>.Pt1.jump"
46 L%=0
47 IFQ%=24:J%=0:CHAIN"<TableA$Dir>.Pt1.paccy"
48 IFQ%=25 CHAIN"<TableA$Dir>.Pt1.tables"
49 IFQ%=26:H%=20:CHAIN"<TableA$Dir>.Pt1.tablextra"
50 IFQ%=30:J%=0:CHAIN"<TableA$Dir>.Pt1.paccy"
51 IFQ%=31 CHAIN"<TableA$Dir>.Pt1.jump"
52REM adventure 3
53 IFQ%=40 THEN
54 IFV%=1:MODE27
55 IFV%=0:MODE12
56 IFV%=0 VDU24,0;960;1278;1022;18,0,128,16,26
57 IFV%=1 VDU 23,17,7,6,8;16;0;
58 VDU 19,1,24,0,0,0
59 SYS "OS_RemoveCursors"
60 ENDIF
61 IF Q%=40 CHAIN"<TableA$Dir>.Pt1.intro"
62 IF Q%=41 CHAIN"<TableA$Dir>.Pt1.invaders"
63 IF Q%=42 THEN
64 IFV%=1:MODE27
65 IFV%=0:MODE12
66 IFV%=0 VDU24,0;960;1278;1022;18,0,128,16,26
67 IFV%=1 VDU 23,17,7,6,8;16;0;
68 VDU 19,1,24,0,0,0
69 SYS "OS_RemoveCursors"
70 ENDIF
71 IF Q%=42 CHAIN"<TableA$Dir>.Pt1.intro"
72 IF Q%=43 CHAIN"<TableA$Dir>.Pt1.griddle"
73 IF Q%=44:L%=10:CHAIN"<TableA$Dir>.Pt1.lorry"
74 IF Q%=45:H%=20:CHAIN"<TableA$Dir>.Pt1.tablextra"
75 IF Q%=46:H%=20:CHAIN"<TableA$Dir>.Pt1.tablextra"
76 IF Q%=53:H%=20:CHAIN"<TableA$Dir>.Pt1.tablextra"
77 IF Q%=54:H%=20:CHAIN"<TableA$Dir>.Pt1.tablextra"
78 IF Q%=55:H%=20:CHAIN"<TableA$Dir>.Pt1.lorry"
79REM adventure 4
80 IFQ%=60 THEN
81 IFV%=1:MODE27
82 IFV%=0:MODE12
83 IFV%=0 VDU24,0;960;1278;1022;18,0,128,16,26
84 IFV%=1 VDU 23,17,7,6,8;16;0;
85 VDU 19,1,24,0,0,0
86 SYS "OS_RemoveCursors"
87 ENDIF
88 IF Q%=60:H%=20:CHAIN"<TableA$Dir>.Pt1.intro"
89 IF Q%=61:H%=20:CHAIN"<TableA$Dir>.Pt1.griddle"
90 IF Q%=62:H%=20:CHAIN"<TableA$Dir>.Pt1.tablextra"
91 IF Q%=63:H%=20:CHAIN"<TableA$Dir>.Pt1.tablextra"
92 L%=0
93 IF Q%=64:H%=20:CHAIN"<TableA$Dir>.Pt1.paccy"
94 IF Q%=65:H%=20:CHAIN"<TableA$Dir>.Pt1.jump"
95 IF Q%=74:H%=20:CHAIN"<TableA$Dir>.Pt1.jump"
96 IF Q%=75:H%=20:CHAIN"<TableA$Dir>.Pt1.paccy"
97 IF Q%=66 CHAIN"<TableA$Dir>.Pt1.tablextra"
98 IF Q%=67 CHAIN"<TableA$Dir>.Pt1.tablextra"
99ENDIF
100REM activities.......
101IF M%=2 THEN
102 IFV%=1:MODE27
103 IFV%=0:MODE12
104 IFV%=0 VDU24,0;960;1278;1022;18,0,128,16,26
105 IFV%=1 VDU 23,17,7,6,8;16;0;
106 VDU 19,1,24,0,0,0
107 SYS "OS_RemoveCursors"
108 S%=0:REM Return to desktop
109 DIM order%(5)
110 order%(1)=X% MOD 16
111 order%(2)=((X% DIV 16) MOD 16)
112 order%(3)=((X% DIV 256) MOD 16)
113 order%(4)=((X% DIV 4096) MOD 16)
114 set%=X% DIV 65536
115 do%=0
116 IFset%=1 THEN
117 IF order%(1)>1 THEN
118 do%=order%(1)
119 X%=X%+65536
120 IForder%(2)=1 AND order%(3)=1 AND order%(4)=1:S%=1
121 ELSE
122 X%=X%+65536
123 set%=set%+1
124 ENDIF
125 ENDIF
126 IFset%=2 THEN
127 IF order%(2)>1 THEN
128 do%=order%(2)
129 X%=X%+65536
130 IForder%(3)=1 AND order%(4)=1:S%=1
131 ELSE
132 X%=X%+65536
133 set%=set%+1
134 ENDIF
135 ENDIF
136 IFset%=3 THEN
137 IF order%(3)>1 THEN
138 do%=order%(3)
139 X%=X%+65536
140 IForder%(4)=1:S%=1
141 ELSE
142 X%=X%+65536
143 set%=set%+1
144 ENDIF
145 ENDIF
146 IFset%=4 THEN
147 do%=order%(4)
148 S%=1
149 ENDIF
150 IFdo%=2 Q%=200+L%:L%=(L%-2)*-1+1
151 IFdo%=3 Q%=203
152 IFdo%=4 Q%=204
153 IFdo%=5 Q%=204+J%:J%=(J%-2)*-1+1
154 IFdo%=6 Q%=207
155 IFdo%=7 Q%=208
156 IFdo%=8 Q%=209
157 IFdo%=9 Q%=210
158 IFdo%=10 Q%=211
159 IFdo%=11 Q%=212
160 IFdo%=12 Q%=213
161 IF Q%=201 CHAIN"<TableA$Dir>.Pt1.tables"
162 IF Q%=202 CHAIN"<TableA$Dir>.Pt1.tables"
163 IF Q%=203:H%=20:CHAIN"<TableA$Dir>.Pt1.tablextra"
164 IF Q%=204 CHAIN"<TableA$Dir>.Pt1.connect"
165 IF Q%=205 CHAIN"<TableA$Dir>.Pt1.griddle"
166 IF Q%=206 CHAIN"<TableA$Dir>.Pt1.griddle"
167 IF Q%=207 CHAIN"<TableA$Dir>.Pt1.jump"
168 IF Q%=208 CHAIN"<TableA$Dir>.Pt1.invaders"
169 IF Q%=209 CHAIN"<TableA$Dir>.Pt1.lorry"
170 IF Q%=210 CHAIN"<TableA$Dir>.Pt1.tablextra"
171 IF Q%=211:L%=0:CHAIN"<TableA$Dir>.Pt1.paccy"
172 IF Q%=212 CHAIN"<TableA$Dir>.Pt1.tablextra"
173 IF Q%=213 CHAIN"<TableA$Dir>.Pt1.tables"
174ENDIF
:�ADFS::HardDisc4.$.CURR_NEW.DEMOPROG.!Tables.Pt1.Link
� LINK
� adventures.......
*FX229,0
� M%=1 �
� adventure 1
�Q%<60 � Q%>80 S%=1
�Q%=1 �
�V%=1:�27
�V%=0:�12
/ �V%=0 �24,0;960;1278;1022;18,0,128,16,26
�V%=1 � 23,17,7,6,8;16;0;
� 19,1,24,0,0,0
ș "OS_RemoveCursors"
�
% � Q%=1 �"<TableA$Dir>.Pt1.intro"
' � Q%=2 �"<TableA$Dir>.Pt1.griddle"
( � Q%=3 �"<TableA$Dir>.Pt1.invaders"
� Q%=4 �
�V%=1:�27
�V%=0:�12
/ �V%=0 �24,0;960;1278;1022;18,0,128,16,26
�V%=1 � 23,17,7,6,8;16;0;
� 19,1,24,0,0,0
ș "OS_RemoveCursors"
Q%=5
�
' � Q%=5 �"<TableA$Dir>.Pt1.connect"
/ � Q%=6:H%=20:�"<TableA$Dir>.Pt1.tablextra"
2 � Q%=7:� Now not used was intro to next game.
� Q%=7:Q%=8
% � Q%=8 �"<TableA$Dir>.Pt1.lorry"
& � Q%=9 �"<TableA$Dir>.Pt1.tables"
!� adventure 2
"
�Q%=20 �
# �V%=1:�27
$ �V%=0:�12
%/ �V%=0 �24,0;960;1278;1022;18,0,128,16,26
& �V%=1 � 23,17,7,6,8;16;0;
' � 19,1,24,0,0,0
( ș "OS_RemoveCursors"
) �
*% �Q%=20 �"<TableA$Dir>.Pt1.intro"
+' �Q%=21 �"<TableA$Dir>.Pt1.connect"
,' �Q%=22 �"<TableA$Dir>.Pt1.connect"
-$ �Q%=23 �"<TableA$Dir>.Pt1.jump"
. L%=0
/* �Q%=24:J%=0:�"<TableA$Dir>.Pt1.paccy"
0& �Q%=25 �"<TableA$Dir>.Pt1.tables"
1/ �Q%=26:H%=20:�"<TableA$Dir>.Pt1.tablextra"
2* �Q%=30:J%=0:�"<TableA$Dir>.Pt1.paccy"
3$ �Q%=31 �"<TableA$Dir>.Pt1.jump"
4� adventure 3
5
�Q%=40 �
6 �V%=1:�27
7 �V%=0:�12
8/ �V%=0 �24,0;960;1278;1022;18,0,128,16,26
9 �V%=1 � 23,17,7,6,8;16;0;
: � 19,1,24,0,0,0
; ș "OS_RemoveCursors"
< �
=& � Q%=40 �"<TableA$Dir>.Pt1.intro"
>) � Q%=41 �"<TableA$Dir>.Pt1.invaders"
? � Q%=42 �
@ �V%=1:�27
A �V%=0:�12
B/ �V%=0 �24,0;960;1278;1022;18,0,128,16,26
C �V%=1 � 23,17,7,6,8;16;0;
D � 19,1,24,0,0,0
E ș "OS_RemoveCursors"
F �
G& � Q%=42 �"<TableA$Dir>.Pt1.intro"
H( � Q%=43 �"<TableA$Dir>.Pt1.griddle"
I, � Q%=44:L%=10:�"<TableA$Dir>.Pt1.lorry"
J0 � Q%=45:H%=20:�"<TableA$Dir>.Pt1.tablextra"
K0 � Q%=46:H%=20:�"<TableA$Dir>.Pt1.tablextra"
L0 � Q%=53:H%=20:�"<TableA$Dir>.Pt1.tablextra"
M0 � Q%=54:H%=20:�"<TableA$Dir>.Pt1.tablextra"
N, � Q%=55:H%=20:�"<TableA$Dir>.Pt1.lorry"
O� adventure 4
P
�Q%=60 �
Q �V%=1:�27
R �V%=0:�12
S/ �V%=0 �24,0;960;1278;1022;18,0,128,16,26
T �V%=1 � 23,17,7,6,8;16;0;
U � 19,1,24,0,0,0
V ș "OS_RemoveCursors"
W �
X, � Q%=60:H%=20:�"<TableA$Dir>.Pt1.intro"
Y. � Q%=61:H%=20:�"<TableA$Dir>.Pt1.griddle"
Z0 � Q%=62:H%=20:�"<TableA$Dir>.Pt1.tablextra"
[0 � Q%=63:H%=20:�"<TableA$Dir>.Pt1.tablextra"
\ L%=0
], � Q%=64:H%=20:�"<TableA$Dir>.Pt1.paccy"
^+ � Q%=65:H%=20:�"<TableA$Dir>.Pt1.jump"
_+ � Q%=74:H%=20:�"<TableA$Dir>.Pt1.jump"
`, � Q%=75:H%=20:�"<TableA$Dir>.Pt1.paccy"
a* � Q%=66 �"<TableA$Dir>.Pt1.tablextra"
b* � Q%=67 �"<TableA$Dir>.Pt1.tablextra"
c�
d� activities.......
e � M%=2 �
f �V%=1:�27
g �V%=0:�12
h/ �V%=0 �24,0;960;1278;1022;18,0,128,16,26
i �V%=1 � 23,17,7,6,8;16;0;
j � 19,1,24,0,0,0
k ș "OS_RemoveCursors"
l S%=0:� Return to desktop
m � order%(5)
n order%(1)=X% � 16
o order%(2)=((X% � 16) � 16)
p! order%(3)=((X% � 256) � 16)
q" order%(4)=((X% � 4096) � 16)
r set%=X% � 65536
s do%=0
t �set%=1 �
u � order%(1)>1 �
v do%=order%(1)
w X%=X%+65536
x7 �order%(2)=1 � order%(3)=1 � order%(4)=1:S%=1
y �
z X%=X%+65536
{ set%=set%+1
| �
} �
~ �set%=2 �
� order%(2)>1 �
� do%=order%(2)
� X%=X%+65536
�) �order%(3)=1 � order%(4)=1:S%=1
� �
� X%=X%+65536
� set%=set%+1
� �
� �
� �set%=3 �
� � order%(3)>1 �
� do%=order%(3)
� X%=X%+65536
� �order%(4)=1:S%=1
� �
� X%=X%+65536
� set%=set%+1
� �
� �
� �set%=4 �
� do%=order%(4)
� S%=1
� �
�% �do%=2 Q%=200+L%:L%=(L%-2)*-1+1
� �do%=3 Q%=203
� �do%=4 Q%=204
�% �do%=5 Q%=204+J%:J%=(J%-2)*-1+1
� �do%=6 Q%=207
� �do%=7 Q%=208
� �do%=8 Q%=209
� �do%=9 Q%=210
� �do%=10 Q%=211
� �do%=11 Q%=212
� �do%=12 Q%=213
�) � Q%=201 �"<TableA$Dir>.Pt1.tables"
�) � Q%=202 �"<TableA$Dir>.Pt1.tables"
�2 � Q%=203:H%=20:�"<TableA$Dir>.Pt1.tablextra"
�* � Q%=204 �"<TableA$Dir>.Pt1.connect"
�* � Q%=205 �"<TableA$Dir>.Pt1.griddle"
�* � Q%=206 �"<TableA$Dir>.Pt1.griddle"
�' � Q%=207 �"<TableA$Dir>.Pt1.jump"
�+ � Q%=208 �"<TableA$Dir>.Pt1.invaders"
�( � Q%=209 �"<TableA$Dir>.Pt1.lorry"
�, � Q%=210 �"<TableA$Dir>.Pt1.tablextra"
�- � Q%=211:L%=0:�"<TableA$Dir>.Pt1.paccy"
�, � Q%=212 �"<TableA$Dir>.Pt1.tablextra"
�) � Q%=213 �"<TableA$Dir>.Pt1.tables"
��
� 00000000 0d 00 00 3a f4 ff 41 44 46 53 3a 3a 48 61 72 64 |...:..ADFS::Hard|
00000010 44 69 73 63 34 2e 24 2e 43 55 52 52 5f 4e 45 57 |Disc4.$.CURR_NEW|
00000020 2e 44 45 4d 4f 50 52 4f 47 2e 21 54 61 62 6c 65 |.DEMOPROG.!Table|
00000030 73 2e 50 74 31 2e 4c 69 6e 6b 0d 00 01 0a f4 20 |s.Pt1.Link..... |
00000040 4c 49 4e 4b 0d 00 02 17 f4 20 61 64 76 65 6e 74 |LINK..... advent|
00000050 75 72 65 73 2e 2e 2e 2e 2e 2e 2e 0d 00 03 0c 2a |ures...........*|
00000060 46 58 32 32 39 2c 30 0d 00 04 0c e7 20 4d 25 3d |FX229,0..... M%=|
00000070 31 20 8c 0d 00 05 11 f4 20 61 64 76 65 6e 74 75 |1 ...... adventu|
00000080 72 65 20 31 0d 00 06 18 20 e7 51 25 3c 36 30 20 |re 1.... .Q%<60 |
00000090 84 20 51 25 3e 38 30 20 53 25 3d 31 0d 00 07 0c |. Q%>80 S%=1....|
000000a0 20 e7 51 25 3d 31 20 8c 0d 00 08 10 20 20 20 e7 | .Q%=1 ..... .|
000000b0 56 25 3d 31 3a eb 32 37 0d 00 09 10 20 20 20 e7 |V%=1:.27.... .|
000000c0 56 25 3d 30 3a eb 31 32 0d 00 0a 2f 20 20 20 e7 |V%=0:.12.../ .|
000000d0 56 25 3d 30 20 ef 32 34 2c 30 3b 39 36 30 3b 31 |V%=0 .24,0;960;1|
000000e0 32 37 38 3b 31 30 32 32 3b 31 38 2c 30 2c 31 32 |278;1022;18,0,12|
000000f0 38 2c 31 36 2c 32 36 0d 00 0b 20 20 20 20 e7 56 |8,16,26... .V|
00000100 25 3d 31 20 ef 20 32 33 2c 31 37 2c 37 2c 36 2c |%=1 . 23,17,7,6,|
00000110 38 3b 31 36 3b 30 3b 0d 00 0c 16 20 20 20 ef 20 |8;16;0;.... . |
00000120 31 39 2c 31 2c 32 34 2c 30 2c 30 2c 30 0d 00 0d |19,1,24,0,0,0...|
00000130 1c 20 20 20 c8 99 20 22 4f 53 5f 52 65 6d 6f 76 |. .. "OS_Remov|
00000140 65 43 75 72 73 6f 72 73 22 0d 00 0e 06 20 cd 0d |eCursors".... ..|
00000150 00 0f 25 20 e7 20 51 25 3d 31 20 d7 22 3c 54 61 |..% . Q%=1 ."<Ta|
00000160 62 6c 65 41 24 44 69 72 3e 2e 50 74 31 2e 69 6e |bleA$Dir>.Pt1.in|
00000170 74 72 6f 22 0d 00 10 27 20 e7 20 51 25 3d 32 20 |tro"...' . Q%=2 |
00000180 d7 22 3c 54 61 62 6c 65 41 24 44 69 72 3e 2e 50 |."<TableA$Dir>.P|
00000190 74 31 2e 67 72 69 64 64 6c 65 22 0d 00 11 28 20 |t1.griddle"...( |
000001a0 e7 20 51 25 3d 33 20 d7 22 3c 54 61 62 6c 65 41 |. Q%=3 ."<TableA|
000001b0 24 44 69 72 3e 2e 50 74 31 2e 69 6e 76 61 64 65 |$Dir>.Pt1.invade|
000001c0 72 73 22 0d 00 12 0d 20 e7 20 51 25 3d 34 20 8c |rs".... . Q%=4 .|
000001d0 0d 00 13 10 20 20 20 e7 56 25 3d 31 3a eb 32 37 |.... .V%=1:.27|
000001e0 0d 00 14 10 20 20 20 e7 56 25 3d 30 3a eb 31 32 |.... .V%=0:.12|
000001f0 0d 00 15 2f 20 20 20 e7 56 25 3d 30 20 ef 32 34 |.../ .V%=0 .24|
00000200 2c 30 3b 39 36 30 3b 31 32 37 38 3b 31 30 32 32 |,0;960;1278;1022|
00000210 3b 31 38 2c 30 2c 31 32 38 2c 31 36 2c 32 36 0d |;18,0,128,16,26.|
00000220 00 16 20 20 20 20 e7 56 25 3d 31 20 ef 20 32 33 |.. .V%=1 . 23|
00000230 2c 31 37 2c 37 2c 36 2c 38 3b 31 36 3b 30 3b 0d |,17,7,6,8;16;0;.|
00000240 00 17 16 20 20 20 ef 20 31 39 2c 31 2c 32 34 2c |... . 19,1,24,|
00000250 30 2c 30 2c 30 0d 00 18 1c 20 20 20 c8 99 20 22 |0,0,0.... .. "|
00000260 4f 53 5f 52 65 6d 6f 76 65 43 75 72 73 6f 72 73 |OS_RemoveCursors|
00000270 22 0d 00 19 0b 20 20 20 51 25 3d 35 0d 00 1a 06 |".... Q%=5....|
00000280 20 cd 0d 00 1b 27 20 e7 20 51 25 3d 35 20 d7 22 | ....' . Q%=5 ."|
00000290 3c 54 61 62 6c 65 41 24 44 69 72 3e 2e 50 74 31 |<TableA$Dir>.Pt1|
000002a0 2e 63 6f 6e 6e 65 63 74 22 0d 00 1c 2f 20 e7 20 |.connect".../ . |
000002b0 51 25 3d 36 3a 48 25 3d 32 30 3a d7 22 3c 54 61 |Q%=6:H%=20:."<Ta|
000002c0 62 6c 65 41 24 44 69 72 3e 2e 50 74 31 2e 74 61 |bleA$Dir>.Pt1.ta|
000002d0 62 6c 65 78 74 72 61 22 0d 00 1d 32 20 e7 20 51 |blextra"...2 . Q|
000002e0 25 3d 37 3a f4 20 4e 6f 77 20 6e 6f 74 20 75 73 |%=7:. Now not us|
000002f0 65 64 20 77 61 73 20 69 6e 74 72 6f 20 74 6f 20 |ed was intro to |
00000300 6e 65 78 74 20 67 61 6d 65 2e 0d 00 1e 10 20 e7 |next game..... .|
00000310 20 51 25 3d 37 3a 51 25 3d 38 0d 00 1f 25 20 e7 | Q%=7:Q%=8...% .|
00000320 20 51 25 3d 38 20 d7 22 3c 54 61 62 6c 65 41 24 | Q%=8 ."<TableA$|
00000330 44 69 72 3e 2e 50 74 31 2e 6c 6f 72 72 79 22 0d |Dir>.Pt1.lorry".|
00000340 00 20 26 20 e7 20 51 25 3d 39 20 d7 22 3c 54 61 |. & . Q%=9 ."<Ta|
00000350 62 6c 65 41 24 44 69 72 3e 2e 50 74 31 2e 74 61 |bleA$Dir>.Pt1.ta|
00000360 62 6c 65 73 22 0d 00 21 11 f4 20 61 64 76 65 6e |bles"..!.. adven|
00000370 74 75 72 65 20 32 0d 00 22 0d 20 e7 51 25 3d 32 |ture 2..". .Q%=2|
00000380 30 20 8c 0d 00 23 10 20 20 20 e7 56 25 3d 31 3a |0 ...#. .V%=1:|
00000390 eb 32 37 0d 00 24 10 20 20 20 e7 56 25 3d 30 3a |.27..$. .V%=0:|
000003a0 eb 31 32 0d 00 25 2f 20 20 20 e7 56 25 3d 30 20 |.12..%/ .V%=0 |
000003b0 ef 32 34 2c 30 3b 39 36 30 3b 31 32 37 38 3b 31 |.24,0;960;1278;1|
000003c0 30 32 32 3b 31 38 2c 30 2c 31 32 38 2c 31 36 2c |022;18,0,128,16,|
000003d0 32 36 0d 00 26 20 20 20 20 e7 56 25 3d 31 20 ef |26..& .V%=1 .|
000003e0 20 32 33 2c 31 37 2c 37 2c 36 2c 38 3b 31 36 3b | 23,17,7,6,8;16;|
000003f0 30 3b 0d 00 27 16 20 20 20 ef 20 31 39 2c 31 2c |0;..'. . 19,1,|
00000400 32 34 2c 30 2c 30 2c 30 0d 00 28 1c 20 20 20 c8 |24,0,0,0..(. .|
00000410 99 20 22 4f 53 5f 52 65 6d 6f 76 65 43 75 72 73 |. "OS_RemoveCurs|
00000420 6f 72 73 22 0d 00 29 06 20 cd 0d 00 2a 25 20 e7 |ors"..). ...*% .|
00000430 51 25 3d 32 30 20 d7 22 3c 54 61 62 6c 65 41 24 |Q%=20 ."<TableA$|
00000440 44 69 72 3e 2e 50 74 31 2e 69 6e 74 72 6f 22 0d |Dir>.Pt1.intro".|
00000450 00 2b 27 20 e7 51 25 3d 32 31 20 d7 22 3c 54 61 |.+' .Q%=21 ."<Ta|
00000460 62 6c 65 41 24 44 69 72 3e 2e 50 74 31 2e 63 6f |bleA$Dir>.Pt1.co|
00000470 6e 6e 65 63 74 22 0d 00 2c 27 20 e7 51 25 3d 32 |nnect"..,' .Q%=2|
00000480 32 20 d7 22 3c 54 61 62 6c 65 41 24 44 69 72 3e |2 ."<TableA$Dir>|
00000490 2e 50 74 31 2e 63 6f 6e 6e 65 63 74 22 0d 00 2d |.Pt1.connect"..-|
000004a0 24 20 e7 51 25 3d 32 33 20 d7 22 3c 54 61 62 6c |$ .Q%=23 ."<Tabl|
000004b0 65 41 24 44 69 72 3e 2e 50 74 31 2e 6a 75 6d 70 |eA$Dir>.Pt1.jump|
000004c0 22 0d 00 2e 09 20 4c 25 3d 30 0d 00 2f 2a 20 e7 |".... L%=0../* .|
000004d0 51 25 3d 32 34 3a 4a 25 3d 30 3a d7 22 3c 54 61 |Q%=24:J%=0:."<Ta|
000004e0 62 6c 65 41 24 44 69 72 3e 2e 50 74 31 2e 70 61 |bleA$Dir>.Pt1.pa|
000004f0 63 63 79 22 0d 00 30 26 20 e7 51 25 3d 32 35 20 |ccy"..0& .Q%=25 |
00000500 d7 22 3c 54 61 62 6c 65 41 24 44 69 72 3e 2e 50 |."<TableA$Dir>.P|
00000510 74 31 2e 74 61 62 6c 65 73 22 0d 00 31 2f 20 e7 |t1.tables"..1/ .|
00000520 51 25 3d 32 36 3a 48 25 3d 32 30 3a d7 22 3c 54 |Q%=26:H%=20:."<T|
00000530 61 62 6c 65 41 24 44 69 72 3e 2e 50 74 31 2e 74 |ableA$Dir>.Pt1.t|
00000540 61 62 6c 65 78 74 72 61 22 0d 00 32 2a 20 e7 51 |ablextra"..2* .Q|
00000550 25 3d 33 30 3a 4a 25 3d 30 3a d7 22 3c 54 61 62 |%=30:J%=0:."<Tab|
00000560 6c 65 41 24 44 69 72 3e 2e 50 74 31 2e 70 61 63 |leA$Dir>.Pt1.pac|
00000570 63 79 22 0d 00 33 24 20 e7 51 25 3d 33 31 20 d7 |cy"..3$ .Q%=31 .|
00000580 22 3c 54 61 62 6c 65 41 24 44 69 72 3e 2e 50 74 |"<TableA$Dir>.Pt|
00000590 31 2e 6a 75 6d 70 22 0d 00 34 11 f4 20 61 64 76 |1.jump"..4.. adv|
000005a0 65 6e 74 75 72 65 20 33 0d 00 35 0d 20 e7 51 25 |enture 3..5. .Q%|
000005b0 3d 34 30 20 8c 0d 00 36 10 20 20 20 e7 56 25 3d |=40 ...6. .V%=|
000005c0 31 3a eb 32 37 0d 00 37 10 20 20 20 e7 56 25 3d |1:.27..7. .V%=|
000005d0 30 3a eb 31 32 0d 00 38 2f 20 20 20 e7 56 25 3d |0:.12..8/ .V%=|
000005e0 30 20 ef 32 34 2c 30 3b 39 36 30 3b 31 32 37 38 |0 .24,0;960;1278|
000005f0 3b 31 30 32 32 3b 31 38 2c 30 2c 31 32 38 2c 31 |;1022;18,0,128,1|
00000600 36 2c 32 36 0d 00 39 20 20 20 20 e7 56 25 3d 31 |6,26..9 .V%=1|
00000610 20 ef 20 32 33 2c 31 37 2c 37 2c 36 2c 38 3b 31 | . 23,17,7,6,8;1|
00000620 36 3b 30 3b 0d 00 3a 16 20 20 20 ef 20 31 39 2c |6;0;..:. . 19,|
00000630 31 2c 32 34 2c 30 2c 30 2c 30 0d 00 3b 1c 20 20 |1,24,0,0,0..;. |
00000640 20 c8 99 20 22 4f 53 5f 52 65 6d 6f 76 65 43 75 | .. "OS_RemoveCu|
00000650 72 73 6f 72 73 22 0d 00 3c 06 20 cd 0d 00 3d 26 |rsors"..<. ...=&|
00000660 20 e7 20 51 25 3d 34 30 20 d7 22 3c 54 61 62 6c | . Q%=40 ."<Tabl|
00000670 65 41 24 44 69 72 3e 2e 50 74 31 2e 69 6e 74 72 |eA$Dir>.Pt1.intr|
00000680 6f 22 0d 00 3e 29 20 e7 20 51 25 3d 34 31 20 d7 |o"..>) . Q%=41 .|
00000690 22 3c 54 61 62 6c 65 41 24 44 69 72 3e 2e 50 74 |"<TableA$Dir>.Pt|
000006a0 31 2e 69 6e 76 61 64 65 72 73 22 0d 00 3f 0e 20 |1.invaders"..?. |
000006b0 e7 20 51 25 3d 34 32 20 8c 0d 00 40 10 20 20 20 |. Q%=42 ...@. |
000006c0 e7 56 25 3d 31 3a eb 32 37 0d 00 41 10 20 20 20 |.V%=1:.27..A. |
000006d0 e7 56 25 3d 30 3a eb 31 32 0d 00 42 2f 20 20 20 |.V%=0:.12..B/ |
000006e0 e7 56 25 3d 30 20 ef 32 34 2c 30 3b 39 36 30 3b |.V%=0 .24,0;960;|
000006f0 31 32 37 38 3b 31 30 32 32 3b 31 38 2c 30 2c 31 |1278;1022;18,0,1|
00000700 32 38 2c 31 36 2c 32 36 0d 00 43 20 20 20 20 e7 |28,16,26..C .|
00000710 56 25 3d 31 20 ef 20 32 33 2c 31 37 2c 37 2c 36 |V%=1 . 23,17,7,6|
00000720 2c 38 3b 31 36 3b 30 3b 0d 00 44 16 20 20 20 ef |,8;16;0;..D. .|
00000730 20 31 39 2c 31 2c 32 34 2c 30 2c 30 2c 30 0d 00 | 19,1,24,0,0,0..|
00000740 45 1c 20 20 20 c8 99 20 22 4f 53 5f 52 65 6d 6f |E. .. "OS_Remo|
00000750 76 65 43 75 72 73 6f 72 73 22 0d 00 46 06 20 cd |veCursors"..F. .|
00000760 0d 00 47 26 20 e7 20 51 25 3d 34 32 20 d7 22 3c |..G& . Q%=42 ."<|
00000770 54 61 62 6c 65 41 24 44 69 72 3e 2e 50 74 31 2e |TableA$Dir>.Pt1.|
00000780 69 6e 74 72 6f 22 0d 00 48 28 20 e7 20 51 25 3d |intro"..H( . Q%=|
00000790 34 33 20 d7 22 3c 54 61 62 6c 65 41 24 44 69 72 |43 ."<TableA$Dir|
000007a0 3e 2e 50 74 31 2e 67 72 69 64 64 6c 65 22 0d 00 |>.Pt1.griddle"..|
000007b0 49 2c 20 e7 20 51 25 3d 34 34 3a 4c 25 3d 31 30 |I, . Q%=44:L%=10|
000007c0 3a d7 22 3c 54 61 62 6c 65 41 24 44 69 72 3e 2e |:."<TableA$Dir>.|
000007d0 50 74 31 2e 6c 6f 72 72 79 22 0d 00 4a 30 20 e7 |Pt1.lorry"..J0 .|
000007e0 20 51 25 3d 34 35 3a 48 25 3d 32 30 3a d7 22 3c | Q%=45:H%=20:."<|
000007f0 54 61 62 6c 65 41 24 44 69 72 3e 2e 50 74 31 2e |TableA$Dir>.Pt1.|
00000800 74 61 62 6c 65 78 74 72 61 22 0d 00 4b 30 20 e7 |tablextra"..K0 .|
00000810 20 51 25 3d 34 36 3a 48 25 3d 32 30 3a d7 22 3c | Q%=46:H%=20:."<|
00000820 54 61 62 6c 65 41 24 44 69 72 3e 2e 50 74 31 2e |TableA$Dir>.Pt1.|
00000830 74 61 62 6c 65 78 74 72 61 22 0d 00 4c 30 20 e7 |tablextra"..L0 .|
00000840 20 51 25 3d 35 33 3a 48 25 3d 32 30 3a d7 22 3c | Q%=53:H%=20:."<|
00000850 54 61 62 6c 65 41 24 44 69 72 3e 2e 50 74 31 2e |TableA$Dir>.Pt1.|
00000860 74 61 62 6c 65 78 74 72 61 22 0d 00 4d 30 20 e7 |tablextra"..M0 .|
00000870 20 51 25 3d 35 34 3a 48 25 3d 32 30 3a d7 22 3c | Q%=54:H%=20:."<|
00000880 54 61 62 6c 65 41 24 44 69 72 3e 2e 50 74 31 2e |TableA$Dir>.Pt1.|
00000890 74 61 62 6c 65 78 74 72 61 22 0d 00 4e 2c 20 e7 |tablextra"..N, .|
000008a0 20 51 25 3d 35 35 3a 48 25 3d 32 30 3a d7 22 3c | Q%=55:H%=20:."<|
000008b0 54 61 62 6c 65 41 24 44 69 72 3e 2e 50 74 31 2e |TableA$Dir>.Pt1.|
000008c0 6c 6f 72 72 79 22 0d 00 4f 11 f4 20 61 64 76 65 |lorry"..O.. adve|
000008d0 6e 74 75 72 65 20 34 0d 00 50 0d 20 e7 51 25 3d |nture 4..P. .Q%=|
000008e0 36 30 20 8c 0d 00 51 10 20 20 20 e7 56 25 3d 31 |60 ...Q. .V%=1|
000008f0 3a eb 32 37 0d 00 52 10 20 20 20 e7 56 25 3d 30 |:.27..R. .V%=0|
00000900 3a eb 31 32 0d 00 53 2f 20 20 20 e7 56 25 3d 30 |:.12..S/ .V%=0|
00000910 20 ef 32 34 2c 30 3b 39 36 30 3b 31 32 37 38 3b | .24,0;960;1278;|
00000920 31 30 32 32 3b 31 38 2c 30 2c 31 32 38 2c 31 36 |1022;18,0,128,16|
00000930 2c 32 36 0d 00 54 20 20 20 20 e7 56 25 3d 31 20 |,26..T .V%=1 |
00000940 ef 20 32 33 2c 31 37 2c 37 2c 36 2c 38 3b 31 36 |. 23,17,7,6,8;16|
00000950 3b 30 3b 0d 00 55 16 20 20 20 ef 20 31 39 2c 31 |;0;..U. . 19,1|
00000960 2c 32 34 2c 30 2c 30 2c 30 0d 00 56 1c 20 20 20 |,24,0,0,0..V. |
00000970 c8 99 20 22 4f 53 5f 52 65 6d 6f 76 65 43 75 72 |.. "OS_RemoveCur|
00000980 73 6f 72 73 22 0d 00 57 06 20 cd 0d 00 58 2c 20 |sors"..W. ...X, |
00000990 e7 20 51 25 3d 36 30 3a 48 25 3d 32 30 3a d7 22 |. Q%=60:H%=20:."|
000009a0 3c 54 61 62 6c 65 41 24 44 69 72 3e 2e 50 74 31 |<TableA$Dir>.Pt1|
000009b0 2e 69 6e 74 72 6f 22 0d 00 59 2e 20 e7 20 51 25 |.intro"..Y. . Q%|
000009c0 3d 36 31 3a 48 25 3d 32 30 3a d7 22 3c 54 61 62 |=61:H%=20:."<Tab|
000009d0 6c 65 41 24 44 69 72 3e 2e 50 74 31 2e 67 72 69 |leA$Dir>.Pt1.gri|
000009e0 64 64 6c 65 22 0d 00 5a 30 20 e7 20 51 25 3d 36 |ddle"..Z0 . Q%=6|
000009f0 32 3a 48 25 3d 32 30 3a d7 22 3c 54 61 62 6c 65 |2:H%=20:."<Table|
00000a00 41 24 44 69 72 3e 2e 50 74 31 2e 74 61 62 6c 65 |A$Dir>.Pt1.table|
00000a10 78 74 72 61 22 0d 00 5b 30 20 e7 20 51 25 3d 36 |xtra"..[0 . Q%=6|
00000a20 33 3a 48 25 3d 32 30 3a d7 22 3c 54 61 62 6c 65 |3:H%=20:."<Table|
00000a30 41 24 44 69 72 3e 2e 50 74 31 2e 74 61 62 6c 65 |A$Dir>.Pt1.table|
00000a40 78 74 72 61 22 0d 00 5c 09 20 4c 25 3d 30 0d 00 |xtra"..\. L%=0..|
00000a50 5d 2c 20 e7 20 51 25 3d 36 34 3a 48 25 3d 32 30 |], . Q%=64:H%=20|
00000a60 3a d7 22 3c 54 61 62 6c 65 41 24 44 69 72 3e 2e |:."<TableA$Dir>.|
00000a70 50 74 31 2e 70 61 63 63 79 22 0d 00 5e 2b 20 e7 |Pt1.paccy"..^+ .|
00000a80 20 51 25 3d 36 35 3a 48 25 3d 32 30 3a d7 22 3c | Q%=65:H%=20:."<|
00000a90 54 61 62 6c 65 41 24 44 69 72 3e 2e 50 74 31 2e |TableA$Dir>.Pt1.|
00000aa0 6a 75 6d 70 22 0d 00 5f 2b 20 e7 20 51 25 3d 37 |jump".._+ . Q%=7|
00000ab0 34 3a 48 25 3d 32 30 3a d7 22 3c 54 61 62 6c 65 |4:H%=20:."<Table|
00000ac0 41 24 44 69 72 3e 2e 50 74 31 2e 6a 75 6d 70 22 |A$Dir>.Pt1.jump"|
00000ad0 0d 00 60 2c 20 e7 20 51 25 3d 37 35 3a 48 25 3d |..`, . Q%=75:H%=|
00000ae0 32 30 3a d7 22 3c 54 61 62 6c 65 41 24 44 69 72 |20:."<TableA$Dir|
00000af0 3e 2e 50 74 31 2e 70 61 63 63 79 22 0d 00 61 2a |>.Pt1.paccy"..a*|
00000b00 20 e7 20 51 25 3d 36 36 20 d7 22 3c 54 61 62 6c | . Q%=66 ."<Tabl|
00000b10 65 41 24 44 69 72 3e 2e 50 74 31 2e 74 61 62 6c |eA$Dir>.Pt1.tabl|
00000b20 65 78 74 72 61 22 0d 00 62 2a 20 e7 20 51 25 3d |extra"..b* . Q%=|
00000b30 36 37 20 d7 22 3c 54 61 62 6c 65 41 24 44 69 72 |67 ."<TableA$Dir|
00000b40 3e 2e 50 74 31 2e 74 61 62 6c 65 78 74 72 61 22 |>.Pt1.tablextra"|
00000b50 0d 00 63 05 cd 0d 00 64 17 f4 20 61 63 74 69 76 |..c....d.. activ|
00000b60 69 74 69 65 73 2e 2e 2e 2e 2e 2e 2e 0d 00 65 0c |ities.........e.|
00000b70 e7 20 4d 25 3d 32 20 8c 0d 00 66 10 20 20 20 e7 |. M%=2 ...f. .|
00000b80 56 25 3d 31 3a eb 32 37 0d 00 67 10 20 20 20 e7 |V%=1:.27..g. .|
00000b90 56 25 3d 30 3a eb 31 32 0d 00 68 2f 20 20 20 e7 |V%=0:.12..h/ .|
00000ba0 56 25 3d 30 20 ef 32 34 2c 30 3b 39 36 30 3b 31 |V%=0 .24,0;960;1|
00000bb0 32 37 38 3b 31 30 32 32 3b 31 38 2c 30 2c 31 32 |278;1022;18,0,12|
00000bc0 38 2c 31 36 2c 32 36 0d 00 69 20 20 20 20 e7 56 |8,16,26..i .V|
00000bd0 25 3d 31 20 ef 20 32 33 2c 31 37 2c 37 2c 36 2c |%=1 . 23,17,7,6,|
00000be0 38 3b 31 36 3b 30 3b 0d 00 6a 16 20 20 20 ef 20 |8;16;0;..j. . |
00000bf0 31 39 2c 31 2c 32 34 2c 30 2c 30 2c 30 0d 00 6b |19,1,24,0,0,0..k|
00000c00 1c 20 20 20 c8 99 20 22 4f 53 5f 52 65 6d 6f 76 |. .. "OS_Remov|
00000c10 65 43 75 72 73 6f 72 73 22 0d 00 6c 1e 20 20 53 |eCursors"..l. S|
00000c20 25 3d 30 3a f4 20 52 65 74 75 72 6e 20 74 6f 20 |%=0:. Return to |
00000c30 64 65 73 6b 74 6f 70 0d 00 6d 11 20 20 de 20 6f |desktop..m. . o|
00000c40 72 64 65 72 25 28 35 29 0d 00 6e 17 20 20 6f 72 |rder%(5)..n. or|
00000c50 64 65 72 25 28 31 29 3d 58 25 20 83 20 31 36 0d |der%(1)=X% . 16.|
00000c60 00 6f 20 20 20 6f 72 64 65 72 25 28 32 29 3d 28 |.o order%(2)=(|
00000c70 28 58 25 20 81 20 31 36 29 20 83 20 31 36 29 0d |(X% . 16) . 16).|
00000c80 00 70 21 20 20 6f 72 64 65 72 25 28 33 29 3d 28 |.p! order%(3)=(|
00000c90 28 58 25 20 81 20 32 35 36 29 20 83 20 31 36 29 |(X% . 256) . 16)|
00000ca0 0d 00 71 22 20 20 6f 72 64 65 72 25 28 34 29 3d |..q" order%(4)=|
00000cb0 28 28 58 25 20 81 20 34 30 39 36 29 20 83 20 31 |((X% . 4096) . 1|
00000cc0 36 29 0d 00 72 15 20 20 73 65 74 25 3d 58 25 20 |6)..r. set%=X% |
00000cd0 81 20 36 35 35 33 36 0d 00 73 0b 20 20 64 6f 25 |. 65536..s. do%|
00000ce0 3d 30 0d 00 74 0f 20 20 e7 73 65 74 25 3d 31 20 |=0..t. .set%=1 |
00000cf0 8c 0d 00 75 17 20 20 20 20 e7 20 6f 72 64 65 72 |...u. . order|
00000d00 25 28 31 29 3e 31 20 8c 0d 00 76 17 20 20 20 20 |%(1)>1 ...v. |
00000d10 20 20 64 6f 25 3d 6f 72 64 65 72 25 28 31 29 0d | do%=order%(1).|
00000d20 00 77 15 20 20 20 20 20 20 58 25 3d 58 25 2b 36 |.w. X%=X%+6|
00000d30 35 35 33 36 0d 00 78 37 20 20 20 20 20 20 e7 6f |5536..x7 .o|
00000d40 72 64 65 72 25 28 32 29 3d 31 20 80 20 6f 72 64 |rder%(2)=1 . ord|
00000d50 65 72 25 28 33 29 3d 31 20 80 20 6f 72 64 65 72 |er%(3)=1 . order|
00000d60 25 28 34 29 3d 31 3a 53 25 3d 31 0d 00 79 09 20 |%(4)=1:S%=1..y. |
00000d70 20 20 20 cc 0d 00 7a 15 20 20 20 20 20 20 58 25 | ...z. X%|
00000d80 3d 58 25 2b 36 35 35 33 36 0d 00 7b 15 20 20 20 |=X%+65536..{. |
00000d90 20 20 20 73 65 74 25 3d 73 65 74 25 2b 31 0d 00 | set%=set%+1..|
00000da0 7c 09 20 20 20 20 cd 0d 00 7d 07 20 20 cd 0d 00 ||. ...}. ...|
00000db0 7e 0f 20 20 e7 73 65 74 25 3d 32 20 8c 0d 00 7f |~. .set%=2 ....|
00000dc0 17 20 20 20 20 e7 20 6f 72 64 65 72 25 28 32 29 |. . order%(2)|
00000dd0 3e 31 20 8c 0d 00 80 17 20 20 20 20 20 20 64 6f |>1 ..... do|
00000de0 25 3d 6f 72 64 65 72 25 28 32 29 0d 00 81 15 20 |%=order%(2).... |
00000df0 20 20 20 20 20 58 25 3d 58 25 2b 36 35 35 33 36 | X%=X%+65536|
00000e00 0d 00 82 29 20 20 20 20 20 20 e7 6f 72 64 65 72 |...) .order|
00000e10 25 28 33 29 3d 31 20 80 20 6f 72 64 65 72 25 28 |%(3)=1 . order%(|
00000e20 34 29 3d 31 3a 53 25 3d 31 0d 00 83 09 20 20 20 |4)=1:S%=1.... |
00000e30 20 cc 0d 00 84 15 20 20 20 20 20 20 58 25 3d 58 | ..... X%=X|
00000e40 25 2b 36 35 35 33 36 0d 00 85 15 20 20 20 20 20 |%+65536.... |
00000e50 20 73 65 74 25 3d 73 65 74 25 2b 31 0d 00 86 09 | set%=set%+1....|
00000e60 20 20 20 20 cd 0d 00 87 07 20 20 cd 0d 00 88 0f | ..... .....|
00000e70 20 20 e7 73 65 74 25 3d 33 20 8c 0d 00 89 17 20 | .set%=3 ..... |
00000e80 20 20 20 e7 20 6f 72 64 65 72 25 28 33 29 3e 31 | . order%(3)>1|
00000e90 20 8c 0d 00 8a 17 20 20 20 20 20 20 64 6f 25 3d | ..... do%=|
00000ea0 6f 72 64 65 72 25 28 33 29 0d 00 8b 15 20 20 20 |order%(3).... |
00000eb0 20 20 20 58 25 3d 58 25 2b 36 35 35 33 36 0d 00 | X%=X%+65536..|
00000ec0 8c 1b 20 20 20 20 20 20 e7 6f 72 64 65 72 25 28 |.. .order%(|
00000ed0 34 29 3d 31 3a 53 25 3d 31 0d 00 8d 09 20 20 20 |4)=1:S%=1.... |
00000ee0 20 cc 0d 00 8e 15 20 20 20 20 20 20 58 25 3d 58 | ..... X%=X|
00000ef0 25 2b 36 35 35 33 36 0d 00 8f 15 20 20 20 20 20 |%+65536.... |
00000f00 20 73 65 74 25 3d 73 65 74 25 2b 31 0d 00 90 09 | set%=set%+1....|
00000f10 20 20 20 20 cd 0d 00 91 07 20 20 cd 0d 00 92 0f | ..... .....|
00000f20 20 20 e7 73 65 74 25 3d 34 20 8c 0d 00 93 15 20 | .set%=4 ..... |
00000f30 20 20 20 64 6f 25 3d 6f 72 64 65 72 25 28 34 29 | do%=order%(4)|
00000f40 0d 00 94 0c 20 20 20 20 53 25 3d 31 0d 00 95 07 |.... S%=1....|
00000f50 20 20 cd 0d 00 96 25 20 20 e7 64 6f 25 3d 32 20 | ....% .do%=2 |
00000f60 51 25 3d 32 30 30 2b 4c 25 3a 4c 25 3d 28 4c 25 |Q%=200+L%:L%=(L%|
00000f70 2d 32 29 2a 2d 31 2b 31 0d 00 97 13 20 20 e7 64 |-2)*-1+1.... .d|
00000f80 6f 25 3d 33 20 51 25 3d 32 30 33 0d 00 98 13 20 |o%=3 Q%=203.... |
00000f90 20 e7 64 6f 25 3d 34 20 51 25 3d 32 30 34 0d 00 | .do%=4 Q%=204..|
00000fa0 99 25 20 20 e7 64 6f 25 3d 35 20 51 25 3d 32 30 |.% .do%=5 Q%=20|
00000fb0 34 2b 4a 25 3a 4a 25 3d 28 4a 25 2d 32 29 2a 2d |4+J%:J%=(J%-2)*-|
00000fc0 31 2b 31 0d 00 9a 13 20 20 e7 64 6f 25 3d 36 20 |1+1.... .do%=6 |
00000fd0 51 25 3d 32 30 37 0d 00 9b 13 20 20 e7 64 6f 25 |Q%=207.... .do%|
00000fe0 3d 37 20 51 25 3d 32 30 38 0d 00 9c 13 20 20 e7 |=7 Q%=208.... .|
00000ff0 64 6f 25 3d 38 20 51 25 3d 32 30 39 0d 00 9d 13 |do%=8 Q%=209....|
00001000 20 20 e7 64 6f 25 3d 39 20 51 25 3d 32 31 30 0d | .do%=9 Q%=210.|
00001010 00 9e 14 20 20 e7 64 6f 25 3d 31 30 20 51 25 3d |... .do%=10 Q%=|
00001020 32 31 31 0d 00 9f 14 20 20 e7 64 6f 25 3d 31 31 |211.... .do%=11|
00001030 20 51 25 3d 32 31 32 0d 00 a0 14 20 20 e7 64 6f | Q%=212.... .do|
00001040 25 3d 31 32 20 51 25 3d 32 31 33 0d 00 a1 29 20 |%=12 Q%=213...) |
00001050 20 e7 20 51 25 3d 32 30 31 20 d7 22 3c 54 61 62 | . Q%=201 ."<Tab|
00001060 6c 65 41 24 44 69 72 3e 2e 50 74 31 2e 74 61 62 |leA$Dir>.Pt1.tab|
00001070 6c 65 73 22 0d 00 a2 29 20 20 e7 20 51 25 3d 32 |les"...) . Q%=2|
00001080 30 32 20 d7 22 3c 54 61 62 6c 65 41 24 44 69 72 |02 ."<TableA$Dir|
00001090 3e 2e 50 74 31 2e 74 61 62 6c 65 73 22 0d 00 a3 |>.Pt1.tables"...|
000010a0 32 20 20 e7 20 51 25 3d 32 30 33 3a 48 25 3d 32 |2 . Q%=203:H%=2|
000010b0 30 3a d7 22 3c 54 61 62 6c 65 41 24 44 69 72 3e |0:."<TableA$Dir>|
000010c0 2e 50 74 31 2e 74 61 62 6c 65 78 74 72 61 22 0d |.Pt1.tablextra".|
000010d0 00 a4 2a 20 20 e7 20 51 25 3d 32 30 34 20 d7 22 |..* . Q%=204 ."|
000010e0 3c 54 61 62 6c 65 41 24 44 69 72 3e 2e 50 74 31 |<TableA$Dir>.Pt1|
000010f0 2e 63 6f 6e 6e 65 63 74 22 0d 00 a5 2a 20 20 e7 |.connect"...* .|
00001100 20 51 25 3d 32 30 35 20 d7 22 3c 54 61 62 6c 65 | Q%=205 ."<Table|
00001110 41 24 44 69 72 3e 2e 50 74 31 2e 67 72 69 64 64 |A$Dir>.Pt1.gridd|
00001120 6c 65 22 0d 00 a6 2a 20 20 e7 20 51 25 3d 32 30 |le"...* . Q%=20|
00001130 36 20 d7 22 3c 54 61 62 6c 65 41 24 44 69 72 3e |6 ."<TableA$Dir>|
00001140 2e 50 74 31 2e 67 72 69 64 64 6c 65 22 0d 00 a7 |.Pt1.griddle"...|
00001150 27 20 20 e7 20 51 25 3d 32 30 37 20 d7 22 3c 54 |' . Q%=207 ."<T|
00001160 61 62 6c 65 41 24 44 69 72 3e 2e 50 74 31 2e 6a |ableA$Dir>.Pt1.j|
00001170 75 6d 70 22 0d 00 a8 2b 20 20 e7 20 51 25 3d 32 |ump"...+ . Q%=2|
00001180 30 38 20 d7 22 3c 54 61 62 6c 65 41 24 44 69 72 |08 ."<TableA$Dir|
00001190 3e 2e 50 74 31 2e 69 6e 76 61 64 65 72 73 22 0d |>.Pt1.invaders".|
000011a0 00 a9 28 20 20 e7 20 51 25 3d 32 30 39 20 d7 22 |..( . Q%=209 ."|
000011b0 3c 54 61 62 6c 65 41 24 44 69 72 3e 2e 50 74 31 |<TableA$Dir>.Pt1|
000011c0 2e 6c 6f 72 72 79 22 0d 00 aa 2c 20 20 e7 20 51 |.lorry"..., . Q|
000011d0 25 3d 32 31 30 20 d7 22 3c 54 61 62 6c 65 41 24 |%=210 ."<TableA$|
000011e0 44 69 72 3e 2e 50 74 31 2e 74 61 62 6c 65 78 74 |Dir>.Pt1.tablext|
000011f0 72 61 22 0d 00 ab 2d 20 20 e7 20 51 25 3d 32 31 |ra"...- . Q%=21|
00001200 31 3a 4c 25 3d 30 3a d7 22 3c 54 61 62 6c 65 41 |1:L%=0:."<TableA|
00001210 24 44 69 72 3e 2e 50 74 31 2e 70 61 63 63 79 22 |$Dir>.Pt1.paccy"|
00001220 0d 00 ac 2c 20 20 e7 20 51 25 3d 32 31 32 20 d7 |..., . Q%=212 .|
00001230 22 3c 54 61 62 6c 65 41 24 44 69 72 3e 2e 50 74 |"<TableA$Dir>.Pt|
00001240 31 2e 74 61 62 6c 65 78 74 72 61 22 0d 00 ad 29 |1.tablextra"...)|
00001250 20 20 e7 20 51 25 3d 32 31 33 20 d7 22 3c 54 61 | . Q%=213 ."<Ta|
00001260 62 6c 65 41 24 44 69 72 3e 2e 50 74 31 2e 74 61 |bleA$Dir>.Pt1.ta|
00001270 62 6c 65 73 22 0d 00 ae 05 cd 0d ff |bles".......|
0000127c 
.