� TELECAT _ AUTO-DOWNLOADER
� (c) Jon Leighton 1987
:
(1� d%(5),RECORD$(50,2),load%(50,3),exec%(50,3)
2!� mag%(50),page%(50),col%(50)
<� T$(50),s$(50)
F
� �error
P�7
Z�23;8202;0;0;0;
d�=&6000
n&� Turn beep off! (Bad data signal)
x*FX210,1
�
� I%=0�50
�s$(I%)=" "
��
�
line=&C00
�buff%=&C10
�
*TTXON
�	*BBC2
�*HON
�#� Find TSDP to get INITIAL PAGE
�block%=&6000
�?block%=15
�X%=block% � 256
�Y%=block% � 256


A%=&7A


�&FFF1

� block%?1=&FF � �TNA

"/INIT%=(block%?1)*100+(block%?2)*10+block%?2

,currentmag%=block%?1

6(� TSDP found - initial page at INIT%

@� Select initial page

J�oscli("PAGE "+�(INIT%))

T� Download data

^*DATA 6000

h#� Find 5th link (Telesoft Cat.)

r�find_link

|*� Catalogue link in catmag% & catpage%

�� Interpret catalogue data

��catalogue

�� File selection

��selection

�� selected%=0 � �dLA

�*HON

��save_files

�*TTXOFF

��reset_screen

�2�4,10)�131;selected%;�134;"files downloaded."

�*FX15,0

��

�:
��oscli(text$)
)$line=text$:X%=line �256:Y%=line �256

�&FFF7
&�
0:
:��find_link
Doffset%=42
N�
Xmag%=�get_byte
brow%=�get_byte
l� offset%>3000 �
v� mag%=0 � row%=0 � �DXB
�'� mag%=currentmag% � row%=27 � �tTB
�offset%=offset%+40
� � mag%=currentmag% � row%=27
�� Found link row
�offset%=offset%+25
�#� Catalogue link has been found
�� De-ham next 6 bytes
�� I%=0�5
�d%(I%)=�de_ham(�get_byte)
��
�catpage%=d%(1)*10+d%(0)
�,catmag%=((d%(5) � 4)*2+d%(3) � 8) � mag%
�E� d%(1)=&F � d%(0)=&F �5,5)�131;"Link to catalogue not found.":�
�
:
��download(M%,mf,reset)
 �move_OSHWM(&6000)
*
?buff%=24
4buff%?1=line � 256
>buff%?2=line � 256
Hbuff%?3=load%(M%,3)
Rbuff%?4=load%(M%,2)
\buff%?5=load%(M%,1)
fbuff%?6=load%(M%,0)
pbuff%?7=exec%(M%,3)
zbuff%?8=exec%(M%,2)
�buff%?9=exec%(M%,1)
�buff%?10=exec%(M%,0)
�buff%?11=mag%(M%)
�buff%?12=page%(M%)
�buff%?13=mf
�buff%?14=reset
�X%=buff% � 256
�Y%=buff% � 256
�
A%=&7A
�
�&FFF1
��move_OSHWM(�)
��
�:
��move_OSHWM(A%)
X%=A% � 256
Y%=0
$
A%=&B4
.
�&FFF4
8�
B:
L��catalogue
V&�5,5)�134;"Searching for CATALOG"
`$line=""
jpage%(0)=�("&"+�(catpage%))
tmag%(0)=catmag%
~�download(0,0,0)
�	*HOFF
��reset_screen
�5�0,21)�132;�157;�134;�6;"Interpreting catalogue"
��0,22)�132;�157
�*�0,23)�132;�157;�134;�9;"Please wait"
�#� Read 1st 2 records and ignore
�
offset%=0
�� J%=1�2
�A$=�get_string
��
�� Read files available
�
MAX%=0
�

MISS%=�
#� See if suitable for BBC micro
A$=�get_string
(!� A$="ANY" � A$="BBC" MISS%=�
2� A$="***" � �DrF
<� L%=0�2
F%� Read no. of bytes in next field
PA%=�get_byte
Z-� L%=0 col%(MAX%)=�get_byte � &80:A%=A%-1
d	A$=""
n
� J%=1�A%
xB%=�get_byte
�� L%=0 � B%>64 B%=B% � &DF
�A$=A$+�(B%)
��
�� MISS% � �t~E
�RECORD$(MAX%,L%)=A$
�� Read next field
��
�� MISS% � �DhF
�-� Next 2 fields are LOAD & EXEC addresses
�� LOAD address
�� I%=0�3
�load%(MAX%,I%)=�get_byte
��
� EXEC address
� I%=0�3
exec%(MAX%,I%)=�get_byte
"�
,� Magazine
6mag%(MAX%)=�get_byte
@
� Page
Jpage%(MAX%)=�get_byte
T2� MAX%<18 �0,MAX%)�(col%(MAX%));"  ";�p(MAX%)
^MAX%=MAX%+1
h� MISS% offset%=offset%+10
r� A$="***"
|MAX%=MAX%-1
��
�:
���save_files
�U%=0
�� L%=0�MAX%
�� s$(L%)<>"*" � �d~F
��reset_screen
�j�0,2)�132;�157;�134;"Downloading";�(col%(L%));RECORD$(L%,0);�134;"from PAGE ";mag%(L%);~page%(L%);"."
�Q�0,3)�132;�157;�131;U%;�134;"out of";�131;selected%;�134;"files downloaded."
�$line=RECORD$(L%,0)
��download(L%,1,0)
�U%=U%+1
��
�
:
��reset_screen
&�26
0�12
:�
D:
N��selection
X	*FX19
bA$=�132+�157
l>�0,19)A$;�134;"Use";�131;"UP/DOWN";�134;"keys to scroll,"
v7�0,20)A$;�131;"    RETURN";�134;" to select file,"
�:�0,21)A$;�131;"    SPACE";�134;"  to de-select file,"
�8�0,22)A$;�131;"    @      ";�134;"to start saving."
�@�0,23)�134;�157;�132;"    *       indicates selected files"
��28,0,18,39,0
�$�0,0)�(col%(0));�157;�132;�p(0)
�
*FX4,1
�pointer%=0
�
cursor%=0
�selected%=0
�ended%=�
��
�� �(-58) � pointer%>0 �up
�"� �(-42) � pointer%<MAX% �down
� �(-99) �select(0)
� �(-74) �select(1)
� �(-72) ended%=�
 � ended%
**FX21,0
4�
>:
H��up
R�� cursor%>0 cursor%=cursor%-1:pointer%=pointer%-1:�0,cursor%+1)�(col%(pointer%+1));"  ";�p(pointer%+1):�0,cursor%)�(col%(pointer%));�157;�132;�p(pointer%):�delay:�
\$� pointer%>0 pointer%=pointer%-1
f2�0,0)�(col%(pointer%));�157;�132;�p(pointer%)
pJ%=1
z� I%=pointer%+1�pointer%+17
�!�0,J%)�(col%(I%));"  "�p(I%)
�J%=J%+1
��
��
�:
�
��down
��� cursor%<17 cursor%=cursor%+1:pointer%=pointer%+1:�0,cursor%-1)�(col%(pointer%-1));"  ";�p(pointer%-1):�0,cursor%)�(col%(pointer%));�157;�132;�p(pointer%):�delay:�
�'� pointer%<MAX% pointer%=pointer%+1
�J%=0
�� I%=pointer%-17�pointer%-1
�"�0,J%)�(col%(I%));"  ";�p(I%)
�J%=J%+1
��
	3�0,J%)�(col%(pointer%));�157;�132;�p(pointer%)
	�
	:
	$��delay
	.�=0
	8�
	B��>5
	L�
	V:
	`��select(S%)
	j� S%=0 � s$(pointer%)=" " �
	t� S%=1 � s$(pointer%)="*" �
	~[� S%=0 s$(pointer%)=" ":selected%=selected%-1: � s$(pointer%)="*":selected%=selected%+1
	�8�0,cursor%)�(col%(pointer%));�157;�132;�p(pointer%)
	��
	�:
	���error
	�*TTXOFF
	��reset_screen
	�-�5,5)�131;"Error encountered at line ";�
	��
	��
	�:
	�ݤp(G%)
	�1=s$(G%)+�repeat(0)+�repeat(1)+�repeat(2)+�156
