� � �error :�
/inlen%=128:maxw%=7:icb%=-1:wid%=220:max%=25
M� indir% inlen%,B% &200,message% 24,col$(7),nc%(7),opt$(maxw%),inc%(max%)
(J� c$(max%),tinc%(max%),dr$(max%),t$(max%),which%(max%),data% 24,val% 4
2$data%="":$val%="r3"
<l!message%=&400c2:message%!4=&400c3:message%!8=&400c1:message%!12=&400c2:message%!16=&400c3:message%!20=0
Fprog$="RPCInfo"
Pgcol$()="","Black&White","4 greys","16 colours","256 colours","32k colours","16Mcolours","256 greys"
Z)nc%()=0,1,3,15,63,&ffff,&FFffffff,255
dBopt$()="","TIME","DISC","TIMER","FREE","COLOURS","XY","FREE K"
n,inc%()=0,500,200,100,500,30000,30000,500
xtinc%()=100
�quit%=�
�$B%="TASK"
�/ș &400C0,310,!B%,prog$,message% � v%,task%
��loadTemplates
��menu(ibh%)
��readconfig
�"type%=1:mask%=0:wh%=�:iserr%=�
�ș &42 � time%
��type(�)
�� � � �wimperror � �
��
�&ș &400E1,mask%,B%,time% � reason%
�Ȏ reason% �

� 0:�type(�)

� 2:ș &400C5,,B%

� 6:�buttons

"7� 9:� !B%=2 quit%=� � � !B%=1 �readconfig :�type(�)

,� 17,18:�receive

6�

@� quit%

J"$B%="TASK":ș &400DD,task%,!B%

T�

^:

h
��receive

r	wh%=�

|Ȏ B%!16 �

�� 0:quit%=�

�9� &400c1:� which%(type%)=5 � which%(type%)=6 �type(�)

�.� &400c2,&400c3:� which%(type%)=4 �type(�)

��

��

�:

���error

�	� � �

��4,26,30:� �$;" at line ";�

�$B%="TASK"

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

��

�:
ݤwimperror
	!B%=�
$(B%+4)=�$+" ("+Þ+")"+�0
&ș &400DF,B%,3,prog$ � ,r%
0,� r%=2 $B%="TASK":ș &400DD,task%,!B%:=�
:=�
D:
N��menu(in%)
X� menu% 76+24
b$menu%=prog$
lf%=&21+(7<<24)
v7menu%!12=&70207:menu%!16=176:menu%!20=44:menu%!24=0
�<menu%!28=0  :menu%!32=in%:menu%!36=f%:$(menu%+40)="Info"
�Bmenu%!52=0  :menu%!56=-1 :menu%!60=f%:$(menu%+64)="New Config"
�<menu%!76=&80:menu%!80=-1 :menu%!84=f%:$(menu%+88)="Quit"
��
�:
�
��buttons
�x%=!B%:butt%=B%!8
�� B%!12<>-2 �
�
ot%=type%
�
Ȏ � �
�� (butt% � 2)>0
�O� which%(type%)=3 � � iserr% mask%=1-mask% � ș &400D4,,menu%,x%-64,96+3*44
�5� (butt% � 4)>0:type%+=1:� type%>maxtype% type%=1
5� (butt% � 1)>0:type%-=1:� type%<1 type%=maxtype%
�
� type%<>ot% �
 #� which%(type%)=3 �=0 � mask%=0
