��poll
 ș &400C7,mask%,B% � reason%
Ȏ reason% �
(� 2 :ș &400C5,,B%
2� 3 :ș &400C6,,B%
<� 6 :�buttons
F� 7 :�initiatesave
P$� 8 :� � �ourkey ș &400DC,B%!24
Z� 9 :�menuselect
d� 17,18:�receive
nB� 19:ș &8,6,B%+44:� 255,"Data transfer failed: Receiver died"
x�
��
�:
���iconstate(h%,i%)
�/!B%=h%:B%!4=i%:B%!8=0:B%!12=0:ș &400CD,,B%
��
�:
�
��loadack
�B%!12=B%!8
�$ș "Wimp_SendMessage",17,B%,B%!4
��
�
�
��receive
�Ȏ B%!16 �

� 0:quit%=�

� 2:�datasave

� 3:�loadack:�showfileinfo

"

,�

6�

@:

J��getwindowstate(h%)

T!B%=h%:ș &400CB,,B%

^�

h:

r��openwindow(h%)

|�getwindowstate(h%)

�B%!28=-1:ș &400C5,,B%

��

�:

���close

�$B%="TASK"

�ș &400DD,task%,!B%

��

�:

�ݤwimperror

�� � �#�,�$+" "+�(�/10)

�	!B%=�

�6$(B%+4)=�$+" (internal error code "+�(�/10)+")"+�0

�%ș &400DF,B%,3,prog$ � ,response%
"� response%=2 � �close:=� � =�
:
��infomenu(in%)
&� menu% 76
0$menu%=prog$
:Amenu%!12=&70207:menu%!16=16*(�prog$+1):menu%!20=44:menu%!24=0
D1menu%!28=0:menu%!32=in%:menu%!36=&21 +(7<<24)
N$(menu%+40)="Info"
X2menu%!52=&80:menu%!56=-1:menu%!60=&21 +(7<<24)
b $(menu%+64)="Quit":entries=2
l�
v:
�&��showmenu(menu%,x%,y%,oniconbar%)
�,� oniconbar% ypos%=96+44*2 � ypos%=y%+20
� ș &400D4,,menu%,x%-64,ypos%
��
�:
���menuselect
�quit%=!B%=1
��
�:
�
��buttons
�2x%=!B%:y%=B%!4:butt%=B%!8:h%=B%!12:icon%=B%!16
�.� butt% � 2 �showmenu(menu%,x%,y%,h%=-2):�
�Ȏ h% �
� -2
!� butt% � 5 �openwindow(opt%)
%� butt% � &50 :� icon%=4 �dragbox
 
� opt%
*Ȏ icon% �
4 � 4:� butt% � &50 �dragbox
> � 5,6,7
H$  ver%=2*icon%-7:� ver%=7 ver%=6
R-  �changetext(opt%,4,"file_0"+�(60+ver%))
\ � 8:ob%=� ob%
f � 9:pr%=� pr%
p � 10:st%=� st%
z � 11:�quicksave
� � 15,16:size%=size%-15
� � 17:go%=�go%
� �
��
��
�:
�ݤstring(l%)
�� d$
�d$="":a%=0:b%=?l%
�%ȕ b%>31 d$+=�b%:a%+=1:b%=l%?a%:�
�=d$
�:
�
��dragbox
�getwindowstate(opt%)
"ox%=B%!4-B%!20:oy%=B%!16-B%!24
B%!4=4:ș &400CE,,B%
$!B%=opt%:B%!4=5
.B%!8+=ox%:B%!12+=oy%
8B%!16+=ox%:B%!20+=oy%
BB%!24=0:B%!28=0
L#B%!32=&7FFFFFFF:B%!36=&7FFFFFFF
Vș &400D0,,B%
`�
j
t:
~��initiatesave
�ș &400CF,,B%
�B%!20=B%!12:B%!24=B%!16
�B%!28=B%!0:B%!32=B%!4
�B%!36=&400
�B%!0=256:B%!12=0:B%!16=1
�B%!40=�("&06"+�ver%)
�$$(B%+44)=�getleaf(�text(opt%,1))
�ș &400E7,17,B%,B%!20,B%!24
��
�:
�ݤgetleaf(name$)
�ȕ �name$,".")
name$=�name$,�name$,".")+1)

�

=name$+�0

(:
2��release(area)
<ș&1E,7,,area
F�
P
Z
��icon
d+B%!0=-1:B%!4=0:B%!8=0:B%!12=68:B%!16=68
n"B%!20=&3002:$(B%+24)="!"+prog$
xș &400C2,,B%
��
�
�ݤwindow(a$)
�8ș &400DB,,templ%,data%,end%,-1,a$,0 � ,,data%,,,,c%
�ș &400C1,,templ% � c%
�=c%
�
�ݤclaim(amount)
�� �
�� � � :=-1
�ș&1E,6,,,amount �,,ret
�=ret
�
��seticon(i%)
+!B%=opt%:B%!4=i%:B%!8=1<<21:B%!12=1<<21
ș &400CD,,B%
"�
,
6��changetext(h%,i%,t$)
@ !Q%=h%:Q%!4=i%:ș &400CE,,Q%
JQ%!8=0:Q%!12=0:$(Q%!28)=t$
Tș &400CD,,Q%
^�
h:
rݤtext(h%,i%)
| !Q%=h%:Q%!4=i%:ș &400CE,,Q%
�=�string((Q%!28))
�:
�
��vars
�� B% &100,Q% &100
�mask%=1
�prog$="CompInfo"
�quit%=�:done%=�
�ob%=�:pr%=�:st%=�:go%=�
��
�:
���showfileinfo
�type%=B%!40
�� type%<>&FFF �
a$=�string(B%+44)
b$=�getleaf(a$)
�changetext(opt%,0,a$)
&�changetext(opt%,1,b$)
0�openwindow(opt%)
:�
D:
N��quicksave
Xf$=�text(opt%,1)
b� �f$,".")  �
l  �saveit(f$)
v  ș &400D4,,-1
��
�<$B%="      To save, drag the icon to a directory viewer"
�ș &400DF,B%,1,prog$
��
��
�:
���datasave
�o$=�string(B%+44)
��changetext(opt%,1,o$)
�ș &400D4,,-1
�B%!12=B%!8:B%!16=3:!B%=256
�ș &400E7,18,B%,B%!20,B%!24
��saveit(o$)
�
:
��saveit(o$)
 q$=�text(opt%,0)
*
� q$=o$ �
40  $B%="    That would overwrite source file"
>  ș &400DF,B%,1,prog$
H  �
R�
\ d$="<CompInfo$Dir>.inform -"
f� ob% d$+="j"
p� pr% d$+="n"
z� st% d$+="s"
�d$+="v"+�ver%
�� go% d$+="x"
�d$+=" "
�(e$=�text(opt%,14):� e$>"" d$+=e$+" "
�+� size%=0 d$+="$small " � d$+="$large "
�d$+=q$+" "+o$
�.$B%="TaskWindow """+d$+""" -display -quit"
�ș "Wimp_StartTask",B%
��
�
���loadTemplates(d$)
�)ș &400D9,,"<CompInfo$Dir>.Templates"
�maxbuff%=1708:inlen%=1200
	templ%=�claim(maxbuff%+4)
	� indir% inlen%
	#data%=indir%:end%=indir%+inlen%
	$ibh%=�window("info"+d$)
	.opt%=�window("main"+d$)
	8�seticon(15):size%=0
	B�seticon(17):go%=�
	L�seticon(6):ver%=4
	V
ș &400DA
	`ș&1E,7,,templ%
	j�infomenu(ibh%)
	t�
�

00000000  0d 00 0a 0a dd f2 70 6f  6c 6c 0d 00 14 20 c8 99  |......poll... ..|
00000010  20 26 34 30 30 43 37 2c  6d 61 73 6b 25 2c 42 25  | &400C7,mask%,B%|
00000020  20 b8 20 72 65 61 73 6f  6e 25 0d 00 1e 10 c8 8e  | . reason%......|
00000030  20 72 65 61 73 6f 6e 25  20 ca 0d 00 28 16 c9 20  | reason% ...(.. |
00000040  32 20 3a c8 99 20 26 34  30 30 43 35 2c 2c 42 25  |2 :.. &400C5,,B%|
00000050  0d 00 32 16 c9 20 33 20  3a c8 99 20 26 34 30 30  |..2.. 3 :.. &400|
00000060  43 36 2c 2c 42 25 0d 00  3c 11 c9 20 36 20 3a f2  |C6,,B%..<.. 6 :.|
00000070  62 75 74 74 6f 6e 73 0d  00 46 16 c9 20 37 20 3a  |buttons..F.. 7 :|
00000080  f2 69 6e 69 74 69 61 74  65 73 61 76 65 0d 00 50  |.initiatesave..P|
00000090  24 c9 20 38 20 3a e7 20  ac 20 a4 6f 75 72 6b 65  |$. 8 :. . .ourke|
000000a0  79 20 c8 99 20 26 34 30  30 44 43 2c 42 25 21 32  |y .. &400DC,B%!2|
000000b0  34 0d 00 5a 14 c9 20 39  20 3a f2 6d 65 6e 75 73  |4..Z.. 9 :.menus|
000000c0  65 6c 65 63 74 0d 00 64  14 c9 20 31 37 2c 31 38  |elect..d.. 17,18|
000000d0  3a f2 72 65 63 65 69 76  65 0d 00 6e 42 c9 20 31  |:.receive..nB. 1|
000000e0  39 3a c8 99 20 26 38 2c  36 2c 42 25 2b 34 34 3a  |9:.. &8,6,B%+44:|
000000f0  85 20 32 35 35 2c 22 44  61 74 61 20 74 72 61 6e  |. 255,"Data tran|
00000100  73 66 65 72 20 66 61 69  6c 65 64 3a 20 52 65 63  |sfer failed: Rec|
00000110  65 69 76 65 72 20 64 69  65 64 22 0d 00 78 05 cb  |eiver died"..x..|
00000120  0d 00 82 05 e1 0d 00 8c  05 3a 0d 00 96 16 dd f2  |.........:......|
00000130  69 63 6f 6e 73 74 61 74  65 28 68 25 2c 69 25 29  |iconstate(h%,i%)|
00000140  0d 00 a0 2f 21 42 25 3d  68 25 3a 42 25 21 34 3d  |.../!B%=h%:B%!4=|
00000150  69 25 3a 42 25 21 38 3d  30 3a 42 25 21 31 32 3d  |i%:B%!8=0:B%!12=|
00000160  30 3a c8 99 20 26 34 30  30 43 44 2c 2c 42 25 0d  |0:.. &400CD,,B%.|
00000170  00 aa 05 e1 0d 00 b4 05  3a 0d 00 be 0d dd f2 6c  |........:......l|
00000180  6f 61 64 61 63 6b 0d 00  c8 0e 42 25 21 31 32 3d  |oadack....B%!12=|
00000190  42 25 21 38 0d 00 d2 24  c8 99 20 22 57 69 6d 70  |B%!8...$.. "Wimp|
000001a0  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 37  |_SendMessage",17|
000001b0  2c 42 25 2c 42 25 21 34  0d 00 dc 05 e1 0d 00 e6  |,B%,B%!4........|
000001c0  04 0d 00 f0 0d dd f2 72  65 63 65 69 76 65 0d 00  |.......receive..|
000001d0  fa 0e c8 8e 20 42 25 21  31 36 20 ca 0d 01 04 0f  |.... B%!16 .....|
000001e0  c9 20 30 3a 71 75 69 74  25 3d b9 0d 01 0e 11 c9  |. 0:quit%=......|
000001f0  20 32 3a f2 64 61 74 61  73 61 76 65 0d 01 18 1e  | 2:.datasave....|
00000200  c9 20 33 3a f2 6c 6f 61  64 61 63 6b 3a f2 73 68  |. 3:.loadack:.sh|
00000210  6f 77 66 69 6c 65 69 6e  66 6f 0d 01 22 04 0d 01  |owfileinfo.."...|
00000220  2c 05 cb 0d 01 36 05 e1  0d 01 40 05 3a 0d 01 4a  |,....6....@.:..J|
00000230  18 dd f2 67 65 74 77 69  6e 64 6f 77 73 74 61 74  |...getwindowstat|
00000240  65 28 68 25 29 0d 01 54  18 21 42 25 3d 68 25 3a  |e(h%)..T.!B%=h%:|
00000250  c8 99 20 26 34 30 30 43  42 2c 2c 42 25 0d 01 5e  |.. &400CB,,B%..^|
00000260  05 e1 0d 01 68 05 3a 0d  01 72 14 dd f2 6f 70 65  |....h.:..r...ope|
00000270  6e 77 69 6e 64 6f 77 28  68 25 29 0d 01 7c 17 f2  |nwindow(h%)..|..|
00000280  67 65 74 77 69 6e 64 6f  77 73 74 61 74 65 28 68  |getwindowstate(h|
00000290  25 29 0d 01 86 1a 42 25  21 32 38 3d 2d 31 3a c8  |%)....B%!28=-1:.|
000002a0  99 20 26 34 30 30 43 35  2c 2c 42 25 0d 01 90 05  |. &400C5,,B%....|
000002b0  e1 0d 01 9a 05 3a 0d 01  a4 0b dd f2 63 6c 6f 73  |.....:......clos|
000002c0  65 0d 01 ae 0e 24 42 25  3d 22 54 41 53 4b 22 0d  |e....$B%="TASK".|
000002d0  01 b8 17 c8 99 20 26 34  30 30 44 44 2c 74 61 73  |..... &400DD,tas|
000002e0  6b 25 2c 21 42 25 0d 01  c2 05 e1 0d 01 cc 05 3a  |k%,!B%.........:|
000002f0  0d 01 d6 0f dd a4 77 69  6d 70 65 72 72 6f 72 0d  |......wimperror.|
00000300  01 e0 1a e7 20 fc 20 d5  23 fc 2c f6 24 2b 22 20  |.... . .#.,.$+" |
00000310  22 2b c3 28 9e 2f 31 30  29 0d 01 ea 09 21 42 25  |"+.(./10)....!B%|
00000320  3d 9f 0d 01 f4 36 24 28  42 25 2b 34 29 3d f6 24  |=....6$(B%+4)=.$|
00000330  2b 22 20 28 69 6e 74 65  72 6e 61 6c 20 65 72 72  |+" (internal err|
00000340  6f 72 20 63 6f 64 65 20  22 2b c3 28 9e 2f 31 30  |or code "+.(./10|
00000350  29 2b 22 29 22 2b bd 30  0d 01 fe 25 c8 99 20 26  |)+")"+.0...%.. &|
00000360  34 30 30 44 46 2c 42 25  2c 33 2c 70 72 6f 67 24  |400DF,B%,3,prog$|
00000370  20 b8 20 2c 72 65 73 70  6f 6e 73 65 25 0d 02 08  | . ,response%...|
00000380  22 e7 20 72 65 73 70 6f  6e 73 65 25 3d 32 20 8c  |". response%=2 .|
00000390  20 f2 63 6c 6f 73 65 3a  3d b9 20 8b 20 3d a3 0d  | .close:=. . =..|
000003a0  02 12 05 3a 0d 02 1c 13  dd f2 69 6e 66 6f 6d 65  |...:......infome|
000003b0  6e 75 28 69 6e 25 29 0d  02 26 0e de 20 6d 65 6e  |nu(in%)..&.. men|
000003c0  75 25 20 37 36 0d 02 30  10 24 6d 65 6e 75 25 3d  |u% 76..0.$menu%=|
000003d0  70 72 6f 67 24 0d 02 3a  41 6d 65 6e 75 25 21 31  |prog$..:Amenu%!1|
000003e0  32 3d 26 37 30 32 30 37  3a 6d 65 6e 75 25 21 31  |2=&70207:menu%!1|
000003f0  36 3d 31 36 2a 28 a9 70  72 6f 67 24 2b 31 29 3a  |6=16*(.prog$+1):|
00000400  6d 65 6e 75 25 21 32 30  3d 34 34 3a 6d 65 6e 75  |menu%!20=44:menu|
00000410  25 21 32 34 3d 30 0d 02  44 31 6d 65 6e 75 25 21  |%!24=0..D1menu%!|
00000420  32 38 3d 30 3a 6d 65 6e  75 25 21 33 32 3d 69 6e  |28=0:menu%!32=in|
00000430  25 3a 6d 65 6e 75 25 21  33 36 3d 26 32 31 20 2b  |%:menu%!36=&21 +|
00000440  28 37 3c 3c 32 34 29 0d  02 4e 16 24 28 6d 65 6e  |(7<<24)..N.$(men|
00000450  75 25 2b 34 30 29 3d 22  49 6e 66 6f 22 0d 02 58  |u%+40)="Info"..X|
00000460  32 6d 65 6e 75 25 21 35  32 3d 26 38 30 3a 6d 65  |2menu%!52=&80:me|
00000470  6e 75 25 21 35 36 3d 2d  31 3a 6d 65 6e 75 25 21  |nu%!56=-1:menu%!|
00000480  36 30 3d 26 32 31 20 2b  28 37 3c 3c 32 34 29 0d  |60=&21 +(7<<24).|
00000490  02 62 20 24 28 6d 65 6e  75 25 2b 36 34 29 3d 22  |.b $(menu%+64)="|
000004a0  51 75 69 74 22 3a 65 6e  74 72 69 65 73 3d 32 0d  |Quit":entries=2.|
000004b0  02 6c 05 e1 0d 02 76 05  3a 0d 02 80 26 dd f2 73  |.l....v.:...&..s|
000004c0  68 6f 77 6d 65 6e 75 28  6d 65 6e 75 25 2c 78 25  |howmenu(menu%,x%|
000004d0  2c 79 25 2c 6f 6e 69 63  6f 6e 62 61 72 25 29 0d  |,y%,oniconbar%).|
000004e0  02 8a 2c e7 20 6f 6e 69  63 6f 6e 62 61 72 25 20  |..,. oniconbar% |
000004f0  79 70 6f 73 25 3d 39 36  2b 34 34 2a 32 20 8b 20  |ypos%=96+44*2 . |
00000500  79 70 6f 73 25 3d 79 25  2b 32 30 0d 02 94 20 c8  |ypos%=y%+20... .|
00000510  99 20 26 34 30 30 44 34  2c 2c 6d 65 6e 75 25 2c  |. &400D4,,menu%,|
00000520  78 25 2d 36 34 2c 79 70  6f 73 25 0d 02 9e 05 e1  |x%-64,ypos%.....|
00000530  0d 02 a8 05 3a 0d 02 b2  10 dd f2 6d 65 6e 75 73  |....:......menus|
00000540  65 6c 65 63 74 0d 02 bc  0f 71 75 69 74 25 3d 21  |elect....quit%=!|
00000550  42 25 3d 31 0d 02 c6 05  e1 0d 02 d0 05 3a 0d 02  |B%=1.........:..|
00000560  da 0d dd f2 62 75 74 74  6f 6e 73 0d 02 e4 32 78  |....buttons...2x|
00000570  25 3d 21 42 25 3a 79 25  3d 42 25 21 34 3a 62 75  |%=!B%:y%=B%!4:bu|
00000580  74 74 25 3d 42 25 21 38  3a 68 25 3d 42 25 21 31  |tt%=B%!8:h%=B%!1|
00000590  32 3a 69 63 6f 6e 25 3d  42 25 21 31 36 0d 02 ee  |2:icon%=B%!16...|
000005a0  2e e7 20 62 75 74 74 25  20 80 20 32 20 f2 73 68  |.. butt% . 2 .sh|
000005b0  6f 77 6d 65 6e 75 28 6d  65 6e 75 25 2c 78 25 2c  |owmenu(menu%,x%,|
000005c0  79 25 2c 68 25 3d 2d 32  29 3a e1 0d 02 f8 0b c8  |y%,h%=-2):......|
000005d0  8e 20 68 25 20 ca 0d 03  02 08 c9 20 2d 32 0d 03  |. h% ...... -2..|
000005e0  0c 21 e7 20 62 75 74 74  25 20 80 20 35 20 f2 6f  |.!. butt% . 5 .o|
000005f0  70 65 6e 77 69 6e 64 6f  77 28 6f 70 74 25 29 0d  |penwindow(opt%).|
00000600  03 16 25 e7 20 62 75 74  74 25 20 80 20 26 35 30  |..%. butt% . &50|
00000610  20 3a e7 20 69 63 6f 6e  25 3d 34 20 f2 64 72 61  | :. icon%=4 .dra|
00000620  67 62 6f 78 0d 03 20 0a  c9 20 6f 70 74 25 0d 03  |gbox.. .. opt%..|
00000630  2a 0e c8 8e 20 69 63 6f  6e 25 20 ca 0d 03 34 1f  |*... icon% ...4.|
00000640  20 c9 20 34 3a e7 20 62  75 74 74 25 20 80 20 26  | . 4:. butt% . &|
00000650  35 30 20 f2 64 72 61 67  62 6f 78 0d 03 3e 0c 20  |50 .dragbox..>. |
00000660  c9 20 35 2c 36 2c 37 0d  03 48 24 20 20 76 65 72  |. 5,6,7..H$  ver|
00000670  25 3d 32 2a 69 63 6f 6e  25 2d 37 3a e7 20 76 65  |%=2*icon%-7:. ve|
00000680  72 25 3d 37 20 76 65 72  25 3d 36 0d 03 52 2d 20  |r%=7 ver%=6..R- |
00000690  20 f2 63 68 61 6e 67 65  74 65 78 74 28 6f 70 74  | .changetext(opt|
000006a0  25 2c 34 2c 22 66 69 6c  65 5f 30 22 2b c3 28 36  |%,4,"file_0"+.(6|
000006b0  30 2b 76 65 72 25 29 29  0d 03 5c 12 20 c9 20 38  |0+ver%))..\. . 8|
000006c0  3a 6f 62 25 3d ac 20 6f  62 25 0d 03 66 12 20 c9  |:ob%=. ob%..f. .|
000006d0  20 39 3a 70 72 25 3d ac  20 70 72 25 0d 03 70 13  | 9:pr%=. pr%..p.|
000006e0  20 c9 20 31 30 3a 73 74  25 3d ac 20 73 74 25 0d  | . 10:st%=. st%.|
000006f0  03 7a 14 20 c9 20 31 31  3a f2 71 75 69 63 6b 73  |.z. . 11:.quicks|
00000700  61 76 65 0d 03 84 1b 20  c9 20 31 35 2c 31 36 3a  |ave.... . 15,16:|
00000710  73 69 7a 65 25 3d 73 69  7a 65 25 2d 31 35 0d 03  |size%=size%-15..|
00000720  8e 12 20 c9 20 31 37 3a  67 6f 25 3d ac 67 6f 25  |.. . 17:go%=.go%|
00000730  0d 03 98 06 20 cb 0d 03  a2 05 cb 0d 03 ac 05 e1  |.... ...........|
00000740  0d 03 b6 05 3a 0d 03 c0  10 dd a4 73 74 72 69 6e  |....:......strin|
00000750  67 28 6c 25 29 0d 03 ca  08 ea 20 64 24 0d 03 d4  |g(l%)..... d$...|
00000760  15 64 24 3d 22 22 3a 61  25 3d 30 3a 62 25 3d 3f  |.d$="":a%=0:b%=?|
00000770  6c 25 0d 03 de 25 c8 95  20 62 25 3e 33 31 20 64  |l%...%.. b%>31 d|
00000780  24 2b 3d bd 62 25 3a 61  25 2b 3d 31 3a 62 25 3d  |$+=.b%:a%+=1:b%=|
00000790  6c 25 3f 61 25 3a ce 0d  03 e8 07 3d 64 24 0d 03  |l%?a%:.....=d$..|
000007a0  f2 05 3a 0d 03 fc 0d dd  f2 64 72 61 67 62 6f 78  |..:......dragbox|
000007b0  0d 04 06 19 f2 67 65 74  77 69 6e 64 6f 77 73 74  |.....getwindowst|
000007c0  61 74 65 28 6f 70 74 25  29 0d 04 10 22 6f 78 25  |ate(opt%)..."ox%|
000007d0  3d 42 25 21 34 2d 42 25  21 32 30 3a 6f 79 25 3d  |=B%!4-B%!20:oy%=|
000007e0  42 25 21 31 36 2d 42 25  21 32 34 0d 04 1a 18 42  |B%!16-B%!24....B|
000007f0  25 21 34 3d 34 3a c8 99  20 26 34 30 30 43 45 2c  |%!4=4:.. &400CE,|
00000800  2c 42 25 0d 04 24 13 21  42 25 3d 6f 70 74 25 3a  |,B%..$.!B%=opt%:|
00000810  42 25 21 34 3d 35 0d 04  2e 18 42 25 21 38 2b 3d  |B%!4=5....B%!8+=|
00000820  6f 78 25 3a 42 25 21 31  32 2b 3d 6f 79 25 0d 04  |ox%:B%!12+=oy%..|
00000830  38 19 42 25 21 31 36 2b  3d 6f 78 25 3a 42 25 21  |8.B%!16+=ox%:B%!|
00000840  32 30 2b 3d 6f 79 25 0d  04 42 13 42 25 21 32 34  |20+=oy%..B.B%!24|
00000850  3d 30 3a 42 25 21 32 38  3d 30 0d 04 4c 23 42 25  |=0:B%!28=0..L#B%|
00000860  21 33 32 3d 26 37 46 46  46 46 46 46 46 3a 42 25  |!32=&7FFFFFFF:B%|
00000870  21 33 36 3d 26 37 46 46  46 46 46 46 46 0d 04 56  |!36=&7FFFFFFF..V|
00000880  11 c8 99 20 26 34 30 30  44 30 2c 2c 42 25 0d 04  |... &400D0,,B%..|
00000890  60 05 e1 0d 04 6a 04 0d  04 74 05 3a 0d 04 7e 12  |`....j...t.:..~.|
000008a0  dd f2 69 6e 69 74 69 61  74 65 73 61 76 65 0d 04  |..initiatesave..|
000008b0  88 11 c8 99 20 26 34 30  30 43 46 2c 2c 42 25 0d  |.... &400CF,,B%.|
000008c0  04 92 1b 42 25 21 32 30  3d 42 25 21 31 32 3a 42  |...B%!20=B%!12:B|
000008d0  25 21 32 34 3d 42 25 21  31 36 0d 04 9c 19 42 25  |%!24=B%!16....B%|
000008e0  21 32 38 3d 42 25 21 30  3a 42 25 21 33 32 3d 42  |!28=B%!0:B%!32=B|
000008f0  25 21 34 0d 04 a6 0e 42  25 21 33 36 3d 26 34 30  |%!4....B%!36=&40|
00000900  30 0d 04 b0 1c 42 25 21  30 3d 32 35 36 3a 42 25  |0....B%!0=256:B%|
00000910  21 31 32 3d 30 3a 42 25  21 31 36 3d 31 0d 04 ba  |!12=0:B%!16=1...|
00000920  18 42 25 21 34 30 3d a0  28 22 26 30 36 22 2b c3  |.B%!40=.("&06"+.|
00000930  76 65 72 25 29 0d 04 c4  24 24 28 42 25 2b 34 34  |ver%)...$$(B%+44|
00000940  29 3d a4 67 65 74 6c 65  61 66 28 a4 74 65 78 74  |)=.getleaf(.text|
00000950  28 6f 70 74 25 2c 31 29  29 0d 04 ce 1f c8 99 20  |(opt%,1))...... |
00000960  26 34 30 30 45 37 2c 31  37 2c 42 25 2c 42 25 21  |&400E7,17,B%,B%!|
00000970  32 30 2c 42 25 21 32 34  0d 04 d8 05 e1 0d 04 e2  |20,B%!24........|
00000980  05 3a 0d 04 ec 14 dd a4  67 65 74 6c 65 61 66 28  |.:......getleaf(|
00000990  6e 61 6d 65 24 29 0d 04  f6 12 c8 95 20 a7 6e 61  |name$)...... .na|
000009a0  6d 65 24 2c 22 2e 22 29  0d 05 00 1f 6e 61 6d 65  |me$,".")....name|
000009b0  24 3d c1 6e 61 6d 65 24  2c a7 6e 61 6d 65 24 2c  |$=.name$,.name$,|
000009c0  22 2e 22 29 2b 31 29 0d  05 0a 05 ce 0d 05 14 0d  |".")+1).........|
000009d0  3d 6e 61 6d 65 24 2b bd  30 0d 05 1e 04 0d 05 28  |=name$+.0......(|
000009e0  05 3a 0d 05 32 13 dd f2  72 65 6c 65 61 73 65 28  |.:..2...release(|
000009f0  61 72 65 61 29 0d 05 3c  11 c8 99 26 31 45 2c 37  |area)..<...&1E,7|
00000a00  2c 2c 61 72 65 61 0d 05  46 05 e1 0d 05 50 04 0d  |,,area..F....P..|
00000a10  05 5a 0a dd f2 69 63 6f  6e 0d 05 64 2b 42 25 21  |.Z...icon..d+B%!|
00000a20  30 3d 2d 31 3a 42 25 21  34 3d 30 3a 42 25 21 38  |0=-1:B%!4=0:B%!8|
00000a30  3d 30 3a 42 25 21 31 32  3d 36 38 3a 42 25 21 31  |=0:B%!12=68:B%!1|
00000a40  36 3d 36 38 0d 05 6e 22  42 25 21 32 30 3d 26 33  |6=68..n"B%!20=&3|
00000a50  30 30 32 3a 24 28 42 25  2b 32 34 29 3d 22 21 22  |002:$(B%+24)="!"|
00000a60  2b 70 72 6f 67 24 0d 05  78 11 c8 99 20 26 34 30  |+prog$..x... &40|
00000a70  30 43 32 2c 2c 42 25 0d  05 82 05 e1 0d 05 8c 04  |0C2,,B%.........|
00000a80  0d 05 96 10 dd a4 77 69  6e 64 6f 77 28 61 24 29  |......window(a$)|
00000a90  0d 05 a0 38 c8 99 20 26  34 30 30 44 42 2c 2c 74  |...8.. &400DB,,t|
00000aa0  65 6d 70 6c 25 2c 64 61  74 61 25 2c 65 6e 64 25  |empl%,data%,end%|
00000ab0  2c 2d 31 2c 61 24 2c 30  20 b8 20 2c 2c 64 61 74  |,-1,a$,0 . ,,dat|
00000ac0  61 25 2c 2c 2c 2c 63 25  0d 05 aa 1a c8 99 20 26  |a%,,,,c%...... &|
00000ad0  34 30 30 43 31 2c 2c 74  65 6d 70 6c 25 20 b8 20  |400C1,,templ% . |
00000ae0  63 25 0d 05 b4 07 3d 63  25 0d 05 be 04 0d 05 c8  |c%....=c%.......|
00000af0  13 dd a4 63 6c 61 69 6d  28 61 6d 6f 75 6e 74 29  |...claim(amount)|
00000b00  0d 05 d2 07 ea 20 85 0d  05 dc 0e ee 20 85 20 ea  |..... ...... . .|
00000b10  20 3a 3d 2d 31 0d 05 e6  1b c8 99 26 31 45 2c 36  | :=-1......&1E,6|
00000b20  2c 2c 2c 61 6d 6f 75 6e  74 20 b8 2c 2c 72 65 74  |,,,amount .,,ret|
00000b30  0d 05 f0 08 3d 72 65 74  0d 05 fa 04 0d 06 04 11  |....=ret........|
00000b40  dd f2 73 65 74 69 63 6f  6e 28 69 25 29 0d 06 0e  |..seticon(i%)...|
00000b50  2b 21 42 25 3d 6f 70 74  25 3a 42 25 21 34 3d 69  |+!B%=opt%:B%!4=i|
00000b60  25 3a 42 25 21 38 3d 31  3c 3c 32 31 3a 42 25 21  |%:B%!8=1<<21:B%!|
00000b70  31 32 3d 31 3c 3c 32 31  0d 06 18 11 c8 99 20 26  |12=1<<21...... &|
00000b80  34 30 30 43 44 2c 2c 42  25 0d 06 22 05 e1 0d 06  |400CD,,B%.."....|
00000b90  2c 04 0d 06 36 1a dd f2  63 68 61 6e 67 65 74 65  |,...6...changete|
00000ba0  78 74 28 68 25 2c 69 25  2c 74 24 29 0d 06 40 20  |xt(h%,i%,t$)..@ |
00000bb0  21 51 25 3d 68 25 3a 51  25 21 34 3d 69 25 3a c8  |!Q%=h%:Q%!4=i%:.|
00000bc0  99 20 26 34 30 30 43 45  2c 2c 51 25 0d 06 4a 1e  |. &400CE,,Q%..J.|
00000bd0  51 25 21 38 3d 30 3a 51  25 21 31 32 3d 30 3a 24  |Q%!8=0:Q%!12=0:$|
00000be0  28 51 25 21 32 38 29 3d  74 24 0d 06 54 11 c8 99  |(Q%!28)=t$..T...|
00000bf0  20 26 34 30 30 43 44 2c  2c 51 25 0d 06 5e 05 e1  | &400CD,,Q%..^..|
00000c00  0d 06 68 05 3a 0d 06 72  11 dd a4 74 65 78 74 28  |..h.:..r...text(|
00000c10  68 25 2c 69 25 29 0d 06  7c 20 21 51 25 3d 68 25  |h%,i%)..| !Q%=h%|
00000c20  3a 51 25 21 34 3d 69 25  3a c8 99 20 26 34 30 30  |:Q%!4=i%:.. &400|
00000c30  43 45 2c 2c 51 25 0d 06  86 15 3d a4 73 74 72 69  |CE,,Q%....=.stri|
00000c40  6e 67 28 28 51 25 21 32  38 29 29 0d 06 90 05 3a  |ng((Q%!28))....:|
00000c50  0d 06 9a 0a dd f2 76 61  72 73 0d 06 a4 15 de 20  |......vars..... |
00000c60  42 25 20 26 31 30 30 2c  51 25 20 26 31 30 30 0d  |B% &100,Q% &100.|
00000c70  06 ae 0b 6d 61 73 6b 25  3d 31 0d 06 b8 14 70 72  |...mask%=1....pr|
00000c80  6f 67 24 3d 22 43 6f 6d  70 49 6e 66 6f 22 0d 06  |og$="CompInfo"..|
00000c90  c2 13 71 75 69 74 25 3d  a3 3a 64 6f 6e 65 25 3d  |..quit%=.:done%=|
00000ca0  a3 0d 06 cc 1b 6f 62 25  3d a3 3a 70 72 25 3d a3  |.....ob%=.:pr%=.|
00000cb0  3a 73 74 25 3d a3 3a 67  6f 25 3d a3 0d 06 d6 05  |:st%=.:go%=.....|
00000cc0  e1 0d 06 e0 05 3a 0d 06  ea 12 dd f2 73 68 6f 77  |.....:......show|
00000cd0  66 69 6c 65 69 6e 66 6f  0d 06 f4 0f 74 79 70 65  |fileinfo....type|
00000ce0  25 3d 42 25 21 34 30 0d  06 fe 13 e7 20 74 79 70  |%=B%!40..... typ|
00000cf0  65 25 3c 3e 26 46 46 46  20 e1 0d 07 08 15 61 24  |e%<>&FFF .....a$|
00000d00  3d a4 73 74 72 69 6e 67  28 42 25 2b 34 34 29 0d  |=.string(B%+44).|
00000d10  07 12 13 62 24 3d a4 67  65 74 6c 65 61 66 28 61  |...b$=.getleaf(a|
00000d20  24 29 0d 07 1c 1a f2 63  68 61 6e 67 65 74 65 78  |$).....changetex|
00000d30  74 28 6f 70 74 25 2c 30  2c 61 24 29 0d 07 26 1a  |t(opt%,0,a$)..&.|
00000d40  f2 63 68 61 6e 67 65 74  65 78 74 28 6f 70 74 25  |.changetext(opt%|
00000d50  2c 31 2c 62 24 29 0d 07  30 15 f2 6f 70 65 6e 77  |,1,b$)..0..openw|
00000d60  69 6e 64 6f 77 28 6f 70  74 25 29 0d 07 3a 05 e1  |indow(opt%)..:..|
00000d70  0d 07 44 05 3a 0d 07 4e  0f dd f2 71 75 69 63 6b  |..D.:..N...quick|
00000d80  73 61 76 65 0d 07 58 14  66 24 3d a4 74 65 78 74  |save..X.f$=.text|
00000d90  28 6f 70 74 25 2c 31 29  0d 07 62 11 e7 20 a7 66  |(opt%,1)..b.. .f|
00000da0  24 2c 22 2e 22 29 20 20  8c 0d 07 6c 11 20 20 f2  |$,".")  ...l.  .|
00000db0  73 61 76 65 69 74 28 66  24 29 0d 07 76 13 20 20  |saveit(f$)..v.  |
00000dc0  c8 99 20 26 34 30 30 44  34 2c 2c 2d 31 0d 07 80  |.. &400D4,,-1...|
00000dd0  05 cc 0d 07 8a 3c 24 42  25 3d 22 20 20 20 20 20  |.....<$B%="     |
00000de0  20 54 6f 20 73 61 76 65  2c 20 64 72 61 67 20 74  | To save, drag t|
00000df0  68 65 20 69 63 6f 6e 20  74 6f 20 61 20 64 69 72  |he icon to a dir|
00000e00  65 63 74 6f 72 79 20 76  69 65 77 65 72 22 0d 07  |ectory viewer"..|
00000e10  94 18 c8 99 20 26 34 30  30 44 46 2c 42 25 2c 31  |.... &400DF,B%,1|
00000e20  2c 70 72 6f 67 24 0d 07  9e 05 cd 0d 07 a8 05 e1  |,prog$..........|
00000e30  0d 07 b2 05 3a 0d 07 bc  0e dd f2 64 61 74 61 73  |....:......datas|
00000e40  61 76 65 0d 07 c6 15 6f  24 3d a4 73 74 72 69 6e  |ave....o$=.strin|
00000e50  67 28 42 25 2b 34 34 29  0d 07 d0 1a f2 63 68 61  |g(B%+44).....cha|
00000e60  6e 67 65 74 65 78 74 28  6f 70 74 25 2c 31 2c 6f  |ngetext(opt%,1,o|
00000e70  24 29 0d 07 da 11 c8 99  20 26 34 30 30 44 34 2c  |$)...... &400D4,|
00000e80  2c 2d 31 0d 07 e4 1e 42  25 21 31 32 3d 42 25 21  |,-1....B%!12=B%!|
00000e90  38 3a 42 25 21 31 36 3d  33 3a 21 42 25 3d 32 35  |8:B%!16=3:!B%=25|
00000ea0  36 0d 07 ee 1f c8 99 20  26 34 30 30 45 37 2c 31  |6...... &400E7,1|
00000eb0  38 2c 42 25 2c 42 25 21  32 30 2c 42 25 21 32 34  |8,B%,B%!20,B%!24|
00000ec0  0d 07 f8 0f f2 73 61 76  65 69 74 28 6f 24 29 0d  |.....saveit(o$).|
00000ed0  08 02 05 e1 0d 08 0c 05  3a 0d 08 16 10 dd f2 73  |........:......s|
00000ee0  61 76 65 69 74 28 6f 24  29 0d 08 20 14 71 24 3d  |aveit(o$).. .q$=|
00000ef0  a4 74 65 78 74 28 6f 70  74 25 2c 30 29 0d 08 2a  |.text(opt%,0)..*|
00000f00  0d e7 20 71 24 3d 6f 24  20 8c 0d 08 34 30 20 20  |.. q$=o$ ...40  |
00000f10  24 42 25 3d 22 20 20 20  20 54 68 61 74 20 77 6f  |$B%="    That wo|
00000f20  75 6c 64 20 6f 76 65 72  77 72 69 74 65 20 73 6f  |uld overwrite so|
00000f30  75 72 63 65 20 66 69 6c  65 22 0d 08 3e 1a 20 20  |urce file"..>.  |
00000f40  c8 99 20 26 34 30 30 44  46 2c 42 25 2c 31 2c 70  |.. &400DF,B%,1,p|
00000f50  72 6f 67 24 0d 08 48 07  20 20 e1 0d 08 52 05 cd  |rog$..H.  ...R..|
00000f60  0d 08 5c 20 64 24 3d 22  3c 43 6f 6d 70 49 6e 66  |..\ d$="<CompInf|
00000f70  6f 24 44 69 72 3e 2e 69  6e 66 6f 72 6d 20 2d 22  |o$Dir>.inform -"|
00000f80  0d 08 66 11 e7 20 6f 62  25 20 64 24 2b 3d 22 6a  |..f.. ob% d$+="j|
00000f90  22 0d 08 70 11 e7 20 70  72 25 20 64 24 2b 3d 22  |"..p.. pr% d$+="|
00000fa0  6e 22 0d 08 7a 11 e7 20  73 74 25 20 64 24 2b 3d  |n"..z.. st% d$+=|
00000fb0  22 73 22 0d 08 84 11 64  24 2b 3d 22 76 22 2b c3  |"s"....d$+="v"+.|
00000fc0  76 65 72 25 0d 08 8e 11  e7 20 67 6f 25 20 64 24  |ver%..... go% d$|
00000fd0  2b 3d 22 78 22 0d 08 98  0b 64 24 2b 3d 22 20 22  |+="x"....d$+=" "|
00000fe0  0d 08 a2 28 65 24 3d a4  74 65 78 74 28 6f 70 74  |...(e$=.text(opt|
00000ff0  25 2c 31 34 29 3a e7 20  65 24 3e 22 22 20 64 24  |%,14):. e$>"" d$|
00001000  2b 3d 65 24 2b 22 20 22  0d 08 ac 2b e7 20 73 69  |+=e$+" "...+. si|
00001010  7a 65 25 3d 30 20 64 24  2b 3d 22 24 73 6d 61 6c  |ze%=0 d$+="$smal|
00001020  6c 20 22 20 8b 20 64 24  2b 3d 22 24 6c 61 72 67  |l " . d$+="$larg|
00001030  65 20 22 0d 08 b6 11 64  24 2b 3d 71 24 2b 22 20  |e "....d$+=q$+" |
00001040  22 2b 6f 24 0d 08 c0 2e  24 42 25 3d 22 54 61 73  |"+o$....$B%="Tas|
00001050  6b 57 69 6e 64 6f 77 20  22 22 22 2b 64 24 2b 22  |kWindow """+d$+"|
00001060  22 22 20 2d 64 69 73 70  6c 61 79 20 2d 71 75 69  |"" -display -qui|
00001070  74 22 0d 08 ca 1a c8 99  20 22 57 69 6d 70 5f 53  |t"...... "Wimp_S|
00001080  74 61 72 74 54 61 73 6b  22 2c 42 25 0d 08 d4 05  |tartTask",B%....|
00001090  e1 0d 08 de 04 0d 08 e8  17 dd f2 6c 6f 61 64 54  |...........loadT|
000010a0  65 6d 70 6c 61 74 65 73  28 64 24 29 0d 08 f2 29  |emplates(d$)...)|
000010b0  c8 99 20 26 34 30 30 44  39 2c 2c 22 3c 43 6f 6d  |.. &400D9,,"<Com|
000010c0  70 49 6e 66 6f 24 44 69  72 3e 2e 54 65 6d 70 6c  |pInfo$Dir>.Templ|
000010d0  61 74 65 73 22 0d 08 fc  1d 6d 61 78 62 75 66 66  |ates"....maxbuff|
000010e0  25 3d 31 37 30 38 3a 69  6e 6c 65 6e 25 3d 31 32  |%=1708:inlen%=12|
000010f0  30 30 0d 09 06 1d 74 65  6d 70 6c 25 3d a4 63 6c  |00....templ%=.cl|
00001100  61 69 6d 28 6d 61 78 62  75 66 66 25 2b 34 29 0d  |aim(maxbuff%+4).|
00001110  09 10 13 de 20 69 6e 64  69 72 25 20 69 6e 6c 65  |.... indir% inle|
00001120  6e 25 0d 09 1a 23 64 61  74 61 25 3d 69 6e 64 69  |n%...#data%=indi|
00001130  72 25 3a 65 6e 64 25 3d  69 6e 64 69 72 25 2b 69  |r%:end%=indir%+i|
00001140  6e 6c 65 6e 25 0d 09 24  1b 69 62 68 25 3d a4 77  |nlen%..$.ibh%=.w|
00001150  69 6e 64 6f 77 28 22 69  6e 66 6f 22 2b 64 24 29  |indow("info"+d$)|
00001160  0d 09 2e 1b 6f 70 74 25  3d a4 77 69 6e 64 6f 77  |....opt%=.window|
00001170  28 22 6d 61 69 6e 22 2b  64 24 29 0d 09 38 18 f2  |("main"+d$)..8..|
00001180  73 65 74 69 63 6f 6e 28  31 35 29 3a 73 69 7a 65  |seticon(15):size|
00001190  25 3d 30 0d 09 42 16 f2  73 65 74 69 63 6f 6e 28  |%=0..B..seticon(|
000011a0  31 37 29 3a 67 6f 25 3d  b9 0d 09 4c 16 f2 73 65  |17):go%=...L..se|
000011b0  74 69 63 6f 6e 28 36 29  3a 76 65 72 25 3d 34 0d  |ticon(6):ver%=4.|
000011c0  09 56 0d c8 99 20 26 34  30 30 44 41 0d 09 60 13  |.V... &400DA..`.|
000011d0  c8 99 26 31 45 2c 37 2c  2c 74 65 6d 70 6c 25 0d  |..&1E,7,,templ%.|
000011e0  09 6a 13 f2 69 6e 66 6f  6d 65 6e 75 28 69 62 68  |.j..infomenu(ibh|
000011f0  25 29 0d 09 74 05 e1 0d  ff                       |%)..t....|
000011f9