�"�SatSeq
:
�"�(C) Jeremy Brayshaw
(�"�February 1989
2�"�V.2.13  Feb 89
<�"�For use with DFS & ADFS
F�"�(and, hopefully, Econet)
P:
Z �"�Satellite image sequences
d:
n� � � �DrA
x�7
�:
��"�set appropriate keys:
�moveleft%=137
�moveright%=136
�moveup%=139
�movedown%=138
�exit%=13
�:
��"�specify dir for images:
�directory$="$"
�:
�#�"�Set delay betwn auto screens
�autodelay%=0

:

�setvars

dfs%=�whichdfs

"total%=�readtitles(dfs%)

,6�total%=0 �heading(0,"�No images found"+�10+�13):�

6�finddates(total%-1)

@�sort(total%-1)

J�2

T�23,1,0;0;0;0;

^E�total%-1-offset%<1 �7:�heading(0,"�No images present"+�10+�13):�

h�show(total%-1-offset%)

r*FX4

|*FX225,1

��7

��heading(0,"")

��

�:

���heading(info%,fname$)

��

�.�'"��������������������������������������"

�-�"�������������� Met Office and�������"

�-�"����������������BBC Telesoftware������"

�-�"��������������Satellite Images������"

�-�"�����������������������||�������������"

��info% �details

��2,17)fname$;
�
:
ݤreadtitles(dfs%)
&�dfs%=4 =�getDFScat
0�dfs%=8 =�getADFScat
:�dfs%=5 =�getADFScat
D=0
N:
Xݤwhichdfs
b�F%
l!A%=0:Y%=0:F%=�(&FFDA)�&FF:=F%
v:
�ݤgetDFScat
�-�heading(-1,"�Which drives? (0,1,2,3):�")
� drives$="":�:Q=�:�Q=13 �t|B
�@�Q=127 � drives$<>"" drives$=�drives$,�(drives$)-1):�Q:�t|B
��Q<48 � Q>51 �7:�t|B
�drives$=drives$+�Q:�Q
�	�Q=13
��drives$="" drive$="0"
�'�heading(0,"�Reading drive(s) ...")
��dr%,numfile%,qty%
��DR%=0�3
��drives$,�(DR%))=0 �D\C
��oscli("DRIVE "+�(DR%))
qty%=qty%+numfile%
?A%=6:X%=p%�256:Y%=p%�256:p%!1=data%:�&FFD1:dr%=(data%?1)-48
<?p%=dr%:p%!1=data%:p%?5=3:p%?6=&53:p%?7=0:p%?8=0:p%?9=34
 %X%=p%�256:Y%=p%�256:A%=&7F:�&FFF1
*&numfile%=(data%?&105)/8:M%=data%+8
4�A%=1�numfile%
>Rname$(qty%+A%-1)="":�B%=0�6:name$(qty%+A%-1)=name$(qty%+A%-1)+�((M%?B%)�127):�
HKname$(qty%+A%-1)=":"+�(DR%)+"."+directory$+"."+name$(qty%+A%-1):M%=M%+8
R�
\�
f=qty%+numfile%
p:
zݤgetADFScat
��dfs%=5 �TFD
�-�heading(-1,"�Which drives? (0,1,4,5):�")
� drives$="":�:Q=�:�Q=13 �dJC
��Q=50�Q=51 �7:�dJC
�@�Q=127 � drives$<>"" drives$=�drives$,�(drives$)-1):�Q:�dJC
��Q<48 � Q>53 �7:�dJC
�drives$=drives$+�Q:�Q
�	�Q=13
�'�heading(0,"�Reading drive(s) ...")
��DR%,numfile%
��DR%=0�5
��drives$,�(DR%))=0 �DjD
�)�oscli("DIR :"+�(DR%)+"."+directory$)
�A%=p%�p%+12:?A%=0:�
 �A%=data%�data%+516:?A%=32:�
