�>!RunImage
	�init
�searchwindow
(�infowindow
2
�menuinit
<H��err(�$):�dis<>-1 !block%=dis:ș"Wimp_DeleteWindow",,block%:dis=-1
F
�checknet
P�
Z
block=bst
d#ș"Wimp_Poll",1,poll% � action%
n
�checkram
xȎ action% �
�� 1:�redo(!poll%)
�#� 2:�openwindow2(poll%!4,poll%)
�� 6:�mousebuttonclick
�� 9:�select
�� 17,18
��receive(action%)
��
�� �
��
�
��init
�� poll% 256,menu% 1024,block% 1024,erblk% 256,int 20,pnm 20,pps 20,aut 20,ver 20,drive 20,ST 20,title 160,file 11,f$(8),block 20480,block2 1024,pmode 4,pout 4,rdir 101,chfl% 256
�$pmode="no":$pout="no"
�
$rdir="$"

bst=block:bmax=block+20480

mopen%=�


dis=-1

"	mi%=1

,f$(0)="RAM"

6ș "ADFS_Drives" � ,f,h

@Q%=0

J)�f<>0 �N=1�f:f$(N)=":"+�(N-1):Q%+=1:�

T,�h<>0 �N=1�h:f$(Q%+1)=":"+�(N+3):Q%+=1:�

^
ma%=Q%

h
drv%=1

r$int="About this program"

|$ST="Search for file :"

�$drive=f$(drv%):$file="*"

�tflag%=&7000001

�0ș"Wimp_Initialise",200,&4B534154,"FileFind"

�
!poll%=-1

�
poll%!4=0

�
poll%!8=0

�poll%!12=69

�poll%!16=68

�poll%!20=&3002

�$(poll%+24)="!Find"

�&ș"Wimp_CreateIcon",,poll% � icon%

��

���receive(r%)
text$=""
Ȏ poll%!16 �
� 0:�shutdown:�
&
� &502
0Ȏ poll%!32 �
:O� -2:text$="This is the File Finder icon|MClick the menu button for a menu"
D
� search%
NȎ poll%!36 �
X@� 2:text$="This icon shows the drive that is to be searched"
bo� 3,4:text$="Click on the arrows to change the drive number or select a RAM disc or Network (if available)"
lc� 5:text$="Click here to display a caret, and then enter the wildcarded filename to be matched"
v1� 6:text$="Click 'OK' to initiate the search"
�Z� 9:text$="Click here to enable/disable paged mode when filenames are being displayed"
�m� 10:text$="Click here to enable/disable a printout of the files matched against the wildcarded filename"
�k� 12:text$="Click here to display a caret, and then enter the root directory for the search (if known)"
��
�V� info%:text$="This window displays information about the File Finder application"
��
�#poll%!0=(((20+�text$+1)�4)*4)+4
�poll%!4=17
�poll%!12=poll%!8
�poll%!16=&503
�+$(poll%+20)=text$:$(poll%+21+�text$)=�0
�!ș"Wimp_SendMessage",17,poll%
��
�
��shutdown
ș"Wimp_CloseDown"
 �
*_ݤcreatewindow(title,flag%,fgcol%,bgcol%,twatx%,twaty%,vwabx%,vwaby%,vwatx%,vwaty%,nicons%)
4
� handle%
>C!block%=vwabx%:block%!4=vwaby%:block%!8=vwatx%:block%!12=vwaty%
H=block%!16=0:block%!20=twaty%:block%!24=-1:block%!28=flag%
R=block%?32=7:block%?33=2:block%?34=fgcol%:block%?35=bgcol%
\4block%?36=3:block%?37=1:block%?38=12:block%?39=0
f=block%!40=0:block%!44=0:block%!48=twatx%:block%!52=twaty%
p@block%!56=&2D+(1<<8):block%!60=&3000:block%!64=0:block%!68=1
zDblock%!72=title:block%!76=-1:block%!80=�$title:block%!84=nicons%
�5ș"Wimp_CreateWindow",0,block% � handle%:=handle%
��
�ݤcreatemenu(mb%,t$)
�8� new$,ptr%,shade%,tick%,dotted%,submenu%,writeable%
�!numofitems%=��t$,1):t$=�t$,2)
�#nextmenu%=mb%+28+24*numofitems%
�+$mb%=�t$,�t$,"|")-1):t$=�t$,�t$,"|")+1)
�!mb%?12=7:� title fgrnd colour
�"mb%?13=2:� title bkgrnd colour
�%mb%?14=7:� Work area fgrnd colour
�&mb%?15=0:� Work area bkgrnd colour
�mb%!16=200:� Menu width
�mb%!20=40:� height of text
"mb%!24=10:� space 'tween lines
ptr%=mb%+28
9�:shade%=0:tick%=0:dotted%=0:writeable%=0:submenu%=-1
$�t$,1)="[" �
."t$=�t$,2):new=��t$,�t$,"]")-1)
8#t$=�t$,�t$,"]")+1):submenu%=new
B�
L&�t$,1)="." t$=�t$,2):� Do nothing
V(�t$,1)="@" shade%=&400000:t$=�t$,2)
`!�t$,1)="#" tick%=1:t$=�t$,2)
j#�t$,1)=":" dotted%=2:t$=�t$,2)
t&�t$,1)="^" writeable%=4:t$=�t$,2)
~g%=�t$,"|")
��writeable% �
�/i%=�t$,","):ptr%!12=��t$,i%-1):t$=�t$,i%+1)
�ptr%!16=-1
�ptr%!20=��t$,�t$,"|")-1)
�<mb%!16=�greater(mb%!16,4+16*ptr%!20):� width of new menu
��
�$(ptr%+12)=�t$,g%-1)
��
�t$=�t$,g%+1)
�N!ptr%=tick% � dotted% � writeable% � (&80 � (t$="")):� &80 marks last item
�ptr%!4=submenu%
�?�ptr%!8=&10021 OR shade% OR writeable%<<6 OR 0<<24 OR 7<<28
,ptr%!8=&7000009 � shade% � writeable%<<6

ptr%+=24

�t$=""
=mb%
(.��mousebuttonclick:� handle%,button%,icon%
2button%=poll%!8
<handle%=poll%!12
Ficon%=poll%!16
P"mousex%=!poll%:mousey%=poll%!4
ZG�button%=2 � handle%=-2 ș "Wimp_CreateMenu",0,menu%,mousex%-88,296
d� handle%=search% �
nȎ icon% �
x� 3
�drv%-=1:�drv%<mi% drv%=ma%
�$drive=f$(drv%)
�
�rsrch
�� 4
�drv%+=1:�drv%>ma% drv%=mi%
�$drive=f$(drv%)
�
�rsrch
�� 6
�	�find
�� 9
�+�$pmode="no" $pmode="yes" � $pmode="no"
��redo(search%)
�� 10
(�$pout="no" $pout="yes" � $pout="no"
�redo(search%)
�
"�
,�
6"ݤgreater(a%,b%):�a%>b%=a%�=b%
@��twaorigin(b%,� x%,� y%)
J2x%=block%!4-block%!20:y%=block%!16-block%!24:�
T��menuinit
^@menu$="3FileFind|[info%]:Information|[search%]:Search|Quit|"
hj%=�createmenu(menu%,menu$)
r�
|��select
�5ș"Wimp_GetPointerInfo",,block%:A%=(block%!8) � 1
�6ș"Wimp_DecodeMenu",,menu%,poll%,�200," ") � ,,,a$
��a$="" �
��a$="Quit" �shutdown:�
�4� A% ș"Wimp_CreateMenu",,menu%,!block%,block%!4
��
���redo(H%):!block%=H%
�*ș"Wimp_RedrawWindow",0,block% � more%
�ȕ more%
��
�*ș"Wimp_GetRectangle",0,block% � more%
��
��
!��Wicon(N%,X1,Y1,X2,Y2,BL,BS)
ptr%=(block%+88+(N%*32))
!ptr%=X1
&
ptr%!4=Y1
0
ptr%!8=X2
:ptr%!12=Y2
Dptr%!16=&700F10D+(1<<5)
N&ptr%!20=BL:ptr%!24=-1:ptr%!28=BS:�
X��Ticon(N%,X,Y,T$)
bptr%=(block%+88+(N%*32))
l!ptr%=X
vptr%!4=Y
�ptr%!8=X+16*�T$+16
�ptr%!12=Y+32
�ptr%!16=tflag%
�$(ptr%+20)=T$:�
���infowindow
��Ticon(0,32,176,"Name   :")
��Ticon(1,32,120,"Purpose:")
��Ticon(2,32,64,"Author :")
��Ticon(3,32,8,"Version:")
�0$pnm="File Finder":�Bicon(4,196,176,550,pnm)
�2$pps="File Searcher":�Bicon(5,196,120,550,pps)
�0$aut="Andrew Vawer":�Bicon(6,196,64,550,aut)
�4$ver="1.30 (31 Oct '89)":�Bicon(7,196,8,550,ver)
:info%=�createwindow(int,147,7,1,580,232,0,0,580,288,8)
�
��searchwindow
 �Ticon(0,64,320,"Disc :")
*�Ticon(1,64,256,"File :")
4�Bicon(2,176,320,256,drive)
>*�button(3,�136,288,320,320,364,7,14,3)
H*�button(4,�137,352,320,384,364,7,14,3)
R%�Wicon(5,176,256,384,300,file,11)
\'�button(6,"OK",128,32,320,76,7,9,4)
f!�Ticon(7,128,96,"Paged mode")
p �Ticon(8,128,146,"Printout")
z�Sbutton(9,64,96,pmode)
��Sbutton(10,64,146,pout)
�!�Ticon(11,16,200,"Root dir:")
�'�Wicon(12,176,200,384,244,rdir,101)
�<search%=�createwindow(ST,147,7,1,448,386,0,0,448,386,13)
��
���Bicon(N%,X,Y,MX,T)
�ptr%=(block%+88+(N%*32))
�!ptr%=X
�ptr%!4=Y
�
ptr%!8=MX
�ptr%!12=Y+44
�ptr%!16=tflag%+300
�&ptr%!20=T:ptr%!24=-1:ptr%!28=�$T:�
	#��button(I%,B$,X,Y,W,H,fc,bc,P)
	ptr%=block%+88+32*I%
	L!ptr%=X:ptr%!4=Y:ptr%!8=W:ptr%!12=H:ptr%!16=45+(P<<12)+(fc<<24)+(bc<<28)
	$$(ptr%+20)=B$
	.�
	8
��err(E$)
	B*�=67798 E$="Root directory not found"
	L
!erblk%=0
	V$(erblk%+4)=E$
	`.ș"Wimp_ReportError",erblk%,,"File Finder"
	j�
	t��rsrch
	~!block%=search%
	�block%!4=2
	�block%!8=0
	�block%!12=0
	�!ș"Wimp_SetIconState",,block%
	��
	�
��find
	�.� $file="" � 1,"You must enter a filename"
	�:� �$file,".") � 1,"You can't specify directories here"
	�6� $rdir="" � 1,"You must specify a root directory"
	�	*ADFS
	�L�$drive="RAM" d$="ram:" ��$drive="NET" d$="net:" � d$="adfs:"+$drive+"."
	�.$title="Searching "+d$+$rdir+" for "+$file
:dis=�createwindow(title,147,7,0,800,500,0,0,800,500,0)

