�>!RunImage
0�Produced by BasCompress v1.71 (19 Sep 1996)
Otesting%=�:�initlibrary:��closemessages:�eerror:�testing%=���("Spool"):��
�testing%=��*Spool Spooled
�testing%=����
iAppname$="NWTest"::::Appdir$=�systemvar(Appname$+"$Dir"):�initwimp:�initprog:quit%=�:init%=�:��error
�init%�
>go$=�GetEnv:init%=�:�go$<>""��loadfile(go$,�filetype(go$))
	�:�embedwin(parentwin%,childwin%,0):�openwincentre(parentwin%):ȕquit%=�:�Poll:�:ș&400DD:�closemessages:�testing%=��*SPOOL

�
+��Poll:ș&400C7,1,b%�reason%:Ȏreason%�
�2:ș&400C5,,b%

�3:ș&400C6,,b%
$�6:�mouseclick(b%!8,b%!&C,b%!16)
#�8:�processkey(b%!0,b%!4,b%!24)
�9:�menuchoice
�17,18:�receive(b%!16)
�19:�receiveack(b%!16)
�:�
%��mouseclick(but,win,icon):Ȏwin�
�-2:Ȏbut�
�2:�ibmenu
*�1,4:�unembedwin(parentwin%,childwin%)
�
�infobox%:Ȏicon�
�1
:�3:�FetchPage("http://users.essex.ac.uk/users/gerph/")
@�4:�FetchPage("http://users.essex.ac.uk/users/gerph/acorn/")
�
�:�
8��processkey(win,icon,key):�keydone:keydone=�:Ȏwin�
 �:�keydone�ș&400DC,key
!�
"a��menuchoice:ș&400CF,,message_buffer%:mbut%=message_buffer%!8:m$=�decodemenu(curmenu%):Ȏm$�
#�"Quit":quit%=�
$,�:�(mbut%�1)=1��recreatemenu�curmenu%=-1
%�
&��receive(mess):Ȏmess�
'�0:quit%=�*2
( �3,5:type=b%!40:�type=&8888�
)Kb%!&C=b%!8:b%!16=4:ș&400E7,17,b%,b%!4:�loadfile(�string0(b%+44),b%!40)
*�
+!�&502:�Help(b%!32,b%!36,b%!4)
,�&A:�desktopsave(b%!20)
-�:�
.��receiveack(mess):Ȏmess�
/�:�
0B��desktopsave(file%):�:��b%!&C=b%!8:ș&400E7,19,b%,b%!4:��:�
1�#file%,"Run "+Appdir$:�
2"��loadfile(file$,type):Ȏtype�
3�:�
4���initwimp:�messagelist%256::�notemessage(&502):�notemessage(&A):�notemessage(0):ș&400C0,387,&4B534154,Appname$,messagelist%�wimpversion,taskhandle:indl%=&400:menul%=&400:�b%&800,ind%indl%,menu%menul%,wspc%&800:curmenu%=-1:�openmessages
5�infobox%=�loadtemplate("Info",1):parentwin%=�loadtemplate("Parent",1):childwin%=�loadtemplate("Child",1):�seticontext(infobox%,1,Appname$):�seticontext(infobox%,2,"Nested Window Test"):�seticontext(infobox%,4,"1.00 (30 May 1997)")
6}ibhandle=�CreateIconBarIcon("!"+Appname$,"",1):ibmenu%=�createmenu(Appname$+"|Info]>infobox%|Quit"):iboptions%=options%:�
7��initprog:�
86��Help(win,icon,to):��t`E:�readhelp(win,icon,to):�
9� infobox%,">HInfobox"
:� 3,">HInfobox3"
;� 4,">HInfobox4"
<� -2,">HIconbar"
=� -1,-1
>� -2,-2,-2,-2
?&��FetchPage(f$):ș&6E381,0,f$+�0:�
]��initlibrary:�message_buffer%&400:rmafontarea=-2:msgbuffer%=-1:msgbuffer2%=-1:ftblk=-2:�
&��notemessage(n)messagelist%!0=n:�
�ݤloadtemplate(n$,sprblk%)�tsize%,blk%,ok%:ș&400D9,,Appdir$+".Templates":ș&400DB,,0,,,,n$,0�,,tsize%:�blk%tsize%:ș&400DB,,wspc%,blk%,blk%+tsize%,-1,n$,0�,,,,,,ok%:ș&400DA:�ok%=0��&803,"Template file "+n$+" not found"
/wspc%!64=sprblk%:ș&400C1,,wspc%�blk%:=blk%
?ݤGetEnv�com$,I,p$:ș16�com$:p$="":I=�com$," -quit "):�I>0�
@p$=�com$,�com$," ",I+�" -quit ")+1):ȕ�p$,1)=" ":p$=�p$,2):�
	�:=p$
nݤsystemvar(Var$)�len:ș&20023,Var$,message_buffer%,&FF,0,3�,,len:message_buffer%?len=&D:=$message_buffer%
O��eerror:�:��:�closemessages:�4:��0,�$+" at line "+Þ+" in error handler"
�mess$="Internal error : ("+Þ+") "+�$:�("Set Error$ "+mess$):�("Set Error$Task Not known"):message_buffer%!0=�:$(message_buffer%+4)=mess$+" whilst initialising"+�0:��:Appname$="uninitialised task"
Oa$=Appname$:��:�closemessages:�4:��0,�$+" at line "+Þ+" in error handler"
)ș&400DF,message_buffer%,9,Appname$:�
c��error�errcode,mess$,reply%:�:��:�closemessages:�4:��0,�$+" at line "+Þ+" in error handler"
ș6,&7C:�>&7FF��<&803�
Aerrcode=�-&7FF:mess$=�$:�errcode=3�mess$+=" (Cancel to Quit)"
Hreply%=�errorbox(Appname$,mess$,errcode):�reply%=2�errcode=3�quit%=�
l�:mess$="Internal error : ("+Þ+") "+�$+" Cancel to Quit":reply%=�errorbox(Appname$,mess$,3):�reply%<>1�
 @quit%=�:�("Set Error$ "+mess$):�("Set Error$Task "+Appname$)
!&�:�(-1)��(-2)��(-17)��("Spool"):�
"�:�
#�ݤerrorbox(title$,message$,button%)title$=�msgtext(title$):message$=�msgtext(message$):$(message_buffer%+4)=message$:!message_buffer%=0:ș&400DF,message_buffer%,button%,title$�,reply%:=reply%
$�ݤcreatemenu(A$):�pointer,p2,p3,l,lk,O$,C$,oind%,oindl%,ks%,k$,S$:oind%=ind%:oindl%=indl%:ks%=�:pointer=menu%:l=0:A$+="|":�menuputs(�mget(A$,C$)):�menuputw(&70207):p2=menu%:�menuputw(&80):�menuputw(44):�menuputw(0):options%=0:S$=A$:lk=0:�
%�ks%=��ks%=�*2
&f�:O$=�mget(A$,C$):options%=options%+1:flags=�mdecode(C$,p3,s$,k$)+((-(A$=""))<<7):�ks%=�*2�k$<>""�
'>O$+=�l+lk-(�(O$)+�(k$))+1," "):�k$,1)="�"��k$,1,1)=�(&8B)
(
O$+=k$
)&�:�k$<>""�ks%=�:�lk<�(k$)�lk=�(k$)
*\�:flags2=&7000021+((-(�(O$)>&B))<<8)+(1<<&E)*(flags�256):�(flags�4)<>0�flags2=flags2�256
+@�menuputw(flags�&FF):�menuputw(p3):�(O$)>l�ks%<>�*2�l=�(O$)
,��menuputw(flags2):�menustring(O$,s$,(flags�4)):�A$="":�ks%=�*2�l+=lk+1��ks%=��ind%=oind%:indl%=oindl%:menul%+=menu%-p2-&C:menu%=p2+&C:options%=0:A$=S$
- �ks%<>�:!p2=l*16+16:=pointer
.4��menustring(T$,s$,flag)�T$,1)="�"�T$=�(�T$,2))
/�(T$)<&C�s$=""�flag=0�
0�menuputs(T$)
1'�:�menuputw(�indirect(T$)):�s$<>""�
2Fmenu%!-8=menu%!-8�&803:�lower(s$),2)="sm"�menu%!-8=menu%!-8�&800
3 �menuputw(�indirect("S"+s$))
4�:�menuputw(-1)
5�:�menuputw(�(T$)+1)
6�:�
7Nݤmget(�A$,�C$):�B$:B$=�A$,�A$,"|")-1):A$=�A$,�(B$)+2):�B$,"]")<1�B$+="]"
87C$=�B$,�B$,"]")+1):B$=�B$,�B$,"]")-1):=�msgtext(B$)
97��menuputs(T$)�(T$)>&B��&803,"Menu entry too long"
:Q$menu%=T$:menu%+=&C:menul%-=&C:�menul%<=4��&803,"Not enough memory for menus"
;�
<^��menuputw(W%):!menu%=W%:menu%+=4:menul%-=4:�menul%<=4��&803,"Not enough memory for menus"
=�
>cݤmdecode(A$,�p,�s$,�k$):�B$,C$,V:p=-1:s$="":k$="":A$=A$+",":ȕA$<>"":B$=�A$,1):A$=�A$,2):ȎB$�
?�"T":V=V�1
@�"D":V=V�2
A�"W":V=V�4
B�"M":V=V�8
C�"S":V=V�256
D.�"K":k$=�A$,�A$,",")-1):A$=�A$,�A$,",")+1)
E0�">":p=�(�A$,�A$,",")-1)):A$=�A$,�A$,",")+1)
F2�"}":s$=�A$,�A$,",")-1)+" ":A$=�A$,�A$,",")+1)
G
�:�:=V
HRݤindirect(a$)�i:i=ind%:�(a$)>indl%-1��&803,"Not enough room for indirection"
I,$ind%=a$:ind%+=�(a$)+1:indl%-=�(a$)+1:=i
J���ibmenu:ș&400CF,,b%:curmenu%=ibmenu%:cmenux%=b%!0-64:cmenuy%=96+44*iboptions%:ș&400D4,,ibmenu%,b%!0-64,96+44*iboptions%:�
K7��recreatemenu:ș&400D4,,curmenu%,cmenux%,cmenuy%:�
L�ݤdecodemenu(menu%)�cp%,ptr,b$,c$:cp%=menu%:ptr=0:ȕ(b%!ptr>-1�cp%<>rmafontarea):cp%=cp%!(32+(b%!ptr)*24):ptr+=4:�:�cp%=rmafontarea�b%!ptr<>0�
M3ș&400A0,,rmafontarea,b%+ptr,�&FF,�0),&FF�,,,m$
N��:ș&400D5,,menu%,b%,�&FF,�0),&FF�,,,m$:b$="":�:c$=�m$,�m$+".",".")-1):m$=�m$,�(c$)+2):c$=�c$,�c$+" ^"," ^")-1):c$=�c$,�c$+" "+�&8B," "+�&8B)-1):Ȏ�c$,3)�
Ob�"Esc","Del","Ins","End","Hom","Cpy","F10","F11","F12","F13","Prt","Tab","Ret":c$=�c$,�(c$)-4)
P?�:�c$,�(c$)-2,2)=" F"���c$)="0"��(�c$))<>0�c$=�c$,�(c$)-3)
QBȕ�c$)=" ":c$=�c$):�:b$+=c$+".":�m$=""�m$=".":�m$="."�b$+=".."
Rm$=�b$)
S	�:=m$
T���openwincentre(win%)�width,height,top,right,x,y:!b%=4:b%!4=5:b%!8=&B:b%!&C=&C:b%!16=-1:ș49,b%,b%+20:right=b%!28+1<<b%!20:top=b%!32+1<<b%!24:!b%=win%:ș&400CB,,b%:width=b%!4-b%!&C:height=b%!16-b%!8:x=(right-width)/2+width:y=(top-height)/2+height
UFb%!4=x:b%!8=y-height:b%!&C=x-width:b%!16=y:b%!28=-1:ș&400C5,,b%:�
Vh��embedwin(parent%,child%,flags%):!b%=child%:ș&400CB,,b%:ș&400C5,,b%,&4B534154,parent%,flags%��1:�
WY��unembedwin(parent%,child%):!b%=child%:ș&400CB,,b%:ș&400C6,,b%,&4B534154,parent%:�
X�ݤCreateIconBarIcon(Spr$,title$,pos%)�ic%,w%,m%,e%:title$=�msgtext(title$):b%!0=-(�(pos%)�&FF):b%!4=0:b%!8=-16:b%!&C=&C+16*�(title$):b%!16=88:�b%!&C<&C+16*4�b%!&C=&C+16*4
Y�title$<>""�
Zqb%!20=(1<<28)+(7<<24)+(3<<&C)+(&B)+(1<<8):b%!24=�indirect(title$):b%!28=�indirect("S"+Spr$):b%!32=�(title$)+1
[6�:b%!20=(1<<28)+(7<<24)+(3<<&C)+(26):$(b%+24)=Spr$
\f�:ș&400E9,296,,�Spr$,�Spr$+",",","))�,,,w%,m%:ș&20035,m%,4�,,e%:w%=(w%+1)<<e%:�w%>b%!&C�b%!&C=w%
]M�(�(pos%)�&FF)=3�(�(pos%)�&FF)=4�pos%=�(pos%)>>8�pos%=(�(pos%)�&FF00)<<16
^ș&400C2,pos%,b%�ic%:=ic%
_���seticontext(win%,icon%,text$)�i%:text$=�msgtext(text$):ș&400D3,,b%:i%=(!b%=win%)�(icon%=b%!4):b%!0=win%:b%!4=icon%:ș&400CE,,b%:�((b%!24)�256)=0��&803,"Icon isn't indirected (#"+�icon%+")"
`�string0(b%!28)<>text$�
aO�(text$)<b%!36�$(b%!28)=text$��&803,"Text too long for icon (#"+�icon%+")"
bi!b%=win%:b%!4=icon%:b%!8=0:b%!&C=0:ș&400CD,,b%:�i%�(b%!24�1)=1�ș&400D2,win%,icon%,-1,-1,-1,�(text$)
c�:�
dp��readhelp(win,icon,to):�lwin,val,help$,found,a$,m$,m2$,mh$:found=�:lwin=-1:�:�val,help$:�val>(1<<16)�val<0�
e�lwin=win�
fval=icon:help$="":m2$=m$
g�:lwin=val:m$=help$
h�
i�:�val=icon�lwin=win�
j�icon=-1�help$=""�
k#�sendhelp(�msgtext(m$)+"|M",to)
l6�:m$=�msgtext(m$):�m$,"|M")>0�m$=�m$,�m$,"|M")-1)
m3�sendhelp(�msgtext(m$)+"|M"+�msgtext(help$),to)
n
�:found=�
o"�:�help$="-1"�found=�:�found�
p|!message_buffer%=-1:message_buffer%!4=-1:message_buffer%!8=-1:ș&400F4,1,message_buffer%,win,icon:�!message_buffer%<>-1�
q�val=b%:b%=message_buffer%:mh$=�decodemenu(curmenu%):b%=val:m$=mh$:ȕ�m$," ")>0:�m$,�m$," "),1)="_":�:help$=�msgtoken("HM"+m$):�help$<>"HM"+m$�
r�sendhelp(help$,to)
s>�:�:�m$,val,help$,help$:��(m$)=curmenu%�m$="-2":�m$<>"-2"�
t�val>-1�
u�sendhelp(help$,to):found=�
v,�:�:�lwin,m$,val,help$:�(m$)=0�m$<>"0"�
w'�mh$=m$��sendhelp(help$,to):found=�
xL�:�lwin=message_buffer%!0��(m$)=message_buffer%!4�val=message_buffer%!8�
y�sendhelp(help$,to):found=�
z�
{!�:�found=��lwin=-2�lwin>&8000
|�
}�
~�
�
��:�
�J��sendhelp(help$,to)help$=�msgtext(help$):��help$,2)<>"|M"�help$+="|M"
�}�b$,c$:help$=�substvars(help$):ȕ�help$,"|M")>0:b$=�help$,�help$,"|M")-1):help$=�help$,�(b$)+3):�"!.?",�b$,1))=0�b$+="."
�ic$+=b$+"|M":�:b%!&C=b%!8:b%!4=to:b%!16=&503:$(b%+20)=c$+�0:b%!0=20+(�(c$)+4)�-4:ș&400E7,17,b%,b%!4:�
�H��openmessages�f,l:�msgbuffer%<>-1��&803,"Message file already open"
�Sș&41500,,Appdir$+".Messages"�f,,l:�(f�1)=1�msgbuffer2%=0�msgbuffer2%=�claim(l)
�E�msgbuffer2%=-1��&803,"No room for secondary MessageTrans buffer"
�nmsgbuffer%=�claim(16):�msgbuffer%=-1��release(msgbuffer2%):�&803,"No room for primary MessageTrans buffer"
�9ș&41501,msgbuffer%,Appdir$+".Messages",msgbuffer2%:�
�/��closemessages:�:��:�4:�:�" at ";�:G=�:�
��msgbuffer%>-1�
�Bș&61504,msgbuffer%:�release(msgbuffer%):�release(msgbuffer2%)
��:�
�;ݤmsgtoken(t$)�s1$,s2$,s3$,a$,len%,f:�msgbuffer%=-1�=t$
�Wa$=�t$,�t$+":",":")+1):t$=�t$,�t$+":",":")-1):s1$=�a$,�a$+":",":")-1):�s1$,1)="|"�
�s1$=�a$,2):s2$="":s3$=""
�_�:a$=�a$,�(s1$)+2):s2$=�a$,�a$+":",":")-1):�s2$,1)="|"�s2$=�a$,2):s3$=""�s3$=�a$,�(s2$)+2)
�k�:ș&61502,msgbuffer%,t$,message_buffer%,256,s1$,s2$,s3$�,,,len%;f:�(f�1)=1�=t$�message_buffer%?len%=&D
�!=�substvars($message_buffer%)
�2ݤmsgtext(a$):�a$,1)=">"�a$=�msgtoken(�a$,2))
�=a$
�ݤstring0(a%)�a$:�a%=0�=""
�/ȕ?a%>31��(a$)<&FF:a$=a$+�?a%:a%=a%+1:�:=a$
�Nݤlower(a$)�c$,b$,I:�I=1��(a$):c$=�a$,I,1):�c$>="A"�c$<="Z"�c$=�(�(c$)+32)
�b$+=c$:�:=b$
�%ݤsubstvars(a$):�b$,d$:�:��:=a$
�[ȕ�a$,"�")>0:b$=�a$,�a$,"�")+1):b$=�b$,�b$,"�")-1):d$=b$:��d$,1)<>"$"�d$="STR$("+d$+")"
�8a$=�a$,�a$,"�")-1)+�(d$)+�a$,�a$,"�")+�(b$)+2):�:=a$
�Iݤfiletype(f$)�f%,type%,fl%:ș&20008,20,f$�type%,,,,,,f%;fl%:Ȏtype%�
��0:type%=-2
��1:type%=f%
��2,3:type%=4096
��:�(fl%�1)=1�type%=-2
�
=type%
�4ݤleafname(f$)�r$:�f$,":")>0�f$=�f$,�f$,":")+1)
�Ȏ�f$,".")�
��0:r$=f$
�&r$=�leafname(�f$,�(f$)-�f$,".")))
�	�:=r$
�Hݤclaim(length%):�flags:�length%<1��&803,"Cannot claim negative RMA"
�<ș&2001E,6,,,length%�,,area%;flags:�(flags�1)>0�area%=-1
�
=area%
�5��release(�area%):�area%>0�ș30,7,,area%:area%=-1
��
�

