� > Usage
�taskid%4:$taskid%="TASK"
�message_list%12
(=message_list%!0=10:message_list%!4=&502:message_list%!8=0
2Amessagefile_handle%=�open_messagefile("<Usage$Dir>.Messages")
F7usage$=�message_lookup(messagefile_handle%,"Usage")
PBș"Wimp_Initialise",300,!taskid%,usage$,message_list%�version%
ZI`wbcol=0:`tbcol=2:`sco=3:`mbcol=2:`wfcol=7:`tfcol=7:`sci=1:`tbcol2=12
d	�vars
n,�q%&300,h%63:acc%=0:�J%=0�63�4:h%!J%=0:�
�maxbuf%=&400
�-�buffer%maxbuf%,endbuf%-1:curbuf%=buffer%
�show%=�cwindow
�3� 3,`wfcol,`wbcol,0,-200,256,0,0,-200,256,0  ,0
���errorbox
�BșDrag,,-1:�getpointer:�popup(show%):șTime%�t1%:timex%=t1%+50
��
�șPoll%,0,q%�A%
�	ȎA%�
��0:�nudge:șTime%�t1%
��1:�redraw_window(!q%)

@�2:�open_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)

�3:�finish:�

�17,18:�receive(q%)

"�

,��

@��receive(q%)

J�desktop_save_handle%,r2%

TȎq%!16�

^�0:�finish:�

h�10

rdesktop_save_handle%=q%!20

|2ș"OS_ReadVarVal","Usage$Dir",q%,256,0,0�,,r2%

�
q%?r2%=13

�%�#desktop_save_handle%,"Run "+$q%

�	�&502

�5text$=�message_lookup(messagefile_handle%,"Help")

�q%!12=q%!8

�q%!16=&503

�$(q%+20)=text$

� q%!0=(((20+�(text$)+4)�4)*4)

�$(q%+21+�(text$))=�(0)

�ș"Wimp_SendMessage",17,q%

��

��

ݤcwindow
;�f%,fc%,bc%,x0%,y0%,x1%,y1%,cx0%,cy0%,cx1%,cy1%,nicons%
3A$=�message_lookup(messagefile_handle%,"Title")
&V=�create_window(cx0%,cy0%,cx1%,cy1%,0,0,f%,fc%,bc%,x0%,y0%,x1%,y1%,&2D,A$,nicons%)
:��closeawindow(handle%)
D�getw(handle%)
Nxo%=x0%:yo%=y0%:open%=�
X�close_window(handle%)
b�
v��finish
�ș"Wimp_CloseDown"
�+�close_messagefile(messagefile_handle%)
��
�lݤcreate_window(cx0%,cy0%,cx1%,cy1%,scx%,scy%,flags%,fc%,bc%,sx0%,sy0%,sx1%,sy1%,titlef%,title$,nicons%)
�A!q%=cx0%:q%!4=cy0%:q%!8=cx1%:q%!12=cy1%:q%!16=scx%:q%!20=scy%
�q%!24=-1:q%!28=flags%
��fc%=15�bc%=15�
�)q%?32=15:q%?33=15:q%?34=fc%:q%?35=bc%
�2�q%?32=`tfcol:q%?33=`tbcol:q%?34=fc%:q%?35=bc%
��
�1q%?36=`sco:q%?37=`tbcol:q%?38=`tbcol2:q%?39=0
�/q%!40=sx0%:q%!44=sy0%:q%!48=sx1%:q%!52=sy1%
q%!56=titlef%�256
q%!60=&3000
q%!64=0:q%!68=0
 �tb%�(title$)+1
*$tb%=title$+�(0)
4
q%!72=tb%
>q%!76=-1
Hq%!80=�(title$)+1
Rq%!84=nicons%
\)�I%,x0%,y0%,x1%,y1%,f%,data$:I%=q%+88
fȕnicons%>0
p%�x0%,y0%,x1%,y1%,f%,fc%,bc%,data$
z(I%!0=x0%:I%!4=y0%:I%!8=x1%:I%!12=y1%
� �(f%�&40)=0�bc%=fc%+(bc%<<4)
�I%!16=f%+(bc%<<24)
��(f%�&100)�
�;�L%:B%=�buffer(L%):I%!20=B%:$B%=data$:I%!24=-1:I%!28=L%
��
�$(I%+20)=data$
��
�I%=I%+32:nicons%=nicons%-1
��
�șCreateW,,q%�handle%
�=handle%
���front(handle%)
�handle%=-1��
�getw(handle%)
6�open_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,-1)
$�
8��popup(handle%)
B�getw(handle%)
L0xo%=mousex%-(x0%+x1%)/2:yo%=mousey%-(y1%+64)
VF�open_window(handle%,x0%+xo%,y0%+yo%,x1%+xo%,y1%+yo%,scx%,scy%,-1)
`�
t��reopen(handle%)
~�getw(handle%)
�F�open_window(handle%,xo%,yo%,x1%-x0%+xo%,y1%-y0%+yo%,scx%,scy%,-1)
��
�=��open_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,bhandle%)
��handle%=-1��
�q%!0=handle%:q%!28=bhandle%
�)q%!4=x0%:q%!8=y0%:q%!12=x1%:q%!16=y1%
�q%!20=scx%:q%!24=scy%
�șOpenW,,q%
��
���getw(handle%)
!q%=handle%:șGetW,,q%

+�info(q%+4):bhandle%=q%!28:flags%=q%!32
�
(��info(q%)
2=x0%=!q%:y0%=q%!4:x1%=q%!8:y1%=q%!12:scx%=q%!16:scy%=q%!20
<bx%=x0%-scx%:by%=y1%-scy%
F�
Z)��update(handle%,ux0%,uy0%,ux1%,uy1%)
d9!q%=handle%:q%!4=ux0%:q%!8=uy0%:q%!12=ux1%:q%!16=uy1%
n#șUpdateW,,q%�more%:�info(q%+4)
x�
�)��invalidate(handle%,x0%,y0%,x1%,y1%)
�$șScreen,handle%,x0%,y0%,x1%,y1%
��
���redraw_window(handle%)
��handle%=show%�
�!q%=handle%
�șRedrawW,,q%�more%
��info(q%+4)
�ȕmore%
�!�J%=q%!28-bx%>>2�q%!36-bx%>>2
� ȓȐbx%+J%*4,by%-200,3,h%?J%
�
șGetR%,0,q%�more%
�
"�
,�
@��close_window(handle%)
J!q%=handle%:șCloseW,,q%
T�
h
��vars
rWimp=(1<<18)+(3<<6)
|CreateW=Wimp+1
�OpenW=Wimp+5
�CloseW=Wimp+6
�Poll%=Wimp+7
�RedrawW=Wimp+8
�UpdateW=Wimp+9
�GetR%=Wimp+10
�GetW=Wimp+11
�GetP=Wimp+15
�Drag=Wimp+16
�Screen=Wimp+17
�CrMenu=Wimp+20
�DcMenu=Wimp+21
�5ș"OS_SWINumberFromString",,"Wimp_SetColour"�Col%
5ș"OS_SWINumberFromString",,"Wimp_BlockCopy"�blk%
<ș"OS_SWINumberFromString",,"OS_ReadMonotonicTime"�Time%
�
0��getpointer
:șGetP,,q%
DHmousex%=!q%:mousey%=q%!4:b%=q%!8:handle%=q%!12:icon%=q%!16:ob%=q%!20
N�
b��errorbox
l�1,�$:�
vșDrag,,-1
�T!buffer%=�:$(buffer%+4)=�$+�message_lookup_1(messagefile_handle%,"IntErr",Þ)+�0
�)ș"Wimp_ReportError",buffer%,1,usage$
�
�finish:�
��
�ݤbuffer(L%)
� �curbuf%+L%>buffer%+maxbuf%�
�5�100,message_lookup(messagefile_handle%,"NoRoom")
��
�curbuf%+=L%
�=curbuf%-L%
���nudge
*șTime%�t2%:�t2%<timex%acc%+=t2%-t1%:�
'ȕtimex%+100*64<t2%:timex%+=50*64:�
�J%=h%�h%+63�4:!J%=J%!1:�
 /șblk%,show%,4,-200,256,0,0,-200:timex%+=50
