� 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="CATALOG"
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 13 24 6c 69 6e 65 3d  22 43 41 54 41 4c 4f 47  |`.$line="CATALOG|
00000890  22 0d 04 6a 1f 70 61 67  65 25 28 30 29 3d a0 28  |"..j.page%(0)=.(|
000008a0  22 26 22 2b c3 28 63 61  74 70 61 67 65 25 29 29  |"&"+.(catpage%))|
000008b0  0d 04 74 13 6d 61 67 25  28 30 29 3d 63 61 74 6d  |..t.mag%(0)=catm|
000008c0  61 67 25 0d 04 7e 14 f2  64 6f 77 6e 6c 6f 61 64  |ag%..~..download|
000008d0  28 30 2c 30 2c 30 29 0d  04 88 09 2a 48 4f 46 46  |(0,0,0)....*HOFF|
000008e0  0d 04 92 11 f2 72 65 73  65 74 5f 73 63 72 65 65  |.....reset_scree|
000008f0  6e 0d 04 9c 35 f1 8a 30  2c 32 31 29 bd 31 33 32  |n...5..0,21).132|
00000900  3b bd 31 35 37 3b bd 31  33 34 3b 89 36 3b 22 49  |;.157;.134;.6;"I|
00000910  6e 74 65 72 70 72 65 74  69 6e 67 20 63 61 74 61  |nterpreting cata|
00000920  6c 6f 67 75 65 22 0d 04  a6 14 f1 8a 30 2c 32 32  |logue"......0,22|
00000930  29 bd 31 33 32 3b bd 31  35 37 0d 04 b0 2a f1 8a  |).132;.157...*..|
00000940  30 2c 32 33 29 bd 31 33  32 3b bd 31 35 37 3b bd  |0,23).132;.157;.|
00000950  31 33 34 3b 89 39 3b 22  50 6c 65 61 73 65 20 77  |134;.9;"Please w|
00000960  61 69 74 22 0d 04 ba 23  f4 20 52 65 61 64 20 31  |ait"...#. Read 1|
00000970  73 74 20 32 20 72 65 63  6f 72 64 73 20 61 6e 64  |st 2 records and|
00000980  20 69 67 6e 6f 72 65 0d  04 c4 0d 6f 66 66 73 65  | ignore....offse|
00000990  74 25 3d 30 0d 04 ce 0c  e3 20 4a 25 3d 31 b8 32  |t%=0..... J%=1.2|
000009a0  0d 04 d8 12 41 24 3d a4  67 65 74 5f 73 74 72 69  |....A$=.get_stri|
000009b0  6e 67 0d 04 e2 05 ed 0d  04 ec 1a f4 20 52 65 61  |ng.......... Rea|
000009c0  64 20 66 69 6c 65 73 20  61 76 61 69 6c 61 62 6c  |d files availabl|
000009d0  65 0d 04 f6 0a 4d 41 58  25 3d 30 0d 05 00 05 f5  |e....MAX%=0.....|
000009e0  0d 05 0a 0b 4d 49 53 53  25 3d b9 0d 05 14 23 f4  |....MISS%=....#.|
000009f0  20 53 65 65 20 69 66 20  73 75 69 74 61 62 6c 65  | See if suitable|
00000a00  20 66 6f 72 20 42 42 43  20 6d 69 63 72 6f 0d 05  | for BBC micro..|
00000a10  1e 12 41 24 3d a4 67 65  74 5f 73 74 72 69 6e 67  |..A$=.get_string|
00000a20  0d 05 28 21 e7 20 41 24  3d 22 41 4e 59 22 20 84  |..(!. A$="ANY" .|
00000a30  20 41 24 3d 22 42 42 43  22 20 4d 49 53 53 25 3d  | A$="BBC" MISS%=|
00000a40  a3 0d 05 32 15 e7 20 41  24 3d 22 2a 2a 2a 22 20  |...2.. A$="***" |
00000a50  e5 20 8d 44 72 46 0d 05  3c 0c e3 20 4c 25 3d 30  |. .DrF..<.. L%=0|
00000a60  b8 32 0d 05 46 25 f4 20  52 65 61 64 20 6e 6f 2e  |.2..F%. Read no.|
00000a70  20 6f 66 20 62 79 74 65  73 20 69 6e 20 6e 65 78  | of bytes in nex|
00000a80  74 20 66 69 65 6c 64 0d  05 50 10 41 25 3d a4 67  |t field..P.A%=.g|
00000a90  65 74 5f 62 79 74 65 0d  05 5a 2d e7 20 4c 25 3d  |et_byte..Z-. L%=|
00000aa0  30 20 63 6f 6c 25 28 4d  41 58 25 29 3d a4 67 65  |0 col%(MAX%)=.ge|
00000ab0  74 5f 62 79 74 65 20 84  20 26 38 30 3a 41 25 3d  |t_byte . &80:A%=|
00000ac0  41 25 2d 31 0d 05 64 09  41 24 3d 22 22 0d 05 6e  |A%-1..d.A$=""..n|
00000ad0  0d e3 20 4a 25 3d 31 b8  41 25 0d 05 78 10 42 25  |.. J%=1.A%..x.B%|
00000ae0  3d a4 67 65 74 5f 62 79  74 65 0d 05 82 1e e7 20  |=.get_byte..... |
00000af0  4c 25 3d 30 20 80 20 42  25 3e 36 34 20 42 25 3d  |L%=0 . B%>64 B%=|
00000b00  42 25 20 80 20 26 44 46  0d 05 8c 0f 41 24 3d 41  |B% . &DF....A$=A|
00000b10  24 2b bd 28 42 25 29 0d  05 96 05 ed 0d 05 a0 12  |$+.(B%).........|
00000b20  e7 20 4d 49 53 53 25 20  e5 20 8d 74 7e 45 0d 05  |. MISS% . .t~E..|
00000b30  aa 17 52 45 43 4f 52 44  24 28 4d 41 58 25 2c 4c  |..RECORD$(MAX%,L|
00000b40  25 29 3d 41 24 0d 05 b4  15 f4 20 52 65 61 64 20  |%)=A$..... Read |
00000b50  6e 65 78 74 20 66 69 65  6c 64 0d 05 be 05 ed 0d  |next field......|
00000b60  05 c8 12 e7 20 4d 49 53  53 25 20 e5 20 8d 44 68  |.... MISS% . .Dh|
00000b70  46 0d 05 d2 2d f4 20 4e  65 78 74 20 32 20 66 69  |F...-. Next 2 fi|
00000b80  65 6c 64 73 20 61 72 65  20 4c 4f 41 44 20 26 20  |elds are LOAD & |
00000b90  45 58 45 43 20 61 64 64  72 65 73 73 65 73 0d 05  |EXEC addresses..|
00000ba0  dc 12 f4 20 4c 4f 41 44  20 61 64 64 72 65 73 73  |... LOAD address|
00000bb0  0d 05 e6 0c e3 20 49 25  3d 30 b8 33 0d 05 f0 1c  |..... I%=0.3....|
00000bc0  6c 6f 61 64 25 28 4d 41  58 25 2c 49 25 29 3d a4  |load%(MAX%,I%)=.|
00000bd0  67 65 74 5f 62 79 74 65  0d 05 fa 05 ed 0d 06 04  |get_byte........|
00000be0  12 f4 20 45 58 45 43 20  61 64 64 72 65 73 73 0d  |.. EXEC address.|
00000bf0  06 0e 0c e3 20 49 25 3d  30 b8 33 0d 06 18 1c 65  |.... I%=0.3....e|
00000c00  78 65 63 25 28 4d 41 58  25 2c 49 25 29 3d a4 67  |xec%(MAX%,I%)=.g|
00000c10  65 74 5f 62 79 74 65 0d  06 22 05 ed 0d 06 2c 0e  |et_byte.."....,.|
00000c20  f4 20 4d 61 67 61 7a 69  6e 65 0d 06 36 18 6d 61  |. Magazine..6.ma|
00000c30  67 25 28 4d 41 58 25 29  3d a4 67 65 74 5f 62 79  |g%(MAX%)=.get_by|
00000c40  74 65 0d 06 40 0a f4 20  50 61 67 65 0d 06 4a 19  |te..@.. Page..J.|
00000c50  70 61 67 65 25 28 4d 41  58 25 29 3d a4 67 65 74  |page%(MAX%)=.get|
00000c60  5f 62 79 74 65 0d 06 54  32 e7 20 4d 41 58 25 3c  |_byte..T2. MAX%<|
00000c70  31 38 20 f1 8a 30 2c 4d  41 58 25 29 bd 28 63 6f  |18 ..0,MAX%).(co|
00000c80  6c 25 28 4d 41 58 25 29  29 3b 22 20 20 22 3b a4  |l%(MAX%));"  ";.|
00000c90  70 28 4d 41 58 25 29 0d  06 5e 0f 4d 41 58 25 3d  |p(MAX%)..^.MAX%=|
00000ca0  4d 41 58 25 2b 31 0d 06  68 1e e7 20 4d 49 53 53  |MAX%+1..h.. MISS|
00000cb0  25 20 6f 66 66 73 65 74  25 3d 6f 66 66 73 65 74  |% offset%=offset|
00000cc0  25 2b 31 30 0d 06 72 0e  fd 20 41 24 3d 22 2a 2a  |%+10..r.. A$="**|
00000cd0  2a 22 0d 06 7c 0f 4d 41  58 25 3d 4d 41 58 25 2d  |*"..|.MAX%=MAX%-|
00000ce0  31 0d 06 86 05 e1 0d 06  90 05 3a 0d 06 9a 10 dd  |1.........:.....|
00000cf0  f2 73 61 76 65 5f 66 69  6c 65 73 0d 06 a4 08 55  |.save_files....U|
00000d00  25 3d 30 0d 06 ae 0f e3  20 4c 25 3d 30 b8 4d 41  |%=0..... L%=0.MA|
00000d10  58 25 0d 06 b8 18 e7 20  73 24 28 4c 25 29 3c 3e  |X%..... s$(L%)<>|
00000d20  22 2a 22 20 e5 20 8d 64  7e 46 0d 06 c2 11 f2 72  |"*" . .d~F.....r|
00000d30  65 73 65 74 5f 73 63 72  65 65 6e 0d 06 cc 6a f1  |eset_screen...j.|
00000d40  8a 30 2c 32 29 bd 31 33  32 3b bd 31 35 37 3b bd  |.0,2).132;.157;.|
00000d50  31 33 34 3b 22 44 6f 77  6e 6c 6f 61 64 69 6e 67  |134;"Downloading|
00000d60  22 3b bd 28 63 6f 6c 25  28 4c 25 29 29 3b 52 45  |";.(col%(L%));RE|
00000d70  43 4f 52 44 24 28 4c 25  2c 30 29 3b bd 31 33 34  |CORD$(L%,0);.134|
00000d80  3b 22 66 72 6f 6d 20 50  41 47 45 20 22 3b 6d 61  |;"from PAGE ";ma|
00000d90  67 25 28 4c 25 29 3b 7e  70 61 67 65 25 28 4c 25  |g%(L%);~page%(L%|
00000da0  29 3b 22 2e 22 0d 06 d6  51 f1 8a 30 2c 33 29 bd  |);"."...Q..0,3).|
00000db0  31 33 32 3b bd 31 35 37  3b bd 31 33 31 3b 55 25  |132;.157;.131;U%|
00000dc0  3b bd 31 33 34 3b 22 6f  75 74 20 6f 66 22 3b bd  |;.134;"out of";.|
00000dd0  31 33 31 3b 73 65 6c 65  63 74 65 64 25 3b bd 31  |131;selected%;.1|
00000de0  33 34 3b 22 66 69 6c 65  73 20 64 6f 77 6e 6c 6f  |34;"files downlo|
00000df0  61 64 65 64 2e 22 0d 06  e0 17 24 6c 69 6e 65 3d  |aded."....$line=|
00000e00  52 45 43 4f 52 44 24 28  4c 25 2c 30 29 0d 06 ea  |RECORD$(L%,0)...|
00000e10  15 f2 64 6f 77 6e 6c 6f  61 64 28 4c 25 2c 31 2c  |..download(L%,1,|
00000e20  30 29 0d 06 f4 0b 55 25  3d 55 25 2b 31 0d 06 fe  |0)....U%=U%+1...|
00000e30  05 ed 0d 07 08 05 e1 0d  07 12 05 3a 0d 07 1c 12  |...........:....|
00000e40  dd f2 72 65 73 65 74 5f  73 63 72 65 65 6e 0d 07  |..reset_screen..|
00000e50  26 07 ef 32 36 0d 07 30  07 ef 31 32 0d 07 3a 05  |&..26..0..12..:.|
00000e60  e1 0d 07 44 05 3a 0d 07  4e 0f dd f2 73 65 6c 65  |...D.:..N...sele|
00000e70  63 74 69 6f 6e 0d 07 58  09 2a 46 58 31 39 0d 07  |ction..X.*FX19..|
00000e80  62 10 41 24 3d bd 31 33  32 2b bd 31 35 37 0d 07  |b.A$=.132+.157..|
00000e90  6c 3e f1 8a 30 2c 31 39  29 41 24 3b bd 31 33 34  |l>..0,19)A$;.134|
00000ea0  3b 22 55 73 65 22 3b bd  31 33 31 3b 22 55 50 2f  |;"Use";.131;"UP/|
00000eb0  44 4f 57 4e 22 3b bd 31  33 34 3b 22 6b 65 79 73  |DOWN";.134;"keys|
00000ec0  20 74 6f 20 73 63 72 6f  6c 6c 2c 22 0d 07 76 37  | to scroll,"..v7|
00000ed0  f1 8a 30 2c 32 30 29 41  24 3b bd 31 33 31 3b 22  |..0,20)A$;.131;"|
00000ee0  20 20 20 20 52 45 54 55  52 4e 22 3b bd 31 33 34  |    RETURN";.134|
00000ef0  3b 22 20 74 6f 20 73 65  6c 65 63 74 20 66 69 6c  |;" to select fil|
00000f00  65 2c 22 0d 07 80 3a f1  8a 30 2c 32 31 29 41 24  |e,"...:..0,21)A$|
00000f10  3b bd 31 33 31 3b 22 20  20 20 20 53 50 41 43 45  |;.131;"    SPACE|
00000f20  22 3b bd 31 33 34 3b 22  20 20 74 6f 20 64 65 2d  |";.134;"  to de-|
00000f30  73 65 6c 65 63 74 20 66  69 6c 65 2c 22 0d 07 8a  |select file,"...|
00000f40  38 f1 8a 30 2c 32 32 29  41 24 3b bd 31 33 31 3b  |8..0,22)A$;.131;|
00000f50  22 20 20 20 20 40 20 20  20 20 20 20 22 3b bd 31  |"    @      ";.1|
00000f60  33 34 3b 22 74 6f 20 73  74 61 72 74 20 73 61 76  |34;"to start sav|
00000f70  69 6e 67 2e 22 0d 07 94  40 f1 8a 30 2c 32 33 29  |ing."...@..0,23)|
00000f80  bd 31 33 34 3b bd 31 35  37 3b bd 31 33 32 3b 22  |.134;.157;.132;"|
00000f90  20 20 20 20 2a 20 20 20  20 20 20 20 69 6e 64 69  |    *       indi|
00000fa0  63 61 74 65 73 20 73 65  6c 65 63 74 65 64 20 66  |cates selected f|
00000fb0  69 6c 65 73 22 0d 07 9e  11 ef 32 38 2c 30 2c 31  |iles".....28,0,1|
00000fc0  38 2c 33 39 2c 30 0d 07  a8 24 f1 8a 30 2c 30 29  |8,39,0...$..0,0)|
00000fd0  bd 28 63 6f 6c 25 28 30  29 29 3b bd 31 35 37 3b  |.(col%(0));.157;|
00000fe0  bd 31 33 32 3b a4 70 28  30 29 0d 07 b2 0a 2a 46  |.132;.p(0)....*F|
00000ff0  58 34 2c 31 0d 07 bc 0e  70 6f 69 6e 74 65 72 25  |X4,1....pointer%|
00001000  3d 30 0d 07 c6 0d 63 75  72 73 6f 72 25 3d 30 0d  |=0....cursor%=0.|
00001010  07 d0 0f 73 65 6c 65 63  74 65 64 25 3d 30 0d 07  |...selected%=0..|
00001020  da 0c 65 6e 64 65 64 25  3d a3 0d 07 e4 05 f5 0d  |..ended%=.......|
00001030  07 ee 1d e7 20 a6 28 2d  35 38 29 20 80 20 70 6f  |.... .(-58) . po|
00001040  69 6e 74 65 72 25 3e 30  20 f2 75 70 0d 07 f8 22  |inter%>0 .up..."|
00001050  e7 20 a6 28 2d 34 32 29  20 80 20 70 6f 69 6e 74  |. .(-42) . point|
00001060  65 72 25 3c 4d 41 58 25  20 f2 64 6f 77 6e 0d 08  |er%<MAX% .down..|
00001070  02 17 e7 20 a6 28 2d 39  39 29 20 f2 73 65 6c 65  |... .(-99) .sele|
00001080  63 74 28 30 29 0d 08 0c  17 e7 20 a6 28 2d 37 34  |ct(0)..... .(-74|
00001090  29 20 f2 73 65 6c 65 63  74 28 31 29 0d 08 16 15  |) .select(1)....|
000010a0  e7 20 a6 28 2d 37 32 29  20 65 6e 64 65 64 25 3d  |. .(-72) ended%=|
000010b0  b9 0d 08 20 0c fd 20 65  6e 64 65 64 25 0d 08 2a  |... .. ended%..*|
000010c0  0b 2a 46 58 32 31 2c 30  0d 08 34 05 e1 0d 08 3e  |.*FX21,0..4....>|
000010d0  05 3a 0d 08 48 08 dd f2  75 70 0d 08 52 a9 e7 20  |.:..H...up..R.. |
000010e0  63 75 72 73 6f 72 25 3e  30 20 63 75 72 73 6f 72  |cursor%>0 cursor|
000010f0  25 3d 63 75 72 73 6f 72  25 2d 31 3a 70 6f 69 6e  |%=cursor%-1:poin|
00001100  74 65 72 25 3d 70 6f 69  6e 74 65 72 25 2d 31 3a  |ter%=pointer%-1:|
00001110  f1 8a 30 2c 63 75 72 73  6f 72 25 2b 31 29 bd 28  |..0,cursor%+1).(|
00001120  63 6f 6c 25 28 70 6f 69  6e 74 65 72 25 2b 31 29  |col%(pointer%+1)|
00001130  29 3b 22 20 20 22 3b a4  70 28 70 6f 69 6e 74 65  |);"  ";.p(pointe|
00001140  72 25 2b 31 29 3a f1 8a  30 2c 63 75 72 73 6f 72  |r%+1):..0,cursor|
00001150  25 29 bd 28 63 6f 6c 25  28 70 6f 69 6e 74 65 72  |%).(col%(pointer|
00001160  25 29 29 3b bd 31 35 37  3b bd 31 33 32 3b a4 70  |%));.157;.132;.p|
00001170  28 70 6f 69 6e 74 65 72  25 29 3a f2 64 65 6c 61  |(pointer%):.dela|
00001180  79 3a e1 0d 08 5c 24 e7  20 70 6f 69 6e 74 65 72  |y:...\$. pointer|
00001190  25 3e 30 20 70 6f 69 6e  74 65 72 25 3d 70 6f 69  |%>0 pointer%=poi|
000011a0  6e 74 65 72 25 2d 31 0d  08 66 32 f1 8a 30 2c 30  |nter%-1..f2..0,0|
000011b0  29 bd 28 63 6f 6c 25 28  70 6f 69 6e 74 65 72 25  |).(col%(pointer%|
000011c0  29 29 3b bd 31 35 37 3b  bd 31 33 32 3b a4 70 28  |));.157;.132;.p(|
000011d0  70 6f 69 6e 74 65 72 25  29 0d 08 70 08 4a 25 3d  |pointer%)..p.J%=|
000011e0  31 0d 08 7a 1f e3 20 49  25 3d 70 6f 69 6e 74 65  |1..z.. I%=pointe|
000011f0  72 25 2b 31 b8 70 6f 69  6e 74 65 72 25 2b 31 37  |r%+1.pointer%+17|
00001200  0d 08 84 21 f1 8a 30 2c  4a 25 29 bd 28 63 6f 6c  |...!..0,J%).(col|
00001210  25 28 49 25 29 29 3b 22  20 20 22 a4 70 28 49 25  |%(I%));"  ".p(I%|
00001220  29 0d 08 8e 0b 4a 25 3d  4a 25 2b 31 0d 08 98 05  |)....J%=J%+1....|
00001230  ed 0d 08 a2 05 e1 0d 08  ac 05 3a 0d 08 b6 0a dd  |..........:.....|
00001240  f2 64 6f 77 6e 0d 08 c0  aa e7 20 63 75 72 73 6f  |.down..... curso|
00001250  72 25 3c 31 37 20 63 75  72 73 6f 72 25 3d 63 75  |r%<17 cursor%=cu|
00001260  72 73 6f 72 25 2b 31 3a  70 6f 69 6e 74 65 72 25  |rsor%+1:pointer%|
00001270  3d 70 6f 69 6e 74 65 72  25 2b 31 3a f1 8a 30 2c  |=pointer%+1:..0,|
00001280  63 75 72 73 6f 72 25 2d  31 29 bd 28 63 6f 6c 25  |cursor%-1).(col%|
00001290  28 70 6f 69 6e 74 65 72  25 2d 31 29 29 3b 22 20  |(pointer%-1));" |
000012a0  20 22 3b a4 70 28 70 6f  69 6e 74 65 72 25 2d 31  | ";.p(pointer%-1|
000012b0  29 3a f1 8a 30 2c 63 75  72 73 6f 72 25 29 bd 28  |):..0,cursor%).(|
000012c0  63 6f 6c 25 28 70 6f 69  6e 74 65 72 25 29 29 3b  |col%(pointer%));|
000012d0  bd 31 35 37 3b bd 31 33  32 3b a4 70 28 70 6f 69  |.157;.132;.p(poi|
000012e0  6e 74 65 72 25 29 3a f2  64 65 6c 61 79 3a e1 0d  |nter%):.delay:..|
000012f0  08 ca 27 e7 20 70 6f 69  6e 74 65 72 25 3c 4d 41  |..'. pointer%<MA|
00001300  58 25 20 70 6f 69 6e 74  65 72 25 3d 70 6f 69 6e  |X% pointer%=poin|
00001310  74 65 72 25 2b 31 0d 08  d4 08 4a 25 3d 30 0d 08  |ter%+1....J%=0..|
00001320  de 1f e3 20 49 25 3d 70  6f 69 6e 74 65 72 25 2d  |... I%=pointer%-|
00001330  31 37 b8 70 6f 69 6e 74  65 72 25 2d 31 0d 08 e8  |17.pointer%-1...|
00001340  22 f1 8a 30 2c 4a 25 29  bd 28 63 6f 6c 25 28 49  |"..0,J%).(col%(I|
00001350  25 29 29 3b 22 20 20 22  3b a4 70 28 49 25 29 0d  |%));"  ";.p(I%).|
00001360  08 f2 0b 4a 25 3d 4a 25  2b 31 0d 08 fc 05 ed 0d  |...J%=J%+1......|
00001370  09 06 33 f1 8a 30 2c 4a  25 29 bd 28 63 6f 6c 25  |..3..0,J%).(col%|
00001380  28 70 6f 69 6e 74 65 72  25 29 29 3b bd 31 35 37  |(pointer%));.157|
00001390  3b bd 31 33 32 3b a4 70  28 70 6f 69 6e 74 65 72  |;.132;.p(pointer|
000013a0  25 29 0d 09 10 05 e1 0d  09 1a 05 3a 0d 09 24 0b  |%).........:..$.|
000013b0  dd f2 64 65 6c 61 79 0d  09 2e 07 d1 3d 30 0d 09  |..delay.....=0..|
000013c0  38 05 f5 0d 09 42 08 fd  91 3e 35 0d 09 4c 05 e1  |8....B...>5..L..|
000013d0  0d 09 56 05 3a 0d 09 60  10 dd f2 73 65 6c 65 63  |..V.:..`...selec|
000013e0  74 28 53 25 29 0d 09 6a  1f e7 20 53 25 3d 30 20  |t(S%)..j.. S%=0 |
000013f0  80 20 73 24 28 70 6f 69  6e 74 65 72 25 29 3d 22  |. s$(pointer%)="|
00001400  20 22 20 e1 0d 09 74 1f  e7 20 53 25 3d 31 20 80  | " ...t.. S%=1 .|
00001410  20 73 24 28 70 6f 69 6e  74 65 72 25 29 3d 22 2a  | s$(pointer%)="*|
00001420  22 20 e1 0d 09 7e 5b e7  20 53 25 3d 30 20 73 24  |" ...~[. S%=0 s$|
00001430  28 70 6f 69 6e 74 65 72  25 29 3d 22 20 22 3a 73  |(pointer%)=" ":s|
00001440  65 6c 65 63 74 65 64 25  3d 73 65 6c 65 63 74 65  |elected%=selecte|
00001450  64 25 2d 31 3a 20 8b 20  73 24 28 70 6f 69 6e 74  |d%-1: . s$(point|
00001460  65 72 25 29 3d 22 2a 22  3a 73 65 6c 65 63 74 65  |er%)="*":selecte|
00001470  64 25 3d 73 65 6c 65 63  74 65 64 25 2b 31 0d 09  |d%=selected%+1..|
00001480  88 38 f1 8a 30 2c 63 75  72 73 6f 72 25 29 bd 28  |.8..0,cursor%).(|
00001490  63 6f 6c 25 28 70 6f 69  6e 74 65 72 25 29 29 3b  |col%(pointer%));|
000014a0  bd 31 35 37 3b bd 31 33  32 3b a4 70 28 70 6f 69  |.157;.132;.p(poi|
000014b0  6e 74 65 72 25 29 0d 09  92 05 e1 0d 09 9c 05 3a  |nter%).........:|
000014c0  0d 09 a6 0b dd f2 65 72  72 6f 72 0d 09 b0 0b 2a  |......error....*|
000014d0  54 54 58 4f 46 46 0d 09  ba 11 f2 72 65 73 65 74  |TTXOFF.....reset|
000014e0  5f 73 63 72 65 65 6e 0d  09 c4 2d f1 8a 35 2c 35  |_screen...-..5,5|
000014f0  29 bd 31 33 31 3b 22 45  72 72 6f 72 20 65 6e 63  |).131;"Error enc|
00001500  6f 75 6e 74 65 72 65 64  20 61 74 20 6c 69 6e 65  |ountered at line|
00001510  20 22 3b 9e 0d 09 ce 05  e0 0d 09 d8 05 e1 0d 09  | ";.............|
00001520  e2 05 3a 0d 09 ec 0b dd  a4 70 28 47 25 29 0d 09  |..:......p(G%)..|
00001530  f6 31 3d 73 24 28 47 25  29 2b a4 72 65 70 65 61  |.1=s$(G%)+.repea|
00001540  74 28 30 29 2b a4 72 65  70 65 61 74 28 31 29 2b  |t(0)+.repeat(1)+|
00001550  a4 72 65 70 65 61 74 28  32 29 2b bd 31 35 36 0d  |.repeat(2)+.156.|
00001560  0a 00 05 3a 0d 0a 0a 10  dd a4 72 65 70 65 61 74  |...:......repeat|
00001570  28 53 25 29 0d 0a 14 2e  3d 52 45 43 4f 52 44 24  |(S%)....=RECORD$|
00001580  28 47 25 2c 53 25 29 2b  c4 31 31 2d a9 28 52 45  |(G%,S%)+.11-.(RE|
00001590  43 4f 52 44 24 28 47 25  2c 53 25 29 29 2c 22 20  |CORD$(G%,S%))," |
000015a0  22 29 0d 0a 1e 05 3a 0d  0a 28 09 dd a4 63 72 63  |")....:..(...crc|
000015b0  0d 0a 32 0d 3f 62 75 66  66 25 3d 32 33 0d 0a 3c  |..2.?buff%=23..<|
000015c0  0d 62 75 66 66 25 3f 31  3d 30 0d 0a 46 0f 62 75  |.buff%?1=0..F.bu|
000015d0  66 66 25 3f 32 3d 26 36  30 0d 0a 50 12 58 25 3d  |ff%?2=&60..P.X%=|
000015e0  62 75 66 66 25 20 83 20  32 35 36 0d 0a 5a 12 59  |buff% . 256..Z.Y|
000015f0  25 3d 62 75 66 66 25 20  81 20 32 35 36 0d 0a 64  |%=buff% . 256..d|
00001600  0a 41 25 3d 26 37 41 0d  0a 6e 0a d6 26 46 46 46  |.A%=&7A..n..&FFF|
00001610  31 0d 0a 78 0c 3d 62 75  66 66 25 3f 33 0d 0a 82  |1..x.=buff%?3...|
00001620  05 3a 0d 0a 8c 10 dd a4  64 65 5f 68 61 6d 28 43  |.:......de_ham(C|
00001630  25 29 0d 0a 96 0e 3f 62  6c 6f 63 6b 25 3d 32 35  |%)....?block%=25|
00001640  0d 0a a0 0f 62 6c 6f 63  6b 25 3f 31 3d 43 25 0d  |....block%?1=C%.|
00001650  0a aa 0a 41 25 3d 26 37  41 0d 0a b4 13 58 25 3d  |...A%=&7A....X%=|
00001660  62 6c 6f 63 6b 25 20 83  20 32 35 36 0d 0a be 13  |block% . 256....|
00001670  59 25 3d 62 6c 6f 63 6b  25 20 81 20 32 35 36 0d  |Y%=block% . 256.|
00001680  0a c8 0a d6 26 46 46 46  31 0d 0a d2 13 3d 62 6c  |....&FFF1....=bl|
00001690  6f 63 6b 25 3f 32 20 80  20 26 30 46 0d 0a dc 05  |ock%?2 . &0F....|
000016a0  3a 0d 0a e6 0e dd a4 67  65 74 5f 62 79 74 65 0d  |:......get_byte.|
000016b0  0a f0 15 5a 25 3d 62 6c  6f 63 6b 25 3f 6f 66 66  |...Z%=block%?off|
000016c0  73 65 74 25 0d 0a fa 15  6f 66 66 73 65 74 25 3d  |set%....offset%=|
000016d0  6f 66 66 73 65 74 25 2b  31 0d 0b 04 07 3d 5a 25  |offset%+1....=Z%|
000016e0  0d 0b 0e 05 3a 0d 0b 18  10 dd a4 67 65 74 5f 73  |....:......get_s|
000016f0  74 72 69 6e 67 0d 0b 22  10 41 25 3d a4 67 65 74  |tring..".A%=.get|
00001700  5f 62 79 74 65 0d 0b 2c  09 5a 24 3d 22 22 0d 0b  |_byte..,.Z$=""..|
00001710  36 0f e3 20 4b 25 3d 31  20 b8 20 41 25 0d 0b 40  |6.. K%=1 . A%..@|
00001720  16 5a 24 3d 5a 24 2b bd  28 a4 67 65 74 5f 62 79  |.Z$=Z$+.(.get_by|
00001730  74 65 29 0d 0b 4a 05 ed  0d 0b 54 07 3d 5a 24 0d  |te)..J....T.=Z$.|
00001740  ff                                                |.|
00001741