mopen%=�
+�openwindow(dis,0,0,800,500,192,736,-1)
mopen%=�
(�redo(dis)
2�28,12,23,60,9,4
<� $pmode="yes" �14 � �15
F� $pout="yes" �
P[� � �cp !block%=dis:ș"Wimp_DeleteWindow",,block%:dis=-1:�err("Printer not on line."):�
Z�2
d*�"Searching ";d$;$rdir;" for ";$file''
n�
xdir$=$rdir+"."
�9�$drive="RAM" � $drive="NET" �$drive � �"Dir "+$drive
��"Dir "+$rdir
�9found%=0:�search:�';found%;" file";:�found%<>1 �;"s";
�-�;" found."'�3"Click Select to continue."
��5
��ȗA,B,C:�(C � 4)=4
�4!block%=dis:ș"Wimp_DeleteWindow",,block%:dis=-1
�	*ADFS
�
*MOUNT
��
���search
�0�block=bmax � 1,"Too many directory levels."
�� q,obj,read,tp,Z$,dL

�checkdir
3ș "OS_GBPB",10,"",block,77,0,2048,"*" � ,,,obj
�obj=0 �"UP":�
"q=block
,�read=0�obj-1
6
q+=&10
@	tp=!q
Jq+=4
TZ$="":�Z$+=�?q:q+=1:�?q=0
^q=q+(4-q �4)
hY�tp=2 �"DIR "+Z$:dL=�dir$:dir$+=Z$+".":block+=2048:�search:block-=2048:dir$=�dir$,dL)
r�
|*UP
��
���checkdir
�� q2,obj2,N2,Z2$,t%,t$
�5ș"OS_GBPB",9,"",block2,77,0,1024,$file � ,,,obj2
��obj2=0 � � found%+=obj2
�
q2=block2
��N2=0�obj2-1
�"Z2$="":�Z2$+=�?q2:q2+=1:�?q2=0
� �Z2$,1)=�0 Z2$=�Z2$,�Z2$-1)
�?ș"OS_File",&11,dir$+Z2$ � t%:�(t%�3)=2 t$=" (Dir)" � t$=""
��dir$Z2$t$
��
��
&��openwindow(H,X,Y,XX,YY,SX,SY,H2)
�!block%=H:� mopen% block%!4=X+SX:block%!8=Y+SY-YY+Y:block%!12=XX+SX:block%!16=YY+SY-YY+Y:block%!20=SX:block%!24=SY � block%!4=X:block%!8=Y:block%!12=XX:block%!16=YY
block%!28=H2
&ș"Wimp_OpenWindow",,block%
0�
:��openwindow2(handle%,mem%)
D>�mem%=block% !mem%=handle%:ș "Wimp_GetWindowState",0,mem%
N ș"Wimp_OpenWindow",0,mem%:�
X��checkram
b� ramfs
l'ș"OS_FSControl",13,"RAM" � ,,ramfs
v� ramfs<>0 mi%=0:� � mi%=1
� � drv%=0 drv%=1:$drive=f$(1)
��
���checknet
�'ș"OS_FSControl",13,"NET" � ,,netfs
�#� netfs<>0 ma%+=1:f$(ma%)="NET"
��
���Sbutton(I%,X,Y,SL)
�ptr%=block%+88+(32*I%)
�!ptr%=X:ptr%!4=Y
�ptr%!8=X+80
�ptr%!12=Y+40
�!ptr%!16=(1<<1)+(1<<8)+(2<<12)
�ptr%!20=SL

ptr%!24=-1

ptr%!28=�$SL

�

 ݤcp

*Q%=�(-4):�2,1,0,1,0,3

4�Q%<>�(-4) � =�

>=�
�

00000000  0d 00 0a 0f f4 3e 21 52  75 6e 49 6d 61 67 65 0d  |.....>!RunImage.|
00000010  00 14 09 f2 69 6e 69 74  0d 00 1e 11 f2 73 65 61  |....init.....sea|
00000020  72 63 68 77 69 6e 64 6f  77 0d 00 28 0f f2 69 6e  |rchwindow..(..in|
00000030  66 6f 77 69 6e 64 6f 77  0d 00 32 0d f2 6d 65 6e  |fowindow..2..men|
00000040  75 69 6e 69 74 0d 00 3c  48 ee 85 f2 65 72 72 28  |uinit..<H...err(|
00000050  f6 24 29 3a e7 64 69 73  3c 3e 2d 31 20 21 62 6c  |.$):.dis<>-1 !bl|
00000060  6f 63 6b 25 3d 64 69 73  3a c8 99 22 57 69 6d 70  |ock%=dis:.."Wimp|
00000070  5f 44 65 6c 65 74 65 57  69 6e 64 6f 77 22 2c 2c  |_DeleteWindow",,|
00000080  62 6c 6f 63 6b 25 3a 64  69 73 3d 2d 31 0d 00 46  |block%:dis=-1..F|
00000090  0d f2 63 68 65 63 6b 6e  65 74 0d 00 50 05 f5 0d  |..checknet..P...|
000000a0  00 5a 0d 62 6c 6f 63 6b  3d 62 73 74 0d 00 64 23  |.Z.block=bst..d#|
000000b0  c8 99 22 57 69 6d 70 5f  50 6f 6c 6c 22 2c 31 2c  |.."Wimp_Poll",1,|
000000c0  70 6f 6c 6c 25 20 b8 20  61 63 74 69 6f 6e 25 0d  |poll% . action%.|
000000d0  00 6e 0d f2 63 68 65 63  6b 72 61 6d 0d 00 78 10  |.n..checkram..x.|
000000e0  c8 8e 20 61 63 74 69 6f  6e 25 20 ca 0d 00 82 15  |.. action% .....|
000000f0  c9 20 31 3a f2 72 65 64  6f 28 21 70 6f 6c 6c 25  |. 1:.redo(!poll%|
00000100  29 0d 00 8c 23 c9 20 32  3a f2 6f 70 65 6e 77 69  |)...#. 2:.openwi|
00000110  6e 64 6f 77 32 28 70 6f  6c 6c 25 21 34 2c 70 6f  |ndow2(poll%!4,po|
00000120  6c 6c 25 29 0d 00 96 19  c9 20 36 3a f2 6d 6f 75  |ll%)..... 6:.mou|
00000130  73 65 62 75 74 74 6f 6e  63 6c 69 63 6b 0d 00 a0  |sebuttonclick...|
00000140  0f c9 20 39 3a f2 73 65  6c 65 63 74 0d 00 aa 0b  |.. 9:.select....|
00000150  c9 20 31 37 2c 31 38 0d  00 b4 15 f2 72 65 63 65  |. 17,18.....rece|
00000160  69 76 65 28 61 63 74 69  6f 6e 25 29 0d 00 be 05  |ive(action%)....|
00000170  cb 0d 00 c8 07 fd 20 a3  0d 00 d2 05 e0 0d 00 dc  |...... .........|
00000180  0a dd f2 69 6e 69 74 0d  00 e6 b5 de 20 70 6f 6c  |...init..... pol|
00000190  6c 25 20 32 35 36 2c 6d  65 6e 75 25 20 31 30 32  |l% 256,menu% 102|
000001a0  34 2c 62 6c 6f 63 6b 25  20 31 30 32 34 2c 65 72  |4,block% 1024,er|
000001b0  62 6c 6b 25 20 32 35 36  2c 69 6e 74 20 32 30 2c  |blk% 256,int 20,|
000001c0  70 6e 6d 20 32 30 2c 70  70 73 20 32 30 2c 61 75  |pnm 20,pps 20,au|
000001d0  74 20 32 30 2c 76 65 72  20 32 30 2c 64 72 69 76  |t 20,ver 20,driv|
000001e0  65 20 32 30 2c 53 54 20  32 30 2c 74 69 74 6c 65  |e 20,ST 20,title|
000001f0  20 31 36 30 2c 66 69 6c  65 20 31 31 2c 66 24 28  | 160,file 11,f$(|
00000200  38 29 2c 62 6c 6f 63 6b  20 32 30 34 38 30 2c 62  |8),block 20480,b|
00000210  6c 6f 63 6b 32 20 31 30  32 34 2c 70 6d 6f 64 65  |lock2 1024,pmode|
00000220  20 34 2c 70 6f 75 74 20  34 2c 72 64 69 72 20 31  | 4,pout 4,rdir 1|
00000230  30 31 2c 63 68 66 6c 25  20 32 35 36 0d 00 f0 1a  |01,chfl% 256....|
00000240  24 70 6d 6f 64 65 3d 22  6e 6f 22 3a 24 70 6f 75  |$pmode="no":$pou|
00000250  74 3d 22 6e 6f 22 0d 00  fa 0d 24 72 64 69 72 3d  |t="no"....$rdir=|
00000260  22 24 22 0d 01 04 1e 62  73 74 3d 62 6c 6f 63 6b  |"$"....bst=block|
00000270  3a 62 6d 61 78 3d 62 6c  6f 63 6b 2b 32 30 34 38  |:bmax=block+2048|
00000280  30 0d 01 0e 0c 6d 6f 70  65 6e 25 3d a3 0d 01 18  |0....mopen%=....|
00000290  0a 64 69 73 3d 2d 31 0d  01 22 09 6d 69 25 3d 31  |.dis=-1..".mi%=1|
000002a0  0d 01 2c 0f 66 24 28 30  29 3d 22 52 41 4d 22 0d  |..,.f$(0)="RAM".|
000002b0  01 36 1b c8 99 20 22 41  44 46 53 5f 44 72 69 76  |.6... "ADFS_Driv|
000002c0  65 73 22 20 b8 20 2c 66  2c 68 0d 01 40 08 51 25  |es" . ,f,h..@.Q%|
000002d0  3d 30 0d 01 4a 29 e7 66  3c 3e 30 20 e3 4e 3d 31  |=0..J).f<>0 .N=1|
000002e0  b8 66 3a 66 24 28 4e 29  3d 22 3a 22 2b c3 28 4e  |.f:f$(N)=":"+.(N|
000002f0  2d 31 29 3a 51 25 2b 3d  31 3a ed 0d 01 54 2c e7  |-1):Q%+=1:...T,.|
00000300  68 3c 3e 30 20 e3 4e 3d  31 b8 68 3a 66 24 28 51  |h<>0 .N=1.h:f$(Q|
00000310  25 2b 31 29 3d 22 3a 22  2b c3 28 4e 2b 33 29 3a  |%+1)=":"+.(N+3):|
00000320  51 25 2b 3d 31 3a ed 0d  01 5e 0a 6d 61 25 3d 51  |Q%+=1:...^.ma%=Q|
00000330  25 0d 01 68 0a 64 72 76  25 3d 31 0d 01 72 1d 24  |%..h.drv%=1..r.$|
00000340  69 6e 74 3d 22 41 62 6f  75 74 20 74 68 69 73 20  |int="About this |
00000350  70 72 6f 67 72 61 6d 22  0d 01 7c 1b 24 53 54 3d  |program"..|.$ST=|
00000360  22 53 65 61 72 63 68 20  66 6f 72 20 66 69 6c 65  |"Search for file|
00000370  20 3a 22 0d 01 86 1d 24  64 72 69 76 65 3d 66 24  | :"....$drive=f$|
00000380  28 64 72 76 25 29 3a 24  66 69 6c 65 3d 22 2a 22  |(drv%):$file="*"|
00000390  0d 01 90 13 74 66 6c 61  67 25 3d 26 37 30 30 30  |....tflag%=&7000|
000003a0  30 30 31 0d 01 9a 30 c8  99 22 57 69 6d 70 5f 49  |001...0.."Wimp_I|
000003b0  6e 69 74 69 61 6c 69 73  65 22 2c 32 30 30 2c 26  |nitialise",200,&|
000003c0  34 42 35 33 34 31 35 34  2c 22 46 69 6c 65 46 69  |4B534154,"FileFi|
000003d0  6e 64 22 0d 01 a4 0d 21  70 6f 6c 6c 25 3d 2d 31  |nd"....!poll%=-1|
000003e0  0d 01 ae 0d 70 6f 6c 6c  25 21 34 3d 30 0d 01 b8  |....poll%!4=0...|
000003f0  0d 70 6f 6c 6c 25 21 38  3d 30 0d 01 c2 0f 70 6f  |.poll%!8=0....po|
00000400  6c 6c 25 21 31 32 3d 36  39 0d 01 cc 0f 70 6f 6c  |ll%!12=69....pol|
00000410  6c 25 21 31 36 3d 36 38  0d 01 d6 12 70 6f 6c 6c  |l%!16=68....poll|
00000420  25 21 32 30 3d 26 33 30  30 32 0d 01 e0 17 24 28  |%!20=&3002....$(|
00000430  70 6f 6c 6c 25 2b 32 34  29 3d 22 21 46 69 6e 64  |poll%+24)="!Find|
00000440  22 0d 01 ea 26 c8 99 22  57 69 6d 70 5f 43 72 65  |"...&.."Wimp_Cre|
00000450  61 74 65 49 63 6f 6e 22  2c 2c 70 6f 6c 6c 25 20  |ateIcon",,poll% |
00000460  b8 20 69 63 6f 6e 25 0d  01 f4 05 e1 0d 01 fe 11  |. icon%.........|
00000470  dd f2 72 65 63 65 69 76  65 28 72 25 29 0d 02 08  |..receive(r%)...|
00000480  0c 74 65 78 74 24 3d 22  22 0d 02 12 11 c8 8e 20  |.text$=""...... |
00000490  70 6f 6c 6c 25 21 31 36  20 ca 0d 02 1c 13 c9 20  |poll%!16 ...... |
000004a0  30 3a f2 73 68 75 74 64  6f 77 6e 3a e0 0d 02 26  |0:.shutdown:...&|
000004b0  0a c9 20 26 35 30 32 0d  02 30 11 c8 8e 20 70 6f  |.. &502..0... po|
000004c0  6c 6c 25 21 33 32 20 ca  0d 02 3a 4f c9 20 2d 32  |ll%!32 ...:O. -2|
000004d0  3a 74 65 78 74 24 3d 22  54 68 69 73 20 69 73 20  |:text$="This is |
000004e0  74 68 65 20 46 69 6c 65  20 46 69 6e 64 65 72 20  |the File Finder |
000004f0  69 63 6f 6e 7c 4d 43 6c  69 63 6b 20 74 68 65 20  |icon|MClick the |
00000500  6d 65 6e 75 20 62 75 74  74 6f 6e 20 66 6f 72 20  |menu button for |
00000510  61 20 6d 65 6e 75 22 0d  02 44 0d c9 20 73 65 61  |a menu"..D.. sea|
00000520  72 63 68 25 0d 02 4e 11  c8 8e 20 70 6f 6c 6c 25  |rch%..N... poll%|
00000530  21 33 36 20 ca 0d 02 58  40 c9 20 32 3a 74 65 78  |!36 ...X@. 2:tex|
00000540  74 24 3d 22 54 68 69 73  20 69 63 6f 6e 20 73 68  |t$="This icon sh|
00000550  6f 77 73 20 74 68 65 20  64 72 69 76 65 20 74 68  |ows the drive th|
00000560  61 74 20 69 73 20 74 6f  20 62 65 20 73 65 61 72  |at is to be sear|
00000570  63 68 65 64 22 0d 02 62  6f c9 20 33 2c 34 3a 74  |ched"..bo. 3,4:t|
00000580  65 78 74 24 3d 22 43 6c  69 63 6b 20 6f 6e 20 74  |ext$="Click on t|
00000590  68 65 20 61 72 72 6f 77  73 20 74 6f 20 63 68 61  |he arrows to cha|
000005a0  6e 67 65 20 74 68 65 20  64 72 69 76 65 20 6e 75  |nge the drive nu|
000005b0  6d 62 65 72 20 6f 72 20  73 65 6c 65 63 74 20 61  |mber or select a|
000005c0  20 52 41 4d 20 64 69 73  63 20 6f 72 20 4e 65 74  | RAM disc or Net|
000005d0  77 6f 72 6b 20 28 69 66  20 61 76 61 69 6c 61 62  |work (if availab|
000005e0  6c 65 29 22 0d 02 6c 63  c9 20 35 3a 74 65 78 74  |le)"..lc. 5:text|
000005f0  24 3d 22 43 6c 69 63 6b  20 68 65 72 65 20 74 6f  |$="Click here to|
00000600  20 64 69 73 70 6c 61 79  20 61 20 63 61 72 65 74  | display a caret|
00000610  2c 20 61 6e 64 20 74 68  65 6e 20 65 6e 74 65 72  |, and then enter|
00000620  20 74 68 65 20 77 69 6c  64 63 61 72 64 65 64 20  | the wildcarded |
00000630  66 69 6c 65 6e 61 6d 65  20 74 6f 20 62 65 20 6d  |filename to be m|
00000640  61 74 63 68 65 64 22 0d  02 76 31 c9 20 36 3a 74  |atched"..v1. 6:t|
00000650  65 78 74 24 3d 22 43 6c  69 63 6b 20 27 4f 4b 27  |ext$="Click 'OK'|
00000660  20 74 6f 20 69 6e 69 74  69 61 74 65 20 74 68 65  | to initiate the|
00000670  20 73 65 61 72 63 68 22  0d 02 80 5a c9 20 39 3a  | search"...Z. 9:|
00000680  74 65 78 74 24 3d 22 43  6c 69 63 6b 20 68 65 72  |text$="Click her|
00000690  65 20 74 6f 20 65 6e 61  62 6c 65 2f 64 69 73 61  |e to enable/disa|
000006a0  62 6c 65 20 70 61 67 65  64 20 6d 6f 64 65 20 77  |ble paged mode w|
000006b0  68 65 6e 20 66 69 6c 65  6e 61 6d 65 73 20 61 72  |hen filenames ar|
000006c0  65 20 62 65 69 6e 67 20  64 69 73 70 6c 61 79 65  |e being displaye|
000006d0  64 22 0d 02 8a 6d c9 20  31 30 3a 74 65 78 74 24  |d"...m. 10:text$|
000006e0  3d 22 43 6c 69 63 6b 20  68 65 72 65 20 74 6f 20  |="Click here to |
000006f0  65 6e 61 62 6c 65 2f 64  69 73 61 62 6c 65 20 61  |enable/disable a|
00000700  20 70 72 69 6e 74 6f 75  74 20 6f 66 20 74 68 65  | printout of the|
00000710  20 66 69 6c 65 73 20 6d  61 74 63 68 65 64 20 61  | files matched a|
00000720  67 61 69 6e 73 74 20 74  68 65 20 77 69 6c 64 63  |gainst the wildc|
00000730  61 72 64 65 64 20 66 69  6c 65 6e 61 6d 65 22 0d  |arded filename".|
00000740  02 94 6b c9 20 31 32 3a  74 65 78 74 24 3d 22 43  |..k. 12:text$="C|
00000750  6c 69 63 6b 20 68 65 72  65 20 74 6f 20 64 69 73  |lick here to dis|
00000760  70 6c 61 79 20 61 20 63  61 72 65 74 2c 20 61 6e  |play a caret, an|
00000770  64 20 74 68 65 6e 20 65  6e 74 65 72 20 74 68 65  |d then enter the|
00000780  20 72 6f 6f 74 20 64 69  72 65 63 74 6f 72 79 20  | root directory |
00000790  66 6f 72 20 74 68 65 20  73 65 61 72 63 68 20 28  |for the search (|
000007a0  69 66 20 6b 6e 6f 77 6e  29 22 0d 02 9e 05 cb 0d  |if known)"......|
000007b0  02 a8 56 c9 20 69 6e 66  6f 25 3a 74 65 78 74 24  |..V. info%:text$|
000007c0  3d 22 54 68 69 73 20 77  69 6e 64 6f 77 20 64 69  |="This window di|
000007d0  73 70 6c 61 79 73 20 69  6e 66 6f 72 6d 61 74 69  |splays informati|
000007e0  6f 6e 20 61 62 6f 75 74  20 74 68 65 20 46 69 6c  |on about the Fil|
000007f0  65 20 46 69 6e 64 65 72  20 61 70 70 6c 69 63 61  |e Finder applica|
00000800  74 69 6f 6e 22 0d 02 b2  05 cb 0d 02 bc 23 70 6f  |tion"........#po|
00000810  6c 6c 25 21 30 3d 28 28  28 32 30 2b a9 74 65 78  |ll%!0=(((20+.tex|
00000820  74 24 2b 31 29 81 34 29  2a 34 29 2b 34 0d 02 c6  |t$+1).4)*4)+4...|
00000830  0e 70 6f 6c 6c 25 21 34  3d 31 37 0d 02 d0 14 70  |.poll%!4=17....p|
00000840  6f 6c 6c 25 21 31 32 3d  70 6f 6c 6c 25 21 38 0d  |oll%!12=poll%!8.|
00000850  02 da 11 70 6f 6c 6c 25  21 31 36 3d 26 35 30 33  |...poll%!16=&503|
00000860  0d 02 e4 2b 24 28 70 6f  6c 6c 25 2b 32 30 29 3d  |...+$(poll%+20)=|
00000870  74 65 78 74 24 3a 24 28  70 6f 6c 6c 25 2b 32 31  |text$:$(poll%+21|
00000880  2b a9 74 65 78 74 24 29  3d bd 30 0d 02 ee 21 c8  |+.text$)=.0...!.|
00000890  99 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  |."Wimp_SendMessa|
000008a0  67 65 22 2c 31 37 2c 70  6f 6c 6c 25 0d 02 f8 05  |ge",17,poll%....|
000008b0  cb 0d 03 02 05 e1 0d 03  0c 0e dd f2 73 68 75 74  |............shut|
000008c0  64 6f 77 6e 0d 03 16 16  c8 99 22 57 69 6d 70 5f  |down......"Wimp_|
000008d0  43 6c 6f 73 65 44 6f 77  6e 22 0d 03 20 05 e1 0d  |CloseDown".. ...|
000008e0  03 2a 5f dd a4 63 72 65  61 74 65 77 69 6e 64 6f  |.*_..createwindo|
000008f0  77 28 74 69 74 6c 65 2c  66 6c 61 67 25 2c 66 67  |w(title,flag%,fg|
00000900  63 6f 6c 25 2c 62 67 63  6f 6c 25 2c 74 77 61 74  |col%,bgcol%,twat|
00000910  78 25 2c 74 77 61 74 79  25 2c 76 77 61 62 78 25  |x%,twaty%,vwabx%|
00000920  2c 76 77 61 62 79 25 2c  76 77 61 74 78 25 2c 76  |,vwaby%,vwatx%,v|
00000930  77 61 74 79 25 2c 6e 69  63 6f 6e 73 25 29 0d 03  |waty%,nicons%)..|
00000940  34 0d ea 20 68 61 6e 64  6c 65 25 0d 03 3e 43 21  |4.. handle%..>C!|
00000950  62 6c 6f 63 6b 25 3d 76  77 61 62 78 25 3a 62 6c  |block%=vwabx%:bl|
00000960  6f 63 6b 25 21 34 3d 76  77 61 62 79 25 3a 62 6c  |ock%!4=vwaby%:bl|
00000970  6f 63 6b 25 21 38 3d 76  77 61 74 78 25 3a 62 6c  |ock%!8=vwatx%:bl|
00000980  6f 63 6b 25 21 31 32 3d  76 77 61 74 79 25 0d 03  |ock%!12=vwaty%..|
00000990  48 3d 62 6c 6f 63 6b 25  21 31 36 3d 30 3a 62 6c  |H=block%!16=0:bl|
000009a0  6f 63 6b 25 21 32 30 3d  74 77 61 74 79 25 3a 62  |ock%!20=twaty%:b|
000009b0  6c 6f 63 6b 25 21 32 34  3d 2d 31 3a 62 6c 6f 63  |lock%!24=-1:bloc|
000009c0  6b 25 21 32 38 3d 66 6c  61 67 25 0d 03 52 3d 62  |k%!28=flag%..R=b|
000009d0  6c 6f 63 6b 25 3f 33 32  3d 37 3a 62 6c 6f 63 6b  |lock%?32=7:block|
000009e0  25 3f 33 33 3d 32 3a 62  6c 6f 63 6b 25 3f 33 34  |%?33=2:block%?34|
000009f0  3d 66 67 63 6f 6c 25 3a  62 6c 6f 63 6b 25 3f 33  |=fgcol%:block%?3|
00000a00  35 3d 62 67 63 6f 6c 25  0d 03 5c 34 62 6c 6f 63  |5=bgcol%..\4bloc|
00000a10  6b 25 3f 33 36 3d 33 3a  62 6c 6f 63 6b 25 3f 33  |k%?36=3:block%?3|
00000a20  37 3d 31 3a 62 6c 6f 63  6b 25 3f 33 38 3d 31 32  |7=1:block%?38=12|
00000a30  3a 62 6c 6f 63 6b 25 3f  33 39 3d 30 0d 03 66 3d  |:block%?39=0..f=|
00000a40  62 6c 6f 63 6b 25 21 34  30 3d 30 3a 62 6c 6f 63  |block%!40=0:bloc|
00000a50  6b 25 21 34 34 3d 30 3a  62 6c 6f 63 6b 25 21 34  |k%!44=0:block%!4|
00000a60  38 3d 74 77 61 74 78 25  3a 62 6c 6f 63 6b 25 21  |8=twatx%:block%!|
00000a70  35 32 3d 74 77 61 74 79  25 0d 03 70 40 62 6c 6f  |52=twaty%..p@blo|
00000a80  63 6b 25 21 35 36 3d 26  32 44 2b 28 31 3c 3c 38  |ck%!56=&2D+(1<<8|
00000a90  29 3a 62 6c 6f 63 6b 25  21 36 30 3d 26 33 30 30  |):block%!60=&300|
00000aa0  30 3a 62 6c 6f 63 6b 25  21 36 34 3d 30 3a 62 6c  |0:block%!64=0:bl|
00000ab0  6f 63 6b 25 21 36 38 3d  31 0d 03 7a 44 62 6c 6f  |ock%!68=1..zDblo|
00000ac0  63 6b 25 21 37 32 3d 74  69 74 6c 65 3a 62 6c 6f  |ck%!72=title:blo|
00000ad0  63 6b 25 21 37 36 3d 2d  31 3a 62 6c 6f 63 6b 25  |ck%!76=-1:block%|
00000ae0  21 38 30 3d a9 24 74 69  74 6c 65 3a 62 6c 6f 63  |!80=.$title:bloc|
00000af0  6b 25 21 38 34 3d 6e 69  63 6f 6e 73 25 0d 03 84  |k%!84=nicons%...|
00000b00  35 c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |5.."Wimp_CreateW|
00000b10  69 6e 64 6f 77 22 2c 30  2c 62 6c 6f 63 6b 25 20  |indow",0,block% |
00000b20  b8 20 68 61 6e 64 6c 65  25 3a 3d 68 61 6e 64 6c  |. handle%:=handl|
00000b30  65 25 0d 03 8e 05 e0 0d  03 98 18 dd a4 63 72 65  |e%...........cre|
00000b40  61 74 65 6d 65 6e 75 28  6d 62 25 2c 74 24 29 0d  |atemenu(mb%,t$).|
00000b50  03 a2 38 ea 20 6e 65 77  24 2c 70 74 72 25 2c 73  |..8. new$,ptr%,s|
00000b60  68 61 64 65 25 2c 74 69  63 6b 25 2c 64 6f 74 74  |hade%,tick%,dott|
00000b70  65 64 25 2c 73 75 62 6d  65 6e 75 25 2c 77 72 69  |ed%,submenu%,wri|
00000b80  74 65 61 62 6c 65 25 0d  03 ac 21 6e 75 6d 6f 66  |teable%...!numof|
00000b90  69 74 65 6d 73 25 3d bb  c0 74 24 2c 31 29 3a 74  |items%=..t$,1):t|
00000ba0  24 3d c1 74 24 2c 32 29  0d 03 b6 23 6e 65 78 74  |$=.t$,2)...#next|
00000bb0  6d 65 6e 75 25 3d 6d 62  25 2b 32 38 2b 32 34 2a  |menu%=mb%+28+24*|
00000bc0  6e 75 6d 6f 66 69 74 65  6d 73 25 0d 03 c0 2b 24  |numofitems%...+$|
00000bd0  6d 62 25 3d c0 74 24 2c  a7 74 24 2c 22 7c 22 29  |mb%=.t$,.t$,"|")|
00000be0  2d 31 29 3a 74 24 3d c1  74 24 2c a7 74 24 2c 22  |-1):t$=.t$,.t$,"|
00000bf0  7c 22 29 2b 31 29 0d 03  ca 21 6d 62 25 3f 31 32  ||")+1)...!mb%?12|
00000c00  3d 37 3a f4 20 74 69 74  6c 65 20 66 67 72 6e 64  |=7:. title fgrnd|
00000c10  20 63 6f 6c 6f 75 72 0d  03 d4 22 6d 62 25 3f 31  | colour..."mb%?1|
00000c20  33 3d 32 3a f4 20 74 69  74 6c 65 20 62 6b 67 72  |3=2:. title bkgr|
00000c30  6e 64 20 63 6f 6c 6f 75  72 0d 03 de 25 6d 62 25  |nd colour...%mb%|
00000c40  3f 31 34 3d 37 3a f4 20  57 6f 72 6b 20 61 72 65  |?14=7:. Work are|
00000c50  61 20 66 67 72 6e 64 20  63 6f 6c 6f 75 72 0d 03  |a fgrnd colour..|
00000c60  e8 26 6d 62 25 3f 31 35  3d 30 3a f4 20 57 6f 72  |.&mb%?15=0:. Wor|
00000c70  6b 20 61 72 65 61 20 62  6b 67 72 6e 64 20 63 6f  |k area bkgrnd co|
00000c80  6c 6f 75 72 0d 03 f2 1b  6d 62 25 21 31 36 3d 32  |lour....mb%!16=2|
00000c90  30 30 3a f4 20 4d 65 6e  75 20 77 69 64 74 68 0d  |00:. Menu width.|
00000ca0  03 fc 1e 6d 62 25 21 32  30 3d 34 30 3a f4 20 68  |...mb%!20=40:. h|
00000cb0  65 69 67 68 74 20 6f 66  20 74 65 78 74 0d 04 06  |eight of text...|
00000cc0  22 6d 62 25 21 32 34 3d  31 30 3a f4 20 73 70 61  |"mb%!24=10:. spa|
00000cd0  63 65 20 27 74 77 65 65  6e 20 6c 69 6e 65 73 0d  |ce 'tween lines.|
00000ce0  04 10 0f 70 74 72 25 3d  6d 62 25 2b 32 38 0d 04  |...ptr%=mb%+28..|
00000cf0  1a 39 f5 3a 73 68 61 64  65 25 3d 30 3a 74 69 63  |.9.:shade%=0:tic|
00000d00  6b 25 3d 30 3a 64 6f 74  74 65 64 25 3d 30 3a 77  |k%=0:dotted%=0:w|
00000d10  72 69 74 65 61 62 6c 65  25 3d 30 3a 73 75 62 6d  |riteable%=0:subm|
00000d20  65 6e 75 25 3d 2d 31 0d  04 24 11 e7 c0 74 24 2c  |enu%=-1..$...t$,|
00000d30  31 29 3d 22 5b 22 20 8c  0d 04 2e 22 74 24 3d c1  |1)="[" ...."t$=.|
00000d40  74 24 2c 32 29 3a 6e 65  77 3d a0 c0 74 24 2c a7  |t$,2):new=..t$,.|
00000d50  74 24 2c 22 5d 22 29 2d  31 29 0d 04 38 23 74 24  |t$,"]")-1)..8#t$|
00000d60  3d c1 74 24 2c a7 74 24  2c 22 5d 22 29 2b 31 29  |=.t$,.t$,"]")+1)|
00000d70  3a 73 75 62 6d 65 6e 75  25 3d 6e 65 77 0d 04 42  |:submenu%=new..B|
00000d80  05 cd 0d 04 4c 26 e7 c0  74 24 2c 31 29 3d 22 2e  |....L&..t$,1)=".|
00000d90  22 20 74 24 3d c1 74 24  2c 32 29 3a f4 20 44 6f  |" t$=.t$,2):. Do|
00000da0  20 6e 6f 74 68 69 6e 67  0d 04 56 28 e7 c0 74 24  | nothing..V(..t$|
00000db0  2c 31 29 3d 22 40 22 20  73 68 61 64 65 25 3d 26  |,1)="@" shade%=&|
00000dc0  34 30 30 30 30 30 3a 74  24 3d c1 74 24 2c 32 29  |400000:t$=.t$,2)|
00000dd0  0d 04 60 21 e7 c0 74 24  2c 31 29 3d 22 23 22 20  |..`!..t$,1)="#" |
00000de0  74 69 63 6b 25 3d 31 3a  74 24 3d c1 74 24 2c 32  |tick%=1:t$=.t$,2|
00000df0  29 0d 04 6a 23 e7 c0 74  24 2c 31 29 3d 22 3a 22  |)..j#..t$,1)=":"|
00000e00  20 64 6f 74 74 65 64 25  3d 32 3a 74 24 3d c1 74  | dotted%=2:t$=.t|
00000e10  24 2c 32 29 0d 04 74 26  e7 c0 74 24 2c 31 29 3d  |$,2)..t&..t$,1)=|
00000e20  22 5e 22 20 77 72 69 74  65 61 62 6c 65 25 3d 34  |"^" writeable%=4|
00000e30  3a 74 24 3d c1 74 24 2c  32 29 0d 04 7e 0f 67 25  |:t$=.t$,2)..~.g%|
00000e40  3d a7 74 24 2c 22 7c 22  29 0d 04 88 11 e7 77 72  |=.t$,"|").....wr|
00000e50  69 74 65 61 62 6c 65 25  20 8c 0d 04 92 2f 69 25  |iteable% ..../i%|
00000e60  3d a7 74 24 2c 22 2c 22  29 3a 70 74 72 25 21 31  |=.t$,","):ptr%!1|
00000e70  32 3d a0 c0 74 24 2c 69  25 2d 31 29 3a 74 24 3d  |2=..t$,i%-1):t$=|
00000e80  c1 74 24 2c 69 25 2b 31  29 0d 04 9c 0e 70 74 72  |.t$,i%+1)....ptr|
00000e90  25 21 31 36 3d 2d 31 0d  04 a6 1c 70 74 72 25 21  |%!16=-1....ptr%!|
00000ea0  32 30 3d a0 c0 74 24 2c  a7 74 24 2c 22 7c 22 29  |20=..t$,.t$,"|")|
00000eb0  2d 31 29 0d 04 b0 3c 6d  62 25 21 31 36 3d a4 67  |-1)...<mb%!16=.g|
00000ec0  72 65 61 74 65 72 28 6d  62 25 21 31 36 2c 34 2b  |reater(mb%!16,4+|
00000ed0  31 36 2a 70 74 72 25 21  32 30 29 3a f4 20 77 69  |16*ptr%!20):. wi|
00000ee0  64 74 68 20 6f 66 20 6e  65 77 20 6d 65 6e 75 0d  |dth of new menu.|
00000ef0  04 ba 05 cc 0d 04 c4 18  24 28 70 74 72 25 2b 31  |........$(ptr%+1|
00000f00  32 29 3d c0 74 24 2c 67  25 2d 31 29 0d 04 ce 05  |2)=.t$,g%-1)....|
00000f10  cd 0d 04 d8 10 74 24 3d  c1 74 24 2c 67 25 2b 31  |.....t$=.t$,g%+1|
00000f20  29 0d 04 e2 4e 21 70 74  72 25 3d 74 69 63 6b 25  |)...N!ptr%=tick%|
00000f30  20 84 20 64 6f 74 74 65  64 25 20 84 20 77 72 69  | . dotted% . wri|
00000f40  74 65 61 62 6c 65 25 20  84 20 28 26 38 30 20 80  |teable% . (&80 .|
00000f50  20 28 74 24 3d 22 22 29  29 3a f4 20 26 38 30 20  | (t$="")):. &80 |
00000f60  6d 61 72 6b 73 20 6c 61  73 74 20 69 74 65 6d 0d  |marks last item.|
00000f70  04 ec 13 70 74 72 25 21  34 3d 73 75 62 6d 65 6e  |...ptr%!4=submen|
00000f80  75 25 0d 04 f6 3f f4 70  74 72 25 21 38 3d 26 31  |u%...?.ptr%!8=&1|
00000f90  30 30 32 31 20 4f 52 20  73 68 61 64 65 25 20 4f  |0021 OR shade% O|
00000fa0  52 20 77 72 69 74 65 61  62 6c 65 25 3c 3c 36 20  |R writeable%<<6 |
00000fb0  4f 52 20 30 3c 3c 32 34  20 4f 52 20 37 3c 3c 32  |OR 0<<24 OR 7<<2|
00000fc0  38 0d 05 00 2c 70 74 72  25 21 38 3d 26 37 30 30  |8...,ptr%!8=&700|
00000fd0  30 30 30 39 20 84 20 73  68 61 64 65 25 20 84 20  |0009 . shade% . |
00000fe0  77 72 69 74 65 61 62 6c  65 25 3c 3c 36 0d 05 0a  |writeable%<<6...|
00000ff0  0c 70 74 72 25 2b 3d 32  34 0d 05 14 0a fd 74 24  |.ptr%+=24.....t$|
00001000  3d 22 22 0d 05 1e 08 3d  6d 62 25 0d 05 28 2e dd  |=""....=mb%..(..|
00001010  f2 6d 6f 75 73 65 62 75  74 74 6f 6e 63 6c 69 63  |.mousebuttonclic|
00001020  6b 3a ea 20 68 61 6e 64  6c 65 25 2c 62 75 74 74  |k:. handle%,butt|
00001030  6f 6e 25 2c 69 63 6f 6e  25 0d 05 32 13 62 75 74  |on%,icon%..2.but|
00001040  74 6f 6e 25 3d 70 6f 6c  6c 25 21 38 0d 05 3c 14  |ton%=poll%!8..<.|
00001050  68 61 6e 64 6c 65 25 3d  70 6f 6c 6c 25 21 31 32  |handle%=poll%!12|
00001060  0d 05 46 12 69 63 6f 6e  25 3d 70 6f 6c 6c 25 21  |..F.icon%=poll%!|
00001070  31 36 0d 05 50 22 6d 6f  75 73 65 78 25 3d 21 70  |16..P"mousex%=!p|
00001080  6f 6c 6c 25 3a 6d 6f 75  73 65 79 25 3d 70 6f 6c  |oll%:mousey%=pol|
00001090  6c 25 21 34 0d 05 5a 47  e7 62 75 74 74 6f 6e 25  |l%!4..ZG.button%|
000010a0  3d 32 20 80 20 68 61 6e  64 6c 65 25 3d 2d 32 20  |=2 . handle%=-2 |
000010b0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |.. "Wimp_CreateM|
000010c0  65 6e 75 22 2c 30 2c 6d  65 6e 75 25 2c 6d 6f 75  |enu",0,menu%,mou|
000010d0  73 65 78 25 2d 38 38 2c  32 39 36 0d 05 64 17 e7  |sex%-88,296..d..|
000010e0  20 68 61 6e 64 6c 65 25  3d 73 65 61 72 63 68 25  | handle%=search%|
000010f0  20 8c 0d 05 6e 0e c8 8e  20 69 63 6f 6e 25 20 ca  | ...n... icon% .|
00001100  0d 05 78 07 c9 20 33 0d  05 82 1e 64 72 76 25 2d  |..x.. 3....drv%-|
00001110  3d 31 3a e7 64 72 76 25  3c 6d 69 25 20 64 72 76  |=1:.drv%<mi% drv|
00001120  25 3d 6d 61 25 0d 05 8c  13 24 64 72 69 76 65 3d  |%=ma%....$drive=|
00001130  66 24 28 64 72 76 25 29  0d 05 96 0a f2 72 73 72  |f$(drv%).....rsr|
00001140  63 68 0d 05 a0 07 c9 20  34 0d 05 aa 1e 64 72 76  |ch..... 4....drv|
00001150  25 2b 3d 31 3a e7 64 72  76 25 3e 6d 61 25 20 64  |%+=1:.drv%>ma% d|
00001160  72 76 25 3d 6d 69 25 0d  05 b4 13 24 64 72 69 76  |rv%=mi%....$driv|
00001170  65 3d 66 24 28 64 72 76  25 29 0d 05 be 0a f2 72  |e=f$(drv%).....r|
00001180  73 72 63 68 0d 05 c8 07  c9 20 36 0d 05 d2 09 f2  |srch..... 6.....|
00001190  66 69 6e 64 0d 05 dc 07  c9 20 39 0d 05 e6 2b e7  |find..... 9...+.|
000011a0  24 70 6d 6f 64 65 3d 22  6e 6f 22 20 24 70 6d 6f  |$pmode="no" $pmo|
000011b0  64 65 3d 22 79 65 73 22  20 8b 20 24 70 6d 6f 64  |de="yes" . $pmod|
000011c0  65 3d 22 6e 6f 22 0d 05  f0 12 f2 72 65 64 6f 28  |e="no".....redo(|
000011d0  73 65 61 72 63 68 25 29  0d 05 fa 08 c9 20 31 30  |search%)..... 10|
000011e0  0d 06 04 28 e7 24 70 6f  75 74 3d 22 6e 6f 22 20  |...(.$pout="no" |
000011f0  24 70 6f 75 74 3d 22 79  65 73 22 20 8b 20 24 70  |$pout="yes" . $p|
00001200  6f 75 74 3d 22 6e 6f 22  0d 06 0e 12 f2 72 65 64  |out="no".....red|
00001210  6f 28 73 65 61 72 63 68  25 29 0d 06 18 05 cb 0d  |o(search%)......|
00001220  06 22 05 cd 0d 06 2c 05  e1 0d 06 36 22 dd a4 67  |."....,....6"..g|
00001230  72 65 61 74 65 72 28 61  25 2c 62 25 29 3a e7 61  |reater(a%,b%):.a|
00001240  25 3e 62 25 3d 61 25 8b  3d 62 25 0d 06 40 1d dd  |%>b%=a%.=b%..@..|
00001250  f2 74 77 61 6f 72 69 67  69 6e 28 62 25 2c f8 20  |.twaorigin(b%,. |
00001260  78 25 2c f8 20 79 25 29  0d 06 4a 32 78 25 3d 62  |x%,. y%)..J2x%=b|
00001270  6c 6f 63 6b 25 21 34 2d  62 6c 6f 63 6b 25 21 32  |lock%!4-block%!2|
00001280  30 3a 79 25 3d 62 6c 6f  63 6b 25 21 31 36 2d 62  |0:y%=block%!16-b|
00001290  6c 6f 63 6b 25 21 32 34  3a e1 0d 06 54 0e dd f2  |lock%!24:...T...|
000012a0  6d 65 6e 75 69 6e 69 74  0d 06 5e 40 6d 65 6e 75  |menuinit..^@menu|
000012b0  24 3d 22 33 46 69 6c 65  46 69 6e 64 7c 5b 69 6e  |$="3FileFind|[in|
000012c0  66 6f 25 5d 3a 49 6e 66  6f 72 6d 61 74 69 6f 6e  |fo%]:Information|
000012d0  7c 5b 73 65 61 72 63 68  25 5d 3a 53 65 61 72 63  ||[search%]:Searc|
000012e0  68 7c 51 75 69 74 7c 22  0d 06 68 1f 6a 25 3d a4  |h|Quit|"..h.j%=.|
000012f0  63 72 65 61 74 65 6d 65  6e 75 28 6d 65 6e 75 25  |createmenu(menu%|
00001300  2c 6d 65 6e 75 24 29 0d  06 72 05 e1 0d 06 7c 0c  |,menu$)..r....|.|
00001310  dd f2 73 65 6c 65 63 74  0d 06 86 35 c8 99 22 57  |..select...5.."W|
00001320  69 6d 70 5f 47 65 74 50  6f 69 6e 74 65 72 49 6e  |imp_GetPointerIn|
00001330  66 6f 22 2c 2c 62 6c 6f  63 6b 25 3a 41 25 3d 28  |fo",,block%:A%=(|
00001340  62 6c 6f 63 6b 25 21 38  29 20 80 20 31 0d 06 90  |block%!8) . 1...|
00001350  36 c8 99 22 57 69 6d 70  5f 44 65 63 6f 64 65 4d  |6.."Wimp_DecodeM|
00001360  65 6e 75 22 2c 2c 6d 65  6e 75 25 2c 70 6f 6c 6c  |enu",,menu%,poll|
00001370  25 2c c4 32 30 30 2c 22  20 22 29 20 b8 20 2c 2c  |%,.200," ") . ,,|
00001380  2c 61 24 0d 06 9a 0c e7  61 24 3d 22 22 20 e1 0d  |,a$.....a$="" ..|
00001390  06 a4 1a e7 61 24 3d 22  51 75 69 74 22 20 f2 73  |....a$="Quit" .s|
000013a0  68 75 74 64 6f 77 6e 3a  e1 0d 06 ae 34 e7 20 41  |hutdown:....4. A|
000013b0  25 20 c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |% .."Wimp_Create|
000013c0  4d 65 6e 75 22 2c 2c 6d  65 6e 75 25 2c 21 62 6c  |Menu",,menu%,!bl|
000013d0  6f 63 6b 25 2c 62 6c 6f  63 6b 25 21 34 0d 06 b8  |ock%,block%!4...|
000013e0  05 e1 0d 06 c2 19 dd f2  72 65 64 6f 28 48 25 29  |........redo(H%)|
000013f0  3a 21 62 6c 6f 63 6b 25  3d 48 25 0d 06 cc 2a c8  |:!block%=H%...*.|
00001400  99 22 57 69 6d 70 5f 52  65 64 72 61 77 57 69 6e  |."Wimp_RedrawWin|
00001410  64 6f 77 22 2c 30 2c 62  6c 6f 63 6b 25 20 b8 20  |dow",0,block% . |
00001420  6d 6f 72 65 25 0d 06 d6  0c c8 95 20 6d 6f 72 65  |more%...... more|
00001430  25 0d 06 e0 05 da 0d 06  ea 2a c8 99 22 57 69 6d  |%........*.."Wim|
00001440  70 5f 47 65 74 52 65 63  74 61 6e 67 6c 65 22 2c  |p_GetRectangle",|
00001450  30 2c 62 6c 6f 63 6b 25  20 b8 20 6d 6f 72 65 25  |0,block% . more%|
00001460  0d 06 f4 05 ce 0d 06 fe  05 e1 0d 07 08 21 dd f2  |.............!..|
00001470  57 69 63 6f 6e 28 4e 25  2c 58 31 2c 59 31 2c 58  |Wicon(N%,X1,Y1,X|
00001480  32 2c 59 32 2c 42 4c 2c  42 53 29 0d 07 12 1c 70  |2,Y2,BL,BS)....p|
00001490  74 72 25 3d 28 62 6c 6f  63 6b 25 2b 38 38 2b 28  |tr%=(block%+88+(|
000014a0  4e 25 2a 33 32 29 29 0d  07 1c 0c 21 70 74 72 25  |N%*32))....!ptr%|
000014b0  3d 58 31 0d 07 26 0d 70  74 72 25 21 34 3d 59 31  |=X1..&.ptr%!4=Y1|
000014c0  0d 07 30 0d 70 74 72 25  21 38 3d 58 32 0d 07 3a  |..0.ptr%!8=X2..:|
000014d0  0e 70 74 72 25 21 31 32  3d 59 32 0d 07 44 1b 70  |.ptr%!12=Y2..D.p|
000014e0  74 72 25 21 31 36 3d 26  37 30 30 46 31 30 44 2b  |tr%!16=&700F10D+|
000014f0  28 31 3c 3c 35 29 0d 07  4e 26 70 74 72 25 21 32  |(1<<5)..N&ptr%!2|
00001500  30 3d 42 4c 3a 70 74 72  25 21 32 34 3d 2d 31 3a  |0=BL:ptr%!24=-1:|
00001510  70 74 72 25 21 32 38 3d  42 53 3a e1 0d 07 58 16  |ptr%!28=BS:...X.|
00001520  dd f2 54 69 63 6f 6e 28  4e 25 2c 58 2c 59 2c 54  |..Ticon(N%,X,Y,T|
00001530  24 29 0d 07 62 1c 70 74  72 25 3d 28 62 6c 6f 63  |$)..b.ptr%=(bloc|
00001540  6b 25 2b 38 38 2b 28 4e  25 2a 33 32 29 29 0d 07  |k%+88+(N%*32))..|
00001550  6c 0b 21 70 74 72 25 3d  58 0d 07 76 0c 70 74 72  |l.!ptr%=X..v.ptr|
00001560  25 21 34 3d 59 0d 07 80  16 70 74 72 25 21 38 3d  |%!4=Y....ptr%!8=|
00001570  58 2b 31 36 2a a9 54 24  2b 31 36 0d 07 8a 10 70  |X+16*.T$+16....p|
00001580  74 72 25 21 31 32 3d 59  2b 33 32 0d 07 94 12 70  |tr%!12=Y+32....p|
00001590  74 72 25 21 31 36 3d 74  66 6c 61 67 25 0d 07 9e  |tr%!16=tflag%...|
000015a0  13 24 28 70 74 72 25 2b  32 30 29 3d 54 24 3a e1  |.$(ptr%+20)=T$:.|
000015b0  0d 07 a8 10 dd f2 69 6e  66 6f 77 69 6e 64 6f 77  |......infowindow|
000015c0  0d 07 b2 1f f2 54 69 63  6f 6e 28 30 2c 33 32 2c  |.....Ticon(0,32,|
000015d0  31 37 36 2c 22 4e 61 6d  65 20 20 20 3a 22 29 0d  |176,"Name   :").|
000015e0  07 bc 1f f2 54 69 63 6f  6e 28 31 2c 33 32 2c 31  |....Ticon(1,32,1|
000015f0  32 30 2c 22 50 75 72 70  6f 73 65 3a 22 29 0d 07  |20,"Purpose:")..|
00001600  c6 1e f2 54 69 63 6f 6e  28 32 2c 33 32 2c 36 34  |...Ticon(2,32,64|
00001610  2c 22 41 75 74 68 6f 72  20 3a 22 29 0d 07 d0 1d  |,"Author :")....|
00001620  f2 54 69 63 6f 6e 28 33  2c 33 32 2c 38 2c 22 56  |.Ticon(3,32,8,"V|
00001630  65 72 73 69 6f 6e 3a 22  29 0d 07 da 30 24 70 6e  |ersion:")...0$pn|
00001640  6d 3d 22 46 69 6c 65 20  46 69 6e 64 65 72 22 3a  |m="File Finder":|
00001650  f2 42 69 63 6f 6e 28 34  2c 31 39 36 2c 31 37 36  |.Bicon(4,196,176|
00001660  2c 35 35 30 2c 70 6e 6d  29 0d 07 e4 32 24 70 70  |,550,pnm)...2$pp|
00001670  73 3d 22 46 69 6c 65 20  53 65 61 72 63 68 65 72  |s="File Searcher|
00001680  22 3a f2 42 69 63 6f 6e  28 35 2c 31 39 36 2c 31  |":.Bicon(5,196,1|
00001690  32 30 2c 35 35 30 2c 70  70 73 29 0d 07 ee 30 24  |20,550,pps)...0$|
000016a0  61 75 74 3d 22 41 6e 64  72 65 77 20 56 61 77 65  |aut="Andrew Vawe|
000016b0  72 22 3a f2 42 69 63 6f  6e 28 36 2c 31 39 36 2c  |r":.Bicon(6,196,|
000016c0  36 34 2c 35 35 30 2c 61  75 74 29 0d 07 f8 34 24  |64,550,aut)...4$|
000016d0  76 65 72 3d 22 31 2e 33  30 20 28 33 31 20 4f 63  |ver="1.30 (31 Oc|
000016e0  74 20 27 38 39 29 22 3a  f2 42 69 63 6f 6e 28 37  |t '89)":.Bicon(7|
000016f0  2c 31 39 36 2c 38 2c 35  35 30 2c 76 65 72 29 0d  |,196,8,550,ver).|
00001700  08 02 3a 69 6e 66 6f 25  3d a4 63 72 65 61 74 65  |..:info%=.create|
00001710  77 69 6e 64 6f 77 28 69  6e 74 2c 31 34 37 2c 37  |window(int,147,7|
00001720  2c 31 2c 35 38 30 2c 32  33 32 2c 30 2c 30 2c 35  |,1,580,232,0,0,5|
00001730  38 30 2c 32 38 38 2c 38  29 0d 08 0c 05 e1 0d 08  |80,288,8).......|
00001740  16 12 dd f2 73 65 61 72  63 68 77 69 6e 64 6f 77  |....searchwindow|
00001750  0d 08 20 1d f2 54 69 63  6f 6e 28 30 2c 36 34 2c  |.. ..Ticon(0,64,|
00001760  33 32 30 2c 22 44 69 73  63 20 3a 22 29 0d 08 2a  |320,"Disc :")..*|
00001770  1d f2 54 69 63 6f 6e 28  31 2c 36 34 2c 32 35 36  |..Ticon(1,64,256|
00001780  2c 22 46 69 6c 65 20 3a  22 29 0d 08 34 1f f2 42  |,"File :")..4..B|
00001790  69 63 6f 6e 28 32 2c 31  37 36 2c 33 32 30 2c 32  |icon(2,176,320,2|
000017a0  35 36 2c 64 72 69 76 65  29 0d 08 3e 2a f2 62 75  |56,drive)..>*.bu|
000017b0  74 74 6f 6e 28 33 2c bd  31 33 36 2c 32 38 38 2c  |tton(3,.136,288,|
000017c0  33 32 30 2c 33 32 30 2c  33 36 34 2c 37 2c 31 34  |320,320,364,7,14|
000017d0  2c 33 29 0d 08 48 2a f2  62 75 74 74 6f 6e 28 34  |,3)..H*.button(4|
000017e0  2c bd 31 33 37 2c 33 35  32 2c 33 32 30 2c 33 38  |,.137,352,320,38|
000017f0  34 2c 33 36 34 2c 37 2c  31 34 2c 33 29 0d 08 52  |4,364,7,14,3)..R|
00001800  25 f2 57 69 63 6f 6e 28  35 2c 31 37 36 2c 32 35  |%.Wicon(5,176,25|
00001810  36 2c 33 38 34 2c 33 30  30 2c 66 69 6c 65 2c 31  |6,384,300,file,1|
00001820  31 29 0d 08 5c 27 f2 62  75 74 74 6f 6e 28 36 2c  |1)..\'.button(6,|
00001830  22 4f 4b 22 2c 31 32 38  2c 33 32 2c 33 32 30 2c  |"OK",128,32,320,|
00001840  37 36 2c 37 2c 39 2c 34  29 0d 08 66 21 f2 54 69  |76,7,9,4)..f!.Ti|
00001850  63 6f 6e 28 37 2c 31 32  38 2c 39 36 2c 22 50 61  |con(7,128,96,"Pa|
00001860  67 65 64 20 6d 6f 64 65  22 29 0d 08 70 20 f2 54  |ged mode")..p .T|
00001870  69 63 6f 6e 28 38 2c 31  32 38 2c 31 34 36 2c 22  |icon(8,128,146,"|
00001880  50 72 69 6e 74 6f 75 74  22 29 0d 08 7a 1b f2 53  |Printout")..z..S|
00001890  62 75 74 74 6f 6e 28 39  2c 36 34 2c 39 36 2c 70  |button(9,64,96,p|
000018a0  6d 6f 64 65 29 0d 08 84  1c f2 53 62 75 74 74 6f  |mode).....Sbutto|
000018b0  6e 28 31 30 2c 36 34 2c  31 34 36 2c 70 6f 75 74  |n(10,64,146,pout|
000018c0  29 0d 08 8e 21 f2 54 69  63 6f 6e 28 31 31 2c 31  |)...!.Ticon(11,1|
000018d0  36 2c 32 30 30 2c 22 52  6f 6f 74 20 64 69 72 3a  |6,200,"Root dir:|
000018e0  22 29 0d 08 98 27 f2 57  69 63 6f 6e 28 31 32 2c  |")...'.Wicon(12,|
000018f0  31 37 36 2c 32 30 30 2c  33 38 34 2c 32 34 34 2c  |176,200,384,244,|
00001900  72 64 69 72 2c 31 30 31  29 0d 08 a2 3c 73 65 61  |rdir,101)...<sea|
00001910  72 63 68 25 3d a4 63 72  65 61 74 65 77 69 6e 64  |rch%=.createwind|
00001920  6f 77 28 53 54 2c 31 34  37 2c 37 2c 31 2c 34 34  |ow(ST,147,7,1,44|
00001930  38 2c 33 38 36 2c 30 2c  30 2c 34 34 38 2c 33 38  |8,386,0,0,448,38|
00001940  36 2c 31 33 29 0d 08 ac  05 e1 0d 08 b6 18 dd f2  |6,13)...........|
00001950  42 69 63 6f 6e 28 4e 25  2c 58 2c 59 2c 4d 58 2c  |Bicon(N%,X,Y,MX,|
00001960  54 29 0d 08 c0 1c 70 74  72 25 3d 28 62 6c 6f 63  |T)....ptr%=(bloc|
00001970  6b 25 2b 38 38 2b 28 4e  25 2a 33 32 29 29 0d 08  |k%+88+(N%*32))..|
00001980  ca 0b 21 70 74 72 25 3d  58 0d 08 d4 0c 70 74 72  |..!ptr%=X....ptr|
00001990  25 21 34 3d 59 0d 08 de  0d 70 74 72 25 21 38 3d  |%!4=Y....ptr%!8=|
000019a0  4d 58 0d 08 e8 10 70 74  72 25 21 31 32 3d 59 2b  |MX....ptr%!12=Y+|
000019b0  34 34 0d 08 f2 16 70 74  72 25 21 31 36 3d 74 66  |44....ptr%!16=tf|
000019c0  6c 61 67 25 2b 33 30 30  0d 08 fc 26 70 74 72 25  |lag%+300...&ptr%|
000019d0  21 32 30 3d 54 3a 70 74  72 25 21 32 34 3d 2d 31  |!20=T:ptr%!24=-1|
000019e0  3a 70 74 72 25 21 32 38  3d a9 24 54 3a e1 0d 09  |:ptr%!28=.$T:...|
000019f0  06 23 dd f2 62 75 74 74  6f 6e 28 49 25 2c 42 24  |.#..button(I%,B$|
00001a00  2c 58 2c 59 2c 57 2c 48  2c 66 63 2c 62 63 2c 50  |,X,Y,W,H,fc,bc,P|
00001a10  29 0d 09 10 18 70 74 72  25 3d 62 6c 6f 63 6b 25  |)....ptr%=block%|
00001a20  2b 38 38 2b 33 32 2a 49  25 0d 09 1a 4c 21 70 74  |+88+32*I%...L!pt|
00001a30  72 25 3d 58 3a 70 74 72  25 21 34 3d 59 3a 70 74  |r%=X:ptr%!4=Y:pt|
00001a40  72 25 21 38 3d 57 3a 70  74 72 25 21 31 32 3d 48  |r%!8=W:ptr%!12=H|
00001a50  3a 70 74 72 25 21 31 36  3d 34 35 2b 28 50 3c 3c  |:ptr%!16=45+(P<<|
00001a60  31 32 29 2b 28 66 63 3c  3c 32 34 29 2b 28 62 63  |12)+(fc<<24)+(bc|
00001a70  3c 3c 32 38 29 0d 09 24  11 24 28 70 74 72 25 2b  |<<28)..$.$(ptr%+|
00001a80  32 30 29 3d 42 24 0d 09  2e 05 e1 0d 09 38 0d dd  |20)=B$.......8..|
00001a90  f2 65 72 72 28 45 24 29  0d 09 42 2a e7 9f 3d 36  |.err(E$)..B*..=6|
00001aa0  37 37 39 38 20 45 24 3d  22 52 6f 6f 74 20 64 69  |7798 E$="Root di|
00001ab0  72 65 63 74 6f 72 79 20  6e 6f 74 20 66 6f 75 6e  |rectory not foun|
00001ac0  64 22 0d 09 4c 0d 21 65  72 62 6c 6b 25 3d 30 0d  |d"..L.!erblk%=0.|
00001ad0  09 56 12 24 28 65 72 62  6c 6b 25 2b 34 29 3d 45  |.V.$(erblk%+4)=E|
00001ae0  24 0d 09 60 2e c8 99 22  57 69 6d 70 5f 52 65 70  |$..`..."Wimp_Rep|
00001af0  6f 72 74 45 72 72 6f 72  22 2c 65 72 62 6c 6b 25  |ortError",erblk%|
00001b00  2c 2c 22 46 69 6c 65 20  46 69 6e 64 65 72 22 0d  |,,"File Finder".|
00001b10  09 6a 05 e1 0d 09 74 0b  dd f2 72 73 72 63 68 0d  |.j....t...rsrch.|
00001b20  09 7e 13 21 62 6c 6f 63  6b 25 3d 73 65 61 72 63  |.~.!block%=searc|
00001b30  68 25 0d 09 88 0e 62 6c  6f 63 6b 25 21 34 3d 32  |h%....block%!4=2|
00001b40  0d 09 92 0e 62 6c 6f 63  6b 25 21 38 3d 30 0d 09  |....block%!8=0..|
00001b50  9c 0f 62 6c 6f 63 6b 25  21 31 32 3d 30 0d 09 a6  |..block%!12=0...|
00001b60  21 c8 99 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |!.."Wimp_SetIcon|
00001b70  53 74 61 74 65 22 2c 2c  62 6c 6f 63 6b 25 0d 09  |State",,block%..|
00001b80  b0 05 e1 0d 09 ba 0a dd  f2 66 69 6e 64 0d 09 c4  |.........find...|
00001b90  2e e7 20 24 66 69 6c 65  3d 22 22 20 85 20 31 2c  |.. $file="" . 1,|
00001ba0  22 59 6f 75 20 6d 75 73  74 20 65 6e 74 65 72 20  |"You must enter |
00001bb0  61 20 66 69 6c 65 6e 61  6d 65 22 0d 09 ce 3a e7  |a filename"...:.|
00001bc0  20 a7 24 66 69 6c 65 2c  22 2e 22 29 20 85 20 31  | .$file,".") . 1|
00001bd0  2c 22 59 6f 75 20 63 61  6e 27 74 20 73 70 65 63  |,"You can't spec|
00001be0  69 66 79 20 64 69 72 65  63 74 6f 72 69 65 73 20  |ify directories |
00001bf0  68 65 72 65 22 0d 09 d8  36 e7 20 24 72 64 69 72  |here"...6. $rdir|
00001c00  3d 22 22 20 85 20 31 2c  22 59 6f 75 20 6d 75 73  |="" . 1,"You mus|
00001c10  74 20 73 70 65 63 69 66  79 20 61 20 72 6f 6f 74  |t specify a root|
00001c20  20 64 69 72 65 63 74 6f  72 79 22 0d 09 e2 09 2a  | directory"....*|
00001c30  41 44 46 53 0d 09 ec 4c  e7 24 64 72 69 76 65 3d  |ADFS...L.$drive=|
00001c40  22 52 41 4d 22 20 64 24  3d 22 72 61 6d 3a 22 20  |"RAM" d$="ram:" |
00001c50  8b e7 24 64 72 69 76 65  3d 22 4e 45 54 22 20 64  |..$drive="NET" d|
00001c60  24 3d 22 6e 65 74 3a 22  20 8b 20 64 24 3d 22 61  |$="net:" . d$="a|
00001c70  64 66 73 3a 22 2b 24 64  72 69 76 65 2b 22 2e 22  |dfs:"+$drive+"."|
00001c80  0d 09 f6 2e 24 74 69 74  6c 65 3d 22 53 65 61 72  |....$title="Sear|
00001c90  63 68 69 6e 67 20 22 2b  64 24 2b 24 72 64 69 72  |ching "+d$+$rdir|
00001ca0  2b 22 20 66 6f 72 20 22  2b 24 66 69 6c 65 0d 0a  |+" for "+$file..|
00001cb0  00 3a 64 69 73 3d a4 63  72 65 61 74 65 77 69 6e  |.:dis=.createwin|
00001cc0  64 6f 77 28 74 69 74 6c  65 2c 31 34 37 2c 37 2c  |dow(title,147,7,|
00001cd0  30 2c 38 30 30 2c 35 30  30 2c 30 2c 30 2c 38 30  |0,800,500,0,0,80|
00001ce0  30 2c 35 30 30 2c 30 29  0d 0a 0a 0c 6d 6f 70 65  |0,500,0)....mope|
00001cf0  6e 25 3d b9 0d 0a 14 2b  f2 6f 70 65 6e 77 69 6e  |n%=....+.openwin|
00001d00  64 6f 77 28 64 69 73 2c  30 2c 30 2c 38 30 30 2c  |dow(dis,0,0,800,|
00001d10  35 30 30 2c 31 39 32 2c  37 33 36 2c 2d 31 29 0d  |500,192,736,-1).|
00001d20  0a 1e 0c 6d 6f 70 65 6e  25 3d a3 0d 0a 28 0e f2  |...mopen%=...(..|
00001d30  72 65 64 6f 28 64 69 73  29 0d 0a 32 14 ef 32 38  |redo(dis)..2..28|
00001d40  2c 31 32 2c 32 33 2c 36  30 2c 39 2c 34 0d 0a 3c  |,12,23,60,9,4..<|
00001d50  1c e7 20 24 70 6d 6f 64  65 3d 22 79 65 73 22 20  |.. $pmode="yes" |
00001d60  ef 31 34 20 8b 20 ef 31  35 0d 0a 46 13 e7 20 24  |.14 . .15..F.. $|
00001d70  70 6f 75 74 3d 22 79 65  73 22 20 8c 0d 0a 50 5b  |pout="yes" ...P[|
00001d80  e7 20 ac 20 a4 63 70 20  21 62 6c 6f 63 6b 25 3d  |. . .cp !block%=|
00001d90  64 69 73 3a c8 99 22 57  69 6d 70 5f 44 65 6c 65  |dis:.."Wimp_Dele|
00001da0  74 65 57 69 6e 64 6f 77  22 2c 2c 62 6c 6f 63 6b  |teWindow",,block|
00001db0  25 3a 64 69 73 3d 2d 31  3a f2 65 72 72 28 22 50  |%:dis=-1:.err("P|
00001dc0  72 69 6e 74 65 72 20 6e  6f 74 20 6f 6e 20 6c 69  |rinter not on li|
00001dd0  6e 65 2e 22 29 3a e1 0d  0a 5a 06 ef 32 0d 0a 64  |ne."):...Z..2..d|
00001de0  2a f1 22 53 65 61 72 63  68 69 6e 67 20 22 3b 64  |*."Searching ";d|
00001df0  24 3b 24 72 64 69 72 3b  22 20 66 6f 72 20 22 3b  |$;$rdir;" for ";|
00001e00  24 66 69 6c 65 27 27 0d  0a 6e 05 cd 0d 0a 78 12  |$file''..n....x.|
00001e10  64 69 72 24 3d 24 72 64  69 72 2b 22 2e 22 0d 0a  |dir$=$rdir+"."..|
00001e20  82 39 e7 24 64 72 69 76  65 3d 22 52 41 4d 22 20  |.9.$drive="RAM" |
00001e30  84 20 24 64 72 69 76 65  3d 22 4e 45 54 22 20 ff  |. $drive="NET" .|
00001e40  24 64 72 69 76 65 20 8b  20 ff 22 44 69 72 20 22  |$drive . ."Dir "|
00001e50  2b 24 64 72 69 76 65 0d  0a 8c 11 ff 22 44 69 72  |+$drive....."Dir|
00001e60  20 22 2b 24 72 64 69 72  0d 0a 96 39 66 6f 75 6e  | "+$rdir...9foun|
00001e70  64 25 3d 30 3a f2 73 65  61 72 63 68 3a f1 27 3b  |d%=0:.search:.';|
00001e80  66 6f 75 6e 64 25 3b 22  20 66 69 6c 65 22 3b 3a  |found%;" file";:|
00001e90  e7 66 6f 75 6e 64 25 3c  3e 31 20 f1 3b 22 73 22  |.found%<>1 .;"s"|
00001ea0  3b 0d 0a a0 2d f1 3b 22  20 66 6f 75 6e 64 2e 22  |;...-.;" found."|
00001eb0  27 bd 33 22 43 6c 69 63  6b 20 53 65 6c 65 63 74  |'.3"Click Select|
00001ec0  20 74 6f 20 63 6f 6e 74  69 6e 75 65 2e 22 0d 0a  | to continue."..|
00001ed0  aa 06 ef 35 0d 0a b4 17  f5 c8 97 41 2c 42 2c 43  |...5.......A,B,C|
00001ee0  3a fd 28 43 20 80 20 34  29 3d 34 0d 0a be 34 21  |:.(C . 4)=4...4!|
00001ef0  62 6c 6f 63 6b 25 3d 64  69 73 3a c8 99 22 57 69  |block%=dis:.."Wi|
00001f00  6d 70 5f 44 65 6c 65 74  65 57 69 6e 64 6f 77 22  |mp_DeleteWindow"|
00001f10  2c 2c 62 6c 6f 63 6b 25  3a 64 69 73 3d 2d 31 0d  |,,block%:dis=-1.|
00001f20  0a c8 09 2a 41 44 46 53  0d 0a d2 0a 2a 4d 4f 55  |...*ADFS....*MOU|
00001f30  4e 54 0d 0a dc 05 e1 0d  0a e6 0c dd f2 73 65 61  |NT...........sea|
00001f40  72 63 68 0d 0a f0 30 e7  62 6c 6f 63 6b 3d 62 6d  |rch...0.block=bm|
00001f50  61 78 20 85 20 31 2c 22  54 6f 6f 20 6d 61 6e 79  |ax . 1,"Too many|
00001f60  20 64 69 72 65 63 74 6f  72 79 20 6c 65 76 65 6c  | directory level|
00001f70  73 2e 22 0d 0a fa 19 ea  20 71 2c 6f 62 6a 2c 72  |s."..... q,obj,r|
00001f80  65 61 64 2c 74 70 2c 5a  24 2c 64 4c 0d 0b 04 0d  |ead,tp,Z$,dL....|
00001f90  f2 63 68 65 63 6b 64 69  72 0d 0b 0e 33 c8 99 20  |.checkdir...3.. |
00001fa0  22 4f 53 5f 47 42 50 42  22 2c 31 30 2c 22 22 2c  |"OS_GBPB",10,"",|
00001fb0  62 6c 6f 63 6b 2c 37 37  2c 30 2c 32 30 34 38 2c  |block,77,0,2048,|
00001fc0  22 2a 22 20 b8 20 2c 2c  2c 6f 62 6a 0d 0b 18 12  |"*" . ,,,obj....|
00001fd0  e7 6f 62 6a 3d 30 20 ff  22 55 50 22 3a e1 0d 0b  |.obj=0 ."UP":...|
00001fe0  22 0b 71 3d 62 6c 6f 63  6b 0d 0b 2c 11 e3 72 65  |".q=block..,..re|
00001ff0  61 64 3d 30 b8 6f 62 6a  2d 31 0d 0b 36 0a 71 2b  |ad=0.obj-1..6.q+|
00002000  3d 26 31 30 0d 0b 40 09  74 70 3d 21 71 0d 0b 4a  |=&10..@.tp=!q..J|
00002010  08 71 2b 3d 34 0d 0b 54  1d 5a 24 3d 22 22 3a f5  |.q+=4..T.Z$="":.|
00002020  5a 24 2b 3d bd 3f 71 3a  71 2b 3d 31 3a fd 3f 71  |Z$+=.?q:q+=1:.?q|
00002030  3d 30 0d 0b 5e 10 71 3d  71 2b 28 34 2d 71 20 83  |=0..^.q=q+(4-q .|
00002040  34 29 0d 0b 68 59 e7 74  70 3d 32 20 ff 22 44 49  |4)..hY.tp=2 ."DI|
00002050  52 20 22 2b 5a 24 3a 64  4c 3d a9 64 69 72 24 3a  |R "+Z$:dL=.dir$:|
00002060  64 69 72 24 2b 3d 5a 24  2b 22 2e 22 3a 62 6c 6f  |dir$+=Z$+".":blo|
00002070  63 6b 2b 3d 32 30 34 38  3a f2 73 65 61 72 63 68  |ck+=2048:.search|
00002080  3a 62 6c 6f 63 6b 2d 3d  32 30 34 38 3a 64 69 72  |:block-=2048:dir|
00002090  24 3d c0 64 69 72 24 2c  64 4c 29 0d 0b 72 05 ed  |$=.dir$,dL)..r..|
000020a0  0d 0b 7c 07 2a 55 50 0d  0b 86 05 e1 0d 0b 90 0e  |..|.*UP.........|
000020b0  dd f2 63 68 65 63 6b 64  69 72 0d 0b 9a 1a ea 20  |..checkdir..... |
000020c0  71 32 2c 6f 62 6a 32 2c  4e 32 2c 5a 32 24 2c 74  |q2,obj2,N2,Z2$,t|
000020d0  25 2c 74 24 0d 0b a4 35  c8 99 22 4f 53 5f 47 42  |%,t$...5.."OS_GB|
000020e0  50 42 22 2c 39 2c 22 22  2c 62 6c 6f 63 6b 32 2c  |PB",9,"",block2,|
000020f0  37 37 2c 30 2c 31 30 32  34 2c 24 66 69 6c 65 20  |77,0,1024,$file |
00002100  b8 20 2c 2c 2c 6f 62 6a  32 0d 0b ae 1c e7 6f 62  |. ,,,obj2.....ob|
00002110  6a 32 3d 30 20 e1 20 8b  20 66 6f 75 6e 64 25 2b  |j2=0 . . found%+|
00002120  3d 6f 62 6a 32 0d 0b b8  0d 71 32 3d 62 6c 6f 63  |=obj2....q2=bloc|
00002130  6b 32 0d 0b c2 10 e3 4e  32 3d 30 b8 6f 62 6a 32  |k2.....N2=0.obj2|
00002140  2d 31 0d 0b cc 22 5a 32  24 3d 22 22 3a f5 5a 32  |-1..."Z2$="":.Z2|
00002150  24 2b 3d bd 3f 71 32 3a  71 32 2b 3d 31 3a fd 3f  |$+=.?q2:q2+=1:.?|
00002160  71 32 3d 30 0d 0b d6 20  e7 c0 5a 32 24 2c 31 29  |q2=0... ..Z2$,1)|
00002170  3d bd 30 20 5a 32 24 3d  c2 5a 32 24 2c a9 5a 32  |=.0 Z2$=.Z2$,.Z2|
00002180  24 2d 31 29 0d 0b e0 3f  c8 99 22 4f 53 5f 46 69  |$-1)...?.."OS_Fi|
00002190  6c 65 22 2c 26 31 31 2c  64 69 72 24 2b 5a 32 24  |le",&11,dir$+Z2$|
000021a0  20 b8 20 74 25 3a e7 28  74 25 80 33 29 3d 32 20  | . t%:.(t%.3)=2 |
000021b0  74 24 3d 22 20 28 44 69  72 29 22 20 8b 20 74 24  |t$=" (Dir)" . t$|
000021c0  3d 22 22 0d 0b ea 0e f1  64 69 72 24 5a 32 24 74  |="".....dir$Z2$t|
000021d0  24 0d 0b f4 05 ed 0d 0b  fe 05 e1 0d 0c 08 26 dd  |$.............&.|
000021e0  f2 6f 70 65 6e 77 69 6e  64 6f 77 28 48 2c 58 2c  |.openwindow(H,X,|
000021f0  59 2c 58 58 2c 59 59 2c  53 58 2c 53 59 2c 48 32  |Y,XX,YY,SX,SY,H2|
00002200  29 0d 0c 12 a8 21 62 6c  6f 63 6b 25 3d 48 3a e7  |)....!block%=H:.|
00002210  20 6d 6f 70 65 6e 25 20  62 6c 6f 63 6b 25 21 34  | mopen% block%!4|
00002220  3d 58 2b 53 58 3a 62 6c  6f 63 6b 25 21 38 3d 59  |=X+SX:block%!8=Y|
00002230  2b 53 59 2d 59 59 2b 59  3a 62 6c 6f 63 6b 25 21  |+SY-YY+Y:block%!|
00002240  31 32 3d 58 58 2b 53 58  3a 62 6c 6f 63 6b 25 21  |12=XX+SX:block%!|
00002250  31 36 3d 59 59 2b 53 59  2d 59 59 2b 59 3a 62 6c  |16=YY+SY-YY+Y:bl|
00002260  6f 63 6b 25 21 32 30 3d  53 58 3a 62 6c 6f 63 6b  |ock%!20=SX:block|
00002270  25 21 32 34 3d 53 59 20  8b 20 62 6c 6f 63 6b 25  |%!24=SY . block%|
00002280  21 34 3d 58 3a 62 6c 6f  63 6b 25 21 38 3d 59 3a  |!4=X:block%!8=Y:|
00002290  62 6c 6f 63 6b 25 21 31  32 3d 58 58 3a 62 6c 6f  |block%!12=XX:blo|
000022a0  63 6b 25 21 31 36 3d 59  59 0d 0c 1c 10 62 6c 6f  |ck%!16=YY....blo|
000022b0  63 6b 25 21 32 38 3d 48  32 0d 0c 26 1f c8 99 22  |ck%!28=H2..&..."|
000022c0  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
000022d0  2c 2c 62 6c 6f 63 6b 25  0d 0c 30 05 e1 0d 0c 3a  |,,block%..0....:|
000022e0  1f dd f2 6f 70 65 6e 77  69 6e 64 6f 77 32 28 68  |...openwindow2(h|
000022f0  61 6e 64 6c 65 25 2c 6d  65 6d 25 29 0d 0c 44 3e  |andle%,mem%)..D>|
00002300  e7 6d 65 6d 25 3d 62 6c  6f 63 6b 25 20 21 6d 65  |.mem%=block% !me|
00002310  6d 25 3d 68 61 6e 64 6c  65 25 3a c8 99 20 22 57  |m%=handle%:.. "W|
00002320  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
00002330  74 65 22 2c 30 2c 6d 65  6d 25 0d 0c 4e 20 c8 99  |te",0,mem%..N ..|
00002340  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
00002350  22 2c 30 2c 6d 65 6d 25  3a e1 0d 0c 58 0e dd f2  |",0,mem%:...X...|
00002360  63 68 65 63 6b 72 61 6d  0d 0c 62 0b ea 20 72 61  |checkram..b.. ra|
00002370  6d 66 73 0d 0c 6c 27 c8  99 22 4f 53 5f 46 53 43  |mfs..l'.."OS_FSC|
00002380  6f 6e 74 72 6f 6c 22 2c  31 33 2c 22 52 41 4d 22  |ontrol",13,"RAM"|
00002390  20 b8 20 2c 2c 72 61 6d  66 73 0d 0c 76 1e e7 20  | . ,,ramfs..v.. |
000023a0  72 61 6d 66 73 3c 3e 30  20 6d 69 25 3d 30 3a e1  |ramfs<>0 mi%=0:.|
000023b0  20 8b 20 6d 69 25 3d 31  0d 0c 80 20 e7 20 64 72  | . mi%=1... . dr|
000023c0  76 25 3d 30 20 64 72 76  25 3d 31 3a 24 64 72 69  |v%=0 drv%=1:$dri|
000023d0  76 65 3d 66 24 28 31 29  0d 0c 8a 05 e1 0d 0c 94  |ve=f$(1)........|
000023e0  0e dd f2 63 68 65 63 6b  6e 65 74 0d 0c 9e 27 c8  |...checknet...'.|
000023f0  99 22 4f 53 5f 46 53 43  6f 6e 74 72 6f 6c 22 2c  |."OS_FSControl",|
00002400  31 33 2c 22 4e 45 54 22  20 b8 20 2c 2c 6e 65 74  |13,"NET" . ,,net|
00002410  66 73 0d 0c a8 23 e7 20  6e 65 74 66 73 3c 3e 30  |fs...#. netfs<>0|
00002420  20 6d 61 25 2b 3d 31 3a  66 24 28 6d 61 25 29 3d  | ma%+=1:f$(ma%)=|
00002430  22 4e 45 54 22 0d 0c b2  05 e1 0d 0c bc 18 dd f2  |"NET"...........|
00002440  53 62 75 74 74 6f 6e 28  49 25 2c 58 2c 59 2c 53  |Sbutton(I%,X,Y,S|
00002450  4c 29 0d 0c c6 1a 70 74  72 25 3d 62 6c 6f 63 6b  |L)....ptr%=block|
00002460  25 2b 38 38 2b 28 33 32  2a 49 25 29 0d 0c d0 14  |%+88+(32*I%)....|
00002470  21 70 74 72 25 3d 58 3a  70 74 72 25 21 34 3d 59  |!ptr%=X:ptr%!4=Y|
00002480  0d 0c da 0f 70 74 72 25  21 38 3d 58 2b 38 30 0d  |....ptr%!8=X+80.|
00002490  0c e4 10 70 74 72 25 21  31 32 3d 59 2b 34 30 0d  |...ptr%!12=Y+40.|
000024a0  0c ee 21 70 74 72 25 21  31 36 3d 28 31 3c 3c 31  |..!ptr%!16=(1<<1|
000024b0  29 2b 28 31 3c 3c 38 29  2b 28 32 3c 3c 31 32 29  |)+(1<<8)+(2<<12)|
000024c0  0d 0c f8 0e 70 74 72 25  21 32 30 3d 53 4c 0d 0d  |....ptr%!20=SL..|
000024d0  02 0e 70 74 72 25 21 32  34 3d 2d 31 0d 0d 0c 10  |..ptr%!24=-1....|
000024e0  70 74 72 25 21 32 38 3d  a9 24 53 4c 0d 0d 16 05  |ptr%!28=.$SL....|
000024f0  e1 0d 0d 20 08 dd a4 63  70 0d 0d 2a 19 51 25 3d  |... ...cp..*.Q%=|
00002500  96 28 2d 34 29 3a ef 32  2c 31 2c 30 2c 31 2c 30  |.(-4):.2,1,0,1,0|
00002510  2c 33 0d 0d 34 13 e7 51  25 3c 3e 96 28 2d 34 29  |,3..4..Q%<>.(-4)|
00002520  20 8c 20 3d a3 0d 0d 3e  06 3d b9 0d ff           | . =...>.=...|
0000252d