*iserr%=�
4�type(�)
>�
H�
R:
\��loadTemplates
f&ș &400D9,,"<Clock$Dir>.Templates"
p2ș &400DB,,B%,indir%,indir%+inlen%,-1,"info",0
zș &400C1,,B% � ibh%
�
ș &400DA
��
�:
���type(do%)
�� iserr% �
�8� � $data%=t$:ș &400D1,-2,xl%,16,xr%,48:iserr%=�:�
�inc%=inc%(which%(type%))
�t$="Error in "+�type%
�Ȏ which%(type%) �
�+� 1:t$=�time(1,type%):inc%=tinc%(type%)
�� 2:t$=�free(type%)
�#� 3:t$="Timer: "+�time(2,type%)
�*� 4,7:t$="Free: "+�size(which%(type%))
� 5
ș &35,-1,3 � ,,r2
i%=0:�:i%+=1:� r2=nc%(i%)
$t$=col$(i%)
.� 6
8ș &35,-1,11 � ,,rx
Bș &35,-1,12 � ,,ry
Lt$=�(rx+1)+" * "+�(ry+1)
V�
`� t$<>$data% �
j� wh% �where
t6$data%=�t$,23):� do% Ȗ:ș &400D1,-2,xl%,16,xr%,48
~�
�ș &42 � new%
�>� time%>new% time%=new%+inc% � ȕ new%>time%:time%+=inc%:�
��
�:
���readconfig
�maxtype%=0
�C=� "<Clock$Dir>.Config"
�� C=0 �
�maxtype%=2
�8which%()=1,4:inc%(1)=100:c$(1)="%z12:%mi:%se %pm"+�0
�inc%=100
��
�#C=0:a%=0

ȕ � �#C � (a%<max%)

d$=�#C
ȕ �d$=32:d$=�d$,2):�
(ȕ �d$)=" ":d$=�d$):�
2� �d$,1)<>"|" � d$>"" �
<
�i%=1��d$
Fd%=��d$,i%,1)
P,� d%>=�"a" � d%<=�"z" �d$,i%,1)=�(d%-32)
Z� d%=�":" i%=9999
d�
n� d$="TIME" d$+=":%z24:%mi"
x%� d$="DATE" d$="TIME:%zdy%st %mo"
�#� d$="TIMER" d$="TIMER:%mi:%se"
�
�	a%+=1
�i%=�d$,":")
�,� i%>0 a$=�d$,i%-1):d$=�d$,i%+1) � a$=d$
�/opt$(0)=a$:i%=maxw%:ȕ a$<>opt$(i%):i%-=1:�
�which%(a%)=i%
�Ȏ i% �
�	� 1,3
�c$(a%)=d$+�0
�@� �d$,"%se")<1 � �d$,"%zse")<1 tinc%(a%)=500 � tinc%(a%)=100
�� 2
�-j%=�d$,"/"):t$(a%)=�d$,j%-1):d$=�d$,j%+1)
-j%=�d$,"/"):c$(a%)=�d$,j%-1):d$=�d$,j%+1)
dr$(a%)=d$+�0
�
"�
,�
6maxtype%=a%
@�#C
J�
T�calclength
^	�icon
h�
r:
|
��icon
�B%!0=-8:B%!4=0:B%!8=0
�'B%!12=wid%:B%!16=68:B%!20=&1700211D
�#B%!24=data%:B%!28=val%:B%!32=36
�!ș &400C2,&1FFF0000,B% � icb%
�
�where
��
�:
���where
�=!B%=-1:B%!4=icb%:ș &400CE,,B%:xl%=B%!8+8:xr%=xl%+wid%-16
�	wh%=�
��
�:
���calclength
� i%,j%,t%
wid%=9+��maxtype%
7� icb%>-1 !B%=-1:B%!4=icb%:ș "Wimp_DeleteIcon",,B%
&� �
0�i%=1�maxtype%
:� � �:wid%+=16:�
DȎ which%(i%) �
N� 1:t%=��time(1,1)
X� 2:t%=��free(i%)
b� 3:t%=7+��time(2,i%)
l!� 4,7:t%=6+��size(which%(i%))
v� 5,6:t%=11
��
�� 16*t%>wid% wid%=16*t%
��
�� �
�wid%+=16
��
�
�ݤsize(opt%)
�ș &400EC,-1,-1 � ,,a%
�� a%<2048:=�a%
�*� a%<(2<<21) � (opt%=7):=�(a%>>10)+"K"
�=�(a%>>20)+"M"
�
ݤfree(t%)
&ș c$(t%)+"_FreeSpace",dr$(t%) � a
#ș &EC,a,B%,&100 � ,b:?(b-5)=13
 =t$(t%)+" "+$B%
*
4ݤtime(o%,i%)
>+� o%=1 ?B%=3:ș &7,14,B% � !B%=�:B%!4=0
H,ș &C1,B%,B%+10,&100,c$(i%) � ,r1:?r1=13
R
=$(B%+10)
�

00000000  0d 00 0a 11 ee 20 85 20  f2 65 72 72 6f 72 20 3a  |..... . .error :|
00000010  e0 0d 00 14 2f 69 6e 6c  65 6e 25 3d 31 32 38 3a  |..../inlen%=128:|
00000020  6d 61 78 77 25 3d 37 3a  69 63 62 25 3d 2d 31 3a  |maxw%=7:icb%=-1:|
00000030  77 69 64 25 3d 32 32 30  3a 6d 61 78 25 3d 32 35  |wid%=220:max%=25|
00000040  0d 00 1e 4d de 20 69 6e  64 69 72 25 20 69 6e 6c  |...M. indir% inl|
00000050  65 6e 25 2c 42 25 20 26  32 30 30 2c 6d 65 73 73  |en%,B% &200,mess|
00000060  61 67 65 25 20 32 34 2c  63 6f 6c 24 28 37 29 2c  |age% 24,col$(7),|
00000070  6e 63 25 28 37 29 2c 6f  70 74 24 28 6d 61 78 77  |nc%(7),opt$(maxw|
00000080  25 29 2c 69 6e 63 25 28  6d 61 78 25 29 0d 00 28  |%),inc%(max%)..(|
00000090  4a de 20 63 24 28 6d 61  78 25 29 2c 74 69 6e 63  |J. c$(max%),tinc|
000000a0  25 28 6d 61 78 25 29 2c  64 72 24 28 6d 61 78 25  |%(max%),dr$(max%|
000000b0  29 2c 74 24 28 6d 61 78  25 29 2c 77 68 69 63 68  |),t$(max%),which|
000000c0  25 28 6d 61 78 25 29 2c  64 61 74 61 25 20 32 34  |%(max%),data% 24|
000000d0  2c 76 61 6c 25 20 34 0d  00 32 18 24 64 61 74 61  |,val% 4..2.$data|
000000e0  25 3d 22 22 3a 24 76 61  6c 25 3d 22 72 33 22 0d  |%="":$val%="r3".|
000000f0  00 3c 6c 21 6d 65 73 73  61 67 65 25 3d 26 34 30  |.<l!message%=&40|
00000100  30 63 32 3a 6d 65 73 73  61 67 65 25 21 34 3d 26  |0c2:message%!4=&|
00000110  34 30 30 63 33 3a 6d 65  73 73 61 67 65 25 21 38  |400c3:message%!8|
00000120  3d 26 34 30 30 63 31 3a  6d 65 73 73 61 67 65 25  |=&400c1:message%|
00000130  21 31 32 3d 26 34 30 30  63 32 3a 6d 65 73 73 61  |!12=&400c2:messa|
00000140  67 65 25 21 31 36 3d 26  34 30 30 63 33 3a 6d 65  |ge%!16=&400c3:me|
00000150  73 73 61 67 65 25 21 32  30 3d 30 0d 00 46 13 70  |ssage%!20=0..F.p|
00000160  72 6f 67 24 3d 22 52 50  43 49 6e 66 6f 22 0d 00  |rog$="RPCInfo"..|
00000170  50 67 63 6f 6c 24 28 29  3d 22 22 2c 22 42 6c 61  |Pgcol$()="","Bla|
00000180  63 6b 26 57 68 69 74 65  22 2c 22 34 20 67 72 65  |ck&White","4 gre|
00000190  79 73 22 2c 22 31 36 20  63 6f 6c 6f 75 72 73 22  |ys","16 colours"|
000001a0  2c 22 32 35 36 20 63 6f  6c 6f 75 72 73 22 2c 22  |,"256 colours","|
000001b0  33 32 6b 20 63 6f 6c 6f  75 72 73 22 2c 22 31 36  |32k colours","16|
000001c0  4d 63 6f 6c 6f 75 72 73  22 2c 22 32 35 36 20 67  |Mcolours","256 g|
000001d0  72 65 79 73 22 0d 00 5a  29 6e 63 25 28 29 3d 30  |reys"..Z)nc%()=0|
000001e0  2c 31 2c 33 2c 31 35 2c  36 33 2c 26 66 66 66 66  |,1,3,15,63,&ffff|
000001f0  2c 26 46 46 66 66 66 66  66 66 2c 32 35 35 0d 00  |,&FFffffff,255..|
00000200  64 42 6f 70 74 24 28 29  3d 22 22 2c 22 54 49 4d  |dBopt$()="","TIM|
00000210  45 22 2c 22 44 49 53 43  22 2c 22 54 49 4d 45 52  |E","DISC","TIMER|
00000220  22 2c 22 46 52 45 45 22  2c 22 43 4f 4c 4f 55 52  |","FREE","COLOUR|
00000230  53 22 2c 22 58 59 22 2c  22 46 52 45 45 20 4b 22  |S","XY","FREE K"|
00000240  0d 00 6e 2c 69 6e 63 25  28 29 3d 30 2c 35 30 30  |..n,inc%()=0,500|
00000250  2c 32 30 30 2c 31 30 30  2c 35 30 30 2c 33 30 30  |,200,100,500,300|
00000260  30 30 2c 33 30 30 30 30  2c 35 30 30 0d 00 78 0f  |00,30000,500..x.|
00000270  74 69 6e 63 25 28 29 3d  31 30 30 0d 00 82 0b 71  |tinc%()=100....q|
00000280  75 69 74 25 3d a3 0d 00  8c 0e 24 42 25 3d 22 54  |uit%=.....$B%="T|
00000290  41 53 4b 22 0d 00 96 2f  c8 99 20 26 34 30 30 43  |ASK".../.. &400C|
000002a0  30 2c 33 31 30 2c 21 42  25 2c 70 72 6f 67 24 2c  |0,310,!B%,prog$,|
000002b0  6d 65 73 73 61 67 65 25  20 b8 20 76 25 2c 74 61  |message% . v%,ta|
000002c0  73 6b 25 0d 00 a0 12 f2  6c 6f 61 64 54 65 6d 70  |sk%.....loadTemp|
000002d0  6c 61 74 65 73 0d 00 aa  0f f2 6d 65 6e 75 28 69  |lates.....menu(i|
000002e0  62 68 25 29 0d 00 b4 0f  f2 72 65 61 64 63 6f 6e  |bh%).....readcon|
000002f0  66 69 67 0d 00 be 22 74  79 70 65 25 3d 31 3a 6d  |fig..."type%=1:m|
00000300  61 73 6b 25 3d 30 3a 77  68 25 3d b9 3a 69 73 65  |ask%=0:wh%=.:ise|
00000310  72 72 25 3d a3 0d 00 c8  12 c8 99 20 26 34 32 20  |rr%=....... &42 |
00000320  b8 20 74 69 6d 65 25 0d  00 d2 0c f2 74 79 70 65  |. time%.....type|
00000330  28 b9 29 0d 00 dc 18 ee  20 85 20 e7 20 a4 77 69  |(.)..... . . .wi|
00000340  6d 70 65 72 72 6f 72 20  8c 20 e0 0d 00 e6 05 f5  |mperror . ......|
00000350  0d 00 f0 26 c8 99 20 26  34 30 30 45 31 2c 6d 61  |...&.. &400E1,ma|
00000360  73 6b 25 2c 42 25 2c 74  69 6d 65 25 20 b8 20 72  |sk%,B%,time% . r|
00000370  65 61 73 6f 6e 25 0d 00  fa 10 c8 8e 20 72 65 61  |eason%...... rea|
00000380  73 6f 6e 25 20 ca 0d 01  04 10 c9 20 30 3a f2 74  |son% ...... 0:.t|
00000390  79 70 65 28 b9 29 0d 01  0e 15 c9 20 32 3a c8 99  |ype(.)..... 2:..|
000003a0  20 26 34 30 30 43 35 2c  2c 42 25 0d 01 18 10 c9  | &400C5,,B%.....|
000003b0  20 36 3a f2 62 75 74 74  6f 6e 73 0d 01 22 37 c9  | 6:.buttons.."7.|
000003c0  20 39 3a e7 20 21 42 25  3d 32 20 71 75 69 74 25  | 9:. !B%=2 quit%|
000003d0  3d b9 20 8b 20 e7 20 21  42 25 3d 31 20 f2 72 65  |=. . . !B%=1 .re|
000003e0  61 64 63 6f 6e 66 69 67  20 3a f2 74 79 70 65 28  |adconfig :.type(|
000003f0  b9 29 0d 01 2c 14 c9 20  31 37 2c 31 38 3a f2 72  |.)..,.. 17,18:.r|
00000400  65 63 65 69 76 65 0d 01  36 05 cb 0d 01 40 0b fd  |eceive..6....@..|
00000410  20 71 75 69 74 25 0d 01  4a 22 24 42 25 3d 22 54  | quit%..J"$B%="T|
00000420  41 53 4b 22 3a c8 99 20  26 34 30 30 44 44 2c 74  |ASK":.. &400DD,t|
00000430  61 73 6b 25 2c 21 42 25  0d 01 54 05 e0 0d 01 5e  |ask%,!B%..T....^|
00000440  05 3a 0d 01 68 0d dd f2  72 65 63 65 69 76 65 0d  |.:..h...receive.|
00000450  01 72 09 77 68 25 3d b9  0d 01 7c 0e c8 8e 20 42  |.r.wh%=...|... B|
00000460  25 21 31 36 20 ca 0d 01  86 0f c9 20 30 3a 71 75  |%!16 ...... 0:qu|
00000470  69 74 25 3d b9 0d 01 90  39 c9 20 26 34 30 30 63  |it%=....9. &400c|
00000480  31 3a e7 20 77 68 69 63  68 25 28 74 79 70 65 25  |1:. which%(type%|
00000490  29 3d 35 20 84 20 77 68  69 63 68 25 28 74 79 70  |)=5 . which%(typ|
000004a0  65 25 29 3d 36 20 f2 74  79 70 65 28 a3 29 0d 01  |e%)=6 .type(.)..|
000004b0  9a 2e c9 20 26 34 30 30  63 32 2c 26 34 30 30 63  |... &400c2,&400c|
000004c0  33 3a e7 20 77 68 69 63  68 25 28 74 79 70 65 25  |3:. which%(type%|
000004d0  29 3d 34 20 f2 74 79 70  65 28 b9 29 0d 01 a4 05  |)=4 .type(.)....|
000004e0  cb 0d 01 ae 05 e1 0d 01  b8 05 3a 0d 01 c2 0b dd  |..........:.....|
000004f0  f2 65 72 72 6f 72 0d 01  cc 09 ee 20 85 20 87 0d  |.error..... . ..|
00000500  01 d6 1f ef 34 2c 32 36  2c 33 30 3a f1 20 f6 24  |....4,26,30:. .$|
00000510  3b 22 20 61 74 20 6c 69  6e 65 20 22 3b 9e 0d 01  |;" at line ";...|
00000520  e0 0e 24 42 25 3d 22 54  41 53 4b 22 0d 01 ea 16  |..$B%="TASK"....|
00000530  c8 99 26 34 30 30 44 44  2c 74 61 73 6b 25 2c 21  |..&400DD,task%,!|
00000540  42 25 0d 01 f4 05 e1 0d  01 fe 05 3a 0d 02 08 0f  |B%.........:....|
00000550  dd a4 77 69 6d 70 65 72  72 6f 72 0d 02 12 09 21  |..wimperror....!|
00000560  42 25 3d 9f 0d 02 1c 1d  24 28 42 25 2b 34 29 3d  |B%=.....$(B%+4)=|
00000570  f6 24 2b 22 20 28 22 2b  c3 9e 2b 22 29 22 2b bd  |.$+" ("+..+")"+.|
00000580  30 0d 02 26 1e c8 99 20  26 34 30 30 44 46 2c 42  |0..&... &400DF,B|
00000590  25 2c 33 2c 70 72 6f 67  24 20 b8 20 2c 72 25 0d  |%,3,prog$ . ,r%.|
000005a0  02 30 2c e7 20 72 25 3d  32 20 24 42 25 3d 22 54  |.0,. r%=2 $B%="T|
000005b0  41 53 4b 22 3a c8 99 20  26 34 30 30 44 44 2c 74  |ASK":.. &400DD,t|
000005c0  61 73 6b 25 2c 21 42 25  3a 3d b9 0d 02 3a 06 3d  |ask%,!B%:=...:.=|
000005d0  a3 0d 02 44 05 3a 0d 02  4e 0f dd f2 6d 65 6e 75  |...D.:..N...menu|
000005e0  28 69 6e 25 29 0d 02 58  11 de 20 6d 65 6e 75 25  |(in%)..X.. menu%|
000005f0  20 37 36 2b 32 34 0d 02  62 10 24 6d 65 6e 75 25  | 76+24..b.$menu%|
00000600  3d 70 72 6f 67 24 0d 02  6c 12 66 25 3d 26 32 31  |=prog$..l.f%=&21|
00000610  2b 28 37 3c 3c 32 34 29  0d 02 76 37 6d 65 6e 75  |+(7<<24)..v7menu|
00000620  25 21 31 32 3d 26 37 30  32 30 37 3a 6d 65 6e 75  |%!12=&70207:menu|
00000630  25 21 31 36 3d 31 37 36  3a 6d 65 6e 75 25 21 32  |%!16=176:menu%!2|
00000640  30 3d 34 34 3a 6d 65 6e  75 25 21 32 34 3d 30 0d  |0=44:menu%!24=0.|
00000650  02 80 3c 6d 65 6e 75 25  21 32 38 3d 30 20 20 3a  |..<menu%!28=0  :|
00000660  6d 65 6e 75 25 21 33 32  3d 69 6e 25 3a 6d 65 6e  |menu%!32=in%:men|
00000670  75 25 21 33 36 3d 66 25  3a 24 28 6d 65 6e 75 25  |u%!36=f%:$(menu%|
00000680  2b 34 30 29 3d 22 49 6e  66 6f 22 0d 02 8a 42 6d  |+40)="Info"...Bm|
00000690  65 6e 75 25 21 35 32 3d  30 20 20 3a 6d 65 6e 75  |enu%!52=0  :menu|
000006a0  25 21 35 36 3d 2d 31 20  3a 6d 65 6e 75 25 21 36  |%!56=-1 :menu%!6|
000006b0  30 3d 66 25 3a 24 28 6d  65 6e 75 25 2b 36 34 29  |0=f%:$(menu%+64)|
000006c0  3d 22 4e 65 77 20 43 6f  6e 66 69 67 22 0d 02 94  |="New Config"...|
000006d0  3c 6d 65 6e 75 25 21 37  36 3d 26 38 30 3a 6d 65  |<menu%!76=&80:me|
000006e0  6e 75 25 21 38 30 3d 2d  31 20 3a 6d 65 6e 75 25  |nu%!80=-1 :menu%|
000006f0  21 38 34 3d 66 25 3a 24  28 6d 65 6e 75 25 2b 38  |!84=f%:$(menu%+8|
00000700  38 29 3d 22 51 75 69 74  22 0d 02 9e 05 e1 0d 02  |8)="Quit".......|
00000710  a8 05 3a 0d 02 b2 0d dd  f2 62 75 74 74 6f 6e 73  |..:......buttons|
00000720  0d 02 bc 15 78 25 3d 21  42 25 3a 62 75 74 74 25  |....x%=!B%:butt%|
00000730  3d 42 25 21 38 0d 02 c6  11 e7 20 42 25 21 31 32  |=B%!8..... B%!12|
00000740  3c 3e 2d 32 20 e1 0d 02  d0 0d 6f 74 25 3d 74 79  |<>-2 .....ot%=ty|
00000750  70 65 25 0d 02 da 0a c8  8e 20 b9 20 ca 0d 02 e4  |pe%...... . ....|
00000760  13 c9 20 28 62 75 74 74  25 20 80 20 32 29 3e 30  |.. (butt% . 2)>0|
00000770  0d 02 ee 4f e7 20 77 68  69 63 68 25 28 74 79 70  |...O. which%(typ|
00000780  65 25 29 3d 33 20 80 20  ac 20 69 73 65 72 72 25  |e%)=3 . . iserr%|
00000790  20 6d 61 73 6b 25 3d 31  2d 6d 61 73 6b 25 20 8b  | mask%=1-mask% .|
000007a0  20 c8 99 20 26 34 30 30  44 34 2c 2c 6d 65 6e 75  | .. &400D4,,menu|
000007b0  25 2c 78 25 2d 36 34 2c  39 36 2b 33 2a 34 34 0d  |%,x%-64,96+3*44.|
000007c0  02 f8 35 c9 20 28 62 75  74 74 25 20 80 20 34 29  |..5. (butt% . 4)|
000007d0  3e 30 3a 74 79 70 65 25  2b 3d 31 3a e7 20 74 79  |>0:type%+=1:. ty|
000007e0  70 65 25 3e 6d 61 78 74  79 70 65 25 20 74 79 70  |pe%>maxtype% typ|
000007f0  65 25 3d 31 0d 03 02 35  c9 20 28 62 75 74 74 25  |e%=1...5. (butt%|
00000800  20 80 20 31 29 3e 30 3a  74 79 70 65 25 2d 3d 31  | . 1)>0:type%-=1|
00000810  3a e7 20 74 79 70 65 25  3c 31 20 74 79 70 65 25  |:. type%<1 type%|
00000820  3d 6d 61 78 74 79 70 65  25 0d 03 0c 05 cb 0d 03  |=maxtype%.......|
00000830  16 12 e7 20 74 79 70 65  25 3c 3e 6f 74 25 20 8c  |... type%<>ot% .|
00000840  0d 03 20 23 e7 20 77 68  69 63 68 25 28 74 79 70  |.. #. which%(typ|
00000850  65 25 29 3d 33 20 91 3d  30 20 8b 20 6d 61 73 6b  |e%)=3 .=0 . mask|
00000860  25 3d 30 0d 03 2a 0c 69  73 65 72 72 25 3d a3 0d  |%=0..*.iserr%=..|
00000870  03 34 0c f2 74 79 70 65  28 b9 29 0d 03 3e 05 cd  |.4..type(.)..>..|
00000880  0d 03 48 05 e1 0d 03 52  05 3a 0d 03 5c 13 dd f2  |..H....R.:..\...|
00000890  6c 6f 61 64 54 65 6d 70  6c 61 74 65 73 0d 03 66  |loadTemplates..f|
000008a0  26 c8 99 20 26 34 30 30  44 39 2c 2c 22 3c 43 6c  |&.. &400D9,,"<Cl|
000008b0  6f 63 6b 24 44 69 72 3e  2e 54 65 6d 70 6c 61 74  |ock$Dir>.Templat|
000008c0  65 73 22 0d 03 70 32 c8  99 20 26 34 30 30 44 42  |es"..p2.. &400DB|
000008d0  2c 2c 42 25 2c 69 6e 64  69 72 25 2c 69 6e 64 69  |,,B%,indir%,indi|
000008e0  72 25 2b 69 6e 6c 65 6e  25 2c 2d 31 2c 22 69 6e  |r%+inlen%,-1,"in|
000008f0  66 6f 22 2c 30 0d 03 7a  18 c8 99 20 26 34 30 30  |fo",0..z... &400|
00000900  43 31 2c 2c 42 25 20 b8  20 69 62 68 25 0d 03 84  |C1,,B% . ibh%...|
00000910  0d c8 99 20 26 34 30 30  44 41 0d 03 8e 05 e1 0d  |... &400DA......|
00000920  03 98 05 3a 0d 03 a2 0f  dd f2 74 79 70 65 28 64  |...:......type(d|
00000930  6f 25 29 0d 03 ac 0e e7  20 69 73 65 72 72 25 20  |o%)..... iserr% |
00000940  e1 0d 03 b6 38 ee 85 20  ea 20 24 64 61 74 61 25  |....8.. . $data%|
00000950  3d 74 24 3a c8 99 20 26  34 30 30 44 31 2c 2d 32  |=t$:.. &400D1,-2|
00000960  2c 78 6c 25 2c 31 36 2c  78 72 25 2c 34 38 3a 69  |,xl%,16,xr%,48:i|
00000970  73 65 72 72 25 3d b9 3a  e1 0d 03 c0 1c 69 6e 63  |serr%=.:.....inc|
00000980  25 3d 69 6e 63 25 28 77  68 69 63 68 25 28 74 79  |%=inc%(which%(ty|
00000990  70 65 25 29 29 0d 03 ca  19 74 24 3d 22 45 72 72  |pe%))....t$="Err|
000009a0  6f 72 20 69 6e 20 22 2b  c3 74 79 70 65 25 0d 03  |or in "+.type%..|
000009b0  d4 16 c8 8e 20 77 68 69  63 68 25 28 74 79 70 65  |.... which%(type|
000009c0  25 29 20 ca 0d 03 de 2b  c9 20 31 3a 74 24 3d a4  |%) ....+. 1:t$=.|
000009d0  74 69 6d 65 28 31 2c 74  79 70 65 25 29 3a 69 6e  |time(1,type%):in|
000009e0  63 25 3d 74 69 6e 63 25  28 74 79 70 65 25 29 0d  |c%=tinc%(type%).|
000009f0  03 e8 17 c9 20 32 3a 74  24 3d a4 66 72 65 65 28  |.... 2:t$=.free(|
00000a00  74 79 70 65 25 29 0d 03  f2 23 c9 20 33 3a 74 24  |type%)...#. 3:t$|
00000a10  3d 22 54 69 6d 65 72 3a  20 22 2b a4 74 69 6d 65  |="Timer: "+.time|
00000a20  28 32 2c 74 79 70 65 25  29 0d 03 fc 2a c9 20 34  |(2,type%)...*. 4|
00000a30  2c 37 3a 74 24 3d 22 46  72 65 65 3a 20 22 2b a4  |,7:t$="Free: "+.|
00000a40  73 69 7a 65 28 77 68 69  63 68 25 28 74 79 70 65  |size(which%(type|
00000a50  25 29 29 0d 04 06 07 c9  20 35 0d 04 10 16 c8 99  |%))..... 5......|
00000a60  20 26 33 35 2c 2d 31 2c  33 20 b8 20 2c 2c 72 32  | &35,-1,3 . ,,r2|
00000a70  0d 04 1a 1d 69 25 3d 30  3a f5 3a 69 25 2b 3d 31  |....i%=0:.:i%+=1|
00000a80  3a fd 20 72 32 3d 6e 63  25 28 69 25 29 0d 04 24  |:. r2=nc%(i%)..$|
00000a90  0f 74 24 3d 63 6f 6c 24  28 69 25 29 0d 04 2e 07  |.t$=col$(i%)....|
00000aa0  c9 20 36 0d 04 38 17 c8  99 20 26 33 35 2c 2d 31  |. 6..8... &35,-1|
00000ab0  2c 31 31 20 b8 20 2c 2c  72 78 0d 04 42 17 c8 99  |,11 . ,,rx..B...|
00000ac0  20 26 33 35 2c 2d 31 2c  31 32 20 b8 20 2c 2c 72  | &35,-1,12 . ,,r|
00000ad0  79 0d 04 4c 1c 74 24 3d  c3 28 72 78 2b 31 29 2b  |y..L.t$=.(rx+1)+|
00000ae0  22 20 2a 20 22 2b c3 28  72 79 2b 31 29 0d 04 56  |" * "+.(ry+1)..V|
00000af0  05 cb 0d 04 60 12 e7 20  74 24 3c 3e 24 64 61 74  |....`.. t$<>$dat|
00000b00  61 25 20 8c 0d 04 6a 10  e7 20 77 68 25 20 f2 77  |a% ...j.. wh% .w|
00000b10  68 65 72 65 0d 04 74 36  24 64 61 74 61 25 3d c2  |here..t6$data%=.|
00000b20  74 24 2c 32 33 29 3a e7  20 64 6f 25 20 c8 96 3a  |t$,23):. do% ..:|
00000b30  c8 99 20 26 34 30 30 44  31 2c 2d 32 2c 78 6c 25  |.. &400D1,-2,xl%|
00000b40  2c 31 36 2c 78 72 25 2c  34 38 0d 04 7e 05 cd 0d  |,16,xr%,48..~...|
00000b50  04 88 11 c8 99 20 26 34  32 20 b8 20 6e 65 77 25  |..... &42 . new%|
00000b60  0d 04 92 3e e7 20 74 69  6d 65 25 3e 6e 65 77 25  |...>. time%>new%|
00000b70  20 74 69 6d 65 25 3d 6e  65 77 25 2b 69 6e 63 25  | time%=new%+inc%|
00000b80  20 8b 20 c8 95 20 6e 65  77 25 3e 74 69 6d 65 25  | . .. new%>time%|
00000b90  3a 74 69 6d 65 25 2b 3d  69 6e 63 25 3a ce 0d 04  |:time%+=inc%:...|
00000ba0  9c 05 e1 0d 04 a6 05 3a  0d 04 b0 10 dd f2 72 65  |.......:......re|
00000bb0  61 64 63 6f 6e 66 69 67  0d 04 ba 0e 6d 61 78 74  |adconfig....maxt|
00000bc0  79 70 65 25 3d 30 0d 04  c4 1c 43 3d 8e 20 22 3c  |ype%=0....C=. "<|
00000bd0  43 6c 6f 63 6b 24 44 69  72 3e 2e 43 6f 6e 66 69  |Clock$Dir>.Confi|
00000be0  67 22 0d 04 ce 0b e7 20  43 3d 30 20 8c 0d 04 d8  |g"..... C=0 ....|
00000bf0  0e 6d 61 78 74 79 70 65  25 3d 32 0d 04 e2 38 77  |.maxtype%=2...8w|
00000c00  68 69 63 68 25 28 29 3d  31 2c 34 3a 69 6e 63 25  |hich%()=1,4:inc%|
00000c10  28 31 29 3d 31 30 30 3a  63 24 28 31 29 3d 22 25  |(1)=100:c$(1)="%|
00000c20  7a 31 32 3a 25 6d 69 3a  25 73 65 20 25 70 6d 22  |z12:%mi:%se %pm"|
00000c30  2b bd 30 0d 04 ec 0c 69  6e 63 25 3d 31 30 30 0d  |+.0....inc%=100.|
00000c40  04 f6 05 cc 0d 05 00 0e  cf 23 43 3d 30 3a 61 25  |.........#C=0:a%|
00000c50  3d 30 0d 05 0a 18 c8 95  20 ac 20 c5 23 43 20 80  |=0...... . .#C .|
00000c60  20 28 61 25 3c 6d 61 78  25 29 0d 05 14 0a 64 24  | (a%<max%)....d$|
00000c70  3d be 23 43 0d 05 1e 19  c8 95 20 97 64 24 3d 33  |=.#C...... .d$=3|
00000c80  32 3a 64 24 3d c1 64 24  2c 32 29 3a ce 0d 05 28  |2:d$=.d$,2):...(|
00000c90  19 c8 95 20 c2 64 24 29  3d 22 20 22 3a 64 24 3d  |... .d$)=" ":d$=|
00000ca0  c0 64 24 29 3a ce 0d 05  32 1b e7 20 c0 64 24 2c  |.d$):...2.. .d$,|
00000cb0  31 29 3c 3e 22 7c 22 20  80 20 64 24 3e 22 22 20  |1)<>"|" . d$>"" |
00000cc0  8c 0d 05 3c 0d e3 69 25  3d 31 b8 a9 64 24 0d 05  |...<..i%=1..d$..|
00000cd0  46 11 64 25 3d 97 c1 64  24 2c 69 25 2c 31 29 0d  |F.d%=..d$,i%,1).|
00000ce0  05 50 2c e7 20 64 25 3e  3d 97 22 61 22 20 80 20  |.P,. d%>=."a" . |
00000cf0  64 25 3c 3d 97 22 7a 22  20 c1 64 24 2c 69 25 2c  |d%<=."z" .d$,i%,|
00000d00  31 29 3d bd 28 64 25 2d  33 32 29 0d 05 5a 15 e7  |1)=.(d%-32)..Z..|
00000d10  20 64 25 3d 97 22 3a 22  20 69 25 3d 39 39 39 39  | d%=.":" i%=9999|
00000d20  0d 05 64 05 ed 0d 05 6e  1f e7 20 64 24 3d 22 54  |..d....n.. d$="T|
00000d30  49 4d 45 22 20 64 24 2b  3d 22 3a 25 7a 32 34 3a  |IME" d$+=":%z24:|
00000d40  25 6d 69 22 0d 05 78 25  e7 20 64 24 3d 22 44 41  |%mi"..x%. d$="DA|
00000d50  54 45 22 20 64 24 3d 22  54 49 4d 45 3a 25 7a 64  |TE" d$="TIME:%zd|
00000d60  79 25 73 74 20 25 6d 6f  22 0d 05 82 23 e7 20 64  |y%st %mo"...#. d|
00000d70  24 3d 22 54 49 4d 45 52  22 20 64 24 3d 22 54 49  |$="TIMER" d$="TI|
00000d80  4d 45 52 3a 25 6d 69 3a  25 73 65 22 0d 05 8c 04  |MER:%mi:%se"....|
00000d90  0d 05 96 09 61 25 2b 3d  31 0d 05 a0 0f 69 25 3d  |....a%+=1....i%=|
00000da0  a7 64 24 2c 22 3a 22 29  0d 05 aa 2c e7 20 69 25  |.d$,":")...,. i%|
00000db0  3e 30 20 61 24 3d c0 64  24 2c 69 25 2d 31 29 3a  |>0 a$=.d$,i%-1):|
00000dc0  64 24 3d c1 64 24 2c 69  25 2b 31 29 20 8b 20 61  |d$=.d$,i%+1) . a|
00000dd0  24 3d 64 24 0d 05 b4 2f  6f 70 74 24 28 30 29 3d  |$=d$.../opt$(0)=|
00000de0  61 24 3a 69 25 3d 6d 61  78 77 25 3a c8 95 20 61  |a$:i%=maxw%:.. a|
00000df0  24 3c 3e 6f 70 74 24 28  69 25 29 3a 69 25 2d 3d  |$<>opt$(i%):i%-=|
00000e00  31 3a ce 0d 05 be 11 77  68 69 63 68 25 28 61 25  |1:.....which%(a%|
00000e10  29 3d 69 25 0d 05 c8 0b  c8 8e 20 69 25 20 ca 0d  |)=i%...... i% ..|
00000e20  05 d2 09 c9 20 31 2c 33  0d 05 dc 10 63 24 28 61  |.... 1,3....c$(a|
00000e30  25 29 3d 64 24 2b bd 30  0d 05 e6 40 e7 20 a7 64  |%)=d$+.0...@. .d|
00000e40  24 2c 22 25 73 65 22 29  3c 31 20 80 20 a7 64 24  |$,"%se")<1 . .d$|
00000e50  2c 22 25 7a 73 65 22 29  3c 31 20 74 69 6e 63 25  |,"%zse")<1 tinc%|
00000e60  28 61 25 29 3d 35 30 30  20 8b 20 74 69 6e 63 25  |(a%)=500 . tinc%|
00000e70  28 61 25 29 3d 31 30 30  0d 05 f0 07 c9 20 32 0d  |(a%)=100..... 2.|
00000e80  05 fa 2d 6a 25 3d a7 64  24 2c 22 2f 22 29 3a 74  |..-j%=.d$,"/"):t|
00000e90  24 28 61 25 29 3d c0 64  24 2c 6a 25 2d 31 29 3a  |$(a%)=.d$,j%-1):|
00000ea0  64 24 3d c1 64 24 2c 6a  25 2b 31 29 0d 06 04 2d  |d$=.d$,j%+1)...-|
00000eb0  6a 25 3d a7 64 24 2c 22  2f 22 29 3a 63 24 28 61  |j%=.d$,"/"):c$(a|
00000ec0  25 29 3d c0 64 24 2c 6a  25 2d 31 29 3a 64 24 3d  |%)=.d$,j%-1):d$=|
00000ed0  c1 64 24 2c 6a 25 2b 31  29 0d 06 0e 11 64 72 24  |.d$,j%+1)....dr$|
00000ee0  28 61 25 29 3d 64 24 2b  bd 30 0d 06 18 05 cb 0d  |(a%)=d$+.0......|
00000ef0  06 22 05 cd 0d 06 2c 05  ce 0d 06 36 0f 6d 61 78  |."....,....6.max|
00000f00  74 79 70 65 25 3d 61 25  0d 06 40 07 d9 23 43 0d  |type%=a%..@..#C.|
00000f10  06 4a 05 cd 0d 06 54 0f  f2 63 61 6c 63 6c 65 6e  |.J....T..calclen|
00000f20  67 74 68 0d 06 5e 09 f2  69 63 6f 6e 0d 06 68 05  |gth..^..icon..h.|
00000f30  e1 0d 06 72 05 3a 0d 06  7c 0a dd f2 69 63 6f 6e  |...r.:..|...icon|
00000f40  0d 06 86 19 42 25 21 30  3d 2d 38 3a 42 25 21 34  |....B%!0=-8:B%!4|
00000f50  3d 30 3a 42 25 21 38 3d  30 0d 06 90 27 42 25 21  |=0:B%!8=0...'B%!|
00000f60  31 32 3d 77 69 64 25 3a  42 25 21 31 36 3d 36 38  |12=wid%:B%!16=68|
00000f70  3a 42 25 21 32 30 3d 26  31 37 30 30 32 31 31 44  |:B%!20=&1700211D|
00000f80  0d 06 9a 23 42 25 21 32  34 3d 64 61 74 61 25 3a  |...#B%!24=data%:|
00000f90  42 25 21 32 38 3d 76 61  6c 25 3a 42 25 21 33 32  |B%!28=val%:B%!32|
00000fa0  3d 33 36 0d 06 a4 21 c8  99 20 26 34 30 30 43 32  |=36...!.. &400C2|
00000fb0  2c 26 31 46 46 46 30 30  30 30 2c 42 25 20 b8 20  |,&1FFF0000,B% . |
00000fc0  69 63 62 25 0d 06 ae 0a  f2 77 68 65 72 65 0d 06  |icb%.....where..|
00000fd0  b8 05 e1 0d 06 c2 05 3a  0d 06 cc 0b dd f2 77 68  |.......:......wh|
00000fe0  65 72 65 0d 06 d6 3d 21  42 25 3d 2d 31 3a 42 25  |ere...=!B%=-1:B%|
00000ff0  21 34 3d 69 63 62 25 3a  c8 99 20 26 34 30 30 43  |!4=icb%:.. &400C|
00001000  45 2c 2c 42 25 3a 78 6c  25 3d 42 25 21 38 2b 38  |E,,B%:xl%=B%!8+8|
00001010  3a 78 72 25 3d 78 6c 25  2b 77 69 64 25 2d 31 36  |:xr%=xl%+wid%-16|
00001020  0d 06 e0 09 77 68 25 3d  a3 0d 06 ea 05 e1 0d 06  |....wh%=........|
00001030  f4 05 3a 0d 06 fe 10 dd  f2 63 61 6c 63 6c 65 6e  |..:......calclen|
00001040  67 74 68 0d 07 08 0e ea  20 69 25 2c 6a 25 2c 74  |gth..... i%,j%,t|
00001050  25 0d 07 12 15 77 69 64  25 3d 39 2b a9 c3 6d 61  |%....wid%=9+..ma|
00001060  78 74 79 70 65 25 0d 07  1c 37 e7 20 69 63 62 25  |xtype%...7. icb%|
00001070  3e 2d 31 20 21 42 25 3d  2d 31 3a 42 25 21 34 3d  |>-1 !B%=-1:B%!4=|
00001080  69 63 62 25 3a c8 99 20  22 57 69 6d 70 5f 44 65  |icb%:.. "Wimp_De|
00001090  6c 65 74 65 49 63 6f 6e  22 2c 2c 42 25 0d 07 26  |leteIcon",,B%..&|
000010a0  07 ea 20 85 0d 07 30 12  e3 69 25 3d 31 b8 6d 61  |.. ...0..i%=1.ma|
000010b0  78 74 79 70 65 25 0d 07  3a 15 ee 85 20 ea 20 ed  |xtype%..:... . .|
000010c0  3a 77 69 64 25 2b 3d 31  36 3a e1 0d 07 44 13 c8  |:wid%+=16:...D..|
000010d0  8e 20 77 68 69 63 68 25  28 69 25 29 20 ca 0d 07  |. which%(i%) ...|
000010e0  4e 16 c9 20 31 3a 74 25  3d a9 a4 74 69 6d 65 28  |N.. 1:t%=..time(|
000010f0  31 2c 31 29 0d 07 58 15  c9 20 32 3a 74 25 3d a9  |1,1)..X.. 2:t%=.|
00001100  a4 66 72 65 65 28 69 25  29 0d 07 62 19 c9 20 33  |.free(i%)..b.. 3|
00001110  3a 74 25 3d 37 2b a9 a4  74 69 6d 65 28 32 2c 69  |:t%=7+..time(2,i|
00001120  25 29 0d 07 6c 21 c9 20  34 2c 37 3a 74 25 3d 36  |%)..l!. 4,7:t%=6|
00001130  2b a9 a4 73 69 7a 65 28  77 68 69 63 68 25 28 69  |+..size(which%(i|
00001140  25 29 29 0d 07 76 0f c9  20 35 2c 36 3a 74 25 3d  |%))..v.. 5,6:t%=|
00001150  31 31 0d 07 80 05 cb 0d  07 8a 1b e7 20 31 36 2a  |11.......... 16*|
00001160  74 25 3e 77 69 64 25 20  77 69 64 25 3d 31 36 2a  |t%>wid% wid%=16*|
00001170  74 25 0d 07 94 05 ed 0d  07 9e 07 f7 20 85 0d 07  |t%.......... ...|
00001180  a8 0c 77 69 64 25 2b 3d  31 36 0d 07 b2 05 e1 0d  |..wid%+=16......|
00001190  07 bc 04 0d 07 c6 10 dd  a4 73 69 7a 65 28 6f 70  |.........size(op|
000011a0  74 25 29 0d 07 d0 1a c8  99 20 26 34 30 30 45 43  |t%)...... &400EC|
000011b0  2c 2d 31 2c 2d 31 20 b8  20 2c 2c 61 25 0d 07 da  |,-1,-1 . ,,a%...|
000011c0  12 e7 20 61 25 3c 32 30  34 38 3a 3d c3 61 25 0d  |.. a%<2048:=.a%.|
000011d0  07 e4 2a e7 20 61 25 3c  28 32 3c 3c 32 31 29 20  |..*. a%<(2<<21) |
000011e0  84 20 28 6f 70 74 25 3d  37 29 3a 3d c3 28 61 25  |. (opt%=7):=.(a%|
000011f0  3e 3e 31 30 29 2b 22 4b  22 0d 07 ee 12 3d c3 28  |>>10)+"K"....=.(|
00001200  61 25 3e 3e 32 30 29 2b  22 4d 22 0d 07 f8 04 0d  |a%>>20)+"M".....|
00001210  08 02 0e dd a4 66 72 65  65 28 74 25 29 0d 08 0c  |.....free(t%)...|
00001220  26 c8 99 20 63 24 28 74  25 29 2b 22 5f 46 72 65  |&.. c$(t%)+"_Fre|
00001230  65 53 70 61 63 65 22 2c  64 72 24 28 74 25 29 20  |eSpace",dr$(t%) |
00001240  b8 20 61 0d 08 16 23 c8  99 20 26 45 43 2c 61 2c  |. a...#.. &EC,a,|
00001250  42 25 2c 26 31 30 30 20  b8 20 2c 62 3a 3f 28 62  |B%,&100 . ,b:?(b|
00001260  2d 35 29 3d 31 33 0d 08  20 13 3d 74 24 28 74 25  |-5)=13.. .=t$(t%|
00001270  29 2b 22 20 22 2b 24 42  25 0d 08 2a 04 0d 08 34  |)+" "+$B%..*...4|
00001280  11 dd a4 74 69 6d 65 28  6f 25 2c 69 25 29 0d 08  |...time(o%,i%)..|
00001290  3e 2b e7 20 6f 25 3d 31  20 3f 42 25 3d 33 3a c8  |>+. o%=1 ?B%=3:.|
000012a0  99 20 26 37 2c 31 34 2c  42 25 20 8b 20 21 42 25  |. &7,14,B% . !B%|
000012b0  3d 91 3a 42 25 21 34 3d  30 0d 08 48 2c c8 99 20  |=.:B%!4=0..H,.. |
000012c0  26 43 31 2c 42 25 2c 42  25 2b 31 30 2c 26 31 30  |&C1,B%,B%+10,&10|
000012d0  30 2c 63 24 28 69 25 29  20 b8 20 2c 72 31 3a 3f  |0,c$(i%) . ,r1:?|
000012e0  72 31 3d 31 33 0d 08 52  0d 3d 24 28 42 25 2b 31  |r1=13..R.=$(B%+1|
000012f0  30 29 0d ff                                       |0)..|
000012f4