� >!RunImage
� V2.05 2-5-91
N� The problem structure is messy - this will be improved in later versions
(recursemax%=200
2Q� misc% 1023,main% 1023,ic% 1023,path% 2047,level%(recursemax%,1),netpath% 63
<R%=�:t%=0:hour%=�
F$misc%="TASK"
P=ș "Wimp_Initialise",200,!misc%,"IVSearch" � ,taskhandle%
Zquit%=�
d
�winds
n� � �error(�)
xȕ � quit%
�)ș "OS_Byte",229,1,0:ș "OS_Byte",124
�*ș "Wimp_Poll",&1803,misc% � code%,pb%
�Ȏ code% �
�� 6:�mouse
�#� 8:ș "Wimp_ProcessKey",pb%!24
�!� 2:ș "Wimp_OpenWindow",,pb%
�"� 3:ș "Wimp_CloseWindow",,pb%
�� 17,18:�message
�%� 9:� !pb%=0 � pb%!4=-1 � quit%=�
��
��
�ș "Wimp_CloseDown"
��

:


��message

Ȏ pb%!16 �

"� 0:quit%=�

,�

6�

@:

J
ݤs(mem%)

T	A$=""

^A%=0

hȕ mem%?A%>31

rA$+=�mem%?A%

|	A%+=1

��

�=A$

�:

���remove(d%)

�dir$=�last(d%)

��append(mem%,".!Boot")

�+�access(mem%):ș "OS_Find",&C0,mem% � X

�mem%?count%=13

�found%=�

��

�D$=�readline

�%� �D$,"ICON") � �D$,6)="BASIC " �

�found%=�
�#X=start%
� W%=start% � end%
�#X,�"|"
&�
0�findwimpslot
:�
D��#X
N�#X
X� found% �
b$(mem%+count%)=".Icon"
lș "OS_Find",&40,mem% � o%
v� o%>0 �
��#o%
��access(mem%)
�ș "OS_File",6,mem%
��
�mem%?count%=13
��
��
�:
�ݤreadline
�!�AA%=�#X:�(AA%<>10 � AA%<>13)
�	A$=""
�A%=0
�&start%=�#X-1:� start%<0 � start%=0
�
 � AA%>96 � AA%<123 � AA%-=32
A$+=�AA%
 � � �#X � AA%=�#X
*�AA%=10 � AA%=13 � �#X
4end%=�#X-1
>=A$
H:
R��findwimpslot
\flag%=�
f%� start%>1 � �#X=start%-1 � �#X=0
p�AA%=�#X
z'� �#X=1 � �#X=0:flag%=� � �#X=�#X-2
��(AA%<>10 � AA%<>13)� flag%
�end%=�#X+1
�A$=�AA%
��
�AA%=�#X
� � AA%>96 � AA%<123 � AA%-=32
�'� �#X=1 � �#X=0:flag%=� � �#X=�#X-2
�� AA%>31 � A$=�AA%+A$
��AA%=10 � AA%=13 � flag%
�#start%=�#X+2:� flag% � start%=0
�� �A$,"WIMPSLOT") �
��#X=start%
�� W%=start% � end%
�#X,�"|"
�
�
$�
.:
8��winds
B2ș "Wimp_OpenTemplate",,"<Obey$Dir>.Templates"
L<ș "Wimp_LoadTemplate",,main%,ic%,ic%+1024,-1,"search",0
V+ș "Wimp_CreateWindow",,main% � search%
`ș "Wimp_CloseTemplate"
j � T%=0 � 64 � 4:misc%!T%=0:�
t
!misc%=-1
~*misc%!12=56:misc%!16=68:misc%!20=&301A
�E$(misc%+24)="!ivsearch":ș "Wimp_CreateIcon",,misc% � iconhandle%
��
�:
���mouse
�I� (pb%!12=-2 � pb%!16=iconhandle% � pb%!8=2) � x%=!pb%-80:�iconmenu:�
�6� (pb%!12=-2 � pb%!16=iconhandle%) � �openwindow:�
�@� (pb%!12=search% � (pb%!16>1 � pb%!16<8)) � �updatewindow:�
�,� (pb%!12=search% � pb%!16=12) � �doit:�
��
�:
���iconmenu
�menu%=misc%+512
 � T%=0 � 80 � 4:menu%!T%=0:�

$menu%="IVSearch"
2menu%?12=7:menu%?13=2:menu%!16=120:menu%!20=44
'menu%!24=4:menu%!28=128:menu%!32=-1
(menu%!36=&7003019
29$(menu%+40)="Quit":ș "Wimp_CreateMenu",,menu%,x%,144
<�
F:
P��openwindow
Z!misc%=search%
d#ș "Wimp_GetWindowState",,misc%
nș "Wimp_OpenWindow",,misc%
x�
�:
���updatewindow
�e%=pb%!16-2
�!misc%=search%
�
misc%!4=9
�!ș "Wimp_GetIconState",,misc%
�$(misc%!28)="ADFS::"+�e%
�!misc%=search%
�
misc%!4=9
�
misc%!8=0
�misc%!12=0
�!ș "Wimp_SetIconState",,misc%
��
:

��doit
ș "Hourglass_On":hour%=�
"ș "OS_Byte",229,0,0
,!misc%=search%
6
misc%!4=9
@!ș "Wimp_GetIconState",,misc%
J$path%=$(misc%!28)
T)K$="":� K%=1 � 3:KK%=�(�$path%,K%,1))
^ � KK%>96 � KK%<123 � KK%-=32
hK$+=�KK%:�
r � K$="NET" � net%=� � net%=�
|"� �$path%,1)=":" � $path%+="$"
�� count%,fs%
�level%()=0
�n%=1
�ȕ n%>0
�� level%(n%,0)>=0 �
��
�misc%!16=0
�Oș "OS_GBPB",10,path%,misc%,1,level%(n%,0),256,"!*"+�0 � ,,,R3,level%(n%,0)
�� misc%!16=2 �
�%�append(path%,"."+�str(misc%+20))
�	n%+=1
�� (R3<>0) �
��check(path%)
�
�
� PROCwritepath
&(�puticonstr(search%,13,�last(path%))
0�
:x� �(recursemax%>n%) � $(misc%+4)="Structures deeper than "+�recursemax%+" will be ignored":level%(n%,0)=-1:�error(�)
D�level%(n%,0)=-1
N�
X!level%(n%,0)=0:level%(n%,1)=0
b.n%-=1:�puticonstr(search%,13,�last(path%))
lcount%=0
vȕ path%?count%>31
�,count%+=1:� path%?count%=�"." fs%=count%
��
�path%?fs%=13
��
�9�puticonstr(search%,13,""):�puticonstr(search%,14,"")
�ș "Hourglass_Off":hour%=�
��
�:
���append(mem%,str$)
�count%=0
�ȕ mem%?count%>31
�
count%+=1
��
$(mem%+count%)=str$
�
:
 ݤlast(mem%)
*count%=0
4ȕ mem%?count%>31
>
count%+=1
H�
R-� count%<42 � =$mem% � =$(mem%+count%-42)
\:
f��puticonstr(win%,ic%,str$)
p9!misc%=win%:misc%!4=ic%:ș "Wimp_GetIconState",,misc%
z$(misc%!28)=str$
�!misc%=win%
�misc%!4=ic%
�misc%!8=0:misc%!12=0
�!ș "Wimp_SetIconState",,misc%
��
�:
�ݤstr(mem%)
�	i$=""
�i%=0
�ȕ mem%?i%>31
�i$+=�mem%?i%
�	i%+=1
��
	=i$
	:
	��check(mem%)
	$�append(mem%,".!Boot")
	.!ș "OS_Find",&40,mem% � file%
	8mem%?count%=13
	B� file%=0 � �
	LX=file%
	Vfound%=�
	`ȕ � �#file%
	jE$=�readline
	t.� �E$,"ICON") � �E$,6)="BASIC " � found%=�
	~�
	��#file%
	�A� found% � �puticonstr(search%,14,�last(path%)):�remove(mem%)
	��
	�:
	���access(mem%)
	�ș "OS_File",4,mem%,,,,3
	��
	�:
	���error(fatal%)
	�*� hour%=� � ș "Hourglass_Off":hour%=�
	�� fatal% �
	�!misc%=�
