��TjM
� PAGE GRABBER
� By J R Crellin
("� Based on News by R J J Orton
2� Version 2
<filesystem=�fs
FL� filesystem<>4 � filesystem<>8 � �error(100,"Only ADFS or DFS please!")
P$� filesystem=8 � ADFS=� � ADFS=�
Z� � ADFS ��tL@
d��tTL
n*DIR $.pages
x��dZL
�*DIR $.frames
���TjM
�� 7
�D%=1
�	�init
�D%=2
��choose
�D%=3
��grabber
�D%=4
��display
��error(200,"FINISHED")
��

:


��init


*FX4,1

"�=0

,,np%=30:save%=1:shown%=0:stime%=�+1000000

6� block% 18,ospace 100

@� list%(np%-1)

J� N%=0 � np%-1

T
� x 79

^� n%= x � x+75 � 4

h	!n%=0

r�

|list%(N%)=x

��

�
� P%(np%)

�
P%(np%)=0

�>� sp%(np%),lsp%(np%),cp%(5),dp%(7),round%(np%),finds%(np%)

�� N%= 0 � np%

�2sp%(N%)=0:lsp%(N%)=0:round%(N%)=0:finds%(N%)=0

��

�
� X%-1

�+�print(0,10,"Enter channel required",6)

��1,13)�130;">>";

�
�""CH%

�� CH%>4 � CH%<1 � �:�dVA

�!� CH%>2 � CRCsig=� � CRCsig=�
	��DxT
�
�
&� X$
0� X$="#"
:� X$
D� �(X$)=CH%
N� CH%>2 � rows=24 � rows=30
X
*TTXON
b�oscli("CH"+�(CH%))
l
?block%=7
vblock%?1=rows
��ow:� no of rows
�space=�-X%-1200
�rec%=space � (30*42+10)
�� rec%>20 � rec%=20
�rec%=rec%-2
�� record(rec%),pt%(rec%)
�� N%=0�rec%
�
� x 30*42
�record(N%)=x
��
�space=record(0)
��
�:

��grabber
�
*HON
 �off
*�0,1)"�Searching for:-";
4"?block%=14:�ow:� clear records
>B%=0
H�
RPB%=P%(B%)
\�setup(B%,PB%,B%)
fB%=B%+1
p� P%(B%)=0 � B%>rec%
z
rec%=B%-1
�
�check
��
�:
���setup(E%,p%,ln%)
�pt%(E%)=ln%
��0,E%+3)"�P"�(p%);�(39-�);
��setrec(E%,p%)
��
�:
���ow
�� A%,X%,Y%
�X%=block% � 256
�Y%=block% � 256

A%=&7A
� &FFF1
�
$:
.
ݤbcd(X%)
8� X%>99 � �error(99,"!!!")
Btopnib%=X% � 10
Lbotnib%=X% � 10
V=topnib%*16+botnib%
`:
j��error(X%,X$)
t$space=�0+�(X%)+X$+�0
~� space
��
�:
���check
�� E%
��
�finished=�
�� E%=0 � rec%
�<� (finds%(pt%(E%))=0) � (�-stime%>10000) � P%(pt%(E%))=0
�� P%(pt%(E%))=0 � �dvD
�finished = �
�� �ready(E%) � �save(E%)
��
� finished

�
:
	��crc
(� l%
2� CRC=0 � list%(R%)?L%=0:�
<l%=list%(R%)?L%
F#� l%=0 � list%(R%)?L%=CRC:�DnE
P&� l%>&FD � list%(R%)?L%=l%-1:�DnE
Z#� l%=&FD � list%(R%)?L%=0:�DnE
d�
n�rep(CRC,list%(R%)?L%)
x�
�:
���save(Y%)
�� L%,N%,R%
�R%=pt%(Y%)
�/?block%=3:block%?1=Y%:block%?2=1:�ow:� HOLD
�4SP%=�sp(record(Y%)):� MAX%>0 � sp%(Y%)=MAX%+&100
�� SP%>79 � SP%<0 � SP%=0
�%�0,22)�132�(P%(R%))"/"�(SP%)"  "
�:� sp%(R%)>0 � � (SP%=0 � lsp%(R%)<>0) � SP%=lsp%(R%)+1
�L%=SP%-1:� L%=-1 � L%=0
�)� CRC>0 � (list%(R%)?(L%)>240) � �crc
�f� SP%=0 � (?list%(R%)=0 � round%(R%)=3) � ?list%(R%)=save%:�ssave:P%(R%)=0:�setupanother(Y%):�tdF
�6� (list%(R%)?(L%))=0 � list%(R%)?(L%)=save%:�ssave
/� ((sp%(R%) � &FF)<SP%) � sp%(R%)=SP%:�tFF
,� SP%<lsp%(R%) � sp%(R%)=lsp%(R%) � &100
5� SP%=0 � (SP%<lsp%(R%)) �round%(R%)=round%(R%)+1
""l%=sp%(R%) � &FF:� l%=0 � l%=1
,:� (finds%(R%) � l%) > 5 � �fillin(R%):complete=�:�D|F
6'� (sp%(R%) � &100)=0 � SP%=0 � �tFF
@complete=�
J� N%=1 � (sp%(R%) � &FF)
Tl%=list%(R%)?(N%-1)
^ � l%=0 � l%>240 � complete=�
h�
r+� round%(R%)>4 � �fillin(R%):complete=�
|K� complete � P%(R%)=0:�7,Y%+3)"�found"�(39-�);:�setupanother(Y%):�tdF
�(?block%=3:block%?1=Y%:block%?2=0:�ow
�lsp%(R%)=SP%
�finds%(R%)=finds%(R%)+1
��
�:
���setupanother(X%)
�� P%(B%)=0 � stime%=�:�
�PB%=P%(B%)
��setup(X%,PB%,B%)
�B%=B%+1
��
�:
���ssave
�1,0)�(P%(R%));
;� (sp%(R%) � &100) � X$=" of "+�(sp%(R%) � &FF) � X$=""
X� SP%=0 ��7,Y%+3)"�found";�(39-�); � �7,Y%+3)"�Subpage�";�(SP%);X$"�found"�(39-�);
&X$=�dir(save%)
0� save%>240 � �tvM
:;�oscli ("SAVE "+X$+�(save%)+" "+�~(record(Y%))+" +4E0")
Dsave%=save%+1
N�
X:
b��rep(C,E%)
l/� C=&FF � M$=" No CRC   " � M$=" Bad CRC  "
v5�0,18)�129;�(P%(R%))"/"�(SP%)M$;�132;�~(E%)"   "
��
�:
�
��display
�
� �T|T
�� n%=1 � CH%
�	� CH$
��
�	*HOFF
�?block%=14:�ow
�� N%,n%,next%,X%
�� N%=0 � np%-1
�n%=0
��
next%=list%(N%)?n%
� next%=0 � �dJH
<� next%=&FF � �26,12:�print(2,10,"MISSING PAGE",5):�DzH
 X$=�dir(next%)
*(� next%>240 � �error(100,"Run out!")
4shown%=shown%+1
>-�oscli("LOAD "+X$+�(next%)+" "+�~(space))
H �oscli("DISPLAY "+�~(space))
R!�0,0)�134;�fulp(space);�135;
\�w
f,�"�RETURN(print) TAB(dump) ](next) R [";
p�off
z$� X$=�:� �"bBsSrR ��"+�9+�13,X$)
�� X$=�9 � �dumproutine(1)
�� X$=�13 � �dumproutine(2)
�,� X$="�" � X$="b" � X$="B" � �back:�dJH
�%� X$="r" � X$="R" � �reveal:�DzH
�Q� � ADFS �(X$="s" � X$="S") � �oscli("SAVE "+�fulp(space)+" 7C00 8000"):�DzH
�^� ADFS �(X$="s" � X$="S") � �oscli("SAVE "+"^.pages."+CH$+�fulp(space)+" 7C00 8000"):�DzH
�n%=n%+1
�
� next%=0
��
��
�:
�
��back
�� n%>0 � n%=n%-1:�
	� N%>0 � N%=N%-2:next%=0
	�
	:
	$ݤfulp(E%)
	.� S%,P%
	8P%=100*?E%
	BS%=E%?2
	L&P%=P%+(S% � &F0)*10 �16 +(S% � &F)
	VS%=�sp(E%)
	`*� S%>0 �=�(P%)+"/"+�(�sp(E%)) � =�(P%)
	j:
	tݤsp(E%)
	~� S%
	�	S%=75
	�found=�
	��
	�S%=S%+1
	�#� ((E%?S%)� &7F)=�"/" � found=�
	�� found � S%=85
	�#� � found � SP%=0:MAX%=-1:�dbI
	�SP%=�eval(S%-2)
	�MAX%=�eval(S%+1)
	�S%=E%?4
	�'SP2%=(S% � &70) *10 � 16 +(S% � &F)
	�S%=E%?3
2SP2%=SP2%+(S% � &30) *1000 � 16 +(S% � &F)*100