*,h%?63=200-acc%/50*200:�acc%>50 h%?63=200
4�t2%>timex%+50 h%?63=200
>?q%=buffer%:!q%=show%:q%!4=256-4:q%!8=-200:q%!12=256:q%!16=0
HșUpdateW,,q%�more%
Rbx%=q%!4-q%!20:by%=q%!16
\ȕmore%
f*șCol%,7:ȓȐbx%+256-4,by%-200,3,h%?63
p*șCol%,0:ȓȐbx%+256-4,by%,3,h%?63-200
zșGetR%,0,q%�more%
��
��t2%<timex%acc%=0
��
�ݤopen_messagefile(name$)
��mh%
��
���:�1,�$:�
�ș"OS_Module",6,,,16�,,mh%
�)ș"MessageTrans_OpenFile",mh%,name$,0
�=mh%
���close_messagefile(mh%)
	"ș"MessageTrans_CloseFile",mh%
	ș"OS_Module",7,,mh%
	�
	.ݤmessage_lookup(mh%,tag$)
	8�s$
	B5ș"MessageTrans_Lookup",mh%,tag$,0,0,0,0,0,0�,,s$
	L=s$
	`'ݤmessage_lookup_1(mh%,tag$,perc0$)
	j�s$,message_buffer%
	t�message_buffer%256
	�Jș"MessageTrans_Lookup",mh%,tag$,message_buffer%,256,perc0$,0,0,0�,,s$
	�=s$
�

00000000  0d 00 0a 0d f4 20 3e 20  55 73 61 67 65 0d 00 14  |..... > Usage...|
00000010  1d de 74 61 73 6b 69 64  25 34 3a 24 74 61 73 6b  |..taskid%4:$task|
00000020  69 64 25 3d 22 54 41 53  4b 22 0d 00 1e 14 de 6d  |id%="TASK".....m|
00000030  65 73 73 61 67 65 5f 6c  69 73 74 25 31 32 0d 00  |essage_list%12..|
00000040  28 3d 6d 65 73 73 61 67  65 5f 6c 69 73 74 25 21  |(=message_list%!|
00000050  30 3d 31 30 3a 6d 65 73  73 61 67 65 5f 6c 69 73  |0=10:message_lis|
00000060  74 25 21 34 3d 26 35 30  32 3a 6d 65 73 73 61 67  |t%!4=&502:messag|
00000070  65 5f 6c 69 73 74 25 21  38 3d 30 0d 00 32 41 6d  |e_list%!8=0..2Am|
00000080  65 73 73 61 67 65 66 69  6c 65 5f 68 61 6e 64 6c  |essagefile_handl|
00000090  65 25 3d a4 6f 70 65 6e  5f 6d 65 73 73 61 67 65  |e%=.open_message|
000000a0  66 69 6c 65 28 22 3c 55  73 61 67 65 24 44 69 72  |file("<Usage$Dir|
000000b0  3e 2e 4d 65 73 73 61 67  65 73 22 29 0d 00 46 37  |>.Messages")..F7|
000000c0  75 73 61 67 65 24 3d a4  6d 65 73 73 61 67 65 5f  |usage$=.message_|
000000d0  6c 6f 6f 6b 75 70 28 6d  65 73 73 61 67 65 66 69  |lookup(messagefi|
000000e0  6c 65 5f 68 61 6e 64 6c  65 25 2c 22 55 73 61 67  |le_handle%,"Usag|
000000f0  65 22 29 0d 00 50 42 c8  99 22 57 69 6d 70 5f 49  |e")..PB.."Wimp_I|
00000100  6e 69 74 69 61 6c 69 73  65 22 2c 33 30 30 2c 21  |nitialise",300,!|
00000110  74 61 73 6b 69 64 25 2c  75 73 61 67 65 24 2c 6d  |taskid%,usage$,m|
00000120  65 73 73 61 67 65 5f 6c  69 73 74 25 b8 76 65 72  |essage_list%.ver|
00000130  73 69 6f 6e 25 0d 00 5a  49 60 77 62 63 6f 6c 3d  |sion%..ZI`wbcol=|
00000140  30 3a 60 74 62 63 6f 6c  3d 32 3a 60 73 63 6f 3d  |0:`tbcol=2:`sco=|
00000150  33 3a 60 6d 62 63 6f 6c  3d 32 3a 60 77 66 63 6f  |3:`mbcol=2:`wfco|
00000160  6c 3d 37 3a 60 74 66 63  6f 6c 3d 37 3a 60 73 63  |l=7:`tfcol=7:`sc|
00000170  69 3d 31 3a 60 74 62 63  6f 6c 32 3d 31 32 0d 00  |i=1:`tbcol2=12..|
00000180  64 09 f2 76 61 72 73 0d  00 6e 2c de 71 25 26 33  |d..vars..n,.q%&3|
00000190  30 30 2c 68 25 36 33 3a  61 63 63 25 3d 30 3a e3  |00,h%63:acc%=0:.|
000001a0  4a 25 3d 30 b8 36 33 88  34 3a 68 25 21 4a 25 3d  |J%=0.63.4:h%!J%=|
000001b0  30 3a ed 0d 00 82 10 6d  61 78 62 75 66 25 3d 26  |0:.....maxbuf%=&|
000001c0  34 30 30 0d 00 8c 2d de  62 75 66 66 65 72 25 6d  |400...-.buffer%m|
000001d0  61 78 62 75 66 25 2c 65  6e 64 62 75 66 25 2d 31  |axbuf%,endbuf%-1|
000001e0  3a 63 75 72 62 75 66 25  3d 62 75 66 66 65 72 25  |:curbuf%=buffer%|
000001f0  0d 00 a0 12 73 68 6f 77  25 3d a4 63 77 69 6e 64  |....show%=.cwind|
00000200  6f 77 0d 00 aa 33 dc 20  33 2c 60 77 66 63 6f 6c  |ow...3. 3,`wfcol|
00000210  2c 60 77 62 63 6f 6c 2c  30 2c 2d 32 30 30 2c 32  |,`wbcol,0,-200,2|
00000220  35 36 2c 30 2c 30 2c 2d  32 30 30 2c 32 35 36 2c  |56,0,0,-200,256,|
00000230  30 20 20 2c 30 0d 00 be  0f ee 85 f2 65 72 72 6f  |0  ,0.......erro|
00000240  72 62 6f 78 0d 00 c8 42  c8 99 44 72 61 67 2c 2c  |rbox...B..Drag,,|
00000250  2d 31 3a f2 67 65 74 70  6f 69 6e 74 65 72 3a f2  |-1:.getpointer:.|
00000260  70 6f 70 75 70 28 73 68  6f 77 25 29 3a c8 99 54  |popup(show%):..T|
00000270  69 6d 65 25 b8 74 31 25  3a 74 69 6d 65 78 25 3d  |ime%.t1%:timex%=|
00000280  74 31 25 2b 35 30 0d 00  d2 05 f5 0d 00 dc 13 c8  |t1%+50..........|
00000290  99 50 6f 6c 6c 25 2c 30  2c 71 25 b8 41 25 0d 00  |.Poll%,0,q%.A%..|
000002a0  e6 09 c8 8e 41 25 ca 0d  00 f0 19 c9 30 3a f2 6e  |....A%......0:.n|
000002b0  75 64 67 65 3a c8 99 54  69 6d 65 25 b8 74 31 25  |udge:..Time%.t1%|
000002c0  0d 00 fa 1a c9 31 3a f2  72 65 64 72 61 77 5f 77  |.....1:.redraw_w|
000002d0  69 6e 64 6f 77 28 21 71  25 29 0d 01 04 40 c9 32  |indow(!q%)...@.2|
000002e0  3a f2 6f 70 65 6e 5f 77  69 6e 64 6f 77 28 21 71  |:.open_window(!q|
000002f0  25 2c 71 25 21 34 2c 71  25 21 38 2c 71 25 21 31  |%,q%!4,q%!8,q%!1|
00000300  32 2c 71 25 21 31 36 2c  71 25 21 32 30 2c 71 25  |2,q%!16,q%!20,q%|
00000310  21 32 34 2c 71 25 21 32  38 29 0d 01 0e 10 c9 33  |!24,q%!28).....3|
00000320  3a f2 66 69 6e 69 73 68  3a e0 0d 01 18 17 c9 31  |:.finish:......1|
00000330  37 2c 31 38 3a f2 72 65  63 65 69 76 65 28 71 25  |7,18:.receive(q%|
00000340  29 0d 01 22 05 cb 0d 01  2c 06 fd a3 0d 01 40 11  |).."....,.....@.|
00000350  dd f2 72 65 63 65 69 76  65 28 71 25 29 0d 01 4a  |..receive(q%)..J|
00000360  1d ea 64 65 73 6b 74 6f  70 5f 73 61 76 65 5f 68  |..desktop_save_h|
00000370  61 6e 64 6c 65 25 2c 72  32 25 0d 01 54 0c c8 8e  |andle%,r2%..T...|
00000380  71 25 21 31 36 ca 0d 01  5e 10 c9 30 3a f2 66 69  |q%!16...^..0:.fi|
00000390  6e 69 73 68 3a e0 0d 01  68 07 c9 31 30 0d 01 72  |nish:...h..10..r|
000003a0  1e 64 65 73 6b 74 6f 70  5f 73 61 76 65 5f 68 61  |.desktop_save_ha|
000003b0  6e 64 6c 65 25 3d 71 25  21 32 30 0d 01 7c 32 c8  |ndle%=q%!20..|2.|
000003c0  99 22 4f 53 5f 52 65 61  64 56 61 72 56 61 6c 22  |."OS_ReadVarVal"|
000003d0  2c 22 55 73 61 67 65 24  44 69 72 22 2c 71 25 2c  |,"Usage$Dir",q%,|
000003e0  32 35 36 2c 30 2c 30 b8  2c 2c 72 32 25 0d 01 86  |256,0,0.,,r2%...|
000003f0  0d 71 25 3f 72 32 25 3d  31 33 0d 01 90 25 d5 23  |.q%?r2%=13...%.#|
00000400  64 65 73 6b 74 6f 70 5f  73 61 76 65 5f 68 61 6e  |desktop_save_han|
00000410  64 6c 65 25 2c 22 52 75  6e 20 22 2b 24 71 25 0d  |dle%,"Run "+$q%.|
00000420  01 9a 09 c9 26 35 30 32  0d 01 a4 35 74 65 78 74  |....&502...5text|
00000430  24 3d a4 6d 65 73 73 61  67 65 5f 6c 6f 6f 6b 75  |$=.message_looku|
00000440  70 28 6d 65 73 73 61 67  65 66 69 6c 65 5f 68 61  |p(messagefile_ha|
00000450  6e 64 6c 65 25 2c 22 48  65 6c 70 22 29 0d 01 ae  |ndle%,"Help")...|
00000460  0e 71 25 21 31 32 3d 71  25 21 38 0d 01 b8 0e 71  |.q%!12=q%!8....q|
00000470  25 21 31 36 3d 26 35 30  33 0d 01 c2 12 24 28 71  |%!16=&503....$(q|
00000480  25 2b 32 30 29 3d 74 65  78 74 24 0d 01 cc 20 71  |%+20)=text$... q|
00000490  25 21 30 3d 28 28 28 32  30 2b a9 28 74 65 78 74  |%!0=(((20+.(text|
000004a0  24 29 2b 34 29 81 34 29  2a 34 29 0d 01 d6 1a 24  |$)+4).4)*4)....$|
000004b0  28 71 25 2b 32 31 2b a9  28 74 65 78 74 24 29 29  |(q%+21+.(text$))|
000004c0  3d bd 28 30 29 0d 01 e0  1e c8 99 22 57 69 6d 70  |=.(0)......"Wimp|
000004d0  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 37  |_SendMessage",17|
000004e0  2c 71 25 0d 01 ea 05 cb  0d 01 f4 05 e1 0d 02 08  |,q%.............|
000004f0  0d dd a4 63 77 69 6e 64  6f 77 0d 02 12 3b f3 66  |...cwindow...;.f|
00000500  25 2c 66 63 25 2c 62 63  25 2c 78 30 25 2c 79 30  |%,fc%,bc%,x0%,y0|
00000510  25 2c 78 31 25 2c 79 31  25 2c 63 78 30 25 2c 63  |%,x1%,y1%,cx0%,c|
00000520  79 30 25 2c 63 78 31 25  2c 63 79 31 25 2c 6e 69  |y0%,cx1%,cy1%,ni|
00000530  63 6f 6e 73 25 0d 02 1c  33 41 24 3d a4 6d 65 73  |cons%...3A$=.mes|
00000540  73 61 67 65 5f 6c 6f 6f  6b 75 70 28 6d 65 73 73  |sage_lookup(mess|
00000550  61 67 65 66 69 6c 65 5f  68 61 6e 64 6c 65 25 2c  |agefile_handle%,|
00000560  22 54 69 74 6c 65 22 29  0d 02 26 56 3d a4 63 72  |"Title")..&V=.cr|
00000570  65 61 74 65 5f 77 69 6e  64 6f 77 28 63 78 30 25  |eate_window(cx0%|
00000580  2c 63 79 30 25 2c 63 78  31 25 2c 63 79 31 25 2c  |,cy0%,cx1%,cy1%,|
00000590  30 2c 30 2c 66 25 2c 66  63 25 2c 62 63 25 2c 78  |0,0,f%,fc%,bc%,x|
000005a0  30 25 2c 79 30 25 2c 78  31 25 2c 79 31 25 2c 26  |0%,y0%,x1%,y1%,&|
000005b0  32 44 2c 41 24 2c 6e 69  63 6f 6e 73 25 29 0d 02  |2D,A$,nicons%)..|
000005c0  3a 1b dd f2 63 6c 6f 73  65 61 77 69 6e 64 6f 77  |:...closeawindow|
000005d0  28 68 61 6e 64 6c 65 25  29 0d 02 44 12 f2 67 65  |(handle%)..D..ge|
000005e0  74 77 28 68 61 6e 64 6c  65 25 29 0d 02 4e 1b 78  |tw(handle%)..N.x|
000005f0  6f 25 3d 78 30 25 3a 79  6f 25 3d 79 30 25 3a 6f  |o%=x0%:yo%=y0%:o|
00000600  70 65 6e 25 3d a3 0d 02  58 1a f2 63 6c 6f 73 65  |pen%=...X..close|
00000610  5f 77 69 6e 64 6f 77 28  68 61 6e 64 6c 65 25 29  |_window(handle%)|
00000620  0d 02 62 05 e1 0d 02 76  0c dd f2 66 69 6e 69 73  |..b....v...finis|
00000630  68 0d 02 80 16 c8 99 22  57 69 6d 70 5f 43 6c 6f  |h......"Wimp_Clo|
00000640  73 65 44 6f 77 6e 22 0d  02 8a 2b f2 63 6c 6f 73  |seDown"...+.clos|
00000650  65 5f 6d 65 73 73 61 67  65 66 69 6c 65 28 6d 65  |e_messagefile(me|
00000660  73 73 61 67 65 66 69 6c  65 5f 68 61 6e 64 6c 65  |ssagefile_handle|
00000670  25 29 0d 02 94 05 e1 0d  02 a8 6c dd a4 63 72 65  |%)........l..cre|
00000680  61 74 65 5f 77 69 6e 64  6f 77 28 63 78 30 25 2c  |ate_window(cx0%,|
00000690  63 79 30 25 2c 63 78 31  25 2c 63 79 31 25 2c 73  |cy0%,cx1%,cy1%,s|
000006a0  63 78 25 2c 73 63 79 25  2c 66 6c 61 67 73 25 2c  |cx%,scy%,flags%,|
000006b0  66 63 25 2c 62 63 25 2c  73 78 30 25 2c 73 79 30  |fc%,bc%,sx0%,sy0|
000006c0  25 2c 73 78 31 25 2c 73  79 31 25 2c 74 69 74 6c  |%,sx1%,sy1%,titl|
000006d0  65 66 25 2c 74 69 74 6c  65 24 2c 6e 69 63 6f 6e  |ef%,title$,nicon|
000006e0  73 25 29 0d 02 b2 41 21  71 25 3d 63 78 30 25 3a  |s%)...A!q%=cx0%:|
000006f0  71 25 21 34 3d 63 79 30  25 3a 71 25 21 38 3d 63  |q%!4=cy0%:q%!8=c|
00000700  78 31 25 3a 71 25 21 31  32 3d 63 79 31 25 3a 71  |x1%:q%!12=cy1%:q|
00000710  25 21 31 36 3d 73 63 78  25 3a 71 25 21 32 30 3d  |%!16=scx%:q%!20=|
00000720  73 63 79 25 0d 02 bc 19  71 25 21 32 34 3d 2d 31  |scy%....q%!24=-1|
00000730  3a 71 25 21 32 38 3d 66  6c 61 67 73 25 0d 02 c6  |:q%!28=flags%...|
00000740  13 e7 66 63 25 3d 31 35  80 62 63 25 3d 31 35 8c  |..fc%=15.bc%=15.|
00000750  0d 02 d0 29 71 25 3f 33  32 3d 31 35 3a 71 25 3f  |...)q%?32=15:q%?|
00000760  33 33 3d 31 35 3a 71 25  3f 33 34 3d 66 63 25 3a  |33=15:q%?34=fc%:|
00000770  71 25 3f 33 35 3d 62 63  25 0d 02 da 32 cc 71 25  |q%?35=bc%...2.q%|
00000780  3f 33 32 3d 60 74 66 63  6f 6c 3a 71 25 3f 33 33  |?32=`tfcol:q%?33|
00000790  3d 60 74 62 63 6f 6c 3a  71 25 3f 33 34 3d 66 63  |=`tbcol:q%?34=fc|
000007a0  25 3a 71 25 3f 33 35 3d  62 63 25 0d 02 e4 05 cd  |%:q%?35=bc%.....|
000007b0  0d 02 ee 31 71 25 3f 33  36 3d 60 73 63 6f 3a 71  |...1q%?36=`sco:q|
000007c0  25 3f 33 37 3d 60 74 62  63 6f 6c 3a 71 25 3f 33  |%?37=`tbcol:q%?3|
000007d0  38 3d 60 74 62 63 6f 6c  32 3a 71 25 3f 33 39 3d  |8=`tbcol2:q%?39=|
000007e0  30 0d 02 f8 2f 71 25 21  34 30 3d 73 78 30 25 3a  |0.../q%!40=sx0%:|
000007f0  71 25 21 34 34 3d 73 79  30 25 3a 71 25 21 34 38  |q%!44=sy0%:q%!48|
00000800  3d 73 78 31 25 3a 71 25  21 35 32 3d 73 79 31 25  |=sx1%:q%!52=sy1%|
00000810  0d 03 02 15 71 25 21 35  36 3d 74 69 74 6c 65 66  |....q%!56=titlef|
00000820  25 84 32 35 36 0d 03 0c  0f 71 25 21 36 30 3d 26  |%.256....q%!60=&|
00000830  33 30 30 30 0d 03 16 13  71 25 21 36 34 3d 30 3a  |3000....q%!64=0:|
00000840  71 25 21 36 38 3d 30 0d  03 20 13 de 74 62 25 a9  |q%!68=0.. ..tb%.|
00000850  28 74 69 74 6c 65 24 29  2b 31 0d 03 2a 14 24 74  |(title$)+1..*.$t|
00000860  62 25 3d 74 69 74 6c 65  24 2b bd 28 30 29 0d 03  |b%=title$+.(0)..|
00000870  34 0d 71 25 21 37 32 3d  74 62 25 0d 03 3e 0c 71  |4.q%!72=tb%..>.q|
00000880  25 21 37 36 3d 2d 31 0d  03 48 15 71 25 21 38 30  |%!76=-1..H.q%!80|
00000890  3d a9 28 74 69 74 6c 65  24 29 2b 31 0d 03 52 11  |=.(title$)+1..R.|
000008a0  71 25 21 38 34 3d 6e 69  63 6f 6e 73 25 0d 03 5c  |q%!84=nicons%..\|
000008b0  29 ea 49 25 2c 78 30 25  2c 79 30 25 2c 78 31 25  |).I%,x0%,y0%,x1%|
000008c0  2c 79 31 25 2c 66 25 2c  64 61 74 61 24 3a 49 25  |,y1%,f%,data$:I%|
000008d0  3d 71 25 2b 38 38 0d 03  66 0f c8 95 6e 69 63 6f  |=q%+88..f...nico|
000008e0  6e 73 25 3e 30 0d 03 70  25 f3 78 30 25 2c 79 30  |ns%>0..p%.x0%,y0|
000008f0  25 2c 78 31 25 2c 79 31  25 2c 66 25 2c 66 63 25  |%,x1%,y1%,f%,fc%|
00000900  2c 62 63 25 2c 64 61 74  61 24 0d 03 7a 28 49 25  |,bc%,data$..z(I%|
00000910  21 30 3d 78 30 25 3a 49  25 21 34 3d 79 30 25 3a  |!0=x0%:I%!4=y0%:|
00000920  49 25 21 38 3d 78 31 25  3a 49 25 21 31 32 3d 79  |I%!8=x1%:I%!12=y|
00000930  31 25 0d 03 84 20 e7 28  66 25 80 26 34 30 29 3d  |1%... .(f%.&40)=|
00000940  30 8c 62 63 25 3d 66 63  25 2b 28 62 63 25 3c 3c  |0.bc%=fc%+(bc%<<|
00000950  34 29 0d 03 8e 16 49 25  21 31 36 3d 66 25 2b 28  |4)....I%!16=f%+(|
00000960  62 63 25 3c 3c 32 34 29  0d 03 98 0f e7 28 66 25  |bc%<<24).....(f%|
00000970  80 26 31 30 30 29 8c 0d  03 a2 3b f3 4c 25 3a 42  |.&100)....;.L%:B|
00000980  25 3d a4 62 75 66 66 65  72 28 4c 25 29 3a 49 25  |%=.buffer(L%):I%|
00000990  21 32 30 3d 42 25 3a 24  42 25 3d 64 61 74 61 24  |!20=B%:$B%=data$|
000009a0  3a 49 25 21 32 34 3d 2d  31 3a 49 25 21 32 38 3d  |:I%!24=-1:I%!28=|
000009b0  4c 25 0d 03 ac 05 cc 0d  03 b6 12 24 28 49 25 2b  |L%.........$(I%+|
000009c0  32 30 29 3d 64 61 74 61  24 0d 03 c0 05 cd 0d 03  |20)=data$.......|
000009d0  ca 1e 49 25 3d 49 25 2b  33 32 3a 6e 69 63 6f 6e  |..I%=I%+32:nicon|
000009e0  73 25 3d 6e 69 63 6f 6e  73 25 2d 31 0d 03 d4 05  |s%=nicons%-1....|
000009f0  ce 0d 03 de 19 c8 99 43  72 65 61 74 65 57 2c 2c  |.......CreateW,,|
00000a00  71 25 b8 68 61 6e 64 6c  65 25 0d 03 e8 0c 3d 68  |q%.handle%....=h|
00000a10  61 6e 64 6c 65 25 0d 03  fc 14 dd f2 66 72 6f 6e  |andle%......fron|
00000a20  74 28 68 61 6e 64 6c 65  25 29 0d 04 06 11 e7 68  |t(handle%).....h|
00000a30  61 6e 64 6c 65 25 3d 2d  31 8c e1 0d 04 10 12 f2  |andle%=-1.......|
00000a40  67 65 74 77 28 68 61 6e  64 6c 65 25 29 0d 04 1a  |getw(handle%)...|
00000a50  36 f2 6f 70 65 6e 5f 77  69 6e 64 6f 77 28 68 61  |6.open_window(ha|
00000a60  6e 64 6c 65 25 2c 78 30  25 2c 79 30 25 2c 78 31  |ndle%,x0%,y0%,x1|
00000a70  25 2c 79 31 25 2c 73 63  78 25 2c 73 63 79 25 2c  |%,y1%,scx%,scy%,|
00000a80  2d 31 29 0d 04 24 05 e1  0d 04 38 14 dd f2 70 6f  |-1)..$....8...po|
00000a90  70 75 70 28 68 61 6e 64  6c 65 25 29 0d 04 42 12  |pup(handle%)..B.|
00000aa0  f2 67 65 74 77 28 68 61  6e 64 6c 65 25 29 0d 04  |.getw(handle%)..|
00000ab0  4c 30 78 6f 25 3d 6d 6f  75 73 65 78 25 2d 28 78  |L0xo%=mousex%-(x|
00000ac0  30 25 2b 78 31 25 29 2f  32 3a 79 6f 25 3d 6d 6f  |0%+x1%)/2:yo%=mo|
00000ad0  75 73 65 79 25 2d 28 79  31 25 2b 36 34 29 0d 04  |usey%-(y1%+64)..|
00000ae0  56 46 f2 6f 70 65 6e 5f  77 69 6e 64 6f 77 28 68  |VF.open_window(h|
00000af0  61 6e 64 6c 65 25 2c 78  30 25 2b 78 6f 25 2c 79  |andle%,x0%+xo%,y|
00000b00  30 25 2b 79 6f 25 2c 78  31 25 2b 78 6f 25 2c 79  |0%+yo%,x1%+xo%,y|
00000b10  31 25 2b 79 6f 25 2c 73  63 78 25 2c 73 63 79 25  |1%+yo%,scx%,scy%|
00000b20  2c 2d 31 29 0d 04 60 05  e1 0d 04 74 15 dd f2 72  |,-1)..`....t...r|
00000b30  65 6f 70 65 6e 28 68 61  6e 64 6c 65 25 29 0d 04  |eopen(handle%)..|
00000b40  7e 12 f2 67 65 74 77 28  68 61 6e 64 6c 65 25 29  |~..getw(handle%)|
00000b50  0d 04 88 46 f2 6f 70 65  6e 5f 77 69 6e 64 6f 77  |...F.open_window|
00000b60  28 68 61 6e 64 6c 65 25  2c 78 6f 25 2c 79 6f 25  |(handle%,xo%,yo%|
00000b70  2c 78 31 25 2d 78 30 25  2b 78 6f 25 2c 79 31 25  |,x1%-x0%+xo%,y1%|
00000b80  2d 79 30 25 2b 79 6f 25  2c 73 63 78 25 2c 73 63  |-y0%+yo%,scx%,sc|
00000b90  79 25 2c 2d 31 29 0d 04  92 05 e1 0d 04 a6 3d dd  |y%,-1)........=.|
00000ba0  f2 6f 70 65 6e 5f 77 69  6e 64 6f 77 28 68 61 6e  |.open_window(han|
00000bb0  64 6c 65 25 2c 78 30 25  2c 79 30 25 2c 78 31 25  |dle%,x0%,y0%,x1%|
00000bc0  2c 79 31 25 2c 73 63 78  25 2c 73 63 79 25 2c 62  |,y1%,scx%,scy%,b|
00000bd0  68 61 6e 64 6c 65 25 29  0d 04 b0 11 e7 68 61 6e  |handle%).....han|
00000be0  64 6c 65 25 3d 2d 31 8c  e1 0d 04 ba 1f 71 25 21  |dle%=-1......q%!|
00000bf0  30 3d 68 61 6e 64 6c 65  25 3a 71 25 21 32 38 3d  |0=handle%:q%!28=|
00000c00  62 68 61 6e 64 6c 65 25  0d 04 c4 29 71 25 21 34  |bhandle%...)q%!4|
00000c10  3d 78 30 25 3a 71 25 21  38 3d 79 30 25 3a 71 25  |=x0%:q%!8=y0%:q%|
00000c20  21 31 32 3d 78 31 25 3a  71 25 21 31 36 3d 79 31  |!12=x1%:q%!16=y1|
00000c30  25 0d 04 ce 19 71 25 21  32 30 3d 73 63 78 25 3a  |%....q%!20=scx%:|
00000c40  71 25 21 32 34 3d 73 63  79 25 0d 04 d8 0f c8 99  |q%!24=scy%......|
00000c50  4f 70 65 6e 57 2c 2c 71  25 0d 04 e2 05 e1 0d 04  |OpenW,,q%.......|
00000c60  f6 13 dd f2 67 65 74 77  28 68 61 6e 64 6c 65 25  |....getw(handle%|
00000c70  29 0d 05 00 1a 21 71 25  3d 68 61 6e 64 6c 65 25  |)....!q%=handle%|
00000c80  3a c8 99 47 65 74 57 2c  2c 71 25 0d 05 0a 2b f2  |:..GetW,,q%...+.|
00000c90  69 6e 66 6f 28 71 25 2b  34 29 3a 62 68 61 6e 64  |info(q%+4):bhand|
00000ca0  6c 65 25 3d 71 25 21 32  38 3a 66 6c 61 67 73 25  |le%=q%!28:flags%|
00000cb0  3d 71 25 21 33 32 0d 05  14 05 e1 0d 05 28 0e dd  |=q%!32.......(..|
00000cc0  f2 69 6e 66 6f 28 71 25  29 0d 05 32 3d 78 30 25  |.info(q%)..2=x0%|
00000cd0  3d 21 71 25 3a 79 30 25  3d 71 25 21 34 3a 78 31  |=!q%:y0%=q%!4:x1|
00000ce0  25 3d 71 25 21 38 3a 79  31 25 3d 71 25 21 31 32  |%=q%!8:y1%=q%!12|
00000cf0  3a 73 63 78 25 3d 71 25  21 31 36 3a 73 63 79 25  |:scx%=q%!16:scy%|
00000d00  3d 71 25 21 32 30 0d 05  3c 1d 62 78 25 3d 78 30  |=q%!20..<.bx%=x0|
00000d10  25 2d 73 63 78 25 3a 62  79 25 3d 79 31 25 2d 73  |%-scx%:by%=y1%-s|
00000d20  63 79 25 0d 05 46 05 e1  0d 05 5a 29 dd f2 75 70  |cy%..F....Z)..up|
00000d30  64 61 74 65 28 68 61 6e  64 6c 65 25 2c 75 78 30  |date(handle%,ux0|
00000d40  25 2c 75 79 30 25 2c 75  78 31 25 2c 75 79 31 25  |%,uy0%,ux1%,uy1%|
00000d50  29 0d 05 64 39 21 71 25  3d 68 61 6e 64 6c 65 25  |)..d9!q%=handle%|
00000d60  3a 71 25 21 34 3d 75 78  30 25 3a 71 25 21 38 3d  |:q%!4=ux0%:q%!8=|
00000d70  75 79 30 25 3a 71 25 21  31 32 3d 75 78 31 25 3a  |uy0%:q%!12=ux1%:|
00000d80  71 25 21 31 36 3d 75 79  31 25 0d 05 6e 23 c8 99  |q%!16=uy1%..n#..|
00000d90  55 70 64 61 74 65 57 2c  2c 71 25 b8 6d 6f 72 65  |UpdateW,,q%.more|
00000da0  25 3a f2 69 6e 66 6f 28  71 25 2b 34 29 0d 05 78  |%:.info(q%+4)..x|
00000db0  05 e1 0d 05 8c 29 dd f2  69 6e 76 61 6c 69 64 61  |.....)..invalida|
00000dc0  74 65 28 68 61 6e 64 6c  65 25 2c 78 30 25 2c 79  |te(handle%,x0%,y|
00000dd0  30 25 2c 78 31 25 2c 79  31 25 29 0d 05 96 24 c8  |0%,x1%,y1%)...$.|
00000de0  99 53 63 72 65 65 6e 2c  68 61 6e 64 6c 65 25 2c  |.Screen,handle%,|
00000df0  78 30 25 2c 79 30 25 2c  78 31 25 2c 79 31 25 0d  |x0%,y0%,x1%,y1%.|
00000e00  05 a0 05 e1 0d 05 b4 1c  dd f2 72 65 64 72 61 77  |..........redraw|
00000e10  5f 77 69 6e 64 6f 77 28  68 61 6e 64 6c 65 25 29  |_window(handle%)|
00000e20  0d 05 be 13 e7 68 61 6e  64 6c 65 25 3d 73 68 6f  |.....handle%=sho|
00000e30  77 25 8c 0d 05 c8 0f 21  71 25 3d 68 61 6e 64 6c  |w%.....!q%=handl|
00000e40  65 25 0d 05 d2 17 c8 99  52 65 64 72 61 77 57 2c  |e%......RedrawW,|
00000e50  2c 71 25 b8 6d 6f 72 65  25 0d 05 dc 0f f2 69 6e  |,q%.more%.....in|
00000e60  66 6f 28 71 25 2b 34 29  0d 05 e6 0b c8 95 6d 6f  |fo(q%+4)......mo|
00000e70  72 65 25 0d 05 f0 21 e3  4a 25 3d 71 25 21 32 38  |re%...!.J%=q%!28|
00000e80  2d 62 78 25 3e 3e 32 b8  71 25 21 33 36 2d 62 78  |-bx%>>2.q%!36-bx|
00000e90  25 3e 3e 32 0d 05 fa 20  c8 93 c8 90 62 78 25 2b  |%>>2... ....bx%+|
00000ea0  4a 25 2a 34 2c 62 79 25  2d 32 30 30 2c 33 2c 68  |J%*4,by%-200,3,h|
00000eb0  25 3f 4a 25 0d 06 04 05  ed 0d 06 0e 16 c8 99 47  |%?J%...........G|
00000ec0  65 74 52 25 2c 30 2c 71  25 b8 6d 6f 72 65 25 0d  |etR%,0,q%.more%.|
00000ed0  06 18 05 ce 0d 06 22 05  cd 0d 06 2c 05 e1 0d 06  |......"....,....|
00000ee0  40 1b dd f2 63 6c 6f 73  65 5f 77 69 6e 64 6f 77  |@...close_window|
00000ef0  28 68 61 6e 64 6c 65 25  29 0d 06 4a 1c 21 71 25  |(handle%)..J.!q%|
00000f00  3d 68 61 6e 64 6c 65 25  3a c8 99 43 6c 6f 73 65  |=handle%:..Close|
00000f10  57 2c 2c 71 25 0d 06 54  05 e1 0d 06 68 0a dd f2  |W,,q%..T....h...|
00000f20  76 61 72 73 0d 06 72 17  57 69 6d 70 3d 28 31 3c  |vars..r.Wimp=(1<|
00000f30  3c 31 38 29 2b 28 33 3c  3c 36 29 0d 06 7c 12 43  |<18)+(3<<6)..|.C|
00000f40  72 65 61 74 65 57 3d 57  69 6d 70 2b 31 0d 06 86  |reateW=Wimp+1...|
00000f50  10 4f 70 65 6e 57 3d 57  69 6d 70 2b 35 0d 06 90  |.OpenW=Wimp+5...|
00000f60  11 43 6c 6f 73 65 57 3d  57 69 6d 70 2b 36 0d 06  |.CloseW=Wimp+6..|
00000f70  9a 10 50 6f 6c 6c 25 3d  57 69 6d 70 2b 37 0d 06  |..Poll%=Wimp+7..|
00000f80  a4 12 52 65 64 72 61 77  57 3d 57 69 6d 70 2b 38  |..RedrawW=Wimp+8|
00000f90  0d 06 ae 12 55 70 64 61  74 65 57 3d 57 69 6d 70  |....UpdateW=Wimp|
00000fa0  2b 39 0d 06 b8 11 47 65  74 52 25 3d 57 69 6d 70  |+9....GetR%=Wimp|
00000fb0  2b 31 30 0d 06 c2 10 47  65 74 57 3d 57 69 6d 70  |+10....GetW=Wimp|
00000fc0  2b 31 31 0d 06 cc 10 47  65 74 50 3d 57 69 6d 70  |+11....GetP=Wimp|
00000fd0  2b 31 35 0d 06 d6 10 44  72 61 67 3d 57 69 6d 70  |+15....Drag=Wimp|
00000fe0  2b 31 36 0d 06 e0 12 53  63 72 65 65 6e 3d 57 69  |+16....Screen=Wi|
00000ff0  6d 70 2b 31 37 0d 06 ea  12 43 72 4d 65 6e 75 3d  |mp+17....CrMenu=|
00001000  57 69 6d 70 2b 32 30 0d  06 f4 12 44 63 4d 65 6e  |Wimp+20....DcMen|
00001010  75 3d 57 69 6d 70 2b 32  31 0d 06 fe 35 c8 99 22  |u=Wimp+21...5.."|
00001020  4f 53 5f 53 57 49 4e 75  6d 62 65 72 46 72 6f 6d  |OS_SWINumberFrom|
00001030  53 74 72 69 6e 67 22 2c  2c 22 57 69 6d 70 5f 53  |String",,"Wimp_S|
00001040  65 74 43 6f 6c 6f 75 72  22 b8 43 6f 6c 25 0d 07  |etColour".Col%..|
00001050  08 35 c8 99 22 4f 53 5f  53 57 49 4e 75 6d 62 65  |.5.."OS_SWINumbe|
00001060  72 46 72 6f 6d 53 74 72  69 6e 67 22 2c 2c 22 57  |rFromString",,"W|
00001070  69 6d 70 5f 42 6c 6f 63  6b 43 6f 70 79 22 b8 62  |imp_BlockCopy".b|
00001080  6c 6b 25 0d 07 12 3c c8  99 22 4f 53 5f 53 57 49  |lk%...<.."OS_SWI|
00001090  4e 75 6d 62 65 72 46 72  6f 6d 53 74 72 69 6e 67  |NumberFromString|
000010a0  22 2c 2c 22 4f 53 5f 52  65 61 64 4d 6f 6e 6f 74  |",,"OS_ReadMonot|
000010b0  6f 6e 69 63 54 69 6d 65  22 b8 54 69 6d 65 25 0d  |onicTime".Time%.|
000010c0  07 1c 05 e1 0d 07 30 10  dd f2 67 65 74 70 6f 69  |......0...getpoi|
000010d0  6e 74 65 72 0d 07 3a 0e  c8 99 47 65 74 50 2c 2c  |nter..:...GetP,,|
000010e0  71 25 0d 07 44 48 6d 6f  75 73 65 78 25 3d 21 71  |q%..DHmousex%=!q|
000010f0  25 3a 6d 6f 75 73 65 79  25 3d 71 25 21 34 3a 62  |%:mousey%=q%!4:b|
00001100  25 3d 71 25 21 38 3a 68  61 6e 64 6c 65 25 3d 71  |%=q%!8:handle%=q|
00001110  25 21 31 32 3a 69 63 6f  6e 25 3d 71 25 21 31 36  |%!12:icon%=q%!16|
00001120  3a 6f 62 25 3d 71 25 21  32 30 0d 07 4e 05 e1 0d  |:ob%=q%!20..N...|
00001130  07 62 0e dd f2 65 72 72  6f 72 62 6f 78 0d 07 6c  |.b...errorbox..l|
00001140  0e ee 85 85 a2 31 2c f6  24 3a e0 0d 07 76 0e c8  |.....1,.$:...v..|
00001150  99 44 72 61 67 2c 2c 2d  31 0d 07 80 54 21 62 75  |.Drag,,-1...T!bu|
00001160  66 66 65 72 25 3d 9f 3a  24 28 62 75 66 66 65 72  |ffer%=.:$(buffer|
00001170  25 2b 34 29 3d f6 24 2b  a4 6d 65 73 73 61 67 65  |%+4)=.$+.message|
00001180  5f 6c 6f 6f 6b 75 70 5f  31 28 6d 65 73 73 61 67  |_lookup_1(messag|
00001190  65 66 69 6c 65 5f 68 61  6e 64 6c 65 25 2c 22 49  |efile_handle%,"I|
000011a0  6e 74 45 72 72 22 2c c3  9e 29 2b bd 30 0d 07 8a  |ntErr",..)+.0...|
000011b0  29 c8 99 22 57 69 6d 70  5f 52 65 70 6f 72 74 45  |).."Wimp_ReportE|
000011c0  72 72 6f 72 22 2c 62 75  66 66 65 72 25 2c 31 2c  |rror",buffer%,1,|
000011d0  75 73 61 67 65 24 0d 07  94 0d f2 66 69 6e 69 73  |usage$.....finis|
000011e0  68 3a e0 0d 07 9e 05 e1  0d 07 b2 10 dd a4 62 75  |h:............bu|
000011f0  66 66 65 72 28 4c 25 29  0d 07 bc 20 e7 63 75 72  |ffer(L%)... .cur|
00001200  62 75 66 25 2b 4c 25 3e  62 75 66 66 65 72 25 2b  |buf%+L%>buffer%+|
00001210  6d 61 78 62 75 66 25 8c  0d 07 c6 35 85 31 30 30  |maxbuf%....5.100|
00001220  2c 6d 65 73 73 61 67 65  5f 6c 6f 6f 6b 75 70 28  |,message_lookup(|
00001230  6d 65 73 73 61 67 65 66  69 6c 65 5f 68 61 6e 64  |messagefile_hand|
00001240  6c 65 25 2c 22 4e 6f 52  6f 6f 6d 22 29 0d 07 d0  |le%,"NoRoom")...|
00001250  05 cd 0d 07 da 0f 63 75  72 62 75 66 25 2b 3d 4c  |......curbuf%+=L|
00001260  25 0d 07 e4 0f 3d 63 75  72 62 75 66 25 2d 4c 25  |%....=curbuf%-L%|
00001270  0d 07 f8 0b dd f2 6e 75  64 67 65 0d 08 02 2a c8  |......nudge...*.|
00001280  99 54 69 6d 65 25 b8 74  32 25 3a e7 74 32 25 3c  |.Time%.t2%:.t2%<|
00001290  74 69 6d 65 78 25 61 63  63 25 2b 3d 74 32 25 2d  |timex%acc%+=t2%-|
000012a0  74 31 25 3a e1 0d 08 0c  27 c8 95 74 69 6d 65 78  |t1%:....'..timex|
000012b0  25 2b 31 30 30 2a 36 34  3c 74 32 25 3a 74 69 6d  |%+100*64<t2%:tim|
000012c0  65 78 25 2b 3d 35 30 2a  36 34 3a ce 0d 08 16 1d  |ex%+=50*64:.....|
000012d0  e3 4a 25 3d 68 25 b8 68  25 2b 36 33 88 34 3a 21  |.J%=h%.h%+63.4:!|
000012e0  4a 25 3d 4a 25 21 31 3a  ed 0d 08 20 2f c8 99 62  |J%=J%!1:... /..b|
000012f0  6c 6b 25 2c 73 68 6f 77  25 2c 34 2c 2d 32 30 30  |lk%,show%,4,-200|
00001300  2c 32 35 36 2c 30 2c 30  2c 2d 32 30 30 3a 74 69  |,256,0,0,-200:ti|
00001310  6d 65 78 25 2b 3d 35 30  0d 08 2a 2c 68 25 3f 36  |mex%+=50..*,h%?6|
00001320  33 3d 32 30 30 2d 61 63  63 25 2f 35 30 2a 32 30  |3=200-acc%/50*20|
00001330  30 3a e7 61 63 63 25 3e  35 30 20 68 25 3f 36 33  |0:.acc%>50 h%?63|
00001340  3d 32 30 30 0d 08 34 1c  e7 74 32 25 3e 74 69 6d  |=200..4..t2%>tim|
00001350  65 78 25 2b 35 30 20 68  25 3f 36 33 3d 32 30 30  |ex%+50 h%?63=200|
00001360  0d 08 3e 3f 71 25 3d 62  75 66 66 65 72 25 3a 21  |..>?q%=buffer%:!|
00001370  71 25 3d 73 68 6f 77 25  3a 71 25 21 34 3d 32 35  |q%=show%:q%!4=25|
00001380  36 2d 34 3a 71 25 21 38  3d 2d 32 30 30 3a 71 25  |6-4:q%!8=-200:q%|
00001390  21 31 32 3d 32 35 36 3a  71 25 21 31 36 3d 30 0d  |!12=256:q%!16=0.|
000013a0  08 48 17 c8 99 55 70 64  61 74 65 57 2c 2c 71 25  |.H...UpdateW,,q%|
000013b0  b8 6d 6f 72 65 25 0d 08  52 1c 62 78 25 3d 71 25  |.more%..R.bx%=q%|
000013c0  21 34 2d 71 25 21 32 30  3a 62 79 25 3d 71 25 21  |!4-q%!20:by%=q%!|
000013d0  31 36 0d 08 5c 0b c8 95  6d 6f 72 65 25 0d 08 66  |16..\...more%..f|
000013e0  2a c8 99 43 6f 6c 25 2c  37 3a c8 93 c8 90 62 78  |*..Col%,7:....bx|
000013f0  25 2b 32 35 36 2d 34 2c  62 79 25 2d 32 30 30 2c  |%+256-4,by%-200,|
00001400  33 2c 68 25 3f 36 33 0d  08 70 2a c8 99 43 6f 6c  |3,h%?63..p*..Col|
00001410  25 2c 30 3a c8 93 c8 90  62 78 25 2b 32 35 36 2d  |%,0:....bx%+256-|
00001420  34 2c 62 79 25 2c 33 2c  68 25 3f 36 33 2d 32 30  |4,by%,3,h%?63-20|
00001430  30 0d 08 7a 16 c8 99 47  65 74 52 25 2c 30 2c 71  |0..z...GetR%,0,q|
00001440  25 b8 6d 6f 72 65 25 0d  08 84 05 ce 0d 08 8e 15  |%.more%.........|
00001450  e7 74 32 25 3c 74 69 6d  65 78 25 61 63 63 25 3d  |.t2%<timex%acc%=|
00001460  30 0d 08 98 05 e1 0d 08  ac 1d dd a4 6f 70 65 6e  |0...........open|
00001470  5f 6d 65 73 73 61 67 65  66 69 6c 65 28 6e 61 6d  |_messagefile(nam|
00001480  65 24 29 0d 08 b6 08 ea  6d 68 25 0d 08 c0 06 ea  |e$).....mh%.....|
00001490  85 0d 08 ca 11 ee 85 ea  f7 85 3a 85 31 2c f6 24  |..........:.1,.$|
000014a0  3a e0 0d 08 d4 1e c8 99  22 4f 53 5f 4d 6f 64 75  |:......."OS_Modu|
000014b0  6c 65 22 2c 36 2c 2c 2c  31 36 b8 2c 2c 6d 68 25  |le",6,,,16.,,mh%|
000014c0  0d 08 de 29 c8 99 22 4d  65 73 73 61 67 65 54 72  |...).."MessageTr|
000014d0  61 6e 73 5f 4f 70 65 6e  46 69 6c 65 22 2c 6d 68  |ans_OpenFile",mh|
000014e0  25 2c 6e 61 6d 65 24 2c  30 0d 08 e8 08 3d 6d 68  |%,name$,0....=mh|
000014f0  25 0d 08 fc 1c dd f2 63  6c 6f 73 65 5f 6d 65 73  |%......close_mes|
00001500  73 61 67 65 66 69 6c 65  28 6d 68 25 29 0d 09 06  |sagefile(mh%)...|
00001510  22 c8 99 22 4d 65 73 73  61 67 65 54 72 61 6e 73  |".."MessageTrans|
00001520  5f 43 6c 6f 73 65 46 69  6c 65 22 2c 6d 68 25 0d  |_CloseFile",mh%.|
00001530  09 10 18 c8 99 22 4f 53  5f 4d 6f 64 75 6c 65 22  |....."OS_Module"|
00001540  2c 37 2c 2c 6d 68 25 0d  09 1a 05 e1 0d 09 2e 1e  |,7,,mh%.........|
00001550  dd a4 6d 65 73 73 61 67  65 5f 6c 6f 6f 6b 75 70  |..message_lookup|
00001560  28 6d 68 25 2c 74 61 67  24 29 0d 09 38 07 ea 73  |(mh%,tag$)..8..s|
00001570  24 0d 09 42 35 c8 99 22  4d 65 73 73 61 67 65 54  |$..B5.."MessageT|
00001580  72 61 6e 73 5f 4c 6f 6f  6b 75 70 22 2c 6d 68 25  |rans_Lookup",mh%|
00001590  2c 74 61 67 24 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |,tag$,0,0,0,0,0,|
000015a0  30 b8 2c 2c 73 24 0d 09  4c 07 3d 73 24 0d 09 60  |0.,,s$..L.=s$..`|
000015b0  27 dd a4 6d 65 73 73 61  67 65 5f 6c 6f 6f 6b 75  |'..message_looku|
000015c0  70 5f 31 28 6d 68 25 2c  74 61 67 24 2c 70 65 72  |p_1(mh%,tag$,per|
000015d0  63 30 24 29 0d 09 6a 17  ea 73 24 2c 6d 65 73 73  |c0$)..j..s$,mess|
000015e0  61 67 65 5f 62 75 66 66  65 72 25 0d 09 74 17 de  |age_buffer%..t..|
000015f0  6d 65 73 73 61 67 65 5f  62 75 66 66 65 72 25 32  |message_buffer%2|
00001600  35 36 0d 09 88 4a c8 99  22 4d 65 73 73 61 67 65  |56...J.."Message|
00001610  54 72 61 6e 73 5f 4c 6f  6f 6b 75 70 22 2c 6d 68  |Trans_Lookup",mh|
00001620  25 2c 74 61 67 24 2c 6d  65 73 73 61 67 65 5f 62  |%,tag$,message_b|
00001630  75 66 66 65 72 25 2c 32  35 36 2c 70 65 72 63 30  |uffer%,256,perc0|
00001640  24 2c 30 2c 30 2c 30 b8  2c 2c 73 24 0d 09 92 07  |$,0,0,0.,,s$....|
00001650  3d 73 24 0d ff                                    |=s$..|
00001655