X� �>=&10000 � �<=&1FFFF � �=&A8 � �=&C3 � �=17 � �=&CC � �=&F8 � �>=&300 � �<=&4FF �

@$(misc%+4)=�$+". Process not complete. Please restart.":i%=1
M� �=&CC � $(misc%+4)="Bad filename. Please check your device identifier."
�
(%$(misc%+4)=�$+" at line "+Þ:i%=3
2�
<�
F&� error already present at misc%+4
Pi%=1
Z�
d3ș "Wimp_ReportError",misc%,i%,"IVSearch" � ,A%
n� A%=2 � quit%=�
x�
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 12 f4 20 56 32  2e 30 35 20 32 2d 35 2d  |..... V2.05 2-5-|
00000020  39 31 0d 00 1e 4e f4 20  54 68 65 20 70 72 6f 62  |91...N. The prob|
00000030  6c 65 6d 20 73 74 72 75  63 74 75 72 65 20 69 73  |lem structure is|
00000040  20 6d 65 73 73 79 20 2d  20 74 68 69 73 20 77 69  | messy - this wi|
00000050  6c 6c 20 62 65 20 69 6d  70 72 6f 76 65 64 20 69  |ll be improved i|
00000060  6e 20 6c 61 74 65 72 20  76 65 72 73 69 6f 6e 73  |n later versions|
00000070  0d 00 28 13 72 65 63 75  72 73 65 6d 61 78 25 3d  |..(.recursemax%=|
00000080  32 30 30 0d 00 32 51 de  20 6d 69 73 63 25 20 31  |200..2Q. misc% 1|
00000090  30 32 33 2c 6d 61 69 6e  25 20 31 30 32 33 2c 69  |023,main% 1023,i|
000000a0  63 25 20 31 30 32 33 2c  70 61 74 68 25 20 32 30  |c% 1023,path% 20|
000000b0  34 37 2c 6c 65 76 65 6c  25 28 72 65 63 75 72 73  |47,level%(recurs|
000000c0  65 6d 61 78 25 2c 31 29  2c 6e 65 74 70 61 74 68  |emax%,1),netpath|
000000d0  25 20 36 33 0d 00 3c 15  52 25 3d a3 3a 74 25 3d  |% 63..<.R%=.:t%=|
000000e0  30 3a 68 6f 75 72 25 3d  a3 0d 00 46 11 24 6d 69  |0:hour%=...F.$mi|
000000f0  73 63 25 3d 22 54 41 53  4b 22 0d 00 50 3d c8 99  |sc%="TASK"..P=..|
00000100  20 22 57 69 6d 70 5f 49  6e 69 74 69 61 6c 69 73  | "Wimp_Initialis|
00000110  65 22 2c 32 30 30 2c 21  6d 69 73 63 25 2c 22 49  |e",200,!misc%,"I|
00000120  56 53 65 61 72 63 68 22  20 b8 20 2c 74 61 73 6b  |VSearch" . ,task|
00000130  68 61 6e 64 6c 65 25 0d  00 5a 0b 71 75 69 74 25  |handle%..Z.quit%|
00000140  3d a3 0d 00 64 0a f2 77  69 6e 64 73 0d 00 6e 11  |=...d..winds..n.|
00000150  ee 20 85 20 f2 65 72 72  6f 72 28 b9 29 0d 00 78  |. . .error(.)..x|
00000160  0e c8 95 20 ac 20 71 75  69 74 25 0d 00 82 29 c8  |... . quit%...).|
00000170  99 20 22 4f 53 5f 42 79  74 65 22 2c 32 32 39 2c  |. "OS_Byte",229,|
00000180  31 2c 30 3a c8 99 20 22  4f 53 5f 42 79 74 65 22  |1,0:.. "OS_Byte"|
00000190  2c 31 32 34 0d 00 8c 2a  c8 99 20 22 57 69 6d 70  |,124...*.. "Wimp|
000001a0  5f 50 6f 6c 6c 22 2c 26  31 38 30 33 2c 6d 69 73  |_Poll",&1803,mis|
000001b0  63 25 20 b8 20 63 6f 64  65 25 2c 70 62 25 0d 00  |c% . code%,pb%..|
000001c0  96 0e c8 8e 20 63 6f 64  65 25 20 ca 0d 00 a0 0e  |.... code% .....|
000001d0  c9 20 36 3a f2 6d 6f 75  73 65 0d 00 aa 23 c9 20  |. 6:.mouse...#. |
000001e0  38 3a c8 99 20 22 57 69  6d 70 5f 50 72 6f 63 65  |8:.. "Wimp_Proce|
000001f0  73 73 4b 65 79 22 2c 70  62 25 21 32 34 0d 00 b4  |ssKey",pb%!24...|
00000200  21 c9 20 32 3a c8 99 20  22 57 69 6d 70 5f 4f 70  |!. 2:.. "Wimp_Op|
00000210  65 6e 57 69 6e 64 6f 77  22 2c 2c 70 62 25 0d 00  |enWindow",,pb%..|
00000220  be 22 c9 20 33 3a c8 99  20 22 57 69 6d 70 5f 43  |.". 3:.. "Wimp_C|
00000230  6c 6f 73 65 57 69 6e 64  6f 77 22 2c 2c 70 62 25  |loseWindow",,pb%|
00000240  0d 00 c8 14 c9 20 31 37  2c 31 38 3a f2 6d 65 73  |..... 17,18:.mes|
00000250  73 61 67 65 0d 00 d2 25  c9 20 39 3a e7 20 21 70  |sage...%. 9:. !p|
00000260  62 25 3d 30 20 80 20 70  62 25 21 34 3d 2d 31 20  |b%=0 . pb%!4=-1 |
00000270  8c 20 71 75 69 74 25 3d  b9 0d 00 dc 05 cb 0d 00  |. quit%=........|
00000280  e6 05 ce 0d 00 f0 17 c8  99 20 22 57 69 6d 70 5f  |......... "Wimp_|
00000290  43 6c 6f 73 65 44 6f 77  6e 22 0d 00 fa 05 e0 0d  |CloseDown"......|
000002a0  01 04 05 3a 0d 01 0e 0d  dd f2 6d 65 73 73 61 67  |...:......messag|
000002b0  65 0d 01 18 0f c8 8e 20  70 62 25 21 31 36 20 ca  |e...... pb%!16 .|
000002c0  0d 01 22 0f c9 20 30 3a  71 75 69 74 25 3d b9 0d  |..".. 0:quit%=..|
000002d0  01 2c 05 cb 0d 01 36 05  e1 0d 01 40 05 3a 0d 01  |.,....6....@.:..|
000002e0  4a 0d dd a4 73 28 6d 65  6d 25 29 0d 01 54 09 41  |J...s(mem%)..T.A|
000002f0  24 3d 22 22 0d 01 5e 08  41 25 3d 30 0d 01 68 11  |$=""..^.A%=0..h.|
00000300  c8 95 20 6d 65 6d 25 3f  41 25 3e 33 31 0d 01 72  |.. mem%?A%>31..r|
00000310  10 41 24 2b 3d bd 6d 65  6d 25 3f 41 25 0d 01 7c  |.A$+=.mem%?A%..||
00000320  09 41 25 2b 3d 31 0d 01  86 05 ce 0d 01 90 07 3d  |.A%+=1.........=|
00000330  41 24 0d 01 9a 05 3a 0d  01 a4 10 dd f2 72 65 6d  |A$....:......rem|
00000340  6f 76 65 28 64 25 29 0d  01 ae 12 64 69 72 24 3d  |ove(d%)....dir$=|
00000350  a4 6c 61 73 74 28 64 25  29 0d 01 b8 1a f2 61 70  |.last(d%).....ap|
00000360  70 65 6e 64 28 6d 65 6d  25 2c 22 2e 21 42 6f 6f  |pend(mem%,".!Boo|
00000370  74 22 29 0d 01 c2 2b f2  61 63 63 65 73 73 28 6d  |t")...+.access(m|
00000380  65 6d 25 29 3a c8 99 20  22 4f 53 5f 46 69 6e 64  |em%):.. "OS_Find|
00000390  22 2c 26 43 30 2c 6d 65  6d 25 20 b8 20 58 0d 01  |",&C0,mem% . X..|
000003a0  cc 12 6d 65 6d 25 3f 63  6f 75 6e 74 25 3d 31 33  |..mem%?count%=13|
000003b0  0d 01 d6 0c 66 6f 75 6e  64 25 3d a3 0d 01 e0 05  |....found%=.....|
000003c0  f5 0d 01 ea 10 44 24 3d  a4 72 65 61 64 6c 69 6e  |.....D$=.readlin|
000003d0  65 0d 01 f4 25 e7 20 a7  44 24 2c 22 49 43 4f 4e  |e...%. .D$,"ICON|
000003e0  22 29 20 80 20 c0 44 24  2c 36 29 3d 22 42 41 53  |") . .D$,6)="BAS|
000003f0  49 43 20 22 20 8c 0d 01  fe 0c 66 6f 75 6e 64 25  |IC " .....found%|
00000400  3d b9 0d 02 08 0e cf 23  58 3d 73 74 61 72 74 25  |=......#X=start%|
00000410  0d 02 12 16 e3 20 57 25  3d 73 74 61 72 74 25 20  |..... W%=start% |
00000420  b8 20 65 6e 64 25 0d 02  1c 0c d5 23 58 2c 97 22  |. end%.....#X,."|
00000430  7c 22 0d 02 26 05 ed 0d  02 30 11 f2 66 69 6e 64  ||"..&....0..find|
00000440  77 69 6d 70 73 6c 6f 74  0d 02 3a 05 cd 0d 02 44  |wimpslot..:....D|
00000450  08 fd c5 23 58 0d 02 4e  07 d9 23 58 0d 02 58 0e  |...#X..N..#X..X.|
00000460  e7 20 66 6f 75 6e 64 25  20 8c 0d 02 62 1a 24 28  |. found% ...b.$(|
00000470  6d 65 6d 25 2b 63 6f 75  6e 74 25 29 3d 22 2e 49  |mem%+count%)=".I|
00000480  63 6f 6e 22 0d 02 6c 1e  c8 99 20 22 4f 53 5f 46  |con"..l... "OS_F|
00000490  69 6e 64 22 2c 26 34 30  2c 6d 65 6d 25 20 b8 20  |ind",&40,mem% . |
000004a0  6f 25 0d 02 76 0c e7 20  6f 25 3e 30 20 8c 0d 02  |o%..v.. o%>0 ...|
000004b0  80 08 d9 23 6f 25 0d 02  8a 11 f2 61 63 63 65 73  |...#o%.....acces|
000004c0  73 28 6d 65 6d 25 29 0d  02 94 17 c8 99 20 22 4f  |s(mem%)...... "O|
000004d0  53 5f 46 69 6c 65 22 2c  36 2c 6d 65 6d 25 0d 02  |S_File",6,mem%..|
000004e0  9e 05 cd 0d 02 a8 12 6d  65 6d 25 3f 63 6f 75 6e  |.......mem%?coun|
000004f0  74 25 3d 31 33 0d 02 b2  05 cd 0d 02 bc 05 e1 0d  |t%=13...........|
00000500  02 c6 05 3a 0d 02 d0 0e  dd a4 72 65 61 64 6c 69  |...:......readli|
00000510  6e 65 0d 02 da 21 f5 41  41 25 3d 9a 23 58 3a fd  |ne...!.AA%=.#X:.|
00000520  28 41 41 25 3c 3e 31 30  20 80 20 41 41 25 3c 3e  |(AA%<>10 . AA%<>|
00000530  31 33 29 0d 02 e4 09 41  24 3d 22 22 0d 02 ee 08  |13)....A$=""....|
00000540  41 25 3d 30 0d 02 f8 26  73 74 61 72 74 25 3d 8f  |A%=0...&start%=.|
00000550  23 58 2d 31 3a e7 20 73  74 61 72 74 25 3c 30 20  |#X-1:. start%<0 |
00000560  8c 20 73 74 61 72 74 25  3d 30 0d 03 02 05 f5 0d  |. start%=0......|
00000570  03 0c 20 e7 20 41 41 25  3e 39 36 20 80 20 41 41  |.. . AA%>96 . AA|
00000580  25 3c 31 32 33 20 8c 20  41 41 25 2d 3d 33 32 0d  |%<123 . AA%-=32.|
00000590  03 16 0c 41 24 2b 3d bd  41 41 25 0d 03 20 15 e7  |...A$+=.AA%.. ..|
000005a0  20 ac 20 c5 23 58 20 8c  20 41 41 25 3d 9a 23 58  | . .#X . AA%=.#X|
000005b0  0d 03 2a 1a fd 41 41 25  3d 31 30 20 84 20 41 41  |..*..AA%=10 . AA|
000005c0  25 3d 31 33 20 84 20 c5  23 58 0d 03 34 0e 65 6e  |%=13 . .#X..4.en|
000005d0  64 25 3d 8f 23 58 2d 31  0d 03 3e 07 3d 41 24 0d  |d%=.#X-1..>.=A$.|
000005e0  03 48 05 3a 0d 03 52 12  dd f2 66 69 6e 64 77 69  |.H.:..R...findwi|
000005f0  6d 70 73 6c 6f 74 0d 03  5c 0b 66 6c 61 67 25 3d  |mpslot..\.flag%=|
00000600  a3 0d 03 66 25 e7 20 73  74 61 72 74 25 3e 31 20  |...f%. start%>1 |
00000610  8c 20 cf 23 58 3d 73 74  61 72 74 25 2d 31 20 8b  |. .#X=start%-1 .|
00000620  20 cf 23 58 3d 30 0d 03  70 0c f5 41 41 25 3d 9a  | .#X=0..p..AA%=.|
00000630  23 58 0d 03 7a 27 e7 20  8f 23 58 3d 31 20 8c 20  |#X..z'. .#X=1 . |
00000640  cf 23 58 3d 30 3a 66 6c  61 67 25 3d b9 20 8b 20  |.#X=0:flag%=. . |
00000650  cf 23 58 3d 8f 23 58 2d  32 0d 03 84 1f fd 28 41  |.#X=.#X-2.....(A|
00000660  41 25 3c 3e 31 30 20 80  20 41 41 25 3c 3e 31 33  |A%<>10 . AA%<>13|
00000670  29 84 20 66 6c 61 67 25  0d 03 8e 0e 65 6e 64 25  |). flag%....end%|
00000680  3d 8f 23 58 2b 31 0d 03  98 0b 41 24 3d bd 41 41  |=.#X+1....A$=.AA|
00000690  25 0d 03 a2 05 f5 0d 03  ac 0b 41 41 25 3d 9a 23  |%.........AA%=.#|
000006a0  58 0d 03 b6 20 e7 20 41  41 25 3e 39 36 20 80 20  |X... . AA%>96 . |
000006b0  41 41 25 3c 31 32 33 20  8c 20 41 41 25 2d 3d 33  |AA%<123 . AA%-=3|
000006c0  32 0d 03 c0 27 e7 20 8f  23 58 3d 31 20 8c 20 cf  |2...'. .#X=1 . .|
000006d0  23 58 3d 30 3a 66 6c 61  67 25 3d b9 20 8b 20 cf  |#X=0:flag%=. . .|
000006e0  23 58 3d 8f 23 58 2d 32  0d 03 ca 19 e7 20 41 41  |#X=.#X-2..... AA|
000006f0  25 3e 33 31 20 8c 20 41  24 3d bd 41 41 25 2b 41  |%>31 . A$=.AA%+A|
00000700  24 0d 03 d4 1c fd 41 41  25 3d 31 30 20 84 20 41  |$.....AA%=10 . A|
00000710  41 25 3d 31 33 20 84 20  66 6c 61 67 25 0d 03 de  |A%=13 . flag%...|
00000720  23 73 74 61 72 74 25 3d  8f 23 58 2b 32 3a e7 20  |#start%=.#X+2:. |
00000730  66 6c 61 67 25 20 8c 20  73 74 61 72 74 25 3d 30  |flag% . start%=0|
00000740  0d 03 e8 17 e7 20 a7 41  24 2c 22 57 49 4d 50 53  |..... .A$,"WIMPS|
00000750  4c 4f 54 22 29 20 8c 0d  03 f2 0e cf 23 58 3d 73  |LOT") ......#X=s|
00000760  74 61 72 74 25 0d 03 fc  16 e3 20 57 25 3d 73 74  |tart%..... W%=st|
00000770  61 72 74 25 20 b8 20 65  6e 64 25 0d 04 06 0c d5  |art% . end%.....|
00000780  23 58 2c 97 22 7c 22 0d  04 10 05 ed 0d 04 1a 05  |#X,."|".........|
00000790  cd 0d 04 24 05 e1 0d 04  2e 05 3a 0d 04 38 0b dd  |...$......:..8..|
000007a0  f2 77 69 6e 64 73 0d 04  42 32 c8 99 20 22 57 69  |.winds..B2.. "Wi|
000007b0  6d 70 5f 4f 70 65 6e 54  65 6d 70 6c 61 74 65 22  |mp_OpenTemplate"|
000007c0  2c 2c 22 3c 4f 62 65 79  24 44 69 72 3e 2e 54 65  |,,"<Obey$Dir>.Te|
000007d0  6d 70 6c 61 74 65 73 22  0d 04 4c 3c c8 99 20 22  |mplates"..L<.. "|
000007e0  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
000007f0  65 22 2c 2c 6d 61 69 6e  25 2c 69 63 25 2c 69 63  |e",,main%,ic%,ic|
00000800  25 2b 31 30 32 34 2c 2d  31 2c 22 73 65 61 72 63  |%+1024,-1,"searc|
00000810  68 22 2c 30 0d 04 56 2b  c8 99 20 22 57 69 6d 70  |h",0..V+.. "Wimp|
00000820  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
00000830  6d 61 69 6e 25 20 b8 20  73 65 61 72 63 68 25 0d  |main% . search%.|
00000840  04 60 1b c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |.`... "Wimp_Clos|
00000850  65 54 65 6d 70 6c 61 74  65 22 0d 04 6a 20 e3 20  |eTemplate"..j . |
00000860  54 25 3d 30 20 b8 20 36  34 20 88 20 34 3a 6d 69  |T%=0 . 64 . 4:mi|
00000870  73 63 25 21 54 25 3d 30  3a ed 0d 04 74 0d 21 6d  |sc%!T%=0:...t.!m|
00000880  69 73 63 25 3d 2d 31 0d  04 7e 2a 6d 69 73 63 25  |isc%=-1..~*misc%|
00000890  21 31 32 3d 35 36 3a 6d  69 73 63 25 21 31 36 3d  |!12=56:misc%!16=|
000008a0  36 38 3a 6d 69 73 63 25  21 32 30 3d 26 33 30 31  |68:misc%!20=&301|
000008b0  41 0d 04 88 45 24 28 6d  69 73 63 25 2b 32 34 29  |A...E$(misc%+24)|
000008c0  3d 22 21 69 76 73 65 61  72 63 68 22 3a c8 99 20  |="!ivsearch":.. |
000008d0  22 57 69 6d 70 5f 43 72  65 61 74 65 49 63 6f 6e  |"Wimp_CreateIcon|
000008e0  22 2c 2c 6d 69 73 63 25  20 b8 20 69 63 6f 6e 68  |",,misc% . iconh|
000008f0  61 6e 64 6c 65 25 0d 04  92 05 e1 0d 04 9c 05 3a  |andle%.........:|
00000900  0d 04 a6 0b dd f2 6d 6f  75 73 65 0d 04 b0 49 e7  |......mouse...I.|
00000910  20 28 70 62 25 21 31 32  3d 2d 32 20 80 20 70 62  | (pb%!12=-2 . pb|
00000920  25 21 31 36 3d 69 63 6f  6e 68 61 6e 64 6c 65 25  |%!16=iconhandle%|
00000930  20 80 20 70 62 25 21 38  3d 32 29 20 8c 20 78 25  | . pb%!8=2) . x%|
00000940  3d 21 70 62 25 2d 38 30  3a f2 69 63 6f 6e 6d 65  |=!pb%-80:.iconme|
00000950  6e 75 3a e1 0d 04 ba 36  e7 20 28 70 62 25 21 31  |nu:....6. (pb%!1|
00000960  32 3d 2d 32 20 80 20 70  62 25 21 31 36 3d 69 63  |2=-2 . pb%!16=ic|
00000970  6f 6e 68 61 6e 64 6c 65  25 29 20 8c 20 f2 6f 70  |onhandle%) . .op|
00000980  65 6e 77 69 6e 64 6f 77  3a e1 0d 04 c4 40 e7 20  |enwindow:....@. |
00000990  28 70 62 25 21 31 32 3d  73 65 61 72 63 68 25 20  |(pb%!12=search% |
000009a0  80 20 28 70 62 25 21 31  36 3e 31 20 80 20 70 62  |. (pb%!16>1 . pb|
000009b0  25 21 31 36 3c 38 29 29  20 8c 20 f2 75 70 64 61  |%!16<8)) . .upda|
000009c0  74 65 77 69 6e 64 6f 77  3a e1 0d 04 ce 2c e7 20  |tewindow:....,. |
000009d0  28 70 62 25 21 31 32 3d  73 65 61 72 63 68 25 20  |(pb%!12=search% |
000009e0  80 20 70 62 25 21 31 36  3d 31 32 29 20 8c 20 f2  |. pb%!16=12) . .|
000009f0  64 6f 69 74 3a e1 0d 04  d8 05 e1 0d 04 e2 05 3a  |doit:..........:|
00000a00  0d 04 ec 0e dd f2 69 63  6f 6e 6d 65 6e 75 0d 04  |......iconmenu..|
00000a10  f6 13 6d 65 6e 75 25 3d  6d 69 73 63 25 2b 35 31  |..menu%=misc%+51|
00000a20  32 0d 05 00 20 e3 20 54  25 3d 30 20 b8 20 38 30  |2... . T%=0 . 80|
00000a30  20 88 20 34 3a 6d 65 6e  75 25 21 54 25 3d 30 3a  | . 4:menu%!T%=0:|
00000a40  ed 0d 05 0a 15 24 6d 65  6e 75 25 3d 22 49 56 53  |.....$menu%="IVS|
00000a50  65 61 72 63 68 22 0d 05  14 32 6d 65 6e 75 25 3f  |earch"...2menu%?|
00000a60  31 32 3d 37 3a 6d 65 6e  75 25 3f 31 33 3d 32 3a  |12=7:menu%?13=2:|
00000a70  6d 65 6e 75 25 21 31 36  3d 31 32 30 3a 6d 65 6e  |menu%!16=120:men|
00000a80  75 25 21 32 30 3d 34 34  0d 05 1e 27 6d 65 6e 75  |u%!20=44...'menu|
00000a90  25 21 32 34 3d 34 3a 6d  65 6e 75 25 21 32 38 3d  |%!24=4:menu%!28=|
00000aa0  31 32 38 3a 6d 65 6e 75  25 21 33 32 3d 2d 31 0d  |128:menu%!32=-1.|
00000ab0  05 28 15 6d 65 6e 75 25  21 33 36 3d 26 37 30 30  |.(.menu%!36=&700|
00000ac0  33 30 31 39 0d 05 32 39  24 28 6d 65 6e 75 25 2b  |3019..29$(menu%+|
00000ad0  34 30 29 3d 22 51 75 69  74 22 3a c8 99 20 22 57  |40)="Quit":.. "W|
00000ae0  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
00000af0  2c 6d 65 6e 75 25 2c 78  25 2c 31 34 34 0d 05 3c  |,menu%,x%,144..<|
00000b00  05 e1 0d 05 46 05 3a 0d  05 50 10 dd f2 6f 70 65  |....F.:..P...ope|
00000b10  6e 77 69 6e 64 6f 77 0d  05 5a 12 21 6d 69 73 63  |nwindow..Z.!misc|
00000b20  25 3d 73 65 61 72 63 68  25 0d 05 64 23 c8 99 20  |%=search%..d#.. |
00000b30  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
00000b40  74 61 74 65 22 2c 2c 6d  69 73 63 25 0d 05 6e 1f  |tate",,misc%..n.|
00000b50  c8 99 20 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |.. "Wimp_OpenWin|
00000b60  64 6f 77 22 2c 2c 6d 69  73 63 25 0d 05 78 05 e1  |dow",,misc%..x..|
00000b70  0d 05 82 05 3a 0d 05 8c  12 dd f2 75 70 64 61 74  |....:......updat|
00000b80  65 77 69 6e 64 6f 77 0d  05 96 0f 65 25 3d 70 62  |ewindow....e%=pb|
00000b90  25 21 31 36 2d 32 0d 05  a0 12 21 6d 69 73 63 25  |%!16-2....!misc%|
00000ba0  3d 73 65 61 72 63 68 25  0d 05 aa 0d 6d 69 73 63  |=search%....misc|
00000bb0  25 21 34 3d 39 0d 05 b4  21 c8 99 20 22 57 69 6d  |%!4=9...!.. "Wim|
00000bc0  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00000bd0  2c 6d 69 73 63 25 0d 05  be 1c 24 28 6d 69 73 63  |,misc%....$(misc|
00000be0  25 21 32 38 29 3d 22 41  44 46 53 3a 3a 22 2b c3  |%!28)="ADFS::"+.|
00000bf0  65 25 0d 05 c8 12 21 6d  69 73 63 25 3d 73 65 61  |e%....!misc%=sea|
00000c00  72 63 68 25 0d 05 d2 0d  6d 69 73 63 25 21 34 3d  |rch%....misc%!4=|
00000c10  39 0d 05 dc 0d 6d 69 73  63 25 21 38 3d 30 0d 05  |9....misc%!8=0..|
00000c20  e6 0e 6d 69 73 63 25 21  31 32 3d 30 0d 05 f0 21  |..misc%!12=0...!|
00000c30  c8 99 20 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |.. "Wimp_SetIcon|
00000c40  53 74 61 74 65 22 2c 2c  6d 69 73 63 25 0d 05 fa  |State",,misc%...|
00000c50  05 e1 0d 06 04 05 3a 0d  06 0e 0a dd f2 64 6f 69  |......:......doi|
00000c60  74 0d 06 18 1d c8 99 20  22 48 6f 75 72 67 6c 61  |t...... "Hourgla|
00000c70  73 73 5f 4f 6e 22 3a 68  6f 75 72 25 3d b9 0d 06  |ss_On":hour%=...|
00000c80  22 18 c8 99 20 22 4f 53  5f 42 79 74 65 22 2c 32  |"... "OS_Byte",2|
00000c90  32 39 2c 30 2c 30 0d 06  2c 12 21 6d 69 73 63 25  |29,0,0..,.!misc%|
00000ca0  3d 73 65 61 72 63 68 25  0d 06 36 0d 6d 69 73 63  |=search%..6.misc|
00000cb0  25 21 34 3d 39 0d 06 40  21 c8 99 20 22 57 69 6d  |%!4=9..@!.. "Wim|
00000cc0  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00000cd0  2c 6d 69 73 63 25 0d 06  4a 16 24 70 61 74 68 25  |,misc%..J.$path%|
00000ce0  3d 24 28 6d 69 73 63 25  21 32 38 29 0d 06 54 29  |=$(misc%!28)..T)|
00000cf0  4b 24 3d 22 22 3a e3 20  4b 25 3d 31 20 b8 20 33  |K$="":. K%=1 . 3|
00000d00  3a 4b 4b 25 3d 97 28 c1  24 70 61 74 68 25 2c 4b  |:KK%=.(.$path%,K|
00000d10  25 2c 31 29 29 0d 06 5e  20 e7 20 4b 4b 25 3e 39  |%,1))..^ . KK%>9|
00000d20  36 20 80 20 4b 4b 25 3c  31 32 33 20 8c 20 4b 4b  |6 . KK%<123 . KK|
00000d30  25 2d 3d 33 32 0d 06 68  0e 4b 24 2b 3d bd 4b 4b  |%-=32..h.K$+=.KK|
00000d40  25 3a ed 0d 06 72 20 e7  20 4b 24 3d 22 4e 45 54  |%:...r . K$="NET|
00000d50  22 20 8c 20 6e 65 74 25  3d b9 20 8b 20 6e 65 74  |" . net%=. . net|
00000d60  25 3d a3 0d 06 7c 22 e7  20 c2 24 70 61 74 68 25  |%=...|". .$path%|
00000d70  2c 31 29 3d 22 3a 22 20  8c 20 24 70 61 74 68 25  |,1)=":" . $path%|
00000d80  2b 3d 22 24 22 0d 06 86  10 ea 20 63 6f 75 6e 74  |+="$"..... count|
00000d90  25 2c 66 73 25 0d 06 90  0e 6c 65 76 65 6c 25 28  |%,fs%....level%(|
00000da0  29 3d 30 0d 06 9a 08 6e  25 3d 31 0d 06 a4 0b c8  |)=0....n%=1.....|
00000db0  95 20 6e 25 3e 30 0d 06  ae 17 e7 20 6c 65 76 65  |. n%>0..... leve|
00000dc0  6c 25 28 6e 25 2c 30 29  3e 3d 30 20 8c 0d 06 b8  |l%(n%,0)>=0 ....|
00000dd0  05 f5 0d 06 c2 0e 6d 69  73 63 25 21 31 36 3d 30  |......misc%!16=0|
00000de0  0d 06 cc 4f c8 99 20 22  4f 53 5f 47 42 50 42 22  |...O.. "OS_GBPB"|
00000df0  2c 31 30 2c 70 61 74 68  25 2c 6d 69 73 63 25 2c  |,10,path%,misc%,|
00000e00  31 2c 6c 65 76 65 6c 25  28 6e 25 2c 30 29 2c 32  |1,level%(n%,0),2|
00000e10  35 36 2c 22 21 2a 22 2b  bd 30 20 b8 20 2c 2c 2c  |56,"!*"+.0 . ,,,|
00000e20  52 33 2c 6c 65 76 65 6c  25 28 6e 25 2c 30 29 0d  |R3,level%(n%,0).|
00000e30  06 d6 12 e7 20 6d 69 73  63 25 21 31 36 3d 32 20  |.... misc%!16=2 |
00000e40  8c 0d 06 e0 25 f2 61 70  70 65 6e 64 28 70 61 74  |....%.append(pat|
00000e50  68 25 2c 22 2e 22 2b a4  73 74 72 28 6d 69 73 63  |h%,"."+.str(misc|
00000e60  25 2b 32 30 29 29 0d 06  ea 09 6e 25 2b 3d 31 0d  |%+20))....n%+=1.|
00000e70  06 f4 0f e7 20 28 52 33  3c 3e 30 29 20 8c 0d 06  |.... (R3<>0) ...|
00000e80  fe 11 f2 63 68 65 63 6b  28 70 61 74 68 25 29 0d  |...check(path%).|
00000e90  07 08 05 cd 0d 07 12 05  cd 0d 07 1c 13 f4 20 50  |.............. P|
00000ea0  52 4f 43 77 72 69 74 65  70 61 74 68 0d 07 26 28  |ROCwritepath..&(|
00000eb0  f2 70 75 74 69 63 6f 6e  73 74 72 28 73 65 61 72  |.puticonstr(sear|
00000ec0  63 68 25 2c 31 33 2c a4  6c 61 73 74 28 70 61 74  |ch%,13,.last(pat|
00000ed0  68 25 29 29 0d 07 30 05  cd 0d 07 3a 78 e7 20 ac  |h%))..0....:x. .|
00000ee0  28 72 65 63 75 72 73 65  6d 61 78 25 3e 6e 25 29  |(recursemax%>n%)|
00000ef0  20 8c 20 24 28 6d 69 73  63 25 2b 34 29 3d 22 53  | . $(misc%+4)="S|
00000f00  74 72 75 63 74 75 72 65  73 20 64 65 65 70 65 72  |tructures deeper|
00000f10  20 74 68 61 6e 20 22 2b  c3 72 65 63 75 72 73 65  | than "+.recurse|
00000f20  6d 61 78 25 2b 22 20 77  69 6c 6c 20 62 65 20 69  |max%+" will be i|
00000f30  67 6e 6f 72 65 64 22 3a  6c 65 76 65 6c 25 28 6e  |gnored":level%(n|
00000f40  25 2c 30 29 3d 2d 31 3a  f2 65 72 72 6f 72 28 a3  |%,0)=-1:.error(.|
00000f50  29 0d 07 44 14 fd 6c 65  76 65 6c 25 28 6e 25 2c  |)..D..level%(n%,|
00000f60  30 29 3d 2d 31 0d 07 4e  05 cd 0d 07 58 21 6c 65  |0)=-1..N....X!le|
00000f70  76 65 6c 25 28 6e 25 2c  30 29 3d 30 3a 6c 65 76  |vel%(n%,0)=0:lev|
00000f80  65 6c 25 28 6e 25 2c 31  29 3d 30 0d 07 62 2e 6e  |el%(n%,1)=0..b.n|
00000f90  25 2d 3d 31 3a f2 70 75  74 69 63 6f 6e 73 74 72  |%-=1:.puticonstr|
00000fa0  28 73 65 61 72 63 68 25  2c 31 33 2c a4 6c 61 73  |(search%,13,.las|
00000fb0  74 28 70 61 74 68 25 29  29 0d 07 6c 0c 63 6f 75  |t(path%))..l.cou|
00000fc0  6e 74 25 3d 30 0d 07 76  16 c8 95 20 70 61 74 68  |nt%=0..v... path|
00000fd0  25 3f 63 6f 75 6e 74 25  3e 33 31 0d 07 80 2c 63  |%?count%>31...,c|
00000fe0  6f 75 6e 74 25 2b 3d 31  3a e7 20 70 61 74 68 25  |ount%+=1:. path%|
00000ff0  3f 63 6f 75 6e 74 25 3d  97 22 2e 22 20 66 73 25  |?count%=."." fs%|
00001000  3d 63 6f 75 6e 74 25 0d  07 8a 05 ce 0d 07 94 10  |=count%.........|
00001010  70 61 74 68 25 3f 66 73  25 3d 31 33 0d 07 9e 05  |path%?fs%=13....|
00001020  ce 0d 07 a8 39 f2 70 75  74 69 63 6f 6e 73 74 72  |....9.puticonstr|
00001030  28 73 65 61 72 63 68 25  2c 31 33 2c 22 22 29 3a  |(search%,13,""):|
00001040  f2 70 75 74 69 63 6f 6e  73 74 72 28 73 65 61 72  |.puticonstr(sear|
00001050  63 68 25 2c 31 34 2c 22  22 29 0d 07 b2 1e c8 99  |ch%,14,"")......|
00001060  20 22 48 6f 75 72 67 6c  61 73 73 5f 4f 66 66 22  | "Hourglass_Off"|
00001070  3a 68 6f 75 72 25 3d a3  0d 07 bc 05 e1 0d 07 c6  |:hour%=.........|
00001080  05 3a 0d 07 d0 17 dd f2  61 70 70 65 6e 64 28 6d  |.:......append(m|
00001090  65 6d 25 2c 73 74 72 24  29 0d 07 da 0c 63 6f 75  |em%,str$)....cou|
000010a0  6e 74 25 3d 30 0d 07 e4  15 c8 95 20 6d 65 6d 25  |nt%=0...... mem%|
000010b0  3f 63 6f 75 6e 74 25 3e  33 31 0d 07 ee 0d 63 6f  |?count%>31....co|
000010c0  75 6e 74 25 2b 3d 31 0d  07 f8 05 ce 0d 08 02 17  |unt%+=1.........|
000010d0  24 28 6d 65 6d 25 2b 63  6f 75 6e 74 25 29 3d 73  |$(mem%+count%)=s|
000010e0  74 72 24 0d 08 0c 05 e1  0d 08 16 05 3a 0d 08 20  |tr$.........:.. |
000010f0  10 dd a4 6c 61 73 74 28  6d 65 6d 25 29 0d 08 2a  |...last(mem%)..*|
00001100  0c 63 6f 75 6e 74 25 3d  30 0d 08 34 15 c8 95 20  |.count%=0..4... |
00001110  6d 65 6d 25 3f 63 6f 75  6e 74 25 3e 33 31 0d 08  |mem%?count%>31..|
00001120  3e 0d 63 6f 75 6e 74 25  2b 3d 31 0d 08 48 05 ce  |>.count%+=1..H..|
00001130  0d 08 52 2d e7 20 63 6f  75 6e 74 25 3c 34 32 20  |..R-. count%<42 |
00001140  8c 20 3d 24 6d 65 6d 25  20 8b 20 3d 24 28 6d 65  |. =$mem% . =$(me|
00001150  6d 25 2b 63 6f 75 6e 74  25 2d 34 32 29 0d 08 5c  |m%+count%-42)..\|
00001160  05 3a 0d 08 66 1f dd f2  70 75 74 69 63 6f 6e 73  |.:..f...puticons|
00001170  74 72 28 77 69 6e 25 2c  69 63 25 2c 73 74 72 24  |tr(win%,ic%,str$|
00001180  29 0d 08 70 39 21 6d 69  73 63 25 3d 77 69 6e 25  |)..p9!misc%=win%|
00001190  3a 6d 69 73 63 25 21 34  3d 69 63 25 3a c8 99 20  |:misc%!4=ic%:.. |
000011a0  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
000011b0  74 65 22 2c 2c 6d 69 73  63 25 0d 08 7a 14 24 28  |te",,misc%..z.$(|
000011c0  6d 69 73 63 25 21 32 38  29 3d 73 74 72 24 0d 08  |misc%!28)=str$..|
000011d0  84 0f 21 6d 69 73 63 25  3d 77 69 6e 25 0d 08 8e  |..!misc%=win%...|
000011e0  0f 6d 69 73 63 25 21 34  3d 69 63 25 0d 08 98 18  |.misc%!4=ic%....|
000011f0  6d 69 73 63 25 21 38 3d  30 3a 6d 69 73 63 25 21  |misc%!8=0:misc%!|
00001200  31 32 3d 30 0d 08 a2 21  c8 99 20 22 57 69 6d 70  |12=0...!.. "Wimp|
00001210  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00001220  6d 69 73 63 25 0d 08 ac  05 e1 0d 08 b6 05 3a 0d  |misc%.........:.|
00001230  08 c0 0f dd a4 73 74 72  28 6d 65 6d 25 29 0d 08  |.....str(mem%)..|
00001240  ca 09 69 24 3d 22 22 0d  08 d4 08 69 25 3d 30 0d  |..i$=""....i%=0.|
00001250  08 de 11 c8 95 20 6d 65  6d 25 3f 69 25 3e 33 31  |..... mem%?i%>31|
00001260  0d 08 e8 10 69 24 2b 3d  bd 6d 65 6d 25 3f 69 25  |....i$+=.mem%?i%|
00001270  0d 08 f2 09 69 25 2b 3d  31 0d 08 fc 05 ce 0d 09  |....i%+=1.......|
00001280  06 07 3d 69 24 0d 09 10  05 3a 0d 09 1a 11 dd f2  |..=i$....:......|
00001290  63 68 65 63 6b 28 6d 65  6d 25 29 0d 09 24 1a f2  |check(mem%)..$..|
000012a0  61 70 70 65 6e 64 28 6d  65 6d 25 2c 22 2e 21 42  |append(mem%,".!B|
000012b0  6f 6f 74 22 29 0d 09 2e  21 c8 99 20 22 4f 53 5f  |oot")...!.. "OS_|
000012c0  46 69 6e 64 22 2c 26 34  30 2c 6d 65 6d 25 20 b8  |Find",&40,mem% .|
000012d0  20 66 69 6c 65 25 0d 09  38 12 6d 65 6d 25 3f 63  | file%..8.mem%?c|
000012e0  6f 75 6e 74 25 3d 31 33  0d 09 42 11 e7 20 66 69  |ount%=13..B.. fi|
000012f0  6c 65 25 3d 30 20 8c 20  e1 0d 09 4c 0b 58 3d 66  |le%=0 . ...L.X=f|
00001300  69 6c 65 25 0d 09 56 0c  66 6f 75 6e 64 25 3d a3  |ile%..V.found%=.|
00001310  0d 09 60 10 c8 95 20 ac  20 c5 23 66 69 6c 65 25  |..`... . .#file%|
00001320  0d 09 6a 10 45 24 3d a4  72 65 61 64 6c 69 6e 65  |..j.E$=.readline|
00001330  0d 09 74 2e e7 20 a7 45  24 2c 22 49 43 4f 4e 22  |..t.. .E$,"ICON"|
00001340  29 20 80 20 c0 45 24 2c  36 29 3d 22 42 41 53 49  |) . .E$,6)="BASI|
00001350  43 20 22 20 8c 20 66 6f  75 6e 64 25 3d b9 0d 09  |C " . found%=...|
00001360  7e 05 ce 0d 09 88 0b d9  23 66 69 6c 65 25 0d 09  |~.......#file%..|
00001370  92 41 e7 20 66 6f 75 6e  64 25 20 8c 20 f2 70 75  |.A. found% . .pu|
00001380  74 69 63 6f 6e 73 74 72  28 73 65 61 72 63 68 25  |ticonstr(search%|
00001390  2c 31 34 2c a4 6c 61 73  74 28 70 61 74 68 25 29  |,14,.last(path%)|
000013a0  29 3a f2 72 65 6d 6f 76  65 28 6d 65 6d 25 29 0d  |):.remove(mem%).|
000013b0  09 9c 05 e1 0d 09 a6 05  3a 0d 09 b0 12 dd f2 61  |........:......a|
000013c0  63 63 65 73 73 28 6d 65  6d 25 29 0d 09 ba 1c c8  |ccess(mem%).....|
000013d0  99 20 22 4f 53 5f 46 69  6c 65 22 2c 34 2c 6d 65  |. "OS_File",4,me|
000013e0  6d 25 2c 2c 2c 2c 33 0d  09 c4 05 e1 0d 09 ce 05  |m%,,,,3.........|
000013f0  3a 0d 09 d8 13 dd f2 65  72 72 6f 72 28 66 61 74  |:......error(fat|
00001400  61 6c 25 29 0d 09 e2 2a  e7 20 68 6f 75 72 25 3d  |al%)...*. hour%=|
00001410  b9 20 8c 20 c8 99 20 22  48 6f 75 72 67 6c 61 73  |. . .. "Hourglas|
00001420  73 5f 4f 66 66 22 3a 68  6f 75 72 25 3d a3 0d 09  |s_Off":hour%=...|
00001430  ec 0e e7 20 66 61 74 61  6c 25 20 8c 0d 09 f6 0c  |... fatal% .....|
00001440  21 6d 69 73 63 25 3d 9f  0d 0a 00 58 e7 20 9f 3e  |!misc%=....X. .>|
00001450  3d 26 31 30 30 30 30 20  80 20 9f 3c 3d 26 31 46  |=&10000 . .<=&1F|
00001460  46 46 46 20 84 20 9f 3d  26 41 38 20 84 20 9f 3d  |FFF . .=&A8 . .=|
00001470  26 43 33 20 84 20 9f 3d  31 37 20 84 20 9f 3d 26  |&C3 . .=17 . .=&|
00001480  43 43 20 84 20 9f 3d 26  46 38 20 84 20 9f 3e 3d  |CC . .=&F8 . .>=|
00001490  26 33 30 30 20 84 20 9f  3c 3d 26 34 46 46 20 8c  |&300 . .<=&4FF .|
000014a0  0d 0a 0a 40 24 28 6d 69  73 63 25 2b 34 29 3d f6  |...@$(misc%+4)=.|
000014b0  24 2b 22 2e 20 50 72 6f  63 65 73 73 20 6e 6f 74  |$+". Process not|
000014c0  20 63 6f 6d 70 6c 65 74  65 2e 20 50 6c 65 61 73  | complete. Pleas|
000014d0  65 20 72 65 73 74 61 72  74 2e 22 3a 69 25 3d 31  |e restart.":i%=1|
000014e0  0d 0a 14 4d e7 20 9f 3d  26 43 43 20 8c 20 24 28  |...M. .=&CC . $(|
000014f0  6d 69 73 63 25 2b 34 29  3d 22 42 61 64 20 66 69  |misc%+4)="Bad fi|
00001500  6c 65 6e 61 6d 65 2e 20  50 6c 65 61 73 65 20 63  |lename. Please c|
00001510  68 65 63 6b 20 79 6f 75  72 20 64 65 76 69 63 65  |heck your device|
00001520  20 69 64 65 6e 74 69 66  69 65 72 2e 22 0d 0a 1e  | identifier."...|
00001530  05 cc 0d 0a 28 25 24 28  6d 69 73 63 25 2b 34 29  |....(%$(misc%+4)|
00001540  3d f6 24 2b 22 20 61 74  20 6c 69 6e 65 20 22 2b  |=.$+" at line "+|
00001550  c3 9e 3a 69 25 3d 33 0d  0a 32 05 cd 0d 0a 3c 05  |..:i%=3..2....<.|
00001560  cc 0d 0a 46 26 f4 20 65  72 72 6f 72 20 61 6c 72  |...F&. error alr|
00001570  65 61 64 79 20 70 72 65  73 65 6e 74 20 61 74 20  |eady present at |
00001580  6d 69 73 63 25 2b 34 0d  0a 50 08 69 25 3d 31 0d  |misc%+4..P.i%=1.|
00001590  0a 5a 05 cd 0d 0a 64 33  c8 99 20 22 57 69 6d 70  |.Z....d3.. "Wimp|
000015a0  5f 52 65 70 6f 72 74 45  72 72 6f 72 22 2c 6d 69  |_ReportError",mi|
000015b0  73 63 25 2c 69 25 2c 22  49 56 53 65 61 72 63 68  |sc%,i%,"IVSearch|
000015c0  22 20 b8 20 2c 41 25 0d  0a 6e 14 e7 20 41 25 3d  |" . ,A%..n.. A%=|
000015d0  32 20 8c 20 71 75 69 74  25 3d b9 0d 0a 78 05 e1  |2 . quit%=...x..|
000015e0  0d ff                                             |..|
000015e2