� > <Filer$Dir>.!RunImage
�
version$="1.60 (14-Apr-90)"
(�initialise
2� � �error
<�
F ș"Wimp_Poll",1,q1% � r%
P Ȏ r% �
Z& � 2    : ș"Wimp_OpenWindow",,q1%
d' � 3    : ș"Wimp_CloseWindow",,q1%
n � 6    : �mouseclick
x � 9    : �menuselect
� � 17,18: �receive(r%)
� �
�� �
��
�:
���initialise
�� ***** declare data blocks
�1� 1) workspace for indirected icons & windows
�0maxws%=1024: � ws% maxws%: wsend%=ws%+maxws%
�%� 2) data block for wimp messages
�
� q1% 256
�,� 3) data block for general purpose uses
�� q2% 1024

&� 4) data block for menu structure

0� menufree% &370:menuend% = menufree% + &370

(� ***** initialise program as a task

"-ș"Wimp_Initialise",200,&4B534154,"Filer"

, � ***** get window templates

62ș"Wimp_OpenTemplate",,"<Filer$Dir>.Templates"

@� ***** information window

J=ș"Wimp_LoadTemplate",,q2%,ws%,wsend%,-1,"info",0 � ,,ws%

T$(q2%!(88+96+20))=version$

^&ș"Wimp_CreateWindow",,q2% � info%

h� ***** options window

r@ș"Wimp_LoadTemplate",,q2%,ws%,wsend%,-1,"options",0 � ,,ws%

|)ș"Wimp_CreateWindow",,q2% � options%

�� ***** types window

�>ș"Wimp_LoadTemplate",,q2%,ws%,wsend%,-1,"types",0 � ,,ws%

�'ș"Wimp_CreateWindow",,q2% � types%

�� ***** suffixs window

�?ș"Wimp_LoadTemplate",,q2%,ws%,wsend%,-1,"suffix",0 � ,,ws%

�(ș"Wimp_CreateWindow",,q2% � suffix%

�� ***** confirm window

�@ș"Wimp_LoadTemplate",,q2%,ws%,wsend%,-1,"confirm",0 � ,,ws%

�)ș"Wimp_CreateWindow",,q2% � confirm%

�� ***** wipe opts window

�=ș"Wimp_LoadTemplate",,q2%,ws%,wsend%,-1,"wipe",0 � ,,ws%

�&ș"Wimp_CreateWindow",,q2% � wipe%

�ș"Wimp_CloseTemplate"
� ***** create menu
mainmenu%=�crmenu
l � "#Filer,Info>info%,Options>options%,File Types>types%,Suffix>suffix%,Wipe Opts>wipe%,Park Disks,Quit"
&*� ***** initialise the global variable
0error_flag%=3
:�getmodeinfo
D � ***** and install the icon
N<!q1%=-2:q1%!4=0:q1%!8=0:q1%!12=69:q1%!16=68:q1%!20=&3002
X5$(q1%+24)="!Filer":ș"Wimp_CreateIcon",,q1% � ic%
b�
l:
v��getmodeinfo
�
q1%!0 = 4
�
q1%!4 = 5
�q1%!8 = 11
�q1%!12= 12
�q1%!16= -1
�&ș"OS_ReadVduVariables",q1%,q1%+20
�dx%=1<<(q1%!20)
�dy%=1<<(q1%!24)
�scrx1%=(q1%!28+1)*dx%
�scry1%=(q1%!32+1)*dy%
��
�:
���mouseclick

Ȏq1%!8 �
7�2:   �q1%!12=-2 �domenu(mainmenu%,!q1%-64,96+4*44)
!�4:   �q1%!12=confirm% �rebye
 �
*�
4:
>��domenu(h%,x%,y%)
H$menudata%=h%:menux%=x%:menuy%=y%
R%ș"Wimp_CreateMenu",,h%,x%,y%+132
\�
f:
p��menuselect
z� a$,i%,adjust%
�4ș"Wimp_GetPointerInfo",,q2%:adjust%=(q2%!8 � 1)
�8ș"Wimp_DecodeMenu",,menudata%,q1%,�200," ") � ,,,a$
��a$="" �
��a$="Park Disks" �diskpark
��a$="Quit" �shutdown:�
��
�-�adjust% �domenu(menudata%,menux%,menuy%)
��
�:
�ݤrtoz(p%)
�� q$
�ȕ ?p%<>0 q$+=�?p%:p%+=1:�
�=q$
:
��receive(r%)
Ȏ q1%!16 �
$�      0: �shutdown:�
..�      3: � file dragged from Filer�window
8$             file$=�rtoz(q1%+44)
B.             �checkicon(options%,0) �wipe
LB             �checkicon(options%,1) �("Access "+file$+" WR/")
VD             �checkicon(options%,2) �("Access "+file$+"  LRW/")
`6             �checkicon(options%,3) �stamp(file$)
j4             �checkicon(options%,4) �set(file$)
t5             �checkicon(options%,5) �copy(file$)
~� &400C1: �getmodeinfo
��
��
�:
�ݤcheckicon(window%,icon%)
�7!q2%=window%:q2%!4=icon%:ș"Wimp_GetIconState",,q2%
�=((q2%!24 � 1<<21)<>0)
�:
���shutdown
�ș"Wimp_CloseDown"
��
�:
���error
�error_flag%=3 �

7 �errorbox("Unexpected error :- "+�$+" ("+�(�)+")")
�
 �errorbox(�$)
(�
2error_flag%=3
<�
F:
P��ok(e$)
Zerror_flag%=1
d
� 1,e$
n�
x:
���fatal(e$)
�error_flag%=2
�
� 1,e$
��
�:
���errorbox(r$)
�� r%
�!q1%=�:$(q1%+4)=r$+�0
�J� !q1%=67788 $(q1%+4)="File name to long for this function! Sorry!"+�0
�<ș"Wimp_ReportError",q1%,error_flag%,"Extra Filer" � ,r%
��r%=2 ș"Wimp_CloseDown":�
��
�:
ݤcrmenu
� M%,menu$,m$,I%
6� (menufree%+28>menuend%) �fatal("Menu area full")
"� menu$
,ȕ �menu$,2)="++"
6	 � m$
@ menu$=�menu$,�menu$-2)+m$
J�
Tmenuptr%=menufree%
^I%=0
h=� �menu$,1)="#" I%=1:menutitle$=�par(",") � menutitle$=""
r$menuptr%=menutitle$
|menuptr%?12=7
�menuptr%?13=2
�menuptr%?14=7
�menuptr%?15=1
�menuptr%!16=196
�menuptr%!20=44
�menuptr%!24=0
�menuptr%+=28
�maxx%=�menutitle$-3
��
� item$=�par(",")
� �menuitem(item$)
�� item$=""
�M%=menufree%
M%!16=(maxx%*8+6)*2
menufree%=menuptr%
=M%
&:
0��menuitem(text$)
:� I%,F%,S%,L%
D0� text$="" menuptr%!-24=(menuptr%!-24)�&80:�
N5� (menuptr%+24>menuend%) �fatal("Menu area full")
X
F%=&00
bI%=�text$,">")
l� I%>0 �
v S%=��text$,I%+1)
� text$=�text$,I%-1)
��
�
 S%=-1
��
�)� �text$,1)="#" text$=�text$):F%+=&02
�)� �text$,1)="@" text$=�text$):F%+=&08
�menuptr%!0=F%
�menuptr%!4=S%
�menuptr%!8=&07000021
�� �text$,1)="$" �
� !menuptr%+=&04
� menuptr%!8+=&100
� I%=�text$,"(")

 � I%>0 �
  L%=��text$,I%+1)
  text$=�text$,I%-1)
  �
*  L%=12
4 �
> menuptr%!12=��text$,2)
H menuptr%!16=-1
R menuptr%!20=L%
\ �L%>16 L%=16
f text$=�L%," ")
p�
z �text$<=12�
�  $(menuptr%+12)=text$
� �
�'  I%=�workspace(�text$+1):$I%=text$
�8  menuptr%!12=I%:menuptr%!16=-1:menuptr%!20=�text$+1
�"  menuptr%!8=menuptr%!8 � &100
� �
��
�� �text$>maxx% maxx%=�text$
�menuptr%+=24
��
�:
�ݤpar(sep$)
�� L%
	L%=I%+1
	I%=�menu$+sep$,sep$,L%)
	=�menu$,L%,I%-L%)
	$:
	.ݤworkspace(L%)
	88� curws%+L%>ws%+maxws% � �fatal("No more workspace")
	Bcurws%+=L%
	L=curws%-L%
	V:
	`