00000000  0d 00 01 0f f4 3e 21 52  75 6e 49 6d 61 67 65 0d  |.....>!RunImage.|
00000010  00 02 30 f4 50 72 6f 64  75 63 65 64 20 62 79 20  |..0.Produced by |
00000020  42 61 73 43 6f 6d 70 72  65 73 73 20 76 31 2e 37  |BasCompress v1.7|
00000030  31 20 28 31 39 20 53 65  70 20 31 39 39 36 29 0d  |1 (19 Sep 1996).|
00000040  00 03 4f 74 65 73 74 69  6e 67 25 3d a3 3a f2 69  |..Otesting%=.:.i|
00000050  6e 69 74 6c 69 62 72 61  72 79 3a ee 85 f2 63 6c  |nitlibrary:...cl|
00000060  6f 73 65 6d 65 73 73 61  67 65 73 3a f2 65 65 72  |osemessages:.eer|
00000070  72 6f 72 3a e7 74 65 73  74 69 6e 67 25 3d b9 8c  |ror:.testing%=..|
00000080  ff 28 22 53 70 6f 6f 6c  22 29 3a e0 8b e0 0d 00  |.("Spool"):.....|
00000090  04 1e e7 74 65 73 74 69  6e 67 25 3d b9 8c 2a 53  |...testing%=..*S|
000000a0  70 6f 6f 6c 20 53 70 6f  6f 6c 65 64 0d 00 05 12  |pool Spooled....|
000000b0  e7 74 65 73 74 69 6e 67  25 3d b9 8c fc ee 0d 00  |.testing%=......|
000000c0  06 69 41 70 70 6e 61 6d  65 24 3d 22 4e 57 54 65  |.iAppname$="NWTe|
000000d0  73 74 22 3a 3a 3a 3a 41  70 70 64 69 72 24 3d a4  |st"::::Appdir$=.|
000000e0  73 79 73 74 65 6d 76 61  72 28 41 70 70 6e 61 6d  |systemvar(Appnam|
000000f0  65 24 2b 22 24 44 69 72  22 29 3a f2 69 6e 69 74  |e$+"$Dir"):.init|
00000100  77 69 6d 70 3a f2 69 6e  69 74 70 72 6f 67 3a 71  |wimp:.initprog:q|
00000110  75 69 74 25 3d a3 3a 69  6e 69 74 25 3d a3 3a ee  |uit%=.:init%=.:.|
00000120  85 f2 65 72 72 6f 72 0d  00 07 0c e7 ac 69 6e 69  |..error......ini|
00000130  74 25 8c 0d 00 08 3e 67  6f 24 3d a4 47 65 74 45  |t%....>go$=.GetE|
00000140  6e 76 3a 69 6e 69 74 25  3d b9 3a e7 67 6f 24 3c  |nv:init%=.:.go$<|
00000150  3e 22 22 8c f2 6c 6f 61  64 66 69 6c 65 28 67 6f  |>""..loadfile(go|
00000160  24 2c a4 66 69 6c 65 74  79 70 65 28 67 6f 24 29  |$,.filetype(go$)|
00000170  29 0d 00 09 7f cd 3a f2  65 6d 62 65 64 77 69 6e  |).....:.embedwin|
00000180  28 70 61 72 65 6e 74 77  69 6e 25 2c 63 68 69 6c  |(parentwin%,chil|
00000190  64 77 69 6e 25 2c 30 29  3a f2 6f 70 65 6e 77 69  |dwin%,0):.openwi|
000001a0  6e 63 65 6e 74 72 65 28  70 61 72 65 6e 74 77 69  |ncentre(parentwi|
000001b0  6e 25 29 3a c8 95 71 75  69 74 25 3d a3 3a f2 50  |n%):..quit%=.:.P|
000001c0  6f 6c 6c 3a ce 3a c8 99  26 34 30 30 44 44 3a f2  |oll:.:..&400DD:.|
000001d0  63 6c 6f 73 65 6d 65 73  73 61 67 65 73 3a e7 74  |closemessages:.t|
000001e0  65 73 74 69 6e 67 25 3d  b9 8c 2a 53 50 4f 4f 4c  |esting%=..*SPOOL|
000001f0  0d 00 0a 05 e0 0d 00 0b  2b dd f2 50 6f 6c 6c 3a  |........+..Poll:|
00000200  c8 99 26 34 30 30 43 37  2c 31 2c 62 25 b8 72 65  |..&400C7,1,b%.re|
00000210  61 73 6f 6e 25 3a c8 8e  72 65 61 73 6f 6e 25 ca  |ason%:..reason%.|
00000220  0d 00 0c 13 c9 32 3a c8  99 26 34 30 30 43 35 2c  |.....2:..&400C5,|
00000230  2c 62 25 0d 00 0d 13 c9  33 3a c8 99 26 34 30 30  |,b%.....3:..&400|
00000240  43 36 2c 2c 62 25 0d 00  0e 24 c9 36 3a f2 6d 6f  |C6,,b%...$.6:.mo|
00000250  75 73 65 63 6c 69 63 6b  28 62 25 21 38 2c 62 25  |useclick(b%!8,b%|
00000260  21 26 43 2c 62 25 21 31  36 29 0d 00 0f 23 c9 38  |!&C,b%!16)...#.8|
00000270  3a f2 70 72 6f 63 65 73  73 6b 65 79 28 62 25 21  |:.processkey(b%!|
00000280  30 2c 62 25 21 34 2c 62  25 21 32 34 29 0d 00 10  |0,b%!4,b%!24)...|
00000290  12 c9 39 3a f2 6d 65 6e  75 63 68 6f 69 63 65 0d  |..9:.menuchoice.|
000002a0  00 11 1a c9 31 37 2c 31  38 3a f2 72 65 63 65 69  |....17,18:.recei|
000002b0  76 65 28 62 25 21 31 36  29 0d 00 12 1a c9 31 39  |ve(b%!16).....19|
000002c0  3a f2 72 65 63 65 69 76  65 61 63 6b 28 62 25 21  |:.receiveack(b%!|
000002d0  31 36 29 0d 00 13 07 cb  3a e1 0d 00 14 25 dd f2  |16).....:....%..|
000002e0  6d 6f 75 73 65 63 6c 69  63 6b 28 62 75 74 2c 77  |mouseclick(but,w|
000002f0  69 6e 2c 69 63 6f 6e 29  3a c8 8e 77 69 6e ca 0d  |in,icon):..win..|
00000300  00 15 0e c9 2d 32 3a c8  8e 62 75 74 ca 0d 00 16  |....-2:..but....|
00000310  0e c9 32 3a f2 69 62 6d  65 6e 75 0d 00 17 2a c9  |..2:.ibmenu...*.|
00000320  31 2c 34 3a f2 75 6e 65  6d 62 65 64 77 69 6e 28  |1,4:.unembedwin(|
00000330  70 61 72 65 6e 74 77 69  6e 25 2c 63 68 69 6c 64  |parentwin%,child|
00000340  77 69 6e 25 29 0d 00 18  05 cb 0d 00 19 15 c9 69  |win%)..........i|
00000350  6e 66 6f 62 6f 78 25 3a  c8 8e 69 63 6f 6e ca 0d  |nfobox%:..icon..|
00000360  00 1a 06 c9 31 0d 00 1b  3a c9 33 3a f2 46 65 74  |....1...:.3:.Fet|
00000370  63 68 50 61 67 65 28 22  68 74 74 70 3a 2f 2f 75  |chPage("http://u|
00000380  73 65 72 73 2e 65 73 73  65 78 2e 61 63 2e 75 6b  |sers.essex.ac.uk|
00000390  2f 75 73 65 72 73 2f 67  65 72 70 68 2f 22 29 0d  |/users/gerph/").|
000003a0  00 1c 40 c9 34 3a f2 46  65 74 63 68 50 61 67 65  |..@.4:.FetchPage|
000003b0  28 22 68 74 74 70 3a 2f  2f 75 73 65 72 73 2e 65  |("http://users.e|
000003c0  73 73 65 78 2e 61 63 2e  75 6b 2f 75 73 65 72 73  |ssex.ac.uk/users|
000003d0  2f 67 65 72 70 68 2f 61  63 6f 72 6e 2f 22 29 0d  |/gerph/acorn/").|
000003e0  00 1d 05 cb 0d 00 1e 07  cb 3a e1 0d 00 1f 38 dd  |.........:....8.|
000003f0  f2 70 72 6f 63 65 73 73  6b 65 79 28 77 69 6e 2c  |.processkey(win,|
00000400  69 63 6f 6e 2c 6b 65 79  29 3a ea 6b 65 79 64 6f  |icon,key):.keydo|
00000410  6e 65 3a 6b 65 79 64 6f  6e 65 3d a3 3a c8 8e 77  |ne:keydone=.:..w|
00000420  69 6e ca 0d 00 20 1c cb  3a e7 ac 6b 65 79 64 6f  |in... ..:..keydo|
00000430  6e 65 8c c8 99 26 34 30  30 44 43 2c 6b 65 79 0d  |ne...&400DC,key.|
00000440  00 21 05 e1 0d 00 22 61  dd f2 6d 65 6e 75 63 68  |.!...."a..menuch|
00000450  6f 69 63 65 3a c8 99 26  34 30 30 43 46 2c 2c 6d  |oice:..&400CF,,m|
00000460  65 73 73 61 67 65 5f 62  75 66 66 65 72 25 3a 6d  |essage_buffer%:m|
00000470  62 75 74 25 3d 6d 65 73  73 61 67 65 5f 62 75 66  |but%=message_buf|
00000480  66 65 72 25 21 38 3a 6d  24 3d a4 64 65 63 6f 64  |fer%!8:m$=.decod|
00000490  65 6d 65 6e 75 28 63 75  72 6d 65 6e 75 25 29 3a  |emenu(curmenu%):|
000004a0  c8 8e 6d 24 ca 0d 00 23  13 c9 22 51 75 69 74 22  |..m$...#.."Quit"|
000004b0  3a 71 75 69 74 25 3d b9  0d 00 24 2c cb 3a e7 28  |:quit%=...$,.:.(|
000004c0  6d 62 75 74 25 80 31 29  3d 31 8c f2 72 65 63 72  |mbut%.1)=1..recr|
000004d0  65 61 74 65 6d 65 6e 75  8b 63 75 72 6d 65 6e 75  |eatemenu.curmenu|
000004e0  25 3d 2d 31 0d 00 25 05  e1 0d 00 26 1b dd f2 72  |%=-1..%....&...r|
000004f0  65 63 65 69 76 65 28 6d  65 73 73 29 3a c8 8e 6d  |eceive(mess):..m|
00000500  65 73 73 ca 0d 00 27 10  c9 30 3a 71 75 69 74 25  |ess...'..0:quit%|
00000510  3d b9 2a 32 0d 00 28 20  c9 33 2c 35 3a 74 79 70  |=.*2..( .3,5:typ|
00000520  65 3d 62 25 21 34 30 3a  e7 74 79 70 65 3d 26 38  |e=b%!40:.type=&8|
00000530  38 38 38 8c 0d 00 29 4b  62 25 21 26 43 3d 62 25  |888...)Kb%!&C=b%|
00000540  21 38 3a 62 25 21 31 36  3d 34 3a c8 99 26 34 30  |!8:b%!16=4:..&40|
00000550  30 45 37 2c 31 37 2c 62  25 2c 62 25 21 34 3a f2  |0E7,17,b%,b%!4:.|
00000560  6c 6f 61 64 66 69 6c 65  28 a4 73 74 72 69 6e 67  |loadfile(.string|
00000570  30 28 62 25 2b 34 34 29  2c 62 25 21 34 30 29 0d  |0(b%+44),b%!40).|
00000580  00 2a 05 cd 0d 00 2b 21  c9 26 35 30 32 3a f2 48  |.*....+!.&502:.H|
00000590  65 6c 70 28 62 25 21 33  32 2c 62 25 21 33 36 2c  |elp(b%!32,b%!36,|
000005a0  62 25 21 34 29 0d 00 2c  1b c9 26 41 3a f2 64 65  |b%!4)..,..&A:.de|
000005b0  73 6b 74 6f 70 73 61 76  65 28 62 25 21 32 30 29  |sktopsave(b%!20)|
000005c0  0d 00 2d 07 cb 3a e1 0d  00 2e 1e dd f2 72 65 63  |..-..:.......rec|
000005d0  65 69 76 65 61 63 6b 28  6d 65 73 73 29 3a c8 8e  |eiveack(mess):..|
000005e0  6d 65 73 73 ca 0d 00 2f  07 cb 3a e1 0d 00 30 42  |mess.../..:...0B|
000005f0  dd f2 64 65 73 6b 74 6f  70 73 61 76 65 28 66 69  |..desktopsave(fi|
00000600  6c 65 25 29 3a ea 85 3a  ee 85 ea 62 25 21 26 43  |le%):..:...b%!&C|
00000610  3d 62 25 21 38 3a c8 99  26 34 30 30 45 37 2c 31  |=b%!8:..&400E7,1|
00000620  39 2c 62 25 2c 62 25 21  34 3a f7 85 3a e1 0d 00  |9,b%,b%!4:..:...|
00000630  31 1c d5 23 66 69 6c 65  25 2c 22 52 75 6e 20 22  |1..#file%,"Run "|
00000640  2b 41 70 70 64 69 72 24  3a e1 0d 00 32 22 dd f2  |+Appdir$:...2"..|
00000650  6c 6f 61 64 66 69 6c 65  28 66 69 6c 65 24 2c 74  |loadfile(file$,t|
00000660  79 70 65 29 3a c8 8e 74  79 70 65 ca 0d 00 33 07  |ype):..type...3.|
00000670  cb 3a e1 0d 00 34 f1 dd  f2 69 6e 69 74 77 69 6d  |.:...4...initwim|
00000680  70 3a de 6d 65 73 73 61  67 65 6c 69 73 74 25 32  |p:.messagelist%2|
00000690  35 36 3a 3a f2 6e 6f 74  65 6d 65 73 73 61 67 65  |56::.notemessage|
000006a0  28 26 35 30 32 29 3a f2  6e 6f 74 65 6d 65 73 73  |(&502):.notemess|
000006b0  61 67 65 28 26 41 29 3a  f2 6e 6f 74 65 6d 65 73  |age(&A):.notemes|
000006c0  73 61 67 65 28 30 29 3a  c8 99 26 34 30 30 43 30  |sage(0):..&400C0|
000006d0  2c 33 38 37 2c 26 34 42  35 33 34 31 35 34 2c 41  |,387,&4B534154,A|
000006e0  70 70 6e 61 6d 65 24 2c  6d 65 73 73 61 67 65 6c  |ppname$,messagel|
000006f0  69 73 74 25 b8 77 69 6d  70 76 65 72 73 69 6f 6e  |ist%.wimpversion|
00000700  2c 74 61 73 6b 68 61 6e  64 6c 65 3a 69 6e 64 6c  |,taskhandle:indl|
00000710  25 3d 26 34 30 30 3a 6d  65 6e 75 6c 25 3d 26 34  |%=&400:menul%=&4|
00000720  30 30 3a de 62 25 26 38  30 30 2c 69 6e 64 25 69  |00:.b%&800,ind%i|
00000730  6e 64 6c 25 2c 6d 65 6e  75 25 6d 65 6e 75 6c 25  |ndl%,menu%menul%|
00000740  2c 77 73 70 63 25 26 38  30 30 3a 63 75 72 6d 65  |,wspc%&800:curme|
00000750  6e 75 25 3d 2d 31 3a f2  6f 70 65 6e 6d 65 73 73  |nu%=-1:.openmess|
00000760  61 67 65 73 0d 00 35 ea  69 6e 66 6f 62 6f 78 25  |ages..5.infobox%|
00000770  3d a4 6c 6f 61 64 74 65  6d 70 6c 61 74 65 28 22  |=.loadtemplate("|
00000780  49 6e 66 6f 22 2c 31 29  3a 70 61 72 65 6e 74 77  |Info",1):parentw|
00000790  69 6e 25 3d a4 6c 6f 61  64 74 65 6d 70 6c 61 74  |in%=.loadtemplat|
000007a0  65 28 22 50 61 72 65 6e  74 22 2c 31 29 3a 63 68  |e("Parent",1):ch|
000007b0  69 6c 64 77 69 6e 25 3d  a4 6c 6f 61 64 74 65 6d  |ildwin%=.loadtem|
000007c0  70 6c 61 74 65 28 22 43  68 69 6c 64 22 2c 31 29  |plate("Child",1)|
000007d0  3a f2 73 65 74 69 63 6f  6e 74 65 78 74 28 69 6e  |:.seticontext(in|
000007e0  66 6f 62 6f 78 25 2c 31  2c 41 70 70 6e 61 6d 65  |fobox%,1,Appname|
000007f0  24 29 3a f2 73 65 74 69  63 6f 6e 74 65 78 74 28  |$):.seticontext(|
00000800  69 6e 66 6f 62 6f 78 25  2c 32 2c 22 4e 65 73 74  |infobox%,2,"Nest|
00000810  65 64 20 57 69 6e 64 6f  77 20 54 65 73 74 22 29  |ed Window Test")|
00000820  3a f2 73 65 74 69 63 6f  6e 74 65 78 74 28 69 6e  |:.seticontext(in|
00000830  66 6f 62 6f 78 25 2c 34  2c 22 31 2e 30 30 20 28  |fobox%,4,"1.00 (|
00000840  33 30 20 4d 61 79 20 31  39 39 37 29 22 29 0d 00  |30 May 1997)")..|
00000850  36 7d 69 62 68 61 6e 64  6c 65 3d a4 43 72 65 61  |6}ibhandle=.Crea|
00000860  74 65 49 63 6f 6e 42 61  72 49 63 6f 6e 28 22 21  |teIconBarIcon("!|
00000870  22 2b 41 70 70 6e 61 6d  65 24 2c 22 22 2c 31 29  |"+Appname$,"",1)|
00000880  3a 69 62 6d 65 6e 75 25  3d a4 63 72 65 61 74 65  |:ibmenu%=.create|
00000890  6d 65 6e 75 28 41 70 70  6e 61 6d 65 24 2b 22 7c  |menu(Appname$+"||
000008a0  49 6e 66 6f 5d 3e 69 6e  66 6f 62 6f 78 25 7c 51  |Info]>infobox%|Q|
000008b0  75 69 74 22 29 3a 69 62  6f 70 74 69 6f 6e 73 25  |uit"):iboptions%|
000008c0  3d 6f 70 74 69 6f 6e 73  25 3a e1 0d 00 37 10 dd  |=options%:...7..|
000008d0  f2 69 6e 69 74 70 72 6f  67 3a e1 0d 00 38 36 dd  |.initprog:...86.|
000008e0  f2 48 65 6c 70 28 77 69  6e 2c 69 63 6f 6e 2c 74  |.Help(win,icon,t|
000008f0  6f 29 3a f7 8d 74 60 45  3a f2 72 65 61 64 68 65  |o):..t`E:.readhe|
00000900  6c 70 28 77 69 6e 2c 69  63 6f 6e 2c 74 6f 29 3a  |lp(win,icon,to):|
00000910  e1 0d 00 39 1a dc 20 69  6e 66 6f 62 6f 78 25 2c  |...9.. infobox%,|
00000920  22 3e 48 49 6e 66 6f 62  6f 78 22 0d 00 3a 14 dc  |">HInfobox"..:..|
00000930  20 33 2c 22 3e 48 49 6e  66 6f 62 6f 78 33 22 0d  | 3,">HInfobox3".|
00000940  00 3b 14 dc 20 34 2c 22  3e 48 49 6e 66 6f 62 6f  |.;.. 4,">HInfobo|
00000950  78 34 22 0d 00 3c 14 dc  20 2d 32 2c 22 3e 48 49  |x4"..<.. -2,">HI|
00000960  63 6f 6e 62 61 72 22 0d  00 3d 0b dc 20 2d 31 2c  |conbar"..=.. -1,|
00000970  2d 31 0d 00 3e 11 dc 20  2d 32 2c 2d 32 2c 2d 32  |-1..>.. -2,-2,-2|
00000980  2c 2d 32 0d 00 3f 26 dd  f2 46 65 74 63 68 50 61  |,-2..?&..FetchPa|
00000990  67 65 28 66 24 29 3a c8  99 26 36 45 33 38 31 2c  |ge(f$):..&6E381,|
000009a0  30 2c 66 24 2b bd 30 3a  e1 0d 06 0f 5d dd f2 69  |0,f$+.0:....]..i|
000009b0  6e 69 74 6c 69 62 72 61  72 79 3a de 6d 65 73 73  |nitlibrary:.mess|
000009c0  61 67 65 5f 62 75 66 66  65 72 25 26 34 30 30 3a  |age_buffer%&400:|
000009d0  72 6d 61 66 6f 6e 74 61  72 65 61 3d 2d 32 3a 6d  |rmafontarea=-2:m|
000009e0  73 67 62 75 66 66 65 72  25 3d 2d 31 3a 6d 73 67  |sgbuffer%=-1:msg|
000009f0  62 75 66 66 65 72 32 25  3d 2d 31 3a 66 74 62 6c  |buffer2%=-1:ftbl|
00000a00  6b 3d 2d 32 3a e1 0d 06  10 26 dd f2 6e 6f 74 65  |k=-2:....&..note|
00000a10  6d 65 73 73 61 67 65 28  6e 29 6d 65 73 73 61 67  |message(n)messag|
00000a20  65 6c 69 73 74 25 21 30  3d 6e 3a e1 0d 06 11 e0  |elist%!0=n:.....|
00000a30  dd a4 6c 6f 61 64 74 65  6d 70 6c 61 74 65 28 6e  |..loadtemplate(n|
00000a40  24 2c 73 70 72 62 6c 6b  25 29 ea 74 73 69 7a 65  |$,sprblk%).tsize|
00000a50  25 2c 62 6c 6b 25 2c 6f  6b 25 3a c8 99 26 34 30  |%,blk%,ok%:..&40|
00000a60  30 44 39 2c 2c 41 70 70  64 69 72 24 2b 22 2e 54  |0D9,,Appdir$+".T|
00000a70  65 6d 70 6c 61 74 65 73  22 3a c8 99 26 34 30 30  |emplates":..&400|
00000a80  44 42 2c 2c 30 2c 2c 2c  2c 6e 24 2c 30 b8 2c 2c  |DB,,0,,,,n$,0.,,|
00000a90  74 73 69 7a 65 25 3a de  62 6c 6b 25 74 73 69 7a  |tsize%:.blk%tsiz|
00000aa0  65 25 3a c8 99 26 34 30  30 44 42 2c 2c 77 73 70  |e%:..&400DB,,wsp|
00000ab0  63 25 2c 62 6c 6b 25 2c  62 6c 6b 25 2b 74 73 69  |c%,blk%,blk%+tsi|
00000ac0  7a 65 25 2c 2d 31 2c 6e  24 2c 30 b8 2c 2c 2c 2c  |ze%,-1,n$,0.,,,,|
00000ad0  2c 2c 6f 6b 25 3a c8 99  26 34 30 30 44 41 3a e7  |,,ok%:..&400DA:.|
00000ae0  6f 6b 25 3d 30 8c 85 26  38 30 33 2c 22 54 65 6d  |ok%=0..&803,"Tem|
00000af0  70 6c 61 74 65 20 66 69  6c 65 20 22 2b 6e 24 2b  |plate file "+n$+|
00000b00  22 20 6e 6f 74 20 66 6f  75 6e 64 22 0d 06 12 2f  |" not found".../|
00000b10  77 73 70 63 25 21 36 34  3d 73 70 72 62 6c 6b 25  |wspc%!64=sprblk%|
00000b20  3a c8 99 26 34 30 30 43  31 2c 2c 77 73 70 63 25  |:..&400C1,,wspc%|
00000b30  b8 62 6c 6b 25 3a 3d 62  6c 6b 25 0d 06 13 3f dd  |.blk%:=blk%...?.|
00000b40  a4 47 65 74 45 6e 76 ea  63 6f 6d 24 2c 49 2c 70  |.GetEnv.com$,I,p|
00000b50  24 3a c8 99 31 36 b8 63  6f 6d 24 3a 70 24 3d 22  |$:..16.com$:p$="|
00000b60  22 3a 49 3d a7 63 6f 6d  24 2c 22 20 2d 71 75 69  |":I=.com$," -qui|
00000b70  74 20 22 29 3a e7 49 3e  30 8c 0d 06 14 40 70 24  |t "):.I>0....@p$|
00000b80  3d c1 63 6f 6d 24 2c a7  63 6f 6d 24 2c 22 20 22  |=.com$,.com$," "|
00000b90  2c 49 2b a9 22 20 2d 71  75 69 74 20 22 29 2b 31  |,I+." -quit ")+1|
00000ba0  29 3a c8 95 c0 70 24 2c  31 29 3d 22 20 22 3a 70  |):...p$,1)=" ":p|
00000bb0  24 3d c1 70 24 2c 32 29  3a ce 0d 06 15 09 cd 3a  |$=.p$,2):......:|
00000bc0  3d 70 24 0d 06 16 6e dd  a4 73 79 73 74 65 6d 76  |=p$...n..systemv|
00000bd0  61 72 28 56 61 72 24 29  ea 6c 65 6e 3a c8 99 26  |ar(Var$).len:..&|
00000be0  32 30 30 32 33 2c 56 61  72 24 2c 6d 65 73 73 61  |20023,Var$,messa|
00000bf0  67 65 5f 62 75 66 66 65  72 25 2c 26 46 46 2c 30  |ge_buffer%,&FF,0|
00000c00  2c 33 b8 2c 2c 6c 65 6e  3a 6d 65 73 73 61 67 65  |,3.,,len:message|
00000c10  5f 62 75 66 66 65 72 25  3f 6c 65 6e 3d 26 44 3a  |_buffer%?len=&D:|
00000c20  3d 24 6d 65 73 73 61 67  65 5f 62 75 66 66 65 72  |=$message_buffer|
00000c30  25 0d 06 17 4f dd f2 65  65 72 72 6f 72 3a ea 85  |%...O..eerror:..|
00000c40  3a ee 85 ea 3a f2 63 6c  6f 73 65 6d 65 73 73 61  |:...:.closemessa|
00000c50  67 65 73 3a ef 34 3a 85  a2 30 2c f6 24 2b 22 20  |ges:.4:..0,.$+" |
00000c60  61 74 20 6c 69 6e 65 20  22 2b c3 9e 2b 22 20 69  |at line "+..+" i|
00000c70  6e 20 65 72 72 6f 72 20  68 61 6e 64 6c 65 72 22  |n error handler"|
00000c80  0d 06 18 c9 6d 65 73 73  24 3d 22 49 6e 74 65 72  |....mess$="Inter|
00000c90  6e 61 6c 20 65 72 72 6f  72 20 3a 20 28 22 2b c3  |nal error : ("+.|
00000ca0  9e 2b 22 29 20 22 2b f6  24 3a ff 28 22 53 65 74  |.+") "+.$:.("Set|
00000cb0  20 45 72 72 6f 72 24 20  22 2b 6d 65 73 73 24 29  | Error$ "+mess$)|
00000cc0  3a ff 28 22 53 65 74 20  45 72 72 6f 72 24 54 61  |:.("Set Error$Ta|
00000cd0  73 6b 20 4e 6f 74 20 6b  6e 6f 77 6e 22 29 3a 6d  |sk Not known"):m|
00000ce0  65 73 73 61 67 65 5f 62  75 66 66 65 72 25 21 30  |essage_buffer%!0|
00000cf0  3d 9f 3a 24 28 6d 65 73  73 61 67 65 5f 62 75 66  |=.:$(message_buf|
00000d00  66 65 72 25 2b 34 29 3d  6d 65 73 73 24 2b 22 20  |fer%+4)=mess$+" |
00000d10  77 68 69 6c 73 74 20 69  6e 69 74 69 61 6c 69 73  |whilst initialis|
00000d20  69 6e 67 22 2b bd 30 3a  ee 85 ea 3a 41 70 70 6e  |ing"+.0:...:Appn|
00000d30  61 6d 65 24 3d 22 75 6e  69 6e 69 74 69 61 6c 69  |ame$="uninitiali|
00000d40  73 65 64 20 74 61 73 6b  22 0d 06 19 4f 61 24 3d  |sed task"...Oa$=|
00000d50  41 70 70 6e 61 6d 65 24  3a ee 85 ea 3a f2 63 6c  |Appname$:...:.cl|
00000d60  6f 73 65 6d 65 73 73 61  67 65 73 3a ef 34 3a 85  |osemessages:.4:.|
00000d70  a2 30 2c f6 24 2b 22 20  61 74 20 6c 69 6e 65 20  |.0,.$+" at line |
00000d80  22 2b c3 9e 2b 22 20 69  6e 20 65 72 72 6f 72 20  |"+..+" in error |
00000d90  68 61 6e 64 6c 65 72 22  0d 06 1a 29 c8 99 26 34  |handler"...)..&4|
00000da0  30 30 44 46 2c 6d 65 73  73 61 67 65 5f 62 75 66  |00DF,message_buf|
00000db0  66 65 72 25 2c 39 2c 41  70 70 6e 61 6d 65 24 3a  |fer%,9,Appname$:|
00000dc0  e1 0d 06 1b 63 dd f2 65  72 72 6f 72 ea 65 72 72  |....c..error.err|
00000dd0  63 6f 64 65 2c 6d 65 73  73 24 2c 72 65 70 6c 79  |code,mess$,reply|
00000de0  25 3a ea 85 3a ee 85 ea  3a f2 63 6c 6f 73 65 6d  |%:..:...:.closem|
00000df0  65 73 73 61 67 65 73 3a  ef 34 3a 85 a2 30 2c f6  |essages:.4:..0,.|
00000e00  24 2b 22 20 61 74 20 6c  69 6e 65 20 22 2b c3 9e  |$+" at line "+..|
00000e10  2b 22 20 69 6e 20 65 72  72 6f 72 20 68 61 6e 64  |+" in error hand|
00000e20  6c 65 72 22 0d 06 1c 1b  c8 99 36 2c 26 37 43 3a  |ler"......6,&7C:|
00000e30  e7 9f 3e 26 37 46 46 80  9f 3c 26 38 30 33 8c 0d  |..>&7FF..<&803..|
00000e40  06 1d 41 65 72 72 63 6f  64 65 3d 9f 2d 26 37 46  |..Aerrcode=.-&7F|
00000e50  46 3a 6d 65 73 73 24 3d  f6 24 3a e7 65 72 72 63  |F:mess$=.$:.errc|
00000e60  6f 64 65 3d 33 8c 6d 65  73 73 24 2b 3d 22 20 28  |ode=3.mess$+=" (|
00000e70  43 61 6e 63 65 6c 20 74  6f 20 51 75 69 74 29 22  |Cancel to Quit)"|
00000e80  0d 06 1e 48 72 65 70 6c  79 25 3d a4 65 72 72 6f  |...Hreply%=.erro|
00000e90  72 62 6f 78 28 41 70 70  6e 61 6d 65 24 2c 6d 65  |rbox(Appname$,me|
00000ea0  73 73 24 2c 65 72 72 63  6f 64 65 29 3a e7 72 65  |ss$,errcode):.re|
00000eb0  70 6c 79 25 3d 32 80 65  72 72 63 6f 64 65 3d 33  |ply%=2.errcode=3|
00000ec0  8c 71 75 69 74 25 3d b9  0d 06 1f 6c cc 3a 6d 65  |.quit%=....l.:me|
00000ed0  73 73 24 3d 22 49 6e 74  65 72 6e 61 6c 20 65 72  |ss$="Internal er|
00000ee0  72 6f 72 20 3a 20 28 22  2b c3 9e 2b 22 29 20 22  |ror : ("+..+") "|
00000ef0  2b f6 24 2b 22 20 43 61  6e 63 65 6c 20 74 6f 20  |+.$+" Cancel to |
00000f00  51 75 69 74 22 3a 72 65  70 6c 79 25 3d a4 65 72  |Quit":reply%=.er|
00000f10  72 6f 72 62 6f 78 28 41  70 70 6e 61 6d 65 24 2c  |rorbox(Appname$,|
00000f20  6d 65 73 73 24 2c 33 29  3a e7 72 65 70 6c 79 25  |mess$,3):.reply%|
00000f30  3c 3e 31 8c 0d 06 20 40  71 75 69 74 25 3d b9 3a  |<>1... @quit%=.:|
00000f40  ff 28 22 53 65 74 20 45  72 72 6f 72 24 20 22 2b  |.("Set Error$ "+|
00000f50  6d 65 73 73 24 29 3a ff  28 22 53 65 74 20 45 72  |mess$):.("Set Er|
00000f60  72 6f 72 24 54 61 73 6b  20 22 2b 41 70 70 6e 61  |ror$Task "+Appna|
00000f70  6d 65 24 29 0d 06 21 26  cd 3a e7 a6 28 2d 31 29  |me$)..!&.:..(-1)|
00000f80  80 a6 28 2d 32 29 80 a6  28 2d 31 37 29 8c ff 28  |..(-2)..(-17)..(|
00000f90  22 53 70 6f 6f 6c 22 29  3a e0 0d 06 22 07 cd 3a  |"Spool"):..."..:|
00000fa0  e1 0d 06 23 c3 dd a4 65  72 72 6f 72 62 6f 78 28  |...#...errorbox(|
00000fb0  74 69 74 6c 65 24 2c 6d  65 73 73 61 67 65 24 2c  |title$,message$,|
00000fc0  62 75 74 74 6f 6e 25 29  74 69 74 6c 65 24 3d a4  |button%)title$=.|
00000fd0  6d 73 67 74 65 78 74 28  74 69 74 6c 65 24 29 3a  |msgtext(title$):|
00000fe0  6d 65 73 73 61 67 65 24  3d a4 6d 73 67 74 65 78  |message$=.msgtex|
00000ff0  74 28 6d 65 73 73 61 67  65 24 29 3a 24 28 6d 65  |t(message$):$(me|
00001000  73 73 61 67 65 5f 62 75  66 66 65 72 25 2b 34 29  |ssage_buffer%+4)|
00001010  3d 6d 65 73 73 61 67 65  24 3a 21 6d 65 73 73 61  |=message$:!messa|
00001020  67 65 5f 62 75 66 66 65  72 25 3d 30 3a c8 99 26  |ge_buffer%=0:..&|
00001030  34 30 30 44 46 2c 6d 65  73 73 61 67 65 5f 62 75  |400DF,message_bu|
00001040  66 66 65 72 25 2c 62 75  74 74 6f 6e 25 2c 74 69  |ffer%,button%,ti|
00001050  74 6c 65 24 b8 2c 72 65  70 6c 79 25 3a 3d 72 65  |tle$.,reply%:=re|
00001060  70 6c 79 25 0d 06 24 f2  dd a4 63 72 65 61 74 65  |ply%..$...create|
00001070  6d 65 6e 75 28 41 24 29  3a ea 70 6f 69 6e 74 65  |menu(A$):.pointe|
00001080  72 2c 70 32 2c 70 33 2c  6c 2c 6c 6b 2c 4f 24 2c  |r,p2,p3,l,lk,O$,|
00001090  43 24 2c 6f 69 6e 64 25  2c 6f 69 6e 64 6c 25 2c  |C$,oind%,oindl%,|
000010a0  6b 73 25 2c 6b 24 2c 53  24 3a 6f 69 6e 64 25 3d  |ks%,k$,S$:oind%=|
000010b0  69 6e 64 25 3a 6f 69 6e  64 6c 25 3d 69 6e 64 6c  |ind%:oindl%=indl|
000010c0  25 3a 6b 73 25 3d a3 3a  70 6f 69 6e 74 65 72 3d  |%:ks%=.:pointer=|
000010d0  6d 65 6e 75 25 3a 6c 3d  30 3a 41 24 2b 3d 22 7c  |menu%:l=0:A$+="||
000010e0  22 3a f2 6d 65 6e 75 70  75 74 73 28 a4 6d 67 65  |":.menuputs(.mge|
000010f0  74 28 41 24 2c 43 24 29  29 3a f2 6d 65 6e 75 70  |t(A$,C$)):.menup|
00001100  75 74 77 28 26 37 30 32  30 37 29 3a 70 32 3d 6d  |utw(&70207):p2=m|
00001110  65 6e 75 25 3a f2 6d 65  6e 75 70 75 74 77 28 26  |enu%:.menuputw(&|
00001120  38 30 29 3a f2 6d 65 6e  75 70 75 74 77 28 34 34  |80):.menuputw(44|
00001130  29 3a f2 6d 65 6e 75 70  75 74 77 28 30 29 3a 6f  |):.menuputw(0):o|
00001140  70 74 69 6f 6e 73 25 3d  30 3a 53 24 3d 41 24 3a  |ptions%=0:S$=A$:|
00001150  6c 6b 3d 30 3a f5 0d 06  25 12 e7 6b 73 25 3d b9  |lk=0:...%..ks%=.|
00001160  8c 6b 73 25 3d b9 2a 32  0d 06 26 66 f5 3a 4f 24  |.ks%=.*2..&f.:O$|
00001170  3d a4 6d 67 65 74 28 41  24 2c 43 24 29 3a 6f 70  |=.mget(A$,C$):op|
00001180  74 69 6f 6e 73 25 3d 6f  70 74 69 6f 6e 73 25 2b  |tions%=options%+|
00001190  31 3a 66 6c 61 67 73 3d  a4 6d 64 65 63 6f 64 65  |1:flags=.mdecode|
000011a0  28 43 24 2c 70 33 2c 73  24 2c 6b 24 29 2b 28 28  |(C$,p3,s$,k$)+((|
000011b0  2d 28 41 24 3d 22 22 29  29 3c 3c 37 29 3a e7 6b  |-(A$=""))<<7):.k|
000011c0  73 25 3d b9 2a 32 80 6b  24 3c 3e 22 22 8c 0d 06  |s%=.*2.k$<>""...|
000011d0  27 3e 4f 24 2b 3d c4 6c  2b 6c 6b 2d 28 a9 28 4f  |'>O$+=.l+lk-(.(O|
000011e0  24 29 2b a9 28 6b 24 29  29 2b 31 2c 22 20 22 29  |$)+.(k$))+1," ")|
000011f0  3a e7 c0 6b 24 2c 31 29  3d 22 a4 22 8c c1 6b 24  |:..k$,1)="."..k$|
00001200  2c 31 2c 31 29 3d bd 28  26 38 42 29 0d 06 28 0a  |,1,1)=.(&8B)..(.|
00001210  4f 24 2b 3d 6b 24 0d 06  29 26 cc 3a e7 6b 24 3c  |O$+=k$..)&.:.k$<|
00001220  3e 22 22 8c 6b 73 25 3d  b9 3a e7 6c 6b 3c a9 28  |>"".ks%=.:.lk<.(|
00001230  6b 24 29 8c 6c 6b 3d a9  28 6b 24 29 0d 06 2a 5c  |k$).lk=.(k$)..*\|
00001240  cd 3a 66 6c 61 67 73 32  3d 26 37 30 30 30 30 32  |.:flags2=&700002|
00001250  31 2b 28 28 2d 28 a9 28  4f 24 29 3e 26 42 29 29  |1+((-(.(O$)>&B))|
00001260  3c 3c 38 29 2b 28 31 3c  3c 26 45 29 2a 28 66 6c  |<<8)+(1<<&E)*(fl|
00001270  61 67 73 80 32 35 36 29  3a e7 28 66 6c 61 67 73  |ags.256):.(flags|
00001280  80 34 29 3c 3e 30 8c 66  6c 61 67 73 32 3d 66 6c  |.4)<>0.flags2=fl|
00001290  61 67 73 32 84 32 35 36  0d 06 2b 40 f2 6d 65 6e  |ags2.256..+@.men|
000012a0  75 70 75 74 77 28 66 6c  61 67 73 80 26 46 46 29  |uputw(flags.&FF)|
000012b0  3a f2 6d 65 6e 75 70 75  74 77 28 70 33 29 3a e7  |:.menuputw(p3):.|
000012c0  a9 28 4f 24 29 3e 6c 80  6b 73 25 3c 3e b9 2a 32  |.(O$)>l.ks%<>.*2|
000012d0  8c 6c 3d a9 28 4f 24 29  0d 06 2c 9a f2 6d 65 6e  |.l=.(O$)..,..men|
000012e0  75 70 75 74 77 28 66 6c  61 67 73 32 29 3a f2 6d  |uputw(flags2):.m|
000012f0  65 6e 75 73 74 72 69 6e  67 28 4f 24 2c 73 24 2c  |enustring(O$,s$,|
00001300  28 66 6c 61 67 73 80 34  29 29 3a fd 41 24 3d 22  |(flags.4)):.A$="|
00001310  22 3a e7 6b 73 25 3d b9  2a 32 8c 6c 2b 3d 6c 6b  |":.ks%=.*2.l+=lk|
00001320  2b 31 8b e7 6b 73 25 3d  b9 8c 69 6e 64 25 3d 6f  |+1..ks%=..ind%=o|
00001330  69 6e 64 25 3a 69 6e 64  6c 25 3d 6f 69 6e 64 6c  |ind%:indl%=oindl|
00001340  25 3a 6d 65 6e 75 6c 25  2b 3d 6d 65 6e 75 25 2d  |%:menul%+=menu%-|
00001350  70 32 2d 26 43 3a 6d 65  6e 75 25 3d 70 32 2b 26  |p2-&C:menu%=p2+&|
00001360  43 3a 6f 70 74 69 6f 6e  73 25 3d 30 3a 41 24 3d  |C:options%=0:A$=|
00001370  53 24 0d 06 2d 20 fd 6b  73 25 3c 3e b9 3a 21 70  |S$..- .ks%<>.:!p|
00001380  32 3d 6c 2a 31 36 2b 31  36 3a 3d 70 6f 69 6e 74  |2=l*16+16:=point|
00001390  65 72 0d 06 2e 34 dd f2  6d 65 6e 75 73 74 72 69  |er...4..menustri|
000013a0  6e 67 28 54 24 2c 73 24  2c 66 6c 61 67 29 e7 c0  |ng(T$,s$,flag)..|
000013b0  54 24 2c 31 29 3d 22 a4  22 8c 54 24 3d a0 28 c1  |T$,1)=".".T$=.(.|
000013c0  54 24 2c 32 29 29 0d 06  2f 1b e7 a9 28 54 24 29  |T$,2))../...(T$)|
000013d0  3c 26 43 80 73 24 3d 22  22 80 66 6c 61 67 3d 30  |<&C.s$="".flag=0|
000013e0  8c 0d 06 30 11 f2 6d 65  6e 75 70 75 74 73 28 54  |...0..menuputs(T|
000013f0  24 29 0d 06 31 27 cc 3a  f2 6d 65 6e 75 70 75 74  |$)..1'.:.menuput|
00001400  77 28 a4 69 6e 64 69 72  65 63 74 28 54 24 29 29  |w(.indirect(T$))|
00001410  3a e7 73 24 3c 3e 22 22  8c 0d 06 32 46 6d 65 6e  |:.s$<>""...2Fmen|
00001420  75 25 21 2d 38 3d 6d 65  6e 75 25 21 2d 38 84 26  |u%!-8=menu%!-8.&|
00001430  38 30 33 3a e7 c0 a4 6c  6f 77 65 72 28 73 24 29  |803:...lower(s$)|
00001440  2c 32 29 3d 22 73 6d 22  8c 6d 65 6e 75 25 21 2d  |,2)="sm".menu%!-|
00001450  38 3d 6d 65 6e 75 25 21  2d 38 82 26 38 30 30 0d  |8=menu%!-8.&800.|
00001460  06 33 20 f2 6d 65 6e 75  70 75 74 77 28 a4 69 6e  |.3 .menuputw(.in|
00001470  64 69 72 65 63 74 28 22  53 22 2b 73 24 29 29 0d  |direct("S"+s$)).|
00001480  06 34 13 cc 3a f2 6d 65  6e 75 70 75 74 77 28 2d  |.4..:.menuputw(-|
00001490  31 29 0d 06 35 18 cd 3a  f2 6d 65 6e 75 70 75 74  |1)..5..:.menuput|
000014a0  77 28 a9 28 54 24 29 2b  31 29 0d 06 36 07 cd 3a  |w(.(T$)+1)..6..:|
000014b0  e1 0d 06 37 4e dd a4 6d  67 65 74 28 f8 41 24 2c  |...7N..mget(.A$,|
000014c0  f8 43 24 29 3a ea 42 24  3a 42 24 3d c0 41 24 2c  |.C$):.B$:B$=.A$,|
000014d0  a7 41 24 2c 22 7c 22 29  2d 31 29 3a 41 24 3d c1  |.A$,"|")-1):A$=.|
000014e0  41 24 2c a9 28 42 24 29  2b 32 29 3a e7 a7 42 24  |A$,.(B$)+2):..B$|
000014f0  2c 22 5d 22 29 3c 31 8c  42 24 2b 3d 22 5d 22 0d  |,"]")<1.B$+="]".|
00001500  06 38 37 43 24 3d c1 42  24 2c a7 42 24 2c 22 5d  |.87C$=.B$,.B$,"]|
00001510  22 29 2b 31 29 3a 42 24  3d c0 42 24 2c a7 42 24  |")+1):B$=.B$,.B$|
00001520  2c 22 5d 22 29 2d 31 29  3a 3d a4 6d 73 67 74 65  |,"]")-1):=.msgte|
00001530  78 74 28 42 24 29 0d 06  39 37 dd f2 6d 65 6e 75  |xt(B$)..97..menu|
00001540  70 75 74 73 28 54 24 29  e7 a9 28 54 24 29 3e 26  |puts(T$)..(T$)>&|
00001550  42 8c 85 26 38 30 33 2c  22 4d 65 6e 75 20 65 6e  |B..&803,"Menu en|
00001560  74 72 79 20 74 6f 6f 20  6c 6f 6e 67 22 0d 06 3a  |try too long"..:|
00001570  51 24 6d 65 6e 75 25 3d  54 24 3a 6d 65 6e 75 25  |Q$menu%=T$:menu%|
00001580  2b 3d 26 43 3a 6d 65 6e  75 6c 25 2d 3d 26 43 3a  |+=&C:menul%-=&C:|
00001590  e7 6d 65 6e 75 6c 25 3c  3d 34 8c 85 26 38 30 33  |.menul%<=4..&803|
000015a0  2c 22 4e 6f 74 20 65 6e  6f 75 67 68 20 6d 65 6d  |,"Not enough mem|
000015b0  6f 72 79 20 66 6f 72 20  6d 65 6e 75 73 22 0d 06  |ory for menus"..|
000015c0  3b 05 e1 0d 06 3c 5e dd  f2 6d 65 6e 75 70 75 74  |;....<^..menuput|
000015d0  77 28 57 25 29 3a 21 6d  65 6e 75 25 3d 57 25 3a  |w(W%):!menu%=W%:|
000015e0  6d 65 6e 75 25 2b 3d 34  3a 6d 65 6e 75 6c 25 2d  |menu%+=4:menul%-|
000015f0  3d 34 3a e7 6d 65 6e 75  6c 25 3c 3d 34 8c 85 26  |=4:.menul%<=4..&|
00001600  38 30 33 2c 22 4e 6f 74  20 65 6e 6f 75 67 68 20  |803,"Not enough |
00001610  6d 65 6d 6f 72 79 20 66  6f 72 20 6d 65 6e 75 73  |memory for menus|
00001620  22 0d 06 3d 05 e1 0d 06  3e 63 dd a4 6d 64 65 63  |"..=....>c..mdec|
00001630  6f 64 65 28 41 24 2c f8  70 2c f8 73 24 2c f8 6b  |ode(A$,.p,.s$,.k|
00001640  24 29 3a ea 42 24 2c 43  24 2c 56 3a 70 3d 2d 31  |$):.B$,C$,V:p=-1|
00001650  3a 73 24 3d 22 22 3a 6b  24 3d 22 22 3a 41 24 3d  |:s$="":k$="":A$=|
00001660  41 24 2b 22 2c 22 3a c8  95 41 24 3c 3e 22 22 3a  |A$+",":..A$<>"":|
00001670  42 24 3d c0 41 24 2c 31  29 3a 41 24 3d c1 41 24  |B$=.A$,1):A$=.A$|
00001680  2c 32 29 3a c8 8e 42 24  ca 0d 06 3f 0e c9 22 54  |,2):..B$...?.."T|
00001690  22 3a 56 3d 56 84 31 0d  06 40 0e c9 22 44 22 3a  |":V=V.1..@.."D":|
000016a0  56 3d 56 84 32 0d 06 41  0e c9 22 57 22 3a 56 3d  |V=V.2..A.."W":V=|
000016b0  56 84 34 0d 06 42 0e c9  22 4d 22 3a 56 3d 56 84  |V.4..B.."M":V=V.|
000016c0  38 0d 06 43 10 c9 22 53  22 3a 56 3d 56 84 32 35  |8..C.."S":V=V.25|
000016d0  36 0d 06 44 2e c9 22 4b  22 3a 6b 24 3d c0 41 24  |6..D.."K":k$=.A$|
000016e0  2c a7 41 24 2c 22 2c 22  29 2d 31 29 3a 41 24 3d  |,.A$,",")-1):A$=|
000016f0  c1 41 24 2c a7 41 24 2c  22 2c 22 29 2b 31 29 0d  |.A$,.A$,",")+1).|
00001700  06 45 30 c9 22 3e 22 3a  70 3d a0 28 c0 41 24 2c  |.E0.">":p=.(.A$,|
00001710  a7 41 24 2c 22 2c 22 29  2d 31 29 29 3a 41 24 3d  |.A$,",")-1)):A$=|
00001720  c1 41 24 2c a7 41 24 2c  22 2c 22 29 2b 31 29 0d  |.A$,.A$,",")+1).|
00001730  06 46 32 c9 22 7d 22 3a  73 24 3d c0 41 24 2c a7  |.F2."}":s$=.A$,.|
00001740  41 24 2c 22 2c 22 29 2d  31 29 2b 22 20 22 3a 41  |A$,",")-1)+" ":A|
00001750  24 3d c1 41 24 2c a7 41  24 2c 22 2c 22 29 2b 31  |$=.A$,.A$,",")+1|
00001760  29 0d 06 47 0a cb 3a ce  3a 3d 56 0d 06 48 52 dd  |)..G..:.:=V..HR.|
00001770  a4 69 6e 64 69 72 65 63  74 28 61 24 29 ea 69 3a  |.indirect(a$).i:|
00001780  69 3d 69 6e 64 25 3a e7  a9 28 61 24 29 3e 69 6e  |i=ind%:..(a$)>in|
00001790  64 6c 25 2d 31 8c 85 26  38 30 33 2c 22 4e 6f 74  |dl%-1..&803,"Not|
000017a0  20 65 6e 6f 75 67 68 20  72 6f 6f 6d 20 66 6f 72  | enough room for|
000017b0  20 69 6e 64 69 72 65 63  74 69 6f 6e 22 0d 06 49  | indirection"..I|
000017c0  2c 24 69 6e 64 25 3d 61  24 3a 69 6e 64 25 2b 3d  |,$ind%=a$:ind%+=|
000017d0  a9 28 61 24 29 2b 31 3a  69 6e 64 6c 25 2d 3d a9  |.(a$)+1:indl%-=.|
000017e0  28 61 24 29 2b 31 3a 3d  69 0d 06 4a 80 dd f2 69  |(a$)+1:=i..J...i|
000017f0  62 6d 65 6e 75 3a c8 99  26 34 30 30 43 46 2c 2c  |bmenu:..&400CF,,|
00001800  62 25 3a 63 75 72 6d 65  6e 75 25 3d 69 62 6d 65  |b%:curmenu%=ibme|
00001810  6e 75 25 3a 63 6d 65 6e  75 78 25 3d 62 25 21 30  |nu%:cmenux%=b%!0|
00001820  2d 36 34 3a 63 6d 65 6e  75 79 25 3d 39 36 2b 34  |-64:cmenuy%=96+4|
00001830  34 2a 69 62 6f 70 74 69  6f 6e 73 25 3a c8 99 26  |4*iboptions%:..&|
00001840  34 30 30 44 34 2c 2c 69  62 6d 65 6e 75 25 2c 62  |400D4,,ibmenu%,b|
00001850  25 21 30 2d 36 34 2c 39  36 2b 34 34 2a 69 62 6f  |%!0-64,96+44*ibo|
00001860  70 74 69 6f 6e 73 25 3a  e1 0d 06 4b 37 dd f2 72  |ptions%:...K7..r|
00001870  65 63 72 65 61 74 65 6d  65 6e 75 3a c8 99 26 34  |ecreatemenu:..&4|
00001880  30 30 44 34 2c 2c 63 75  72 6d 65 6e 75 25 2c 63  |00D4,,curmenu%,c|
00001890  6d 65 6e 75 78 25 2c 63  6d 65 6e 75 79 25 3a e1  |menux%,cmenuy%:.|
000018a0  0d 06 4c 92 dd a4 64 65  63 6f 64 65 6d 65 6e 75  |..L...decodemenu|
000018b0  28 6d 65 6e 75 25 29 ea  63 70 25 2c 70 74 72 2c  |(menu%).cp%,ptr,|
000018c0  62 24 2c 63 24 3a 63 70  25 3d 6d 65 6e 75 25 3a  |b$,c$:cp%=menu%:|
000018d0  70 74 72 3d 30 3a c8 95  28 62 25 21 70 74 72 3e  |ptr=0:..(b%!ptr>|
000018e0  2d 31 80 63 70 25 3c 3e  72 6d 61 66 6f 6e 74 61  |-1.cp%<>rmafonta|
000018f0  72 65 61 29 3a 63 70 25  3d 63 70 25 21 28 33 32  |rea):cp%=cp%!(32|
00001900  2b 28 62 25 21 70 74 72  29 2a 32 34 29 3a 70 74  |+(b%!ptr)*24):pt|
00001910  72 2b 3d 34 3a ce 3a e7  63 70 25 3d 72 6d 61 66  |r+=4:.:.cp%=rmaf|
00001920  6f 6e 74 61 72 65 61 80  62 25 21 70 74 72 3c 3e  |ontarea.b%!ptr<>|
00001930  30 8c 0d 06 4d 33 c8 99  26 34 30 30 41 30 2c 2c  |0...M3..&400A0,,|
00001940  72 6d 61 66 6f 6e 74 61  72 65 61 2c 62 25 2b 70  |rmafontarea,b%+p|
00001950  74 72 2c c4 26 46 46 2c  bd 30 29 2c 26 46 46 b8  |tr,.&FF,.0),&FF.|
00001960  2c 2c 2c 6d 24 0d 06 4e  9e cc 3a c8 99 26 34 30  |,,,m$..N..:..&40|
00001970  30 44 35 2c 2c 6d 65 6e  75 25 2c 62 25 2c c4 26  |0D5,,menu%,b%,.&|
00001980  46 46 2c bd 30 29 2c 26  46 46 b8 2c 2c 2c 6d 24  |FF,.0),&FF.,,,m$|
00001990  3a 62 24 3d 22 22 3a f5  3a 63 24 3d c0 6d 24 2c  |:b$="":.:c$=.m$,|
000019a0  a7 6d 24 2b 22 2e 22 2c  22 2e 22 29 2d 31 29 3a  |.m$+".",".")-1):|
000019b0  6d 24 3d c1 6d 24 2c a9  28 63 24 29 2b 32 29 3a  |m$=.m$,.(c$)+2):|
000019c0  63 24 3d c0 63 24 2c a7  63 24 2b 22 20 5e 22 2c  |c$=.c$,.c$+" ^",|
000019d0  22 20 5e 22 29 2d 31 29  3a 63 24 3d c0 63 24 2c  |" ^")-1):c$=.c$,|
000019e0  a7 63 24 2b 22 20 22 2b  bd 26 38 42 2c 22 20 22  |.c$+" "+.&8B," "|
000019f0  2b bd 26 38 42 29 2d 31  29 3a c8 8e c2 63 24 2c  |+.&8B)-1):...c$,|
00001a00  33 29 ca 0d 06 4f 62 c9  22 45 73 63 22 2c 22 44  |3)...Ob."Esc","D|
00001a10  65 6c 22 2c 22 49 6e 73  22 2c 22 45 6e 64 22 2c  |el","Ins","End",|
00001a20  22 48 6f 6d 22 2c 22 43  70 79 22 2c 22 46 31 30  |"Hom","Cpy","F10|
00001a30  22 2c 22 46 31 31 22 2c  22 46 31 32 22 2c 22 46  |","F11","F12","F|
00001a40  31 33 22 2c 22 50 72 74  22 2c 22 54 61 62 22 2c  |13","Prt","Tab",|
00001a50  22 52 65 74 22 3a 63 24  3d c0 63 24 2c a9 28 63  |"Ret":c$=.c$,.(c|
00001a60  24 29 2d 34 29 0d 06 50  3f cb 3a e7 c1 63 24 2c  |$)-4)..P?.:..c$,|
00001a70  a9 28 63 24 29 2d 32 2c  32 29 3d 22 20 46 22 8c  |.(c$)-2,2)=" F".|
00001a80  e7 c2 63 24 29 3d 22 30  22 84 bb 28 c2 63 24 29  |..c$)="0"..(.c$)|
00001a90  29 3c 3e 30 8c 63 24 3d  c0 63 24 2c a9 28 63 24  |)<>0.c$=.c$,.(c$|
00001aa0  29 2d 33 29 0d 06 51 42  c8 95 c2 63 24 29 3d 22  |)-3)..QB...c$)="|
00001ab0  20 22 3a 63 24 3d c0 63  24 29 3a ce 3a 62 24 2b  | ":c$=.c$):.:b$+|
00001ac0  3d 63 24 2b 22 2e 22 3a  fd 6d 24 3d 22 22 84 6d  |=c$+".":.m$="".m|
00001ad0  24 3d 22 2e 22 3a e7 6d  24 3d 22 2e 22 8c 62 24  |$=".":.m$=".".b$|
00001ae0  2b 3d 22 2e 2e 22 0d 06  52 0b 6d 24 3d c0 62 24  |+=".."..R.m$=.b$|
00001af0  29 0d 06 53 09 cd 3a 3d  6d 24 0d 06 54 fa dd f2  |)..S..:=m$..T...|
00001b00  6f 70 65 6e 77 69 6e 63  65 6e 74 72 65 28 77 69  |openwincentre(wi|
00001b10  6e 25 29 ea 77 69 64 74  68 2c 68 65 69 67 68 74  |n%).width,height|
00001b20  2c 74 6f 70 2c 72 69 67  68 74 2c 78 2c 79 3a 21  |,top,right,x,y:!|
00001b30  62 25 3d 34 3a 62 25 21  34 3d 35 3a 62 25 21 38  |b%=4:b%!4=5:b%!8|
00001b40  3d 26 42 3a 62 25 21 26  43 3d 26 43 3a 62 25 21  |=&B:b%!&C=&C:b%!|
00001b50  31 36 3d 2d 31 3a c8 99  34 39 2c 62 25 2c 62 25  |16=-1:..49,b%,b%|
00001b60  2b 32 30 3a 72 69 67 68  74 3d 62 25 21 32 38 2b  |+20:right=b%!28+|
00001b70  31 3c 3c 62 25 21 32 30  3a 74 6f 70 3d 62 25 21  |1<<b%!20:top=b%!|
00001b80  33 32 2b 31 3c 3c 62 25  21 32 34 3a 21 62 25 3d  |32+1<<b%!24:!b%=|
00001b90  77 69 6e 25 3a c8 99 26  34 30 30 43 42 2c 2c 62  |win%:..&400CB,,b|
00001ba0  25 3a 77 69 64 74 68 3d  62 25 21 34 2d 62 25 21  |%:width=b%!4-b%!|
00001bb0  26 43 3a 68 65 69 67 68  74 3d 62 25 21 31 36 2d  |&C:height=b%!16-|
00001bc0  62 25 21 38 3a 78 3d 28  72 69 67 68 74 2d 77 69  |b%!8:x=(right-wi|
00001bd0  64 74 68 29 2f 32 2b 77  69 64 74 68 3a 79 3d 28  |dth)/2+width:y=(|
00001be0  74 6f 70 2d 68 65 69 67  68 74 29 2f 32 2b 68 65  |top-height)/2+he|
00001bf0  69 67 68 74 0d 06 55 46  62 25 21 34 3d 78 3a 62  |ight..UFb%!4=x:b|
00001c00  25 21 38 3d 79 2d 68 65  69 67 68 74 3a 62 25 21  |%!8=y-height:b%!|
00001c10  26 43 3d 78 2d 77 69 64  74 68 3a 62 25 21 31 36  |&C=x-width:b%!16|
00001c20  3d 79 3a 62 25 21 32 38  3d 2d 31 3a c8 99 26 34  |=y:b%!28=-1:..&4|
00001c30  30 30 43 35 2c 2c 62 25  3a e1 0d 06 56 68 dd f2  |00C5,,b%:...Vh..|
00001c40  65 6d 62 65 64 77 69 6e  28 70 61 72 65 6e 74 25  |embedwin(parent%|
00001c50  2c 63 68 69 6c 64 25 2c  66 6c 61 67 73 25 29 3a  |,child%,flags%):|
00001c60  21 62 25 3d 63 68 69 6c  64 25 3a c8 99 26 34 30  |!b%=child%:..&40|
00001c70  30 43 42 2c 2c 62 25 3a  c8 99 26 34 30 30 43 35  |0CB,,b%:..&400C5|
00001c80  2c 2c 62 25 2c 26 34 42  35 33 34 31 35 34 2c 70  |,,b%,&4B534154,p|
00001c90  61 72 65 6e 74 25 2c 66  6c 61 67 73 25 80 ac 31  |arent%,flags%..1|
00001ca0  3a e1 0d 06 57 59 dd f2  75 6e 65 6d 62 65 64 77  |:...WY..unembedw|
00001cb0  69 6e 28 70 61 72 65 6e  74 25 2c 63 68 69 6c 64  |in(parent%,child|
00001cc0  25 29 3a 21 62 25 3d 63  68 69 6c 64 25 3a c8 99  |%):!b%=child%:..|
00001cd0  26 34 30 30 43 42 2c 2c  62 25 3a c8 99 26 34 30  |&400CB,,b%:..&40|
00001ce0  30 43 36 2c 2c 62 25 2c  26 34 42 35 33 34 31 35  |0C6,,b%,&4B53415|
00001cf0  34 2c 70 61 72 65 6e 74  25 3a e1 0d 06 58 ae dd  |4,parent%:...X..|
00001d00  a4 43 72 65 61 74 65 49  63 6f 6e 42 61 72 49 63  |.CreateIconBarIc|
00001d10  6f 6e 28 53 70 72 24 2c  74 69 74 6c 65 24 2c 70  |on(Spr$,title$,p|
00001d20  6f 73 25 29 ea 69 63 25  2c 77 25 2c 6d 25 2c 65  |os%).ic%,w%,m%,e|
00001d30  25 3a 74 69 74 6c 65 24  3d a4 6d 73 67 74 65 78  |%:title$=.msgtex|
00001d40  74 28 74 69 74 6c 65 24  29 3a 62 25 21 30 3d 2d  |t(title$):b%!0=-|
00001d50  28 94 28 70 6f 73 25 29  80 26 46 46 29 3a 62 25  |(.(pos%).&FF):b%|
00001d60  21 34 3d 30 3a 62 25 21  38 3d 2d 31 36 3a 62 25  |!4=0:b%!8=-16:b%|
00001d70  21 26 43 3d 26 43 2b 31  36 2a a9 28 74 69 74 6c  |!&C=&C+16*.(titl|
00001d80  65 24 29 3a 62 25 21 31  36 3d 38 38 3a e7 62 25  |e$):b%!16=88:.b%|
00001d90  21 26 43 3c 26 43 2b 31  36 2a 34 8c 62 25 21 26  |!&C<&C+16*4.b%!&|
00001da0  43 3d 26 43 2b 31 36 2a  34 0d 06 59 10 e7 74 69  |C=&C+16*4..Y..ti|
00001db0  74 6c 65 24 3c 3e 22 22  8c 0d 06 5a 71 62 25 21  |tle$<>""...Zqb%!|
00001dc0  32 30 3d 28 31 3c 3c 32  38 29 2b 28 37 3c 3c 32  |20=(1<<28)+(7<<2|
00001dd0  34 29 2b 28 33 3c 3c 26  43 29 2b 28 26 42 29 2b  |4)+(3<<&C)+(&B)+|
00001de0  28 31 3c 3c 38 29 3a 62  25 21 32 34 3d a4 69 6e  |(1<<8):b%!24=.in|
00001df0  64 69 72 65 63 74 28 74  69 74 6c 65 24 29 3a 62  |direct(title$):b|
00001e00  25 21 32 38 3d a4 69 6e  64 69 72 65 63 74 28 22  |%!28=.indirect("|
00001e10  53 22 2b 53 70 72 24 29  3a 62 25 21 33 32 3d a9  |S"+Spr$):b%!32=.|
00001e20  28 74 69 74 6c 65 24 29  2b 31 0d 06 5b 36 cc 3a  |(title$)+1..[6.:|
00001e30  62 25 21 32 30 3d 28 31  3c 3c 32 38 29 2b 28 37  |b%!20=(1<<28)+(7|
00001e40  3c 3c 32 34 29 2b 28 33  3c 3c 26 43 29 2b 28 32  |<<24)+(3<<&C)+(2|
00001e50  36 29 3a 24 28 62 25 2b  32 34 29 3d 53 70 72 24  |6):$(b%+24)=Spr$|
00001e60  0d 06 5c 66 cd 3a c8 99  26 34 30 30 45 39 2c 32  |..\f.:..&400E9,2|
00001e70  39 36 2c 2c c0 53 70 72  24 2c a7 53 70 72 24 2b  |96,,.Spr$,.Spr$+|
00001e80  22 2c 22 2c 22 2c 22 29  29 b8 2c 2c 2c 77 25 2c  |",",",")).,,,w%,|
00001e90  6d 25 3a c8 99 26 32 30  30 33 35 2c 6d 25 2c 34  |m%:..&20035,m%,4|
00001ea0  b8 2c 2c 65 25 3a 77 25  3d 28 77 25 2b 31 29 3c  |.,,e%:w%=(w%+1)<|
00001eb0  3c 65 25 3a e7 77 25 3e  62 25 21 26 43 8c 62 25  |<e%:.w%>b%!&C.b%|
00001ec0  21 26 43 3d 77 25 0d 06  5d 4d e7 28 94 28 70 6f  |!&C=w%..]M.(.(po|
00001ed0  73 25 29 80 26 46 46 29  3d 33 84 28 94 28 70 6f  |s%).&FF)=3.(.(po|
00001ee0  73 25 29 80 26 46 46 29  3d 34 8c 70 6f 73 25 3d  |s%).&FF)=4.pos%=|
00001ef0  94 28 70 6f 73 25 29 3e  3e 38 8b 70 6f 73 25 3d  |.(pos%)>>8.pos%=|
00001f00  28 94 28 70 6f 73 25 29  80 26 46 46 30 30 29 3c  |(.(pos%).&FF00)<|
00001f10  3c 31 36 0d 06 5e 1d c8  99 26 34 30 30 43 32 2c  |<16..^...&400C2,|
00001f20  70 6f 73 25 2c 62 25 b8  69 63 25 3a 3d 69 63 25  |pos%,b%.ic%:=ic%|
00001f30  0d 06 5f c3 dd f2 73 65  74 69 63 6f 6e 74 65 78  |.._...seticontex|
00001f40  74 28 77 69 6e 25 2c 69  63 6f 6e 25 2c 74 65 78  |t(win%,icon%,tex|
00001f50  74 24 29 ea 69 25 3a 74  65 78 74 24 3d a4 6d 73  |t$).i%:text$=.ms|
00001f60  67 74 65 78 74 28 74 65  78 74 24 29 3a c8 99 26  |gtext(text$):..&|
00001f70  34 30 30 44 33 2c 2c 62  25 3a 69 25 3d 28 21 62  |400D3,,b%:i%=(!b|
00001f80  25 3d 77 69 6e 25 29 80  28 69 63 6f 6e 25 3d 62  |%=win%).(icon%=b|
00001f90  25 21 34 29 3a 62 25 21  30 3d 77 69 6e 25 3a 62  |%!4):b%!0=win%:b|
00001fa0  25 21 34 3d 69 63 6f 6e  25 3a c8 99 26 34 30 30  |%!4=icon%:..&400|
00001fb0  43 45 2c 2c 62 25 3a e7  28 28 62 25 21 32 34 29  |CE,,b%:.((b%!24)|
00001fc0  80 32 35 36 29 3d 30 8c  85 26 38 30 33 2c 22 49  |.256)=0..&803,"I|
00001fd0  63 6f 6e 20 69 73 6e 27  74 20 69 6e 64 69 72 65  |con isn't indire|
00001fe0  63 74 65 64 20 28 23 22  2b c3 69 63 6f 6e 25 2b  |cted (#"+.icon%+|
00001ff0  22 29 22 0d 06 60 1c e7  a4 73 74 72 69 6e 67 30  |")"..`...string0|
00002000  28 62 25 21 32 38 29 3c  3e 74 65 78 74 24 8c 0d  |(b%!28)<>text$..|
00002010  06 61 4f e7 a9 28 74 65  78 74 24 29 3c 62 25 21  |.aO..(text$)<b%!|
00002020  33 36 8c 24 28 62 25 21  32 38 29 3d 74 65 78 74  |36.$(b%!28)=text|
00002030  24 8b 85 26 38 30 33 2c  22 54 65 78 74 20 74 6f  |$..&803,"Text to|
00002040  6f 20 6c 6f 6e 67 20 66  6f 72 20 69 63 6f 6e 20  |o long for icon |
00002050  28 23 22 2b c3 69 63 6f  6e 25 2b 22 29 22 0d 06  |(#"+.icon%+")"..|
00002060  62 69 21 62 25 3d 77 69  6e 25 3a 62 25 21 34 3d  |bi!b%=win%:b%!4=|
00002070  69 63 6f 6e 25 3a 62 25  21 38 3d 30 3a 62 25 21  |icon%:b%!8=0:b%!|
00002080  26 43 3d 30 3a c8 99 26  34 30 30 43 44 2c 2c 62  |&C=0:..&400CD,,b|
00002090  25 3a e7 69 25 80 28 62  25 21 32 34 80 31 29 3d  |%:.i%.(b%!24.1)=|
000020a0  31 8c c8 99 26 34 30 30  44 32 2c 77 69 6e 25 2c  |1...&400D2,win%,|
000020b0  69 63 6f 6e 25 2c 2d 31  2c 2d 31 2c 2d 31 2c a9  |icon%,-1,-1,-1,.|
000020c0  28 74 65 78 74 24 29 0d  06 63 07 cd 3a e1 0d 06  |(text$)..c..:...|
000020d0  64 70 dd f2 72 65 61 64  68 65 6c 70 28 77 69 6e  |dp..readhelp(win|
000020e0  2c 69 63 6f 6e 2c 74 6f  29 3a ea 6c 77 69 6e 2c  |,icon,to):.lwin,|
000020f0  76 61 6c 2c 68 65 6c 70  24 2c 66 6f 75 6e 64 2c  |val,help$,found,|
00002100  61 24 2c 6d 24 2c 6d 32  24 2c 6d 68 24 3a 66 6f  |a$,m$,m2$,mh$:fo|
00002110  75 6e 64 3d a3 3a 6c 77  69 6e 3d 2d 31 3a f5 3a  |und=.:lwin=-1:.:|
00002120  f3 76 61 6c 2c 68 65 6c  70 24 3a e7 76 61 6c 3e  |.val,help$:.val>|
00002130  28 31 3c 3c 31 36 29 84  76 61 6c 3c 30 8c 0d 06  |(1<<16).val<0...|
00002140  65 0e e7 6c 77 69 6e 3d  77 69 6e 8c 0d 06 66 1c  |e..lwin=win...f.|
00002150  76 61 6c 3d 69 63 6f 6e  3a 68 65 6c 70 24 3d 22  |val=icon:help$="|
00002160  22 3a 6d 32 24 3d 6d 24  0d 06 67 17 cc 3a 6c 77  |":m2$=m$..g..:lw|
00002170  69 6e 3d 76 61 6c 3a 6d  24 3d 68 65 6c 70 24 0d  |in=val:m$=help$.|
00002180  06 68 05 cd 0d 06 69 19  cd 3a e7 76 61 6c 3d 69  |.h....i..:.val=i|
00002190  63 6f 6e 80 6c 77 69 6e  3d 77 69 6e 8c 0d 06 6a  |con.lwin=win...j|
000021a0  16 e7 69 63 6f 6e 3d 2d  31 84 68 65 6c 70 24 3d  |..icon=-1.help$=|
000021b0  22 22 8c 0d 06 6b 23 f2  73 65 6e 64 68 65 6c 70  |""...k#.sendhelp|
000021c0  28 a4 6d 73 67 74 65 78  74 28 6d 24 29 2b 22 7c  |(.msgtext(m$)+"||
000021d0  4d 22 2c 74 6f 29 0d 06  6c 36 cc 3a 6d 24 3d a4  |M",to)..l6.:m$=.|
000021e0  6d 73 67 74 65 78 74 28  6d 24 29 3a e7 a7 6d 24  |msgtext(m$):..m$|
000021f0  2c 22 7c 4d 22 29 3e 30  8c 6d 24 3d c0 6d 24 2c  |,"|M")>0.m$=.m$,|
00002200  a7 6d 24 2c 22 7c 4d 22  29 2d 31 29 0d 06 6d 33  |.m$,"|M")-1)..m3|
00002210  f2 73 65 6e 64 68 65 6c  70 28 a4 6d 73 67 74 65  |.sendhelp(.msgte|
00002220  78 74 28 6d 24 29 2b 22  7c 4d 22 2b a4 6d 73 67  |xt(m$)+"|M"+.msg|
00002230  74 65 78 74 28 68 65 6c  70 24 29 2c 74 6f 29 0d  |text(help$),to).|
00002240  06 6e 0d cd 3a 66 6f 75  6e 64 3d b9 0d 06 6f 22  |.n..:found=...o"|
00002250  cd 3a fd 68 65 6c 70 24  3d 22 2d 31 22 84 66 6f  |.:.help$="-1".fo|
00002260  75 6e 64 3d b9 3a e7 ac  66 6f 75 6e 64 8c 0d 06  |und=.:..found...|
00002270  70 7c 21 6d 65 73 73 61  67 65 5f 62 75 66 66 65  |p|!message_buffe|
00002280  72 25 3d 2d 31 3a 6d 65  73 73 61 67 65 5f 62 75  |r%=-1:message_bu|
00002290  66 66 65 72 25 21 34 3d  2d 31 3a 6d 65 73 73 61  |ffer%!4=-1:messa|
000022a0  67 65 5f 62 75 66 66 65  72 25 21 38 3d 2d 31 3a  |ge_buffer%!8=-1:|
000022b0  c8 99 26 34 30 30 46 34  2c 31 2c 6d 65 73 73 61  |..&400F4,1,messa|
000022c0  67 65 5f 62 75 66 66 65  72 25 2c 77 69 6e 2c 69  |ge_buffer%,win,i|
000022d0  63 6f 6e 3a e7 21 6d 65  73 73 61 67 65 5f 62 75  |con:.!message_bu|
000022e0  66 66 65 72 25 3c 3e 2d  31 8c 0d 06 71 92 76 61  |ffer%<>-1...q.va|
000022f0  6c 3d 62 25 3a 62 25 3d  6d 65 73 73 61 67 65 5f  |l=b%:b%=message_|
00002300  62 75 66 66 65 72 25 3a  6d 68 24 3d a4 64 65 63  |buffer%:mh$=.dec|
00002310  6f 64 65 6d 65 6e 75 28  63 75 72 6d 65 6e 75 25  |odemenu(curmenu%|
00002320  29 3a 62 25 3d 76 61 6c  3a 6d 24 3d 6d 68 24 3a  |):b%=val:m$=mh$:|
00002330  c8 95 a7 6d 24 2c 22 20  22 29 3e 30 3a c1 6d 24  |...m$," ")>0:.m$|
00002340  2c a7 6d 24 2c 22 20 22  29 2c 31 29 3d 22 5f 22  |,.m$," "),1)="_"|
00002350  3a ce 3a 68 65 6c 70 24  3d a4 6d 73 67 74 6f 6b  |:.:help$=.msgtok|
00002360  65 6e 28 22 48 4d 22 2b  6d 24 29 3a e7 68 65 6c  |en("HM"+m$):.hel|
00002370  70 24 3c 3e 22 48 4d 22  2b 6d 24 8c 0d 06 72 17  |p$<>"HM"+m$...r.|
00002380  f2 73 65 6e 64 68 65 6c  70 28 68 65 6c 70 24 2c  |.sendhelp(help$,|
00002390  74 6f 29 0d 06 73 3e cc  3a f5 3a f3 6d 24 2c 76  |to)..s>.:.:.m$,v|
000023a0  61 6c 2c 68 65 6c 70 24  2c 68 65 6c 70 24 3a fd  |al,help$,help$:.|
000023b0  a0 28 6d 24 29 3d 63 75  72 6d 65 6e 75 25 84 6d  |.(m$)=curmenu%.m|
000023c0  24 3d 22 2d 32 22 3a e7  6d 24 3c 3e 22 2d 32 22  |$="-2":.m$<>"-2"|
000023d0  8c 0d 06 74 0c e7 76 61  6c 3e 2d 31 8c 0d 06 75  |...t..val>-1...u|
000023e0  1f f2 73 65 6e 64 68 65  6c 70 28 68 65 6c 70 24  |..sendhelp(help$|
000023f0  2c 74 6f 29 3a 66 6f 75  6e 64 3d b9 0d 06 76 2c  |,to):found=...v,|
00002400  cc 3a f5 3a f3 6c 77 69  6e 2c 6d 24 2c 76 61 6c  |.:.:.lwin,m$,val|
00002410  2c 68 65 6c 70 24 3a e7  bb 28 6d 24 29 3d 30 80  |,help$:..(m$)=0.|
00002420  6d 24 3c 3e 22 30 22 8c  0d 06 77 27 e7 6d 68 24  |m$<>"0"...w'.mh$|
00002430  3d 6d 24 8c f2 73 65 6e  64 68 65 6c 70 28 68 65  |=m$..sendhelp(he|
00002440  6c 70 24 2c 74 6f 29 3a  66 6f 75 6e 64 3d b9 0d  |lp$,to):found=..|
00002450  06 78 4c cc 3a e7 6c 77  69 6e 3d 6d 65 73 73 61  |.xL.:.lwin=messa|
00002460  67 65 5f 62 75 66 66 65  72 25 21 30 80 bb 28 6d  |ge_buffer%!0..(m|
00002470  24 29 3d 6d 65 73 73 61  67 65 5f 62 75 66 66 65  |$)=message_buffe|
00002480  72 25 21 34 80 76 61 6c  3d 6d 65 73 73 61 67 65  |r%!4.val=message|
00002490  5f 62 75 66 66 65 72 25  21 38 8c 0d 06 79 1f f2  |_buffer%!8...y..|
000024a0  73 65 6e 64 68 65 6c 70  28 68 65 6c 70 24 2c 74  |sendhelp(help$,t|
000024b0  6f 29 3a 66 6f 75 6e 64  3d b9 0d 06 7a 05 cd 0d  |o):found=...z...|
000024c0  06 7b 21 cd 3a fd 66 6f  75 6e 64 3d b9 84 6c 77  |.{!.:.found=..lw|
000024d0  69 6e 3d 2d 32 84 6c 77  69 6e 3e 26 38 30 30 30  |in=-2.lwin>&8000|
000024e0  0d 06 7c 05 cd 0d 06 7d  05 cd 0d 06 7e 05 cd 0d  |..|....}....~...|
000024f0  06 7f 05 cd 0d 06 80 07  cd 3a e1 0d 06 81 4a dd  |.........:....J.|
00002500  f2 73 65 6e 64 68 65 6c  70 28 68 65 6c 70 24 2c  |.sendhelp(help$,|
00002510  74 6f 29 68 65 6c 70 24  3d a4 6d 73 67 74 65 78  |to)help$=.msgtex|
00002520  74 28 68 65 6c 70 24 29  3a e7 c2 68 65 6c 70 24  |t(help$):..help$|
00002530  2c 32 29 3c 3e 22 7c 4d  22 8c 68 65 6c 70 24 2b  |,2)<>"|M".help$+|
00002540  3d 22 7c 4d 22 0d 06 82  7d ea 62 24 2c 63 24 3a  |="|M"...}.b$,c$:|
00002550  68 65 6c 70 24 3d a4 73  75 62 73 74 76 61 72 73  |help$=.substvars|
00002560  28 68 65 6c 70 24 29 3a  c8 95 a7 68 65 6c 70 24  |(help$):...help$|
00002570  2c 22 7c 4d 22 29 3e 30  3a 62 24 3d c0 68 65 6c  |,"|M")>0:b$=.hel|
00002580  70 24 2c a7 68 65 6c 70  24 2c 22 7c 4d 22 29 2d  |p$,.help$,"|M")-|
00002590  31 29 3a 68 65 6c 70 24  3d c1 68 65 6c 70 24 2c  |1):help$=.help$,|
000025a0  a9 28 62 24 29 2b 33 29  3a e7 a7 22 21 2e 3f 22  |.(b$)+3):.."!.?"|
000025b0  2c c2 62 24 2c 31 29 29  3d 30 8c 62 24 2b 3d 22  |,.b$,1))=0.b$+="|
000025c0  2e 22 0d 06 83 69 63 24  2b 3d 62 24 2b 22 7c 4d  |."...ic$+=b$+"|M|
000025d0  22 3a ce 3a 62 25 21 26  43 3d 62 25 21 38 3a 62  |":.:b%!&C=b%!8:b|
000025e0  25 21 34 3d 74 6f 3a 62  25 21 31 36 3d 26 35 30  |%!4=to:b%!16=&50|
000025f0  33 3a 24 28 62 25 2b 32  30 29 3d 63 24 2b bd 30  |3:$(b%+20)=c$+.0|
00002600  3a 62 25 21 30 3d 32 30  2b 28 a9 28 63 24 29 2b  |:b%!0=20+(.(c$)+|
00002610  34 29 80 2d 34 3a c8 99  26 34 30 30 45 37 2c 31  |4).-4:..&400E7,1|
00002620  37 2c 62 25 2c 62 25 21  34 3a e1 0d 06 84 48 dd  |7,b%,b%!4:....H.|
00002630  f2 6f 70 65 6e 6d 65 73  73 61 67 65 73 ea 66 2c  |.openmessages.f,|
00002640  6c 3a e7 6d 73 67 62 75  66 66 65 72 25 3c 3e 2d  |l:.msgbuffer%<>-|
00002650  31 8c 85 26 38 30 33 2c  22 4d 65 73 73 61 67 65  |1..&803,"Message|
00002660  20 66 69 6c 65 20 61 6c  72 65 61 64 79 20 6f 70  | file already op|
00002670  65 6e 22 0d 06 85 53 c8  99 26 34 31 35 30 30 2c  |en"...S..&41500,|
00002680  2c 41 70 70 64 69 72 24  2b 22 2e 4d 65 73 73 61  |,Appdir$+".Messa|
00002690  67 65 73 22 b8 66 2c 2c  6c 3a e7 28 66 80 31 29  |ges".f,,l:.(f.1)|
000026a0  3d 31 8c 6d 73 67 62 75  66 66 65 72 32 25 3d 30  |=1.msgbuffer2%=0|
000026b0  8b 6d 73 67 62 75 66 66  65 72 32 25 3d a4 63 6c  |.msgbuffer2%=.cl|
000026c0  61 69 6d 28 6c 29 0d 06  86 45 e7 6d 73 67 62 75  |aim(l)...E.msgbu|
000026d0  66 66 65 72 32 25 3d 2d  31 8c 85 26 38 30 33 2c  |ffer2%=-1..&803,|
000026e0  22 4e 6f 20 72 6f 6f 6d  20 66 6f 72 20 73 65 63  |"No room for sec|
000026f0  6f 6e 64 61 72 79 20 4d  65 73 73 61 67 65 54 72  |ondary MessageTr|
00002700  61 6e 73 20 62 75 66 66  65 72 22 0d 06 87 6e 6d  |ans buffer"...nm|
00002710  73 67 62 75 66 66 65 72  25 3d a4 63 6c 61 69 6d  |sgbuffer%=.claim|
00002720  28 31 36 29 3a e7 6d 73  67 62 75 66 66 65 72 25  |(16):.msgbuffer%|
00002730  3d 2d 31 8c f2 72 65 6c  65 61 73 65 28 6d 73 67  |=-1..release(msg|
00002740  62 75 66 66 65 72 32 25  29 3a 85 26 38 30 33 2c  |buffer2%):.&803,|
00002750  22 4e 6f 20 72 6f 6f 6d  20 66 6f 72 20 70 72 69  |"No room for pri|
00002760  6d 61 72 79 20 4d 65 73  73 61 67 65 54 72 61 6e  |mary MessageTran|
00002770  73 20 62 75 66 66 65 72  22 0d 06 88 39 c8 99 26  |s buffer"...9..&|
00002780  34 31 35 30 31 2c 6d 73  67 62 75 66 66 65 72 25  |41501,msgbuffer%|
00002790  2c 41 70 70 64 69 72 24  2b 22 2e 4d 65 73 73 61  |,Appdir$+".Messa|
000027a0  67 65 73 22 2c 6d 73 67  62 75 66 66 65 72 32 25  |ges",msgbuffer2%|
000027b0  3a e1 0d 06 89 2f dd f2  63 6c 6f 73 65 6d 65 73  |:..../..closemes|
000027c0  73 61 67 65 73 3a ea 85  3a ee 85 ea 3a ef 34 3a  |sages:..:...:.4:|
000027d0  f6 3a f1 22 20 61 74 20  22 3b 9e 3a 47 3d a5 3a  |.:." at ";.:G=.:|
000027e0  e1 0d 06 8a 13 e7 6d 73  67 62 75 66 66 65 72 25  |......msgbuffer%|
000027f0  3e 2d 31 8c 0d 06 8b 42  c8 99 26 36 31 35 30 34  |>-1....B..&61504|
00002800  2c 6d 73 67 62 75 66 66  65 72 25 3a f2 72 65 6c  |,msgbuffer%:.rel|
00002810  65 61 73 65 28 6d 73 67  62 75 66 66 65 72 25 29  |ease(msgbuffer%)|
00002820  3a f2 72 65 6c 65 61 73  65 28 6d 73 67 62 75 66  |:.release(msgbuf|
00002830  66 65 72 32 25 29 0d 06  8c 07 cd 3a e1 0d 06 8d  |fer2%).....:....|
00002840  3b dd a4 6d 73 67 74 6f  6b 65 6e 28 74 24 29 ea  |;..msgtoken(t$).|
00002850  73 31 24 2c 73 32 24 2c  73 33 24 2c 61 24 2c 6c  |s1$,s2$,s3$,a$,l|
00002860  65 6e 25 2c 66 3a e7 6d  73 67 62 75 66 66 65 72  |en%,f:.msgbuffer|
00002870  25 3d 2d 31 8c 3d 74 24  0d 06 8e 57 61 24 3d c1  |%=-1.=t$...Wa$=.|
00002880  74 24 2c a7 74 24 2b 22  3a 22 2c 22 3a 22 29 2b  |t$,.t$+":",":")+|
00002890  31 29 3a 74 24 3d c0 74  24 2c a7 74 24 2b 22 3a  |1):t$=.t$,.t$+":|
000028a0  22 2c 22 3a 22 29 2d 31  29 3a 73 31 24 3d c0 61  |",":")-1):s1$=.a|
000028b0  24 2c a7 61 24 2b 22 3a  22 2c 22 3a 22 29 2d 31  |$,.a$+":",":")-1|
000028c0  29 3a e7 c0 73 31 24 2c  31 29 3d 22 7c 22 8c 0d  |):..s1$,1)="|"..|
000028d0  06 8f 1c 73 31 24 3d c1  61 24 2c 32 29 3a 73 32  |...s1$=.a$,2):s2|
000028e0  24 3d 22 22 3a 73 33 24  3d 22 22 0d 06 90 5f cc  |$="":s3$=""..._.|
000028f0  3a 61 24 3d c1 61 24 2c  a9 28 73 31 24 29 2b 32  |:a$=.a$,.(s1$)+2|
00002900  29 3a 73 32 24 3d c0 61  24 2c a7 61 24 2b 22 3a  |):s2$=.a$,.a$+":|
00002910  22 2c 22 3a 22 29 2d 31  29 3a e7 c0 73 32 24 2c  |",":")-1):..s2$,|
00002920  31 29 3d 22 7c 22 8c 73  32 24 3d c1 61 24 2c 32  |1)="|".s2$=.a$,2|
00002930  29 3a 73 33 24 3d 22 22  8b 73 33 24 3d c1 61 24  |):s3$="".s3$=.a$|
00002940  2c a9 28 73 32 24 29 2b  32 29 0d 06 91 6b cd 3a  |,.(s2$)+2)...k.:|
00002950  c8 99 26 36 31 35 30 32  2c 6d 73 67 62 75 66 66  |..&61502,msgbuff|
00002960  65 72 25 2c 74 24 2c 6d  65 73 73 61 67 65 5f 62  |er%,t$,message_b|
00002970  75 66 66 65 72 25 2c 32  35 36 2c 73 31 24 2c 73  |uffer%,256,s1$,s|
00002980  32 24 2c 73 33 24 b8 2c  2c 2c 6c 65 6e 25 3b 66  |2$,s3$.,,,len%;f|
00002990  3a e7 28 66 80 31 29 3d  31 8c 3d 74 24 8b 6d 65  |:.(f.1)=1.=t$.me|
000029a0  73 73 61 67 65 5f 62 75  66 66 65 72 25 3f 6c 65  |ssage_buffer%?le|
000029b0  6e 25 3d 26 44 0d 06 92  21 3d a4 73 75 62 73 74  |n%=&D...!=.subst|
000029c0  76 61 72 73 28 24 6d 65  73 73 61 67 65 5f 62 75  |vars($message_bu|
000029d0  66 66 65 72 25 29 0d 06  93 32 dd a4 6d 73 67 74  |ffer%)...2..msgt|
000029e0  65 78 74 28 61 24 29 3a  e7 c0 61 24 2c 31 29 3d  |ext(a$):..a$,1)=|
000029f0  22 3e 22 8c 61 24 3d a4  6d 73 67 74 6f 6b 65 6e  |">".a$=.msgtoken|
00002a00  28 c1 61 24 2c 32 29 29  0d 06 94 07 3d 61 24 0d  |(.a$,2))....=a$.|
00002a10  06 95 1e dd a4 73 74 72  69 6e 67 30 28 61 25 29  |.....string0(a%)|
00002a20  ea 61 24 3a e7 61 25 3d  30 8c 3d 22 22 0d 06 96  |.a$:.a%=0.=""...|
00002a30  2f c8 95 3f 61 25 3e 33  31 80 a9 28 61 24 29 3c  |/..?a%>31..(a$)<|
00002a40  26 46 46 3a 61 24 3d 61  24 2b bd 3f 61 25 3a 61  |&FF:a$=a$+.?a%:a|
00002a50  25 3d 61 25 2b 31 3a ce  3a 3d 61 24 0d 06 97 4e  |%=a%+1:.:=a$...N|
00002a60  dd a4 6c 6f 77 65 72 28  61 24 29 ea 63 24 2c 62  |..lower(a$).c$,b|
00002a70  24 2c 49 3a e3 49 3d 31  b8 a9 28 61 24 29 3a 63  |$,I:.I=1..(a$):c|
00002a80  24 3d c1 61 24 2c 49 2c  31 29 3a e7 63 24 3e 3d  |$=.a$,I,1):.c$>=|
00002a90  22 41 22 80 63 24 3c 3d  22 5a 22 8c 63 24 3d bd  |"A".c$<="Z".c$=.|
00002aa0  28 97 28 63 24 29 2b 33  32 29 0d 06 98 10 62 24  |(.(c$)+32)....b$|
00002ab0  2b 3d 63 24 3a ed 3a 3d  62 24 0d 06 99 25 dd a4  |+=c$:.:=b$...%..|
00002ac0  73 75 62 73 74 76 61 72  73 28 61 24 29 3a ea 62  |substvars(a$):.b|
00002ad0  24 2c 64 24 3a ea 85 3a  ee 85 ea 3a 3d 61 24 0d  |$,d$:..:...:=a$.|
00002ae0  06 9a 5b c8 95 a7 61 24  2c 22 a4 22 29 3e 30 3a  |..[...a$,".")>0:|
00002af0  62 24 3d c1 61 24 2c a7  61 24 2c 22 a4 22 29 2b  |b$=.a$,.a$,".")+|
00002b00  31 29 3a 62 24 3d c0 62  24 2c a7 62 24 2c 22 a4  |1):b$=.b$,.b$,".|
00002b10  22 29 2d 31 29 3a 64 24  3d 62 24 3a e7 c2 64 24  |")-1):d$=b$:..d$|
00002b20  2c 31 29 3c 3e 22 24 22  8c 64 24 3d 22 53 54 52  |,1)<>"$".d$="STR|
00002b30  24 28 22 2b 64 24 2b 22  29 22 0d 06 9b 38 61 24  |$("+d$+")"...8a$|
00002b40  3d c0 61 24 2c a7 61 24  2c 22 a4 22 29 2d 31 29  |=.a$,.a$,".")-1)|
00002b50  2b a0 28 64 24 29 2b c1  61 24 2c a7 61 24 2c 22  |+.(d$)+.a$,.a$,"|
00002b60  a4 22 29 2b a9 28 62 24  29 2b 32 29 3a ce 3a 3d  |.")+.(b$)+2):.:=|
00002b70  61 24 0d 06 9c 49 dd a4  66 69 6c 65 74 79 70 65  |a$...I..filetype|
00002b80  28 66 24 29 ea 66 25 2c  74 79 70 65 25 2c 66 6c  |(f$).f%,type%,fl|
00002b90  25 3a c8 99 26 32 30 30  30 38 2c 32 30 2c 66 24  |%:..&20008,20,f$|
00002ba0  b8 74 79 70 65 25 2c 2c  2c 2c 2c 2c 66 25 3b 66  |.type%,,,,,,f%;f|
00002bb0  6c 25 3a c8 8e 74 79 70  65 25 ca 0d 06 9d 0f c9  |l%:..type%......|
00002bc0  30 3a 74 79 70 65 25 3d  2d 32 0d 06 9e 0f c9 31  |0:type%=-2.....1|
00002bd0  3a 74 79 70 65 25 3d 66  25 0d 06 9f 13 c9 32 2c  |:type%=f%.....2,|
00002be0  33 3a 74 79 70 65 25 3d  34 30 39 36 0d 06 a0 19  |3:type%=4096....|
00002bf0  cb 3a e7 28 66 6c 25 80  31 29 3d 31 8c 74 79 70  |.:.(fl%.1)=1.typ|
00002c00  65 25 3d 2d 32 0d 06 a1  0a 3d 74 79 70 65 25 0d  |e%=-2....=type%.|
00002c10  06 a2 34 dd a4 6c 65 61  66 6e 61 6d 65 28 66 24  |..4..leafname(f$|
00002c20  29 ea 72 24 3a e7 a7 66  24 2c 22 3a 22 29 3e 30  |).r$:..f$,":")>0|
00002c30  8c 66 24 3d c1 66 24 2c  a7 66 24 2c 22 3a 22 29  |.f$=.f$,.f$,":")|
00002c40  2b 31 29 0d 06 a3 0f c8  8e a7 66 24 2c 22 2e 22  |+1).......f$,"."|
00002c50  29 ca 0d 06 a4 0c c9 30  3a 72 24 3d 66 24 0d 06  |)......0:r$=f$..|
00002c60  a5 26 7f 72 24 3d a4 6c  65 61 66 6e 61 6d 65 28  |.&.r$=.leafname(|
00002c70  c2 66 24 2c a9 28 66 24  29 2d a7 66 24 2c 22 2e  |.f$,.(f$)-.f$,".|
00002c80  22 29 29 29 0d 06 a6 09  cb 3a 3d 72 24 0d 06 a7  |"))).....:=r$...|
00002c90  48 dd a4 63 6c 61 69 6d  28 6c 65 6e 67 74 68 25  |H..claim(length%|
00002ca0  29 3a ea 66 6c 61 67 73  3a e7 6c 65 6e 67 74 68  |):.flags:.length|
00002cb0  25 3c 31 8c 85 26 38 30  33 2c 22 43 61 6e 6e 6f  |%<1..&803,"Canno|
00002cc0  74 20 63 6c 61 69 6d 20  6e 65 67 61 74 69 76 65  |t claim negative|
00002cd0  20 52 4d 41 22 0d 06 a8  3c c8 99 26 32 30 30 31  | RMA"...<..&2001|
00002ce0  45 2c 36 2c 2c 2c 6c 65  6e 67 74 68 25 b8 2c 2c  |E,6,,,length%.,,|
00002cf0  61 72 65 61 25 3b 66 6c  61 67 73 3a e7 28 66 6c  |area%;flags:.(fl|
00002d00  61 67 73 80 31 29 3e 30  8c 61 72 65 61 25 3d 2d  |ags.1)>0.area%=-|
00002d10  31 0d 06 a9 0a 3d 61 72  65 61 25 0d 06 aa 35 dd  |1....=area%...5.|
00002d20  f2 72 65 6c 65 61 73 65  28 f8 61 72 65 61 25 29  |.release(.area%)|
00002d30  3a e7 61 72 65 61 25 3e  30 8c c8 99 33 30 2c 37  |:.area%>0...30,7|
00002d40  2c 2c 61 72 65 61 25 3a  61 72 65 61 25 3d 2d 31  |,,area%:area%=-1|
00002d50  0d 06 ab 05 e1 0d ff                              |.......|
00002d57