� SP%<=0 � SP%>79 �=SP2%
� SP2%=0 � =SP%
� SP%<>SP2% � = SP2%
(=SP%
2:
<ݤeval(C%)
F� S%,U%
PU%=0:S%=(E%?C%)� &7F
Z#� S%>&2F � S%<&3A � U%=(S%-&30)
dS%=(E%?(C%+1)) � &7F
n)� S%>&2F � S%<&3A � U%=U%*10+(S%-&30)
x=U%
�:
���choose
�R%=0
�*HON
�?block%=14:�ow
�N%=0
��
�� X$
�� X$="!" � �TDK
�� N%=rec% � X$="!":�TDK
�N%=N%+1
�P%=�(X$)
�dp%(N%)=P%:�setrec(N%,P%)
� X$="!"
E%=1
�
"� X$
,cp%(E%)=�(X$)
6E%=E%+1
@� X$="#"
J�
Tfinished =�
^� E%=1 � N%
h� R%>=30 � �tFK
rL� (dp%(E%) � &1000)=0 �� �ready(E%) � dp%(E%)=dp%(E%) � &1000:�input(E%)
|'� (dp%(E%) � &1000)=0 � finished =�
��
�� finished
�R%=0
��
�:
���input(Y%)
�%�oscli("DISPLAY "+�~(record(Y%)))
��setrec(Y%,0):� clear?
��off
�current%=dp%(Y%) �&FFF
��0,0)"�"�(current%);
��w
�	fin=�
�
X%=�checkpage
� X%=0 � fin=�:�DbL
&� n%=0 � R%-1
0(� X%=P%(n%) � �7:�"Chosen!  ";:�DbL
:�
D
P%(R%)=X%
NR%=R%+1
X� R%>=30 � fin=�
b	� fin
ldp%(Y%)=&1000
v�26
��
�:
�� �<>214 � �TjM
�*CDIR pages
�*CDIR pages.BBC1
�*CDIR pages.BBC2
�*CDIR pages.ITV
�*CDIR pages.CH4
��
�� �<>214 � �TjM
�*CDIR frames
�*CDIR frames.41
�*CDIR frames.42

*CDIR frames.43

*CDIR frames.44

*CDIR frames.45

 �

*

4	*HOFF

>�3

H� 7

R� �=17 � �(-2) � �DfM

\*� � =17 � �=179 � �=198 � �=190 � �tlM

f*TTXOFF

p�'''

z*FX4

�� ADFS �*DIR ^

��

��" at "�

��

���TjM

�� D% � �DfM,�tt@,�d@M,�DfM

��cleanup:�d\@

�:

���print(X%,Y%,X$,C%)

��X%,Y%)�141;�(128+C%);X$

��X%,Y%+1)�141;�(128+C%);X$

��

�:
��setrec(N%,P%)
(?block%=2:block%?1=N%:block%?2=0:�ow
&� (block%?2 � 4)=4 ��del(20):�TPN
$
?block%=5
.block%?1=N%
8block%?2=P% � 100
Bblock%?3=�bcd(P% � 100)
Lblock%?4=&3F
Vblock%?5=&7F
`block%?6=record(N%) � 256
jblock%?7=record(N%) � 256
t�ow
~
?block%=3
�block%?1=N%
�block%?2=0
��ow:� init flag
��
�:
�ݤready(X%)
�� N%,n%
�	CRC=0
�
?block%=2
�block%?1=X%
�block%?2=0
��ow:� check flag
'� (block%?2 � 4)=4 � �del(20):�dXN

� (block%?2 � 2)=0 � =�
?block%=23
block%?1=record(X%) � 256
(block%?2=record(X%) � 256
2block%?3=0
<�ow
FN%=block%?3
P� N%=1 � =�
Z� n%=909 � 1256 �4
drecord(X%)!n%=0
n�
x� � CRCsig � =�
�CRC=&FF:record(X%)?10=�"!"
�'�N%=&FF �record(X%)?11=�"!":CRC=&FE
�=�
�:
���w:�28,0,24,39,24:�
�!��off:�23,1,0,0,0,0,0,0,0,0:�
� ��on:�23,1,1,0,0,0,0,0,0,0:�
�:
�
��cleanup
�� E%= 0 � np%-1
�� P%(E%)=0 � �TDP
�H� sp%(E%)=0 � (?list%(E%)=0 � ?list%(E%)>240) � ?list%(E%)=&FF:�TDP
��fillin(E%)
�
�
:
"��fillin(R%)
,� N%
6� N%=1 � (sp%(R%) � &FF)
@H� (list%(R%)?(N%-1)=0 � list%(R%)?(N%-1)>240) � list%(R%)?(N%-1)=&FF
J�
T�
^:
h��request(X%)
r� E%
|ok=�:� � �wildset ��
�chan%=0
�� X%=0 � X%=current%
�� E%= 1 � N%
�� dp%(E%)=X% � chan%=E%
��
�� chan%=0 � �setrec(0,X%)
��0,0)"�"�(X%);
�� ��ready(chan%)
�(�oscli("DISPLAY "+�~(record(chan%)))
��off
�current%=X%
��0,0)"�"�(X%);
��w
dp%(chan%)=&1000
�
:
&ݤcheckpage
0�
:�"Enter page required >>"X$
D> � �X$,1)="#" � �request(�(�X$,�(X$)-1))):�DXQ � X%=�(X$)
Nok=�wildset
X� ok
b=X%
l:
v
ݤwildset
�� E%,ok
�
E%=1:ok=�
�� X%=0 � =�
�T%=(X% � 100)*100
��
�� T%=cp%(E%) � ok=�
�E%=E%+1
�� cp%(E%)=0
�� � ok � �7
�=ok
�:
���hold(E%)
�
?block%=3
block%?1=E%
block%?2=block%?2 � 1
block%?2=(block%?2) � 1
 �
*:
4
��del(T%)
>T%=�+T%
H
� � �>=T%
R�
\:
f��reveal
p�n%
z� n%=&7C00 � &7FFF
�� ?n%=152 � ?n%=32
��
��
�:
�ݤfs
�
A%=0:Y%=0
�A%=�(&FFDA)
�
=A% � &FF
�:
�
ݤdir(n%)
�
� dir%
�dir%=(n%-1) � 40
�� dir%=0 � =""
dir%=dir%+40
=�(dir%)+"."
:
$��oscli(X$)
.� X%,Y%
8$ospace=X$
BX%=ospace � 256
LY%=ospace � 256
V� &FFF7
`�
j:
t��dumproutine(X%)
~#� Commands here are for "MYROM"
�(� Insert suitable commands for other
�� screendump roms
�� X%=1 � �dDS
�� Text only dump
�	*TEXT
��
�� �(-1) � �T@T
�� �(-2) � �T^T
�� Screen image
�
*IMAGE
��
� � <SHIFT> makes blue = black
*IMAGE NOBLUE

�
 � <CTRL> gives inverted dump
*IMAGE INVERT
(�
2:
<�"BBC1","BBC2","ITV","CH4"
F:
P'� Data sets default index pages and
Z� allowed page numbers
d#� #,channel,list of index pages
n%� !,allowed pages (blocks of 100)
x+� #,1,102,120,151,170,300,180,!,100,300
�+� #,2,251,700,230,202,270,!,200,300,700
�+� #,3,160,230,210,220,120,101,!,100,200
�/� #,4,690,530,580,550,480,450,!,600,400,500
�� #
�

00000000  0d 00 0a 0b ee 85 e5 8d  54 6a 4d 0d 00 14 12 f4  |........TjM.....|
00000010  20 50 41 47 45 20 47 52  41 42 42 45 52 0d 00 1e  | PAGE GRABBER...|
00000020  14 f4 20 42 79 20 4a 20  52 20 43 72 65 6c 6c 69  |.. By J R Crelli|
00000030  6e 0d 00 28 22 f4 20 42  61 73 65 64 20 6f 6e 20  |n..(". Based on |
00000040  4e 65 77 73 20 62 79 20  52 20 4a 20 4a 20 4f 72  |News by R J J Or|
00000050  74 6f 6e 0d 00 32 0f f4  20 56 65 72 73 69 6f 6e  |ton..2.. Version|
00000060  20 32 0d 00 3c 12 66 69  6c 65 73 79 73 74 65 6d  | 2..<.filesystem|
00000070  3d a4 66 73 0d 00 46 4c  e7 20 66 69 6c 65 73 79  |=.fs..FL. filesy|
00000080  73 74 65 6d 3c 3e 34 20  80 20 66 69 6c 65 73 79  |stem<>4 . filesy|
00000090  73 74 65 6d 3c 3e 38 20  8c 20 f2 65 72 72 6f 72  |stem<>8 . .error|
000000a0  28 31 30 30 2c 22 4f 6e  6c 79 20 41 44 46 53 20  |(100,"Only ADFS |
000000b0  6f 72 20 44 46 53 20 70  6c 65 61 73 65 21 22 29  |or DFS please!")|
000000c0  0d 00 50 24 e7 20 66 69  6c 65 73 79 73 74 65 6d  |..P$. filesystem|
000000d0  3d 38 20 8c 20 41 44 46  53 3d b9 20 8b 20 41 44  |=8 . ADFS=. . AD|
000000e0  46 53 3d a3 0d 00 5a 12  e7 20 ac 20 41 44 46 53  |FS=...Z.. . ADFS|
000000f0  20 8c 8d 74 4c 40 0d 00  64 0b ee 85 e5 8d 74 54  | ..tL@..d.....tT|
00000100  4c 0d 00 6e 10 2a 44 49  52 20 24 2e 70 61 67 65  |L..n.*DIR $.page|
00000110  73 0d 00 78 0b ee 85 e5  8d 64 5a 4c 0d 00 82 11  |s..x.....dZL....|
00000120  2a 44 49 52 20 24 2e 66  72 61 6d 65 73 0d 00 8c  |*DIR $.frames...|
00000130  0b ee 85 e5 8d 54 6a 4d  0d 00 96 07 eb 20 37 0d  |.....TjM..... 7.|
00000140  00 a0 08 44 25 3d 31 0d  00 aa 09 f2 69 6e 69 74  |...D%=1.....init|
00000150  0d 00 b4 08 44 25 3d 32  0d 00 be 0b f2 63 68 6f  |....D%=2.....cho|
00000160  6f 73 65 0d 00 c8 08 44  25 3d 33 0d 00 d2 0c f2  |ose....D%=3.....|
00000170  67 72 61 62 62 65 72 0d  00 dc 08 44 25 3d 34 0d  |grabber....D%=4.|
00000180  00 e6 0c f2 64 69 73 70  6c 61 79 0d 00 f0 1a f2  |....display.....|
00000190  65 72 72 6f 72 28 32 30  30 2c 22 46 49 4e 49 53  |error(200,"FINIS|
000001a0  48 45 44 22 29 0d 00 fa  05 e0 0d 01 04 05 3a 0d  |HED").........:.|
000001b0  01 0e 0a dd f2 69 6e 69  74 0d 01 18 0a 2a 46 58  |.....init....*FX|
000001c0  34 2c 31 0d 01 22 07 d1  3d 30 0d 01 2c 2c 6e 70  |4,1.."..=0..,,np|
000001d0  25 3d 33 30 3a 73 61 76  65 25 3d 31 3a 73 68 6f  |%=30:save%=1:sho|
000001e0  77 6e 25 3d 30 3a 73 74  69 6d 65 25 3d 91 2b 31  |wn%=0:stime%=.+1|
000001f0  30 30 30 30 30 30 0d 01  36 1a de 20 62 6c 6f 63  |000000..6.. bloc|
00000200  6b 25 20 31 38 2c 6f 73  70 61 63 65 20 31 30 30  |k% 18,ospace 100|
00000210  0d 01 40 12 de 20 6c 69  73 74 25 28 6e 70 25 2d  |..@.. list%(np%-|
00000220  31 29 0d 01 4a 12 e3 20  4e 25 3d 30 20 b8 20 6e  |1)..J.. N%=0 . n|
00000230  70 25 2d 31 0d 01 54 0a  de 20 78 20 37 39 0d 01  |p%-1..T.. x 79..|
00000240  5e 16 e3 20 6e 25 3d 20  78 20 b8 20 78 2b 37 35  |^.. n%= x . x+75|
00000250  20 88 20 34 0d 01 68 09  21 6e 25 3d 30 0d 01 72  | . 4..h.!n%=0..r|
00000260  05 ed 0d 01 7c 0f 6c 69  73 74 25 28 4e 25 29 3d  |....|.list%(N%)=|
00000270  78 0d 01 86 05 ed 0d 01  90 0d de 20 50 25 28 6e  |x.......... P%(n|
00000280  70 25 29 0d 01 9a 0d 50  25 28 6e 70 25 29 3d 30  |p%)....P%(np%)=0|
00000290  0d 01 a4 3e de 20 73 70  25 28 6e 70 25 29 2c 6c  |...>. sp%(np%),l|
000002a0  73 70 25 28 6e 70 25 29  2c 63 70 25 28 35 29 2c  |sp%(np%),cp%(5),|
000002b0  64 70 25 28 37 29 2c 72  6f 75 6e 64 25 28 6e 70  |dp%(7),round%(np|
000002c0  25 29 2c 66 69 6e 64 73  25 28 6e 70 25 29 0d 01  |%),finds%(np%)..|
000002d0  ae 11 e3 20 4e 25 3d 20  30 20 b8 20 6e 70 25 0d  |... N%= 0 . np%.|
000002e0  01 b8 32 73 70 25 28 4e  25 29 3d 30 3a 6c 73 70  |..2sp%(N%)=0:lsp|
000002f0  25 28 4e 25 29 3d 30 3a  72 6f 75 6e 64 25 28 4e  |%(N%)=0:round%(N|
00000300  25 29 3d 30 3a 66 69 6e  64 73 25 28 4e 25 29 3d  |%)=0:finds%(N%)=|
00000310  30 0d 01 c2 05 ed 0d 01  cc 0a de 20 58 25 2d 31  |0.......... X%-1|
00000320  0d 01 d6 2b f2 70 72 69  6e 74 28 30 2c 31 30 2c  |...+.print(0,10,|
00000330  22 45 6e 74 65 72 20 63  68 61 6e 6e 65 6c 20 72  |"Enter channel r|
00000340  65 71 75 69 72 65 64 22  2c 36 29 0d 01 e0 15 f1  |equired",6).....|
00000350  8a 31 2c 31 33 29 bd 31  33 30 3b 22 3e 3e 22 3b  |.1,13).130;">>";|
00000360  0d 01 ea 0a e8 22 22 43  48 25 0d 01 f4 1d e7 20  |.....""CH%..... |
00000370  43 48 25 3e 34 20 84 20  43 48 25 3c 31 20 8c 20  |CH%>4 . CH%<1 . |
00000380  db 3a e5 8d 64 56 41 0d  01 fe 21 e7 20 43 48 25  |.:..dVA...!. CH%|
00000390  3e 32 20 8c 20 43 52 43  73 69 67 3d a3 20 8b 20  |>2 . CRCsig=. . |
000003a0  43 52 43 73 69 67 3d b9  0d 02 08 09 f7 8d 44 78  |CRCsig=.......Dx|
000003b0  54 0d 02 12 05 f5 0d 02  1c 05 f5 0d 02 26 08 f3  |T............&..|
000003c0  20 58 24 0d 02 30 0c fd  20 58 24 3d 22 23 22 0d  | X$..0.. X$="#".|
000003d0  02 3a 08 f3 20 58 24 0d  02 44 0f fd 20 bb 28 58  |.:.. X$..D.. .(X|
000003e0  24 29 3d 43 48 25 0d 02  4e 1f e7 20 43 48 25 3e  |$)=CH%..N.. CH%>|
000003f0  32 20 8c 20 72 6f 77 73  3d 32 34 20 8b 20 72 6f  |2 . rows=24 . ro|
00000400  77 73 3d 33 30 0d 02 58  0a 2a 54 54 58 4f 4e 0d  |ws=30..X.*TTXON.|
00000410  02 62 17 f2 6f 73 63 6c  69 28 22 43 48 22 2b c3  |.b..oscli("CH"+.|
00000420  28 43 48 25 29 29 0d 02  6c 0d 3f 62 6c 6f 63 6b  |(CH%))..l.?block|
00000430  25 3d 37 0d 02 76 11 62  6c 6f 63 6b 25 3f 31 3d  |%=7..v.block%?1=|
00000440  72 6f 77 73 0d 02 80 14  f2 6f 77 3a f4 20 6e 6f  |rows.....ow:. no|
00000450  20 6f 66 20 72 6f 77 73  0d 02 8a 13 73 70 61 63  | of rows....spac|
00000460  65 3d 93 2d 58 25 2d 31  32 30 30 0d 02 94 1b 72  |e=.-X%-1200....r|
00000470  65 63 25 3d 73 70 61 63  65 20 81 20 28 33 30 2a  |ec%=space . (30*|
00000480  34 32 2b 31 30 29 0d 02  9e 17 e7 20 72 65 63 25  |42+10)..... rec%|
00000490  3e 32 30 20 8c 20 72 65  63 25 3d 32 30 0d 02 a8  |>20 . rec%=20...|
000004a0  0f 72 65 63 25 3d 72 65  63 25 2d 32 0d 02 b2 1c  |.rec%=rec%-2....|
000004b0  de 20 72 65 63 6f 72 64  28 72 65 63 25 29 2c 70  |. record(rec%),p|
000004c0  74 25 28 72 65 63 25 29  0d 02 bc 0f e3 20 4e 25  |t%(rec%)..... N%|
000004d0  3d 30 b8 72 65 63 25 0d  02 c6 0d de 20 78 20 33  |=0.rec%..... x 3|
000004e0  30 2a 34 32 0d 02 d0 10  72 65 63 6f 72 64 28 4e  |0*42....record(N|
000004f0  25 29 3d 78 0d 02 da 05  ed 0d 02 e4 13 73 70 61  |%)=x.........spa|
00000500  63 65 3d 72 65 63 6f 72  64 28 30 29 0d 02 ee 05  |ce=record(0)....|
00000510  e1 0d 02 f8 05 3a 0d 03  02 0d dd f2 67 72 61 62  |.....:......grab|
00000520  62 65 72 0d 03 0c 05 db  0d 03 16 08 2a 48 4f 4e  |ber.........*HON|
00000530  0d 03 20 08 f2 6f 66 66  0d 03 2a 1d f1 8a 30 2c  |.. ..off..*...0,|
00000540  31 29 22 82 53 65 61 72  63 68 69 6e 67 20 66 6f  |1)".Searching fo|
00000550  72 3a 2d 22 3b 0d 03 34  22 3f 62 6c 6f 63 6b 25  |r:-";..4"?block%|
00000560  3d 31 34 3a f2 6f 77 3a  f4 20 63 6c 65 61 72 20  |=14:.ow:. clear |
00000570  72 65 63 6f 72 64 73 0d  03 3e 08 42 25 3d 30 0d  |records..>.B%=0.|
00000580  03 48 05 f5 0d 03 52 0e  50 42 25 3d 50 25 28 42  |.H....R.PB%=P%(B|
00000590  25 29 0d 03 5c 15 f2 73  65 74 75 70 28 42 25 2c  |%)..\..setup(B%,|
000005a0  50 42 25 2c 42 25 29 0d  03 66 0b 42 25 3d 42 25  |PB%,B%)..f.B%=B%|
000005b0  2b 31 0d 03 70 18 fd 20  50 25 28 42 25 29 3d 30  |+1..p.. P%(B%)=0|
000005c0  20 84 20 42 25 3e 72 65  63 25 0d 03 7a 0d 72 65  | . B%>rec%..z.re|
000005d0  63 25 3d 42 25 2d 31 0d  03 84 0a f2 63 68 65 63  |c%=B%-1.....chec|
000005e0  6b 0d 03 8e 05 e1 0d 03  98 05 3a 0d 03 a2 16 dd  |k.........:.....|
000005f0  f2 73 65 74 75 70 28 45  25 2c 70 25 2c 6c 6e 25  |.setup(E%,p%,ln%|
00000600  29 0d 03 ac 0f 70 74 25  28 45 25 29 3d 6c 6e 25  |)....pt%(E%)=ln%|
00000610  0d 03 b6 1f f1 8a 30 2c  45 25 2b 33 29 22 86 50  |......0,E%+3)".P|
00000620  22 c3 28 70 25 29 3b 89  28 33 39 2d b1 29 3b 0d  |".(p%);.(39-.);.|
00000630  03 c0 12 f2 73 65 74 72  65 63 28 45 25 2c 70 25  |....setrec(E%,p%|
00000640  29 0d 03 ca 05 e1 0d 03  d4 05 3a 0d 03 de 08 dd  |).........:.....|
00000650  f2 6f 77 0d 03 e8 0e ea  20 41 25 2c 58 25 2c 59  |.ow..... A%,X%,Y|
00000660  25 0d 03 f2 13 58 25 3d  62 6c 6f 63 6b 25 20 83  |%....X%=block% .|
00000670  20 32 35 36 0d 03 fc 13  59 25 3d 62 6c 6f 63 6b  | 256....Y%=block|
00000680  25 20 81 20 32 35 36 0d  04 06 0a 41 25 3d 26 37  |% . 256....A%=&7|
00000690  41 0d 04 10 0b d6 20 26  46 46 46 31 0d 04 1a 05  |A..... &FFF1....|
000006a0  e1 0d 04 24 05 3a 0d 04  2e 0d dd a4 62 63 64 28  |...$.:......bcd(|
000006b0  58 25 29 0d 04 38 1e e7  20 58 25 3e 39 39 20 8c  |X%)..8.. X%>99 .|
000006c0  20 f2 65 72 72 6f 72 28  39 39 2c 22 21 21 21 22  | .error(99,"!!!"|
000006d0  29 0d 04 42 13 74 6f 70  6e 69 62 25 3d 58 25 20  |)..B.topnib%=X% |
000006e0  81 20 31 30 0d 04 4c 13  62 6f 74 6e 69 62 25 3d  |. 10..L.botnib%=|
000006f0  58 25 20 83 20 31 30 0d  04 56 17 3d 74 6f 70 6e  |X% . 10..V.=topn|
00000700  69 62 25 2a 31 36 2b 62  6f 74 6e 69 62 25 0d 04  |ib%*16+botnib%..|
00000710  60 05 3a 0d 04 6a 12 dd  f2 65 72 72 6f 72 28 58  |`.:..j...error(X|
00000720  25 2c 58 24 29 0d 04 74  19 24 73 70 61 63 65 3d  |%,X$)..t.$space=|
00000730  bd 30 2b bd 28 58 25 29  2b 58 24 2b bd 30 0d 04  |.0+.(X%)+X$+.0..|
00000740  7e 0b d6 20 73 70 61 63  65 0d 04 88 05 e1 0d 04  |~.. space.......|
00000750  92 05 3a 0d 04 9c 0b dd  f2 63 68 65 63 6b 0d 04  |..:......check..|
00000760  a6 08 ea 20 45 25 0d 04  b0 05 f5 0d 04 ba 0e 66  |... E%.........f|
00000770  69 6e 69 73 68 65 64 3d  b9 0d 04 c4 11 e3 20 45  |inished=...... E|
00000780  25 3d 30 20 b8 20 72 65  63 25 0d 04 ce 3c e7 20  |%=0 . rec%...<. |
00000790  28 66 69 6e 64 73 25 28  70 74 25 28 45 25 29 29  |(finds%(pt%(E%))|
000007a0  3d 30 29 20 80 20 28 91  2d 73 74 69 6d 65 25 3e  |=0) . (.-stime%>|
000007b0  31 30 30 30 30 29 20 8c  20 50 25 28 70 74 25 28  |10000) . P%(pt%(|
000007c0  45 25 29 29 3d 30 0d 04  d8 1a e7 20 50 25 28 70  |E%))=0..... P%(p|
000007d0  74 25 28 45 25 29 29 3d  30 20 8c 20 8d 64 76 44  |t%(E%))=0 . .dvD|
000007e0  0d 04 e2 10 66 69 6e 69  73 68 65 64 20 3d 20 a3  |....finished = .|
000007f0  0d 04 ec 1c e7 20 a4 72  65 61 64 79 28 45 25 29  |..... .ready(E%)|
00000800  20 8c 20 f2 73 61 76 65  28 45 25 29 0d 04 f6 05  | . .save(E%)....|
00000810  ed 0d 05 00 0e fd 20 66  69 6e 69 73 68 65 64 0d  |...... finished.|
00000820  05 0a 05 e1 0d 05 14 05  3a 0d 05 1e 09 dd f2 63  |........:......c|
00000830  72 63 0d 05 28 08 ea 20  6c 25 0d 05 32 1e e7 20  |rc..(.. l%..2.. |
00000840  43 52 43 3d 30 20 8c 20  6c 69 73 74 25 28 52 25  |CRC=0 . list%(R%|
00000850  29 3f 4c 25 3d 30 3a e1  0d 05 3c 13 6c 25 3d 6c  |)?L%=0:...<.l%=l|
00000860  69 73 74 25 28 52 25 29  3f 4c 25 0d 05 46 23 e7  |ist%(R%)?L%..F#.|
00000870  20 6c 25 3d 30 20 8c 20  6c 69 73 74 25 28 52 25  | l%=0 . list%(R%|
00000880  29 3f 4c 25 3d 43 52 43  3a e5 8d 44 6e 45 0d 05  |)?L%=CRC:..DnE..|
00000890  50 26 e7 20 6c 25 3e 26  46 44 20 8c 20 6c 69 73  |P&. l%>&FD . lis|
000008a0  74 25 28 52 25 29 3f 4c  25 3d 6c 25 2d 31 3a e5  |t%(R%)?L%=l%-1:.|
000008b0  8d 44 6e 45 0d 05 5a 23  e7 20 6c 25 3d 26 46 44  |.DnE..Z#. l%=&FD|
000008c0  20 8c 20 6c 69 73 74 25  28 52 25 29 3f 4c 25 3d  | . list%(R%)?L%=|
000008d0  30 3a e5 8d 44 6e 45 0d  05 64 05 e1 0d 05 6e 1a  |0:..DnE..d....n.|
000008e0  f2 72 65 70 28 43 52 43  2c 6c 69 73 74 25 28 52  |.rep(CRC,list%(R|
000008f0  25 29 3f 4c 25 29 0d 05  78 05 e1 0d 05 82 05 3a  |%)?L%)..x......:|
00000900  0d 05 8c 0e dd f2 73 61  76 65 28 59 25 29 0d 05  |......save(Y%)..|
00000910  96 0e ea 20 4c 25 2c 4e  25 2c 52 25 0d 05 a0 0e  |... L%,N%,R%....|
00000920  52 25 3d 70 74 25 28 59  25 29 0d 05 aa 2f 3f 62  |R%=pt%(Y%).../?b|
00000930  6c 6f 63 6b 25 3d 33 3a  62 6c 6f 63 6b 25 3f 31  |lock%=3:block%?1|
00000940  3d 59 25 3a 62 6c 6f 63  6b 25 3f 32 3d 31 3a f2  |=Y%:block%?2=1:.|
00000950  6f 77 3a f4 20 48 4f 4c  44 0d 05 b4 34 53 50 25  |ow:. HOLD...4SP%|
00000960  3d a4 73 70 28 72 65 63  6f 72 64 28 59 25 29 29  |=.sp(record(Y%))|
00000970  3a e7 20 4d 41 58 25 3e  30 20 8c 20 73 70 25 28  |:. MAX%>0 . sp%(|
00000980  59 25 29 3d 4d 41 58 25  2b 26 31 30 30 0d 05 be  |Y%)=MAX%+&100...|
00000990  1c e7 20 53 50 25 3e 37  39 20 84 20 53 50 25 3c  |.. SP%>79 . SP%<|
000009a0  30 20 8c 20 53 50 25 3d  30 0d 05 c8 25 f1 8a 30  |0 . SP%=0...%..0|
000009b0  2c 32 32 29 bd 31 33 32  c3 28 50 25 28 52 25 29  |,22).132.(P%(R%)|
000009c0  29 22 2f 22 c3 28 53 50  25 29 22 20 20 22 0d 05  |)"/".(SP%)"  "..|
000009d0  d2 3a e7 20 73 70 25 28  52 25 29 3e 30 20 8c 20  |.:. sp%(R%)>0 . |
000009e0  e7 20 28 53 50 25 3d 30  20 80 20 6c 73 70 25 28  |. (SP%=0 . lsp%(|
000009f0  52 25 29 3c 3e 30 29 20  8c 20 53 50 25 3d 6c 73  |R%)<>0) . SP%=ls|
00000a00  70 25 28 52 25 29 2b 31  0d 05 dc 1b 4c 25 3d 53  |p%(R%)+1....L%=S|
00000a10  50 25 2d 31 3a e7 20 4c  25 3d 2d 31 20 8c 20 4c  |P%-1:. L%=-1 . L|
00000a20  25 3d 30 0d 05 e6 29 e7  20 43 52 43 3e 30 20 84  |%=0...). CRC>0 .|
00000a30  20 28 6c 69 73 74 25 28  52 25 29 3f 28 4c 25 29  | (list%(R%)?(L%)|
00000a40  3e 32 34 30 29 20 8c 20  f2 63 72 63 0d 05 f0 66  |>240) . .crc...f|
00000a50  e7 20 53 50 25 3d 30 20  80 20 28 3f 6c 69 73 74  |. SP%=0 . (?list|
00000a60  25 28 52 25 29 3d 30 20  84 20 72 6f 75 6e 64 25  |%(R%)=0 . round%|
00000a70  28 52 25 29 3d 33 29 20  8c 20 3f 6c 69 73 74 25  |(R%)=3) . ?list%|
00000a80  28 52 25 29 3d 73 61 76  65 25 3a f2 73 73 61 76  |(R%)=save%:.ssav|
00000a90  65 3a 50 25 28 52 25 29  3d 30 3a f2 73 65 74 75  |e:P%(R%)=0:.setu|
00000aa0  70 61 6e 6f 74 68 65 72  28 59 25 29 3a e5 8d 74  |panother(Y%):..t|
00000ab0  64 46 0d 05 fa 36 e7 20  28 6c 69 73 74 25 28 52  |dF...6. (list%(R|
00000ac0  25 29 3f 28 4c 25 29 29  3d 30 20 8c 20 6c 69 73  |%)?(L%))=0 . lis|
00000ad0  74 25 28 52 25 29 3f 28  4c 25 29 3d 73 61 76 65  |t%(R%)?(L%)=save|
00000ae0  25 3a f2 73 73 61 76 65  0d 06 04 2f e7 20 28 28  |%:.ssave.../. ((|
00000af0  73 70 25 28 52 25 29 20  80 20 26 46 46 29 3c 53  |sp%(R%) . &FF)<S|
00000b00  50 25 29 20 8c 20 73 70  25 28 52 25 29 3d 53 50  |P%) . sp%(R%)=SP|
00000b10  25 3a e5 8d 74 46 46 0d  06 0e 2c e7 20 53 50 25  |%:..tFF...,. SP%|
00000b20  3c 6c 73 70 25 28 52 25  29 20 8c 20 73 70 25 28  |<lsp%(R%) . sp%(|
00000b30  52 25 29 3d 6c 73 70 25  28 52 25 29 20 84 20 26  |R%)=lsp%(R%) . &|
00000b40  31 30 30 0d 06 18 35 e7  20 53 50 25 3d 30 20 84  |100...5. SP%=0 .|
00000b50  20 28 53 50 25 3c 6c 73  70 25 28 52 25 29 29 20  | (SP%<lsp%(R%)) |
00000b60  8c 72 6f 75 6e 64 25 28  52 25 29 3d 72 6f 75 6e  |.round%(R%)=roun|
00000b70  64 25 28 52 25 29 2b 31  0d 06 22 22 6c 25 3d 73  |d%(R%)+1..""l%=s|
00000b80  70 25 28 52 25 29 20 80  20 26 46 46 3a e7 20 6c  |p%(R%) . &FF:. l|
00000b90  25 3d 30 20 8c 20 6c 25  3d 31 0d 06 2c 3a e7 20  |%=0 . l%=1..,:. |
00000ba0  28 66 69 6e 64 73 25 28  52 25 29 20 81 20 6c 25  |(finds%(R%) . l%|
00000bb0  29 20 3e 20 35 20 8c 20  f2 66 69 6c 6c 69 6e 28  |) > 5 . .fillin(|
00000bc0  52 25 29 3a 63 6f 6d 70  6c 65 74 65 3d b9 3a e5  |R%):complete=.:.|
00000bd0  8d 44 7c 46 0d 06 36 27  e7 20 28 73 70 25 28 52  |.D|F..6'. (sp%(R|
00000be0  25 29 20 80 20 26 31 30  30 29 3d 30 20 84 20 53  |%) . &100)=0 . S|
00000bf0  50 25 3d 30 20 8c 20 8d  74 46 46 0d 06 40 0e 63  |P%=0 . .tFF..@.c|
00000c00  6f 6d 70 6c 65 74 65 3d  b9 0d 06 4a 1c e3 20 4e  |omplete=...J.. N|
00000c10  25 3d 31 20 b8 20 28 73  70 25 28 52 25 29 20 80  |%=1 . (sp%(R%) .|
00000c20  20 26 46 46 29 0d 06 54  17 6c 25 3d 6c 69 73 74  | &FF)..T.l%=list|
00000c30  25 28 52 25 29 3f 28 4e  25 2d 31 29 0d 06 5e 20  |%(R%)?(N%-1)..^ |
00000c40  e7 20 6c 25 3d 30 20 84  20 6c 25 3e 32 34 30 20  |. l%=0 . l%>240 |
00000c50  8c 20 63 6f 6d 70 6c 65  74 65 3d a3 0d 06 68 05  |. complete=...h.|
00000c60  ed 0d 06 72 2b e7 20 72  6f 75 6e 64 25 28 52 25  |...r+. round%(R%|
00000c70  29 3e 34 20 8c 20 f2 66  69 6c 6c 69 6e 28 52 25  |)>4 . .fillin(R%|
00000c80  29 3a 63 6f 6d 70 6c 65  74 65 3d b9 0d 06 7c 4b  |):complete=...|K|
00000c90  e7 20 63 6f 6d 70 6c 65  74 65 20 8c 20 50 25 28  |. complete . P%(|
00000ca0  52 25 29 3d 30 3a f1 8a  37 2c 59 25 2b 33 29 22  |R%)=0:..7,Y%+3)"|
00000cb0  83 66 6f 75 6e 64 22 89  28 33 39 2d b1 29 3b 3a  |.found".(39-.);:|
00000cc0  f2 73 65 74 75 70 61 6e  6f 74 68 65 72 28 59 25  |.setupanother(Y%|
00000cd0  29 3a e5 8d 74 64 46 0d  06 86 28 3f 62 6c 6f 63  |):..tdF...(?bloc|
00000ce0  6b 25 3d 33 3a 62 6c 6f  63 6b 25 3f 31 3d 59 25  |k%=3:block%?1=Y%|
00000cf0  3a 62 6c 6f 63 6b 25 3f  32 3d 30 3a f2 6f 77 0d  |:block%?2=0:.ow.|
00000d00  06 90 10 6c 73 70 25 28  52 25 29 3d 53 50 25 0d  |...lsp%(R%)=SP%.|
00000d10  06 9a 1b 66 69 6e 64 73  25 28 52 25 29 3d 66 69  |...finds%(R%)=fi|
00000d20  6e 64 73 25 28 52 25 29  2b 31 0d 06 a4 05 e1 0d  |nds%(R%)+1......|
00000d30  06 ae 05 3a 0d 06 b8 16  dd f2 73 65 74 75 70 61  |...:......setupa|
00000d40  6e 6f 74 68 65 72 28 58  25 29 0d 06 c2 1b e7 20  |nother(X%)..... |
00000d50  50 25 28 42 25 29 3d 30  20 8c 20 73 74 69 6d 65  |P%(B%)=0 . stime|
00000d60  25 3d 91 3a e1 0d 06 cc  0e 50 42 25 3d 50 25 28  |%=.:.....PB%=P%(|
00000d70  42 25 29 0d 06 d6 15 f2  73 65 74 75 70 28 58 25  |B%).....setup(X%|
00000d80  2c 50 42 25 2c 42 25 29  0d 06 e0 0b 42 25 3d 42  |,PB%,B%)....B%=B|
00000d90  25 2b 31 0d 06 ea 05 e1  0d 06 f4 05 3a 0d 06 fe  |%+1.........:...|
00000da0  0b dd f2 73 73 61 76 65  0d 07 08 14 f1 8a 31 2c  |...ssave......1,|
00000db0  30 29 c3 28 50 25 28 52  25 29 29 3b 0d 07 12 3b  |0).(P%(R%));...;|
00000dc0  e7 20 28 73 70 25 28 52  25 29 20 80 20 26 31 30  |. (sp%(R%) . &10|
00000dd0  30 29 20 8c 20 58 24 3d  22 20 6f 66 20 22 2b c3  |0) . X$=" of "+.|
00000de0  28 73 70 25 28 52 25 29  20 80 20 26 46 46 29 20  |(sp%(R%) . &FF) |
00000df0  8b 20 58 24 3d 22 22 0d  07 1c 58 e7 20 53 50 25  |. X$=""...X. SP%|
00000e00  3d 30 20 8c f1 8a 37 2c  59 25 2b 33 29 22 83 66  |=0 ...7,Y%+3)".f|
00000e10  6f 75 6e 64 22 3b 89 28  33 39 2d b1 29 3b 20 8b  |ound";.(39-.); .|
00000e20  20 f1 8a 37 2c 59 25 2b  33 29 22 86 53 75 62 70  | ..7,Y%+3)".Subp|
00000e30  61 67 65 83 22 3b c3 28  53 50 25 29 3b 58 24 22  |age.";.(SP%);X$"|
00000e40  86 66 6f 75 6e 64 22 89  28 33 39 2d b1 29 3b 0d  |.found".(39-.);.|
00000e50  07 26 12 58 24 3d a4 64  69 72 28 73 61 76 65 25  |.&.X$=.dir(save%|
00000e60  29 0d 07 30 16 e7 20 73  61 76 65 25 3e 32 34 30  |)..0.. save%>240|
00000e70  20 8c 20 8d 74 76 4d 0d  07 3a 3b f2 6f 73 63 6c  | . .tvM..:;.oscl|
00000e80  69 20 28 22 53 41 56 45  20 22 2b 58 24 2b c3 28  |i ("SAVE "+X$+.(|
00000e90  73 61 76 65 25 29 2b 22  20 22 2b c3 7e 28 72 65  |save%)+" "+.~(re|
00000ea0  63 6f 72 64 28 59 25 29  29 2b 22 20 2b 34 45 30  |cord(Y%))+" +4E0|
00000eb0  22 29 0d 07 44 11 73 61  76 65 25 3d 73 61 76 65  |")..D.save%=save|
00000ec0  25 2b 31 0d 07 4e 05 e1  0d 07 58 05 3a 0d 07 62  |%+1..N....X.:..b|
00000ed0  0f dd f2 72 65 70 28 43  2c 45 25 29 0d 07 6c 2f  |...rep(C,E%)..l/|
00000ee0  e7 20 43 3d 26 46 46 20  8c 20 4d 24 3d 22 20 4e  |. C=&FF . M$=" N|
00000ef0  6f 20 43 52 43 20 20 20  22 20 8b 20 4d 24 3d 22  |o CRC   " . M$="|
00000f00  20 42 61 64 20 43 52 43  20 20 22 0d 07 76 35 f1  | Bad CRC  "..v5.|
00000f10  8a 30 2c 31 38 29 bd 31  32 39 3b c3 28 50 25 28  |.0,18).129;.(P%(|
00000f20  52 25 29 29 22 2f 22 c3  28 53 50 25 29 4d 24 3b  |R%))"/".(SP%)M$;|
00000f30  bd 31 33 32 3b c3 7e 28  45 25 29 22 20 20 20 22  |.132;.~(E%)"   "|
00000f40  0d 07 80 05 e1 0d 07 8a  05 3a 0d 07 94 0d dd f2  |.........:......|
00000f50  64 69 73 70 6c 61 79 0d  07 9e 0a f7 20 8d 54 7c  |display..... .T||
00000f60  54 0d 07 a8 10 e3 20 6e  25 3d 31 20 b8 20 43 48  |T..... n%=1 . CH|
00000f70  25 0d 07 b2 09 f3 20 43  48 24 0d 07 bc 05 ed 0d  |%..... CH$......|
00000f80  07 c6 09 2a 48 4f 46 46  0d 07 d0 12 3f 62 6c 6f  |...*HOFF....?blo|
00000f90  63 6b 25 3d 31 34 3a f2  6f 77 0d 07 da 14 ea 20  |ck%=14:.ow..... |
00000fa0  4e 25 2c 6e 25 2c 6e 65  78 74 25 2c 58 25 0d 07  |N%,n%,next%,X%..|
00000fb0  e4 12 e3 20 4e 25 3d 30  20 b8 20 6e 70 25 2d 31  |... N%=0 . np%-1|
00000fc0  0d 07 ee 08 6e 25 3d 30  0d 07 f8 05 f5 0d 08 02  |....n%=0........|
00000fd0  16 6e 65 78 74 25 3d 6c  69 73 74 25 28 4e 25 29  |.next%=list%(N%)|
00000fe0  3f 6e 25 0d 08 0c 14 e7  20 6e 65 78 74 25 3d 30  |?n%..... next%=0|
00000ff0  20 8c 20 8d 64 4a 48 0d  08 16 3c e7 20 6e 65 78  | . .dJH...<. nex|
00001000  74 25 3d 26 46 46 20 8c  20 ef 32 36 2c 31 32 3a  |t%=&FF . .26,12:|
00001010  f2 70 72 69 6e 74 28 32  2c 31 30 2c 22 4d 49 53  |.print(2,10,"MIS|
00001020  53 49 4e 47 20 50 41 47  45 22 2c 35 29 3a e5 8d  |SING PAGE",5):..|
00001030  44 7a 48 0d 08 20 12 58  24 3d a4 64 69 72 28 6e  |DzH.. .X$=.dir(n|
00001040  65 78 74 25 29 0d 08 2a  28 e7 20 6e 65 78 74 25  |ext%)..*(. next%|
00001050  3e 32 34 30 20 8c 20 f2  65 72 72 6f 72 28 31 30  |>240 . .error(10|
00001060  30 2c 22 52 75 6e 20 6f  75 74 21 22 29 0d 08 34  |0,"Run out!")..4|
00001070  13 73 68 6f 77 6e 25 3d  73 68 6f 77 6e 25 2b 31  |.shown%=shown%+1|
00001080  0d 08 3e 2d f2 6f 73 63  6c 69 28 22 4c 4f 41 44  |..>-.oscli("LOAD|
00001090  20 22 2b 58 24 2b c3 28  6e 65 78 74 25 29 2b 22  | "+X$+.(next%)+"|
000010a0  20 22 2b c3 7e 28 73 70  61 63 65 29 29 0d 08 48  | "+.~(space))..H|
000010b0  20 f2 6f 73 63 6c 69 28  22 44 49 53 50 4c 41 59  | .oscli("DISPLAY|
000010c0  20 22 2b c3 7e 28 73 70  61 63 65 29 29 0d 08 52  | "+.~(space))..R|
000010d0  21 f1 8a 30 2c 30 29 bd  31 33 34 3b a4 66 75 6c  |!..0,0).134;.ful|
000010e0  70 28 73 70 61 63 65 29  3b bd 31 33 35 3b 0d 08  |p(space);.135;..|
000010f0  5c 06 f2 77 0d 08 66 2c  f1 22 85 52 45 54 55 52  |\..w..f,.".RETUR|
00001100  4e 28 70 72 69 6e 74 29  20 54 41 42 28 64 75 6d  |N(print) TAB(dum|
00001110  70 29 20 5d 28 6e 65 78  74 29 20 52 20 5b 22 3b  |p) ](next) R [";|
00001120  0d 08 70 08 f2 6f 66 66  0d 08 7a 24 f5 20 58 24  |..p..off..z$. X$|
00001130  3d be 3a fd 20 a7 22 62  42 73 53 72 52 20 88 89  |=.:. ."bBsSrR ..|
00001140  22 2b bd 39 2b bd 31 33  2c 58 24 29 0d 08 84 1d  |"+.9+.13,X$)....|
00001150  e7 20 58 24 3d bd 39 20  8c 20 f2 64 75 6d 70 72  |. X$=.9 . .dumpr|
00001160  6f 75 74 69 6e 65 28 31  29 0d 08 8e 1e e7 20 58  |outine(1)..... X|
00001170  24 3d bd 31 33 20 8c 20  f2 64 75 6d 70 72 6f 75  |$=.13 . .dumprou|
00001180  74 69 6e 65 28 32 29 0d  08 98 2c e7 20 58 24 3d  |tine(2)...,. X$=|
00001190  22 88 22 20 84 20 58 24  3d 22 62 22 20 84 20 58  |"." . X$="b" . X|
000011a0  24 3d 22 42 22 20 8c 20  f2 62 61 63 6b 3a e5 8d  |$="B" . .back:..|
000011b0  64 4a 48 0d 08 a2 25 e7  20 58 24 3d 22 72 22 20  |dJH...%. X$="r" |
000011c0  84 20 58 24 3d 22 52 22  20 8c 20 f2 72 65 76 65  |. X$="R" . .reve|
000011d0  61 6c 3a e5 8d 44 7a 48  0d 08 ac 51 e7 20 ac 20  |al:..DzH...Q. . |
000011e0  41 44 46 53 20 80 28 58  24 3d 22 73 22 20 84 20  |ADFS .(X$="s" . |
000011f0  58 24 3d 22 53 22 29 20  8c 20 f2 6f 73 63 6c 69  |X$="S") . .oscli|
00001200  28 22 53 41 56 45 20 22  2b a4 66 75 6c 70 28 73  |("SAVE "+.fulp(s|
00001210  70 61 63 65 29 2b 22 20  37 43 30 30 20 38 30 30  |pace)+" 7C00 800|
00001220  30 22 29 3a e5 8d 44 7a  48 0d 08 b6 5e e7 20 41  |0"):..DzH...^. A|
00001230  44 46 53 20 80 28 58 24  3d 22 73 22 20 84 20 58  |DFS .(X$="s" . X|
00001240  24 3d 22 53 22 29 20 8c  20 f2 6f 73 63 6c 69 28  |$="S") . .oscli(|
00001250  22 53 41 56 45 20 22 2b  22 5e 2e 70 61 67 65 73  |"SAVE "+"^.pages|
00001260  2e 22 2b 43 48 24 2b a4  66 75 6c 70 28 73 70 61  |."+CH$+.fulp(spa|
00001270  63 65 29 2b 22 20 37 43  30 30 20 38 30 30 30 22  |ce)+" 7C00 8000"|
00001280  29 3a e5 8d 44 7a 48 0d  08 c0 0b 6e 25 3d 6e 25  |):..DzH....n%=n%|
00001290  2b 31 0d 08 ca 0d fd 20  6e 65 78 74 25 3d 30 0d  |+1..... next%=0.|
000012a0  08 d4 05 ed 0d 08 de 05  e1 0d 08 e8 05 3a 0d 08  |.............:..|
000012b0  f2 0a dd f2 62 61 63 6b  0d 08 fc 16 e7 20 6e 25  |....back..... n%|
000012c0  3e 30 20 8c 20 6e 25 3d  6e 25 2d 31 3a e1 0d 09  |>0 . n%=n%-1:...|
000012d0  06 1c e7 20 4e 25 3e 30  20 8c 20 4e 25 3d 4e 25  |... N%>0 . N%=N%|
000012e0  2d 32 3a 6e 65 78 74 25  3d 30 0d 09 10 05 e1 0d  |-2:next%=0......|
000012f0  09 1a 05 3a 0d 09 24 0e  dd a4 66 75 6c 70 28 45  |...:..$...fulp(E|
00001300  25 29 0d 09 2e 0b ea 20  53 25 2c 50 25 0d 09 38  |%)..... S%,P%..8|
00001310  0e 50 25 3d 31 30 30 2a  3f 45 25 0d 09 42 0b 53  |.P%=100*?E%..B.S|
00001320  25 3d 45 25 3f 32 0d 09  4c 26 50 25 3d 50 25 2b  |%=E%?2..L&P%=P%+|
00001330  28 53 25 20 80 20 26 46  30 29 2a 31 30 20 81 31  |(S% . &F0)*10 .1|
00001340  36 20 2b 28 53 25 20 80  20 26 46 29 0d 09 56 0e  |6 +(S% . &F)..V.|
00001350  53 25 3d a4 73 70 28 45  25 29 0d 09 60 2a e7 20  |S%=.sp(E%)..`*. |
00001360  53 25 3e 30 20 8c 3d c3  28 50 25 29 2b 22 2f 22  |S%>0 .=.(P%)+"/"|
00001370  2b c3 28 a4 73 70 28 45  25 29 29 20 8b 20 3d c3  |+.(.sp(E%)) . =.|
00001380  28 50 25 29 0d 09 6a 05  3a 0d 09 74 0c dd a4 73  |(P%)..j.:..t...s|
00001390  70 28 45 25 29 0d 09 7e  08 ea 20 53 25 0d 09 88  |p(E%)..~.. S%...|
000013a0  09 53 25 3d 37 35 0d 09  92 0b 66 6f 75 6e 64 3d  |.S%=75....found=|
000013b0  a3 0d 09 9c 05 f5 0d 09  a6 0b 53 25 3d 53 25 2b  |..........S%=S%+|
000013c0  31 0d 09 b0 23 e7 20 28  28 45 25 3f 53 25 29 80  |1...#. ((E%?S%).|
000013d0  20 26 37 46 29 3d 97 22  2f 22 20 8c 20 66 6f 75  | &7F)=."/" . fou|
000013e0  6e 64 3d b9 0d 09 ba 13  fd 20 66 6f 75 6e 64 20  |nd=...... found |
000013f0  84 20 53 25 3d 38 35 0d  09 c4 23 e7 20 ac 20 66  |. S%=85...#. . f|
00001400  6f 75 6e 64 20 8c 20 53  50 25 3d 30 3a 4d 41 58  |ound . SP%=0:MAX|
00001410  25 3d 2d 31 3a e5 8d 64  62 49 0d 09 ce 13 53 50  |%=-1:..dbI....SP|
00001420  25 3d a4 65 76 61 6c 28  53 25 2d 32 29 0d 09 d8  |%=.eval(S%-2)...|
00001430  14 4d 41 58 25 3d a4 65  76 61 6c 28 53 25 2b 31  |.MAX%=.eval(S%+1|
00001440  29 0d 09 e2 0b 53 25 3d  45 25 3f 34 0d 09 ec 27  |)....S%=E%?4...'|
00001450  53 50 32 25 3d 28 53 25  20 80 20 26 37 30 29 20  |SP2%=(S% . &70) |
00001460  2a 31 30 20 81 20 31 36  20 2b 28 53 25 20 80 20  |*10 . 16 +(S% . |
00001470  26 46 29 0d 09 f6 0b 53  25 3d 45 25 3f 33 0d 0a  |&F)....S%=E%?3..|
00001480  00 32 53 50 32 25 3d 53  50 32 25 2b 28 53 25 20  |.2SP2%=SP2%+(S% |
00001490  80 20 26 33 30 29 20 2a  31 30 30 30 20 81 20 31  |. &30) *1000 . 1|
000014a0  36 20 2b 28 53 25 20 80  20 26 46 29 2a 31 30 30  |6 +(S% . &F)*100|
000014b0  0d 0a 0a 1c e7 20 53 50  25 3c 3d 30 20 84 20 53  |..... SP%<=0 . S|
000014c0  50 25 3e 37 39 20 8c 3d  53 50 32 25 0d 0a 14 13  |P%>79 .=SP2%....|
000014d0  e7 20 53 50 32 25 3d 30  20 8c 20 3d 53 50 25 0d  |. SP2%=0 . =SP%.|
000014e0  0a 1e 18 e7 20 53 50 25  3c 3e 53 50 32 25 20 8c  |.... SP%<>SP2% .|
000014f0  20 3d 20 53 50 32 25 0d  0a 28 08 3d 53 50 25 0d  | = SP2%..(.=SP%.|
00001500  0a 32 05 3a 0d 0a 3c 0e  dd a4 65 76 61 6c 28 43  |.2.:..<...eval(C|
00001510  25 29 0d 0a 46 0b ea 20  53 25 2c 55 25 0d 0a 50  |%)..F.. S%,U%..P|
00001520  18 55 25 3d 30 3a 53 25  3d 28 45 25 3f 43 25 29  |.U%=0:S%=(E%?C%)|
00001530  80 20 26 37 46 0d 0a 5a  23 e7 20 53 25 3e 26 32  |. &7F..Z#. S%>&2|
00001540  46 20 80 20 53 25 3c 26  33 41 20 8c 20 55 25 3d  |F . S%<&3A . U%=|
00001550  28 53 25 2d 26 33 30 29  0d 0a 64 18 53 25 3d 28  |(S%-&30)..d.S%=(|
00001560  45 25 3f 28 43 25 2b 31  29 29 20 80 20 26 37 46  |E%?(C%+1)) . &7F|
00001570  0d 0a 6e 29 e7 20 53 25  3e 26 32 46 20 80 20 53  |..n). S%>&2F . S|
00001580  25 3c 26 33 41 20 8c 20  55 25 3d 55 25 2a 31 30  |%<&3A . U%=U%*10|
00001590  2b 28 53 25 2d 26 33 30  29 0d 0a 78 07 3d 55 25  |+(S%-&30)..x.=U%|
000015a0  0d 0a 82 05 3a 0d 0a 8c  0c dd f2 63 68 6f 6f 73  |....:......choos|
000015b0  65 0d 0a 96 08 52 25 3d  30 0d 0a a0 08 2a 48 4f  |e....R%=0....*HO|
000015c0  4e 0d 0a aa 12 3f 62 6c  6f 63 6b 25 3d 31 34 3a  |N....?block%=14:|
000015d0  f2 6f 77 0d 0a b4 08 4e  25 3d 30 0d 0a be 05 f5  |.ow....N%=0.....|
000015e0  0d 0a c8 08 f3 20 58 24  0d 0a d2 14 e7 20 58 24  |..... X$..... X$|
000015f0  3d 22 21 22 20 8c 20 e5  8d 54 44 4b 0d 0a dc 1c  |="!" . ..TDK....|
00001600  e7 20 4e 25 3d 72 65 63  25 20 8c 20 58 24 3d 22  |. N%=rec% . X$="|
00001610  21 22 3a e5 8d 54 44 4b  0d 0a e6 0b 4e 25 3d 4e  |!":..TDK....N%=N|
00001620  25 2b 31 0d 0a f0 0c 50  25 3d bb 28 58 24 29 0d  |%+1....P%=.(X$).|
00001630  0a fa 1d 64 70 25 28 4e  25 29 3d 50 25 3a f2 73  |...dp%(N%)=P%:.s|
00001640  65 74 72 65 63 28 4e 25  2c 50 25 29 0d 0b 04 0c  |etrec(N%,P%)....|
00001650  fd 20 58 24 3d 22 21 22  0d 0b 0e 08 45 25 3d 31  |. X$="!"....E%=1|
00001660  0d 0b 18 05 f5 0d 0b 22  08 f3 20 58 24 0d 0b 2c  |.......".. X$..,|
00001670  11 63 70 25 28 45 25 29  3d bb 28 58 24 29 0d 0b  |.cp%(E%)=.(X$)..|
00001680  36 0b 45 25 3d 45 25 2b  31 0d 0b 40 0c fd 20 58  |6.E%=E%+1..@.. X|
00001690  24 3d 22 23 22 0d 0b 4a  05 f5 0d 0b 54 0f 66 69  |$="#"..J....T.fi|
000016a0  6e 69 73 68 65 64 20 3d  b9 0d 0b 5e 0f e3 20 45  |nished =...^.. E|
000016b0  25 3d 31 20 b8 20 4e 25  0d 0b 68 13 e7 20 52 25  |%=1 . N%..h.. R%|
000016c0  3e 3d 33 30 20 8c 20 8d  74 46 4b 0d 0b 72 4c e7  |>=30 . .tFK..rL.|
000016d0  20 28 64 70 25 28 45 25  29 20 80 20 26 31 30 30  | (dp%(E%) . &100|
000016e0  30 29 3d 30 20 8c e7 20  a4 72 65 61 64 79 28 45  |0)=0 .. .ready(E|
000016f0  25 29 20 8c 20 64 70 25  28 45 25 29 3d 64 70 25  |%) . dp%(E%)=dp%|
00001700  28 45 25 29 20 84 20 26  31 30 30 30 3a f2 69 6e  |(E%) . &1000:.in|
00001710  70 75 74 28 45 25 29 0d  0b 7c 27 e7 20 28 64 70  |put(E%)..|'. (dp|
00001720  25 28 45 25 29 20 80 20  26 31 30 30 30 29 3d 30  |%(E%) . &1000)=0|
00001730  20 8c 20 66 69 6e 69 73  68 65 64 20 3d a3 0d 0b  | . finished =...|
00001740  86 05 ed 0d 0b 90 0e fd  20 66 69 6e 69 73 68 65  |........ finishe|
00001750  64 0d 0b 9a 08 52 25 3d  30 0d 0b a4 05 e1 0d 0b  |d....R%=0.......|
00001760  ae 05 3a 0d 0b b8 0f dd  f2 69 6e 70 75 74 28 59  |..:......input(Y|
00001770  25 29 0d 0b c2 25 f2 6f  73 63 6c 69 28 22 44 49  |%)...%.oscli("DI|
00001780  53 50 4c 41 59 20 22 2b  c3 7e 28 72 65 63 6f 72  |SPLAY "+.~(recor|
00001790  64 28 59 25 29 29 29 0d  0b cc 1a f2 73 65 74 72  |d(Y%))).....setr|
000017a0  65 63 28 59 25 2c 30 29  3a f4 20 63 6c 65 61 72  |ec(Y%,0):. clear|
000017b0  3f 0d 0b d6 08 f2 6f 66  66 0d 0b e0 1a 63 75 72  |?.....off....cur|
000017c0  72 65 6e 74 25 3d 64 70  25 28 59 25 29 20 80 26  |rent%=dp%(Y%) .&|
000017d0  46 46 46 0d 0b ea 19 f1  8a 30 2c 30 29 22 80 22  |FFF......0,0)"."|
000017e0  c3 28 63 75 72 72 65 6e  74 25 29 3b 0d 0b f4 06  |.(current%);....|
000017f0  f2 77 0d 0b fe 09 66 69  6e 3d a3 0d 0c 08 05 f5  |.w....fin=......|
00001800  0d 0c 12 11 58 25 3d a4  63 68 65 63 6b 70 61 67  |....X%=.checkpag|
00001810  65 0d 0c 1c 18 e7 20 58  25 3d 30 20 8c 20 66 69  |e..... X%=0 . fi|
00001820  6e 3d b9 3a e5 8d 44 62  4c 0d 0c 26 11 e3 20 6e  |n=.:..DbL..&.. n|
00001830  25 3d 30 20 b8 20 52 25  2d 31 0d 0c 30 28 e7 20  |%=0 . R%-1..0(. |
00001840  58 25 3d 50 25 28 6e 25  29 20 8c 20 ef 37 3a f1  |X%=P%(n%) . .7:.|
00001850  22 43 68 6f 73 65 6e 21  20 20 22 3b 3a e5 8d 44  |"Chosen!  ";:..D|
00001860  62 4c 0d 0c 3a 05 ed 0d  0c 44 0d 50 25 28 52 25  |bL..:....D.P%(R%|
00001870  29 3d 58 25 0d 0c 4e 0b  52 25 3d 52 25 2b 31 0d  |)=X%..N.R%=R%+1.|
00001880  0c 58 14 e7 20 52 25 3e  3d 33 30 20 8c 20 66 69  |.X.. R%>=30 . fi|
00001890  6e 3d b9 0d 0c 62 09 fd  20 66 69 6e 0d 0c 6c 11  |n=...b.. fin..l.|
000018a0  64 70 25 28 59 25 29 3d  26 31 30 30 30 0d 0c 76  |dp%(Y%)=&1000..v|
000018b0  07 ef 32 36 0d 0c 80 05  e1 0d 0c 8a 05 3a 0d 0c  |..26.........:..|
000018c0  94 13 e7 20 9f 3c 3e 32  31 34 20 8c 20 8d 54 6a  |... .<>214 . .Tj|
000018d0  4d 0d 0c 9e 0f 2a 43 44  49 52 20 70 61 67 65 73  |M....*CDIR pages|
000018e0  0d 0c a8 14 2a 43 44 49  52 20 70 61 67 65 73 2e  |....*CDIR pages.|
000018f0  42 42 43 31 0d 0c b2 14  2a 43 44 49 52 20 70 61  |BBC1....*CDIR pa|
00001900  67 65 73 2e 42 42 43 32  0d 0c bc 13 2a 43 44 49  |ges.BBC2....*CDI|
00001910  52 20 70 61 67 65 73 2e  49 54 56 0d 0c c6 13 2a  |R pages.ITV....*|
00001920  43 44 49 52 20 70 61 67  65 73 2e 43 48 34 0d 0c  |CDIR pages.CH4..|
00001930  d0 05 f9 0d 0c da 13 e7  20 9f 3c 3e 32 31 34 20  |........ .<>214 |
00001940  8c 20 8d 54 6a 4d 0d 0c  e4 10 2a 43 44 49 52 20  |. .TjM....*CDIR |
00001950  66 72 61 6d 65 73 0d 0c  ee 13 2a 43 44 49 52 20  |frames....*CDIR |
00001960  66 72 61 6d 65 73 2e 34  31 0d 0c f8 13 2a 43 44  |frames.41....*CD|
00001970  49 52 20 66 72 61 6d 65  73 2e 34 32 0d 0d 02 13  |IR frames.42....|
00001980  2a 43 44 49 52 20 66 72  61 6d 65 73 2e 34 33 0d  |*CDIR frames.43.|
00001990  0d 0c 13 2a 43 44 49 52  20 66 72 61 6d 65 73 2e  |...*CDIR frames.|
000019a0  34 34 0d 0d 16 13 2a 43  44 49 52 20 66 72 61 6d  |44....*CDIR fram|
000019b0  65 73 2e 34 35 0d 0d 20  05 f9 0d 0d 2a 07 ee 85  |es.45.. ....*...|
000019c0  87 0d 0d 34 09 2a 48 4f  46 46 0d 0d 3e 06 ef 33  |...4.*HOFF..>..3|
000019d0  0d 0d 48 07 eb 20 37 0d  0d 52 19 e7 20 9f 3d 31  |..H.. 7..R.. .=1|
000019e0  37 20 80 20 a6 28 2d 32  29 20 8c 20 8d 44 66 4d  |7 . .(-2) . .DfM|
000019f0  0d 0d 5c 2a e7 20 9f 20  3d 31 37 20 84 20 9f 3d  |..\*. . =17 . .=|
00001a00  31 37 39 20 84 20 9f 3d  31 39 38 20 84 20 9f 3d  |179 . .=198 . .=|
00001a10  31 39 30 20 8c 20 8d 74  6c 4d 0d 0d 66 0b 2a 54  |190 . .tlM..f.*T|
00001a20  54 58 4f 46 46 0d 0d 70  08 f1 27 27 27 0d 0d 7a  |TXOFF..p..'''..z|
00001a30  08 2a 46 58 34 0d 0d 84  12 e7 20 41 44 46 53 20  |.*FX4..... ADFS |
00001a40  8c 2a 44 49 52 20 5e 0d  0d 8e 05 f6 0d 0d 98 0c  |.*DIR ^.........|
00001a50  f1 22 20 61 74 20 22 9e  0d 0d a2 05 e0 0d 0d ac  |." at ".........|
00001a60  0b ee 85 e5 8d 54 6a 4d  0d 0d b6 1e ee 20 44 25  |.....TjM..... D%|
00001a70  20 e5 20 8d 44 66 4d 2c  8d 74 74 40 2c 8d 64 40  | . .DfM,.tt@,.d@|
00001a80  4d 2c 8d 44 66 4d 0d 0d  c0 12 f2 63 6c 65 61 6e  |M,.DfM.....clean|
00001a90  75 70 3a e5 8d 64 5c 40  0d 0d ca 05 3a 0d 0d d4  |up:..d\@....:...|
00001aa0  18 dd f2 70 72 69 6e 74  28 58 25 2c 59 25 2c 58  |...print(X%,Y%,X|
00001ab0  24 2c 43 25 29 0d 0d de  1d f1 8a 58 25 2c 59 25  |$,C%)......X%,Y%|
00001ac0  29 bd 31 34 31 3b bd 28  31 32 38 2b 43 25 29 3b  |).141;.(128+C%);|
00001ad0  58 24 0d 0d e8 1f f1 8a  58 25 2c 59 25 2b 31 29  |X$......X%,Y%+1)|
00001ae0  bd 31 34 31 3b bd 28 31  32 38 2b 43 25 29 3b 58  |.141;.(128+C%);X|
00001af0  24 0d 0d f2 05 e1 0d 0d  fc 05 3a 0d 0e 06 13 dd  |$.........:.....|
00001b00  f2 73 65 74 72 65 63 28  4e 25 2c 50 25 29 0d 0e  |.setrec(N%,P%)..|
00001b10  10 28 3f 62 6c 6f 63 6b  25 3d 32 3a 62 6c 6f 63  |.(?block%=2:bloc|
00001b20  6b 25 3f 31 3d 4e 25 3a  62 6c 6f 63 6b 25 3f 32  |k%?1=N%:block%?2|
00001b30  3d 30 3a f2 6f 77 0d 0e  1a 26 e7 20 28 62 6c 6f  |=0:.ow...&. (blo|
00001b40  63 6b 25 3f 32 20 80 20  34 29 3d 34 20 8c f2 64  |ck%?2 . 4)=4 ..d|
00001b50  65 6c 28 32 30 29 3a e5  8d 54 50 4e 0d 0e 24 0d  |el(20):..TPN..$.|
00001b60  3f 62 6c 6f 63 6b 25 3d  35 0d 0e 2e 0f 62 6c 6f  |?block%=5....blo|
00001b70  63 6b 25 3f 31 3d 4e 25  0d 0e 38 15 62 6c 6f 63  |ck%?1=N%..8.bloc|
00001b80  6b 25 3f 32 3d 50 25 20  81 20 31 30 30 0d 0e 42  |k%?2=P% . 100..B|
00001b90  1b 62 6c 6f 63 6b 25 3f  33 3d a4 62 63 64 28 50  |.block%?3=.bcd(P|
00001ba0  25 20 83 20 31 30 30 29  0d 0e 4c 10 62 6c 6f 63  |% . 100)..L.bloc|
00001bb0  6b 25 3f 34 3d 26 33 46  0d 0e 56 10 62 6c 6f 63  |k%?4=&3F..V.bloc|
00001bc0  6b 25 3f 35 3d 26 37 46  0d 0e 60 1d 62 6c 6f 63  |k%?5=&7F..`.bloc|
00001bd0  6b 25 3f 36 3d 72 65 63  6f 72 64 28 4e 25 29 20  |k%?6=record(N%) |
00001be0  83 20 32 35 36 0d 0e 6a  1d 62 6c 6f 63 6b 25 3f  |. 256..j.block%?|
00001bf0  37 3d 72 65 63 6f 72 64  28 4e 25 29 20 81 20 32  |7=record(N%) . 2|
00001c00  35 36 0d 0e 74 07 f2 6f  77 0d 0e 7e 0d 3f 62 6c  |56..t..ow..~.?bl|
00001c10  6f 63 6b 25 3d 33 0d 0e  88 0f 62 6c 6f 63 6b 25  |ock%=3....block%|
00001c20  3f 31 3d 4e 25 0d 0e 92  0e 62 6c 6f 63 6b 25 3f  |?1=N%....block%?|
00001c30  32 3d 30 0d 0e 9c 13 f2  6f 77 3a f4 20 69 6e 69  |2=0.....ow:. ini|
00001c40  74 20 66 6c 61 67 0d 0e  a6 05 e1 0d 0e b0 05 3a  |t flag.........:|
00001c50  0d 0e ba 0f dd a4 72 65  61 64 79 28 58 25 29 0d  |......ready(X%).|
00001c60  0e c4 0b ea 20 4e 25 2c  6e 25 0d 0e ce 09 43 52  |.... N%,n%....CR|
00001c70  43 3d 30 0d 0e d8 0d 3f  62 6c 6f 63 6b 25 3d 32  |C=0....?block%=2|
00001c80  0d 0e e2 0f 62 6c 6f 63  6b 25 3f 31 3d 58 25 0d  |....block%?1=X%.|
00001c90  0e ec 0e 62 6c 6f 63 6b  25 3f 32 3d 30 0d 0e f6  |...block%?2=0...|
00001ca0  14 f2 6f 77 3a f4 20 63  68 65 63 6b 20 66 6c 61  |..ow:. check fla|
00001cb0  67 0d 0f 00 27 e7 20 28  62 6c 6f 63 6b 25 3f 32  |g...'. (block%?2|
00001cc0  20 80 20 34 29 3d 34 20  8c 20 f2 64 65 6c 28 32  | . 4)=4 . .del(2|
00001cd0  30 29 3a e5 8d 64 58 4e  0d 0f 0a 1b e7 20 28 62  |0):..dXN..... (b|
00001ce0  6c 6f 63 6b 25 3f 32 20  80 20 32 29 3d 30 20 8c  |lock%?2 . 2)=0 .|
00001cf0  20 3d a3 0d 0f 14 0e 3f  62 6c 6f 63 6b 25 3d 32  | =.....?block%=2|
00001d00  33 0d 0f 1e 1d 62 6c 6f  63 6b 25 3f 31 3d 72 65  |3....block%?1=re|
00001d10  63 6f 72 64 28 58 25 29  20 83 20 32 35 36 0d 0f  |cord(X%) . 256..|
00001d20  28 1d 62 6c 6f 63 6b 25  3f 32 3d 72 65 63 6f 72  |(.block%?2=recor|
00001d30  64 28 58 25 29 20 81 20  32 35 36 0d 0f 32 0e 62  |d(X%) . 256..2.b|
00001d40  6c 6f 63 6b 25 3f 33 3d  30 0d 0f 3c 07 f2 6f 77  |lock%?3=0..<..ow|
00001d50  0d 0f 46 0f 4e 25 3d 62  6c 6f 63 6b 25 3f 33 0d  |..F.N%=block%?3.|
00001d60  0f 50 0f e7 20 4e 25 3d  31 20 8c 20 3d b9 0d 0f  |.P.. N%=1 . =...|
00001d70  5a 16 e3 20 6e 25 3d 39  30 39 20 b8 20 31 32 35  |Z.. n%=909 . 125|
00001d80  36 20 88 34 0d 0f 64 13  72 65 63 6f 72 64 28 58  |6 .4..d.record(X|
00001d90  25 29 21 6e 25 3d 30 0d  0f 6e 05 ed 0d 0f 78 13  |%)!n%=0..n....x.|
00001da0  e7 20 ac 20 43 52 43 73  69 67 20 8c 20 3d b9 0d  |. . CRCsig . =..|
00001db0  0f 82 1e 43 52 43 3d 26  46 46 3a 72 65 63 6f 72  |...CRC=&FF:recor|
00001dc0  64 28 58 25 29 3f 31 30  3d 97 22 21 22 0d 0f 8c  |d(X%)?10=."!"...|
00001dd0  27 e7 4e 25 3d 26 46 46  20 8c 72 65 63 6f 72 64  |'.N%=&FF .record|
00001de0  28 58 25 29 3f 31 31 3d  97 22 21 22 3a 43 52 43  |(X%)?11=."!":CRC|
00001df0  3d 26 46 45 0d 0f 96 06  3d b9 0d 0f a0 05 3a 0d  |=&FE....=.....:.|
00001e00  0f aa 18 dd f2 77 3a ef  32 38 2c 30 2c 32 34 2c  |.....w:.28,0,24,|
00001e10  33 39 2c 32 34 3a e1 0d  0f b4 21 dd f2 6f 66 66  |39,24:....!..off|
00001e20  3a ef 32 33 2c 31 2c 30  2c 30 2c 30 2c 30 2c 30  |:.23,1,0,0,0,0,0|
00001e30  2c 30 2c 30 2c 30 3a e1  0d 0f be 20 dd f2 6f 6e  |,0,0,0:.... ..on|
00001e40  3a ef 32 33 2c 31 2c 31  2c 30 2c 30 2c 30 2c 30  |:.23,1,1,0,0,0,0|
00001e50  2c 30 2c 30 2c 30 3a e1  0d 0f c8 05 3a 0d 0f d2  |,0,0,0:.....:...|
00001e60  0d dd f2 63 6c 65 61 6e  75 70 0d 0f dc 13 e3 20  |...cleanup..... |
00001e70  45 25 3d 20 30 20 b8 20  6e 70 25 2d 31 0d 0f e6  |E%= 0 . np%-1...|
00001e80  15 e7 20 50 25 28 45 25  29 3d 30 20 8c 20 8d 54  |.. P%(E%)=0 . .T|
00001e90  44 50 0d 0f f0 48 e7 20  73 70 25 28 45 25 29 3d  |DP...H. sp%(E%)=|
00001ea0  30 20 80 20 28 3f 6c 69  73 74 25 28 45 25 29 3d  |0 . (?list%(E%)=|
00001eb0  30 20 84 20 3f 6c 69 73  74 25 28 45 25 29 3e 32  |0 . ?list%(E%)>2|
00001ec0  34 30 29 20 8c 20 3f 6c  69 73 74 25 28 45 25 29  |40) . ?list%(E%)|
00001ed0  3d 26 46 46 3a e5 8d 54  44 50 0d 0f fa 0f f2 66  |=&FF:..TDP.....f|
00001ee0  69 6c 6c 69 6e 28 45 25  29 0d 10 04 05 ed 0d 10  |illin(E%).......|
00001ef0  0e 05 e1 0d 10 18 05 3a  0d 10 22 10 dd f2 66 69  |.......:.."...fi|
00001f00  6c 6c 69 6e 28 52 25 29  0d 10 2c 08 ea 20 4e 25  |llin(R%)..,.. N%|
00001f10  0d 10 36 1c e3 20 4e 25  3d 31 20 b8 20 28 73 70  |..6.. N%=1 . (sp|
00001f20  25 28 52 25 29 20 80 20  26 46 46 29 0d 10 40 48  |%(R%) . &FF)..@H|
00001f30  e7 20 28 6c 69 73 74 25  28 52 25 29 3f 28 4e 25  |. (list%(R%)?(N%|
00001f40  2d 31 29 3d 30 20 84 20  6c 69 73 74 25 28 52 25  |-1)=0 . list%(R%|
00001f50  29 3f 28 4e 25 2d 31 29  3e 32 34 30 29 20 8c 20  |)?(N%-1)>240) . |
00001f60  6c 69 73 74 25 28 52 25  29 3f 28 4e 25 2d 31 29  |list%(R%)?(N%-1)|
00001f70  3d 26 46 46 0d 10 4a 05  ed 0d 10 54 05 e1 0d 10  |=&FF..J....T....|
00001f80  5e 05 3a 0d 10 68 11 dd  f2 72 65 71 75 65 73 74  |^.:..h...request|
00001f90  28 58 25 29 0d 10 72 08  ea 20 45 25 0d 10 7c 18  |(X%)..r.. E%..|.|
00001fa0  6f 6b 3d a3 3a e7 20 ac  20 a4 77 69 6c 64 73 65  |ok=.:. . .wildse|
00001fb0  74 20 8c e1 0d 10 86 0b  63 68 61 6e 25 3d 30 0d  |t ......chan%=0.|
00001fc0  10 90 18 e7 20 58 25 3d  30 20 8c 20 58 25 3d 63  |.... X%=0 . X%=c|
00001fd0  75 72 72 65 6e 74 25 0d  10 9a 10 e3 20 45 25 3d  |urrent%..... E%=|
00001fe0  20 31 20 b8 20 4e 25 0d  10 a4 1b e7 20 64 70 25  | 1 . N%..... dp%|
00001ff0  28 45 25 29 3d 58 25 20  8c 20 63 68 61 6e 25 3d  |(E%)=X% . chan%=|
00002000  45 25 0d 10 ae 05 ed 0d  10 b8 1d e7 20 63 68 61  |E%.......... cha|
00002010  6e 25 3d 30 20 8c 20 f2  73 65 74 72 65 63 28 30  |n%=0 . .setrec(0|
00002020  2c 58 25 29 0d 10 c2 13  f1 8a 30 2c 30 29 22 82  |,X%)......0,0)".|
00002030  22 c3 28 58 25 29 3b 0d  10 cc 14 f5 20 fd a4 72  |".(X%);..... ..r|
00002040  65 61 64 79 28 63 68 61  6e 25 29 0d 10 d6 28 f2  |eady(chan%)...(.|
00002050  6f 73 63 6c 69 28 22 44  49 53 50 4c 41 59 20 22  |oscli("DISPLAY "|
00002060  2b c3 7e 28 72 65 63 6f  72 64 28 63 68 61 6e 25  |+.~(record(chan%|
00002070  29 29 29 0d 10 e0 08 f2  6f 66 66 0d 10 ea 0f 63  |))).....off....c|
00002080  75 72 72 65 6e 74 25 3d  58 25 0d 10 f4 13 f1 8a  |urrent%=X%......|
00002090  30 2c 30 29 22 80 22 c3  28 58 25 29 3b 0d 10 fe  |0,0)".".(X%);...|
000020a0  06 f2 77 0d 11 08 14 64  70 25 28 63 68 61 6e 25  |..w....dp%(chan%|
000020b0  29 3d 26 31 30 30 30 0d  11 12 05 e1 0d 11 1c 05  |)=&1000.........|
000020c0  3a 0d 11 26 0f dd a4 63  68 65 63 6b 70 61 67 65  |:..&...checkpage|
000020d0  0d 11 30 05 f5 0d 11 3a  1f e8 22 45 6e 74 65 72  |..0....:.."Enter|
000020e0  20 70 61 67 65 20 72 65  71 75 69 72 65 64 20 3e  | page required >|
000020f0  3e 22 58 24 0d 11 44 3e  20 e7 20 c0 58 24 2c 31  |>"X$..D> . .X$,1|
00002100  29 3d 22 23 22 20 8c 20  f2 72 65 71 75 65 73 74  |)="#" . .request|
00002110  28 bb 28 c2 58 24 2c a9  28 58 24 29 2d 31 29 29  |(.(.X$,.(X$)-1))|
00002120  29 3a e5 8d 44 58 51 20  8b 20 58 25 3d bb 28 58  |):..DXQ . X%=.(X|
00002130  24 29 0d 11 4e 0f 6f 6b  3d a4 77 69 6c 64 73 65  |$)..N.ok=.wildse|
00002140  74 0d 11 58 08 fd 20 6f  6b 0d 11 62 07 3d 58 25  |t..X.. ok..b.=X%|
00002150  0d 11 6c 05 3a 0d 11 76  0d dd a4 77 69 6c 64 73  |..l.:..v...wilds|
00002160  65 74 0d 11 80 0b ea 20  45 25 2c 6f 6b 0d 11 8a  |et..... E%,ok...|
00002170  0d 45 25 3d 31 3a 6f 6b  3d a3 0d 11 94 0f e7 20  |.E%=1:ok=...... |
00002180  58 25 3d 30 20 8c 20 3d  b9 0d 11 9e 15 54 25 3d  |X%=0 . =.....T%=|
00002190  28 58 25 20 81 20 31 30  30 29 2a 31 30 30 0d 11  |(X% . 100)*100..|
000021a0  a8 05 f5 0d 11 b2 17 e7  20 54 25 3d 63 70 25 28  |........ T%=cp%(|
000021b0  45 25 29 20 8c 20 6f 6b  3d b9 0d 11 bc 0b 45 25  |E%) . ok=.....E%|
000021c0  3d 45 25 2b 31 0d 11 c6  0f fd 20 63 70 25 28 45  |=E%+1..... cp%(E|
000021d0  25 29 3d 30 0d 11 d0 0f  e7 20 ac 20 6f 6b 20 8c  |%)=0..... . ok .|
000021e0  20 ef 37 0d 11 da 07 3d  6f 6b 0d 11 e4 05 3a 0d  | .7....=ok....:.|
000021f0  11 ee 0e dd f2 68 6f 6c  64 28 45 25 29 0d 11 f8  |.....hold(E%)...|
00002200  0d 3f 62 6c 6f 63 6b 25  3d 33 0d 12 02 0f 62 6c  |.?block%=3....bl|
00002210  6f 63 6b 25 3f 31 3d 45  25 0d 12 0c 19 62 6c 6f  |ock%?1=E%....blo|
00002220  63 6b 25 3f 32 3d 62 6c  6f 63 6b 25 3f 32 20 84  |ck%?2=block%?2 .|
00002230  20 31 0d 12 16 1b 62 6c  6f 63 6b 25 3f 32 3d 28  | 1....block%?2=(|
00002240  62 6c 6f 63 6b 25 3f 32  29 20 84 20 31 0d 12 20  |block%?2) . 1.. |
00002250  05 e1 0d 12 2a 05 3a 0d  12 34 0d dd f2 64 65 6c  |....*.:..4...del|
00002260  28 54 25 29 0d 12 3e 0b  54 25 3d 91 2b 54 25 0d  |(T%)..>.T%=.+T%.|
00002270  12 48 0d f5 20 fd 20 91  3e 3d 54 25 0d 12 52 05  |.H.. . .>=T%..R.|
00002280  e1 0d 12 5c 05 3a 0d 12  66 0c dd f2 72 65 76 65  |...\.:..f...reve|
00002290  61 6c 0d 12 70 07 ea 6e  25 0d 12 7a 16 e3 20 6e  |al..p..n%..z.. n|
000022a0  25 3d 26 37 43 30 30 20  b8 20 26 37 46 46 46 0d  |%=&7C00 . &7FFF.|
000022b0  12 84 16 e7 20 3f 6e 25  3d 31 35 32 20 8c 20 3f  |.... ?n%=152 . ?|
000022c0  6e 25 3d 33 32 0d 12 8e  05 ed 0d 12 98 05 e1 0d  |n%=32...........|
000022d0  12 a2 05 3a 0d 12 ac 08  dd a4 66 73 0d 12 b6 0d  |...:......fs....|
000022e0  41 25 3d 30 3a 59 25 3d  30 0d 12 c0 0f 41 25 3d  |A%=0:Y%=0....A%=|
000022f0  ba 28 26 46 46 44 41 29  0d 12 ca 0d 3d 41 25 20  |.(&FFDA)....=A% |
00002300  80 20 26 46 46 0d 12 d4  05 3a 0d 12 de 0d dd a4  |. &FF....:......|
00002310  64 69 72 28 6e 25 29 0d  12 e8 0a ea 20 64 69 72  |dir(n%)..... dir|
00002320  25 0d 12 f2 14 64 69 72  25 3d 28 6e 25 2d 31 29  |%....dir%=(n%-1)|
00002330  20 81 20 34 30 0d 12 fc  12 e7 20 64 69 72 25 3d  | . 40..... dir%=|
00002340  30 20 8c 20 3d 22 22 0d  13 06 10 64 69 72 25 3d  |0 . =""....dir%=|
00002350  64 69 72 25 2b 34 30 0d  13 10 10 3d c3 28 64 69  |dir%+40....=.(di|
00002360  72 25 29 2b 22 2e 22 0d  13 1a 05 3a 0d 13 24 0f  |r%)+"."....:..$.|
00002370  dd f2 6f 73 63 6c 69 28  58 24 29 0d 13 2e 0b ea  |..oscli(X$).....|
00002380  20 58 25 2c 59 25 0d 13  38 0e 24 6f 73 70 61 63  | X%,Y%..8.$ospac|
00002390  65 3d 58 24 0d 13 42 13  58 25 3d 6f 73 70 61 63  |e=X$..B.X%=ospac|
000023a0  65 20 83 20 32 35 36 0d  13 4c 13 59 25 3d 6f 73  |e . 256..L.Y%=os|
000023b0  70 61 63 65 20 81 20 32  35 36 0d 13 56 0b d6 20  |pace . 256..V.. |
000023c0  26 46 46 46 37 0d 13 60  05 e1 0d 13 6a 05 3a 0d  |&FFF7..`....j.:.|
000023d0  13 74 15 dd f2 64 75 6d  70 72 6f 75 74 69 6e 65  |.t...dumproutine|
000023e0  28 58 25 29 0d 13 7e 23  f4 20 43 6f 6d 6d 61 6e  |(X%)..~#. Comman|
000023f0  64 73 20 68 65 72 65 20  61 72 65 20 66 6f 72 20  |ds here are for |
00002400  22 4d 59 52 4f 4d 22 0d  13 88 28 f4 20 49 6e 73  |"MYROM"...(. Ins|
00002410  65 72 74 20 73 75 69 74  61 62 6c 65 20 63 6f 6d  |ert suitable com|
00002420  6d 61 6e 64 73 20 66 6f  72 20 6f 74 68 65 72 0d  |mands for other.|
00002430  13 92 15 f4 20 73 63 72  65 65 6e 64 75 6d 70 20  |.... screendump |
00002440  72 6f 6d 73 0d 13 9c 11  e7 20 58 25 3d 31 20 8c  |roms..... X%=1 .|
00002450  20 8d 64 44 53 0d 13 a6  14 f4 20 54 65 78 74 20  | .dDS..... Text |
00002460  6f 6e 6c 79 20 64 75 6d  70 0d 13 b0 09 2a 54 45  |only dump....*TE|
00002470  58 54 0d 13 ba 05 e1 0d  13 c4 12 e7 20 a6 28 2d  |XT.......... .(-|
00002480  31 29 20 8c 20 8d 54 40  54 0d 13 ce 12 e7 20 a6  |1) . .T@T..... .|
00002490  28 2d 32 29 20 8c 20 8d  54 5e 54 0d 13 d8 12 f4  |(-2) . .T^T.....|
000024a0  20 53 63 72 65 65 6e 20  69 6d 61 67 65 0d 13 e2  | Screen image...|
000024b0  0a 2a 49 4d 41 47 45 0d  13 ec 05 e1 0d 13 f6 20  |.*IMAGE........ |
000024c0  f4 20 3c 53 48 49 46 54  3e 20 6d 61 6b 65 73 20  |. <SHIFT> makes |
000024d0  62 6c 75 65 20 3d 20 62  6c 61 63 6b 0d 14 00 11  |blue = black....|
000024e0  2a 49 4d 41 47 45 20 4e  4f 42 4c 55 45 0d 14 0a  |*IMAGE NOBLUE...|
000024f0  05 e1 0d 14 14 20 f4 20  3c 43 54 52 4c 3e 20 67  |..... . <CTRL> g|
00002500  69 76 65 73 20 69 6e 76  65 72 74 65 64 20 64 75  |ives inverted du|
00002510  6d 70 0d 14 1e 11 2a 49  4d 41 47 45 20 49 4e 56  |mp....*IMAGE INV|
00002520  45 52 54 0d 14 28 05 e1  0d 14 32 05 3a 0d 14 3c  |ERT..(....2.:..<|
00002530  1e dc 22 42 42 43 31 22  2c 22 42 42 43 32 22 2c  |.."BBC1","BBC2",|
00002540  22 49 54 56 22 2c 22 43  48 34 22 0d 14 46 05 3a  |"ITV","CH4"..F.:|
00002550  0d 14 50 27 f4 20 44 61  74 61 20 73 65 74 73 20  |..P'. Data sets |
00002560  64 65 66 61 75 6c 74 20  69 6e 64 65 78 20 70 61  |default index pa|
00002570  67 65 73 20 61 6e 64 0d  14 5a 1a f4 20 61 6c 6c  |ges and..Z.. all|
00002580  6f 77 65 64 20 70 61 67  65 20 6e 75 6d 62 65 72  |owed page number|
00002590  73 0d 14 64 23 f4 20 23  2c 63 68 61 6e 6e 65 6c  |s..d#. #,channel|
000025a0  2c 6c 69 73 74 20 6f 66  20 69 6e 64 65 78 20 70  |,list of index p|
000025b0  61 67 65 73 0d 14 6e 25  f4 20 21 2c 61 6c 6c 6f  |ages..n%. !,allo|
000025c0  77 65 64 20 70 61 67 65  73 20 28 62 6c 6f 63 6b  |wed pages (block|
000025d0  73 20 6f 66 20 31 30 30  29 0d 14 78 2b dc 20 23  |s of 100)..x+. #|
000025e0  2c 31 2c 31 30 32 2c 31  32 30 2c 31 35 31 2c 31  |,1,102,120,151,1|
000025f0  37 30 2c 33 30 30 2c 31  38 30 2c 21 2c 31 30 30  |70,300,180,!,100|
00002600  2c 33 30 30 0d 14 82 2b  dc 20 23 2c 32 2c 32 35  |,300...+. #,2,25|
00002610  31 2c 37 30 30 2c 32 33  30 2c 32 30 32 2c 32 37  |1,700,230,202,27|
00002620  30 2c 21 2c 32 30 30 2c  33 30 30 2c 37 30 30 0d  |0,!,200,300,700.|
00002630  14 8c 2b dc 20 23 2c 33  2c 31 36 30 2c 32 33 30  |..+. #,3,160,230|
00002640  2c 32 31 30 2c 32 32 30  2c 31 32 30 2c 31 30 31  |,210,220,120,101|
00002650  2c 21 2c 31 30 30 2c 32  30 30 0d 14 96 2f dc 20  |,!,100,200.../. |
00002660  23 2c 34 2c 36 39 30 2c  35 33 30 2c 35 38 30 2c  |#,4,690,530,580,|
00002670  35 35 30 2c 34 38 30 2c  34 35 30 2c 21 2c 36 30  |550,480,450,!,60|
00002680  30 2c 34 30 30 2c 35 30  30 0d 14 a0 07 dc 20 23  |0,400,500..... #|
00002690  0d ff                                             |..|
00002692