��wipe
	j)�checkicon(wipe%,0) �("Wipe "+file$)
	t1�checkicon(wipe%,1) �("Wipe "+file$+" R ~C")
	~�
	�:
	���stamp(file$)
	��check_type("stamp")
	��("Stamp "+file$)
	��
	�:
	���set(file$)
	��check_type("set type")
	�4�checkicon(types%,0) �("Settype "+file$+" ffb")
	�4�checkicon(types%,1) �("Settype "+file$+" fff")
	�4�checkicon(types%,2) �("Settype "+file$+" feb")
	�4�checkicon(types%,3) �("Settype "+file$+" ffe")
4�checkicon(types%,4) �("Settype "+file$+" ffd")

4�checkicon(types%,5) �("Settype "+file$+" ff5")
4�checkicon(types%,6) �("Settype "+file$+" dde")
4�checkicon(types%,7) �("Settype "+file$+" d80")
(�
2:
<��copy(file$)
FB�checkicon(suffix%,0) �("Copy "+file$+" "+file$+"1 ~C S ~V ")
PB�checkicon(suffix%,1) �("Copy "+file$+" "+file$+"2 ~C S ~V ")
ZB�checkicon(suffix%,2) �("Copy "+file$+" "+file$+"3 ~C S ~V ")
dB�checkicon(suffix%,3) �("Copy "+file$+" "+file$+"4 ~C S ~V ")
nB�checkicon(suffix%,4) �("Copy "+file$+" "+file$+"5 ~C S ~V ")
xF�checkicon(suffix%,5) �("Copy "+file$+" "+file$+"-Work ~C S ~V ")
��
�:
���check_type(proc$)
�=�q1%!40=&1000 �ok("Can't "+proc$+" a directory. Sorry! ")
�@�q1%!40=&2000 �ok("Can't "+proc$+" an application. Sorry! ")
��
�:
���diskpark
��("*SHUTDOWN")
�!q2%=confirm%
�q2%!4  =300
�q2%!8  =300
�q2%!12 =1142
q2%!16 =780

q2%!20 =0

q2%!24 =0
"q2%!28 =-1
,ș "Wimp_OpenWindow",,q2%
6�
@:
J��rebye
T�("shutdown")
^�
�

00000000  0d 00 0a 1d f4 20 3e 20  3c 46 69 6c 65 72 24 44  |..... > <Filer$D|
00000010  69 72 3e 2e 21 52 75 6e  49 6d 61 67 65 0d 00 14  |ir>.!RunImage...|
00000020  05 f4 0d 00 1e 1f 76 65  72 73 69 6f 6e 24 3d 22  |......version$="|
00000030  31 2e 36 30 20 28 31 34  2d 41 70 72 2d 39 30 29  |1.60 (14-Apr-90)|
00000040  22 0d 00 28 0f f2 69 6e  69 74 69 61 6c 69 73 65  |"..(..initialise|
00000050  0d 00 32 0e ee 20 85 20  f2 65 72 72 6f 72 0d 00  |..2.. . .error..|
00000060  3c 05 f5 0d 00 46 1d 20  c8 99 22 57 69 6d 70 5f  |<....F. .."Wimp_|
00000070  50 6f 6c 6c 22 2c 31 2c  71 31 25 20 b8 20 72 25  |Poll",1,q1% . r%|
00000080  0d 00 50 0c 20 c8 8e 20  72 25 20 ca 0d 00 5a 26  |..P. .. r% ...Z&|
00000090  20 c9 20 32 20 20 20 20  3a 20 c8 99 22 57 69 6d  | . 2    : .."Wim|
000000a0  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 71  |p_OpenWindow",,q|
000000b0  31 25 0d 00 64 27 20 c9  20 33 20 20 20 20 3a 20  |1%..d' . 3    : |
000000c0  c8 99 22 57 69 6d 70 5f  43 6c 6f 73 65 57 69 6e  |.."Wimp_CloseWin|
000000d0  64 6f 77 22 2c 2c 71 31  25 0d 00 6e 19 20 c9 20  |dow",,q1%..n. . |
000000e0  36 20 20 20 20 3a 20 f2  6d 6f 75 73 65 63 6c 69  |6    : .mousecli|
000000f0  63 6b 0d 00 78 19 20 c9  20 39 20 20 20 20 3a 20  |ck..x. . 9    : |
00000100  f2 6d 65 6e 75 73 65 6c  65 63 74 0d 00 82 1a 20  |.menuselect.... |
00000110  c9 20 31 37 2c 31 38 3a  20 f2 72 65 63 65 69 76  |. 17,18: .receiv|
00000120  65 28 72 25 29 0d 00 8c  06 20 cb 0d 00 96 07 fd  |e(r%).... ......|
00000130  20 a3 0d 00 a0 05 e0 0d  00 aa 05 3a 0d 00 b4 10  | ..........:....|
00000140  dd f2 69 6e 69 74 69 61  6c 69 73 65 0d 00 be 1f  |..initialise....|
00000150  f4 20 2a 2a 2a 2a 2a 20  64 65 63 6c 61 72 65 20  |. ***** declare |
00000160  64 61 74 61 20 62 6c 6f  63 6b 73 0d 00 c8 31 f4  |data blocks...1.|
00000170  20 31 29 20 77 6f 72 6b  73 70 61 63 65 20 66 6f  | 1) workspace fo|
00000180  72 20 69 6e 64 69 72 65  63 74 65 64 20 69 63 6f  |r indirected ico|
00000190  6e 73 20 26 20 77 69 6e  64 6f 77 73 0d 00 d2 30  |ns & windows...0|
000001a0  6d 61 78 77 73 25 3d 31  30 32 34 3a 20 de 20 77  |maxws%=1024: . w|
000001b0  73 25 20 6d 61 78 77 73  25 3a 20 77 73 65 6e 64  |s% maxws%: wsend|
000001c0  25 3d 77 73 25 2b 6d 61  78 77 73 25 0d 00 dc 25  |%=ws%+maxws%...%|
000001d0  f4 20 32 29 20 64 61 74  61 20 62 6c 6f 63 6b 20  |. 2) data block |
000001e0  66 6f 72 20 77 69 6d 70  20 6d 65 73 73 61 67 65  |for wimp message|
000001f0  73 0d 00 e6 0d de 20 71  31 25 20 32 35 36 0d 00  |s..... q1% 256..|
00000200  f0 2c f4 20 33 29 20 64  61 74 61 20 62 6c 6f 63  |.,. 3) data bloc|
00000210  6b 20 66 6f 72 20 67 65  6e 65 72 61 6c 20 70 75  |k for general pu|
00000220  72 70 6f 73 65 20 75 73  65 73 0d 00 fa 0e de 20  |rpose uses..... |
00000230  71 32 25 20 31 30 32 34  0d 01 04 26 f4 20 34 29  |q2% 1024...&. 4)|
00000240  20 64 61 74 61 20 62 6c  6f 63 6b 20 66 6f 72 20  | data block for |
00000250  6d 65 6e 75 20 73 74 72  75 63 74 75 72 65 0d 01  |menu structure..|
00000260  0e 30 de 20 6d 65 6e 75  66 72 65 65 25 20 26 33  |.0. menufree% &3|
00000270  37 30 3a 6d 65 6e 75 65  6e 64 25 20 3d 20 6d 65  |70:menuend% = me|
00000280  6e 75 66 72 65 65 25 20  2b 20 26 33 37 30 0d 01  |nufree% + &370..|
00000290  18 28 f4 20 2a 2a 2a 2a  2a 20 69 6e 69 74 69 61  |.(. ***** initia|
000002a0  6c 69 73 65 20 70 72 6f  67 72 61 6d 20 61 73 20  |lise program as |
000002b0  61 20 74 61 73 6b 0d 01  22 2d c8 99 22 57 69 6d  |a task.."-.."Wim|
000002c0  70 5f 49 6e 69 74 69 61  6c 69 73 65 22 2c 32 30  |p_Initialise",20|
000002d0  30 2c 26 34 42 35 33 34  31 35 34 2c 22 46 69 6c  |0,&4B534154,"Fil|
000002e0  65 72 22 0d 01 2c 20 f4  20 2a 2a 2a 2a 2a 20 67  |er".., . ***** g|
000002f0  65 74 20 77 69 6e 64 6f  77 20 74 65 6d 70 6c 61  |et window templa|
00000300  74 65 73 0d 01 36 32 c8  99 22 57 69 6d 70 5f 4f  |tes..62.."Wimp_O|
00000310  70 65 6e 54 65 6d 70 6c  61 74 65 22 2c 2c 22 3c  |penTemplate",,"<|
00000320  46 69 6c 65 72 24 44 69  72 3e 2e 54 65 6d 70 6c  |Filer$Dir>.Templ|
00000330  61 74 65 73 22 0d 01 40  1e f4 20 2a 2a 2a 2a 2a  |ates"..@.. *****|
00000340  20 69 6e 66 6f 72 6d 61  74 69 6f 6e 20 77 69 6e  | information win|
00000350  64 6f 77 0d 01 4a 3d c8  99 22 57 69 6d 70 5f 4c  |dow..J=.."Wimp_L|
00000360  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 71 32  |oadTemplate",,q2|
00000370  25 2c 77 73 25 2c 77 73  65 6e 64 25 2c 2d 31 2c  |%,ws%,wsend%,-1,|
00000380  22 69 6e 66 6f 22 2c 30  20 b8 20 2c 2c 77 73 25  |"info",0 . ,,ws%|
00000390  0d 01 54 1e 24 28 71 32  25 21 28 38 38 2b 39 36  |..T.$(q2%!(88+96|
000003a0  2b 32 30 29 29 3d 76 65  72 73 69 6f 6e 24 0d 01  |+20))=version$..|
000003b0  5e 26 c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |^&.."Wimp_Create|
000003c0  57 69 6e 64 6f 77 22 2c  2c 71 32 25 20 b8 20 69  |Window",,q2% . i|
000003d0  6e 66 6f 25 0d 01 68 1a  f4 20 2a 2a 2a 2a 2a 20  |nfo%..h.. ***** |
000003e0  6f 70 74 69 6f 6e 73 20  77 69 6e 64 6f 77 0d 01  |options window..|
000003f0  72 40 c8 99 22 57 69 6d  70 5f 4c 6f 61 64 54 65  |r@.."Wimp_LoadTe|
00000400  6d 70 6c 61 74 65 22 2c  2c 71 32 25 2c 77 73 25  |mplate",,q2%,ws%|
00000410  2c 77 73 65 6e 64 25 2c  2d 31 2c 22 6f 70 74 69  |,wsend%,-1,"opti|
00000420  6f 6e 73 22 2c 30 20 b8  20 2c 2c 77 73 25 0d 01  |ons",0 . ,,ws%..|
00000430  7c 29 c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  ||).."Wimp_Create|
00000440  57 69 6e 64 6f 77 22 2c  2c 71 32 25 20 b8 20 6f  |Window",,q2% . o|
00000450  70 74 69 6f 6e 73 25 0d  01 86 18 f4 20 2a 2a 2a  |ptions%..... ***|
00000460  2a 2a 20 74 79 70 65 73  20 77 69 6e 64 6f 77 0d  |** types window.|
00000470  01 90 3e c8 99 22 57 69  6d 70 5f 4c 6f 61 64 54  |..>.."Wimp_LoadT|
00000480  65 6d 70 6c 61 74 65 22  2c 2c 71 32 25 2c 77 73  |emplate",,q2%,ws|
00000490  25 2c 77 73 65 6e 64 25  2c 2d 31 2c 22 74 79 70  |%,wsend%,-1,"typ|
000004a0  65 73 22 2c 30 20 b8 20  2c 2c 77 73 25 0d 01 9a  |es",0 . ,,ws%...|
000004b0  27 c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |'.."Wimp_CreateW|
000004c0  69 6e 64 6f 77 22 2c 2c  71 32 25 20 b8 20 74 79  |indow",,q2% . ty|
000004d0  70 65 73 25 0d 01 a4 1a  f4 20 2a 2a 2a 2a 2a 20  |pes%..... ***** |
000004e0  73 75 66 66 69 78 73 20  77 69 6e 64 6f 77 0d 01  |suffixs window..|
000004f0  ae 3f c8 99 22 57 69 6d  70 5f 4c 6f 61 64 54 65  |.?.."Wimp_LoadTe|
00000500  6d 70 6c 61 74 65 22 2c  2c 71 32 25 2c 77 73 25  |mplate",,q2%,ws%|
00000510  2c 77 73 65 6e 64 25 2c  2d 31 2c 22 73 75 66 66  |,wsend%,-1,"suff|
00000520  69 78 22 2c 30 20 b8 20  2c 2c 77 73 25 0d 01 b8  |ix",0 . ,,ws%...|
00000530  28 c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |(.."Wimp_CreateW|
00000540  69 6e 64 6f 77 22 2c 2c  71 32 25 20 b8 20 73 75  |indow",,q2% . su|
00000550  66 66 69 78 25 0d 01 c2  1a f4 20 2a 2a 2a 2a 2a  |ffix%..... *****|
00000560  20 63 6f 6e 66 69 72 6d  20 77 69 6e 64 6f 77 0d  | confirm window.|
00000570  01 cc 40 c8 99 22 57 69  6d 70 5f 4c 6f 61 64 54  |..@.."Wimp_LoadT|
00000580  65 6d 70 6c 61 74 65 22  2c 2c 71 32 25 2c 77 73  |emplate",,q2%,ws|
00000590  25 2c 77 73 65 6e 64 25  2c 2d 31 2c 22 63 6f 6e  |%,wsend%,-1,"con|
000005a0  66 69 72 6d 22 2c 30 20  b8 20 2c 2c 77 73 25 0d  |firm",0 . ,,ws%.|
000005b0  01 d6 29 c8 99 22 57 69  6d 70 5f 43 72 65 61 74  |..).."Wimp_Creat|
000005c0  65 57 69 6e 64 6f 77 22  2c 2c 71 32 25 20 b8 20  |eWindow",,q2% . |
000005d0  63 6f 6e 66 69 72 6d 25  0d 01 e0 1c f4 20 2a 2a  |confirm%..... **|
000005e0  2a 2a 2a 20 77 69 70 65  20 6f 70 74 73 20 77 69  |*** wipe opts wi|
000005f0  6e 64 6f 77 0d 01 ea 3d  c8 99 22 57 69 6d 70 5f  |ndow...=.."Wimp_|
00000600  4c 6f 61 64 54 65 6d 70  6c 61 74 65 22 2c 2c 71  |LoadTemplate",,q|
00000610  32 25 2c 77 73 25 2c 77  73 65 6e 64 25 2c 2d 31  |2%,ws%,wsend%,-1|
00000620  2c 22 77 69 70 65 22 2c  30 20 b8 20 2c 2c 77 73  |,"wipe",0 . ,,ws|
00000630  25 0d 01 f4 26 c8 99 22  57 69 6d 70 5f 43 72 65  |%...&.."Wimp_Cre|
00000640  61 74 65 57 69 6e 64 6f  77 22 2c 2c 71 32 25 20  |ateWindow",,q2% |
00000650  b8 20 77 69 70 65 25 0d  01 fe 1a c8 99 22 57 69  |. wipe%......"Wi|
00000660  6d 70 5f 43 6c 6f 73 65  54 65 6d 70 6c 61 74 65  |mp_CloseTemplate|
00000670  22 0d 02 08 17 f4 20 2a  2a 2a 2a 2a 20 63 72 65  |"..... ***** cre|
00000680  61 74 65 20 6d 65 6e 75  0d 02 12 15 6d 61 69 6e  |ate menu....main|
00000690  6d 65 6e 75 25 3d a4 63  72 6d 65 6e 75 0d 02 1c  |menu%=.crmenu...|
000006a0  6c 20 dc 20 22 23 46 69  6c 65 72 2c 49 6e 66 6f  |l . "#Filer,Info|
000006b0  3e 69 6e 66 6f 25 2c 4f  70 74 69 6f 6e 73 3e 6f  |>info%,Options>o|
000006c0  70 74 69 6f 6e 73 25 2c  46 69 6c 65 20 54 79 70  |ptions%,File Typ|
000006d0  65 73 3e 74 79 70 65 73  25 2c 53 75 66 66 69 78  |es>types%,Suffix|
000006e0  3e 73 75 66 66 69 78 25  2c 57 69 70 65 20 4f 70  |>suffix%,Wipe Op|
000006f0  74 73 3e 77 69 70 65 25  2c 50 61 72 6b 20 44 69  |ts>wipe%,Park Di|
00000700  73 6b 73 2c 51 75 69 74  22 0d 02 26 2a f4 20 2a  |sks,Quit"..&*. *|
00000710  2a 2a 2a 2a 20 69 6e 69  74 69 61 6c 69 73 65 20  |**** initialise |
00000720  74 68 65 20 67 6c 6f 62  61 6c 20 76 61 72 69 61  |the global varia|
00000730  62 6c 65 0d 02 30 11 65  72 72 6f 72 5f 66 6c 61  |ble..0.error_fla|
00000740  67 25 3d 33 0d 02 3a 10  f2 67 65 74 6d 6f 64 65  |g%=3..:..getmode|
00000750  69 6e 66 6f 0d 02 44 20  f4 20 2a 2a 2a 2a 2a 20  |info..D . ***** |
00000760  61 6e 64 20 69 6e 73 74  61 6c 6c 20 74 68 65 20  |and install the |
00000770  69 63 6f 6e 0d 02 4e 3c  21 71 31 25 3d 2d 32 3a  |icon..N<!q1%=-2:|
00000780  71 31 25 21 34 3d 30 3a  71 31 25 21 38 3d 30 3a  |q1%!4=0:q1%!8=0:|
00000790  71 31 25 21 31 32 3d 36  39 3a 71 31 25 21 31 36  |q1%!12=69:q1%!16|
000007a0  3d 36 38 3a 71 31 25 21  32 30 3d 26 33 30 30 32  |=68:q1%!20=&3002|
000007b0  0d 02 58 35 24 28 71 31  25 2b 32 34 29 3d 22 21  |..X5$(q1%+24)="!|
000007c0  46 69 6c 65 72 22 3a c8  99 22 57 69 6d 70 5f 43  |Filer":.."Wimp_C|
000007d0  72 65 61 74 65 49 63 6f  6e 22 2c 2c 71 31 25 20  |reateIcon",,q1% |
000007e0  b8 20 69 63 25 0d 02 62  05 e1 0d 02 6c 05 3a 0d  |. ic%..b....l.:.|
000007f0  02 76 11 dd f2 67 65 74  6d 6f 64 65 69 6e 66 6f  |.v...getmodeinfo|
00000800  0d 02 80 0d 71 31 25 21  30 20 3d 20 34 0d 02 8a  |....q1%!0 = 4...|
00000810  0d 71 31 25 21 34 20 3d  20 35 0d 02 94 0e 71 31  |.q1%!4 = 5....q1|
00000820  25 21 38 20 3d 20 31 31  0d 02 9e 0e 71 31 25 21  |%!8 = 11....q1%!|
00000830  31 32 3d 20 31 32 0d 02  a8 0e 71 31 25 21 31 36  |12= 12....q1%!16|
00000840  3d 20 2d 31 0d 02 b2 26  c8 99 22 4f 53 5f 52 65  |= -1...&.."OS_Re|
00000850  61 64 56 64 75 56 61 72  69 61 62 6c 65 73 22 2c  |adVduVariables",|
00000860  71 31 25 2c 71 31 25 2b  32 30 0d 02 bc 13 64 78  |q1%,q1%+20....dx|
00000870  25 3d 31 3c 3c 28 71 31  25 21 32 30 29 0d 02 c6  |%=1<<(q1%!20)...|
00000880  13 64 79 25 3d 31 3c 3c  28 71 31 25 21 32 34 29  |.dy%=1<<(q1%!24)|
00000890  0d 02 d0 19 73 63 72 78  31 25 3d 28 71 31 25 21  |....scrx1%=(q1%!|
000008a0  32 38 2b 31 29 2a 64 78  25 0d 02 da 19 73 63 72  |28+1)*dx%....scr|
000008b0  79 31 25 3d 28 71 31 25  21 33 32 2b 31 29 2a 64  |y1%=(q1%!32+1)*d|
000008c0  79 25 0d 02 e4 05 e1 0d  02 ee 05 3a 0d 02 f8 10  |y%.........:....|
000008d0  dd f2 6d 6f 75 73 65 63  6c 69 63 6b 0d 03 02 0d  |..mouseclick....|
000008e0  c8 8e 71 31 25 21 38 20  ca 0d 03 0c 37 c9 32 3a  |..q1%!8 ....7.2:|
000008f0  20 20 20 e7 71 31 25 21  31 32 3d 2d 32 20 f2 64  |   .q1%!12=-2 .d|
00000900  6f 6d 65 6e 75 28 6d 61  69 6e 6d 65 6e 75 25 2c  |omenu(mainmenu%,|
00000910  21 71 31 25 2d 36 34 2c  39 36 2b 34 2a 34 34 29  |!q1%-64,96+4*44)|
00000920  0d 03 16 21 c9 34 3a 20  20 20 e7 71 31 25 21 31  |...!.4:   .q1%!1|
00000930  32 3d 63 6f 6e 66 69 72  6d 25 20 f2 72 65 62 79  |2=confirm% .reby|
00000940  65 0d 03 20 05 cb 0d 03  2a 05 e1 0d 03 34 05 3a  |e.. ....*....4.:|
00000950  0d 03 3e 16 dd f2 64 6f  6d 65 6e 75 28 68 25 2c  |..>...domenu(h%,|
00000960  78 25 2c 79 25 29 0d 03  48 24 6d 65 6e 75 64 61  |x%,y%)..H$menuda|
00000970  74 61 25 3d 68 25 3a 6d  65 6e 75 78 25 3d 78 25  |ta%=h%:menux%=x%|
00000980  3a 6d 65 6e 75 79 25 3d  79 25 0d 03 52 25 c8 99  |:menuy%=y%..R%..|
00000990  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
000009a0  22 2c 2c 68 25 2c 78 25  2c 79 25 2b 31 33 32 0d  |",,h%,x%,y%+132.|
000009b0  03 5c 05 e1 0d 03 66 05  3a 0d 03 70 10 dd f2 6d  |.\....f.:..p...m|
000009c0  65 6e 75 73 65 6c 65 63  74 0d 03 7a 13 ea 20 61  |enuselect..z.. a|
000009d0  24 2c 69 25 2c 61 64 6a  75 73 74 25 0d 03 84 34  |$,i%,adjust%...4|
000009e0  c8 99 22 57 69 6d 70 5f  47 65 74 50 6f 69 6e 74  |.."Wimp_GetPoint|
000009f0  65 72 49 6e 66 6f 22 2c  2c 71 32 25 3a 61 64 6a  |erInfo",,q2%:adj|
00000a00  75 73 74 25 3d 28 71 32  25 21 38 20 80 20 31 29  |ust%=(q2%!8 . 1)|
00000a10  0d 03 8e 38 c8 99 22 57  69 6d 70 5f 44 65 63 6f  |...8.."Wimp_Deco|
00000a20  64 65 4d 65 6e 75 22 2c  2c 6d 65 6e 75 64 61 74  |deMenu",,menudat|
00000a30  61 25 2c 71 31 25 2c c4  32 30 30 2c 22 20 22 29  |a%,q1%,.200," ")|
00000a40  20 b8 20 2c 2c 2c 61 24  0d 03 98 0c e7 61 24 3d  | . ,,,a$.....a$=|
00000a50  22 22 20 e1 0d 03 a2 1e  e7 61 24 3d 22 50 61 72  |"" ......a$="Par|
00000a60  6b 20 44 69 73 6b 73 22  20 f2 64 69 73 6b 70 61  |k Disks" .diskpa|
00000a70  72 6b 0d 03 ac 1a e7 61  24 3d 22 51 75 69 74 22  |rk.....a$="Quit"|
00000a80  20 f2 73 68 75 74 64 6f  77 6e 3a e0 0d 03 b6 05  | .shutdown:.....|
00000a90  cd 0d 03 c0 2d e7 61 64  6a 75 73 74 25 20 f2 64  |....-.adjust% .d|
00000aa0  6f 6d 65 6e 75 28 6d 65  6e 75 64 61 74 61 25 2c  |omenu(menudata%,|
00000ab0  6d 65 6e 75 78 25 2c 6d  65 6e 75 79 25 29 0d 03  |menux%,menuy%)..|
00000ac0  ca 05 e1 0d 03 d4 05 3a  0d 03 de 0e dd a4 72 74  |.......:......rt|
00000ad0  6f 7a 28 70 25 29 0d 03  e8 08 ea 20 71 24 0d 03  |oz(p%)..... q$..|
00000ae0  f2 1e c8 95 20 3f 70 25  3c 3e 30 20 71 24 2b 3d  |.... ?p%<>0 q$+=|
00000af0  bd 3f 70 25 3a 70 25 2b  3d 31 3a ce 0d 03 fc 07  |.?p%:p%+=1:.....|
00000b00  3d 71 24 0d 04 06 05 3a  0d 04 10 11 dd f2 72 65  |=q$....:......re|
00000b10  63 65 69 76 65 28 72 25  29 0d 04 1a 0f c8 8e 20  |ceive(r%)...... |
00000b20  71 31 25 21 31 36 20 ca  0d 04 24 19 c9 20 20 20  |q1%!16 ...$..   |
00000b30  20 20 20 30 3a 20 f2 73  68 75 74 64 6f 77 6e 3a  |   0: .shutdown:|
00000b40  e0 0d 04 2e 2e c9 20 20  20 20 20 20 33 3a 20 f4  |......      3: .|
00000b50  20 66 69 6c 65 20 64 72  61 67 67 65 64 20 66 72  | file dragged fr|
00000b60  6f 6d 20 46 69 6c 65 72  a0 77 69 6e 64 6f 77 0d  |om Filer.window.|
00000b70  04 38 24 20 20 20 20 20  20 20 20 20 20 20 20 20  |.8$             |
00000b80  66 69 6c 65 24 3d a4 72  74 6f 7a 28 71 31 25 2b  |file$=.rtoz(q1%+|
00000b90  34 34 29 0d 04 42 2e 20  20 20 20 20 20 20 20 20  |44)..B.         |
00000ba0  20 20 20 20 e7 a4 63 68  65 63 6b 69 63 6f 6e 28  |    ..checkicon(|
00000bb0  6f 70 74 69 6f 6e 73 25  2c 30 29 20 f2 77 69 70  |options%,0) .wip|
00000bc0  65 0d 04 4c 42 20 20 20  20 20 20 20 20 20 20 20  |e..LB           |
00000bd0  20 20 e7 a4 63 68 65 63  6b 69 63 6f 6e 28 6f 70  |  ..checkicon(op|
00000be0  74 69 6f 6e 73 25 2c 31  29 20 ff 28 22 41 63 63  |tions%,1) .("Acc|
00000bf0  65 73 73 20 22 2b 66 69  6c 65 24 2b 22 20 57 52  |ess "+file$+" WR|
00000c00  2f 22 29 0d 04 56 44 20  20 20 20 20 20 20 20 20  |/")..VD         |
00000c10  20 20 20 20 e7 a4 63 68  65 63 6b 69 63 6f 6e 28  |    ..checkicon(|
00000c20  6f 70 74 69 6f 6e 73 25  2c 32 29 20 ff 28 22 41  |options%,2) .("A|
00000c30  63 63 65 73 73 20 22 2b  66 69 6c 65 24 2b 22 20  |ccess "+file$+" |
00000c40  20 4c 52 57 2f 22 29 0d  04 60 36 20 20 20 20 20  | LRW/")..`6     |
00000c50  20 20 20 20 20 20 20 20  e7 a4 63 68 65 63 6b 69  |        ..checki|
00000c60  63 6f 6e 28 6f 70 74 69  6f 6e 73 25 2c 33 29 20  |con(options%,3) |
00000c70  f2 73 74 61 6d 70 28 66  69 6c 65 24 29 0d 04 6a  |.stamp(file$)..j|
00000c80  34 20 20 20 20 20 20 20  20 20 20 20 20 20 e7 a4  |4             ..|
00000c90  63 68 65 63 6b 69 63 6f  6e 28 6f 70 74 69 6f 6e  |checkicon(option|
00000ca0  73 25 2c 34 29 20 f2 73  65 74 28 66 69 6c 65 24  |s%,4) .set(file$|
00000cb0  29 0d 04 74 35 20 20 20  20 20 20 20 20 20 20 20  |)..t5           |
00000cc0  20 20 e7 a4 63 68 65 63  6b 69 63 6f 6e 28 6f 70  |  ..checkicon(op|
00000cd0  74 69 6f 6e 73 25 2c 35  29 20 f2 63 6f 70 79 28  |tions%,5) .copy(|
00000ce0  66 69 6c 65 24 29 0d 04  7e 1a c9 20 26 34 30 30  |file$)..~.. &400|
00000cf0  43 31 3a 20 f2 67 65 74  6d 6f 64 65 69 6e 66 6f  |C1: .getmodeinfo|
00000d00  0d 04 88 05 cb 0d 04 92  05 e1 0d 04 9c 05 3a 0d  |..............:.|
00000d10  04 a6 1e dd a4 63 68 65  63 6b 69 63 6f 6e 28 77  |.....checkicon(w|
00000d20  69 6e 64 6f 77 25 2c 69  63 6f 6e 25 29 0d 04 b0  |indow%,icon%)...|
00000d30  37 21 71 32 25 3d 77 69  6e 64 6f 77 25 3a 71 32  |7!q2%=window%:q2|
00000d40  25 21 34 3d 69 63 6f 6e  25 3a c8 99 22 57 69 6d  |%!4=icon%:.."Wim|
00000d50  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00000d60  2c 71 32 25 0d 04 ba 1a  3d 28 28 71 32 25 21 32  |,q2%....=((q2%!2|
00000d70  34 20 80 20 31 3c 3c 32  31 29 3c 3e 30 29 0d 04  |4 . 1<<21)<>0)..|
00000d80  c4 05 3a 0d 04 ce 0e dd  f2 73 68 75 74 64 6f 77  |..:......shutdow|
00000d90  6e 0d 04 d8 16 c8 99 22  57 69 6d 70 5f 43 6c 6f  |n......"Wimp_Clo|
00000da0  73 65 44 6f 77 6e 22 0d  04 e2 05 e1 0d 04 ec 05  |seDown".........|
00000db0  3a 0d 04 f6 0b dd f2 65  72 72 6f 72 0d 05 00 14  |:......error....|
00000dc0  e7 65 72 72 6f 72 5f 66  6c 61 67 25 3d 33 20 8c  |.error_flag%=3 .|
00000dd0  0d 05 0a 37 20 f2 65 72  72 6f 72 62 6f 78 28 22  |...7 .errorbox("|
00000de0  55 6e 65 78 70 65 63 74  65 64 20 65 72 72 6f 72  |Unexpected error|
00000df0  20 3a 2d 20 22 2b f6 24  2b 22 20 28 22 2b c3 28  | :- "+.$+" ("+.(|
00000e00  9e 29 2b 22 29 22 29 0d  05 14 05 cc 0d 05 1e 12  |.)+")").........|
00000e10  20 f2 65 72 72 6f 72 62  6f 78 28 f6 24 29 0d 05  | .errorbox(.$)..|
00000e20  28 05 cd 0d 05 32 11 65  72 72 6f 72 5f 66 6c 61  |(....2.error_fla|
00000e30  67 25 3d 33 0d 05 3c 05  e1 0d 05 46 05 3a 0d 05  |g%=3..<....F.:..|
00000e40  50 0c dd f2 6f 6b 28 65  24 29 0d 05 5a 11 65 72  |P...ok(e$)..Z.er|
00000e50  72 6f 72 5f 66 6c 61 67  25 3d 31 0d 05 64 0a 85  |ror_flag%=1..d..|
00000e60  20 31 2c 65 24 0d 05 6e  05 e1 0d 05 78 05 3a 0d  | 1,e$..n....x.:.|
00000e70  05 82 0f dd f2 66 61 74  61 6c 28 65 24 29 0d 05  |.....fatal(e$)..|
00000e80  8c 11 65 72 72 6f 72 5f  66 6c 61 67 25 3d 32 0d  |..error_flag%=2.|
00000e90  05 96 0a 85 20 31 2c 65  24 0d 05 a0 05 e1 0d 05  |.... 1,e$.......|
00000ea0  aa 05 3a 0d 05 b4 12 dd  f2 65 72 72 6f 72 62 6f  |..:......errorbo|
00000eb0  78 28 72 24 29 0d 05 be  08 ea 20 72 25 0d 05 c8  |x(r$)..... r%...|
00000ec0  19 21 71 31 25 3d 9f 3a  24 28 71 31 25 2b 34 29  |.!q1%=.:$(q1%+4)|
00000ed0  3d 72 24 2b bd 30 0d 05  d2 4a e7 20 21 71 31 25  |=r$+.0...J. !q1%|
00000ee0  3d 36 37 37 38 38 20 24  28 71 31 25 2b 34 29 3d  |=67788 $(q1%+4)=|
00000ef0  22 46 69 6c 65 20 6e 61  6d 65 20 74 6f 20 6c 6f  |"File name to lo|
00000f00  6e 67 20 66 6f 72 20 74  68 69 73 20 66 75 6e 63  |ng for this func|
00000f10  74 69 6f 6e 21 20 53 6f  72 72 79 21 22 2b bd 30  |tion! Sorry!"+.0|
00000f20  0d 05 dc 3c c8 99 22 57  69 6d 70 5f 52 65 70 6f  |...<.."Wimp_Repo|
00000f30  72 74 45 72 72 6f 72 22  2c 71 31 25 2c 65 72 72  |rtError",q1%,err|
00000f40  6f 72 5f 66 6c 61 67 25  2c 22 45 78 74 72 61 20  |or_flag%,"Extra |
00000f50  46 69 6c 65 72 22 20 b8  20 2c 72 25 0d 05 e6 1e  |Filer" . ,r%....|
00000f60  e7 72 25 3d 32 20 c8 99  22 57 69 6d 70 5f 43 6c  |.r%=2 .."Wimp_Cl|
00000f70  6f 73 65 44 6f 77 6e 22  3a e0 0d 05 f0 05 e1 0d  |oseDown":.......|
00000f80  05 fa 05 3a 0d 06 04 0c  dd a4 63 72 6d 65 6e 75  |...:......crmenu|
00000f90  0d 06 0e 14 ea 20 4d 25  2c 6d 65 6e 75 24 2c 6d  |..... M%,menu$,m|
00000fa0  24 2c 49 25 0d 06 18 36  e7 20 28 6d 65 6e 75 66  |$,I%...6. (menuf|
00000fb0  72 65 65 25 2b 32 38 3e  6d 65 6e 75 65 6e 64 25  |ree%+28>menuend%|
00000fc0  29 20 f2 66 61 74 61 6c  28 22 4d 65 6e 75 20 61  |) .fatal("Menu a|
00000fd0  72 65 61 20 66 75 6c 6c  22 29 0d 06 22 0b f3 20  |rea full")..".. |
00000fe0  6d 65 6e 75 24 0d 06 2c  15 c8 95 20 c2 6d 65 6e  |menu$..,... .men|
00000ff0  75 24 2c 32 29 3d 22 2b  2b 22 0d 06 36 09 20 f3  |u$,2)="++"..6. .|
00001000  20 6d 24 0d 06 40 1e 20  6d 65 6e 75 24 3d c0 6d  | m$..@. menu$=.m|
00001010  65 6e 75 24 2c a9 6d 65  6e 75 24 2d 32 29 2b 6d  |enu$,.menu$-2)+m|
00001020  24 0d 06 4a 05 ce 0d 06  54 16 6d 65 6e 75 70 74  |$..J....T.menupt|
00001030  72 25 3d 6d 65 6e 75 66  72 65 65 25 0d 06 5e 08  |r%=menufree%..^.|
00001040  49 25 3d 30 0d 06 68 3d  e7 20 c0 6d 65 6e 75 24  |I%=0..h=. .menu$|
00001050  2c 31 29 3d 22 23 22 20  49 25 3d 31 3a 6d 65 6e  |,1)="#" I%=1:men|
00001060  75 74 69 74 6c 65 24 3d  a4 70 61 72 28 22 2c 22  |utitle$=.par(","|
00001070  29 20 8b 20 6d 65 6e 75  74 69 74 6c 65 24 3d 22  |) . menutitle$="|
00001080  22 0d 06 72 18 24 6d 65  6e 75 70 74 72 25 3d 6d  |"..r.$menuptr%=m|
00001090  65 6e 75 74 69 74 6c 65  24 0d 06 7c 11 6d 65 6e  |enutitle$..|.men|
000010a0  75 70 74 72 25 3f 31 32  3d 37 0d 06 86 11 6d 65  |uptr%?12=7....me|
000010b0  6e 75 70 74 72 25 3f 31  33 3d 32 0d 06 90 11 6d  |nuptr%?13=2....m|
000010c0  65 6e 75 70 74 72 25 3f  31 34 3d 37 0d 06 9a 11  |enuptr%?14=7....|
000010d0  6d 65 6e 75 70 74 72 25  3f 31 35 3d 31 0d 06 a4  |menuptr%?15=1...|
000010e0  13 6d 65 6e 75 70 74 72  25 21 31 36 3d 31 39 36  |.menuptr%!16=196|
000010f0  0d 06 ae 12 6d 65 6e 75  70 74 72 25 21 32 30 3d  |....menuptr%!20=|
00001100  34 34 0d 06 b8 11 6d 65  6e 75 70 74 72 25 21 32  |44....menuptr%!2|
00001110  34 3d 30 0d 06 c2 10 6d  65 6e 75 70 74 72 25 2b  |4=0....menuptr%+|
00001120  3d 32 38 0d 06 cc 17 6d  61 78 78 25 3d a9 6d 65  |=28....maxx%=.me|
00001130  6e 75 74 69 74 6c 65 24  2d 33 0d 06 d6 05 f5 0d  |nutitle$-3......|
00001140  06 e0 14 20 69 74 65 6d  24 3d a4 70 61 72 28 22  |... item$=.par("|
00001150  2c 22 29 0d 06 ea 15 20  f2 6d 65 6e 75 69 74 65  |,").... .menuite|
00001160  6d 28 69 74 65 6d 24 29  0d 06 f4 0e fd 20 69 74  |m(item$)..... it|
00001170  65 6d 24 3d 22 22 0d 06  fe 10 4d 25 3d 6d 65 6e  |em$=""....M%=men|
00001180  75 66 72 65 65 25 0d 07  08 17 4d 25 21 31 36 3d  |ufree%....M%!16=|
00001190  28 6d 61 78 78 25 2a 38  2b 36 29 2a 32 0d 07 12  |(maxx%*8+6)*2...|
000011a0  16 6d 65 6e 75 66 72 65  65 25 3d 6d 65 6e 75 70  |.menufree%=menup|
000011b0  74 72 25 0d 07 1c 07 3d  4d 25 0d 07 26 05 3a 0d  |tr%....=M%..&.:.|
000011c0  07 30 15 dd f2 6d 65 6e  75 69 74 65 6d 28 74 65  |.0...menuitem(te|
000011d0  78 74 24 29 0d 07 3a 11  ea 20 49 25 2c 46 25 2c  |xt$)..:.. I%,F%,|
000011e0  53 25 2c 4c 25 0d 07 44  30 e7 20 74 65 78 74 24  |S%,L%..D0. text$|
000011f0  3d 22 22 20 6d 65 6e 75  70 74 72 25 21 2d 32 34  |="" menuptr%!-24|
00001200  3d 28 6d 65 6e 75 70 74  72 25 21 2d 32 34 29 84  |=(menuptr%!-24).|
00001210  26 38 30 3a e1 0d 07 4e  35 e7 20 28 6d 65 6e 75  |&80:...N5. (menu|
00001220  70 74 72 25 2b 32 34 3e  6d 65 6e 75 65 6e 64 25  |ptr%+24>menuend%|
00001230  29 20 f2 66 61 74 61 6c  28 22 4d 65 6e 75 20 61  |) .fatal("Menu a|
00001240  72 65 61 20 66 75 6c 6c  22 29 0d 07 58 0a 46 25  |rea full")..X.F%|
00001250  3d 26 30 30 0d 07 62 12  49 25 3d a7 74 65 78 74  |=&00..b.I%=.text|
00001260  24 2c 22 3e 22 29 0d 07  6c 0c e7 20 49 25 3e 30  |$,">")..l.. I%>0|
00001270  20 8c 0d 07 76 15 20 53  25 3d a0 c1 74 65 78 74  | ...v. S%=..text|
00001280  24 2c 49 25 2b 31 29 0d  07 80 17 20 74 65 78 74  |$,I%+1).... text|
00001290  24 3d c0 74 65 78 74 24  2c 49 25 2d 31 29 0d 07  |$=.text$,I%-1)..|
000012a0  8a 05 cc 0d 07 94 0a 20  53 25 3d 2d 31 0d 07 9e  |....... S%=-1...|
000012b0  05 cd 0d 07 a8 29 e7 20  c2 74 65 78 74 24 2c 31  |.....). .text$,1|
000012c0  29 3d 22 23 22 20 74 65  78 74 24 3d c0 74 65 78  |)="#" text$=.tex|
000012d0  74 24 29 3a 46 25 2b 3d  26 30 32 0d 07 b2 29 e7  |t$):F%+=&02...).|
000012e0  20 c2 74 65 78 74 24 2c  31 29 3d 22 40 22 20 74  | .text$,1)="@" t|
000012f0  65 78 74 24 3d c0 74 65  78 74 24 29 3a 46 25 2b  |ext$=.text$):F%+|
00001300  3d 26 30 38 0d 07 bc 11  6d 65 6e 75 70 74 72 25  |=&08....menuptr%|
00001310  21 30 3d 46 25 0d 07 c6  11 6d 65 6e 75 70 74 72  |!0=F%....menuptr|
00001320  25 21 34 3d 53 25 0d 07  d0 18 6d 65 6e 75 70 74  |%!4=S%....menupt|
00001330  72 25 21 38 3d 26 30 37  30 30 30 30 32 31 0d 07  |r%!8=&07000021..|
00001340  da 15 e7 20 c0 74 65 78  74 24 2c 31 29 3d 22 24  |... .text$,1)="$|
00001350  22 20 8c 0d 07 e4 13 20  21 6d 65 6e 75 70 74 72  |" ..... !menuptr|
00001360  25 2b 3d 26 30 34 0d 07  ee 15 20 6d 65 6e 75 70  |%+=&04.... menup|
00001370  74 72 25 21 38 2b 3d 26  31 30 30 0d 07 f8 13 20  |tr%!8+=&100.... |
00001380  49 25 3d a7 74 65 78 74  24 2c 22 28 22 29 0d 08  |I%=.text$,"(")..|
00001390  02 0d 20 e7 20 49 25 3e  30 20 8c 0d 08 0c 16 20  |.. . I%>0 ..... |
000013a0  20 4c 25 3d bb c1 74 65  78 74 24 2c 49 25 2b 31  | L%=..text$,I%+1|
000013b0  29 0d 08 16 18 20 20 74  65 78 74 24 3d c0 74 65  |)....  text$=.te|
000013c0  78 74 24 2c 49 25 2d 31  29 0d 08 20 06 20 cc 0d  |xt$,I%-1).. . ..|
000013d0  08 2a 0b 20 20 4c 25 3d  31 32 0d 08 34 06 20 cd  |.*.  L%=12..4. .|
000013e0  0d 08 3e 1b 20 6d 65 6e  75 70 74 72 25 21 31 32  |..>. menuptr%!12|
000013f0  3d a0 c1 74 65 78 74 24  2c 32 29 0d 08 48 13 20  |=..text$,2)..H. |
00001400  6d 65 6e 75 70 74 72 25  21 31 36 3d 2d 31 0d 08  |menuptr%!16=-1..|
00001410  52 13 20 6d 65 6e 75 70  74 72 25 21 32 30 3d 4c  |R. menuptr%!20=L|
00001420  25 0d 08 5c 11 20 e7 4c  25 3e 31 36 20 4c 25 3d  |%..\. .L%>16 L%=|
00001430  31 36 0d 08 66 13 20 74  65 78 74 24 3d c4 4c 25  |16..f. text$=.L%|
00001440  2c 22 20 22 29 0d 08 70  05 cc 0d 08 7a 11 20 e7  |," ")..p....z. .|
00001450  a9 74 65 78 74 24 3c 3d  31 32 8c 0d 08 84 1a 20  |.text$<=12..... |
00001460  20 24 28 6d 65 6e 75 70  74 72 25 2b 31 32 29 3d  | $(menuptr%+12)=|
00001470  74 65 78 74 24 0d 08 8e  06 20 cc 0d 08 98 27 20  |text$.... ....' |
00001480  20 49 25 3d a4 77 6f 72  6b 73 70 61 63 65 28 a9  | I%=.workspace(.|
00001490  74 65 78 74 24 2b 31 29  3a 24 49 25 3d 74 65 78  |text$+1):$I%=tex|
000014a0  74 24 0d 08 a2 38 20 20  6d 65 6e 75 70 74 72 25  |t$...8  menuptr%|
000014b0  21 31 32 3d 49 25 3a 6d  65 6e 75 70 74 72 25 21  |!12=I%:menuptr%!|
000014c0  31 36 3d 2d 31 3a 6d 65  6e 75 70 74 72 25 21 32  |16=-1:menuptr%!2|
000014d0  30 3d a9 74 65 78 74 24  2b 31 0d 08 ac 22 20 20  |0=.text$+1..."  |
000014e0  6d 65 6e 75 70 74 72 25  21 38 3d 6d 65 6e 75 70  |menuptr%!8=menup|
000014f0  74 72 25 21 38 20 84 20  26 31 30 30 0d 08 b6 06  |tr%!8 . &100....|
00001500  20 cd 0d 08 c0 05 cd 0d  08 ca 1f e7 20 a9 74 65  | ........... .te|
00001510  78 74 24 3e 6d 61 78 78  25 20 6d 61 78 78 25 3d  |xt$>maxx% maxx%=|
00001520  a9 74 65 78 74 24 0d 08  d4 10 6d 65 6e 75 70 74  |.text$....menupt|
00001530  72 25 2b 3d 32 34 0d 08  de 05 e1 0d 08 e8 05 3a  |r%+=24.........:|
00001540  0d 08 f2 0f dd a4 70 61  72 28 73 65 70 24 29 0d  |......par(sep$).|
00001550  08 fc 08 ea 20 4c 25 0d  09 06 0b 4c 25 3d 49 25  |.... L%....L%=I%|
00001560  2b 31 0d 09 10 1b 49 25  3d a7 6d 65 6e 75 24 2b  |+1....I%=.menu$+|
00001570  73 65 70 24 2c 73 65 70  24 2c 4c 25 29 0d 09 1a  |sep$,sep$,L%)...|
00001580  15 3d c1 6d 65 6e 75 24  2c 4c 25 2c 49 25 2d 4c  |.=.menu$,L%,I%-L|
00001590  25 29 0d 09 24 05 3a 0d  09 2e 13 dd a4 77 6f 72  |%)..$.:......wor|
000015a0  6b 73 70 61 63 65 28 4c  25 29 0d 09 38 38 e7 20  |kspace(L%)..88. |
000015b0  63 75 72 77 73 25 2b 4c  25 3e 77 73 25 2b 6d 61  |curws%+L%>ws%+ma|
000015c0  78 77 73 25 20 8c 20 f2  66 61 74 61 6c 28 22 4e  |xws% . .fatal("N|
000015d0  6f 20 6d 6f 72 65 20 77  6f 72 6b 73 70 61 63 65  |o more workspace|
000015e0  22 29 0d 09 42 0e 63 75  72 77 73 25 2b 3d 4c 25  |")..B.curws%+=L%|
000015f0  0d 09 4c 0e 3d 63 75 72  77 73 25 2d 4c 25 0d 09  |..L.=curws%-L%..|
00001600  56 05 3a 0d 09 60 0a dd  f2 77 69 70 65 0d 09 6a  |V.:..`...wipe..j|
00001610  29 e7 a4 63 68 65 63 6b  69 63 6f 6e 28 77 69 70  |)..checkicon(wip|
00001620  65 25 2c 30 29 20 ff 28  22 57 69 70 65 20 22 2b  |e%,0) .("Wipe "+|
00001630  66 69 6c 65 24 29 0d 09  74 31 e7 a4 63 68 65 63  |file$)..t1..chec|
00001640  6b 69 63 6f 6e 28 77 69  70 65 25 2c 31 29 20 ff  |kicon(wipe%,1) .|
00001650  28 22 57 69 70 65 20 22  2b 66 69 6c 65 24 2b 22  |("Wipe "+file$+"|
00001660  20 52 20 7e 43 22 29 0d  09 7e 05 e1 0d 09 88 05  | R ~C")..~......|
00001670  3a 0d 09 92 12 dd f2 73  74 61 6d 70 28 66 69 6c  |:......stamp(fil|
00001680  65 24 29 0d 09 9c 18 f2  63 68 65 63 6b 5f 74 79  |e$).....check_ty|
00001690  70 65 28 22 73 74 61 6d  70 22 29 0d 09 a6 15 ff  |pe("stamp").....|
000016a0  28 22 53 74 61 6d 70 20  22 2b 66 69 6c 65 24 29  |("Stamp "+file$)|
000016b0  0d 09 b0 05 e1 0d 09 ba  05 3a 0d 09 c4 10 dd f2  |.........:......|
000016c0  73 65 74 28 66 69 6c 65  24 29 0d 09 ce 1b f2 63  |set(file$).....c|
000016d0  68 65 63 6b 5f 74 79 70  65 28 22 73 65 74 20 74  |heck_type("set t|
000016e0  79 70 65 22 29 0d 09 d8  34 e7 a4 63 68 65 63 6b  |ype")...4..check|
000016f0  69 63 6f 6e 28 74 79 70  65 73 25 2c 30 29 20 ff  |icon(types%,0) .|
00001700  28 22 53 65 74 74 79 70  65 20 22 2b 66 69 6c 65  |("Settype "+file|
00001710  24 2b 22 20 66 66 62 22  29 0d 09 e2 34 e7 a4 63  |$+" ffb")...4..c|
00001720  68 65 63 6b 69 63 6f 6e  28 74 79 70 65 73 25 2c  |heckicon(types%,|
00001730  31 29 20 ff 28 22 53 65  74 74 79 70 65 20 22 2b  |1) .("Settype "+|
00001740  66 69 6c 65 24 2b 22 20  66 66 66 22 29 0d 09 ec  |file$+" fff")...|
00001750  34 e7 a4 63 68 65 63 6b  69 63 6f 6e 28 74 79 70  |4..checkicon(typ|
00001760  65 73 25 2c 32 29 20 ff  28 22 53 65 74 74 79 70  |es%,2) .("Settyp|
00001770  65 20 22 2b 66 69 6c 65  24 2b 22 20 66 65 62 22  |e "+file$+" feb"|
00001780  29 0d 09 f6 34 e7 a4 63  68 65 63 6b 69 63 6f 6e  |)...4..checkicon|
00001790  28 74 79 70 65 73 25 2c  33 29 20 ff 28 22 53 65  |(types%,3) .("Se|
000017a0  74 74 79 70 65 20 22 2b  66 69 6c 65 24 2b 22 20  |ttype "+file$+" |
000017b0  66 66 65 22 29 0d 0a 00  34 e7 a4 63 68 65 63 6b  |ffe")...4..check|
000017c0  69 63 6f 6e 28 74 79 70  65 73 25 2c 34 29 20 ff  |icon(types%,4) .|
000017d0  28 22 53 65 74 74 79 70  65 20 22 2b 66 69 6c 65  |("Settype "+file|
000017e0  24 2b 22 20 66 66 64 22  29 0d 0a 0a 34 e7 a4 63  |$+" ffd")...4..c|
000017f0  68 65 63 6b 69 63 6f 6e  28 74 79 70 65 73 25 2c  |heckicon(types%,|
00001800  35 29 20 ff 28 22 53 65  74 74 79 70 65 20 22 2b  |5) .("Settype "+|
00001810  66 69 6c 65 24 2b 22 20  66 66 35 22 29 0d 0a 14  |file$+" ff5")...|
00001820  34 e7 a4 63 68 65 63 6b  69 63 6f 6e 28 74 79 70  |4..checkicon(typ|
00001830  65 73 25 2c 36 29 20 ff  28 22 53 65 74 74 79 70  |es%,6) .("Settyp|
00001840  65 20 22 2b 66 69 6c 65  24 2b 22 20 64 64 65 22  |e "+file$+" dde"|
00001850  29 0d 0a 1e 34 e7 a4 63  68 65 63 6b 69 63 6f 6e  |)...4..checkicon|
00001860  28 74 79 70 65 73 25 2c  37 29 20 ff 28 22 53 65  |(types%,7) .("Se|
00001870  74 74 79 70 65 20 22 2b  66 69 6c 65 24 2b 22 20  |ttype "+file$+" |
00001880  64 38 30 22 29 0d 0a 28  05 e1 0d 0a 32 05 3a 0d  |d80")..(....2.:.|
00001890  0a 3c 11 dd f2 63 6f 70  79 28 66 69 6c 65 24 29  |.<...copy(file$)|
000018a0  0d 0a 46 42 e7 a4 63 68  65 63 6b 69 63 6f 6e 28  |..FB..checkicon(|
000018b0  73 75 66 66 69 78 25 2c  30 29 20 ff 28 22 43 6f  |suffix%,0) .("Co|
000018c0  70 79 20 22 2b 66 69 6c  65 24 2b 22 20 22 2b 66  |py "+file$+" "+f|
000018d0  69 6c 65 24 2b 22 31 20  7e 43 20 53 20 7e 56 20  |ile$+"1 ~C S ~V |
000018e0  22 29 0d 0a 50 42 e7 a4  63 68 65 63 6b 69 63 6f  |")..PB..checkico|
000018f0  6e 28 73 75 66 66 69 78  25 2c 31 29 20 ff 28 22  |n(suffix%,1) .("|
00001900  43 6f 70 79 20 22 2b 66  69 6c 65 24 2b 22 20 22  |Copy "+file$+" "|
00001910  2b 66 69 6c 65 24 2b 22  32 20 7e 43 20 53 20 7e  |+file$+"2 ~C S ~|
00001920  56 20 22 29 0d 0a 5a 42  e7 a4 63 68 65 63 6b 69  |V ")..ZB..checki|
00001930  63 6f 6e 28 73 75 66 66  69 78 25 2c 32 29 20 ff  |con(suffix%,2) .|
00001940  28 22 43 6f 70 79 20 22  2b 66 69 6c 65 24 2b 22  |("Copy "+file$+"|
00001950  20 22 2b 66 69 6c 65 24  2b 22 33 20 7e 43 20 53  | "+file$+"3 ~C S|
00001960  20 7e 56 20 22 29 0d 0a  64 42 e7 a4 63 68 65 63  | ~V ")..dB..chec|
00001970  6b 69 63 6f 6e 28 73 75  66 66 69 78 25 2c 33 29  |kicon(suffix%,3)|
00001980  20 ff 28 22 43 6f 70 79  20 22 2b 66 69 6c 65 24  | .("Copy "+file$|
00001990  2b 22 20 22 2b 66 69 6c  65 24 2b 22 34 20 7e 43  |+" "+file$+"4 ~C|
000019a0  20 53 20 7e 56 20 22 29  0d 0a 6e 42 e7 a4 63 68  | S ~V ")..nB..ch|
000019b0  65 63 6b 69 63 6f 6e 28  73 75 66 66 69 78 25 2c  |eckicon(suffix%,|
000019c0  34 29 20 ff 28 22 43 6f  70 79 20 22 2b 66 69 6c  |4) .("Copy "+fil|
000019d0  65 24 2b 22 20 22 2b 66  69 6c 65 24 2b 22 35 20  |e$+" "+file$+"5 |
000019e0  7e 43 20 53 20 7e 56 20  22 29 0d 0a 78 46 e7 a4  |~C S ~V ")..xF..|
000019f0  63 68 65 63 6b 69 63 6f  6e 28 73 75 66 66 69 78  |checkicon(suffix|
00001a00  25 2c 35 29 20 ff 28 22  43 6f 70 79 20 22 2b 66  |%,5) .("Copy "+f|
00001a10  69 6c 65 24 2b 22 20 22  2b 66 69 6c 65 24 2b 22  |ile$+" "+file$+"|
00001a20  2d 57 6f 72 6b 20 7e 43  20 53 20 7e 56 20 22 29  |-Work ~C S ~V ")|
00001a30  0d 0a 82 05 e1 0d 0a 8c  05 3a 0d 0a 96 17 dd f2  |.........:......|
00001a40  63 68 65 63 6b 5f 74 79  70 65 28 70 72 6f 63 24  |check_type(proc$|
00001a50  29 0d 0a a0 3d e7 71 31  25 21 34 30 3d 26 31 30  |)...=.q1%!40=&10|
00001a60  30 30 20 f2 6f 6b 28 22  43 61 6e 27 74 20 22 2b  |00 .ok("Can't "+|
00001a70  70 72 6f 63 24 2b 22 20  61 20 64 69 72 65 63 74  |proc$+" a direct|
00001a80  6f 72 79 2e 20 53 6f 72  72 79 21 20 22 29 0d 0a  |ory. Sorry! ")..|
00001a90  aa 40 e7 71 31 25 21 34  30 3d 26 32 30 30 30 20  |.@.q1%!40=&2000 |
00001aa0  f2 6f 6b 28 22 43 61 6e  27 74 20 22 2b 70 72 6f  |.ok("Can't "+pro|
00001ab0  63 24 2b 22 20 61 6e 20  61 70 70 6c 69 63 61 74  |c$+" an applicat|
00001ac0  69 6f 6e 2e 20 53 6f 72  72 79 21 20 22 29 0d 0a  |ion. Sorry! ")..|
00001ad0  b4 05 e1 0d 0a be 05 3a  0d 0a c8 0e dd f2 64 69  |.......:......di|
00001ae0  73 6b 70 61 72 6b 0d 0a  d2 12 ff 28 22 2a 53 48  |skpark.....("*SH|
00001af0  55 54 44 4f 57 4e 22 29  0d 0a dc 11 21 71 32 25  |UTDOWN")....!q2%|
00001b00  3d 63 6f 6e 66 69 72 6d  25 0d 0a e6 0f 71 32 25  |=confirm%....q2%|
00001b10  21 34 20 20 3d 33 30 30  0d 0a f0 0f 71 32 25 21  |!4  =300....q2%!|
00001b20  38 20 20 3d 33 30 30 0d  0a fa 10 71 32 25 21 31  |8  =300....q2%!1|
00001b30  32 20 3d 31 31 34 32 0d  0b 04 0f 71 32 25 21 31  |2 =1142....q2%!1|
00001b40  36 20 3d 37 38 30 0d 0b  0e 0d 71 32 25 21 32 30  |6 =780....q2%!20|
00001b50  20 3d 30 0d 0b 18 0d 71  32 25 21 32 34 20 3d 30  | =0....q2%!24 =0|
00001b60  0d 0b 22 0e 71 32 25 21  32 38 20 3d 2d 31 0d 0b  |..".q2%!28 =-1..|
00001b70  2c 1d c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 57  |,... "Wimp_OpenW|
00001b80  69 6e 64 6f 77 22 2c 2c  71 32 25 0d 0b 36 05 e1  |indow",,q2%..6..|
00001b90  0d 0b 40 05 3a 0d 0b 4a  0b dd f2 72 65 62 79 65  |..@.:..J...rebye|
00001ba0  0d 0b 54 11 ff 28 22 73  68 75 74 64 6f 77 6e 22  |..T..("shutdown"|
00001bb0  29 0d 0b 5e 05 e1 0d ff                           |)..^....|
00001bb8