:

ݤrepeat(S%)
.=RECORD$(G%,S%)+�11-�(RECORD$(G%,S%))," ")
:
(	ݤcrc
2
?buff%=23
<
buff%?1=0
Fbuff%?2=&60
PX%=buff% � 256
ZY%=buff% � 256
d
A%=&7A
n
�&FFF1
x=buff%?3
�:
�ݤde_ham(C%)
�?block%=25
�block%?1=C%
�
A%=&7A
�X%=block% � 256
�Y%=block% � 256
�
�&FFF1
�=block%?2 � &0F
�:
�ݤget_byte
�Z%=block%?offset%
�offset%=offset%+1
=Z%
:
ݤget_string
"A%=�get_byte
,	Z$=""
6� K%=1 � A%
@Z$=Z$+�(�get_byte)
J�
T=Z$
�

00000000  0d 00 0a 1f f4 20 54 45  4c 45 43 41 54 20 5f 20  |..... TELECAT _ |
00000010  41 55 54 4f 2d 44 4f 57  4e 4c 4f 41 44 45 52 0d  |AUTO-DOWNLOADER.|
00000020  00 14 1b f4 20 28 63 29  20 4a 6f 6e 20 4c 65 69  |.... (c) Jon Lei|
00000030  67 68 74 6f 6e 20 31 39  38 37 0d 00 1e 05 3a 0d  |ghton 1987....:.|
00000040  00 28 31 de 20 64 25 28  35 29 2c 52 45 43 4f 52  |.(1. d%(5),RECOR|
00000050  44 24 28 35 30 2c 32 29  2c 6c 6f 61 64 25 28 35  |D$(50,2),load%(5|
00000060  30 2c 33 29 2c 65 78 65  63 25 28 35 30 2c 33 29  |0,3),exec%(50,3)|
00000070  0d 00 32 21 de 20 6d 61  67 25 28 35 30 29 2c 70  |..2!. mag%(50),p|
00000080  61 67 65 25 28 35 30 29  2c 63 6f 6c 25 28 35 30  |age%(50),col%(50|
00000090  29 0d 00 3c 13 de 20 54  24 28 35 30 29 2c 73 24  |)..<.. T$(50),s$|
000000a0  28 35 30 29 0d 00 46 0d  ee 85 20 f2 65 72 72 6f  |(50)..F... .erro|
000000b0  72 0d 00 50 06 eb 37 0d  00 5a 13 ef 32 33 3b 38  |r..P..7..Z..23;8|
000000c0  32 30 32 3b 30 3b 30 3b  30 3b 0d 00 64 0b d3 3d  |202;0;0;0;..d..=|
000000d0  26 36 30 30 30 0d 00 6e  26 f4 20 54 75 72 6e 20  |&6000..n&. Turn |
000000e0  62 65 65 70 20 6f 66 66  21 20 28 42 61 64 20 64  |beep off! (Bad d|
000000f0  61 74 61 20 73 69 67 6e  61 6c 29 0d 00 78 0c 2a  |ata signal)..x.*|
00000100  46 58 32 31 30 2c 31 0d  00 82 0d e3 20 49 25 3d  |FX210,1..... I%=|
00000110  30 b8 35 30 0d 00 8c 0e  73 24 28 49 25 29 3d 22  |0.50....s$(I%)="|
00000120  20 22 0d 00 96 05 ed 0d  00 a0 0d 6c 69 6e 65 3d  | ".........line=|
00000130  26 43 30 30 0d 00 aa 0e  62 75 66 66 25 3d 26 43  |&C00....buff%=&C|
00000140  31 30 0d 00 b4 0a 2a 54  54 58 4f 4e 0d 00 be 09  |10....*TTXON....|
00000150  2a 42 42 43 32 0d 00 c8  08 2a 48 4f 4e 0d 00 d2  |*BBC2....*HON...|
00000160  23 f4 20 46 69 6e 64 20  54 53 44 50 20 74 6f 20  |#. Find TSDP to |
00000170  67 65 74 20 49 4e 49 54  49 41 4c 20 50 41 47 45  |get INITIAL PAGE|
00000180  0d 00 dc 10 62 6c 6f 63  6b 25 3d 26 36 30 30 30  |....block%=&6000|
00000190  0d 00 e6 0e 3f 62 6c 6f  63 6b 25 3d 31 35 0d 00  |....?block%=15..|
000001a0  f0 13 58 25 3d 62 6c 6f  63 6b 25 20 83 20 32 35  |..X%=block% . 25|
000001b0  36 0d 00 fa 13 59 25 3d  62 6c 6f 63 6b 25 20 81  |6....Y%=block% .|
000001c0  20 32 35 36 0d 01 04 0a  41 25 3d 26 37 41 0d 01  | 256....A%=&7A..|
000001d0  0e 0a d6 26 46 46 46 31  0d 01 18 19 e7 20 62 6c  |...&FFF1..... bl|
000001e0  6f 63 6b 25 3f 31 3d 26  46 46 20 e5 20 8d 54 4e  |ock%?1=&FF . .TN|
000001f0  41 0d 01 22 2f 49 4e 49  54 25 3d 28 62 6c 6f 63  |A.."/INIT%=(bloc|
00000200  6b 25 3f 31 29 2a 31 30  30 2b 28 62 6c 6f 63 6b  |k%?1)*100+(block|
00000210  25 3f 32 29 2a 31 30 2b  62 6c 6f 63 6b 25 3f 32  |%?2)*10+block%?2|
00000220  0d 01 2c 18 63 75 72 72  65 6e 74 6d 61 67 25 3d  |..,.currentmag%=|
00000230  62 6c 6f 63 6b 25 3f 31  0d 01 36 28 f4 20 54 53  |block%?1..6(. TS|
00000240  44 50 20 66 6f 75 6e 64  20 2d 20 69 6e 69 74 69  |DP found - initi|
00000250  61 6c 20 70 61 67 65 20  61 74 20 49 4e 49 54 25  |al page at INIT%|
00000260  0d 01 40 19 f4 20 53 65  6c 65 63 74 20 69 6e 69  |..@.. Select ini|
00000270  74 69 61 6c 20 70 61 67  65 0d 01 4a 1c f2 6f 73  |tial page..J..os|
00000280  63 6c 69 28 22 50 41 47  45 20 22 2b c3 28 49 4e  |cli("PAGE "+.(IN|
00000290  49 54 25 29 29 0d 01 54  13 f4 20 44 6f 77 6e 6c  |IT%))..T.. Downl|
000002a0  6f 61 64 20 64 61 74 61  0d 01 5e 0e 2a 44 41 54  |oad data..^.*DAT|
000002b0  41 20 36 30 30 30 0d 01  68 23 f4 20 46 69 6e 64  |A 6000..h#. Find|
000002c0  20 35 74 68 20 6c 69 6e  6b 20 28 54 65 6c 65 73  | 5th link (Teles|
000002d0  6f 66 74 20 43 61 74 2e  29 0d 01 72 0e f2 66 69  |oft Cat.)..r..fi|
000002e0  6e 64 5f 6c 69 6e 6b 0d  01 7c 2a f4 20 43 61 74  |nd_link..|*. Cat|
000002f0  61 6c 6f 67 75 65 20 6c  69 6e 6b 20 69 6e 20 63  |alogue link in c|
00000300  61 74 6d 61 67 25 20 26  20 63 61 74 70 61 67 65  |atmag% & catpage|
00000310  25 0d 01 86 1e f4 20 49  6e 74 65 72 70 72 65 74  |%..... Interpret|
00000320  20 63 61 74 61 6c 6f 67  75 65 20 64 61 74 61 0d  | catalogue data.|
00000330  01 90 0e f2 63 61 74 61  6c 6f 67 75 65 0d 01 9a  |....catalogue...|
00000340  14 f4 20 46 69 6c 65 20  73 65 6c 65 63 74 69 6f  |.. File selectio|
00000350  6e 0d 01 a4 0e f2 73 65  6c 65 63 74 69 6f 6e 0d  |n.....selection.|
00000360  01 ae 18 e7 20 73 65 6c  65 63 74 65 64 25 3d 30  |.... selected%=0|
00000370  20 e5 20 8d 64 4c 41 0d  01 b8 08 2a 48 4f 4e 0d  | . .dLA....*HON.|
00000380  01 c2 0f f2 73 61 76 65  5f 66 69 6c 65 73 0d 01  |....save_files..|
00000390  cc 0b 2a 54 54 58 4f 46  46 0d 01 d6 11 f2 72 65  |..*TTXOFF.....re|
000003a0  73 65 74 5f 73 63 72 65  65 6e 0d 01 e0 32 f1 8a  |set_screen...2..|
000003b0  34 2c 31 30 29 bd 31 33  31 3b 73 65 6c 65 63 74  |4,10).131;select|
000003c0  65 64 25 3b bd 31 33 34  3b 22 66 69 6c 65 73 20  |ed%;.134;"files |
000003d0  64 6f 77 6e 6c 6f 61 64  65 64 2e 22 0d 01 ea 0b  |downloaded."....|
000003e0  2a 46 58 31 35 2c 30 0d  01 f4 05 e0 0d 01 fe 05  |*FX15,0.........|
000003f0  3a 0d 02 08 12 dd f2 6f  73 63 6c 69 28 74 65 78  |:......oscli(tex|
00000400  74 24 29 0d 02 12 29 24  6c 69 6e 65 3d 74 65 78  |t$)...)$line=tex|
00000410  74 24 3a 58 25 3d 6c 69  6e 65 20 83 32 35 36 3a  |t$:X%=line .256:|
00000420  59 25 3d 6c 69 6e 65 20  81 32 35 36 0d 02 1c 0a  |Y%=line .256....|
00000430  d6 26 46 46 46 37 0d 02  26 05 e1 0d 02 30 05 3a  |.&FFF7..&....0.:|
00000440  0d 02 3a 0f dd f2 66 69  6e 64 5f 6c 69 6e 6b 0d  |..:...find_link.|
00000450  02 44 0e 6f 66 66 73 65  74 25 3d 34 32 0d 02 4e  |.D.offset%=42..N|
00000460  05 f5 0d 02 58 12 6d 61  67 25 3d a4 67 65 74 5f  |....X.mag%=.get_|
00000470  62 79 74 65 0d 02 62 12  72 6f 77 25 3d a4 67 65  |byte..b.row%=.ge|
00000480  74 5f 62 79 74 65 0d 02  6c 14 e7 20 6f 66 66 73  |t_byte..l.. offs|
00000490  65 74 25 3e 33 30 30 30  20 e0 0d 02 76 1c e7 20  |et%>3000 ...v.. |
000004a0  6d 61 67 25 3d 30 20 80  20 72 6f 77 25 3d 30 20  |mag%=0 . row%=0 |
000004b0  e5 20 8d 44 58 42 0d 02  80 27 e7 20 6d 61 67 25  |. .DXB...'. mag%|
000004c0  3d 63 75 72 72 65 6e 74  6d 61 67 25 20 80 20 72  |=currentmag% . r|
000004d0  6f 77 25 3d 32 37 20 e5  20 8d 74 54 42 0d 02 8a  |ow%=27 . .tTB...|
000004e0  16 6f 66 66 73 65 74 25  3d 6f 66 66 73 65 74 25  |.offset%=offset%|
000004f0  2b 34 30 0d 02 94 20 fd  20 6d 61 67 25 3d 63 75  |+40... . mag%=cu|
00000500  72 72 65 6e 74 6d 61 67  25 20 80 20 72 6f 77 25  |rrentmag% . row%|
00000510  3d 32 37 0d 02 9e 14 f4  20 46 6f 75 6e 64 20 6c  |=27..... Found l|
00000520  69 6e 6b 20 72 6f 77 0d  02 a8 16 6f 66 66 73 65  |ink row....offse|
00000530  74 25 3d 6f 66 66 73 65  74 25 2b 32 35 0d 02 b2  |t%=offset%+25...|
00000540  23 f4 20 43 61 74 61 6c  6f 67 75 65 20 6c 69 6e  |#. Catalogue lin|
00000550  6b 20 68 61 73 20 62 65  65 6e 20 66 6f 75 6e 64  |k has been found|
00000560  0d 02 bc 19 f4 20 44 65  2d 68 61 6d 20 6e 65 78  |..... De-ham nex|
00000570  74 20 36 20 62 79 74 65  73 0d 02 c6 0c e3 20 49  |t 6 bytes..... I|
00000580  25 3d 30 b8 35 0d 02 d0  1d 64 25 28 49 25 29 3d  |%=0.5....d%(I%)=|
00000590  a4 64 65 5f 68 61 6d 28  a4 67 65 74 5f 62 79 74  |.de_ham(.get_byt|
000005a0  65 29 0d 02 da 05 ed 0d  02 e4 1b 63 61 74 70 61  |e).........catpa|
000005b0  67 65 25 3d 64 25 28 31  29 2a 31 30 2b 64 25 28  |ge%=d%(1)*10+d%(|
000005c0  30 29 0d 02 ee 2c 63 61  74 6d 61 67 25 3d 28 28  |0)...,catmag%=((|
000005d0  64 25 28 35 29 20 81 20  34 29 2a 32 2b 64 25 28  |d%(5) . 4)*2+d%(|
000005e0  33 29 20 81 20 38 29 20  82 20 6d 61 67 25 0d 02  |3) . 8) . mag%..|
000005f0  f8 45 e7 20 64 25 28 31  29 3d 26 46 20 80 20 64  |.E. d%(1)=&F . d|
00000600  25 28 30 29 3d 26 46 20  f1 8a 35 2c 35 29 bd 31  |%(0)=&F ..5,5).1|
00000610  33 31 3b 22 4c 69 6e 6b  20 74 6f 20 63 61 74 61  |31;"Link to cata|
00000620  6c 6f 67 75 65 20 6e 6f  74 20 66 6f 75 6e 64 2e  |logue not found.|
00000630  22 3a e0 0d 03 02 05 e1  0d 03 0c 05 3a 0d 03 16  |":..........:...|
00000640  1b dd f2 64 6f 77 6e 6c  6f 61 64 28 4d 25 2c 6d  |...download(M%,m|
00000650  66 2c 72 65 73 65 74 29  0d 03 20 16 f2 6d 6f 76  |f,reset).. ..mov|
00000660  65 5f 4f 53 48 57 4d 28  26 36 30 30 30 29 0d 03  |e_OSHWM(&6000)..|
00000670  2a 0d 3f 62 75 66 66 25  3d 32 34 0d 03 34 16 62  |*.?buff%=24..4.b|
00000680  75 66 66 25 3f 31 3d 6c  69 6e 65 20 83 20 32 35  |uff%?1=line . 25|
00000690  36 0d 03 3e 16 62 75 66  66 25 3f 32 3d 6c 69 6e  |6..>.buff%?2=lin|
000006a0  65 20 81 20 32 35 36 0d  03 48 17 62 75 66 66 25  |e . 256..H.buff%|
000006b0  3f 33 3d 6c 6f 61 64 25  28 4d 25 2c 33 29 0d 03  |?3=load%(M%,3)..|
000006c0  52 17 62 75 66 66 25 3f  34 3d 6c 6f 61 64 25 28  |R.buff%?4=load%(|
000006d0  4d 25 2c 32 29 0d 03 5c  17 62 75 66 66 25 3f 35  |M%,2)..\.buff%?5|
000006e0  3d 6c 6f 61 64 25 28 4d  25 2c 31 29 0d 03 66 17  |=load%(M%,1)..f.|
000006f0  62 75 66 66 25 3f 36 3d  6c 6f 61 64 25 28 4d 25  |buff%?6=load%(M%|
00000700  2c 30 29 0d 03 70 17 62  75 66 66 25 3f 37 3d 65  |,0)..p.buff%?7=e|
00000710  78 65 63 25 28 4d 25 2c  33 29 0d 03 7a 17 62 75  |xec%(M%,3)..z.bu|
00000720  66 66 25 3f 38 3d 65 78  65 63 25 28 4d 25 2c 32  |ff%?8=exec%(M%,2|
00000730  29 0d 03 84 17 62 75 66  66 25 3f 39 3d 65 78 65  |)....buff%?9=exe|
00000740  63 25 28 4d 25 2c 31 29  0d 03 8e 18 62 75 66 66  |c%(M%,1)....buff|
00000750  25 3f 31 30 3d 65 78 65  63 25 28 4d 25 2c 30 29  |%?10=exec%(M%,0)|
00000760  0d 03 98 15 62 75 66 66  25 3f 31 31 3d 6d 61 67  |....buff%?11=mag|
00000770  25 28 4d 25 29 0d 03 a2  16 62 75 66 66 25 3f 31  |%(M%)....buff%?1|
00000780  32 3d 70 61 67 65 25 28  4d 25 29 0d 03 ac 0f 62  |2=page%(M%)....b|
00000790  75 66 66 25 3f 31 33 3d  6d 66 0d 03 b6 12 62 75  |uff%?13=mf....bu|
000007a0  66 66 25 3f 31 34 3d 72  65 73 65 74 0d 03 c0 12  |ff%?14=reset....|
000007b0  58 25 3d 62 75 66 66 25  20 83 20 32 35 36 0d 03  |X%=buff% . 256..|
000007c0  ca 12 59 25 3d 62 75 66  66 25 20 81 20 32 35 36  |..Y%=buff% . 256|
000007d0  0d 03 d4 0a 41 25 3d 26  37 41 0d 03 de 0a d6 26  |....A%=&7A.....&|
000007e0  46 46 46 31 0d 03 e8 12  f2 6d 6f 76 65 5f 4f 53  |FFF1.....move_OS|
000007f0  48 57 4d 28 90 29 0d 03  f2 05 e1 0d 03 fc 05 3a  |HWM(.).........:|
00000800  0d 04 06 14 dd f2 6d 6f  76 65 5f 4f 53 48 57 4d  |......move_OSHWM|
00000810  28 41 25 29 0d 04 10 0f  58 25 3d 41 25 20 81 20  |(A%)....X%=A% . |
00000820  32 35 36 0d 04 1a 08 59  25 3d 30 0d 04 24 0a 41  |256....Y%=0..$.A|
00000830  25 3d 26 42 34 0d 04 2e  0a d6 26 46 46 46 34 0d  |%=&B4.....&FFF4.|
00000840  04 38 05 e1 0d 04 42 05  3a 0d 04 4c 0f dd f2 63  |.8....B.:..L...c|
00000850  61 74 61 6c 6f 67 75 65  0d 04 56 26 f1 8a 35 2c  |atalogue..V&..5,|
00000860  35 29 bd 31 33 34 3b 22  53 65 61 72 63 68 69 6e  |5).134;"Searchin|
00000870  67 20 66 6f 72 20 43 41  54 41 4c 4f 47 22 0d 04  |g for CATALOG"..|
00000880  60 0c 24 6c 69 6e 65 3d  22 22 0d 04 6a 1f 70 61  |`.$line=""..j.pa|
00000890  67 65 25 28 30 29 3d a0  28 22 26 22 2b c3 28 63  |ge%(0)=.("&"+.(c|
000008a0  61 74 70 61 67 65 25 29  29 0d 04 74 13 6d 61 67  |atpage%))..t.mag|
000008b0  25 28 30 29 3d 63 61 74  6d 61 67 25 0d 04 7e 14  |%(0)=catmag%..~.|
000008c0  f2 64 6f 77 6e 6c 6f 61  64 28 30 2c 30 2c 30 29  |.download(0,0,0)|
000008d0  0d 04 88 09 2a 48 4f 46  46 0d 04 92 11 f2 72 65  |....*HOFF.....re|
000008e0  73 65 74 5f 73 63 72 65  65 6e 0d 04 9c 35 f1 8a  |set_screen...5..|
000008f0  30 2c 32 31 29 bd 31 33  32 3b bd 31 35 37 3b bd  |0,21).132;.157;.|
00000900  31 33 34 3b 89 36 3b 22  49 6e 74 65 72 70 72 65  |134;.6;"Interpre|
00000910  74 69 6e 67 20 63 61 74  61 6c 6f 67 75 65 22 0d  |ting catalogue".|
00000920  04 a6 14 f1 8a 30 2c 32  32 29 bd 31 33 32 3b bd  |.....0,22).132;.|
00000930  31 35 37 0d 04 b0 2a f1  8a 30 2c 32 33 29 bd 31  |157...*..0,23).1|
00000940  33 32 3b bd 31 35 37 3b  bd 31 33 34 3b 89 39 3b  |32;.157;.134;.9;|
00000950  22 50 6c 65 61 73 65 20  77 61 69 74 22 0d 04 ba  |"Please wait"...|
00000960  23 f4 20 52 65 61 64 20  31 73 74 20 32 20 72 65  |#. Read 1st 2 re|
00000970  63 6f 72 64 73 20 61 6e  64 20 69 67 6e 6f 72 65  |cords and ignore|
00000980  0d 04 c4 0d 6f 66 66 73  65 74 25 3d 30 0d 04 ce  |....offset%=0...|
00000990  0c e3 20 4a 25 3d 31 b8  32 0d 04 d8 12 41 24 3d  |.. J%=1.2....A$=|
000009a0  a4 67 65 74 5f 73 74 72  69 6e 67 0d 04 e2 05 ed  |.get_string.....|
000009b0  0d 04 ec 1a f4 20 52 65  61 64 20 66 69 6c 65 73  |..... Read files|
000009c0  20 61 76 61 69 6c 61 62  6c 65 0d 04 f6 0a 4d 41  | available....MA|
000009d0  58 25 3d 30 0d 05 00 05  f5 0d 05 0a 0b 4d 49 53  |X%=0.........MIS|
000009e0  53 25 3d b9 0d 05 14 23  f4 20 53 65 65 20 69 66  |S%=....#. See if|
000009f0  20 73 75 69 74 61 62 6c  65 20 66 6f 72 20 42 42  | suitable for BB|
00000a00  43 20 6d 69 63 72 6f 0d  05 1e 12 41 24 3d a4 67  |C micro....A$=.g|
00000a10  65 74 5f 73 74 72 69 6e  67 0d 05 28 21 e7 20 41  |et_string..(!. A|
00000a20  24 3d 22 41 4e 59 22 20  84 20 41 24 3d 22 42 42  |$="ANY" . A$="BB|
00000a30  43 22 20 4d 49 53 53 25  3d a3 0d 05 32 15 e7 20  |C" MISS%=...2.. |
00000a40  41 24 3d 22 2a 2a 2a 22  20 e5 20 8d 44 72 46 0d  |A$="***" . .DrF.|
00000a50  05 3c 0c e3 20 4c 25 3d  30 b8 32 0d 05 46 25 f4  |.<.. L%=0.2..F%.|
00000a60  20 52 65 61 64 20 6e 6f  2e 20 6f 66 20 62 79 74  | Read no. of byt|
00000a70  65 73 20 69 6e 20 6e 65  78 74 20 66 69 65 6c 64  |es in next field|
00000a80  0d 05 50 10 41 25 3d a4  67 65 74 5f 62 79 74 65  |..P.A%=.get_byte|
00000a90  0d 05 5a 2d e7 20 4c 25  3d 30 20 63 6f 6c 25 28  |..Z-. L%=0 col%(|
00000aa0  4d 41 58 25 29 3d a4 67  65 74 5f 62 79 74 65 20  |MAX%)=.get_byte |
00000ab0  84 20 26 38 30 3a 41 25  3d 41 25 2d 31 0d 05 64  |. &80:A%=A%-1..d|
00000ac0  09 41 24 3d 22 22 0d 05  6e 0d e3 20 4a 25 3d 31  |.A$=""..n.. J%=1|
00000ad0  b8 41 25 0d 05 78 10 42  25 3d a4 67 65 74 5f 62  |.A%..x.B%=.get_b|
00000ae0  79 74 65 0d 05 82 1e e7  20 4c 25 3d 30 20 80 20  |yte..... L%=0 . |
00000af0  42 25 3e 36 34 20 42 25  3d 42 25 20 80 20 26 44  |B%>64 B%=B% . &D|
00000b00  46 0d 05 8c 0f 41 24 3d  41 24 2b bd 28 42 25 29  |F....A$=A$+.(B%)|
00000b10  0d 05 96 05 ed 0d 05 a0  12 e7 20 4d 49 53 53 25  |.......... MISS%|
00000b20  20 e5 20 8d 74 7e 45 0d  05 aa 17 52 45 43 4f 52  | . .t~E....RECOR|
00000b30  44 24 28 4d 41 58 25 2c  4c 25 29 3d 41 24 0d 05  |D$(MAX%,L%)=A$..|
00000b40  b4 15 f4 20 52 65 61 64  20 6e 65 78 74 20 66 69  |... Read next fi|
00000b50  65 6c 64 0d 05 be 05 ed  0d 05 c8 12 e7 20 4d 49  |eld.......... MI|
00000b60  53 53 25 20 e5 20 8d 44  68 46 0d 05 d2 2d f4 20  |SS% . .DhF...-. |
00000b70  4e 65 78 74 20 32 20 66  69 65 6c 64 73 20 61 72  |Next 2 fields ar|
00000b80  65 20 4c 4f 41 44 20 26  20 45 58 45 43 20 61 64  |e LOAD & EXEC ad|
00000b90  64 72 65 73 73 65 73 0d  05 dc 12 f4 20 4c 4f 41  |dresses..... LOA|
00000ba0  44 20 61 64 64 72 65 73  73 0d 05 e6 0c e3 20 49  |D address..... I|
00000bb0  25 3d 30 b8 33 0d 05 f0  1c 6c 6f 61 64 25 28 4d  |%=0.3....load%(M|
00000bc0  41 58 25 2c 49 25 29 3d  a4 67 65 74 5f 62 79 74  |AX%,I%)=.get_byt|
00000bd0  65 0d 05 fa 05 ed 0d 06  04 12 f4 20 45 58 45 43  |e.......... EXEC|
00000be0  20 61 64 64 72 65 73 73  0d 06 0e 0c e3 20 49 25  | address..... I%|
00000bf0  3d 30 b8 33 0d 06 18 1c  65 78 65 63 25 28 4d 41  |=0.3....exec%(MA|
00000c00  58 25 2c 49 25 29 3d a4  67 65 74 5f 62 79 74 65  |X%,I%)=.get_byte|
00000c10  0d 06 22 05 ed 0d 06 2c  0e f4 20 4d 61 67 61 7a  |.."....,.. Magaz|
00000c20  69 6e 65 0d 06 36 18 6d  61 67 25 28 4d 41 58 25  |ine..6.mag%(MAX%|
00000c30  29 3d a4 67 65 74 5f 62  79 74 65 0d 06 40 0a f4  |)=.get_byte..@..|
00000c40  20 50 61 67 65 0d 06 4a  19 70 61 67 65 25 28 4d  | Page..J.page%(M|
00000c50  41 58 25 29 3d a4 67 65  74 5f 62 79 74 65 0d 06  |AX%)=.get_byte..|
00000c60  54 32 e7 20 4d 41 58 25  3c 31 38 20 f1 8a 30 2c  |T2. MAX%<18 ..0,|
00000c70  4d 41 58 25 29 bd 28 63  6f 6c 25 28 4d 41 58 25  |MAX%).(col%(MAX%|
00000c80  29 29 3b 22 20 20 22 3b  a4 70 28 4d 41 58 25 29  |));"  ";.p(MAX%)|
00000c90  0d 06 5e 0f 4d 41 58 25  3d 4d 41 58 25 2b 31 0d  |..^.MAX%=MAX%+1.|
00000ca0  06 68 1e e7 20 4d 49 53  53 25 20 6f 66 66 73 65  |.h.. MISS% offse|
00000cb0  74 25 3d 6f 66 66 73 65  74 25 2b 31 30 0d 06 72  |t%=offset%+10..r|
00000cc0  0e fd 20 41 24 3d 22 2a  2a 2a 22 0d 06 7c 0f 4d  |.. A$="***"..|.M|
00000cd0  41 58 25 3d 4d 41 58 25  2d 31 0d 06 86 05 e1 0d  |AX%=MAX%-1......|
00000ce0  06 90 05 3a 0d 06 9a 10  dd f2 73 61 76 65 5f 66  |...:......save_f|
00000cf0  69 6c 65 73 0d 06 a4 08  55 25 3d 30 0d 06 ae 0f  |iles....U%=0....|
00000d00  e3 20 4c 25 3d 30 b8 4d  41 58 25 0d 06 b8 18 e7  |. L%=0.MAX%.....|
00000d10  20 73 24 28 4c 25 29 3c  3e 22 2a 22 20 e5 20 8d  | s$(L%)<>"*" . .|
00000d20  64 7e 46 0d 06 c2 11 f2  72 65 73 65 74 5f 73 63  |d~F.....reset_sc|
00000d30  72 65 65 6e 0d 06 cc 6a  f1 8a 30 2c 32 29 bd 31  |reen...j..0,2).1|
00000d40  33 32 3b bd 31 35 37 3b  bd 31 33 34 3b 22 44 6f  |32;.157;.134;"Do|
00000d50  77 6e 6c 6f 61 64 69 6e  67 22 3b bd 28 63 6f 6c  |wnloading";.(col|
00000d60  25 28 4c 25 29 29 3b 52  45 43 4f 52 44 24 28 4c  |%(L%));RECORD$(L|
00000d70  25 2c 30 29 3b bd 31 33  34 3b 22 66 72 6f 6d 20  |%,0);.134;"from |
00000d80  50 41 47 45 20 22 3b 6d  61 67 25 28 4c 25 29 3b  |PAGE ";mag%(L%);|
00000d90  7e 70 61 67 65 25 28 4c  25 29 3b 22 2e 22 0d 06  |~page%(L%);"."..|
00000da0  d6 51 f1 8a 30 2c 33 29  bd 31 33 32 3b bd 31 35  |.Q..0,3).132;.15|
00000db0  37 3b bd 31 33 31 3b 55  25 3b bd 31 33 34 3b 22  |7;.131;U%;.134;"|
00000dc0  6f 75 74 20 6f 66 22 3b  bd 31 33 31 3b 73 65 6c  |out of";.131;sel|
00000dd0  65 63 74 65 64 25 3b bd  31 33 34 3b 22 66 69 6c  |ected%;.134;"fil|
00000de0  65 73 20 64 6f 77 6e 6c  6f 61 64 65 64 2e 22 0d  |es downloaded.".|
00000df0  06 e0 17 24 6c 69 6e 65  3d 52 45 43 4f 52 44 24  |...$line=RECORD$|
00000e00  28 4c 25 2c 30 29 0d 06  ea 15 f2 64 6f 77 6e 6c  |(L%,0).....downl|
00000e10  6f 61 64 28 4c 25 2c 31  2c 30 29 0d 06 f4 0b 55  |oad(L%,1,0)....U|
00000e20  25 3d 55 25 2b 31 0d 06  fe 05 ed 0d 07 08 05 e1  |%=U%+1..........|
00000e30  0d 07 12 05 3a 0d 07 1c  12 dd f2 72 65 73 65 74  |....:......reset|
00000e40  5f 73 63 72 65 65 6e 0d  07 26 07 ef 32 36 0d 07  |_screen..&..26..|
00000e50  30 07 ef 31 32 0d 07 3a  05 e1 0d 07 44 05 3a 0d  |0..12..:....D.:.|
00000e60  07 4e 0f dd f2 73 65 6c  65 63 74 69 6f 6e 0d 07  |.N...selection..|
00000e70  58 09 2a 46 58 31 39 0d  07 62 10 41 24 3d bd 31  |X.*FX19..b.A$=.1|
00000e80  33 32 2b bd 31 35 37 0d  07 6c 3e f1 8a 30 2c 31  |32+.157..l>..0,1|
00000e90  39 29 41 24 3b bd 31 33  34 3b 22 55 73 65 22 3b  |9)A$;.134;"Use";|
00000ea0  bd 31 33 31 3b 22 55 50  2f 44 4f 57 4e 22 3b bd  |.131;"UP/DOWN";.|
00000eb0  31 33 34 3b 22 6b 65 79  73 20 74 6f 20 73 63 72  |134;"keys to scr|
00000ec0  6f 6c 6c 2c 22 0d 07 76  37 f1 8a 30 2c 32 30 29  |oll,"..v7..0,20)|
00000ed0  41 24 3b bd 31 33 31 3b  22 20 20 20 20 52 45 54  |A$;.131;"    RET|
00000ee0  55 52 4e 22 3b bd 31 33  34 3b 22 20 74 6f 20 73  |URN";.134;" to s|
00000ef0  65 6c 65 63 74 20 66 69  6c 65 2c 22 0d 07 80 3a  |elect file,"...:|
00000f00  f1 8a 30 2c 32 31 29 41  24 3b bd 31 33 31 3b 22  |..0,21)A$;.131;"|
00000f10  20 20 20 20 53 50 41 43  45 22 3b bd 31 33 34 3b  |    SPACE";.134;|
00000f20  22 20 20 74 6f 20 64 65  2d 73 65 6c 65 63 74 20  |"  to de-select |
00000f30  66 69 6c 65 2c 22 0d 07  8a 38 f1 8a 30 2c 32 32  |file,"...8..0,22|
00000f40  29 41 24 3b bd 31 33 31  3b 22 20 20 20 20 40 20  |)A$;.131;"    @ |
00000f50  20 20 20 20 20 22 3b bd  31 33 34 3b 22 74 6f 20  |     ";.134;"to |
00000f60  73 74 61 72 74 20 73 61  76 69 6e 67 2e 22 0d 07  |start saving."..|
00000f70  94 40 f1 8a 30 2c 32 33  29 bd 31 33 34 3b bd 31  |.@..0,23).134;.1|
00000f80  35 37 3b bd 31 33 32 3b  22 20 20 20 20 2a 20 20  |57;.132;"    *  |
00000f90  20 20 20 20 20 69 6e 64  69 63 61 74 65 73 20 73  |     indicates s|
00000fa0  65 6c 65 63 74 65 64 20  66 69 6c 65 73 22 0d 07  |elected files"..|
00000fb0  9e 11 ef 32 38 2c 30 2c  31 38 2c 33 39 2c 30 0d  |...28,0,18,39,0.|
00000fc0  07 a8 24 f1 8a 30 2c 30  29 bd 28 63 6f 6c 25 28  |..$..0,0).(col%(|
00000fd0  30 29 29 3b bd 31 35 37  3b bd 31 33 32 3b a4 70  |0));.157;.132;.p|
00000fe0  28 30 29 0d 07 b2 0a 2a  46 58 34 2c 31 0d 07 bc  |(0)....*FX4,1...|
00000ff0  0e 70 6f 69 6e 74 65 72  25 3d 30 0d 07 c6 0d 63  |.pointer%=0....c|
00001000  75 72 73 6f 72 25 3d 30  0d 07 d0 0f 73 65 6c 65  |ursor%=0....sele|
00001010  63 74 65 64 25 3d 30 0d  07 da 0c 65 6e 64 65 64  |cted%=0....ended|
00001020  25 3d a3 0d 07 e4 05 f5  0d 07 ee 1d e7 20 a6 28  |%=........... .(|
00001030  2d 35 38 29 20 80 20 70  6f 69 6e 74 65 72 25 3e  |-58) . pointer%>|
00001040  30 20 f2 75 70 0d 07 f8  22 e7 20 a6 28 2d 34 32  |0 .up...". .(-42|
00001050  29 20 80 20 70 6f 69 6e  74 65 72 25 3c 4d 41 58  |) . pointer%<MAX|
00001060  25 20 f2 64 6f 77 6e 0d  08 02 17 e7 20 a6 28 2d  |% .down..... .(-|
00001070  39 39 29 20 f2 73 65 6c  65 63 74 28 30 29 0d 08  |99) .select(0)..|
00001080  0c 17 e7 20 a6 28 2d 37  34 29 20 f2 73 65 6c 65  |... .(-74) .sele|
00001090  63 74 28 31 29 0d 08 16  15 e7 20 a6 28 2d 37 32  |ct(1)..... .(-72|
000010a0  29 20 65 6e 64 65 64 25  3d b9 0d 08 20 0c fd 20  |) ended%=... .. |
000010b0  65 6e 64 65 64 25 0d 08  2a 0b 2a 46 58 32 31 2c  |ended%..*.*FX21,|
000010c0  30 0d 08 34 05 e1 0d 08  3e 05 3a 0d 08 48 08 dd  |0..4....>.:..H..|
000010d0  f2 75 70 0d 08 52 a9 e7  20 63 75 72 73 6f 72 25  |.up..R.. cursor%|
000010e0  3e 30 20 63 75 72 73 6f  72 25 3d 63 75 72 73 6f  |>0 cursor%=curso|
000010f0  72 25 2d 31 3a 70 6f 69  6e 74 65 72 25 3d 70 6f  |r%-1:pointer%=po|
00001100  69 6e 74 65 72 25 2d 31  3a f1 8a 30 2c 63 75 72  |inter%-1:..0,cur|
00001110  73 6f 72 25 2b 31 29 bd  28 63 6f 6c 25 28 70 6f  |sor%+1).(col%(po|
00001120  69 6e 74 65 72 25 2b 31  29 29 3b 22 20 20 22 3b  |inter%+1));"  ";|
00001130  a4 70 28 70 6f 69 6e 74  65 72 25 2b 31 29 3a f1  |.p(pointer%+1):.|
00001140  8a 30 2c 63 75 72 73 6f  72 25 29 bd 28 63 6f 6c  |.0,cursor%).(col|
00001150  25 28 70 6f 69 6e 74 65  72 25 29 29 3b bd 31 35  |%(pointer%));.15|
00001160  37 3b bd 31 33 32 3b a4  70 28 70 6f 69 6e 74 65  |7;.132;.p(pointe|
00001170  72 25 29 3a f2 64 65 6c  61 79 3a e1 0d 08 5c 24  |r%):.delay:...\$|
00001180  e7 20 70 6f 69 6e 74 65  72 25 3e 30 20 70 6f 69  |. pointer%>0 poi|
00001190  6e 74 65 72 25 3d 70 6f  69 6e 74 65 72 25 2d 31  |nter%=pointer%-1|
000011a0  0d 08 66 32 f1 8a 30 2c  30 29 bd 28 63 6f 6c 25  |..f2..0,0).(col%|
000011b0  28 70 6f 69 6e 74 65 72  25 29 29 3b bd 31 35 37  |(pointer%));.157|
000011c0  3b bd 31 33 32 3b a4 70  28 70 6f 69 6e 74 65 72  |;.132;.p(pointer|
000011d0  25 29 0d 08 70 08 4a 25  3d 31 0d 08 7a 1f e3 20  |%)..p.J%=1..z.. |
000011e0  49 25 3d 70 6f 69 6e 74  65 72 25 2b 31 b8 70 6f  |I%=pointer%+1.po|
000011f0  69 6e 74 65 72 25 2b 31  37 0d 08 84 21 f1 8a 30  |inter%+17...!..0|
00001200  2c 4a 25 29 bd 28 63 6f  6c 25 28 49 25 29 29 3b  |,J%).(col%(I%));|
00001210  22 20 20 22 a4 70 28 49  25 29 0d 08 8e 0b 4a 25  |"  ".p(I%)....J%|
00001220  3d 4a 25 2b 31 0d 08 98  05 ed 0d 08 a2 05 e1 0d  |=J%+1...........|
00001230  08 ac 05 3a 0d 08 b6 0a  dd f2 64 6f 77 6e 0d 08  |...:......down..|
00001240  c0 aa e7 20 63 75 72 73  6f 72 25 3c 31 37 20 63  |... cursor%<17 c|
00001250  75 72 73 6f 72 25 3d 63  75 72 73 6f 72 25 2b 31  |ursor%=cursor%+1|
00001260  3a 70 6f 69 6e 74 65 72  25 3d 70 6f 69 6e 74 65  |:pointer%=pointe|
00001270  72 25 2b 31 3a f1 8a 30  2c 63 75 72 73 6f 72 25  |r%+1:..0,cursor%|
00001280  2d 31 29 bd 28 63 6f 6c  25 28 70 6f 69 6e 74 65  |-1).(col%(pointe|
00001290  72 25 2d 31 29 29 3b 22  20 20 22 3b a4 70 28 70  |r%-1));"  ";.p(p|
000012a0  6f 69 6e 74 65 72 25 2d  31 29 3a f1 8a 30 2c 63  |ointer%-1):..0,c|
000012b0  75 72 73 6f 72 25 29 bd  28 63 6f 6c 25 28 70 6f  |ursor%).(col%(po|
000012c0  69 6e 74 65 72 25 29 29  3b bd 31 35 37 3b bd 31  |inter%));.157;.1|
000012d0  33 32 3b a4 70 28 70 6f  69 6e 74 65 72 25 29 3a  |32;.p(pointer%):|
000012e0  f2 64 65 6c 61 79 3a e1  0d 08 ca 27 e7 20 70 6f  |.delay:....'. po|
000012f0  69 6e 74 65 72 25 3c 4d  41 58 25 20 70 6f 69 6e  |inter%<MAX% poin|
00001300  74 65 72 25 3d 70 6f 69  6e 74 65 72 25 2b 31 0d  |ter%=pointer%+1.|
00001310  08 d4 08 4a 25 3d 30 0d  08 de 1f e3 20 49 25 3d  |...J%=0..... I%=|
00001320  70 6f 69 6e 74 65 72 25  2d 31 37 b8 70 6f 69 6e  |pointer%-17.poin|
00001330  74 65 72 25 2d 31 0d 08  e8 22 f1 8a 30 2c 4a 25  |ter%-1..."..0,J%|
00001340  29 bd 28 63 6f 6c 25 28  49 25 29 29 3b 22 20 20  |).(col%(I%));"  |
00001350  22 3b a4 70 28 49 25 29  0d 08 f2 0b 4a 25 3d 4a  |";.p(I%)....J%=J|
00001360  25 2b 31 0d 08 fc 05 ed  0d 09 06 33 f1 8a 30 2c  |%+1........3..0,|
00001370  4a 25 29 bd 28 63 6f 6c  25 28 70 6f 69 6e 74 65  |J%).(col%(pointe|
00001380  72 25 29 29 3b bd 31 35  37 3b bd 31 33 32 3b a4  |r%));.157;.132;.|
00001390  70 28 70 6f 69 6e 74 65  72 25 29 0d 09 10 05 e1  |p(pointer%).....|
000013a0  0d 09 1a 05 3a 0d 09 24  0b dd f2 64 65 6c 61 79  |....:..$...delay|
000013b0  0d 09 2e 07 d1 3d 30 0d  09 38 05 f5 0d 09 42 08  |.....=0..8....B.|
000013c0  fd 91 3e 35 0d 09 4c 05  e1 0d 09 56 05 3a 0d 09  |..>5..L....V.:..|
000013d0  60 10 dd f2 73 65 6c 65  63 74 28 53 25 29 0d 09  |`...select(S%)..|
000013e0  6a 1f e7 20 53 25 3d 30  20 80 20 73 24 28 70 6f  |j.. S%=0 . s$(po|
000013f0  69 6e 74 65 72 25 29 3d  22 20 22 20 e1 0d 09 74  |inter%)=" " ...t|
00001400  1f e7 20 53 25 3d 31 20  80 20 73 24 28 70 6f 69  |.. S%=1 . s$(poi|
00001410  6e 74 65 72 25 29 3d 22  2a 22 20 e1 0d 09 7e 5b  |nter%)="*" ...~[|
00001420  e7 20 53 25 3d 30 20 73  24 28 70 6f 69 6e 74 65  |. S%=0 s$(pointe|
00001430  72 25 29 3d 22 20 22 3a  73 65 6c 65 63 74 65 64  |r%)=" ":selected|
00001440  25 3d 73 65 6c 65 63 74  65 64 25 2d 31 3a 20 8b  |%=selected%-1: .|
00001450  20 73 24 28 70 6f 69 6e  74 65 72 25 29 3d 22 2a  | s$(pointer%)="*|
00001460  22 3a 73 65 6c 65 63 74  65 64 25 3d 73 65 6c 65  |":selected%=sele|
00001470  63 74 65 64 25 2b 31 0d  09 88 38 f1 8a 30 2c 63  |cted%+1...8..0,c|
00001480  75 72 73 6f 72 25 29 bd  28 63 6f 6c 25 28 70 6f  |ursor%).(col%(po|
00001490  69 6e 74 65 72 25 29 29  3b bd 31 35 37 3b bd 31  |inter%));.157;.1|
000014a0  33 32 3b a4 70 28 70 6f  69 6e 74 65 72 25 29 0d  |32;.p(pointer%).|
000014b0  09 92 05 e1 0d 09 9c 05  3a 0d 09 a6 0b dd f2 65  |........:......e|
000014c0  72 72 6f 72 0d 09 b0 0b  2a 54 54 58 4f 46 46 0d  |rror....*TTXOFF.|
000014d0  09 ba 11 f2 72 65 73 65  74 5f 73 63 72 65 65 6e  |....reset_screen|
000014e0  0d 09 c4 2d f1 8a 35 2c  35 29 bd 31 33 31 3b 22  |...-..5,5).131;"|
000014f0  45 72 72 6f 72 20 65 6e  63 6f 75 6e 74 65 72 65  |Error encountere|
00001500  64 20 61 74 20 6c 69 6e  65 20 22 3b 9e 0d 09 ce  |d at line ";....|
00001510  05 e0 0d 09 d8 05 e1 0d  09 e2 05 3a 0d 09 ec 0b  |...........:....|
00001520  dd a4 70 28 47 25 29 0d  09 f6 31 3d 73 24 28 47  |..p(G%)...1=s$(G|
00001530  25 29 2b a4 72 65 70 65  61 74 28 30 29 2b a4 72  |%)+.repeat(0)+.r|
00001540  65 70 65 61 74 28 31 29  2b a4 72 65 70 65 61 74  |epeat(1)+.repeat|
00001550  28 32 29 2b bd 31 35 36  0d 0a 00 05 3a 0d 0a 0a  |(2)+.156....:...|
00001560  10 dd a4 72 65 70 65 61  74 28 53 25 29 0d 0a 14  |...repeat(S%)...|
00001570  2e 3d 52 45 43 4f 52 44  24 28 47 25 2c 53 25 29  |.=RECORD$(G%,S%)|
00001580  2b c4 31 31 2d a9 28 52  45 43 4f 52 44 24 28 47  |+.11-.(RECORD$(G|
00001590  25 2c 53 25 29 29 2c 22  20 22 29 0d 0a 1e 05 3a  |%,S%))," ")....:|
000015a0  0d 0a 28 09 dd a4 63 72  63 0d 0a 32 0d 3f 62 75  |..(...crc..2.?bu|
000015b0  66 66 25 3d 32 33 0d 0a  3c 0d 62 75 66 66 25 3f  |ff%=23..<.buff%?|
000015c0  31 3d 30 0d 0a 46 0f 62  75 66 66 25 3f 32 3d 26  |1=0..F.buff%?2=&|
000015d0  36 30 0d 0a 50 12 58 25  3d 62 75 66 66 25 20 83  |60..P.X%=buff% .|
000015e0  20 32 35 36 0d 0a 5a 12  59 25 3d 62 75 66 66 25  | 256..Z.Y%=buff%|
000015f0  20 81 20 32 35 36 0d 0a  64 0a 41 25 3d 26 37 41  | . 256..d.A%=&7A|
00001600  0d 0a 6e 0a d6 26 46 46  46 31 0d 0a 78 0c 3d 62  |..n..&FFF1..x.=b|
00001610  75 66 66 25 3f 33 0d 0a  82 05 3a 0d 0a 8c 10 dd  |uff%?3....:.....|
00001620  a4 64 65 5f 68 61 6d 28  43 25 29 0d 0a 96 0e 3f  |.de_ham(C%)....?|
00001630  62 6c 6f 63 6b 25 3d 32  35 0d 0a a0 0f 62 6c 6f  |block%=25....blo|
00001640  63 6b 25 3f 31 3d 43 25  0d 0a aa 0a 41 25 3d 26  |ck%?1=C%....A%=&|
00001650  37 41 0d 0a b4 13 58 25  3d 62 6c 6f 63 6b 25 20  |7A....X%=block% |
00001660  83 20 32 35 36 0d 0a be  13 59 25 3d 62 6c 6f 63  |. 256....Y%=bloc|
00001670  6b 25 20 81 20 32 35 36  0d 0a c8 0a d6 26 46 46  |k% . 256.....&FF|
00001680  46 31 0d 0a d2 13 3d 62  6c 6f 63 6b 25 3f 32 20  |F1....=block%?2 |
00001690  80 20 26 30 46 0d 0a dc  05 3a 0d 0a e6 0e dd a4  |. &0F....:......|
000016a0  67 65 74 5f 62 79 74 65  0d 0a f0 15 5a 25 3d 62  |get_byte....Z%=b|
000016b0  6c 6f 63 6b 25 3f 6f 66  66 73 65 74 25 0d 0a fa  |lock%?offset%...|
000016c0  15 6f 66 66 73 65 74 25  3d 6f 66 66 73 65 74 25  |.offset%=offset%|
000016d0  2b 31 0d 0b 04 07 3d 5a  25 0d 0b 0e 05 3a 0d 0b  |+1....=Z%....:..|
000016e0  18 10 dd a4 67 65 74 5f  73 74 72 69 6e 67 0d 0b  |....get_string..|
000016f0  22 10 41 25 3d a4 67 65  74 5f 62 79 74 65 0d 0b  |".A%=.get_byte..|
00001700  2c 09 5a 24 3d 22 22 0d  0b 36 0f e3 20 4b 25 3d  |,.Z$=""..6.. K%=|
00001710  31 20 b8 20 41 25 0d 0b  40 16 5a 24 3d 5a 24 2b  |1 . A%..@.Z$=Z$+|
00001720  bd 28 a4 67 65 74 5f 62  79 74 65 29 0d 0b 4a 05  |.(.get_byte)..J.|
00001730  ed 0d 0b 54 07 3d 5a 24  0d ff                    |...T.=Z$..|
0000173a