� > !RunImage
#�    for alternative ADFS Filer

(;� � Archimedes World August 1991 Written By Majid Anwar
2version$ = "2.10"
<date$ = " (Mar 1991)"
F
Py� q% &100, err1% &100, err2% 20, menu% 1024, user% 13, valid% 30, sprite% 15*16, text% 15*16, indmenu% 256, icon% 170
Z:$err2%="ADFS Filer":$valid%="A~\ \.\:\*\#\$\&\@\^\%\\"
d2� ic%(8), discid%(8,2), discid$(8), discih%(8)
ndiscid%()=-1
x
�>ș"Wimp_Initialise",200,&4B534154,"ADFS Filer" � ,ourtask%
�
�1ș"Wimp_OpenTemplate",,"<Obey$Dir>.Templates"
�>ș"Wimp_LoadTemplate",,menu%,icon%,icon%+169,-1,"infoPD",0
�(ș"Wimp_CreateWindow",,menu% � info%
�ș"Wimp_CloseTemplate"
�$(icon%+20)=version$+date$
��env
�
�	e$=""
�#ș"ADFS_Drives" �,floppy%,hard%
�poll%=%1100000110001
�quit%=�

shift%=�


�makecode

�makeicons

"

,

6"� dummy=�error(255,�$,%10010)

@�

J$ș"Wimp_Poll",poll%,q% � action%

TȎ action% �

^G�0:poll%=%1100000110001:� enum% � shift%=� � �openfiler(enum%,�,"")

h�1:

r�2:

|�6:Ȏ q%!8 �

�,       � 1: �dismount(�findnum(q%!16),�)

�       � 2: �menu(q%!16)

�       � 4: � �-1 �

�i                $err1%=�255,�0):ș"XOS_ReadVarVal","ADFS$Drive"+äfindnum(q%!16),err1%,255 �,,exists%

�r                � exists%<>0 �openfiler(�findnum(q%!16),�,�getname0(err1%)) � �openfiler(�findnum(q%!16),�,"")

�               �

�4                �openfiler(�findnum(q%!16),�,"")

�               �

�      �

�#� 9:�q%!0>-1 �decode(q%!0,q%!4)

��10:

��17,18,19:�message

��
� quit%
�codeoff
&�SYS"XOS_CLI","RMreinit ADFSFiler"
&"�SYS"XOS_CLI","RMreinit Filer"
0$�SYS"XOS_CLI","WimpTask Desktop"
:)ș"Wimp_CloseDown",ourtask%,&4B534154
D�
N
X1ݤinstall_icon(sprite$,num%,text$,bar%):� ic%
b�sx%,sy%,sm%,px%,py%
l3ș"Wimp_SpriteOp",40,,sprite$ � ,,,sx%,sy%,,sm%
v6ș"OS_ReadModeVariable",sm%,4 � ,,px%:sx%=sx%<<px%
�6ș"OS_ReadModeVariable",sm%,5 � ,,py%:sy%=sy%<<py%
� �text$*16>sx% sx%=�text$*16
�� bar% sx%=160
�"$(sprite%+15*num%)="S"+sprite$
�$(text%+15*num%)=text$
�
!q%=-2
�/q%!4=0:q%!8=-16:q%!12=q%!4+sx%:q%!16=20+sy%
�q%!20=&1700310B
�q%!24=text%+15*num%
�q%!28=sprite%+15*num%
�q%!32=�text$
�!ș"Wimp_CreateIcon",,q% � ic%
�=ic%

ݤerror(error%,err$,fl%)
ș"Wimp_CommandWindow",0
 "err1%!0=error%:$(err1%+4)=err$
*2ș"Wimp_ReportError",err1%,fl%,err2% � ,click%
4=click%
>
H
��message
RȎ q%!16 �
\ � 0: quit%=�
f � 3: � q%!12=0 �
pr          source$=�getname0(q%+44):target$="adfs::"+�getdiscname(":"+äfindnum(q%!24))+".$."+�getleaf(source$)
z;          � (�findnum(q%!24)>3) � (�findnum(q%!24)<8) �
�d           $err1%=�255,�0):ș"XOS_ReadVarVal","ADFS$Drive"+äfindnum(q%!24),err1%,255 �,,exists%
�           � exists%<>0 �
�V            target$=�getname0(err1%):name$=�getname(source$):� name$="$" name$="?"
�/            ș"OS_File",8,target$+"."+name$
�8            target$+="."+name$+"."+�getleaf(source$)
�           �
�          �
�N          � poll%=%1100000110001 � shift%=�-1:enum%=�:poll%=%1100000110000
�D          �execute("Copy "+source$+" "+target$+" "+�readoptions)
�         �
�
��
��

��menu(ih%):�w%,ht%,c%
num%=�findnum(ih%)
$7� num%>3 $user%=�getdiscname(":"+�num%) � $user%=""
.lastnum%=num%
8mptr%=indmenu%
B� num%<8 �
L ht%=44*11+24
V
`% �m_head(menu%,"ADFS::"+�num%,11)
j1 �m_block(menu%+28,&00,info%,&7000001,"Info")
t? �m_block(menu%+52,&02-tinydiscs%,-1,&7000001,"Tiny discs")
~- �m_block(menu%+76,&00,-1,&7000001,"Bye")
�; �m_block(menu%+100,&00,menu%+400,&7000001,"Name disc")
�: �m_block(menu%+124,&00,menu%+624,&7000001,"Dismount")
�H �m_block(menu%+148,&00,menu%+300,&7000001+(-(num%>3)<<22),"Format")
�H �m_block(menu%+172,&00,menu%+452,&7000001+(-(num%>3)<<22),"Backup")
�5 �m_block(menu%+196,&00,menu%+624,&7000001,"Map")
�9 �m_block(menu%+220,&00,menu%+624,&7000001,"Compact")
�8 �m_block(menu%+244,&00,menu%+624,&7000001,"Verify")
�6 �m_block(menu%+268,&80,menu%+624,&7000001,"Free")
�
�# �m_head(menu%+300,"Format",18)
�< �m_block(menu%+328,&00,-1,&7000001,"L - 640K, old map")
�< �m_block(menu%+352,&00,-1,&7000001,"D - 800K, old map")
< �m_block(menu%+376,&80,-1,&7000001,"E - 800K, new map")


& �m_head(menu%+400,"Disc Name",11)
; �m_indirect(menu%+428,&84,-1,&700F101,user%,valid%,11)
(
2! �m_head(menu%+452,"Drive",8)
< �F%=1�floppy%
F? �m_block(menu%+4+452+F%*24,&00,-1,&7000001,"to :"+�(F%-1))
P �
Z@ ?(menu%+4+452+(floppy%*24))=?(menu%+4+452+(floppy%*24))�&80
d
n! �m_head(menu%+624,"Disc",12)
x2 �m_block(menu%+652,&00,-1,&7000001,":"+�num%)
� c%=0:�F%=0�7
�� � (discid%(F%,0)<>-1) � (�getsysvar("ADFS$Disc"+�num%,"3.5disc")=�getsysvar("ADFS$Disc"+�discid%(F%,1),"3.5disc")) �m_block(menu%+676+c%*24,&00,-1,&7000001,":"+discid$(F%)):c%+=1
� �
� � c%>0 menu%?652=&02
�. ?(menu%+652+c%*24)=?(menu%+652+c%*24)�&80
�
��
�
 ht%=44*5
�. �m_head(menu%,�getdiscname(":"+�num%),12)
�2 �m_block(menu%+28,&00,-1,&7000001,"Dismount")
�- �m_block(menu%+52,&00,-1,&7000001,"Map")
�1 �m_block(menu%+76,&00,-1,&7000001,"Compact")
�1 �m_block(menu%+100,&00,-1,&7000001,"Verify")
/ �m_block(menu%+124,&80,-1,&7000001,"Free")

�
"
,-ș"Wimp_CreateMenu",,menu%,q%!0-64,ht%+96
6�
@
JB��m_block(base%,flag%,ptr%,icfl%,data$):� data1%,data2%,data3%
T� �data$<12 �
^? base%!0=flag%:base%!4=ptr%:base%!8=icfl%:$(base%+12)=data$
h�
rM data1%=mptr%:data2%=-1:data3%=�data$+1:icfl%=(icfl%�&FFFFFEFF)�&00000100
|- base%!0=flag%:base%!4=ptr%:base%!8=icfl%
�4 base%!12=data1%:base%!16=data2%:base%!20=data3%
� $mptr%=data$
� mptr%+=data3%
��
��
�
� ��m_head(base%,data$,width%)
�M$base%=data$:base%!12=&00070207:base%!16=width%*16:base%!20=44:base%!24=0
��
�
�=��m_indirect(base%,flag%,ptr%,icfl%,data1%,data2%,data3%)
�,base%!0=flag%:base%!4=ptr%:base%!8=icfl%
�3base%!12=data1%:base%!16=data2%:base%!20=data3%
�

#��decode(select%,sub%):�dummy,m
&&ș"Wimp_GetPointerInfo",,q%:m=q%!8
0� lastnum%<8 �
: Ȏ select% �
DC  � 1: tinydiscs%=tinydiscs%�-1:� tinydiscs% �tinyon � �tinyoff
N  � 2: �F%=0�7
X>          � discid%(F%,0)<>-1 �dismountname(discid$(F%),�)
b          �
l#          � "Wimptask ADFS:Bye"
v  � 3: � sub%=0 �
�$           �dismount(lastnum%,�)
�S           � "Wimptask ADFS:NameDisc :"+�getdiscname(":"+�lastnum%)+" :"+$user%
�           � lastnum%>3 �
�@            $(text%+15*lastnum%)=�getdiscname(":"+�lastnum%)
�,            �forceicon(-2,ic%(lastnum%))
�           �
�          �
�  � 4: Ȏ sub% �
�,           � 0,-1 :�dismount(lastnum%,�)
�            :c%=0:F%=0
�                      �� (discid%(F%,0)<>-1) � (�getsysvar("ADFS$Disc"+�lastnum%,"3.5disc")=�getsysvar("ADFS$Disc"+�discid%(F%,1),"3.5disc")) c%+=1
�/                      F%+=1:�c%=sub% � F%=8
�8                      �dismountname(discid$(F%-1),�)

          �
  � 5: Ȏ sub% �
 :           � 0   : �execute("Format :"+�lastnum%+" L")
*:           � 1   : �execute("Format :"+�lastnum%+" D")
4:           � 2,-1: �execute("Format :"+�lastnum%+" E")
>          �
H!  � 6: � sub%<0 sub%=lastnum%
R5          �execute("Backup "+�lastnum%+" "+�sub%)
\  � 7: Ȏ sub% �
f2           � 0,-1 :�execute("Map :"+�lastnum%)
p            :c%=0:F%=0
z�                      �� (discid%(F%,0)<>-1) � (�getsysvar("ADFS$Disc"+�lastnum%,"3.5disc")=�getsysvar("ADFS$Disc"+�discid%(F%,1),"3.5.disc")) c%+=1
�/                      F%+=1:�c%=sub% � F%=8
�9                      �execute("Map :"+discid$(F%-1))
�          �
�  � 8: Ȏ sub% �
�*           � 0,-1 :�compact(�lastnum%)
�            :c%=0:F%=0
��                      �� (discid%(F%,0)<>-1) � (�getsysvar("ADFS$Disc"+�lastnum%,"3.5disc")=�getsysvar("ADFS$Disc"+�discid%(F%,1),"3.5disc")) c%+=1
�/                      F%+=1:�c%=sub% � F%=8
�1                      �compact(discid$(F%-1))
�          �
�  � 9: Ȏ sub% �
�5           � 0,-1 :�execute("Verify :"+�lastnum%)
�            :c%=0:F%=0
	�                      �� (discid%(F%,0)<>-1) � (�getsysvar("ADFS$Disc"+�lastnum%,"3.5disc")=�getsysvar("ADFS$Disc"+�discid%(F%,1),"3.5disc")) c%+=1
	/                      F%+=1:�c%=sub% � F%=8
	<                      �execute("Verify :"+discid$(F%-1))
	$          �
	.  � 10: Ȏ sub% �
	84            � 0,-1 :�execute("Free :"+�lastnum%)
	B             :c%=0:F%=0
	L�                       �� (discid%(F%,0)<>-1) � (�getsysvar("ADFS$Disc"+�lastnum%,"3.5disc")=�getsysvar("ADFS$Disc"+�discid%(F%,1),"3.5disc")) c%+=1
	V0                       F%+=1:�c%=sub% � F%=8
	`;                       �execute("Free :"+discid$(F%-1))
	j           �
	t �
	~
	��
	� Ȏ select% �
	�   � 0: �dismount(lastnum%,�)
	�8  � 1: �execute("Map :"+�getdiscname(":"+�lastnum%))
	�0  � 2: �compact(�getdiscname(":"+�lastnum%))
	�;  � 3: �execute("Verify :"+�getdiscname(":"+�lastnum%))
	�9  � 4: �execute("Free :"+�getdiscname(":"+�lastnum%))
	� �
	�
	��
	�"�(m �1)=1 �menu(ic%(lastnum%))
	��


��execute(e$)
� �
^� � � � �:� (� <>&10811) ș"Wimp_CommandWindow",-1:� �,�$ � �:�:ș"Wimp_CommandWindow",0:�
($clibuffer%=e$+�0
2%ș"Wimp_CommandWindow",clibuffer%
<ș"OS_CLI","ADFS:"+e$
Fș"Wimp_CommandWindow",0
P�
Z
dݤgetname0(a%):� a$
n
�a$+=�?a%
x	a%+=1
�
�?a%=0
�=a$
�
�ݤgetname32(a%):� a$
�
�a$+=�?a%
�	a%+=1
��?a%<33
�=�a$,�a$,�?a%)-1)
�
���makeicons
��hard%>0 �F%=hard%+3�4�-1:ic%(F%)=�install_icon(�getsysvar("ADFS$Icon"+�F%,"harddisc"),F%,�getdiscname(":"+�F%),�):�openfiler(F%,�,""):�
�p�floppy%>0 �F%=floppy%-1�0�-1:ic%(F%)=�install_icon(�getsysvar("ADFS$Icon"+�F%,"floppydisc"),F%,":"+�F%,�):�
��

#ݤgetdiscname(name$):� n%,d$,F%
n%=��name$,2)
"� n%<8 �
, $(q%+&40)=name$+�0
6( ș"ADFS_DescribeDisc",q%+&40,q%+&50
@C F%=1:ȕ (?(q%+&65+F%)>32) � (F%<11): d$+=�?(q%+&65+F%):F%+=1:�
J =d$
T�
^ =$(text%+15*n%)
h�
r
|ݤgetdiscid(name$)
�$(q%+&40)=name$+�0
�'ș"ADFS_DescribeDisc",q%+&40,q%+&50
�=q%!&64 �&FFFF
�
�ݤfindnum(h%)
�'F%=-1:�F%+=1:�(ic%(F%)=h%) � (F%=8)
�� F%=8 �
�, F%=-1:�F%+=1:�(discih%(F%)=h%) � (F%=8)
�
 F%+=8
��
�=F%
�
� ��dismount(num%,filer%):� n$
n$=�getdiscname(":"+�num%)

"ș"OS_Claim",&1D,vectorcode%,0
&$ș"XOS_CLI","ADFS:Dismount :"+n$
0$ș"OS_Release",&1D,vectorcode%,0
:
D-� filer% � "Filer_CloseDir adfs::"+n$+"."
N(G%=-1:�G%+=1:� discid$(G%)=n$ � G%=8
XR� tinydiscs% � discih%(G%)<>0 q%!0=-2:q%!4=discih%(G%):ș"Wimp_DeleteIcon",,q%
b9�H%=0�7:�discid%(H%,2)>discid%(G%,2) discid%(H%,2)-=1
l�
vSdiscid%(G%,0)=-1:discid%(G%,1)=-1:discid%(G%,2)=-1:discid$(G%)="":discih%(G%)=0
��
�
���dismountname(n$,filer%)
�
�"ș"OS_Claim",&1D,vectorcode%,0
�$ș"XOS_CLI","ADFS:Dismount :"+n$
�$ș"OS_Release",&1D,vectorcode%,0
�
�-� filer% � "Filer_CloseDir adfs::"+n$+"."
�(G%=-1:�G%+=1:� discid$(G%)=n$ � G%=8
�R� tinydiscs% � discih%(G%)<>0 q%!0=-2:q%!4=discih%(G%):ș"Wimp_DeleteIcon",,q%
�9�H%=0�7:�discid%(H%,2)>discid%(G%,2) discid%(H%,2)-=1
��

Sdiscid%(G%,0)=-1:discid%(G%,1)=-1:discid%(G%,2)=-1:discid$(G%)="":discih%(G%)=0

�



 5��openfiler(num%,open%,path$):� name$,id%,lastid%

*!name$=�getdiscname(":"+�num%)

4<� (num%>7) � open% � "Filer_OpenDir adfs::"+name$+".$":�

>id%=�getdiscid(":"+�num%)

H

R+F%=-1:�F%+=1:� discid$(F%)=name$ � F%=8

\!� F%<8 � discid%(F%,0)<>id% �

fe � �error(255,"This disc has a name that has been seen before.  Forget the old one ?",%10011)=1 �

p  �dismountname(name$,�)

z%  poll%=%1100000110000:enum%=num%

� �

��

� � discid%(F%,0)<>id% �

�3  F%=-1:�F%+=1:�discid%(F%,0)=-1 � F%=�getmount

�  � F%=�getmount �

�$   F%=-1:�F%+=1:�discid%(F%,2)=0

�1   �dismountname(�getdiscname(":"+�(F%+8)),�)

�  �

�T  discid%(F%,0)=id%:discid%(F%,1)=num%:discid%(F%,2)=�lastid+1:discid$(F%)=name$

ވ  � tinydiscs% � (num%<4) discih%(F%)=�install_icon(�getsysvar("ADFS$Disc"+�num%,"3.5disc"),F%+8,name$,�) � $(text%+15*(F%+8))=name$

� �

�7 � path$="" name$="adfs::"+name$+".$" � name$=path$

�% � open% � "Filer_OpenDir "+name$
 enum%=�
�
�
$
.ݤlastid:� last%
8last%=-1
B5�G%=0�7:� discid%(G%,2)>last% last%=discid%(G%,2)
L�
V
=last%
`
j��forceicon(h%,i%)
t-q%!0=h%:q%!4=i%:ș"Wimp_GetIconState",,q%
~2ș"Wimp_ForceRedraw",h%,q%!8,q%!12,q%!16,q%!20
��
�
�ݤgetleaf(path$)
�ȕ �path$,".")>0
�path$=�path$,�path$,".")+1)
��
�
=path$
�
�ݤgetname(path$)
�path$=�path$,�path$,":")+1)
�path$=�path$,�path$,":")+1)
�=�path$,�path$,".")-1)


ݤreadoptions:� opt$
 ș"OS_Byte",161,198 � ,,val%
/� (val%�(1<<5))<>0 opt$+=" C" � opt$+=" ~C"
(/� (val%�(1<<6))<>0 opt$+=" V" � opt$+=" ~V"
2'� shift% � opt$+=" D" � opt$+=" ~D"
<=opt$+" R"
F
P��env:� dummy%,dummy$,env$
Z*ș"OS_GetEnv" � env$:I%=�env$,"-quit")
d<I%=�env$,"""",I%+1):I%=�env$,"""",I%+1):env$=�env$,I%+1)
n"ȕ�env$,1)=" ":env$=�env$,2):�
x�F%=1��env$
�Kdummy%=��env$,F%,1):� dummy%>65 dummy$+=�(dummy% �95) � dummy$+=�dummy%
��:env$=dummy$
�#tinydiscs%=�env$,"TINYDISCS")>0
��
�
���tinyon
��F%=0�7
ȭ� (discid%(F%,0)<>-1) � (discid%(F%,1)<4) discih%(F%)=�install_icon(�getsysvar("ADFS$Disc"+�discid%(F%,1),"3.5disc"),F%+8,discid$(F%),�) � $(text%+15*(F%+8))=discid$(F%)
��
��
�
�
��tinyoff
��F%=0�7
E� discih%(F%)<>0 q%!0=-2:q%!4=discih%(F%):ș"Wimp_DeleteIcon",,q%
�
�
"
,&ݤgetsysvar(a$,b$):$err1%=�255,�0)
6.ș"XOS_ReadVarVal",a$,err1%,255 �,,exists%
@(� exists%<>0 =�getname0(err1%) � =b$
J
Tݤgetmount:$err1%=�255,�0)
^7ș"XOS_ReadVarVal","ADFSMount",err1%,255 �,,exists%
hO� (��getname0(err1%)>8) � (��getname0(err1%)<1) � (exists%=0) $err1%="8"+�0
r=��getname0(err1%)
|
���makecode
�,ș"OS_Module",6,,,20+&100 � ,,code%;flg%
�(� -(flg%�1) � � 255,"No room in RMA"
�� pass%=0 � 2 � 2
�P%=code%
�[OPT pass%
�.vectorcode% TEQ   r0,#2
�             MOVGT pc,r14
�             MVN   r0,#1
�              LDMFD r13!,{pc}
�.clibuffer%  EQUS  �255,�0)
�]
��
�


��codeoff
&=ș"XOS_Release",&1D,vectorcode%,0:ș"XOS_Module",7,,code%
0�
:
D ��compact(dr$):� pass%,a%,b%
N� �
X^� � � � �:� (� <>&10811) ș"Wimp_CommandWindow",-1:� �,�$ � �:�:ș"Wimp_CommandWindow",0:�
b"$clibuffer%="Compact :"+dr$+�0
l%ș"Wimp_CommandWindow",clibuffer%
v�
�#ș"OS_CLI","ADFS:Compact :"+dr$
�&ș"ADFS_FreeSpace",":"+dr$ � a%,b%
�@�IF INKEY0=27 ERROR 255,"Compact aborted at pass "+STR$pass%
�pass%+=1
��"Pass: "�pass%
�
�a%=b%
�ș"Wimp_CommandWindow",0
��
�

00000000  0d 00 0a 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 14 23 f4 20 20  20 20 66 6f 72 20 61 6c  |e...#.    for al|
00000020  74 65 72 6e 61 74 69 76  65 20 41 44 46 53 20 46  |ternative ADFS F|
00000030  69 6c 65 72 0d 00 1e 04  0d 00 28 3b f4 20 a9 20  |iler......(;. . |
00000040  41 72 63 68 69 6d 65 64  65 73 20 57 6f 72 6c 64  |Archimedes World|
00000050  20 41 75 67 75 73 74 20  31 39 39 31 20 57 72 69  | August 1991 Wri|
00000060  74 74 65 6e 20 42 79 20  4d 61 6a 69 64 20 41 6e  |tten By Majid An|
00000070  77 61 72 0d 00 32 15 76  65 72 73 69 6f 6e 24 20  |war..2.version$ |
00000080  3d 20 22 32 2e 31 30 22  0d 00 3c 19 64 61 74 65  |= "2.10"..<.date|
00000090  24 20 3d 20 22 20 28 4d  61 72 20 31 39 39 31 29  |$ = " (Mar 1991)|
000000a0  22 0d 00 46 04 0d 00 50  79 de 20 71 25 20 26 31  |"..F...Py. q% &1|
000000b0  30 30 2c 20 65 72 72 31  25 20 26 31 30 30 2c 20  |00, err1% &100, |
000000c0  65 72 72 32 25 20 32 30  2c 20 6d 65 6e 75 25 20  |err2% 20, menu% |
000000d0  31 30 32 34 2c 20 75 73  65 72 25 20 31 33 2c 20  |1024, user% 13, |
000000e0  76 61 6c 69 64 25 20 33  30 2c 20 73 70 72 69 74  |valid% 30, sprit|
000000f0  65 25 20 31 35 2a 31 36  2c 20 74 65 78 74 25 20  |e% 15*16, text% |
00000100  31 35 2a 31 36 2c 20 69  6e 64 6d 65 6e 75 25 20  |15*16, indmenu% |
00000110  32 35 36 2c 20 69 63 6f  6e 25 20 31 37 30 0d 00  |256, icon% 170..|
00000120  5a 3a 24 65 72 72 32 25  3d 22 41 44 46 53 20 46  |Z:$err2%="ADFS F|
00000130  69 6c 65 72 22 3a 24 76  61 6c 69 64 25 3d 22 41  |iler":$valid%="A|
00000140  7e 5c 20 5c 2e 5c 3a 5c  2a 5c 23 5c 24 5c 26 5c  |~\ \.\:\*\#\$\&\|
00000150  40 5c 5e 5c 25 5c 5c 22  0d 00 64 32 de 20 69 63  |@\^\%\\"..d2. ic|
00000160  25 28 38 29 2c 20 64 69  73 63 69 64 25 28 38 2c  |%(8), discid%(8,|
00000170  32 29 2c 20 64 69 73 63  69 64 24 28 38 29 2c 20  |2), discid$(8), |
00000180  64 69 73 63 69 68 25 28  38 29 0d 00 6e 10 64 69  |discih%(8)..n.di|
00000190  73 63 69 64 25 28 29 3d  2d 31 0d 00 78 04 0d 00  |scid%()=-1..x...|
000001a0  82 3e c8 99 22 57 69 6d  70 5f 49 6e 69 74 69 61  |.>.."Wimp_Initia|
000001b0  6c 69 73 65 22 2c 32 30  30 2c 26 34 42 35 33 34  |lise",200,&4B534|
000001c0  31 35 34 2c 22 41 44 46  53 20 46 69 6c 65 72 22  |154,"ADFS Filer"|
000001d0  20 b8 20 2c 6f 75 72 74  61 73 6b 25 0d 00 8c 04  | . ,ourtask%....|
000001e0  0d 00 96 31 c8 99 22 57  69 6d 70 5f 4f 70 65 6e  |...1.."Wimp_Open|
000001f0  54 65 6d 70 6c 61 74 65  22 2c 2c 22 3c 4f 62 65  |Template",,"<Obe|
00000200  79 24 44 69 72 3e 2e 54  65 6d 70 6c 61 74 65 73  |y$Dir>.Templates|
00000210  22 0d 00 a0 3e c8 99 22  57 69 6d 70 5f 4c 6f 61  |"...>.."Wimp_Loa|
00000220  64 54 65 6d 70 6c 61 74  65 22 2c 2c 6d 65 6e 75  |dTemplate",,menu|
00000230  25 2c 69 63 6f 6e 25 2c  69 63 6f 6e 25 2b 31 36  |%,icon%,icon%+16|
00000240  39 2c 2d 31 2c 22 69 6e  66 6f 50 44 22 2c 30 0d  |9,-1,"infoPD",0.|
00000250  00 aa 28 c8 99 22 57 69  6d 70 5f 43 72 65 61 74  |..(.."Wimp_Creat|
00000260  65 57 69 6e 64 6f 77 22  2c 2c 6d 65 6e 75 25 20  |eWindow",,menu% |
00000270  b8 20 69 6e 66 6f 25 0d  00 b4 1a c8 99 22 57 69  |. info%......"Wi|
00000280  6d 70 5f 43 6c 6f 73 65  54 65 6d 70 6c 61 74 65  |mp_CloseTemplate|
00000290  22 0d 00 be 1e 24 28 69  63 6f 6e 25 2b 32 30 29  |"....$(icon%+20)|
000002a0  3d 76 65 72 73 69 6f 6e  24 2b 64 61 74 65 24 0d  |=version$+date$.|
000002b0  00 c8 08 f2 65 6e 76 0d  00 d2 04 0d 00 dc 09 65  |....env........e|
000002c0  24 3d 22 22 0d 00 e6 23  c8 99 22 41 44 46 53 5f  |$=""...#.."ADFS_|
000002d0  44 72 69 76 65 73 22 20  b8 2c 66 6c 6f 70 70 79  |Drives" .,floppy|
000002e0  25 2c 68 61 72 64 25 0d  00 f0 18 70 6f 6c 6c 25  |%,hard%....poll%|
000002f0  3d 25 31 31 30 30 30 30  30 31 31 30 30 30 31 0d  |=%1100000110001.|
00000300  00 fa 0b 71 75 69 74 25  3d a3 0d 01 04 0c 73 68  |...quit%=.....sh|
00000310  69 66 74 25 3d a3 0d 01  0e 0d f2 6d 61 6b 65 63  |ift%=......makec|
00000320  6f 64 65 0d 01 18 0e f2  6d 61 6b 65 69 63 6f 6e  |ode.....makeicon|
00000330  73 0d 01 22 04 0d 01 2c  04 0d 01 36 22 ee 85 20  |s.."...,...6".. |
00000340  64 75 6d 6d 79 3d a4 65  72 72 6f 72 28 32 35 35  |dummy=.error(255|
00000350  2c f6 24 2c 25 31 30 30  31 30 29 0d 01 40 05 f5  |,.$,%10010)..@..|
00000360  0d 01 4a 24 c8 99 22 57  69 6d 70 5f 50 6f 6c 6c  |..J$.."Wimp_Poll|
00000370  22 2c 70 6f 6c 6c 25 2c  71 25 20 b8 20 61 63 74  |",poll%,q% . act|
00000380  69 6f 6e 25 0d 01 54 10  c8 8e 20 61 63 74 69 6f  |ion%..T... actio|
00000390  6e 25 20 ca 0d 01 5e 47  c9 30 3a 70 6f 6c 6c 25  |n% ...^G.0:poll%|
000003a0  3d 25 31 31 30 30 30 30  30 31 31 30 30 30 31 3a  |=%1100000110001:|
000003b0  e7 20 65 6e 75 6d 25 20  8c 20 73 68 69 66 74 25  |. enum% . shift%|
000003c0  3d a3 20 8b 20 f2 6f 70  65 6e 66 69 6c 65 72 28  |=. . .openfiler(|
000003d0  65 6e 75 6d 25 2c b9 2c  22 22 29 0d 01 68 07 c9  |enum%,.,"")..h..|
000003e0  31 3a 0d 01 72 07 c9 32  3a 0d 01 7c 10 c9 36 3a  |1:..r..2:..|..6:|
000003f0  c8 8e 20 71 25 21 38 20  ca 0d 01 86 2c 20 20 20  |.. q%!8 ....,   |
00000400  20 20 20 20 c9 20 31 3a  20 f2 64 69 73 6d 6f 75  |    . 1: .dismou|
00000410  6e 74 28 a4 66 69 6e 64  6e 75 6d 28 71 25 21 31  |nt(.findnum(q%!1|
00000420  36 29 2c b9 29 0d 01 90  1c 20 20 20 20 20 20 20  |6),.)....       |
00000430  c9 20 32 3a 20 f2 6d 65  6e 75 28 71 25 21 31 36  |. 2: .menu(q%!16|
00000440  29 0d 01 9a 17 20 20 20  20 20 20 20 c9 20 34 3a  |)....       . 4:|
00000450  20 e7 20 a6 2d 31 20 8c  0d 01 a4 69 20 20 20 20  | . .-1 ....i    |
00000460  20 20 20 20 20 20 20 20  20 20 20 20 24 65 72 72  |            $err|
00000470  31 25 3d c4 32 35 35 2c  bd 30 29 3a c8 99 22 58  |1%=.255,.0):.."X|
00000480  4f 53 5f 52 65 61 64 56  61 72 56 61 6c 22 2c 22  |OS_ReadVarVal","|
00000490  41 44 46 53 24 44 72 69  76 65 22 2b c3 a4 66 69  |ADFS$Drive"+..fi|
000004a0  6e 64 6e 75 6d 28 71 25  21 31 36 29 2c 65 72 72  |ndnum(q%!16),err|
000004b0  31 25 2c 32 35 35 20 b8  2c 2c 65 78 69 73 74 73  |1%,255 .,,exists|
000004c0  25 0d 01 ae 72 20 20 20  20 20 20 20 20 20 20 20  |%...r           |
000004d0  20 20 20 20 20 e7 20 65  78 69 73 74 73 25 3c 3e  |     . exists%<>|
000004e0  30 20 f2 6f 70 65 6e 66  69 6c 65 72 28 a4 66 69  |0 .openfiler(.fi|
000004f0  6e 64 6e 75 6d 28 71 25  21 31 36 29 2c b9 2c a4  |ndnum(q%!16),.,.|
00000500  67 65 74 6e 61 6d 65 30  28 65 72 72 31 25 29 29  |getname0(err1%))|
00000510  20 8b 20 f2 6f 70 65 6e  66 69 6c 65 72 28 a4 66  | . .openfiler(.f|
00000520  69 6e 64 6e 75 6d 28 71  25 21 31 36 29 2c b9 2c  |indnum(q%!16),.,|
00000530  22 22 29 0d 01 b8 14 20  20 20 20 20 20 20 20 20  |"")....         |
00000540  20 20 20 20 20 20 cc 0d  01 c2 34 20 20 20 20 20  |      ....4     |
00000550  20 20 20 20 20 20 20 20  20 20 20 f2 6f 70 65 6e  |           .open|
00000560  66 69 6c 65 72 28 a4 66  69 6e 64 6e 75 6d 28 71  |filer(.findnum(q|
00000570  25 21 31 36 29 2c b9 2c  22 22 29 0d 01 cc 14 20  |%!16),.,"").... |
00000580  20 20 20 20 20 20 20 20  20 20 20 20 20 20 cd 0d  |              ..|
00000590  01 d6 0b 20 20 20 20 20  20 cb 0d 01 e0 23 c9 20  |...      ....#. |
000005a0  39 3a e7 71 25 21 30 3e  2d 31 20 f2 64 65 63 6f  |9:.q%!0>-1 .deco|
000005b0  64 65 28 71 25 21 30 2c  71 25 21 34 29 0d 01 ea  |de(q%!0,q%!4)...|
000005c0  08 c9 31 30 3a 0d 01 f4  16 c9 31 37 2c 31 38 2c  |..10:.....17,18,|
000005d0  31 39 3a f2 6d 65 73 73  61 67 65 0d 01 fe 05 cb  |19:.message.....|
000005e0  0d 02 08 0b fd 20 71 75  69 74 25 0d 02 12 0c f2  |..... quit%.....|
000005f0  63 6f 64 65 6f 66 66 0d  02 1c 26 f4 53 59 53 22  |codeoff...&.SYS"|
00000600  58 4f 53 5f 43 4c 49 22  2c 22 52 4d 72 65 69 6e  |XOS_CLI","RMrein|
00000610  69 74 20 41 44 46 53 46  69 6c 65 72 22 0d 02 26  |it ADFSFiler"..&|
00000620  22 f4 53 59 53 22 58 4f  53 5f 43 4c 49 22 2c 22  |".SYS"XOS_CLI","|
00000630  52 4d 72 65 69 6e 69 74  20 46 69 6c 65 72 22 0d  |RMreinit Filer".|
00000640  02 30 24 f4 53 59 53 22  58 4f 53 5f 43 4c 49 22  |.0$.SYS"XOS_CLI"|
00000650  2c 22 57 69 6d 70 54 61  73 6b 20 44 65 73 6b 74  |,"WimpTask Deskt|
00000660  6f 70 22 0d 02 3a 29 c8  99 22 57 69 6d 70 5f 43  |op"..:).."Wimp_C|
00000670  6c 6f 73 65 44 6f 77 6e  22 2c 6f 75 72 74 61 73  |loseDown",ourtas|
00000680  6b 25 2c 26 34 42 35 33  34 31 35 34 0d 02 44 05  |k%,&4B534154..D.|
00000690  e0 0d 02 4e 04 0d 02 58  31 dd a4 69 6e 73 74 61  |...N...X1..insta|
000006a0  6c 6c 5f 69 63 6f 6e 28  73 70 72 69 74 65 24 2c  |ll_icon(sprite$,|
000006b0  6e 75 6d 25 2c 74 65 78  74 24 2c 62 61 72 25 29  |num%,text$,bar%)|
000006c0  3a ea 20 69 63 25 0d 02  62 18 ea 73 78 25 2c 73  |:. ic%..b..sx%,s|
000006d0  79 25 2c 73 6d 25 2c 70  78 25 2c 70 79 25 0d 02  |y%,sm%,px%,py%..|
000006e0  6c 33 c8 99 22 57 69 6d  70 5f 53 70 72 69 74 65  |l3.."Wimp_Sprite|
000006f0  4f 70 22 2c 34 30 2c 2c  73 70 72 69 74 65 24 20  |Op",40,,sprite$ |
00000700  b8 20 2c 2c 2c 73 78 25  2c 73 79 25 2c 2c 73 6d  |. ,,,sx%,sy%,,sm|
00000710  25 0d 02 76 36 c8 99 22  4f 53 5f 52 65 61 64 4d  |%..v6.."OS_ReadM|
00000720  6f 64 65 56 61 72 69 61  62 6c 65 22 2c 73 6d 25  |odeVariable",sm%|
00000730  2c 34 20 b8 20 2c 2c 70  78 25 3a 73 78 25 3d 73  |,4 . ,,px%:sx%=s|
00000740  78 25 3c 3c 70 78 25 0d  02 80 36 c8 99 22 4f 53  |x%<<px%...6.."OS|
00000750  5f 52 65 61 64 4d 6f 64  65 56 61 72 69 61 62 6c  |_ReadModeVariabl|
00000760  65 22 2c 73 6d 25 2c 35  20 b8 20 2c 2c 70 79 25  |e",sm%,5 . ,,py%|
00000770  3a 73 79 25 3d 73 79 25  3c 3c 70 79 25 0d 02 8a  |:sy%=sy%<<py%...|
00000780  20 e7 a9 74 65 78 74 24  2a 31 36 3e 73 78 25 20  | ..text$*16>sx% |
00000790  73 78 25 3d a9 74 65 78  74 24 2a 31 36 0d 02 94  |sx%=.text$*16...|
000007a0  12 e7 20 62 61 72 25 20  73 78 25 3d 31 36 30 0d  |.. bar% sx%=160.|
000007b0  02 9e 22 24 28 73 70 72  69 74 65 25 2b 31 35 2a  |.."$(sprite%+15*|
000007c0  6e 75 6d 25 29 3d 22 53  22 2b 73 70 72 69 74 65  |num%)="S"+sprite|
000007d0  24 0d 02 a8 1a 24 28 74  65 78 74 25 2b 31 35 2a  |$....$(text%+15*|
000007e0  6e 75 6d 25 29 3d 74 65  78 74 24 0d 02 b2 0a 21  |num%)=text$....!|
000007f0  71 25 3d 2d 32 0d 02 bc  2f 71 25 21 34 3d 30 3a  |q%=-2.../q%!4=0:|
00000800  71 25 21 38 3d 2d 31 36  3a 71 25 21 31 32 3d 71  |q%!8=-16:q%!12=q|
00000810  25 21 34 2b 73 78 25 3a  71 25 21 31 36 3d 32 30  |%!4+sx%:q%!16=20|
00000820  2b 73 79 25 0d 02 c6 13  71 25 21 32 30 3d 26 31  |+sy%....q%!20=&1|
00000830  37 30 30 33 31 30 42 0d  02 d0 17 71 25 21 32 34  |700310B....q%!24|
00000840  3d 74 65 78 74 25 2b 31  35 2a 6e 75 6d 25 0d 02  |=text%+15*num%..|
00000850  da 19 71 25 21 32 38 3d  73 70 72 69 74 65 25 2b  |..q%!28=sprite%+|
00000860  31 35 2a 6e 75 6d 25 0d  02 e4 10 71 25 21 33 32  |15*num%....q%!32|
00000870  3d a9 74 65 78 74 24 0d  02 ee 21 c8 99 22 57 69  |=.text$...!.."Wi|
00000880  6d 70 5f 43 72 65 61 74  65 49 63 6f 6e 22 2c 2c  |mp_CreateIcon",,|
00000890  71 25 20 b8 20 69 63 25  0d 02 f8 08 3d 69 63 25  |q% . ic%....=ic%|
000008a0  0d 03 02 04 0d 03 0c 1c  dd a4 65 72 72 6f 72 28  |..........error(|
000008b0  65 72 72 6f 72 25 2c 65  72 72 24 2c 66 6c 25 29  |error%,err$,fl%)|
000008c0  0d 03 16 1c c8 99 22 57  69 6d 70 5f 43 6f 6d 6d  |......"Wimp_Comm|
000008d0  61 6e 64 57 69 6e 64 6f  77 22 2c 30 0d 03 20 22  |andWindow",0.. "|
000008e0  65 72 72 31 25 21 30 3d  65 72 72 6f 72 25 3a 24  |err1%!0=error%:$|
000008f0  28 65 72 72 31 25 2b 34  29 3d 65 72 72 24 0d 03  |(err1%+4)=err$..|
00000900  2a 32 c8 99 22 57 69 6d  70 5f 52 65 70 6f 72 74  |*2.."Wimp_Report|
00000910  45 72 72 6f 72 22 2c 65  72 72 31 25 2c 66 6c 25  |Error",err1%,fl%|
00000920  2c 65 72 72 32 25 20 b8  20 2c 63 6c 69 63 6b 25  |,err2% . ,click%|
00000930  0d 03 34 0b 3d 63 6c 69  63 6b 25 0d 03 3e 04 0d  |..4.=click%..>..|
00000940  03 48 0d dd f2 6d 65 73  73 61 67 65 0d 03 52 0e  |.H...message..R.|
00000950  c8 8e 20 71 25 21 31 36  20 ca 0d 03 5c 11 20 c9  |.. q%!16 ...\. .|
00000960  20 30 3a 20 71 75 69 74  25 3d b9 0d 03 66 15 20  | 0: quit%=...f. |
00000970  c9 20 33 3a 20 e7 20 71  25 21 31 32 3d 30 20 8c  |. 3: . q%!12=0 .|
00000980  0d 03 70 72 20 20 20 20  20 20 20 20 20 20 73 6f  |..pr          so|
00000990  75 72 63 65 24 3d a4 67  65 74 6e 61 6d 65 30 28  |urce$=.getname0(|
000009a0  71 25 2b 34 34 29 3a 74  61 72 67 65 74 24 3d 22  |q%+44):target$="|
000009b0  61 64 66 73 3a 3a 22 2b  a4 67 65 74 64 69 73 63  |adfs::"+.getdisc|
000009c0  6e 61 6d 65 28 22 3a 22  2b c3 a4 66 69 6e 64 6e  |name(":"+..findn|
000009d0  75 6d 28 71 25 21 32 34  29 29 2b 22 2e 24 2e 22  |um(q%!24))+".$."|
000009e0  2b a4 67 65 74 6c 65 61  66 28 73 6f 75 72 63 65  |+.getleaf(source|
000009f0  24 29 0d 03 7a 3b 20 20  20 20 20 20 20 20 20 20  |$)..z;          |
00000a00  e7 20 28 a4 66 69 6e 64  6e 75 6d 28 71 25 21 32  |. (.findnum(q%!2|
00000a10  34 29 3e 33 29 20 80 20  28 a4 66 69 6e 64 6e 75  |4)>3) . (.findnu|
00000a20  6d 28 71 25 21 32 34 29  3c 38 29 20 8c 0d 03 84  |m(q%!24)<8) ....|
00000a30  64 20 20 20 20 20 20 20  20 20 20 20 24 65 72 72  |d           $err|
00000a40  31 25 3d c4 32 35 35 2c  bd 30 29 3a c8 99 22 58  |1%=.255,.0):.."X|
00000a50  4f 53 5f 52 65 61 64 56  61 72 56 61 6c 22 2c 22  |OS_ReadVarVal","|
00000a60  41 44 46 53 24 44 72 69  76 65 22 2b c3 a4 66 69  |ADFS$Drive"+..fi|
00000a70  6e 64 6e 75 6d 28 71 25  21 32 34 29 2c 65 72 72  |ndnum(q%!24),err|
00000a80  31 25 2c 32 35 35 20 b8  2c 2c 65 78 69 73 74 73  |1%,255 .,,exists|
00000a90  25 0d 03 8e 1d 20 20 20  20 20 20 20 20 20 20 20  |%....           |
00000aa0  e7 20 65 78 69 73 74 73  25 3c 3e 30 20 8c 0d 03  |. exists%<>0 ...|
00000ab0  98 56 20 20 20 20 20 20  20 20 20 20 20 20 74 61  |.V            ta|
00000ac0  72 67 65 74 24 3d a4 67  65 74 6e 61 6d 65 30 28  |rget$=.getname0(|
00000ad0  65 72 72 31 25 29 3a 6e  61 6d 65 24 3d a4 67 65  |err1%):name$=.ge|
00000ae0  74 6e 61 6d 65 28 73 6f  75 72 63 65 24 29 3a e7  |tname(source$):.|
00000af0  20 6e 61 6d 65 24 3d 22  24 22 20 6e 61 6d 65 24  | name$="$" name$|
00000b00  3d 22 3f 22 0d 03 a2 2f  20 20 20 20 20 20 20 20  |="?".../        |
00000b10  20 20 20 20 c8 99 22 4f  53 5f 46 69 6c 65 22 2c  |    .."OS_File",|
00000b20  38 2c 74 61 72 67 65 74  24 2b 22 2e 22 2b 6e 61  |8,target$+"."+na|
00000b30  6d 65 24 0d 03 ac 38 20  20 20 20 20 20 20 20 20  |me$...8         |
00000b40  20 20 20 74 61 72 67 65  74 24 2b 3d 22 2e 22 2b  |   target$+="."+|
00000b50  6e 61 6d 65 24 2b 22 2e  22 2b a4 67 65 74 6c 65  |name$+"."+.getle|
00000b60  61 66 28 73 6f 75 72 63  65 24 29 0d 03 b6 10 20  |af(source$).... |
00000b70  20 20 20 20 20 20 20 20  20 20 cd 0d 03 c0 0f 20  |          ..... |
00000b80  20 20 20 20 20 20 20 20  20 cd 0d 03 ca 4e 20 20  |         ....N  |
00000b90  20 20 20 20 20 20 20 20  e7 20 70 6f 6c 6c 25 3d  |        . poll%=|
00000ba0  25 31 31 30 30 30 30 30  31 31 30 30 30 31 20 8c  |%1100000110001 .|
00000bb0  20 73 68 69 66 74 25 3d  a6 2d 31 3a 65 6e 75 6d  | shift%=.-1:enum|
00000bc0  25 3d b9 3a 70 6f 6c 6c  25 3d 25 31 31 30 30 30  |%=.:poll%=%11000|
00000bd0  30 30 31 31 30 30 30 30  0d 03 d4 44 20 20 20 20  |00110000...D    |
00000be0  20 20 20 20 20 20 f2 65  78 65 63 75 74 65 28 22  |      .execute("|
00000bf0  43 6f 70 79 20 22 2b 73  6f 75 72 63 65 24 2b 22  |Copy "+source$+"|
00000c00  20 22 2b 74 61 72 67 65  74 24 2b 22 20 22 2b a4  | "+target$+" "+.|
00000c10  72 65 61 64 6f 70 74 69  6f 6e 73 29 0d 03 de 0e  |readoptions)....|
00000c20  20 20 20 20 20 20 20 20  20 cd 0d 03 e8 04 0d 03  |         .......|
00000c30  f2 05 cb 0d 03 fc 05 e1  0d 04 06 04 0d 04 10 1a  |................|
00000c40  dd f2 6d 65 6e 75 28 69  68 25 29 3a ea 77 25 2c  |..menu(ih%):.w%,|
00000c50  68 74 25 2c 63 25 0d 04  1a 16 6e 75 6d 25 3d a4  |ht%,c%....num%=.|
00000c60  66 69 6e 64 6e 75 6d 28  69 68 25 29 0d 04 24 37  |findnum(ih%)..$7|
00000c70  e7 20 6e 75 6d 25 3e 33  20 24 75 73 65 72 25 3d  |. num%>3 $user%=|
00000c80  a4 67 65 74 64 69 73 63  6e 61 6d 65 28 22 3a 22  |.getdiscname(":"|
00000c90  2b c3 6e 75 6d 25 29 20  8b 20 24 75 73 65 72 25  |+.num%) . $user%|
00000ca0  3d 22 22 0d 04 2e 11 6c  61 73 74 6e 75 6d 25 3d  |=""....lastnum%=|
00000cb0  6e 75 6d 25 0d 04 38 12  6d 70 74 72 25 3d 69 6e  |num%..8.mptr%=in|
00000cc0  64 6d 65 6e 75 25 0d 04  42 0e e7 20 6e 75 6d 25  |dmenu%..B.. num%|
00000cd0  3c 38 20 8c 0d 04 4c 11  20 68 74 25 3d 34 34 2a  |<8 ...L. ht%=44*|
00000ce0  31 31 2b 32 34 0d 04 56  04 0d 04 60 25 20 f2 6d  |11+24..V...`% .m|
00000cf0  5f 68 65 61 64 28 6d 65  6e 75 25 2c 22 41 44 46  |_head(menu%,"ADF|
00000d00  53 3a 3a 22 2b c3 6e 75  6d 25 2c 31 31 29 0d 04  |S::"+.num%,11)..|
00000d10  6a 31 20 f2 6d 5f 62 6c  6f 63 6b 28 6d 65 6e 75  |j1 .m_block(menu|
00000d20  25 2b 32 38 2c 26 30 30  2c 69 6e 66 6f 25 2c 26  |%+28,&00,info%,&|
00000d30  37 30 30 30 30 30 31 2c  22 49 6e 66 6f 22 29 0d  |7000001,"Info").|
00000d40  04 74 3f 20 f2 6d 5f 62  6c 6f 63 6b 28 6d 65 6e  |.t? .m_block(men|
00000d50  75 25 2b 35 32 2c 26 30  32 2d 74 69 6e 79 64 69  |u%+52,&02-tinydi|
00000d60  73 63 73 25 2c 2d 31 2c  26 37 30 30 30 30 30 31  |scs%,-1,&7000001|
00000d70  2c 22 54 69 6e 79 20 64  69 73 63 73 22 29 0d 04  |,"Tiny discs")..|
00000d80  7e 2d 20 f2 6d 5f 62 6c  6f 63 6b 28 6d 65 6e 75  |~- .m_block(menu|
00000d90  25 2b 37 36 2c 26 30 30  2c 2d 31 2c 26 37 30 30  |%+76,&00,-1,&700|
00000da0  30 30 30 31 2c 22 42 79  65 22 29 0d 04 88 3b 20  |0001,"Bye")...; |
00000db0  f2 6d 5f 62 6c 6f 63 6b  28 6d 65 6e 75 25 2b 31  |.m_block(menu%+1|
00000dc0  30 30 2c 26 30 30 2c 6d  65 6e 75 25 2b 34 30 30  |00,&00,menu%+400|
00000dd0  2c 26 37 30 30 30 30 30  31 2c 22 4e 61 6d 65 20  |,&7000001,"Name |
00000de0  64 69 73 63 22 29 0d 04  92 3a 20 f2 6d 5f 62 6c  |disc")...: .m_bl|
00000df0  6f 63 6b 28 6d 65 6e 75  25 2b 31 32 34 2c 26 30  |ock(menu%+124,&0|
00000e00  30 2c 6d 65 6e 75 25 2b  36 32 34 2c 26 37 30 30  |0,menu%+624,&700|
00000e10  30 30 30 31 2c 22 44 69  73 6d 6f 75 6e 74 22 29  |0001,"Dismount")|
00000e20  0d 04 9c 48 20 f2 6d 5f  62 6c 6f 63 6b 28 6d 65  |...H .m_block(me|
00000e30  6e 75 25 2b 31 34 38 2c  26 30 30 2c 6d 65 6e 75  |nu%+148,&00,menu|
00000e40  25 2b 33 30 30 2c 26 37  30 30 30 30 30 31 2b 28  |%+300,&7000001+(|
00000e50  2d 28 6e 75 6d 25 3e 33  29 3c 3c 32 32 29 2c 22  |-(num%>3)<<22),"|
00000e60  46 6f 72 6d 61 74 22 29  0d 04 a6 48 20 f2 6d 5f  |Format")...H .m_|
00000e70  62 6c 6f 63 6b 28 6d 65  6e 75 25 2b 31 37 32 2c  |block(menu%+172,|
00000e80  26 30 30 2c 6d 65 6e 75  25 2b 34 35 32 2c 26 37  |&00,menu%+452,&7|
00000e90  30 30 30 30 30 31 2b 28  2d 28 6e 75 6d 25 3e 33  |000001+(-(num%>3|
00000ea0  29 3c 3c 32 32 29 2c 22  42 61 63 6b 75 70 22 29  |)<<22),"Backup")|
00000eb0  0d 04 b0 35 20 f2 6d 5f  62 6c 6f 63 6b 28 6d 65  |...5 .m_block(me|
00000ec0  6e 75 25 2b 31 39 36 2c  26 30 30 2c 6d 65 6e 75  |nu%+196,&00,menu|
00000ed0  25 2b 36 32 34 2c 26 37  30 30 30 30 30 31 2c 22  |%+624,&7000001,"|
00000ee0  4d 61 70 22 29 0d 04 ba  39 20 f2 6d 5f 62 6c 6f  |Map")...9 .m_blo|
00000ef0  63 6b 28 6d 65 6e 75 25  2b 32 32 30 2c 26 30 30  |ck(menu%+220,&00|
00000f00  2c 6d 65 6e 75 25 2b 36  32 34 2c 26 37 30 30 30  |,menu%+624,&7000|
00000f10  30 30 31 2c 22 43 6f 6d  70 61 63 74 22 29 0d 04  |001,"Compact")..|
00000f20  c4 38 20 f2 6d 5f 62 6c  6f 63 6b 28 6d 65 6e 75  |.8 .m_block(menu|
00000f30  25 2b 32 34 34 2c 26 30  30 2c 6d 65 6e 75 25 2b  |%+244,&00,menu%+|
00000f40  36 32 34 2c 26 37 30 30  30 30 30 31 2c 22 56 65  |624,&7000001,"Ve|
00000f50  72 69 66 79 22 29 0d 04  ce 36 20 f2 6d 5f 62 6c  |rify")...6 .m_bl|
00000f60  6f 63 6b 28 6d 65 6e 75  25 2b 32 36 38 2c 26 38  |ock(menu%+268,&8|
00000f70  30 2c 6d 65 6e 75 25 2b  36 32 34 2c 26 37 30 30  |0,menu%+624,&700|
00000f80  30 30 30 31 2c 22 46 72  65 65 22 29 0d 04 d8 04  |0001,"Free")....|
00000f90  0d 04 e2 23 20 f2 6d 5f  68 65 61 64 28 6d 65 6e  |...# .m_head(men|
00000fa0  75 25 2b 33 30 30 2c 22  46 6f 72 6d 61 74 22 2c  |u%+300,"Format",|
00000fb0  31 38 29 0d 04 ec 3c 20  f2 6d 5f 62 6c 6f 63 6b  |18)...< .m_block|
00000fc0  28 6d 65 6e 75 25 2b 33  32 38 2c 26 30 30 2c 2d  |(menu%+328,&00,-|
00000fd0  31 2c 26 37 30 30 30 30  30 31 2c 22 4c 20 2d 20  |1,&7000001,"L - |
00000fe0  36 34 30 4b 2c 20 6f 6c  64 20 6d 61 70 22 29 0d  |640K, old map").|
00000ff0  04 f6 3c 20 f2 6d 5f 62  6c 6f 63 6b 28 6d 65 6e  |..< .m_block(men|
00001000  75 25 2b 33 35 32 2c 26  30 30 2c 2d 31 2c 26 37  |u%+352,&00,-1,&7|
00001010  30 30 30 30 30 31 2c 22  44 20 2d 20 38 30 30 4b  |000001,"D - 800K|
00001020  2c 20 6f 6c 64 20 6d 61  70 22 29 0d 05 00 3c 20  |, old map")...< |
00001030  f2 6d 5f 62 6c 6f 63 6b  28 6d 65 6e 75 25 2b 33  |.m_block(menu%+3|
00001040  37 36 2c 26 38 30 2c 2d  31 2c 26 37 30 30 30 30  |76,&80,-1,&70000|
00001050  30 31 2c 22 45 20 2d 20  38 30 30 4b 2c 20 6e 65  |01,"E - 800K, ne|
00001060  77 20 6d 61 70 22 29 0d  05 0a 04 0d 05 14 26 20  |w map").......& |
00001070  f2 6d 5f 68 65 61 64 28  6d 65 6e 75 25 2b 34 30  |.m_head(menu%+40|
00001080  30 2c 22 44 69 73 63 20  4e 61 6d 65 22 2c 31 31  |0,"Disc Name",11|
00001090  29 0d 05 1e 3b 20 f2 6d  5f 69 6e 64 69 72 65 63  |)...; .m_indirec|
000010a0  74 28 6d 65 6e 75 25 2b  34 32 38 2c 26 38 34 2c  |t(menu%+428,&84,|
000010b0  2d 31 2c 26 37 30 30 46  31 30 31 2c 75 73 65 72  |-1,&700F101,user|
000010c0  25 2c 76 61 6c 69 64 25  2c 31 31 29 0d 05 28 04  |%,valid%,11)..(.|
000010d0  0d 05 32 21 20 f2 6d 5f  68 65 61 64 28 6d 65 6e  |..2! .m_head(men|
000010e0  75 25 2b 34 35 32 2c 22  44 72 69 76 65 22 2c 38  |u%+452,"Drive",8|
000010f0  29 0d 05 3c 12 20 e3 46  25 3d 31 b8 66 6c 6f 70  |)..<. .F%=1.flop|
00001100  70 79 25 0d 05 46 3f 20  f2 6d 5f 62 6c 6f 63 6b  |py%..F? .m_block|
00001110  28 6d 65 6e 75 25 2b 34  2b 34 35 32 2b 46 25 2a  |(menu%+4+452+F%*|
00001120  32 34 2c 26 30 30 2c 2d  31 2c 26 37 30 30 30 30  |24,&00,-1,&70000|
00001130  30 31 2c 22 74 6f 20 3a  22 2b c3 28 46 25 2d 31  |01,"to :"+.(F%-1|
00001140  29 29 0d 05 50 06 20 ed  0d 05 5a 40 20 3f 28 6d  |))..P. ...Z@ ?(m|
00001150  65 6e 75 25 2b 34 2b 34  35 32 2b 28 66 6c 6f 70  |enu%+4+452+(flop|
00001160  70 79 25 2a 32 34 29 29  3d 3f 28 6d 65 6e 75 25  |py%*24))=?(menu%|
00001170  2b 34 2b 34 35 32 2b 28  66 6c 6f 70 70 79 25 2a  |+4+452+(floppy%*|
00001180  32 34 29 29 82 26 38 30  0d 05 64 04 0d 05 6e 21  |24)).&80..d...n!|
00001190  20 f2 6d 5f 68 65 61 64  28 6d 65 6e 75 25 2b 36  | .m_head(menu%+6|
000011a0  32 34 2c 22 44 69 73 63  22 2c 31 32 29 0d 05 78  |24,"Disc",12)..x|
000011b0  32 20 f2 6d 5f 62 6c 6f  63 6b 28 6d 65 6e 75 25  |2 .m_block(menu%|
000011c0  2b 36 35 32 2c 26 30 30  2c 2d 31 2c 26 37 30 30  |+652,&00,-1,&700|
000011d0  30 30 30 31 2c 22 3a 22  2b c3 6e 75 6d 25 29 0d  |0001,":"+.num%).|
000011e0  05 82 11 20 63 25 3d 30  3a e3 46 25 3d 30 b8 37  |... c%=0:.F%=0.7|
000011f0  0d 05 8c b7 20 e7 20 28  64 69 73 63 69 64 25 28  |.... . (discid%(|
00001200  46 25 2c 30 29 3c 3e 2d  31 29 20 80 20 28 a4 67  |F%,0)<>-1) . (.g|
00001210  65 74 73 79 73 76 61 72  28 22 41 44 46 53 24 44  |etsysvar("ADFS$D|
00001220  69 73 63 22 2b c3 6e 75  6d 25 2c 22 33 2e 35 64  |isc"+.num%,"3.5d|
00001230  69 73 63 22 29 3d a4 67  65 74 73 79 73 76 61 72  |isc")=.getsysvar|
00001240  28 22 41 44 46 53 24 44  69 73 63 22 2b c3 64 69  |("ADFS$Disc"+.di|
00001250  73 63 69 64 25 28 46 25  2c 31 29 2c 22 33 2e 35  |scid%(F%,1),"3.5|
00001260  64 69 73 63 22 29 29 20  f2 6d 5f 62 6c 6f 63 6b  |disc")) .m_block|
00001270  28 6d 65 6e 75 25 2b 36  37 36 2b 63 25 2a 32 34  |(menu%+676+c%*24|
00001280  2c 26 30 30 2c 2d 31 2c  26 37 30 30 30 30 30 31  |,&00,-1,&7000001|
00001290  2c 22 3a 22 2b 64 69 73  63 69 64 24 28 46 25 29  |,":"+discid$(F%)|
000012a0  29 3a 63 25 2b 3d 31 0d  05 96 06 20 ed 0d 05 a0  |):c%+=1.... ....|
000012b0  19 20 e7 20 63 25 3e 30  20 6d 65 6e 75 25 3f 36  |. . c%>0 menu%?6|
000012c0  35 32 3d 26 30 32 0d 05  aa 2e 20 3f 28 6d 65 6e  |52=&02.... ?(men|
000012d0  75 25 2b 36 35 32 2b 63  25 2a 32 34 29 3d 3f 28  |u%+652+c%*24)=?(|
000012e0  6d 65 6e 75 25 2b 36 35  32 2b 63 25 2a 32 34 29  |menu%+652+c%*24)|
000012f0  82 26 38 30 0d 05 b4 04  0d 05 be 05 cc 0d 05 c8  |.&80............|
00001300  0d 20 68 74 25 3d 34 34  2a 35 0d 05 d2 2e 20 f2  |. ht%=44*5.... .|
00001310  6d 5f 68 65 61 64 28 6d  65 6e 75 25 2c a4 67 65  |m_head(menu%,.ge|
00001320  74 64 69 73 63 6e 61 6d  65 28 22 3a 22 2b c3 6e  |tdiscname(":"+.n|
00001330  75 6d 25 29 2c 31 32 29  0d 05 dc 32 20 f2 6d 5f  |um%),12)...2 .m_|
00001340  62 6c 6f 63 6b 28 6d 65  6e 75 25 2b 32 38 2c 26  |block(menu%+28,&|
00001350  30 30 2c 2d 31 2c 26 37  30 30 30 30 30 31 2c 22  |00,-1,&7000001,"|
00001360  44 69 73 6d 6f 75 6e 74  22 29 0d 05 e6 2d 20 f2  |Dismount")...- .|
00001370  6d 5f 62 6c 6f 63 6b 28  6d 65 6e 75 25 2b 35 32  |m_block(menu%+52|
00001380  2c 26 30 30 2c 2d 31 2c  26 37 30 30 30 30 30 31  |,&00,-1,&7000001|
00001390  2c 22 4d 61 70 22 29 0d  05 f0 31 20 f2 6d 5f 62  |,"Map")...1 .m_b|
000013a0  6c 6f 63 6b 28 6d 65 6e  75 25 2b 37 36 2c 26 30  |lock(menu%+76,&0|
000013b0  30 2c 2d 31 2c 26 37 30  30 30 30 30 31 2c 22 43  |0,-1,&7000001,"C|
000013c0  6f 6d 70 61 63 74 22 29  0d 05 fa 31 20 f2 6d 5f  |ompact")...1 .m_|
000013d0  62 6c 6f 63 6b 28 6d 65  6e 75 25 2b 31 30 30 2c  |block(menu%+100,|
000013e0  26 30 30 2c 2d 31 2c 26  37 30 30 30 30 30 31 2c  |&00,-1,&7000001,|
000013f0  22 56 65 72 69 66 79 22  29 0d 06 04 2f 20 f2 6d  |"Verify").../ .m|
00001400  5f 62 6c 6f 63 6b 28 6d  65 6e 75 25 2b 31 32 34  |_block(menu%+124|
00001410  2c 26 38 30 2c 2d 31 2c  26 37 30 30 30 30 30 31  |,&80,-1,&7000001|
00001420  2c 22 46 72 65 65 22 29  0d 06 0e 04 0d 06 18 05  |,"Free")........|
00001430  cd 0d 06 22 04 0d 06 2c  2d c8 99 22 57 69 6d 70  |..."...,-.."Wimp|
00001440  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 6d 65  |_CreateMenu",,me|
00001450  6e 75 25 2c 71 25 21 30  2d 36 34 2c 68 74 25 2b  |nu%,q%!0-64,ht%+|
00001460  39 36 0d 06 36 05 e1 0d  06 40 04 0d 06 4a 42 dd  |96..6....@...JB.|
00001470  f2 6d 5f 62 6c 6f 63 6b  28 62 61 73 65 25 2c 66  |.m_block(base%,f|
00001480  6c 61 67 25 2c 70 74 72  25 2c 69 63 66 6c 25 2c  |lag%,ptr%,icfl%,|
00001490  64 61 74 61 24 29 3a ea  20 64 61 74 61 31 25 2c  |data$):. data1%,|
000014a0  64 61 74 61 32 25 2c 64  61 74 61 33 25 0d 06 54  |data2%,data3%..T|
000014b0  11 e7 20 a9 64 61 74 61  24 3c 31 32 20 8c 0d 06  |.. .data$<12 ...|
000014c0  5e 3f 20 62 61 73 65 25  21 30 3d 66 6c 61 67 25  |^? base%!0=flag%|
000014d0  3a 62 61 73 65 25 21 34  3d 70 74 72 25 3a 62 61  |:base%!4=ptr%:ba|
000014e0  73 65 25 21 38 3d 69 63  66 6c 25 3a 24 28 62 61  |se%!8=icfl%:$(ba|
000014f0  73 65 25 2b 31 32 29 3d  64 61 74 61 24 0d 06 68  |se%+12)=data$..h|
00001500  05 cc 0d 06 72 4d 20 64  61 74 61 31 25 3d 6d 70  |....rM data1%=mp|
00001510  74 72 25 3a 64 61 74 61  32 25 3d 2d 31 3a 64 61  |tr%:data2%=-1:da|
00001520  74 61 33 25 3d a9 64 61  74 61 24 2b 31 3a 69 63  |ta3%=.data$+1:ic|
00001530  66 6c 25 3d 28 69 63 66  6c 25 80 26 46 46 46 46  |fl%=(icfl%.&FFFF|
00001540  46 45 46 46 29 82 26 30  30 30 30 30 31 30 30 0d  |FEFF).&00000100.|
00001550  06 7c 2d 20 62 61 73 65  25 21 30 3d 66 6c 61 67  |.|- base%!0=flag|
00001560  25 3a 62 61 73 65 25 21  34 3d 70 74 72 25 3a 62  |%:base%!4=ptr%:b|
00001570  61 73 65 25 21 38 3d 69  63 66 6c 25 0d 06 86 34  |ase%!8=icfl%...4|
00001580  20 62 61 73 65 25 21 31  32 3d 64 61 74 61 31 25  | base%!12=data1%|
00001590  3a 62 61 73 65 25 21 31  36 3d 64 61 74 61 32 25  |:base%!16=data2%|
000015a0  3a 62 61 73 65 25 21 32  30 3d 64 61 74 61 33 25  |:base%!20=data3%|
000015b0  0d 06 90 11 20 24 6d 70  74 72 25 3d 64 61 74 61  |.... $mptr%=data|
000015c0  24 0d 06 9a 12 20 6d 70  74 72 25 2b 3d 64 61 74  |$.... mptr%+=dat|
000015d0  61 33 25 0d 06 a4 05 cd  0d 06 ae 05 e1 0d 06 b8  |a3%.............|
000015e0  04 0d 06 c2 20 dd f2 6d  5f 68 65 61 64 28 62 61  |.... ..m_head(ba|
000015f0  73 65 25 2c 64 61 74 61  24 2c 77 69 64 74 68 25  |se%,data$,width%|
00001600  29 0d 06 cc 4d 24 62 61  73 65 25 3d 64 61 74 61  |)...M$base%=data|
00001610  24 3a 62 61 73 65 25 21  31 32 3d 26 30 30 30 37  |$:base%!12=&0007|
00001620  30 32 30 37 3a 62 61 73  65 25 21 31 36 3d 77 69  |0207:base%!16=wi|
00001630  64 74 68 25 2a 31 36 3a  62 61 73 65 25 21 32 30  |dth%*16:base%!20|
00001640  3d 34 34 3a 62 61 73 65  25 21 32 34 3d 30 0d 06  |=44:base%!24=0..|
00001650  d6 05 e1 0d 06 e0 04 0d  06 ea 3d dd f2 6d 5f 69  |..........=..m_i|
00001660  6e 64 69 72 65 63 74 28  62 61 73 65 25 2c 66 6c  |ndirect(base%,fl|
00001670  61 67 25 2c 70 74 72 25  2c 69 63 66 6c 25 2c 64  |ag%,ptr%,icfl%,d|
00001680  61 74 61 31 25 2c 64 61  74 61 32 25 2c 64 61 74  |ata1%,data2%,dat|
00001690  61 33 25 29 0d 06 f4 2c  62 61 73 65 25 21 30 3d  |a3%)...,base%!0=|
000016a0  66 6c 61 67 25 3a 62 61  73 65 25 21 34 3d 70 74  |flag%:base%!4=pt|
000016b0  72 25 3a 62 61 73 65 25  21 38 3d 69 63 66 6c 25  |r%:base%!8=icfl%|
000016c0  0d 06 fe 33 62 61 73 65  25 21 31 32 3d 64 61 74  |...3base%!12=dat|
000016d0  61 31 25 3a 62 61 73 65  25 21 31 36 3d 64 61 74  |a1%:base%!16=dat|
000016e0  61 32 25 3a 62 61 73 65  25 21 32 30 3d 64 61 74  |a2%:base%!20=dat|
000016f0  61 33 25 0d 07 08 05 e1  0d 07 12 04 0d 07 1c 23  |a3%............#|
00001700  dd f2 64 65 63 6f 64 65  28 73 65 6c 65 63 74 25  |..decode(select%|
00001710  2c 73 75 62 25 29 3a ea  64 75 6d 6d 79 2c 6d 0d  |,sub%):.dummy,m.|
00001720  07 26 26 c8 99 22 57 69  6d 70 5f 47 65 74 50 6f  |.&&.."Wimp_GetPo|
00001730  69 6e 74 65 72 49 6e 66  6f 22 2c 2c 71 25 3a 6d  |interInfo",,q%:m|
00001740  3d 71 25 21 38 0d 07 30  12 e7 20 6c 61 73 74 6e  |=q%!8..0.. lastn|
00001750  75 6d 25 3c 38 20 8c 0d  07 3a 11 20 c8 8e 20 73  |um%<8 ...:. .. s|
00001760  65 6c 65 63 74 25 20 ca  0d 07 44 43 20 20 c9 20  |elect% ...DC  . |
00001770  31 3a 20 74 69 6e 79 64  69 73 63 73 25 3d 74 69  |1: tinydiscs%=ti|
00001780  6e 79 64 69 73 63 73 25  82 2d 31 3a e7 20 74 69  |nydiscs%.-1:. ti|
00001790  6e 79 64 69 73 63 73 25  20 f2 74 69 6e 79 6f 6e  |nydiscs% .tinyon|
000017a0  20 8b 20 f2 74 69 6e 79  6f 66 66 0d 07 4e 12 20  | . .tinyoff..N. |
000017b0  20 c9 20 32 3a 20 e3 46  25 3d 30 b8 37 0d 07 58  | . 2: .F%=0.7..X|
000017c0  3e 20 20 20 20 20 20 20  20 20 20 e7 20 64 69 73  |>          . dis|
000017d0  63 69 64 25 28 46 25 2c  30 29 3c 3e 2d 31 20 f2  |cid%(F%,0)<>-1 .|
000017e0  64 69 73 6d 6f 75 6e 74  6e 61 6d 65 28 64 69 73  |dismountname(dis|
000017f0  63 69 64 24 28 46 25 29  2c b9 29 0d 07 62 0f 20  |cid$(F%),.)..b. |
00001800  20 20 20 20 20 20 20 20  20 ed 0d 07 6c 23 20 20  |         ...l#  |
00001810  20 20 20 20 20 20 20 20  ff 20 22 57 69 6d 70 74  |        . "Wimpt|
00001820  61 73 6b 20 41 44 46 53  3a 42 79 65 22 0d 07 76  |ask ADFS:Bye"..v|
00001830  15 20 20 c9 20 33 3a 20  e7 20 73 75 62 25 3d 30  |.  . 3: . sub%=0|
00001840  20 8c 0d 07 80 24 20 20  20 20 20 20 20 20 20 20  | ....$          |
00001850  20 f2 64 69 73 6d 6f 75  6e 74 28 6c 61 73 74 6e  | .dismount(lastn|
00001860  75 6d 25 2c b9 29 0d 07  8a 53 20 20 20 20 20 20  |um%,.)...S      |
00001870  20 20 20 20 20 ff 20 22  57 69 6d 70 74 61 73 6b  |     . "Wimptask|
00001880  20 41 44 46 53 3a 4e 61  6d 65 44 69 73 63 20 3a  | ADFS:NameDisc :|
00001890  22 2b a4 67 65 74 64 69  73 63 6e 61 6d 65 28 22  |"+.getdiscname("|
000018a0  3a 22 2b c3 6c 61 73 74  6e 75 6d 25 29 2b 22 20  |:"+.lastnum%)+" |
000018b0  3a 22 2b 24 75 73 65 72  25 0d 07 94 1d 20 20 20  |:"+$user%....   |
000018c0  20 20 20 20 20 20 20 20  e7 20 6c 61 73 74 6e 75  |        . lastnu|
000018d0  6d 25 3e 33 20 8c 0d 07  9e 40 20 20 20 20 20 20  |m%>3 ....@      |
000018e0  20 20 20 20 20 20 24 28  74 65 78 74 25 2b 31 35  |      $(text%+15|
000018f0  2a 6c 61 73 74 6e 75 6d  25 29 3d a4 67 65 74 64  |*lastnum%)=.getd|
00001900  69 73 63 6e 61 6d 65 28  22 3a 22 2b c3 6c 61 73  |iscname(":"+.las|
00001910  74 6e 75 6d 25 29 0d 07  a8 2c 20 20 20 20 20 20  |tnum%)...,      |
00001920  20 20 20 20 20 20 f2 66  6f 72 63 65 69 63 6f 6e  |      .forceicon|
00001930  28 2d 32 2c 69 63 25 28  6c 61 73 74 6e 75 6d 25  |(-2,ic%(lastnum%|
00001940  29 29 0d 07 b2 10 20 20  20 20 20 20 20 20 20 20  |))....          |
00001950  20 cd 0d 07 bc 0f 20 20  20 20 20 20 20 20 20 20  | .....          |
00001960  cd 0d 07 c6 14 20 20 c9  20 34 3a 20 c8 8e 20 73  |.....  . 4: .. s|
00001970  75 62 25 20 ca 0d 07 d0  2c 20 20 20 20 20 20 20  |ub% ....,       |
00001980  20 20 20 20 c9 20 30 2c  2d 31 20 3a f2 64 69 73  |    . 0,-1 :.dis|
00001990  6d 6f 75 6e 74 28 6c 61  73 74 6e 75 6d 25 2c b9  |mount(lastnum%,.|
000019a0  29 0d 07 da 1b 20 20 20  20 20 20 20 20 20 20 20  |)....           |
000019b0  7f 20 3a 63 25 3d 30 3a  46 25 3d 30 0d 07 e4 97  |. :c%=0:F%=0....|
000019c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000019d0  20 20 20 20 20 20 f5 e7  20 28 64 69 73 63 69 64  |      .. (discid|
000019e0  25 28 46 25 2c 30 29 3c  3e 2d 31 29 20 80 20 28  |%(F%,0)<>-1) . (|
000019f0  a4 67 65 74 73 79 73 76  61 72 28 22 41 44 46 53  |.getsysvar("ADFS|
00001a00  24 44 69 73 63 22 2b c3  6c 61 73 74 6e 75 6d 25  |$Disc"+.lastnum%|
00001a10  2c 22 33 2e 35 64 69 73  63 22 29 3d a4 67 65 74  |,"3.5disc")=.get|
00001a20  73 79 73 76 61 72 28 22  41 44 46 53 24 44 69 73  |sysvar("ADFS$Dis|
00001a30  63 22 2b c3 64 69 73 63  69 64 25 28 46 25 2c 31  |c"+.discid%(F%,1|
00001a40  29 2c 22 33 2e 35 64 69  73 63 22 29 29 20 63 25  |),"3.5disc")) c%|
00001a50  2b 3d 31 0d 07 ee 2f 20  20 20 20 20 20 20 20 20  |+=1.../         |
00001a60  20 20 20 20 20 20 20 20  20 20 20 20 20 46 25 2b  |             F%+|
00001a70  3d 31 3a fd 63 25 3d 73  75 62 25 20 84 20 46 25  |=1:.c%=sub% . F%|
00001a80  3d 38 0d 07 f8 38 20 20  20 20 20 20 20 20 20 20  |=8...8          |
00001a90  20 20 20 20 20 20 20 20  20 20 20 20 f2 64 69 73  |            .dis|
00001aa0  6d 6f 75 6e 74 6e 61 6d  65 28 64 69 73 63 69 64  |mountname(discid|
00001ab0  24 28 46 25 2d 31 29 2c  b9 29 0d 08 02 04 0d 08  |$(F%-1),.)......|
00001ac0  0c 0f 20 20 20 20 20 20  20 20 20 20 cb 0d 08 16  |..          ....|
00001ad0  14 20 20 c9 20 35 3a 20  c8 8e 20 73 75 62 25 20  |.  . 5: .. sub% |
00001ae0  ca 0d 08 20 3a 20 20 20  20 20 20 20 20 20 20 20  |... :           |
00001af0  c9 20 30 20 20 20 3a 20  f2 65 78 65 63 75 74 65  |. 0   : .execute|
00001b00  28 22 46 6f 72 6d 61 74  20 3a 22 2b c3 6c 61 73  |("Format :"+.las|
00001b10  74 6e 75 6d 25 2b 22 20  4c 22 29 0d 08 2a 3a 20  |tnum%+" L")..*: |
00001b20  20 20 20 20 20 20 20 20  20 20 c9 20 31 20 20 20  |          . 1   |
00001b30  3a 20 f2 65 78 65 63 75  74 65 28 22 46 6f 72 6d  |: .execute("Form|
00001b40  61 74 20 3a 22 2b c3 6c  61 73 74 6e 75 6d 25 2b  |at :"+.lastnum%+|
00001b50  22 20 44 22 29 0d 08 34  3a 20 20 20 20 20 20 20  |" D")..4:       |
00001b60  20 20 20 20 c9 20 32 2c  2d 31 3a 20 f2 65 78 65  |    . 2,-1: .exe|
00001b70  63 75 74 65 28 22 46 6f  72 6d 61 74 20 3a 22 2b  |cute("Format :"+|
00001b80  c3 6c 61 73 74 6e 75 6d  25 2b 22 20 45 22 29 0d  |.lastnum%+" E").|
00001b90  08 3e 0f 20 20 20 20 20  20 20 20 20 20 cb 0d 08  |.>.          ...|
00001ba0  48 21 20 20 c9 20 36 3a  20 e7 20 73 75 62 25 3c  |H!  . 6: . sub%<|
00001bb0  30 20 73 75 62 25 3d 6c  61 73 74 6e 75 6d 25 0d  |0 sub%=lastnum%.|
00001bc0  08 52 35 20 20 20 20 20  20 20 20 20 20 f2 65 78  |.R5          .ex|
00001bd0  65 63 75 74 65 28 22 42  61 63 6b 75 70 20 22 2b  |ecute("Backup "+|
00001be0  c3 6c 61 73 74 6e 75 6d  25 2b 22 20 22 2b c3 73  |.lastnum%+" "+.s|
00001bf0  75 62 25 29 0d 08 5c 14  20 20 c9 20 37 3a 20 c8  |ub%)..\.  . 7: .|
00001c00  8e 20 73 75 62 25 20 ca  0d 08 66 32 20 20 20 20  |. sub% ...f2    |
00001c10  20 20 20 20 20 20 20 c9  20 30 2c 2d 31 20 3a f2  |       . 0,-1 :.|
00001c20  65 78 65 63 75 74 65 28  22 4d 61 70 20 3a 22 2b  |execute("Map :"+|
00001c30  c3 6c 61 73 74 6e 75 6d  25 29 0d 08 70 1b 20 20  |.lastnum%)..p.  |
00001c40  20 20 20 20 20 20 20 20  20 7f 20 3a 63 25 3d 30  |         . :c%=0|
00001c50  3a 46 25 3d 30 0d 08 7a  98 20 20 20 20 20 20 20  |:F%=0..z.       |
00001c60  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 f5  |               .|
00001c70  e7 20 28 64 69 73 63 69  64 25 28 46 25 2c 30 29  |. (discid%(F%,0)|
00001c80  3c 3e 2d 31 29 20 80 20  28 a4 67 65 74 73 79 73  |<>-1) . (.getsys|
00001c90  76 61 72 28 22 41 44 46  53 24 44 69 73 63 22 2b  |var("ADFS$Disc"+|
00001ca0  c3 6c 61 73 74 6e 75 6d  25 2c 22 33 2e 35 64 69  |.lastnum%,"3.5di|
00001cb0  73 63 22 29 3d a4 67 65  74 73 79 73 76 61 72 28  |sc")=.getsysvar(|
00001cc0  22 41 44 46 53 24 44 69  73 63 22 2b c3 64 69 73  |"ADFS$Disc"+.dis|
00001cd0  63 69 64 25 28 46 25 2c  31 29 2c 22 33 2e 35 2e  |cid%(F%,1),"3.5.|
00001ce0  64 69 73 63 22 29 29 20  63 25 2b 3d 31 0d 08 84  |disc")) c%+=1...|
00001cf0  2f 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |/               |
00001d00  20 20 20 20 20 20 20 46  25 2b 3d 31 3a fd 63 25  |       F%+=1:.c%|
00001d10  3d 73 75 62 25 20 84 20  46 25 3d 38 0d 08 8e 39  |=sub% . F%=8...9|
00001d20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001d30  20 20 20 20 20 20 f2 65  78 65 63 75 74 65 28 22  |      .execute("|
00001d40  4d 61 70 20 3a 22 2b 64  69 73 63 69 64 24 28 46  |Map :"+discid$(F|
00001d50  25 2d 31 29 29 0d 08 98  0f 20 20 20 20 20 20 20  |%-1))....       |
00001d60  20 20 20 cb 0d 08 a2 14  20 20 c9 20 38 3a 20 c8  |   .....  . 8: .|
00001d70  8e 20 73 75 62 25 20 ca  0d 08 ac 2a 20 20 20 20  |. sub% ....*    |
00001d80  20 20 20 20 20 20 20 c9  20 30 2c 2d 31 20 3a f2  |       . 0,-1 :.|
00001d90  63 6f 6d 70 61 63 74 28  c3 6c 61 73 74 6e 75 6d  |compact(.lastnum|
00001da0  25 29 0d 08 b6 1b 20 20  20 20 20 20 20 20 20 20  |%)....          |
00001db0  20 7f 20 3a 63 25 3d 30  3a 46 25 3d 30 0d 08 c0  | . :c%=0:F%=0...|
00001dc0  97 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00001dd0  20 20 20 20 20 20 20 f5  e7 20 28 64 69 73 63 69  |       .. (disci|
00001de0  64 25 28 46 25 2c 30 29  3c 3e 2d 31 29 20 80 20  |d%(F%,0)<>-1) . |
00001df0  28 a4 67 65 74 73 79 73  76 61 72 28 22 41 44 46  |(.getsysvar("ADF|
00001e00  53 24 44 69 73 63 22 2b  c3 6c 61 73 74 6e 75 6d  |S$Disc"+.lastnum|
00001e10  25 2c 22 33 2e 35 64 69  73 63 22 29 3d a4 67 65  |%,"3.5disc")=.ge|
00001e20  74 73 79 73 76 61 72 28  22 41 44 46 53 24 44 69  |tsysvar("ADFS$Di|
00001e30  73 63 22 2b c3 64 69 73  63 69 64 25 28 46 25 2c  |sc"+.discid%(F%,|
00001e40  31 29 2c 22 33 2e 35 64  69 73 63 22 29 29 20 63  |1),"3.5disc")) c|
00001e50  25 2b 3d 31 0d 08 ca 2f  20 20 20 20 20 20 20 20  |%+=1.../        |
00001e60  20 20 20 20 20 20 20 20  20 20 20 20 20 20 46 25  |              F%|
00001e70  2b 3d 31 3a fd 63 25 3d  73 75 62 25 20 84 20 46  |+=1:.c%=sub% . F|
00001e80  25 3d 38 0d 08 d4 31 20  20 20 20 20 20 20 20 20  |%=8...1         |
00001e90  20 20 20 20 20 20 20 20  20 20 20 20 20 f2 63 6f  |             .co|
00001ea0  6d 70 61 63 74 28 64 69  73 63 69 64 24 28 46 25  |mpact(discid$(F%|
00001eb0  2d 31 29 29 0d 08 de 0f  20 20 20 20 20 20 20 20  |-1))....        |
00001ec0  20 20 cb 0d 08 e8 14 20  20 c9 20 39 3a 20 c8 8e  |  .....  . 9: ..|
00001ed0  20 73 75 62 25 20 ca 0d  08 f2 35 20 20 20 20 20  | sub% ....5     |
00001ee0  20 20 20 20 20 20 c9 20  30 2c 2d 31 20 3a f2 65  |      . 0,-1 :.e|
00001ef0  78 65 63 75 74 65 28 22  56 65 72 69 66 79 20 3a  |xecute("Verify :|
00001f00  22 2b c3 6c 61 73 74 6e  75 6d 25 29 0d 08 fc 1b  |"+.lastnum%)....|
00001f10  20 20 20 20 20 20 20 20  20 20 20 7f 20 3a 63 25  |           . :c%|
00001f20  3d 30 3a 46 25 3d 30 0d  09 06 97 20 20 20 20 20  |=0:F%=0....     |
00001f30  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001f40  20 f5 e7 20 28 64 69 73  63 69 64 25 28 46 25 2c  | .. (discid%(F%,|
00001f50  30 29 3c 3e 2d 31 29 20  80 20 28 a4 67 65 74 73  |0)<>-1) . (.gets|
00001f60  79 73 76 61 72 28 22 41  44 46 53 24 44 69 73 63  |ysvar("ADFS$Disc|
00001f70  22 2b c3 6c 61 73 74 6e  75 6d 25 2c 22 33 2e 35  |"+.lastnum%,"3.5|
00001f80  64 69 73 63 22 29 3d a4  67 65 74 73 79 73 76 61  |disc")=.getsysva|
00001f90  72 28 22 41 44 46 53 24  44 69 73 63 22 2b c3 64  |r("ADFS$Disc"+.d|
00001fa0  69 73 63 69 64 25 28 46  25 2c 31 29 2c 22 33 2e  |iscid%(F%,1),"3.|
00001fb0  35 64 69 73 63 22 29 29  20 63 25 2b 3d 31 0d 09  |5disc")) c%+=1..|
00001fc0  10 2f 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |./              |
00001fd0  20 20 20 20 20 20 20 20  46 25 2b 3d 31 3a fd 63  |        F%+=1:.c|
00001fe0  25 3d 73 75 62 25 20 84  20 46 25 3d 38 0d 09 1a  |%=sub% . F%=8...|
00001ff0  3c 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |<               |
00002000  20 20 20 20 20 20 20 f2  65 78 65 63 75 74 65 28  |       .execute(|
00002010  22 56 65 72 69 66 79 20  3a 22 2b 64 69 73 63 69  |"Verify :"+disci|
00002020  64 24 28 46 25 2d 31 29  29 0d 09 24 0f 20 20 20  |d$(F%-1))..$.   |
00002030  20 20 20 20 20 20 20 cb  0d 09 2e 15 20 20 c9 20  |       .....  . |
00002040  31 30 3a 20 c8 8e 20 73  75 62 25 20 ca 0d 09 38  |10: .. sub% ...8|
00002050  34 20 20 20 20 20 20 20  20 20 20 20 20 c9 20 30  |4            . 0|
00002060  2c 2d 31 20 3a f2 65 78  65 63 75 74 65 28 22 46  |,-1 :.execute("F|
00002070  72 65 65 20 3a 22 2b c3  6c 61 73 74 6e 75 6d 25  |ree :"+.lastnum%|
00002080  29 0d 09 42 1c 20 20 20  20 20 20 20 20 20 20 20  |)..B.           |
00002090  20 7f 20 3a 63 25 3d 30  3a 46 25 3d 30 0d 09 4c  | . :c%=0:F%=0..L|
000020a0  98 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
000020b0  20 20 20 20 20 20 20 20  f5 e7 20 28 64 69 73 63  |        .. (disc|
000020c0  69 64 25 28 46 25 2c 30  29 3c 3e 2d 31 29 20 80  |id%(F%,0)<>-1) .|
000020d0  20 28 a4 67 65 74 73 79  73 76 61 72 28 22 41 44  | (.getsysvar("AD|
000020e0  46 53 24 44 69 73 63 22  2b c3 6c 61 73 74 6e 75  |FS$Disc"+.lastnu|
000020f0  6d 25 2c 22 33 2e 35 64  69 73 63 22 29 3d a4 67  |m%,"3.5disc")=.g|
00002100  65 74 73 79 73 76 61 72  28 22 41 44 46 53 24 44  |etsysvar("ADFS$D|
00002110  69 73 63 22 2b c3 64 69  73 63 69 64 25 28 46 25  |isc"+.discid%(F%|
00002120  2c 31 29 2c 22 33 2e 35  64 69 73 63 22 29 29 20  |,1),"3.5disc")) |
00002130  63 25 2b 3d 31 0d 09 56  30 20 20 20 20 20 20 20  |c%+=1..V0       |
00002140  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002150  46 25 2b 3d 31 3a fd 63  25 3d 73 75 62 25 20 84  |F%+=1:.c%=sub% .|
00002160  20 46 25 3d 38 0d 09 60  3b 20 20 20 20 20 20 20  | F%=8..`;       |
00002170  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002180  f2 65 78 65 63 75 74 65  28 22 46 72 65 65 20 3a  |.execute("Free :|
00002190  22 2b 64 69 73 63 69 64  24 28 46 25 2d 31 29 29  |"+discid$(F%-1))|
000021a0  0d 09 6a 10 20 20 20 20  20 20 20 20 20 20 20 cb  |..j.           .|
000021b0  0d 09 74 06 20 cb 0d 09  7e 04 0d 09 88 05 cc 0d  |..t. ...~.......|
000021c0  09 92 11 20 c8 8e 20 73  65 6c 65 63 74 25 20 ca  |... .. select% .|
000021d0  0d 09 9c 20 20 20 c9 20  30 3a 20 f2 64 69 73 6d  |...   . 0: .dism|
000021e0  6f 75 6e 74 28 6c 61 73  74 6e 75 6d 25 2c b9 29  |ount(lastnum%,.)|
000021f0  0d 09 a6 38 20 20 c9 20  31 3a 20 f2 65 78 65 63  |...8  . 1: .exec|
00002200  75 74 65 28 22 4d 61 70  20 3a 22 2b a4 67 65 74  |ute("Map :"+.get|
00002210  64 69 73 63 6e 61 6d 65  28 22 3a 22 2b c3 6c 61  |discname(":"+.la|
00002220  73 74 6e 75 6d 25 29 29  0d 09 b0 30 20 20 c9 20  |stnum%))...0  . |
00002230  32 3a 20 f2 63 6f 6d 70  61 63 74 28 a4 67 65 74  |2: .compact(.get|
00002240  64 69 73 63 6e 61 6d 65  28 22 3a 22 2b c3 6c 61  |discname(":"+.la|
00002250  73 74 6e 75 6d 25 29 29  0d 09 ba 3b 20 20 c9 20  |stnum%))...;  . |
00002260  33 3a 20 f2 65 78 65 63  75 74 65 28 22 56 65 72  |3: .execute("Ver|
00002270  69 66 79 20 3a 22 2b a4  67 65 74 64 69 73 63 6e  |ify :"+.getdiscn|
00002280  61 6d 65 28 22 3a 22 2b  c3 6c 61 73 74 6e 75 6d  |ame(":"+.lastnum|
00002290  25 29 29 0d 09 c4 39 20  20 c9 20 34 3a 20 f2 65  |%))...9  . 4: .e|
000022a0  78 65 63 75 74 65 28 22  46 72 65 65 20 3a 22 2b  |xecute("Free :"+|
000022b0  a4 67 65 74 64 69 73 63  6e 61 6d 65 28 22 3a 22  |.getdiscname(":"|
000022c0  2b c3 6c 61 73 74 6e 75  6d 25 29 29 0d 09 ce 06  |+.lastnum%))....|
000022d0  20 cb 0d 09 d8 04 0d 09  e2 05 cd 0d 09 ec 22 e7  | .............".|
000022e0  28 6d 20 80 31 29 3d 31  20 f2 6d 65 6e 75 28 69  |(m .1)=1 .menu(i|
000022f0  63 25 28 6c 61 73 74 6e  75 6d 25 29 29 0d 09 f6  |c%(lastnum%))...|
00002300  05 e1 0d 0a 00 04 0d 0a  0a 11 dd f2 65 78 65 63  |............exec|
00002310  75 74 65 28 65 24 29 0d  0a 14 07 ea 20 85 0d 0a  |ute(e$)..... ...|
00002320  1e 5e ee 20 85 20 ea 20  f7 20 85 3a e7 20 28 9f  |.^. . . . .:. (.|
00002330  20 3c 3e 26 31 30 38 31  31 29 20 c8 99 22 57 69  | <>&10811) .."Wi|
00002340  6d 70 5f 43 6f 6d 6d 61  6e 64 57 69 6e 64 6f 77  |mp_CommandWindow|
00002350  22 2c 2d 31 3a 85 20 9e  2c f6 24 20 8b 20 f6 3a  |",-1:. .,.$ . .:|
00002360  f1 3a c8 99 22 57 69 6d  70 5f 43 6f 6d 6d 61 6e  |.:.."Wimp_Comman|
00002370  64 57 69 6e 64 6f 77 22  2c 30 3a e1 0d 0a 28 15  |dWindow",0:...(.|
00002380  24 63 6c 69 62 75 66 66  65 72 25 3d 65 24 2b bd  |$clibuffer%=e$+.|
00002390  30 0d 0a 32 25 c8 99 22  57 69 6d 70 5f 43 6f 6d  |0..2%.."Wimp_Com|
000023a0  6d 61 6e 64 57 69 6e 64  6f 77 22 2c 63 6c 69 62  |mandWindow",clib|
000023b0  75 66 66 65 72 25 0d 0a  3c 19 c8 99 22 4f 53 5f  |uffer%..<..."OS_|
000023c0  43 4c 49 22 2c 22 41 44  46 53 3a 22 2b 65 24 0d  |CLI","ADFS:"+e$.|
000023d0  0a 46 1c c8 99 22 57 69  6d 70 5f 43 6f 6d 6d 61  |.F..."Wimp_Comma|
000023e0  6e 64 57 69 6e 64 6f 77  22 2c 30 0d 0a 50 05 e1  |ndWindow",0..P..|
000023f0  0d 0a 5a 04 0d 0a 64 17  dd a4 67 65 74 6e 61 6d  |..Z...d...getnam|
00002400  65 30 28 61 25 29 3a ea  20 61 24 0d 0a 6e 0d f5  |e0(a%):. a$..n..|
00002410  61 24 2b 3d bd 3f 61 25  0d 0a 78 09 61 25 2b 3d  |a$+=.?a%..x.a%+=|
00002420  31 0d 0a 82 0a fd 3f 61  25 3d 30 0d 0a 8c 07 3d  |1.....?a%=0....=|
00002430  61 24 0d 0a 96 04 0d 0a  a0 18 dd a4 67 65 74 6e  |a$..........getn|
00002440  61 6d 65 33 32 28 61 25  29 3a ea 20 61 24 0d 0a  |ame32(a%):. a$..|
00002450  aa 0d f5 61 24 2b 3d bd  3f 61 25 0d 0a b4 09 61  |...a$+=.?a%....a|
00002460  25 2b 3d 31 0d 0a be 0b  fd 3f 61 25 3c 33 33 0d  |%+=1.....?a%<33.|
00002470  0a c8 15 3d c0 61 24 2c  a7 61 24 2c bd 3f 61 25  |...=.a$,.a$,.?a%|
00002480  29 2d 31 29 0d 0a d2 04  0d 0a dc 0f dd f2 6d 61  |)-1)..........ma|
00002490  6b 65 69 63 6f 6e 73 0d  0a e6 8c e7 68 61 72 64  |keicons.....hard|
000024a0  25 3e 30 20 e3 46 25 3d  68 61 72 64 25 2b 33 b8  |%>0 .F%=hard%+3.|
000024b0  34 88 2d 31 3a 69 63 25  28 46 25 29 3d a4 69 6e  |4.-1:ic%(F%)=.in|
000024c0  73 74 61 6c 6c 5f 69 63  6f 6e 28 a4 67 65 74 73  |stall_icon(.gets|
000024d0  79 73 76 61 72 28 22 41  44 46 53 24 49 63 6f 6e  |ysvar("ADFS$Icon|
000024e0  22 2b c3 46 25 2c 22 68  61 72 64 64 69 73 63 22  |"+.F%,"harddisc"|
000024f0  29 2c 46 25 2c a4 67 65  74 64 69 73 63 6e 61 6d  |),F%,.getdiscnam|
00002500  65 28 22 3a 22 2b c3 46  25 29 2c b9 29 3a f2 6f  |e(":"+.F%),.):.o|
00002510  70 65 6e 66 69 6c 65 72  28 46 25 2c a3 2c 22 22  |penfiler(F%,.,""|
00002520  29 3a ed 0d 0a f0 70 e7  66 6c 6f 70 70 79 25 3e  |):....p.floppy%>|
00002530  30 20 e3 46 25 3d 66 6c  6f 70 70 79 25 2d 31 b8  |0 .F%=floppy%-1.|
00002540  30 88 2d 31 3a 69 63 25  28 46 25 29 3d a4 69 6e  |0.-1:ic%(F%)=.in|
00002550  73 74 61 6c 6c 5f 69 63  6f 6e 28 a4 67 65 74 73  |stall_icon(.gets|
00002560  79 73 76 61 72 28 22 41  44 46 53 24 49 63 6f 6e  |ysvar("ADFS$Icon|
00002570  22 2b c3 46 25 2c 22 66  6c 6f 70 70 79 64 69 73  |"+.F%,"floppydis|
00002580  63 22 29 2c 46 25 2c 22  3a 22 2b c3 46 25 2c a3  |c"),F%,":"+.F%,.|
00002590  29 3a ed 0d 0a fa 05 e1  0d 0b 04 04 0d 0b 0e 23  |):.............#|
000025a0  dd a4 67 65 74 64 69 73  63 6e 61 6d 65 28 6e 61  |..getdiscname(na|
000025b0  6d 65 24 29 3a ea 20 6e  25 2c 64 24 2c 46 25 0d  |me$):. n%,d$,F%.|
000025c0  0b 18 11 6e 25 3d bb c1  6e 61 6d 65 24 2c 32 29  |...n%=..name$,2)|
000025d0  0d 0b 22 0c e7 20 6e 25  3c 38 20 8c 0d 0b 2c 17  |..".. n%<8 ...,.|
000025e0  20 24 28 71 25 2b 26 34  30 29 3d 6e 61 6d 65 24  | $(q%+&40)=name$|
000025f0  2b bd 30 0d 0b 36 28 20  c8 99 22 41 44 46 53 5f  |+.0..6( .."ADFS_|
00002600  44 65 73 63 72 69 62 65  44 69 73 63 22 2c 71 25  |DescribeDisc",q%|
00002610  2b 26 34 30 2c 71 25 2b  26 35 30 0d 0b 40 43 20  |+&40,q%+&50..@C |
00002620  46 25 3d 31 3a c8 95 20  28 3f 28 71 25 2b 26 36  |F%=1:.. (?(q%+&6|
00002630  35 2b 46 25 29 3e 33 32  29 20 80 20 28 46 25 3c  |5+F%)>32) . (F%<|
00002640  31 31 29 3a 20 64 24 2b  3d bd 3f 28 71 25 2b 26  |11): d$+=.?(q%+&|
00002650  36 35 2b 46 25 29 3a 46  25 2b 3d 31 3a ce 0d 0b  |65+F%):F%+=1:...|
00002660  4a 08 20 3d 64 24 0d 0b  54 05 cc 0d 0b 5e 14 20  |J. =d$..T....^. |
00002670  3d 24 28 74 65 78 74 25  2b 31 35 2a 6e 25 29 0d  |=$(text%+15*n%).|
00002680  0b 68 05 cd 0d 0b 72 04  0d 0b 7c 16 dd a4 67 65  |.h....r...|...ge|
00002690  74 64 69 73 63 69 64 28  6e 61 6d 65 24 29 0d 0b  |tdiscid(name$)..|
000026a0  86 16 24 28 71 25 2b 26  34 30 29 3d 6e 61 6d 65  |..$(q%+&40)=name|
000026b0  24 2b bd 30 0d 0b 90 27  c8 99 22 41 44 46 53 5f  |$+.0...'.."ADFS_|
000026c0  44 65 73 63 72 69 62 65  44 69 73 63 22 2c 71 25  |DescribeDisc",q%|
000026d0  2b 26 34 30 2c 71 25 2b  26 35 30 0d 0b 9a 12 3d  |+&40,q%+&50....=|
000026e0  71 25 21 26 36 34 20 80  26 46 46 46 46 0d 0b a4  |q%!&64 .&FFFF...|
000026f0  04 0d 0b ae 11 dd a4 66  69 6e 64 6e 75 6d 28 68  |.......findnum(h|
00002700  25 29 0d 0b b8 27 46 25  3d 2d 31 3a f5 46 25 2b  |%)...'F%=-1:.F%+|
00002710  3d 31 3a fd 28 69 63 25  28 46 25 29 3d 68 25 29  |=1:.(ic%(F%)=h%)|
00002720  20 84 20 28 46 25 3d 38  29 0d 0b c2 0c e7 20 46  | . (F%=8)..... F|
00002730  25 3d 38 20 8c 0d 0b cc  2c 20 46 25 3d 2d 31 3a  |%=8 ...., F%=-1:|
00002740  f5 46 25 2b 3d 31 3a fd  28 64 69 73 63 69 68 25  |.F%+=1:.(discih%|
00002750  28 46 25 29 3d 68 25 29  20 84 20 28 46 25 3d 38  |(F%)=h%) . (F%=8|
00002760  29 0d 0b d6 0a 20 46 25  2b 3d 38 0d 0b e0 05 cd  |).... F%+=8.....|
00002770  0d 0b ea 07 3d 46 25 0d  0b f4 04 0d 0b fe 20 dd  |....=F%....... .|
00002780  f2 64 69 73 6d 6f 75 6e  74 28 6e 75 6d 25 2c 66  |.dismount(num%,f|
00002790  69 6c 65 72 25 29 3a ea  20 6e 24 0d 0c 08 1e 6e  |iler%):. n$....n|
000027a0  24 3d a4 67 65 74 64 69  73 63 6e 61 6d 65 28 22  |$=.getdiscname("|
000027b0  3a 22 2b c3 6e 75 6d 25  29 0d 0c 12 04 0d 0c 1c  |:"+.num%).......|
000027c0  22 c8 99 22 4f 53 5f 43  6c 61 69 6d 22 2c 26 31  |".."OS_Claim",&1|
000027d0  44 2c 76 65 63 74 6f 72  63 6f 64 65 25 2c 30 0d  |D,vectorcode%,0.|
000027e0  0c 26 24 c8 99 22 58 4f  53 5f 43 4c 49 22 2c 22  |.&$.."XOS_CLI","|
000027f0  41 44 46 53 3a 44 69 73  6d 6f 75 6e 74 20 3a 22  |ADFS:Dismount :"|
00002800  2b 6e 24 0d 0c 30 24 c8  99 22 4f 53 5f 52 65 6c  |+n$..0$.."OS_Rel|
00002810  65 61 73 65 22 2c 26 31  44 2c 76 65 63 74 6f 72  |ease",&1D,vector|
00002820  63 6f 64 65 25 2c 30 0d  0c 3a 04 0d 0c 44 2d e7  |code%,0..:...D-.|
00002830  20 66 69 6c 65 72 25 20  ff 20 22 46 69 6c 65 72  | filer% . "Filer|
00002840  5f 43 6c 6f 73 65 44 69  72 20 61 64 66 73 3a 3a  |_CloseDir adfs::|
00002850  22 2b 6e 24 2b 22 2e 22  0d 0c 4e 28 47 25 3d 2d  |"+n$+"."..N(G%=-|
00002860  31 3a f5 47 25 2b 3d 31  3a fd 20 64 69 73 63 69  |1:.G%+=1:. disci|
00002870  64 24 28 47 25 29 3d 6e  24 20 84 20 47 25 3d 38  |d$(G%)=n$ . G%=8|
00002880  0d 0c 58 52 e7 20 74 69  6e 79 64 69 73 63 73 25  |..XR. tinydiscs%|
00002890  20 80 20 64 69 73 63 69  68 25 28 47 25 29 3c 3e  | . discih%(G%)<>|
000028a0  30 20 71 25 21 30 3d 2d  32 3a 71 25 21 34 3d 64  |0 q%!0=-2:q%!4=d|
000028b0  69 73 63 69 68 25 28 47  25 29 3a c8 99 22 57 69  |iscih%(G%):.."Wi|
000028c0  6d 70 5f 44 65 6c 65 74  65 49 63 6f 6e 22 2c 2c  |mp_DeleteIcon",,|
000028d0  71 25 0d 0c 62 39 e3 48  25 3d 30 b8 37 3a e7 64  |q%..b9.H%=0.7:.d|
000028e0  69 73 63 69 64 25 28 48  25 2c 32 29 3e 64 69 73  |iscid%(H%,2)>dis|
000028f0  63 69 64 25 28 47 25 2c  32 29 20 64 69 73 63 69  |cid%(G%,2) disci|
00002900  64 25 28 48 25 2c 32 29  2d 3d 31 0d 0c 6c 05 ed  |d%(H%,2)-=1..l..|
00002910  0d 0c 76 53 64 69 73 63  69 64 25 28 47 25 2c 30  |..vSdiscid%(G%,0|
00002920  29 3d 2d 31 3a 64 69 73  63 69 64 25 28 47 25 2c  |)=-1:discid%(G%,|
00002930  31 29 3d 2d 31 3a 64 69  73 63 69 64 25 28 47 25  |1)=-1:discid%(G%|
00002940  2c 32 29 3d 2d 31 3a 64  69 73 63 69 64 24 28 47  |,2)=-1:discid$(G|
00002950  25 29 3d 22 22 3a 64 69  73 63 69 68 25 28 47 25  |%)="":discih%(G%|
00002960  29 3d 30 0d 0c 80 05 e1  0d 0c 8a 04 0d 0c 94 1d  |)=0.............|
00002970  dd f2 64 69 73 6d 6f 75  6e 74 6e 61 6d 65 28 6e  |..dismountname(n|
00002980  24 2c 66 69 6c 65 72 25  29 0d 0c 9e 04 0d 0c a8  |$,filer%).......|
00002990  22 c8 99 22 4f 53 5f 43  6c 61 69 6d 22 2c 26 31  |".."OS_Claim",&1|
000029a0  44 2c 76 65 63 74 6f 72  63 6f 64 65 25 2c 30 0d  |D,vectorcode%,0.|
000029b0  0c b2 24 c8 99 22 58 4f  53 5f 43 4c 49 22 2c 22  |..$.."XOS_CLI","|
000029c0  41 44 46 53 3a 44 69 73  6d 6f 75 6e 74 20 3a 22  |ADFS:Dismount :"|
000029d0  2b 6e 24 0d 0c bc 24 c8  99 22 4f 53 5f 52 65 6c  |+n$...$.."OS_Rel|
000029e0  65 61 73 65 22 2c 26 31  44 2c 76 65 63 74 6f 72  |ease",&1D,vector|
000029f0  63 6f 64 65 25 2c 30 0d  0c c6 04 0d 0c d0 2d e7  |code%,0.......-.|
00002a00  20 66 69 6c 65 72 25 20  ff 20 22 46 69 6c 65 72  | filer% . "Filer|
00002a10  5f 43 6c 6f 73 65 44 69  72 20 61 64 66 73 3a 3a  |_CloseDir adfs::|
00002a20  22 2b 6e 24 2b 22 2e 22  0d 0c da 28 47 25 3d 2d  |"+n$+"."...(G%=-|
00002a30  31 3a f5 47 25 2b 3d 31  3a fd 20 64 69 73 63 69  |1:.G%+=1:. disci|
00002a40  64 24 28 47 25 29 3d 6e  24 20 84 20 47 25 3d 38  |d$(G%)=n$ . G%=8|
00002a50  0d 0c e4 52 e7 20 74 69  6e 79 64 69 73 63 73 25  |...R. tinydiscs%|
00002a60  20 80 20 64 69 73 63 69  68 25 28 47 25 29 3c 3e  | . discih%(G%)<>|
00002a70  30 20 71 25 21 30 3d 2d  32 3a 71 25 21 34 3d 64  |0 q%!0=-2:q%!4=d|
00002a80  69 73 63 69 68 25 28 47  25 29 3a c8 99 22 57 69  |iscih%(G%):.."Wi|
00002a90  6d 70 5f 44 65 6c 65 74  65 49 63 6f 6e 22 2c 2c  |mp_DeleteIcon",,|
00002aa0  71 25 0d 0c ee 39 e3 48  25 3d 30 b8 37 3a e7 64  |q%...9.H%=0.7:.d|
00002ab0  69 73 63 69 64 25 28 48  25 2c 32 29 3e 64 69 73  |iscid%(H%,2)>dis|
00002ac0  63 69 64 25 28 47 25 2c  32 29 20 64 69 73 63 69  |cid%(G%,2) disci|
00002ad0  64 25 28 48 25 2c 32 29  2d 3d 31 0d 0c f8 05 ed  |d%(H%,2)-=1.....|
00002ae0  0d 0d 02 53 64 69 73 63  69 64 25 28 47 25 2c 30  |...Sdiscid%(G%,0|
00002af0  29 3d 2d 31 3a 64 69 73  63 69 64 25 28 47 25 2c  |)=-1:discid%(G%,|
00002b00  31 29 3d 2d 31 3a 64 69  73 63 69 64 25 28 47 25  |1)=-1:discid%(G%|
00002b10  2c 32 29 3d 2d 31 3a 64  69 73 63 69 64 24 28 47  |,2)=-1:discid$(G|
00002b20  25 29 3d 22 22 3a 64 69  73 63 69 68 25 28 47 25  |%)="":discih%(G%|
00002b30  29 3d 30 0d 0d 0c 05 e1  0d 0d 16 04 0d 0d 20 35  |)=0........... 5|
00002b40  dd f2 6f 70 65 6e 66 69  6c 65 72 28 6e 75 6d 25  |..openfiler(num%|
00002b50  2c 6f 70 65 6e 25 2c 70  61 74 68 24 29 3a ea 20  |,open%,path$):. |
00002b60  6e 61 6d 65 24 2c 69 64  25 2c 6c 61 73 74 69 64  |name$,id%,lastid|
00002b70  25 0d 0d 2a 21 6e 61 6d  65 24 3d a4 67 65 74 64  |%..*!name$=.getd|
00002b80  69 73 63 6e 61 6d 65 28  22 3a 22 2b c3 6e 75 6d  |iscname(":"+.num|
00002b90  25 29 0d 0d 34 3c e7 20  28 6e 75 6d 25 3e 37 29  |%)..4<. (num%>7)|
00002ba0  20 80 20 6f 70 65 6e 25  20 ff 20 22 46 69 6c 65  | . open% . "File|
00002bb0  72 5f 4f 70 65 6e 44 69  72 20 61 64 66 73 3a 3a  |r_OpenDir adfs::|
00002bc0  22 2b 6e 61 6d 65 24 2b  22 2e 24 22 3a e1 0d 0d  |"+name$+".$":...|
00002bd0  3e 1d 69 64 25 3d a4 67  65 74 64 69 73 63 69 64  |>.id%=.getdiscid|
00002be0  28 22 3a 22 2b c3 6e 75  6d 25 29 0d 0d 48 04 0d  |(":"+.num%)..H..|
00002bf0  0d 52 2b 46 25 3d 2d 31  3a f5 46 25 2b 3d 31 3a  |.R+F%=-1:.F%+=1:|
00002c00  fd 20 64 69 73 63 69 64  24 28 46 25 29 3d 6e 61  |. discid$(F%)=na|
00002c10  6d 65 24 20 84 20 46 25  3d 38 0d 0d 5c 21 e7 20  |me$ . F%=8..\!. |
00002c20  46 25 3c 38 20 80 20 64  69 73 63 69 64 25 28 46  |F%<8 . discid%(F|
00002c30  25 2c 30 29 3c 3e 69 64  25 20 8c 0d 0d 66 65 20  |%,0)<>id% ...fe |
00002c40  e7 20 a4 65 72 72 6f 72  28 32 35 35 2c 22 54 68  |. .error(255,"Th|
00002c50  69 73 20 64 69 73 63 20  68 61 73 20 61 20 6e 61  |is disc has a na|
00002c60  6d 65 20 74 68 61 74 20  68 61 73 20 62 65 65 6e  |me that has been|
00002c70  20 73 65 65 6e 20 62 65  66 6f 72 65 2e 20 20 46  | seen before.  F|
00002c80  6f 72 67 65 74 20 74 68  65 20 6f 6c 64 20 6f 6e  |orget the old on|
00002c90  65 20 3f 22 2c 25 31 30  30 31 31 29 3d 31 20 8c  |e ?",%10011)=1 .|
00002ca0  0d 0d 70 1c 20 20 f2 64  69 73 6d 6f 75 6e 74 6e  |..p.  .dismountn|
00002cb0  61 6d 65 28 6e 61 6d 65  24 2c b9 29 0d 0d 7a 25  |ame(name$,.)..z%|
00002cc0  20 20 70 6f 6c 6c 25 3d  25 31 31 30 30 30 30 30  |  poll%=%1100000|
00002cd0  31 31 30 30 30 30 3a 65  6e 75 6d 25 3d 6e 75 6d  |110000:enum%=num|
00002ce0  25 0d 0d 84 06 20 cd 0d  0d 8e 05 cc 0d 0d 98 1b  |%.... ..........|
00002cf0  20 e7 20 64 69 73 63 69  64 25 28 46 25 2c 30 29  | . discid%(F%,0)|
00002d00  3c 3e 69 64 25 20 8c 0d  0d a2 33 20 20 46 25 3d  |<>id% ....3  F%=|
00002d10  2d 31 3a f5 46 25 2b 3d  31 3a fd 64 69 73 63 69  |-1:.F%+=1:.disci|
00002d20  64 25 28 46 25 2c 30 29  3d 2d 31 20 84 20 46 25  |d%(F%,0)=-1 . F%|
00002d30  3d a4 67 65 74 6d 6f 75  6e 74 0d 0d ac 16 20 20  |=.getmount....  |
00002d40  e7 20 46 25 3d a4 67 65  74 6d 6f 75 6e 74 20 8c  |. F%=.getmount .|
00002d50  0d 0d b6 24 20 20 20 46  25 3d 2d 31 3a f5 46 25  |...$   F%=-1:.F%|
00002d60  2b 3d 31 3a fd 64 69 73  63 69 64 25 28 46 25 2c  |+=1:.discid%(F%,|
00002d70  32 29 3d 30 0d 0d c0 31  20 20 20 f2 64 69 73 6d  |2)=0...1   .dism|
00002d80  6f 75 6e 74 6e 61 6d 65  28 a4 67 65 74 64 69 73  |ountname(.getdis|
00002d90  63 6e 61 6d 65 28 22 3a  22 2b c3 28 46 25 2b 38  |cname(":"+.(F%+8|
00002da0  29 29 2c a3 29 0d 0d ca  07 20 20 cd 0d 0d d4 54  |)),.)....  ....T|
00002db0  20 20 64 69 73 63 69 64  25 28 46 25 2c 30 29 3d  |  discid%(F%,0)=|
00002dc0  69 64 25 3a 64 69 73 63  69 64 25 28 46 25 2c 31  |id%:discid%(F%,1|
00002dd0  29 3d 6e 75 6d 25 3a 64  69 73 63 69 64 25 28 46  |)=num%:discid%(F|
00002de0  25 2c 32 29 3d a4 6c 61  73 74 69 64 2b 31 3a 64  |%,2)=.lastid+1:d|
00002df0  69 73 63 69 64 24 28 46  25 29 3d 6e 61 6d 65 24  |iscid$(F%)=name$|
00002e00  0d 0d de 88 20 20 e7 20  74 69 6e 79 64 69 73 63  |....  . tinydisc|
00002e10  73 25 20 80 20 28 6e 75  6d 25 3c 34 29 20 64 69  |s% . (num%<4) di|
00002e20  73 63 69 68 25 28 46 25  29 3d a4 69 6e 73 74 61  |scih%(F%)=.insta|
00002e30  6c 6c 5f 69 63 6f 6e 28  a4 67 65 74 73 79 73 76  |ll_icon(.getsysv|
00002e40  61 72 28 22 41 44 46 53  24 44 69 73 63 22 2b c3  |ar("ADFS$Disc"+.|
00002e50  6e 75 6d 25 2c 22 33 2e  35 64 69 73 63 22 29 2c  |num%,"3.5disc"),|
00002e60  46 25 2b 38 2c 6e 61 6d  65 24 2c a3 29 20 8b 20  |F%+8,name$,.) . |
00002e70  24 28 74 65 78 74 25 2b  31 35 2a 28 46 25 2b 38  |$(text%+15*(F%+8|
00002e80  29 29 3d 6e 61 6d 65 24  0d 0d e8 06 20 cd 0d 0d  |))=name$.... ...|
00002e90  f2 37 20 e7 20 70 61 74  68 24 3d 22 22 20 6e 61  |.7 . path$="" na|
00002ea0  6d 65 24 3d 22 61 64 66  73 3a 3a 22 2b 6e 61 6d  |me$="adfs::"+nam|
00002eb0  65 24 2b 22 2e 24 22 20  8b 20 6e 61 6d 65 24 3d  |e$+".$" . name$=|
00002ec0  70 61 74 68 24 0d 0d fc  25 20 e7 20 6f 70 65 6e  |path$...% . open|
00002ed0  25 20 ff 20 22 46 69 6c  65 72 5f 4f 70 65 6e 44  |% . "Filer_OpenD|
00002ee0  69 72 20 22 2b 6e 61 6d  65 24 0d 0e 06 0c 20 65  |ir "+name$.... e|
00002ef0  6e 75 6d 25 3d b9 0d 0e  10 05 cd 0d 0e 1a 05 e1  |num%=...........|
00002f00  0d 0e 24 04 0d 0e 2e 14  dd a4 6c 61 73 74 69 64  |..$.......lastid|
00002f10  3a ea 20 6c 61 73 74 25  0d 0e 38 0c 6c 61 73 74  |:. last%..8.last|
00002f20  25 3d 2d 31 0d 0e 42 35  e3 47 25 3d 30 b8 37 3a  |%=-1..B5.G%=0.7:|
00002f30  e7 20 64 69 73 63 69 64  25 28 47 25 2c 32 29 3e  |. discid%(G%,2)>|
00002f40  6c 61 73 74 25 20 6c 61  73 74 25 3d 64 69 73 63  |last% last%=disc|
00002f50  69 64 25 28 47 25 2c 32  29 0d 0e 4c 05 ed 0d 0e  |id%(G%,2)..L....|
00002f60  56 0a 3d 6c 61 73 74 25  0d 0e 60 04 0d 0e 6a 16  |V.=last%..`...j.|
00002f70  dd f2 66 6f 72 63 65 69  63 6f 6e 28 68 25 2c 69  |..forceicon(h%,i|
00002f80  25 29 0d 0e 74 2d 71 25  21 30 3d 68 25 3a 71 25  |%)..t-q%!0=h%:q%|
00002f90  21 34 3d 69 25 3a c8 99  22 57 69 6d 70 5f 47 65  |!4=i%:.."Wimp_Ge|
00002fa0  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 71 25 0d  |tIconState",,q%.|
00002fb0  0e 7e 32 c8 99 22 57 69  6d 70 5f 46 6f 72 63 65  |.~2.."Wimp_Force|
00002fc0  52 65 64 72 61 77 22 2c  68 25 2c 71 25 21 38 2c  |Redraw",h%,q%!8,|
00002fd0  71 25 21 31 32 2c 71 25  21 31 36 2c 71 25 21 32  |q%!12,q%!16,q%!2|
00002fe0  30 0d 0e 88 05 e1 0d 0e  92 04 0d 0e 9c 14 dd a4  |0...............|
00002ff0  67 65 74 6c 65 61 66 28  70 61 74 68 24 29 0d 0e  |getleaf(path$)..|
00003000  a6 14 c8 95 20 a7 70 61  74 68 24 2c 22 2e 22 29  |.... .path$,".")|
00003010  3e 30 0d 0e b0 1f 70 61  74 68 24 3d c1 70 61 74  |>0....path$=.pat|
00003020  68 24 2c a7 70 61 74 68  24 2c 22 2e 22 29 2b 31  |h$,.path$,".")+1|
00003030  29 0d 0e ba 05 ce 0d 0e  c4 0a 3d 70 61 74 68 24  |).........=path$|
00003040  0d 0e ce 04 0d 0e d8 14  dd a4 67 65 74 6e 61 6d  |..........getnam|
00003050  65 28 70 61 74 68 24 29  0d 0e e2 1f 70 61 74 68  |e(path$)....path|
00003060  24 3d c1 70 61 74 68 24  2c a7 70 61 74 68 24 2c  |$=.path$,.path$,|
00003070  22 3a 22 29 2b 31 29 0d  0e ec 1f 70 61 74 68 24  |":")+1)....path$|
00003080  3d c1 70 61 74 68 24 2c  a7 70 61 74 68 24 2c 22  |=.path$,.path$,"|
00003090  3a 22 29 2b 31 29 0d 0e  f6 1a 3d c0 70 61 74 68  |:")+1)....=.path|
000030a0  24 2c a7 70 61 74 68 24  2c 22 2e 22 29 2d 31 29  |$,.path$,".")-1)|
000030b0  0d 0f 00 04 0d 0f 0a 18  dd a4 72 65 61 64 6f 70  |..........readop|
000030c0  74 69 6f 6e 73 3a ea 20  6f 70 74 24 0d 0f 14 20  |tions:. opt$... |
000030d0  c8 99 22 4f 53 5f 42 79  74 65 22 2c 31 36 31 2c  |.."OS_Byte",161,|
000030e0  31 39 38 20 b8 20 2c 2c  76 61 6c 25 0d 0f 1e 2f  |198 . ,,val%.../|
000030f0  e7 20 28 76 61 6c 25 80  28 31 3c 3c 35 29 29 3c  |. (val%.(1<<5))<|
00003100  3e 30 20 6f 70 74 24 2b  3d 22 20 43 22 20 8b 20  |>0 opt$+=" C" . |
00003110  6f 70 74 24 2b 3d 22 20  7e 43 22 0d 0f 28 2f e7  |opt$+=" ~C"..(/.|
00003120  20 28 76 61 6c 25 80 28  31 3c 3c 36 29 29 3c 3e  | (val%.(1<<6))<>|
00003130  30 20 6f 70 74 24 2b 3d  22 20 56 22 20 8b 20 6f  |0 opt$+=" V" . o|
00003140  70 74 24 2b 3d 22 20 7e  56 22 0d 0f 32 27 e7 20  |pt$+=" ~V"..2'. |
00003150  73 68 69 66 74 25 20 8c  20 6f 70 74 24 2b 3d 22  |shift% . opt$+="|
00003160  20 44 22 20 8b 20 6f 70  74 24 2b 3d 22 20 7e 44  | D" . opt$+=" ~D|
00003170  22 0d 0f 3c 0e 3d 6f 70  74 24 2b 22 20 52 22 0d  |"..<.=opt$+" R".|
00003180  0f 46 04 0d 0f 50 1e dd  f2 65 6e 76 3a ea 20 64  |.F...P...env:. d|
00003190  75 6d 6d 79 25 2c 64 75  6d 6d 79 24 2c 65 6e 76  |ummy%,dummy$,env|
000031a0  24 0d 0f 5a 2a c8 99 22  4f 53 5f 47 65 74 45 6e  |$..Z*.."OS_GetEn|
000031b0  76 22 20 b8 20 65 6e 76  24 3a 49 25 3d a7 65 6e  |v" . env$:I%=.en|
000031c0  76 24 2c 22 2d 71 75 69  74 22 29 0d 0f 64 3c 49  |v$,"-quit")..d<I|
000031d0  25 3d a7 65 6e 76 24 2c  22 22 22 22 2c 49 25 2b  |%=.env$,"""",I%+|
000031e0  31 29 3a 49 25 3d a7 65  6e 76 24 2c 22 22 22 22  |1):I%=.env$,""""|
000031f0  2c 49 25 2b 31 29 3a 65  6e 76 24 3d c1 65 6e 76  |,I%+1):env$=.env|
00003200  24 2c 49 25 2b 31 29 0d  0f 6e 22 c8 95 c0 65 6e  |$,I%+1)..n"...en|
00003210  76 24 2c 31 29 3d 22 20  22 3a 65 6e 76 24 3d c1  |v$,1)=" ":env$=.|
00003220  65 6e 76 24 2c 32 29 3a  ce 0d 0f 78 0f e3 46 25  |env$,2):...x..F%|
00003230  3d 31 b8 a9 65 6e 76 24  0d 0f 82 4b 64 75 6d 6d  |=1..env$...Kdumm|
00003240  79 25 3d 97 c1 65 6e 76  24 2c 46 25 2c 31 29 3a  |y%=..env$,F%,1):|
00003250  e7 20 64 75 6d 6d 79 25  3e 36 35 20 64 75 6d 6d  |. dummy%>65 dumm|
00003260  79 24 2b 3d bd 28 64 75  6d 6d 79 25 20 80 39 35  |y$+=.(dummy% .95|
00003270  29 20 8b 20 64 75 6d 6d  79 24 2b 3d bd 64 75 6d  |) . dummy$+=.dum|
00003280  6d 79 25 0d 0f 8c 11 ed  3a 65 6e 76 24 3d 64 75  |my%.....:env$=du|
00003290  6d 6d 79 24 0d 0f 96 23  74 69 6e 79 64 69 73 63  |mmy$...#tinydisc|
000032a0  73 25 3d a7 65 6e 76 24  2c 22 54 49 4e 59 44 49  |s%=.env$,"TINYDI|
000032b0  53 43 53 22 29 3e 30 0d  0f a0 05 e1 0d 0f aa 04  |SCS")>0.........|
000032c0  0d 0f b4 0c dd f2 74 69  6e 79 6f 6e 0d 0f be 0b  |......tinyon....|
000032d0  e3 46 25 3d 30 b8 37 0d  0f c8 ad e7 20 28 64 69  |.F%=0.7..... (di|
000032e0  73 63 69 64 25 28 46 25  2c 30 29 3c 3e 2d 31 29  |scid%(F%,0)<>-1)|
000032f0  20 80 20 28 64 69 73 63  69 64 25 28 46 25 2c 31  | . (discid%(F%,1|
00003300  29 3c 34 29 20 64 69 73  63 69 68 25 28 46 25 29  |)<4) discih%(F%)|
00003310  3d a4 69 6e 73 74 61 6c  6c 5f 69 63 6f 6e 28 a4  |=.install_icon(.|
00003320  67 65 74 73 79 73 76 61  72 28 22 41 44 46 53 24  |getsysvar("ADFS$|
00003330  44 69 73 63 22 2b c3 64  69 73 63 69 64 25 28 46  |Disc"+.discid%(F|
00003340  25 2c 31 29 2c 22 33 2e  35 64 69 73 63 22 29 2c  |%,1),"3.5disc"),|
00003350  46 25 2b 38 2c 64 69 73  63 69 64 24 28 46 25 29  |F%+8,discid$(F%)|
00003360  2c a3 29 20 8b 20 24 28  74 65 78 74 25 2b 31 35  |,.) . $(text%+15|
00003370  2a 28 46 25 2b 38 29 29  3d 64 69 73 63 69 64 24  |*(F%+8))=discid$|
00003380  28 46 25 29 0d 0f d2 05  ed 0d 0f dc 05 e1 0d 0f  |(F%)............|
00003390  e6 04 0d 0f f0 0d dd f2  74 69 6e 79 6f 66 66 0d  |........tinyoff.|
000033a0  0f fa 0b e3 46 25 3d 30  b8 37 0d 10 04 45 e7 20  |....F%=0.7...E. |
000033b0  64 69 73 63 69 68 25 28  46 25 29 3c 3e 30 20 71  |discih%(F%)<>0 q|
000033c0  25 21 30 3d 2d 32 3a 71  25 21 34 3d 64 69 73 63  |%!0=-2:q%!4=disc|
000033d0  69 68 25 28 46 25 29 3a  c8 99 22 57 69 6d 70 5f  |ih%(F%):.."Wimp_|
000033e0  44 65 6c 65 74 65 49 63  6f 6e 22 2c 2c 71 25 0d  |DeleteIcon",,q%.|
000033f0  10 0e 05 ed 0d 10 18 05  e1 0d 10 22 04 0d 10 2c  |..........."...,|
00003400  26 dd a4 67 65 74 73 79  73 76 61 72 28 61 24 2c  |&..getsysvar(a$,|
00003410  62 24 29 3a 24 65 72 72  31 25 3d c4 32 35 35 2c  |b$):$err1%=.255,|
00003420  bd 30 29 0d 10 36 2e c8  99 22 58 4f 53 5f 52 65  |.0)..6..."XOS_Re|
00003430  61 64 56 61 72 56 61 6c  22 2c 61 24 2c 65 72 72  |adVarVal",a$,err|
00003440  31 25 2c 32 35 35 20 b8  2c 2c 65 78 69 73 74 73  |1%,255 .,,exists|
00003450  25 0d 10 40 28 e7 20 65  78 69 73 74 73 25 3c 3e  |%..@(. exists%<>|
00003460  30 20 3d a4 67 65 74 6e  61 6d 65 30 28 65 72 72  |0 =.getname0(err|
00003470  31 25 29 20 8b 20 3d 62  24 0d 10 4a 04 0d 10 54  |1%) . =b$..J...T|
00003480  1e dd a4 67 65 74 6d 6f  75 6e 74 3a 24 65 72 72  |...getmount:$err|
00003490  31 25 3d c4 32 35 35 2c  bd 30 29 0d 10 5e 37 c8  |1%=.255,.0)..^7.|
000034a0  99 22 58 4f 53 5f 52 65  61 64 56 61 72 56 61 6c  |."XOS_ReadVarVal|
000034b0  22 2c 22 41 44 46 53 4d  6f 75 6e 74 22 2c 65 72  |","ADFSMount",er|
000034c0  72 31 25 2c 32 35 35 20  b8 2c 2c 65 78 69 73 74  |r1%,255 .,,exist|
000034d0  73 25 0d 10 68 4f e7 20  28 bb a4 67 65 74 6e 61  |s%..hO. (..getna|
000034e0  6d 65 30 28 65 72 72 31  25 29 3e 38 29 20 84 20  |me0(err1%)>8) . |
000034f0  28 bb a4 67 65 74 6e 61  6d 65 30 28 65 72 72 31  |(..getname0(err1|
00003500  25 29 3c 31 29 20 84 20  28 65 78 69 73 74 73 25  |%)<1) . (exists%|
00003510  3d 30 29 20 24 65 72 72  31 25 3d 22 38 22 2b bd  |=0) $err1%="8"+.|
00003520  30 0d 10 72 16 3d bb a4  67 65 74 6e 61 6d 65 30  |0..r.=..getname0|
00003530  28 65 72 72 31 25 29 0d  10 7c 04 0d 10 86 0e dd  |(err1%)..|......|
00003540  f2 6d 61 6b 65 63 6f 64  65 0d 10 90 2c c8 99 22  |.makecode...,.."|
00003550  4f 53 5f 4d 6f 64 75 6c  65 22 2c 36 2c 2c 2c 32  |OS_Module",6,,,2|
00003560  30 2b 26 31 30 30 20 b8  20 2c 2c 63 6f 64 65 25  |0+&100 . ,,code%|
00003570  3b 66 6c 67 25 0d 10 9a  28 e7 20 2d 28 66 6c 67  |;flg%...(. -(flg|
00003580  25 80 31 29 20 8c 20 85  20 32 35 35 2c 22 4e 6f  |%.1) . . 255,"No|
00003590  20 72 6f 6f 6d 20 69 6e  20 52 4d 41 22 0d 10 a4  | room in RMA"...|
000035a0  15 e3 20 70 61 73 73 25  3d 30 20 b8 20 32 20 88  |.. pass%=0 . 2 .|
000035b0  20 32 0d 10 ae 0c 50 25  3d 63 6f 64 65 25 0d 10  | 2....P%=code%..|
000035c0  b8 0e 5b 4f 50 54 20 70  61 73 73 25 0d 10 c2 1c  |..[OPT pass%....|
000035d0  2e 76 65 63 74 6f 72 63  6f 64 65 25 20 54 45 51  |.vectorcode% TEQ|
000035e0  20 20 20 72 30 2c 23 32  0d 10 cc 1d 20 20 20 20  |   r0,#2....    |
000035f0  20 20 20 20 20 20 20 20  20 4d 4f 56 47 54 20 70  |         MOVGT p|
00003600  63 2c 72 31 34 0d 10 d6  1c 20 20 20 20 20 20 20  |c,r14....       |
00003610  20 20 20 20 20 20 4d 56  4e 20 20 20 72 30 2c 23  |      MVN   r0,#|
00003620  31 0d 10 e0 20 20 20 20  20 20 20 20 20 20 20 20  |1...            |
00003630  20 20 4c 44 4d 46 44 20  72 31 33 21 2c 7b 70 63  |  LDMFD r13!,{pc|
00003640  7d 0d 10 ea 1f 2e 63 6c  69 62 75 66 66 65 72 25  |}.....clibuffer%|
00003650  20 20 45 51 55 53 20 20  c4 32 35 35 2c bd 30 29  |  EQUS  .255,.0)|
00003660  0d 10 f4 05 5d 0d 10 fe  05 ed 0d 11 08 05 e1 0d  |....]...........|
00003670  11 12 04 0d 11 1c 0d dd  f2 63 6f 64 65 6f 66 66  |.........codeoff|
00003680  0d 11 26 3d c8 99 22 58  4f 53 5f 52 65 6c 65 61  |..&=.."XOS_Relea|
00003690  73 65 22 2c 26 31 44 2c  76 65 63 74 6f 72 63 6f  |se",&1D,vectorco|
000036a0  64 65 25 2c 30 3a c8 99  22 58 4f 53 5f 4d 6f 64  |de%,0:.."XOS_Mod|
000036b0  75 6c 65 22 2c 37 2c 2c  63 6f 64 65 25 0d 11 30  |ule",7,,code%..0|
000036c0  05 e1 0d 11 3a 04 0d 11  44 20 dd f2 63 6f 6d 70  |....:...D ..comp|
000036d0  61 63 74 28 64 72 24 29  3a ea 20 70 61 73 73 25  |act(dr$):. pass%|
000036e0  2c 61 25 2c 62 25 0d 11  4e 07 ea 20 85 0d 11 58  |,a%,b%..N.. ...X|
000036f0  5e ee 20 85 20 ea 20 f7  20 85 3a e7 20 28 9f 20  |^. . . . .:. (. |
00003700  3c 3e 26 31 30 38 31 31  29 20 c8 99 22 57 69 6d  |<>&10811) .."Wim|
00003710  70 5f 43 6f 6d 6d 61 6e  64 57 69 6e 64 6f 77 22  |p_CommandWindow"|
00003720  2c 2d 31 3a 85 20 9e 2c  f6 24 20 8b 20 f6 3a f1  |,-1:. .,.$ . .:.|
00003730  3a c8 99 22 57 69 6d 70  5f 43 6f 6d 6d 61 6e 64  |:.."Wimp_Command|
00003740  57 69 6e 64 6f 77 22 2c  30 3a e1 0d 11 62 22 24  |Window",0:...b"$|
00003750  63 6c 69 62 75 66 66 65  72 25 3d 22 43 6f 6d 70  |clibuffer%="Comp|
00003760  61 63 74 20 3a 22 2b 64  72 24 2b bd 30 0d 11 6c  |act :"+dr$+.0..l|
00003770  25 c8 99 22 57 69 6d 70  5f 43 6f 6d 6d 61 6e 64  |%.."Wimp_Command|
00003780  57 69 6e 64 6f 77 22 2c  63 6c 69 62 75 66 66 65  |Window",clibuffe|
00003790  72 25 0d 11 76 05 f5 0d  11 80 23 c8 99 22 4f 53  |r%..v.....#.."OS|
000037a0  5f 43 4c 49 22 2c 22 41  44 46 53 3a 43 6f 6d 70  |_CLI","ADFS:Comp|
000037b0  61 63 74 20 3a 22 2b 64  72 24 0d 11 8a 26 c8 99  |act :"+dr$...&..|
000037c0  22 41 44 46 53 5f 46 72  65 65 53 70 61 63 65 22  |"ADFS_FreeSpace"|
000037d0  2c 22 3a 22 2b 64 72 24  20 b8 20 61 25 2c 62 25  |,":"+dr$ . a%,b%|
000037e0  0d 11 94 40 f4 49 46 20  49 4e 4b 45 59 30 3d 32  |...@.IF INKEY0=2|
000037f0  37 20 45 52 52 4f 52 20  32 35 35 2c 22 43 6f 6d  |7 ERROR 255,"Com|
00003800  70 61 63 74 20 61 62 6f  72 74 65 64 20 61 74 20  |pact aborted at |
00003810  70 61 73 73 20 22 2b 53  54 52 24 70 61 73 73 25  |pass "+STR$pass%|
00003820  0d 11 9e 0c 70 61 73 73  25 2b 3d 31 0d 11 a8 13  |....pass%+=1....|
00003830  f1 22 50 61 73 73 3a 20  22 c3 70 61 73 73 25 0d  |."Pass: ".pass%.|
00003840  11 b2 0a fd 61 25 3d 62  25 0d 11 bc 1c c8 99 22  |....a%=b%......"|
00003850  57 69 6d 70 5f 43 6f 6d  6d 61 6e 64 57 69 6e 64  |Wimp_CommandWind|
00003860  6f 77 22 2c 30 0d 11 c6  05 e1 0d ff              |ow",0.......|
0000386c