6p%!1=data%:p%?5=47:X%=p%�256:Y%=p%�256:A%=8:�&FFD1
$V�z%=data%+1�data%+515�11:z%?10=13:p%?0=z%�256:p%?1=z%�256:X%=p%�256:Y%=p%�256:A%=5
.�$z%=�10," ") �DVD
8�(�(&FFDD)�&FF)<>1 �DVD
B9�dfs%=5 name$(numfile%)=$z%:numfile%=numfile%+1:�DVD
LIname$(numfile%)=":"+�(DR%)+"."+directory$+"."+$z%:numfile%=numfile%+1
V�
`�dfs%=5 �D~D
j�
t*DIR :0
~
=numfile%
�:
�
��setvars
�
offset%=0
�*FX225,128
�!� p 100:�nul%=0�99:p?nul%=0:�
�%�p% 18,data% 517,w% 15,name$(124)
��
�:
���show(last%)
�
*FX4,1
�0show%=0:�oscli("LOAD "+name$(0)+" FFFF3000")
��
*FX21,0

Q=�
�Q=exit% �DxE
$�Q=moveleft% show%=show%+1:�DZE
(%�Q=moveright% show%=show%-1:�DZE
2�Q=moveup% show%=0:�DZE
<"�Q=movedown% show%=last%:�DZE
F,�Q=128 �7:�continuous(last%,show%):�DxE
P	�DxE
Z%�show%>last% show%=last%:�7:�DxE
d�show%<0 show%=0:�7:�DxE
n,�oscli("LOAD "+name$(show%)+" FFFF3000")
x�Q=exit%
��
�:
���sort(max%)
�!�dfs%=5 dirlen%=1 � dirlen%=4
�!dirlen%=dirlen%=�(directory$)
��m%=0�max%
��n%=1�max%
�|��name$(n%-1),�(name$(n%-1))-dirlen%)>�name$(n%),�(name$(n%))-dirlen%):t$=name$(n%-1):name$(n%-1)=name$(n%):name$(n%)=t$
��
��
��
�:
���finddates(max%)
�nm$
�m%=0�max%
0nm$=�name$(m%),�(name$(m%))-5-�(directory$))
"V�dfs%=4 �((�(nm$)<>6)�(�(nm$)<750000)) name$(m%)="�������":offset%=offset%+1:�TvF
,Y�dfs%=8 �((�(nm$)<>9)�(�(nm$)<244000000)) name$(m%)="�������":offset%=offset%+1:�TvF
6�
@�
J:
T��continuous(max%,now%)
^�no%
hno%=now%
r�
|Q=�(autodelay%)
��Q=128 �tnF
�*FX21,0
�no%=(no%+1)�(max%+1)
�*�oscli("LOAD "+name$(no%)+" FFFF3000")
�
�Q=128
��7
�
show%=no%
��
�:
�
��details
�k�2,7)"�To see satellite images in date"'"  �order, enter the drive(s) holding"'"  �the screen images."
�k�'"  �Select drives, then use arrow keys:"'�5)"�]�next";�20)"�[�previous"'�5)"�^�first";�20)"�v�latest"
�-�4)"�f0�rapid sequence display (on/off)"
�
:
��oscli(text$)
&($p%=text$:X%=p%�256:Y%=p%�256:�&FFF7
0�
�

00000000  0d 00 0a 0d f4 22 83 53  61 74 53 65 71 0d 00 14  |.....".SatSeq...|
00000010  05 3a 0d 00 1e 1a f4 22  81 28 43 29 20 4a 65 72  |.:.....".(C) Jer|
00000020  65 6d 79 20 42 72 61 79  73 68 61 77 0d 00 28 14  |emy Brayshaw..(.|
00000030  f4 22 86 46 65 62 72 75  61 72 79 20 31 39 38 39  |.".February 1989|
00000040  0d 00 32 15 f4 22 82 56  2e 32 2e 31 33 20 20 46  |..2..".V.2.13  F|
00000050  65 62 20 38 39 0d 00 3c  1e f4 22 85 46 6f 72 20  |eb 89..<..".For |
00000060  75 73 65 20 77 69 74 68  20 44 46 53 20 26 20 41  |use with DFS & A|
00000070  44 46 53 0d 00 46 1f f4  22 85 28 61 6e 64 2c 20  |DFS..F..".(and, |
00000080  68 6f 70 65 66 75 6c 6c  79 2c 20 45 63 6f 6e 65  |hopefully, Econe|
00000090  74 29 0d 00 50 05 3a 0d  00 5a 20 f4 22 83 53 61  |t)..P.:..Z .".Sa|
000000a0  74 65 6c 6c 69 74 65 20  69 6d 61 67 65 20 73 65  |tellite image se|
000000b0  71 75 65 6e 63 65 73 0d  00 64 05 3a 0d 00 6e 0e  |quences..d.:..n.|
000000c0  ee 20 85 20 e5 20 8d 44  72 41 0d 00 78 06 eb 37  |. . . .DrA..x..7|
000000d0  0d 00 82 05 3a 0d 00 8c  1c f4 22 81 73 65 74 20  |....:.....".set |
000000e0  61 70 70 72 6f 70 72 69  61 74 65 20 6b 65 79 73  |appropriate keys|
000000f0  3a 0d 00 96 11 6d 6f 76  65 6c 65 66 74 25 3d 31  |:....moveleft%=1|
00000100  33 37 0d 00 a0 12 6d 6f  76 65 72 69 67 68 74 25  |37....moveright%|
00000110  3d 31 33 36 0d 00 aa 0f  6d 6f 76 65 75 70 25 3d  |=136....moveup%=|
00000120  31 33 39 0d 00 b4 11 6d  6f 76 65 64 6f 77 6e 25  |139....movedown%|
00000130  3d 31 33 38 0d 00 be 0c  65 78 69 74 25 3d 31 33  |=138....exit%=13|
00000140  0d 00 c8 05 3a 0d 00 d2  1e f4 22 81 73 70 65 63  |....:.....".spec|
00000150  69 66 79 20 64 69 72 20  66 6f 72 20 69 6d 61 67  |ify dir for imag|
00000160  65 73 3a 0d 00 dc 12 64  69 72 65 63 74 6f 72 79  |es:....directory|
00000170  24 3d 22 24 22 0d 00 e6  05 3a 0d 00 f0 23 f4 22  |$="$"....:...#."|
00000180  81 53 65 74 20 64 65 6c  61 79 20 62 65 74 77 6e  |.Set delay betwn|
00000190  20 61 75 74 6f 20 73 63  72 65 65 6e 73 0d 00 fa  | auto screens...|
000001a0  10 61 75 74 6f 64 65 6c  61 79 25 3d 30 0d 01 04  |.autodelay%=0...|
000001b0  05 3a 0d 01 0e 0c f2 73  65 74 76 61 72 73 0d 01  |.:.....setvars..|
000001c0  18 12 64 66 73 25 3d a4  77 68 69 63 68 64 66 73  |..dfs%=.whichdfs|
000001d0  0d 01 22 1c 74 6f 74 61  6c 25 3d a4 72 65 61 64  |..".total%=.read|
000001e0  74 69 74 6c 65 73 28 64  66 73 25 29 0d 01 2c 36  |titles(dfs%)..,6|
000001f0  e7 74 6f 74 61 6c 25 3d  30 20 f2 68 65 61 64 69  |.total%=0 .headi|
00000200  6e 67 28 30 2c 22 83 4e  6f 20 69 6d 61 67 65 73  |ng(0,".No images|
00000210  20 66 6f 75 6e 64 22 2b  bd 31 30 2b bd 31 33 29  | found"+.10+.13)|
00000220  3a e0 0d 01 36 18 f2 66  69 6e 64 64 61 74 65 73  |:...6..finddates|
00000230  28 74 6f 74 61 6c 25 2d  31 29 0d 01 40 13 f2 73  |(total%-1)..@..s|
00000240  6f 72 74 28 74 6f 74 61  6c 25 2d 31 29 0d 01 4a  |ort(total%-1)..J|
00000250  06 eb 32 0d 01 54 12 ef  32 33 2c 31 2c 30 3b 30  |..2..T..23,1,0;0|
00000260  3b 30 3b 30 3b 0d 01 5e  45 e7 74 6f 74 61 6c 25  |;0;0;..^E.total%|
00000270  2d 31 2d 6f 66 66 73 65  74 25 3c 31 20 eb 37 3a  |-1-offset%<1 .7:|
00000280  f2 68 65 61 64 69 6e 67  28 30 2c 22 83 4e 6f 20  |.heading(0,".No |
00000290  69 6d 61 67 65 73 20 70  72 65 73 65 6e 74 22 2b  |images present"+|
000002a0  bd 31 30 2b bd 31 33 29  3a e0 0d 01 68 1b f2 73  |.10+.13):...h..s|
000002b0  68 6f 77 28 74 6f 74 61  6c 25 2d 31 2d 6f 66 66  |how(total%-1-off|
000002c0  73 65 74 25 29 0d 01 72  08 2a 46 58 34 0d 01 7c  |set%)..r.*FX4..||
000002d0  0c 2a 46 58 32 32 35 2c  31 0d 01 86 06 eb 37 0d  |.*FX225,1.....7.|
000002e0  01 90 12 f2 68 65 61 64  69 6e 67 28 30 2c 22 22  |....heading(0,""|
000002f0  29 0d 01 9a 05 e0 0d 01  a4 05 3a 0d 01 ae 1b dd  |).........:.....|
00000300  f2 68 65 61 64 69 6e 67  28 69 6e 66 6f 25 2c 66  |.heading(info%,f|
00000310  6e 61 6d 65 24 29 0d 01  b8 05 db 0d 01 c2 2e f1  |name$)..........|
00000320  27 22 9a 91 a0 a0 fc fc  fc fc fc fc fc fc fc fc  |'"..............|
00000330  fc fc fc fc fc fc fc fc  fc fc fc fc fc fc fc fc  |................|
00000340  fc fc fc fc fc fc fc fc  22 0d 01 cc 2d f1 22 9a  |........"...-.".|
00000350  93 a8 af ef ff af af a1  91 ff ff 9e 81 9d 87 20  |............... |
00000360  4d 65 74 20 4f 66 66 69  63 65 20 61 6e 64 a0 91  |Met Office and..|
00000370  a3 9c ff ff ff 22 0d 01  d6 2d f1 22 9a 93 a0 a0  |....."...-."....|
00000380  fe a7 91 f8 fc ff ff ff  9e 81 9d 87 42 42 43 20  |............BBC |
00000390  54 65 6c 65 73 6f 66 74  77 61 72 65 a0 91 9c ff  |Telesoftware....|
000003a0  ff ff 22 0d 01 e0 2d f1  22 9a 93 a0 fa b7 91 e8  |.."...-.".......|
000003b0  ff ff ff ff ff 9e 81 9d  82 53 61 74 65 6c 6c 69  |.........Satelli|
000003c0  74 65 20 49 6d 61 67 65  73 a0 91 9c ff ff ff 22  |te Images......"|
000003d0  0d 01 ea 2d f1 22 9a 91  a0 a0 fc fc ff ff ff ff  |...-."..........|
000003e0  ff ff ff ff ff fc fc fc  fc fc fc fc fc 7c 7c fc  |.............||.|
000003f0  fc fc fc fc fc fc fc fc  fc ff ff ff 22 0d 01 f4  |............"...|
00000400  13 e7 69 6e 66 6f 25 20  f2 64 65 74 61 69 6c 73  |..info% .details|
00000410  0d 01 fe 12 f1 8a 32 2c  31 37 29 66 6e 61 6d 65  |......2,17)fname|
00000420  24 3b 0d 02 08 05 e1 0d  02 12 05 3a 0d 02 1c 16  |$;.........:....|
00000430  dd a4 72 65 61 64 74 69  74 6c 65 73 28 64 66 73  |..readtitles(dfs|
00000440  25 29 0d 02 26 17 e7 64  66 73 25 3d 34 20 3d a4  |%)..&..dfs%=4 =.|
00000450  67 65 74 44 46 53 63 61  74 0d 02 30 18 e7 64 66  |getDFScat..0..df|
00000460  73 25 3d 38 20 3d a4 67  65 74 41 44 46 53 63 61  |s%=8 =.getADFSca|
00000470  74 0d 02 3a 18 e7 64 66  73 25 3d 35 20 3d a4 67  |t..:..dfs%=5 =.g|
00000480  65 74 41 44 46 53 63 61  74 0d 02 44 06 3d 30 0d  |etADFScat..D.=0.|
00000490  02 4e 05 3a 0d 02 58 0e  dd a4 77 68 69 63 68 64  |.N.:..X...whichd|
000004a0  66 73 0d 02 62 07 ea 46  25 0d 02 6c 21 41 25 3d  |fs..b..F%..l!A%=|
000004b0  30 3a 59 25 3d 30 3a 46  25 3d ba 28 26 46 46 44  |0:Y%=0:F%=.(&FFD|
000004c0  41 29 80 26 46 46 3a 3d  46 25 0d 02 76 05 3a 0d  |A).&FF:=F%..v.:.|
000004d0  02 80 0f dd a4 67 65 74  44 46 53 63 61 74 0d 02  |.....getDFScat..|
000004e0  8a 2d f2 68 65 61 64 69  6e 67 28 2d 31 2c 22 83  |.-.heading(-1,".|
000004f0  57 68 69 63 68 20 64 72  69 76 65 73 3f 20 28 30  |Which drives? (0|
00000500  2c 31 2c 32 2c 33 29 3a  86 22 29 0d 02 94 20 64  |,1,2,3):.")... d|
00000510  72 69 76 65 73 24 3d 22  22 3a f5 3a 51 3d a5 3a  |rives$="":.:Q=.:|
00000520  e7 51 3d 31 33 20 e5 8d  74 7c 42 0d 02 9e 40 e7  |.Q=13 ..t|B...@.|
00000530  51 3d 31 32 37 20 80 20  64 72 69 76 65 73 24 3c  |Q=127 . drives$<|
00000540  3e 22 22 20 64 72 69 76  65 73 24 3d c0 64 72 69  |>"" drives$=.dri|
00000550  76 65 73 24 2c a9 28 64  72 69 76 65 73 24 29 2d  |ves$,.(drives$)-|
00000560  31 29 3a ef 51 3a e5 8d  74 7c 42 0d 02 a8 19 e7  |1):.Q:..t|B.....|
00000570  51 3c 34 38 20 84 20 51  3e 35 31 20 ef 37 3a e5  |Q<48 . Q>51 .7:.|
00000580  8d 74 7c 42 0d 02 b2 19  64 72 69 76 65 73 24 3d  |.t|B....drives$=|
00000590  64 72 69 76 65 73 24 2b  bd 51 3a ef 51 0d 02 bc  |drives$+.Q:.Q...|
000005a0  09 fd 51 3d 31 33 0d 02  c6 1a e7 64 72 69 76 65  |..Q=13.....drive|
000005b0  73 24 3d 22 22 20 64 72  69 76 65 24 3d 22 30 22  |s$="" drive$="0"|
000005c0  0d 02 d0 27 f2 68 65 61  64 69 6e 67 28 30 2c 22  |...'.heading(0,"|
000005d0  83 52 65 61 64 69 6e 67  20 64 72 69 76 65 28 73  |.Reading drive(s|
000005e0  29 20 2e 2e 2e 22 29 0d  02 da 16 ea 64 72 25 2c  |) ...").....dr%,|
000005f0  6e 75 6d 66 69 6c 65 25  2c 71 74 79 25 0d 02 e4  |numfile%,qty%...|
00000600  0c e3 44 52 25 3d 30 b8  33 0d 02 ee 1d e7 a7 64  |..DR%=0.3......d|
00000610  72 69 76 65 73 24 2c c3  28 44 52 25 29 29 3d 30  |rives$,.(DR%))=0|
00000620  20 e5 8d 44 5c 43 0d 02  f8 1b f2 6f 73 63 6c 69  | ..D\C.....oscli|
00000630  28 22 44 52 49 56 45 20  22 2b c3 28 44 52 25 29  |("DRIVE "+.(DR%)|
00000640  29 0d 03 02 16 71 74 79  25 3d 71 74 79 25 2b 6e  |)....qty%=qty%+n|
00000650  75 6d 66 69 6c 65 25 0d  03 0c 3f 41 25 3d 36 3a  |umfile%...?A%=6:|
00000660  58 25 3d 70 25 83 32 35  36 3a 59 25 3d 70 25 81  |X%=p%.256:Y%=p%.|
00000670  32 35 36 3a 70 25 21 31  3d 64 61 74 61 25 3a d6  |256:p%!1=data%:.|
00000680  26 46 46 44 31 3a 64 72  25 3d 28 64 61 74 61 25  |&FFD1:dr%=(data%|
00000690  3f 31 29 2d 34 38 0d 03  16 3c 3f 70 25 3d 64 72  |?1)-48...<?p%=dr|
000006a0  25 3a 70 25 21 31 3d 64  61 74 61 25 3a 70 25 3f  |%:p%!1=data%:p%?|
000006b0  35 3d 33 3a 70 25 3f 36  3d 26 35 33 3a 70 25 3f  |5=3:p%?6=&53:p%?|
000006c0  37 3d 30 3a 70 25 3f 38  3d 30 3a 70 25 3f 39 3d  |7=0:p%?8=0:p%?9=|
000006d0  33 34 0d 03 20 25 58 25  3d 70 25 83 32 35 36 3a  |34.. %X%=p%.256:|
000006e0  59 25 3d 70 25 81 32 35  36 3a 41 25 3d 26 37 46  |Y%=p%.256:A%=&7F|
000006f0  3a d6 26 46 46 46 31 0d  03 2a 26 6e 75 6d 66 69  |:.&FFF1..*&numfi|
00000700  6c 65 25 3d 28 64 61 74  61 25 3f 26 31 30 35 29  |le%=(data%?&105)|
00000710  2f 38 3a 4d 25 3d 64 61  74 61 25 2b 38 0d 03 34  |/8:M%=data%+8..4|
00000720  12 e3 41 25 3d 31 b8 6e  75 6d 66 69 6c 65 25 0d  |..A%=1.numfile%.|
00000730  03 3e 52 6e 61 6d 65 24  28 71 74 79 25 2b 41 25  |.>Rname$(qty%+A%|
00000740  2d 31 29 3d 22 22 3a e3  42 25 3d 30 b8 36 3a 6e  |-1)="":.B%=0.6:n|
00000750  61 6d 65 24 28 71 74 79  25 2b 41 25 2d 31 29 3d  |ame$(qty%+A%-1)=|
00000760  6e 61 6d 65 24 28 71 74  79 25 2b 41 25 2d 31 29  |name$(qty%+A%-1)|
00000770  2b bd 28 28 4d 25 3f 42  25 29 80 31 32 37 29 3a  |+.((M%?B%).127):|
00000780  ed 0d 03 48 4b 6e 61 6d  65 24 28 71 74 79 25 2b  |...HKname$(qty%+|
00000790  41 25 2d 31 29 3d 22 3a  22 2b c3 28 44 52 25 29  |A%-1)=":"+.(DR%)|
000007a0  2b 22 2e 22 2b 64 69 72  65 63 74 6f 72 79 24 2b  |+"."+directory$+|
000007b0  22 2e 22 2b 6e 61 6d 65  24 28 71 74 79 25 2b 41  |"."+name$(qty%+A|
000007c0  25 2d 31 29 3a 4d 25 3d  4d 25 2b 38 0d 03 52 05  |%-1):M%=M%+8..R.|
000007d0  ed 0d 03 5c 05 ed 0d 03  66 12 3d 71 74 79 25 2b  |...\....f.=qty%+|
000007e0  6e 75 6d 66 69 6c 65 25  0d 03 70 05 3a 0d 03 7a  |numfile%..p.:..z|
000007f0  10 dd a4 67 65 74 41 44  46 53 63 61 74 0d 03 84  |...getADFScat...|
00000800  11 e7 64 66 73 25 3d 35  20 e5 8d 54 46 44 0d 03  |..dfs%=5 ..TFD..|
00000810  8e 2d f2 68 65 61 64 69  6e 67 28 2d 31 2c 22 83  |.-.heading(-1,".|
00000820  57 68 69 63 68 20 64 72  69 76 65 73 3f 20 28 30  |Which drives? (0|
00000830  2c 31 2c 34 2c 35 29 3a  86 22 29 0d 03 98 20 64  |,1,4,5):.")... d|
00000840  72 69 76 65 73 24 3d 22  22 3a f5 3a 51 3d a5 3a  |rives$="":.:Q=.:|
00000850  e7 51 3d 31 33 20 e5 8d  64 4a 43 0d 03 a2 17 e7  |.Q=13 ..dJC.....|
00000860  51 3d 35 30 84 51 3d 35  31 20 ef 37 3a e5 8d 64  |Q=50.Q=51 .7:..d|
00000870  4a 43 0d 03 ac 40 e7 51  3d 31 32 37 20 80 20 64  |JC...@.Q=127 . d|
00000880  72 69 76 65 73 24 3c 3e  22 22 20 64 72 69 76 65  |rives$<>"" drive|
00000890  73 24 3d c0 64 72 69 76  65 73 24 2c a9 28 64 72  |s$=.drives$,.(dr|
000008a0  69 76 65 73 24 29 2d 31  29 3a ef 51 3a e5 8d 64  |ives$)-1):.Q:..d|
000008b0  4a 43 0d 03 b6 19 e7 51  3c 34 38 20 84 20 51 3e  |JC.....Q<48 . Q>|
000008c0  35 33 20 ef 37 3a e5 8d  64 4a 43 0d 03 c0 19 64  |53 .7:..dJC....d|
000008d0  72 69 76 65 73 24 3d 64  72 69 76 65 73 24 2b bd  |rives$=drives$+.|
000008e0  51 3a ef 51 0d 03 ca 09  fd 51 3d 31 33 0d 03 d4  |Q:.Q.....Q=13...|
000008f0  27 f2 68 65 61 64 69 6e  67 28 30 2c 22 83 52 65  |'.heading(0,".Re|
00000900  61 64 69 6e 67 20 64 72  69 76 65 28 73 29 20 2e  |ading drive(s) .|
00000910  2e 2e 22 29 0d 03 de 11  ea 44 52 25 2c 6e 75 6d  |..").....DR%,num|
00000920  66 69 6c 65 25 0d 03 e8  0c e3 44 52 25 3d 30 b8  |file%.....DR%=0.|
00000930  35 0d 03 f2 1d e7 a7 64  72 69 76 65 73 24 2c c3  |5......drives$,.|
00000940  28 44 52 25 29 29 3d 30  20 e5 8d 44 6a 44 0d 03  |(DR%))=0 ..DjD..|
00000950  fc 29 f2 6f 73 63 6c 69  28 22 44 49 52 20 3a 22  |.).oscli("DIR :"|
00000960  2b c3 28 44 52 25 29 2b  22 2e 22 2b 64 69 72 65  |+.(DR%)+"."+dire|
00000970  63 74 6f 72 79 24 29 0d  04 06 18 e3 41 25 3d 70  |ctory$).....A%=p|
00000980  25 b8 70 25 2b 31 32 3a  3f 41 25 3d 30 3a ed 0d  |%.p%+12:?A%=0:..|
00000990  04 10 20 e3 41 25 3d 64  61 74 61 25 b8 64 61 74  |.. .A%=data%.dat|
000009a0  61 25 2b 35 31 36 3a 3f  41 25 3d 33 32 3a ed 0d  |a%+516:?A%=32:..|
000009b0  04 1a 36 70 25 21 31 3d  64 61 74 61 25 3a 70 25  |..6p%!1=data%:p%|
000009c0  3f 35 3d 34 37 3a 58 25  3d 70 25 83 32 35 36 3a  |?5=47:X%=p%.256:|
000009d0  59 25 3d 70 25 81 32 35  36 3a 41 25 3d 38 3a d6  |Y%=p%.256:A%=8:.|
000009e0  26 46 46 44 31 0d 04 24  56 e3 7a 25 3d 64 61 74  |&FFD1..$V.z%=dat|
000009f0  61 25 2b 31 b8 64 61 74  61 25 2b 35 31 35 88 31  |a%+1.data%+515.1|
00000a00  31 3a 7a 25 3f 31 30 3d  31 33 3a 70 25 3f 30 3d  |1:z%?10=13:p%?0=|
00000a10  7a 25 83 32 35 36 3a 70  25 3f 31 3d 7a 25 81 32  |z%.256:p%?1=z%.2|
00000a20  35 36 3a 58 25 3d 70 25  83 32 35 36 3a 59 25 3d  |56:X%=p%.256:Y%=|
00000a30  70 25 81 32 35 36 3a 41  25 3d 35 0d 04 2e 17 e7  |p%.256:A%=5.....|
00000a40  24 7a 25 3d c4 31 30 2c  22 20 22 29 20 e5 8d 44  |$z%=.10," ") ..D|
00000a50  56 44 0d 04 38 1c e7 28  ba 28 26 46 46 44 44 29  |VD..8..(.(&FFDD)|
00000a60  80 26 46 46 29 3c 3e 31  20 e5 8d 44 56 44 0d 04  |.&FF)<>1 ..DVD..|
00000a70  42 39 e7 64 66 73 25 3d  35 20 6e 61 6d 65 24 28  |B9.dfs%=5 name$(|
00000a80  6e 75 6d 66 69 6c 65 25  29 3d 24 7a 25 3a 6e 75  |numfile%)=$z%:nu|
00000a90  6d 66 69 6c 65 25 3d 6e  75 6d 66 69 6c 65 25 2b  |mfile%=numfile%+|
00000aa0  31 3a e5 8d 44 56 44 0d  04 4c 49 6e 61 6d 65 24  |1:..DVD..LIname$|
00000ab0  28 6e 75 6d 66 69 6c 65  25 29 3d 22 3a 22 2b c3  |(numfile%)=":"+.|
00000ac0  28 44 52 25 29 2b 22 2e  22 2b 64 69 72 65 63 74  |(DR%)+"."+direct|
00000ad0  6f 72 79 24 2b 22 2e 22  2b 24 7a 25 3a 6e 75 6d  |ory$+"."+$z%:num|
00000ae0  66 69 6c 65 25 3d 6e 75  6d 66 69 6c 65 25 2b 31  |file%=numfile%+1|
00000af0  0d 04 56 05 ed 0d 04 60  11 e7 64 66 73 25 3d 35  |..V....`..dfs%=5|
00000b00  20 e5 8d 44 7e 44 0d 04  6a 05 ed 0d 04 74 0b 2a  | ..D~D..j....t.*|
00000b10  44 49 52 20 3a 30 0d 04  7e 0d 3d 6e 75 6d 66 69  |DIR :0..~.=numfi|
00000b20  6c 65 25 0d 04 88 05 3a  0d 04 92 0d dd f2 73 65  |le%....:......se|
00000b30  74 76 61 72 73 0d 04 9c  0d 6f 66 66 73 65 74 25  |tvars....offset%|
00000b40  3d 30 0d 04 a6 0e 2a 46  58 32 32 35 2c 31 32 38  |=0....*FX225,128|
00000b50  0d 04 b0 21 de 20 70 20  31 30 30 3a e3 6e 75 6c  |...!. p 100:.nul|
00000b60  25 3d 30 b8 39 39 3a 70  3f 6e 75 6c 25 3d 30 3a  |%=0.99:p?nul%=0:|
00000b70  ed 0d 04 ba 25 de 70 25  20 31 38 2c 64 61 74 61  |....%.p% 18,data|
00000b80  25 20 35 31 37 2c 77 25  20 31 35 2c 6e 61 6d 65  |% 517,w% 15,name|
00000b90  24 28 31 32 34 29 0d 04  c4 05 e1 0d 04 ce 05 3a  |$(124).........:|
00000ba0  0d 04 d8 11 dd f2 73 68  6f 77 28 6c 61 73 74 25  |......show(last%|
00000bb0  29 0d 04 e2 0a 2a 46 58  34 2c 31 0d 04 ec 30 73  |)....*FX4,1...0s|
00000bc0  68 6f 77 25 3d 30 3a f2  6f 73 63 6c 69 28 22 4c  |how%=0:.oscli("L|
00000bd0  4f 41 44 20 22 2b 6e 61  6d 65 24 28 30 29 2b 22  |OAD "+name$(0)+"|
00000be0  20 46 46 46 46 33 30 30  30 22 29 0d 04 f6 05 f5  | FFFF3000").....|
00000bf0  0d 05 00 0b 2a 46 58 32  31 2c 30 0d 05 0a 07 51  |....*FX21,0....Q|
00000c00  3d a5 0d 05 14 12 e7 51  3d 65 78 69 74 25 20 e5  |=......Q=exit% .|
00000c10  8d 44 78 45 0d 05 1e 24  e7 51 3d 6d 6f 76 65 6c  |.DxE...$.Q=movel|
00000c20  65 66 74 25 20 73 68 6f  77 25 3d 73 68 6f 77 25  |eft% show%=show%|
00000c30  2b 31 3a e5 8d 44 5a 45  0d 05 28 25 e7 51 3d 6d  |+1:..DZE..(%.Q=m|
00000c40  6f 76 65 72 69 67 68 74  25 20 73 68 6f 77 25 3d  |overight% show%=|
00000c50  73 68 6f 77 25 2d 31 3a  e5 8d 44 5a 45 0d 05 32  |show%-1:..DZE..2|
00000c60  1c e7 51 3d 6d 6f 76 65  75 70 25 20 73 68 6f 77  |..Q=moveup% show|
00000c70  25 3d 30 3a e5 8d 44 5a  45 0d 05 3c 22 e7 51 3d  |%=0:..DZE..<".Q=|
00000c80  6d 6f 76 65 64 6f 77 6e  25 20 73 68 6f 77 25 3d  |movedown% show%=|
00000c90  6c 61 73 74 25 3a e5 8d  44 5a 45 0d 05 46 2c e7  |last%:..DZE..F,.|
00000ca0  51 3d 31 32 38 20 ef 37  3a f2 63 6f 6e 74 69 6e  |Q=128 .7:.contin|
00000cb0  75 6f 75 73 28 6c 61 73  74 25 2c 73 68 6f 77 25  |uous(last%,show%|
00000cc0  29 3a e5 8d 44 78 45 0d  05 50 09 e5 8d 44 78 45  |):..DxE..P...DxE|
00000cd0  0d 05 5a 25 e7 73 68 6f  77 25 3e 6c 61 73 74 25  |..Z%.show%>last%|
00000ce0  20 73 68 6f 77 25 3d 6c  61 73 74 25 3a ef 37 3a  | show%=last%:.7:|
00000cf0  e5 8d 44 78 45 0d 05 64  1d e7 73 68 6f 77 25 3c  |..DxE..d..show%<|
00000d00  30 20 73 68 6f 77 25 3d  30 3a ef 37 3a e5 8d 44  |0 show%=0:.7:..D|
00000d10  78 45 0d 05 6e 2c f2 6f  73 63 6c 69 28 22 4c 4f  |xE..n,.oscli("LO|
00000d20  41 44 20 22 2b 6e 61 6d  65 24 28 73 68 6f 77 25  |AD "+name$(show%|
00000d30  29 2b 22 20 46 46 46 46  33 30 30 30 22 29 0d 05  |)+" FFFF3000")..|
00000d40  78 0c fd 51 3d 65 78 69  74 25 0d 05 82 05 e1 0d  |x..Q=exit%......|
00000d50  05 8c 05 3a 0d 05 96 10  dd f2 73 6f 72 74 28 6d  |...:......sort(m|
00000d60  61 78 25 29 0d 05 a0 21  e7 64 66 73 25 3d 35 20  |ax%)...!.dfs%=5 |
00000d70  64 69 72 6c 65 6e 25 3d  31 20 8b 20 64 69 72 6c  |dirlen%=1 . dirl|
00000d80  65 6e 25 3d 34 0d 05 aa  21 64 69 72 6c 65 6e 25  |en%=4...!dirlen%|
00000d90  3d 64 69 72 6c 65 6e 25  3d a9 28 64 69 72 65 63  |=dirlen%=.(direc|
00000da0  74 6f 72 79 24 29 0d 05  b4 0e e3 6d 25 3d 30 b8  |tory$).....m%=0.|
00000db0  6d 61 78 25 0d 05 be 0e  e3 6e 25 3d 31 b8 6d 61  |max%.....n%=1.ma|
00000dc0  78 25 0d 05 c8 7c e7 c2  6e 61 6d 65 24 28 6e 25  |x%...|..name$(n%|
00000dd0  2d 31 29 2c a9 28 6e 61  6d 65 24 28 6e 25 2d 31  |-1),.(name$(n%-1|
00000de0  29 29 2d 64 69 72 6c 65  6e 25 29 3e c2 6e 61 6d  |))-dirlen%)>.nam|
00000df0  65 24 28 6e 25 29 2c a9  28 6e 61 6d 65 24 28 6e  |e$(n%),.(name$(n|
00000e00  25 29 29 2d 64 69 72 6c  65 6e 25 29 3a 74 24 3d  |%))-dirlen%):t$=|
00000e10  6e 61 6d 65 24 28 6e 25  2d 31 29 3a 6e 61 6d 65  |name$(n%-1):name|
00000e20  24 28 6e 25 2d 31 29 3d  6e 61 6d 65 24 28 6e 25  |$(n%-1)=name$(n%|
00000e30  29 3a 6e 61 6d 65 24 28  6e 25 29 3d 74 24 0d 05  |):name$(n%)=t$..|
00000e40  d2 05 ed 0d 05 dc 05 ed  0d 05 e6 05 e1 0d 05 f0  |................|
00000e50  05 3a 0d 05 fa 15 dd f2  66 69 6e 64 64 61 74 65  |.:......finddate|
00000e60  73 28 6d 61 78 25 29 0d  06 04 08 ea 6e 6d 24 0d  |s(max%).....nm$.|
00000e70  06 0e 0e e3 6d 25 3d 30  b8 6d 61 78 25 0d 06 18  |....m%=0.max%...|
00000e80  30 6e 6d 24 3d c2 6e 61  6d 65 24 28 6d 25 29 2c  |0nm$=.name$(m%),|
00000e90  a9 28 6e 61 6d 65 24 28  6d 25 29 29 2d 35 2d a9  |.(name$(m%))-5-.|
00000ea0  28 64 69 72 65 63 74 6f  72 79 24 29 29 0d 06 22  |(directory$)).."|
00000eb0  56 e7 64 66 73 25 3d 34  20 80 28 28 a9 28 6e 6d  |V.dfs%=4 .((.(nm|
00000ec0  24 29 3c 3e 36 29 84 28  bb 28 6e 6d 24 29 3c 37  |$)<>6).(.(nm$)<7|
00000ed0  35 30 30 30 30 29 29 20  6e 61 6d 65 24 28 6d 25  |50000)) name$(m%|
00000ee0  29 3d 22 ff ff ff ff ff  ff ff 22 3a 6f 66 66 73  |)=".......":offs|
00000ef0  65 74 25 3d 6f 66 66 73  65 74 25 2b 31 3a e5 8d  |et%=offset%+1:..|
00000f00  54 76 46 0d 06 2c 59 e7  64 66 73 25 3d 38 20 80  |TvF..,Y.dfs%=8 .|
00000f10  28 28 a9 28 6e 6d 24 29  3c 3e 39 29 84 28 bb 28  |((.(nm$)<>9).(.(|
00000f20  6e 6d 24 29 3c 32 34 34  30 30 30 30 30 30 29 29  |nm$)<244000000))|
00000f30  20 6e 61 6d 65 24 28 6d  25 29 3d 22 ff ff ff ff  | name$(m%)="....|
00000f40  ff ff ff 22 3a 6f 66 66  73 65 74 25 3d 6f 66 66  |...":offset%=off|
00000f50  73 65 74 25 2b 31 3a e5  8d 54 76 46 0d 06 36 05  |set%+1:..TvF..6.|
00000f60  ed 0d 06 40 05 e1 0d 06  4a 05 3a 0d 06 54 1b dd  |...@....J.:..T..|
00000f70  f2 63 6f 6e 74 69 6e 75  6f 75 73 28 6d 61 78 25  |.continuous(max%|
00000f80  2c 6e 6f 77 25 29 0d 06  5e 08 ea 6e 6f 25 0d 06  |,now%)..^..no%..|
00000f90  68 0c 6e 6f 25 3d 6e 6f  77 25 0d 06 72 05 f5 0d  |h.no%=now%..r...|
00000fa0  06 7c 13 51 3d a6 28 61  75 74 6f 64 65 6c 61 79  |.|.Q=.(autodelay|
00000fb0  25 29 0d 06 86 10 e7 51  3d 31 32 38 20 e5 8d 74  |%).....Q=128 ..t|
00000fc0  6e 46 0d 06 90 0b 2a 46  58 32 31 2c 30 0d 06 9a  |nF....*FX21,0...|
00000fd0  18 6e 6f 25 3d 28 6e 6f  25 2b 31 29 83 28 6d 61  |.no%=(no%+1).(ma|
00000fe0  78 25 2b 31 29 0d 06 a4  2a f2 6f 73 63 6c 69 28  |x%+1)...*.oscli(|
00000ff0  22 4c 4f 41 44 20 22 2b  6e 61 6d 65 24 28 6e 6f  |"LOAD "+name$(no|
00001000  25 29 2b 22 20 46 46 46  46 33 30 30 30 22 29 0d  |%)+" FFFF3000").|
00001010  06 ae 0a fd 51 3d 31 32  38 0d 06 b8 06 ef 37 0d  |....Q=128.....7.|
00001020  06 c2 0d 73 68 6f 77 25  3d 6e 6f 25 0d 06 cc 05  |...show%=no%....|
00001030  e1 0d 06 d6 05 3a 0d 06  e0 0d dd f2 64 65 74 61  |.....:......deta|
00001040  69 6c 73 0d 06 ea 6b f1  8a 32 2c 37 29 22 83 54  |ils...k..2,7)".T|
00001050  6f 20 73 65 65 20 73 61  74 65 6c 6c 69 74 65 20  |o see satellite |
00001060  69 6d 61 67 65 73 20 69  6e 20 64 61 74 65 22 27  |images in date"'|
00001070  22 20 20 83 6f 72 64 65  72 2c 20 65 6e 74 65 72  |"  .order, enter|
00001080  20 74 68 65 20 64 72 69  76 65 28 73 29 20 68 6f  | the drive(s) ho|
00001090  6c 64 69 6e 67 22 27 22  20 20 83 74 68 65 20 73  |lding"'"  .the s|
000010a0  63 72 65 65 6e 20 69 6d  61 67 65 73 2e 22 0d 06  |creen images."..|
000010b0  f4 6b f1 27 22 20 20 83  53 65 6c 65 63 74 20 64  |.k.'"  .Select d|
000010c0  72 69 76 65 73 2c 20 74  68 65 6e 20 75 73 65 20  |rives, then use |
000010d0  61 72 72 6f 77 20 6b 65  79 73 3a 22 27 8a 35 29  |arrow keys:"'.5)|
000010e0  22 86 5d 83 6e 65 78 74  22 3b 8a 32 30 29 22 86  |".].next";.20)".|
000010f0  5b 83 70 72 65 76 69 6f  75 73 22 27 8a 35 29 22  |[.previous"'.5)"|
00001100  86 5e 83 66 69 72 73 74  22 3b 8a 32 30 29 22 86  |.^.first";.20)".|
00001110  76 83 6c 61 74 65 73 74  22 0d 06 fe 2d f1 8a 34  |v.latest"...-..4|
00001120  29 22 81 66 30 83 72 61  70 69 64 20 73 65 71 75  |)".f0.rapid sequ|
00001130  65 6e 63 65 20 64 69 73  70 6c 61 79 20 28 6f 6e  |ence display (on|
00001140  2f 6f 66 66 29 22 0d 07  08 05 e1 0d 07 12 05 3a  |/off)".........:|
00001150  0d 07 1c 12 dd f2 6f 73  63 6c 69 28 74 65 78 74  |......oscli(text|
00001160  24 29 0d 07 26 28 24 70  25 3d 74 65 78 74 24 3a  |$)..&($p%=text$:|
00001170  58 25 3d 70 25 83 32 35  36 3a 59 25 3d 70 25 81  |X%=p%.256:Y%=p%.|
00001180  32 35 36 3a d6 26 46 46  46 37 0d 07 30 05 e1 0d  |256:.&FFF7..0...|
00001190  ff                                                |.|
00001191