� >WimpLib
� � Justin Fletcher
"� Version : 1.74 (10 Sep 1997)
(� This version for RO3
2(� &803,"Do not run the Wimp Library"
<:
F7� ******** Main Application Procedures ************
P:
Z��initlibrary
d(� message_buffer% 1024, my_buff% 256
n8rmafontarea=-2:msgbuffer%=-1:msgbuffer2%=-1:ftblk=-2
x�
�:
�:��notemessage(n):messagelist%!messptr%=n:messptr%+=4:�
�:
�0ݤloadtemplate(n$,sprblk%):� tsize%,blk%,ok%
�0ș "Wimp_OpenTemplate",,Appdir$+".Templates"
�0ș "Wimp_LoadTemplate",,0,,,,n$,0 � ,,tsize%
�� blk% tsize%
�Hș "Wimp_LoadTemplate",,wspc%,blk%,blk% + tsize%,-1,n$,0 � ,,,,,,ok%
�ș "Wimp_CloseTemplate"
�5� ok%=0 �� &803, "Template file "+n$+" not found"
�9wspc%!64=sprblk%:ș "Wimp_CreateWindow",,wspc% � blk%
�	=blk%
�ݤGetEnv:� com$,I,p$

ș "OS_GetEnv" � com$

p$="":I=�com$," -quit ")

� I>0 �

"( p$=�com$,�com$," ",I+�" -quit ")+1)

, ȕ �p$,1)=" ":p$=�p$,2):�

6�

@=p$

Jݤsystemvar(Var$):� len

T:ș "XOS_ReadVarVal",Var$,message_buffer%,255,0,3�,,len

^message_buffer%?len=13

h=$message_buffer%

r:

|"��error:� errcode,mess$,reply%

�� �

�G� � �:�closemessages:�4:� � 0,�$+" at line "+Þ+" in error handler"

�ș "OS_Byte",124

�� �>&7FF � �<&803 �

� errcode=�-&7FF:mess$=�$

�, � errcode=3 �mess$+=" (Cancel to Quit)"

�- reply%=�errorbox(Appname$,mess$,errcode)

�$ � reply%=2 � errcode=3 �quit%=�

��

�< mess$="Internal error : ("+Þ+") "+�$+" Cancel to Quit"

�) reply%=�errorbox(Appname$,mess$,%11)

� � reply%<>1 �

�$  quit%=�:�("Set Error$ "+mess$)
#  �("Set Error$Task "+Appname$)
 �
+ � �(-1) � �(-2) � �(-17) ��("Spool"):�
&�
0�
::
D?ݤerrorbox(title$,message$,button%):title$=�msgtext(title$)
Nmessage$=�msgtext(message$)
X4$(message_buffer%+4)=message$:!message_buffer%=0
bBș "Wimp_ReportError",message_buffer%,button%,title$ � ,reply%
l=reply%
v:
�7� ******** Menu manipulation procedures ***********
�:
�ݤcreatemenu(A$)
�5� 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(&2C)
�&�menuputw(0):options%=0:S$=A$:lk=0
��
� � ks%=� �ks%=�*2
 �
)  O$=�mget(A$,C$):options%=options%+1
1  flags=�mdecode(C$,p3,s$,k$)+((-(A$=""))<<7)
   � ks%=�*2 � k$<>"" �
*%   O$+=�l+lk-(�(O$)+�(k$))+1," ")
4$   � �k$,1)="�" ��k$,1,1)=�(139)
>
   O$+=k$
H  �
R+   � k$<>"" �ks%=�:� lk<�(k$) �lk=�(k$)
\  �
f=  flags2=&7000021+((-(�(O$)>11))<<8)+(1<<14)*(flags �256)
p+  � (flags � 4)<>0 �flags2=flags2 � 256
z  �menuputw(flags � 255)
�  �menuputw(p3)
�"  �(O$)>l � ks%<>�*2 �l=�(O$)
�  �menuputw(flags2)
�$  �menustring(O$,s$,(flags � 4))
� �A$=""
�i � ks%=�*2 �l+=lk+1 ��ks%=� �ind%=oind%:indl%=oindl%:menul%+=menu%-p2-12:menu%=p2+12:options%=0:A$=S$
�� ks%<>�
�!p2=l*16+16
�=pointer
�7��menustring(T$,s$,flag):� �T$,1)="�" �T$=�(�T$,2))
��(T$)<12 � s$="" � flag=0�
� �menuputs(T$)
��
 �menuputw(�indirect(T$))
 � s$<>"" �
  menu%!-8=menu%!-8 � &803
$4  �lower(s$),2)="sm" �menu%!-8=menu%!-8 � &800
."  �menuputw(�indirect("S"+s$))
8 �
B  �menuputw(-1)
L �
V �menuputw(�(T$)+1)
`�
j�
tݤmget(� A$,� C$)
~� B$:B$=�A$,�A$,"|")-1)
�'A$=�A$,�(B$)+2):�B$,"]")<1�B$+="]"
�)C$=�B$,�B$,"]")+1):B$=�B$,�B$,"]")-1)
�=�msgtext(B$)
�:��menuputs(T$):�(T$)>11 �� &803,"Menu entry too long"
�"$menu%=T$:menu%+=12:menul%-=12
�4�menul%<=4 �� &803,"Not enough memory for menus"
��
���menuputw(W%)
� !menu%=W%:menu%+=4:menul%-=4
�4�menul%<=4 �� &803,"Not enough memory for menus"
��
�ݤ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
2  � "D":V=V � 2
<  � "W":V=V � 4
F  � "M":V=V � 8
P  � "S":V=V � 256
Z1  � "K":k$=�A$,�A$,",")-1):A$=�A$,�A$,",")+1)
d3  � ">":p=�(�A$,�A$,",")-1)):A$=�A$,�A$,",")+1)
n5  � "}":s$=�A$,�A$,",")-1)+" ":A$=�A$,�A$,",")+1)
x �
��
�=V
�:
�ݤindirect(a$):� i:i=ind%
�<�(a$)>indl%-1 �� &803,"Not enough room for indirection"
�)$ind%=a$:ind%+=�(a$)+1:indl%-=�(a$)+1
�=i
�:
���ibmenu
�[ș "Wimp_GetPointerInfo",,b%:curmenu%=ibmenu%:cmenux%=b%!0-64:cmenuy%=96+&2C*iboptions%
�;ș "Wimp_CreateMenu",,ibmenu%,b%!0-64,96+&2C*iboptions%
��
���menu(menu%,x,y)
6� x=-1 �ș "Wimp_GetPointerInfo",,b%:x=b%!0:y=b%!4
,curmenu%=menu%:cmenux%=x-64:cmenuy%=y+20
)ș "Wimp_CreateMenu",,menu%,x-64,y+20
"�
,��recreatemenu
62ș "Wimp_CreateMenu",,curmenu%,cmenux%,cmenuy%
@�
J:
T7ݤdecodemenu(menu%):� cp%,ptr,b$,c$:cp%=menu%:ptr=0
^%ȕ (b%!ptr>-1 � cp%<>rmafontarea)
h$ cp%=cp%!(32+(b%!ptr)*24):ptr+=4
r�
|#� cp%=rmafontarea � b%!ptr<>0 �
�A ș "Font_DecodeMenu",,rmafontarea,b%+ptr,�255,�0),255 �,,,m$
��
�7 ș "Wimp_DecodeMenu",,menu%,b%,�255,�0),255 �,,,m$
�
 b$=""
� �
�,  c$=�m$,�m$+".",".")-1):m$=�m$,�(c$)+2)
�  c$=�c$,�c$+" ^"," ^")-1)
�&  c$=�c$,�c$+" "+�139," "+�139)-1)
�  Ȏ �c$,3) �
�f   � "Esc","Del","Ins","End","Hom","Cpy","F10","F11","F12","F13","Prt","Tab","Ret":c$=�c$,�(c$)-4)
�  �
�D  � �c$,�(c$)-2,2)=" F" ���c$)="0" � �(�c$))<>0 �c$=�c$,�(c$)-3)
�  ȕ �c$)=" ":c$=�c$):�
  b$+=c$+"."
 �m$="" � m$="."
 � m$="." �b$+=".."
& m$=�b$)
0�
:=m$
D:
N7� ******** Window manipulation routines ***********
X:
b��closewin(win%)
l&!b%=win%:ș "Wimp_CloseWindow",,b%
v�
���openwin(win%)
�)!b%=win%:ș "Wimp_GetWindowState",,b%
�%b%!28=-1:ș "Wimp_OpenWindow",,b%
��
�(��openwinat(win%,x,y):� width,height
�)!b%=win%:ș "Wimp_GetWindowState",,b%
�&width=b%!4-b%!12:height=b%!16-b%!8
�.b%!4=x:b%!8=y-height:b%!12=x-width:b%!16=y
�%b%!28=-1:ș "Wimp_OpenWindow",,b%
��
�:
���resizewinto(win%,l,t,r,b)
�� full%,open%
)!b%=win%:ș "Wimp_GetWindowState",,b%
1open%=(b%!32 � (1<<16))>0:� � open% �b%!28=-3
9ș "Wimp_OpenWindow",,b%:ș "Wimp_GetWindowState",,b%
 full%=(b%!32 � (1<<18))>0
*#b%!68=l:b%!72=b:b%!76=r:b%!80=t
4"ș "Wimp_SetExtent",win%,b%+68
>*� full% �b%!8=b%!16+b-t:b%!12=b%!4+r-l
Hș "Wimp_OpenWindow",,b%
RJ� open% �ș "Wimp_ForceRedraw",win%,l,b,r,t �ș "Wimp_CloseWindow",,b%
\�
fD�full%=( (((b%!12)-(b%!4))=b%!52) AND (((b%!16)-(b%!8))=b%!56) )
p:
z7� ******** Icon manipulation routines *************
�:
�=ݤcreateicon(win,x,y,w,h,title$,valid$,col,esg,but,flags)
�$� handle:title$=�msgtext(title$)
�.b%!0=win:b%!4=x:b%!8=y-h:b%!12=x+w:b%!16=y
�6b%!20=(flags � (%111001111111+(15<<20)))+(col<<24)
�b%!20+=(esg<<16)+(but<<12)
�-� valid$<>"" � �(title$)>11 � title$=�0 �
� � title$=�0 �
�)  b%!24=�indirect(�255,�0)):b%!32=256
� �
�:  b%!24=my_buff%:$my_buff%=title$+�0:b%!32=�(title$)+1
� �
�? b%!28=(my_buff%+160):$(my_buff%+160)=valid$+�0:b%!20+=1<<8
	�
	 $(b%+24)=title$
	�
	$U� ((b%!20) � &103)=&3 �� &803,"Cannot make a sprite/text icon without validation"
	.� (flags � 3)=0 �b%!20+=1
	8.� �lower(�valid$,1))="s" � b%!20=b%!20 � 2
	B%ș "Wimp_CreateIcon",,b% � handle
	L=handle
	V:
	`6� PROCdeleteicon : Delete the icon from the window
	j��deleteicon(win,icon)
	t.!b%=win:b%!4=icon:ș "Wimp_DeleteIcon",,b%
	~�
	�:
	�8ݤCreateIconBarIcon(Spr$,title$,pos%):� ic%,w%,m%,e%
	�1title$=�msgtext(title$):b%!0=-(�(pos%) � &FF)
	�2b%!4=0:b%!8=-16:b%!12=12+16*�(title$):b%!16=88
	�"�b%!12<12+16*4 � b%!12=12+16*4
	�� title$<>"" �
	�2 b%!20=(1<<28)+(7<<24)+(3<<12)+(%01011)+(1<<8)
	� b%!24=�indirect(title$)
	� b%!28=�indirect("S"+Spr$)
	� b%!32=�(title$)+1
	��
	�+ b%!20=(1<<28)+(7<<24)+(3<<12)+(%11010)
 $(b%+24)=Spr$

�
<ș "Wimp_SpriteOp",&128,,�Spr$,�Spr$+",",",")) �,,,w%,m%
7ș "XOS_ReadModeVariable",m%,4 � ,,e%:w%=(w%+1)<<e%
(� w%>b%!12 �b%!12=w%
2T� (�(pos%)�&FF)=3 � (�(pos%)�&FF)=4 �pos%=�(pos%)>>8 �pos%=(�(pos%) � &FF00)<<16
<&ș "Wimp_CreateIcon",pos%,b% � ic%
F=ic%
P:
Z� �geticonstate(win%,icon%)
d2!b%=win%:b%!4=icon%:ș "Wimp_GetIconState",,b%
n=(b%!24>>21 � 1)>0
x:
�ݤgeticontext(win%,icon%)
�3b%!0=win%:b%!4=icon%:ș "Wimp_GetIconState",,b%
�*� ((b%!24) � &100)=0 �=�string0(b%+28)
�=�string0(b%!28)
�(��seticontext(win%,icon%,text$):� i%
�8text$=�msgtext(text$):ș "Wimp_GetCaretPosition",,b%
� i%=(!b%=win%) � (icon%=b%!4)
�3b%!0=win%:b%!4=icon%:ș "Wimp_GetIconState",,b%
�G� ((b%!24) � &100)=0 � � &803,"Icon isn't indirected (#"+�icon%+")"
�� �string0(b%!28)<>text$ �
�T � �(text$)<b%!36 �$(b%!28)=text$ �� &803,"Text too long for icon (#"+�icon%+")"
�B !b%=win%:b%!4=icon%:b%!8=0:b%!12=0:ș "Wimp_SetIconState",,b%
�R � i% � (b%!24 � 1)=1 �ș "Wimp_SetCaretPosition",win%,icon%,-1,-1,-1,�(text$)
�
�
:
"7� ******** !Help responsive routines **************
,:
6��readhelp(win,icon,to)
@;� lwin,val,help$,found,a$,m$,m2$,mh$,x$:found=�:lwin=-1
J�
T � val,help$
^ � val>(1<<16) � val<0 �
h  � lwin=win �
r   val=icon:help$="":m2$=m$
|  �
�   lwin=val:m$=help$
�  �
� �
� � val=icon � lwin=win �
�  � icon=-1 � help$="" �
�&   �sendhelp(�msgtext(m$)+"|M",to)
�  �
�   help$=�msgtext(help$)
�$   � �help$,"|M")=0 �help$+="|M"
�1   �sendhelp(�msgtext(help$)+�msgtext(m$),to)
�  �
�
  found=�
� �
� help$="-1" � found=�
� � found �
B !message_buffer%=-1:message_buffer%!4=-1:message_buffer%!8=-1
&6 ș "Wimp_GetMenuState",1,message_buffer%,win,icon
0 � !message_buffer%<>-1 �
:@  val=b%:b%=message_buffer%:mh$=�decodemenu(curmenu%):b%=val
D0  m$=mh$:ȕ �m$," ")>0:�m$,�m$," "),1)="_":�
N  help$=�msgtoken("HM"+m$)
X  � help$<>"HM"+m$ �
b   �sendhelp(help$,to)
l  �
v   �
�    � m$,val,help$,help$
�!   � �(m$)=curmenu% � m$="-2"
�   � m$<>"-2" �
�    � val>-1 �
�$     �sendhelp(help$,to):found=�
�	    �
�
     �
�      � lwin,m$,val,help$
�      � �(m$)=0 � m$<>"0" �
�0       � mh$=m$ ��sendhelp(help$,to):found=�
�      �
�W       � lwin=message_buffer%!0 � �(m$)=message_buffer%!4 � val=message_buffer%!8 �
�'        �sendhelp(help$,to):found=�

       �

      �

)     �found=� � lwin=-2 � lwin >&8000

 	    �

*   �

4  �

> �

H�

R�

\.��sendhelp(help$,to):help$=�msgtext(help$)

f"� �help$,2)<>"|M" �help$+="|M"

p� b$,c$

zhelp$=�substvars(help$)

�ȕ �help$,"|M")>0

�4 b$=�help$,�help$,"|M")-1):help$=�help$,�(b$)+3)

�  � �"!.?",�b$,1))=0 �b$+="."

� c$+=b$+"|M"

��

�0b%!12=b%!8:b%!4=to:b%!16=&503:$(b%+20)=c$+�0

�b%!0=20+(�(c$)+4) � -4

�$ș "Wimp_SendMessage",17,b%,b%!4

��

�:

�7� ******** MessageTrans interface routines ********

�:

���openmessages:� f,l
8� msgbuffer%<>-1 �� &803,"Message file already open"
:ș "MessageTrans_FileInfo",,Appdir$+".Messages" � f,,l
4� (f �1)=1 �msgbuffer2%=0 �msgbuffer2%=�claim(l)
$H� msgbuffer2%=-1 �� &803,"No room for secondary MessageTrans buffer"
.qmsgbuffer%=�claim(16):� msgbuffer%=-1 ��release(msgbuffer2%):� &803,"No room for primary MessageTrans buffer"
8Iș "MessageTrans_OpenFile",msgbuffer%,Appdir$+".Messages",msgbuffer2%
B�
L��closemessages
V� �
`� � �:�4:�:�" at ";�:G=�:�
j� msgbuffer%>-1 �
t, ș "XMessageTrans_CloseFile",msgbuffer%
~/ �release(msgbuffer%):�release(msgbuffer2%)
��
��
�:
�9� FNmsgtoken        : translate a token into a string
�B� FNmsgtext         : translate text to a token if prefix is >
�*ݤmsgtoken(t$):� s1$,s2$,s3$,a$,len%,f
�� msgbuffer%=-1 �=t$
�1a$=�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)

8 � �s2$,1)="|" �s2$=�a$,2):s3$="" �s3$=�a$,�(s2$)+2)
�
Wș "XMessageTrans_Lookup",msgbuffer%,t$,message_buffer%,256,s1$,s2$,s3$ � ,,,len%;f
(,� (f �1)=1 �=t$ �message_buffer%?len%=13
2!=�substvars($message_buffer%)
<ݤmsgtext(a$)
F&� �a$,1)=">" �a$=�msgtoken(�a$,2))
P=a$
Z:
d7� ******** String manipulation routines ***********
n:
x"ݤstring0(a%):� a$:� a%=0 �=""
�,ȕ?a%>31 ��(a$)<255:a$=a$+�?a%:a%=a%+1:�
�=a$
�:
�ݤlower(a$):� c$,b$,I
��I=1��(a$)
�0c$=�a$,I,1):� c$>="A"�c$<="Z"�c$=�(�(c$)+32)
�b$+=c$:�:=b$
�:
�ݤsubstvarsp(a$,c$)
�� b$,d$:� �:� � �:=a$
�ȕ �a$,"�")>0
�* b$=�a$,�a$,"�")+1):b$=�b$,�b$,"�")-1)
�. d$=c$+b$:� �d$,1)<>"$" �d$="STR$("+d$+")"
3 a$=�a$,�a$,"�")-1)+�(d$)+�a$,�a$,"�")+�(b$)+2)
�
=a$
"ݤsubstvars(a$)
,� b$,d$:� �:� � �:=a$
6ȕ �a$,"�")>0
@* b$=�a$,�a$,"�")+1):b$=�b$,�b$,"�")-1)
J+ d$=b$:� �d$,1)<>"$" �d$="STR$("+d$+")"
T3 a$=�a$,�a$,"�")-1)+�(d$)+�a$,�a$,"�")+�(b$)+2)
^�
h=a$
rݤgstrans(a$):� p%,len
|:ș "OS_GSTrans",a$,message_buffer%,256+(1<<31) � ,,len
�a$="":p%=message_buffer%
�!ȕ �(a$)<len:a$+=�?p%:p%+=1:�
�=a$
�:
�ݤswinumber(swi$):� n
�0ș "XOS_SWINumberFromString",,swi$ � n;flags
�� (flags �1)>0 �n=-1
�=n
�:
�7� ******** Module workspace manipulation routine **
�:
�ݤclaim(length%)
�:� flags:� length%<1�� &803,"Cannot claim negative RMA"
/ș "XOS_Module",6,,,length% � ,,area%;flags
� (flags �1)>0 �area%=-1

=area%
&��release(� area%)
0/� area%>0 �ș "OS_Module",7,,area%:area%=-1
:�
�

00000000  0d 00 0a 0e f4 20 3e 57  69 6d 70 4c 69 62 0d 00  |..... >WimpLib..|
00000010  14 17 f4 20 a9 20 4a 75  73 74 69 6e 20 46 6c 65  |... . Justin Fle|
00000020  74 63 68 65 72 0d 00 1e  22 f4 20 56 65 72 73 69  |tcher...". Versi|
00000030  6f 6e 20 3a 20 31 2e 37  34 20 28 31 30 20 53 65  |on : 1.74 (10 Se|
00000040  70 20 31 39 39 37 29 0d  00 28 1a f4 20 54 68 69  |p 1997)..(.. Thi|
00000050  73 20 76 65 72 73 69 6f  6e 20 66 6f 72 20 52 4f  |s version for RO|
00000060  33 0d 00 32 28 85 20 26  38 30 33 2c 22 44 6f 20  |3..2(. &803,"Do |
00000070  6e 6f 74 20 72 75 6e 20  74 68 65 20 57 69 6d 70  |not run the Wimp|
00000080  20 4c 69 62 72 61 72 79  22 0d 00 3c 05 3a 0d 00  | Library"..<.:..|
00000090  46 37 f4 20 2a 2a 2a 2a  2a 2a 2a 2a 20 4d 61 69  |F7. ******** Mai|
000000a0  6e 20 41 70 70 6c 69 63  61 74 69 6f 6e 20 50 72  |n Application Pr|
000000b0  6f 63 65 64 75 72 65 73  20 2a 2a 2a 2a 2a 2a 2a  |ocedures *******|
000000c0  2a 2a 2a 2a 2a 0d 00 50  05 3a 0d 00 5a 11 dd f2  |*****..P.:..Z...|
000000d0  69 6e 69 74 6c 69 62 72  61 72 79 0d 00 64 28 de  |initlibrary..d(.|
000000e0  20 6d 65 73 73 61 67 65  5f 62 75 66 66 65 72 25  | message_buffer%|
000000f0  20 31 30 32 34 2c 20 6d  79 5f 62 75 66 66 25 20  | 1024, my_buff% |
00000100  32 35 36 0d 00 6e 38 72  6d 61 66 6f 6e 74 61 72  |256..n8rmafontar|
00000110  65 61 3d 2d 32 3a 6d 73  67 62 75 66 66 65 72 25  |ea=-2:msgbuffer%|
00000120  3d 2d 31 3a 6d 73 67 62  75 66 66 65 72 32 25 3d  |=-1:msgbuffer2%=|
00000130  2d 31 3a 66 74 62 6c 6b  3d 2d 32 0d 00 78 05 e1  |-1:ftblk=-2..x..|
00000140  0d 00 82 05 3a 0d 00 8c  3a dd f2 6e 6f 74 65 6d  |....:...:..notem|
00000150  65 73 73 61 67 65 28 6e  29 3a 6d 65 73 73 61 67  |essage(n):messag|
00000160  65 6c 69 73 74 25 21 6d  65 73 73 70 74 72 25 3d  |elist%!messptr%=|
00000170  6e 3a 6d 65 73 73 70 74  72 25 2b 3d 34 3a e1 0d  |n:messptr%+=4:..|
00000180  00 96 05 3a 0d 00 a0 30  dd a4 6c 6f 61 64 74 65  |...:...0..loadte|
00000190  6d 70 6c 61 74 65 28 6e  24 2c 73 70 72 62 6c 6b  |mplate(n$,sprblk|
000001a0  25 29 3a ea 20 74 73 69  7a 65 25 2c 62 6c 6b 25  |%):. tsize%,blk%|
000001b0  2c 6f 6b 25 0d 00 aa 30  c8 99 20 22 57 69 6d 70  |,ok%...0.. "Wimp|
000001c0  5f 4f 70 65 6e 54 65 6d  70 6c 61 74 65 22 2c 2c  |_OpenTemplate",,|
000001d0  41 70 70 64 69 72 24 2b  22 2e 54 65 6d 70 6c 61  |Appdir$+".Templa|
000001e0  74 65 73 22 0d 00 b4 30  c8 99 20 22 57 69 6d 70  |tes"...0.. "Wimp|
000001f0  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
00000200  30 2c 2c 2c 2c 6e 24 2c  30 20 b8 20 2c 2c 74 73  |0,,,,n$,0 . ,,ts|
00000210  69 7a 65 25 0d 00 be 11  de 20 62 6c 6b 25 20 74  |ize%..... blk% t|
00000220  73 69 7a 65 25 0d 00 c8  48 c8 99 20 22 57 69 6d  |size%...H.. "Wim|
00000230  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
00000240  2c 77 73 70 63 25 2c 62  6c 6b 25 2c 62 6c 6b 25  |,wspc%,blk%,blk%|
00000250  20 2b 20 74 73 69 7a 65  25 2c 2d 31 2c 6e 24 2c  | + tsize%,-1,n$,|
00000260  30 20 b8 20 2c 2c 2c 2c  2c 2c 6f 6b 25 0d 00 d2  |0 . ,,,,,,ok%...|
00000270  1b c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 54  |... "Wimp_CloseT|
00000280  65 6d 70 6c 61 74 65 22  0d 00 dc 35 e7 20 6f 6b  |emplate"...5. ok|
00000290  25 3d 30 20 8c 85 20 26  38 30 33 2c 20 22 54 65  |%=0 .. &803, "Te|
000002a0  6d 70 6c 61 74 65 20 66  69 6c 65 20 22 2b 6e 24  |mplate file "+n$|
000002b0  2b 22 20 6e 6f 74 20 66  6f 75 6e 64 22 0d 00 e6  |+" not found"...|
000002c0  39 77 73 70 63 25 21 36  34 3d 73 70 72 62 6c 6b  |9wspc%!64=sprblk|
000002d0  25 3a c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |%:.. "Wimp_Creat|
000002e0  65 57 69 6e 64 6f 77 22  2c 2c 77 73 70 63 25 20  |eWindow",,wspc% |
000002f0  b8 20 62 6c 6b 25 0d 00  f0 09 3d 62 6c 6b 25 0d  |. blk%....=blk%.|
00000300  00 fa 18 dd a4 47 65 74  45 6e 76 3a ea 20 63 6f  |.....GetEnv:. co|
00000310  6d 24 2c 49 2c 70 24 0d  01 04 19 c8 99 20 22 4f  |m$,I,p$...... "O|
00000320  53 5f 47 65 74 45 6e 76  22 20 b8 20 63 6f 6d 24  |S_GetEnv" . com$|
00000330  0d 01 0e 1c 70 24 3d 22  22 3a 49 3d a7 63 6f 6d  |....p$="":I=.com|
00000340  24 2c 22 20 2d 71 75 69  74 20 22 29 0d 01 18 0b  |$," -quit ")....|
00000350  e7 20 49 3e 30 20 8c 0d  01 22 28 20 70 24 3d c1  |. I>0 ..."( p$=.|
00000360  63 6f 6d 24 2c a7 63 6f  6d 24 2c 22 20 22 2c 49  |com$,.com$," ",I|
00000370  2b a9 22 20 2d 71 75 69  74 20 22 29 2b 31 29 0d  |+." -quit ")+1).|
00000380  01 2c 1e 20 c8 95 20 c0  70 24 2c 31 29 3d 22 20  |.,. .. .p$,1)=" |
00000390  22 3a 70 24 3d c1 70 24  2c 32 29 3a ce 0d 01 36  |":p$=.p$,2):...6|
000003a0  05 cd 0d 01 40 07 3d 70  24 0d 01 4a 1b dd a4 73  |....@.=p$..J...s|
000003b0  79 73 74 65 6d 76 61 72  28 56 61 72 24 29 3a ea  |ystemvar(Var$):.|
000003c0  20 6c 65 6e 0d 01 54 3a  c8 99 20 22 58 4f 53 5f  | len..T:.. "XOS_|
000003d0  52 65 61 64 56 61 72 56  61 6c 22 2c 56 61 72 24  |ReadVarVal",Var$|
000003e0  2c 6d 65 73 73 61 67 65  5f 62 75 66 66 65 72 25  |,message_buffer%|
000003f0  2c 32 35 35 2c 30 2c 33  b8 2c 2c 6c 65 6e 0d 01  |,255,0,3.,,len..|
00000400  5e 1a 6d 65 73 73 61 67  65 5f 62 75 66 66 65 72  |^.message_buffer|
00000410  25 3f 6c 65 6e 3d 31 33  0d 01 68 15 3d 24 6d 65  |%?len=13..h.=$me|
00000420  73 73 61 67 65 5f 62 75  66 66 65 72 25 0d 01 72  |ssage_buffer%..r|
00000430  05 3a 0d 01 7c 22 dd f2  65 72 72 6f 72 3a ea 20  |.:..|"..error:. |
00000440  65 72 72 63 6f 64 65 2c  6d 65 73 73 24 2c 72 65  |errcode,mess$,re|
00000450  70 6c 79 25 0d 01 86 07  ea 20 85 0d 01 90 47 ee  |ply%..... ....G.|
00000460  20 85 20 ea 3a f2 63 6c  6f 73 65 6d 65 73 73 61  | . .:.closemessa|
00000470  67 65 73 3a ef 34 3a 85  20 a2 20 30 2c f6 24 2b  |ges:.4:. . 0,.$+|
00000480  22 20 61 74 20 6c 69 6e  65 20 22 2b c3 9e 2b 22  |" at line "+..+"|
00000490  20 69 6e 20 65 72 72 6f  72 20 68 61 6e 64 6c 65  | in error handle|
000004a0  72 22 0d 01 9a 14 c8 99  20 22 4f 53 5f 42 79 74  |r"...... "OS_Byt|
000004b0  65 22 2c 31 32 34 0d 01  a4 17 e7 20 9f 3e 26 37  |e",124..... .>&7|
000004c0  46 46 20 80 20 9f 3c 26  38 30 33 20 8c 0d 01 ae  |FF . .<&803 ....|
000004d0  1c 20 65 72 72 63 6f 64  65 3d 9f 2d 26 37 46 46  |. errcode=.-&7FF|
000004e0  3a 6d 65 73 73 24 3d f6  24 0d 01 b8 2c 20 e7 20  |:mess$=.$..., . |
000004f0  65 72 72 63 6f 64 65 3d  33 20 8c 6d 65 73 73 24  |errcode=3 .mess$|
00000500  2b 3d 22 20 28 43 61 6e  63 65 6c 20 74 6f 20 51  |+=" (Cancel to Q|
00000510  75 69 74 29 22 0d 01 c2  2d 20 72 65 70 6c 79 25  |uit)"...- reply%|
00000520  3d a4 65 72 72 6f 72 62  6f 78 28 41 70 70 6e 61  |=.errorbox(Appna|
00000530  6d 65 24 2c 6d 65 73 73  24 2c 65 72 72 63 6f 64  |me$,mess$,errcod|
00000540  65 29 0d 01 cc 24 20 e7  20 72 65 70 6c 79 25 3d  |e)...$ . reply%=|
00000550  32 20 80 20 65 72 72 63  6f 64 65 3d 33 20 8c 71  |2 . errcode=3 .q|
00000560  75 69 74 25 3d b9 0d 01  d6 05 cc 0d 01 e0 3c 20  |uit%=.........< |
00000570  6d 65 73 73 24 3d 22 49  6e 74 65 72 6e 61 6c 20  |mess$="Internal |
00000580  65 72 72 6f 72 20 3a 20  28 22 2b c3 9e 2b 22 29  |error : ("+..+")|
00000590  20 22 2b f6 24 2b 22 20  43 61 6e 63 65 6c 20 74  | "+.$+" Cancel t|
000005a0  6f 20 51 75 69 74 22 0d  01 ea 29 20 72 65 70 6c  |o Quit"...) repl|
000005b0  79 25 3d a4 65 72 72 6f  72 62 6f 78 28 41 70 70  |y%=.errorbox(App|
000005c0  6e 61 6d 65 24 2c 6d 65  73 73 24 2c 25 31 31 29  |name$,mess$,%11)|
000005d0  0d 01 f4 12 20 e7 20 72  65 70 6c 79 25 3c 3e 31  |.... . reply%<>1|
000005e0  20 8c 0d 01 fe 24 20 20  71 75 69 74 25 3d b9 3a  | ....$  quit%=.:|
000005f0  ff 28 22 53 65 74 20 45  72 72 6f 72 24 20 22 2b  |.("Set Error$ "+|
00000600  6d 65 73 73 24 29 0d 02  08 23 20 20 ff 28 22 53  |mess$)...#  .("S|
00000610  65 74 20 45 72 72 6f 72  24 54 61 73 6b 20 22 2b  |et Error$Task "+|
00000620  41 70 70 6e 61 6d 65 24  29 0d 02 12 06 20 cd 0d  |Appname$).... ..|
00000630  02 1c 2b 20 e7 20 a6 28  2d 31 29 20 80 20 a6 28  |..+ . .(-1) . .(|
00000640  2d 32 29 20 80 20 a6 28  2d 31 37 29 20 8c ff 28  |-2) . .(-17) ..(|
00000650  22 53 70 6f 6f 6c 22 29  3a e0 0d 02 26 05 cd 0d  |"Spool"):...&...|
00000660  02 30 05 e1 0d 02 3a 05  3a 0d 02 44 3f dd a4 65  |.0....:.:..D?..e|
00000670  72 72 6f 72 62 6f 78 28  74 69 74 6c 65 24 2c 6d  |rrorbox(title$,m|
00000680  65 73 73 61 67 65 24 2c  62 75 74 74 6f 6e 25 29  |essage$,button%)|
00000690  3a 74 69 74 6c 65 24 3d  a4 6d 73 67 74 65 78 74  |:title$=.msgtext|
000006a0  28 74 69 74 6c 65 24 29  0d 02 4e 1f 6d 65 73 73  |(title$)..N.mess|
000006b0  61 67 65 24 3d a4 6d 73  67 74 65 78 74 28 6d 65  |age$=.msgtext(me|
000006c0  73 73 61 67 65 24 29 0d  02 58 34 24 28 6d 65 73  |ssage$)..X4$(mes|
000006d0  73 61 67 65 5f 62 75 66  66 65 72 25 2b 34 29 3d  |sage_buffer%+4)=|
000006e0  6d 65 73 73 61 67 65 24  3a 21 6d 65 73 73 61 67  |message$:!messag|
000006f0  65 5f 62 75 66 66 65 72  25 3d 30 0d 02 62 42 c8  |e_buffer%=0..bB.|
00000700  99 20 22 57 69 6d 70 5f  52 65 70 6f 72 74 45 72  |. "Wimp_ReportEr|
00000710  72 6f 72 22 2c 6d 65 73  73 61 67 65 5f 62 75 66  |ror",message_buf|
00000720  66 65 72 25 2c 62 75 74  74 6f 6e 25 2c 74 69 74  |fer%,button%,tit|
00000730  6c 65 24 20 b8 20 2c 72  65 70 6c 79 25 0d 02 6c  |le$ . ,reply%..l|
00000740  0b 3d 72 65 70 6c 79 25  0d 02 76 05 3a 0d 02 80  |.=reply%..v.:...|
00000750  37 f4 20 2a 2a 2a 2a 2a  2a 2a 2a 20 4d 65 6e 75  |7. ******** Menu|
00000760  20 6d 61 6e 69 70 75 6c  61 74 69 6f 6e 20 70 72  | manipulation pr|
00000770  6f 63 65 64 75 72 65 73  20 2a 2a 2a 2a 2a 2a 2a  |ocedures *******|
00000780  2a 2a 2a 2a 0d 02 8a 05  3a 0d 02 94 14 dd a4 63  |****....:......c|
00000790  72 65 61 74 65 6d 65 6e  75 28 41 24 29 0d 02 9e  |reatemenu(A$)...|
000007a0  35 ea 20 70 6f 69 6e 74  65 72 2c 70 32 2c 70 33  |5. pointer,p2,p3|
000007b0  2c 6c 2c 6c 6b 2c 4f 24  2c 43 24 2c 6f 69 6e 64  |,l,lk,O$,C$,oind|
000007c0  25 2c 6f 69 6e 64 6c 25  2c 6b 73 25 2c 6b 24 2c  |%,oindl%,ks%,k$,|
000007d0  53 24 0d 02 a8 21 6f 69  6e 64 25 3d 69 6e 64 25  |S$...!oind%=ind%|
000007e0  3a 6f 69 6e 64 6c 25 3d  69 6e 64 6c 25 3a 6b 73  |:oindl%=indl%:ks|
000007f0  25 3d a3 0d 02 b2 1d 70  6f 69 6e 74 65 72 3d 6d  |%=.....pointer=m|
00000800  65 6e 75 25 3a 6c 3d 30  3a 41 24 2b 3d 22 7c 22  |enu%:l=0:A$+="|"|
00000810  0d 02 bc 1b f2 6d 65 6e  75 70 75 74 73 28 a4 6d  |.....menuputs(.m|
00000820  67 65 74 28 41 24 2c 43  24 29 29 0d 02 c6 15 f2  |get(A$,C$)).....|
00000830  6d 65 6e 75 70 75 74 77  28 26 37 30 32 30 37 29  |menuputw(&70207)|
00000840  0d 02 d0 1b 70 32 3d 6d  65 6e 75 25 3a f2 6d 65  |....p2=menu%:.me|
00000850  6e 75 70 75 74 77 28 26  38 30 29 0d 02 da 12 f2  |nuputw(&80).....|
00000860  6d 65 6e 75 70 75 74 77  28 26 32 43 29 0d 02 e4  |menuputw(&2C)...|
00000870  26 f2 6d 65 6e 75 70 75  74 77 28 30 29 3a 6f 70  |&.menuputw(0):op|
00000880  74 69 6f 6e 73 25 3d 30  3a 53 24 3d 41 24 3a 6c  |tions%=0:S$=A$:l|
00000890  6b 3d 30 0d 02 ee 05 f5  0d 02 f8 15 20 e7 20 6b  |k=0......... . k|
000008a0  73 25 3d b9 20 8c 6b 73  25 3d b9 2a 32 0d 03 02  |s%=. .ks%=.*2...|
000008b0  06 20 f5 0d 03 0c 29 20  20 4f 24 3d a4 6d 67 65  |. ....)  O$=.mge|
000008c0  74 28 41 24 2c 43 24 29  3a 6f 70 74 69 6f 6e 73  |t(A$,C$):options|
000008d0  25 3d 6f 70 74 69 6f 6e  73 25 2b 31 0d 03 16 31  |%=options%+1...1|
000008e0  20 20 66 6c 61 67 73 3d  a4 6d 64 65 63 6f 64 65  |  flags=.mdecode|
000008f0  28 43 24 2c 70 33 2c 73  24 2c 6b 24 29 2b 28 28  |(C$,p3,s$,k$)+((|
00000900  2d 28 41 24 3d 22 22 29  29 3c 3c 37 29 0d 03 20  |-(A$=""))<<7).. |
00000910  1a 20 20 e7 20 6b 73 25  3d b9 2a 32 20 80 20 6b  |.  . ks%=.*2 . k|
00000920  24 3c 3e 22 22 20 8c 0d  03 2a 25 20 20 20 4f 24  |$<>"" ...*%   O$|
00000930  2b 3d c4 6c 2b 6c 6b 2d  28 a9 28 4f 24 29 2b a9  |+=.l+lk-(.(O$)+.|
00000940  28 6b 24 29 29 2b 31 2c  22 20 22 29 0d 03 34 24  |(k$))+1," ")..4$|
00000950  20 20 20 e7 20 c0 6b 24  2c 31 29 3d 22 a4 22 20  |   . .k$,1)="." |
00000960  8c c1 6b 24 2c 31 2c 31  29 3d bd 28 31 33 39 29  |..k$,1,1)=.(139)|
00000970  0d 03 3e 0d 20 20 20 4f  24 2b 3d 6b 24 0d 03 48  |..>.   O$+=k$..H|
00000980  07 20 20 cc 0d 03 52 2b  20 20 20 e7 20 6b 24 3c  |.  ...R+   . k$<|
00000990  3e 22 22 20 8c 6b 73 25  3d b9 3a e7 20 6c 6b 3c  |>"" .ks%=.:. lk<|
000009a0  a9 28 6b 24 29 20 8c 6c  6b 3d a9 28 6b 24 29 0d  |.(k$) .lk=.(k$).|
000009b0  03 5c 07 20 20 cd 0d 03  66 3d 20 20 66 6c 61 67  |.\.  ...f=  flag|
000009c0  73 32 3d 26 37 30 30 30  30 32 31 2b 28 28 2d 28  |s2=&7000021+((-(|
000009d0  a9 28 4f 24 29 3e 31 31  29 29 3c 3c 38 29 2b 28  |.(O$)>11))<<8)+(|
000009e0  31 3c 3c 31 34 29 2a 28  66 6c 61 67 73 20 80 32  |1<<14)*(flags .2|
000009f0  35 36 29 0d 03 70 2b 20  20 e7 20 28 66 6c 61 67  |56)..p+  . (flag|
00000a00  73 20 80 20 34 29 3c 3e  30 20 8c 66 6c 61 67 73  |s . 4)<>0 .flags|
00000a10  32 3d 66 6c 61 67 73 32  20 84 20 32 35 36 0d 03  |2=flags2 . 256..|
00000a20  7a 1c 20 20 f2 6d 65 6e  75 70 75 74 77 28 66 6c  |z.  .menuputw(fl|
00000a30  61 67 73 20 80 20 32 35  35 29 0d 03 84 13 20 20  |ags . 255)....  |
00000a40  f2 6d 65 6e 75 70 75 74  77 28 70 33 29 0d 03 8e  |.menuputw(p3)...|
00000a50  22 20 20 e7 a9 28 4f 24  29 3e 6c 20 80 20 6b 73  |"  ..(O$)>l . ks|
00000a60  25 3c 3e b9 2a 32 20 8c  6c 3d a9 28 4f 24 29 0d  |%<>.*2 .l=.(O$).|
00000a70  03 98 17 20 20 f2 6d 65  6e 75 70 75 74 77 28 66  |...  .menuputw(f|
00000a80  6c 61 67 73 32 29 0d 03  a2 24 20 20 f2 6d 65 6e  |lags2)...$  .men|
00000a90  75 73 74 72 69 6e 67 28  4f 24 2c 73 24 2c 28 66  |ustring(O$,s$,(f|
00000aa0  6c 61 67 73 20 80 20 34  29 29 0d 03 ac 0b 20 fd  |lags . 4)).... .|
00000ab0  41 24 3d 22 22 0d 03 b6  69 20 e7 20 6b 73 25 3d  |A$=""...i . ks%=|
00000ac0  b9 2a 32 20 8c 6c 2b 3d  6c 6b 2b 31 20 8b e7 6b  |.*2 .l+=lk+1 ..k|
00000ad0  73 25 3d b9 20 8c 69 6e  64 25 3d 6f 69 6e 64 25  |s%=. .ind%=oind%|
00000ae0  3a 69 6e 64 6c 25 3d 6f  69 6e 64 6c 25 3a 6d 65  |:indl%=oindl%:me|
00000af0  6e 75 6c 25 2b 3d 6d 65  6e 75 25 2d 70 32 2d 31  |nul%+=menu%-p2-1|
00000b00  32 3a 6d 65 6e 75 25 3d  70 32 2b 31 32 3a 6f 70  |2:menu%=p2+12:op|
00000b10  74 69 6f 6e 73 25 3d 30  3a 41 24 3d 53 24 0d 03  |tions%=0:A$=S$..|
00000b20  c0 0c fd 20 6b 73 25 3c  3e b9 0d 03 ca 0f 21 70  |... ks%<>.....!p|
00000b30  32 3d 6c 2a 31 36 2b 31  36 0d 03 d4 0c 3d 70 6f  |2=l*16+16....=po|
00000b40  69 6e 74 65 72 0d 03 de  37 dd f2 6d 65 6e 75 73  |inter...7..menus|
00000b50  74 72 69 6e 67 28 54 24  2c 73 24 2c 66 6c 61 67  |tring(T$,s$,flag|
00000b60  29 3a e7 20 c0 54 24 2c  31 29 3d 22 a4 22 20 8c  |):. .T$,1)="." .|
00000b70  54 24 3d a0 28 c1 54 24  2c 32 29 29 0d 03 e8 1f  |T$=.(.T$,2))....|
00000b80  e7 a9 28 54 24 29 3c 31  32 20 80 20 73 24 3d 22  |..(T$)<12 . s$="|
00000b90  22 20 80 20 66 6c 61 67  3d 30 8c 0d 03 f2 12 20  |" . flag=0..... |
00000ba0  f2 6d 65 6e 75 70 75 74  73 28 54 24 29 0d 03 fc  |.menuputs(T$)...|
00000bb0  05 cc 0d 04 06 1d 20 f2  6d 65 6e 75 70 75 74 77  |...... .menuputw|
00000bc0  28 a4 69 6e 64 69 72 65  63 74 28 54 24 29 29 0d  |(.indirect(T$)).|
00000bd0  04 10 0f 20 e7 20 73 24  3c 3e 22 22 20 8c 0d 04  |... . s$<>"" ...|
00000be0  1a 1e 20 20 6d 65 6e 75  25 21 2d 38 3d 6d 65 6e  |..  menu%!-8=men|
00000bf0  75 25 21 2d 38 20 84 20  26 38 30 33 0d 04 24 34  |u%!-8 . &803..$4|
00000c00  20 20 e7 c0 a4 6c 6f 77  65 72 28 73 24 29 2c 32  |  ...lower(s$),2|
00000c10  29 3d 22 73 6d 22 20 8c  6d 65 6e 75 25 21 2d 38  |)="sm" .menu%!-8|
00000c20  3d 6d 65 6e 75 25 21 2d  38 20 82 20 26 38 30 30  |=menu%!-8 . &800|
00000c30  0d 04 2e 22 20 20 f2 6d  65 6e 75 70 75 74 77 28  |..."  .menuputw(|
00000c40  a4 69 6e 64 69 72 65 63  74 28 22 53 22 2b 73 24  |.indirect("S"+s$|
00000c50  29 29 0d 04 38 06 20 cc  0d 04 42 13 20 20 f2 6d  |))..8. ...B.  .m|
00000c60  65 6e 75 70 75 74 77 28  2d 31 29 0d 04 4c 06 20  |enuputw(-1)..L. |
00000c70  cd 0d 04 56 17 20 f2 6d  65 6e 75 70 75 74 77 28  |...V. .menuputw(|
00000c80  a9 28 54 24 29 2b 31 29  0d 04 60 05 cd 0d 04 6a  |.(T$)+1)..`....j|
00000c90  05 e1 0d 04 74 15 dd a4  6d 67 65 74 28 f8 20 41  |....t...mget(. A|
00000ca0  24 2c f8 20 43 24 29 0d  04 7e 1b ea 20 42 24 3a  |$,. C$)..~.. B$:|
00000cb0  42 24 3d c0 41 24 2c a7  41 24 2c 22 7c 22 29 2d  |B$=.A$,.A$,"|")-|
00000cc0  31 29 0d 04 88 27 41 24  3d c1 41 24 2c a9 28 42  |1)...'A$=.A$,.(B|
00000cd0  24 29 2b 32 29 3a e7 a7  42 24 2c 22 5d 22 29 3c  |$)+2):..B$,"]")<|
00000ce0  31 8c 42 24 2b 3d 22 5d  22 0d 04 92 29 43 24 3d  |1.B$+="]"...)C$=|
00000cf0  c1 42 24 2c a7 42 24 2c  22 5d 22 29 2b 31 29 3a  |.B$,.B$,"]")+1):|
00000d00  42 24 3d c0 42 24 2c a7  42 24 2c 22 5d 22 29 2d  |B$=.B$,.B$,"]")-|
00000d10  31 29 0d 04 9c 11 3d a4  6d 73 67 74 65 78 74 28  |1)....=.msgtext(|
00000d20  42 24 29 0d 04 a6 3a dd  f2 6d 65 6e 75 70 75 74  |B$)...:..menuput|
00000d30  73 28 54 24 29 3a e7 a9  28 54 24 29 3e 31 31 20  |s(T$):..(T$)>11 |
00000d40  8c 85 20 26 38 30 33 2c  22 4d 65 6e 75 20 65 6e  |.. &803,"Menu en|
00000d50  74 72 79 20 74 6f 6f 20  6c 6f 6e 67 22 0d 04 b0  |try too long"...|
00000d60  22 24 6d 65 6e 75 25 3d  54 24 3a 6d 65 6e 75 25  |"$menu%=T$:menu%|
00000d70  2b 3d 31 32 3a 6d 65 6e  75 6c 25 2d 3d 31 32 0d  |+=12:menul%-=12.|
00000d80  04 ba 34 e7 6d 65 6e 75  6c 25 3c 3d 34 20 8c 85  |..4.menul%<=4 ..|
00000d90  20 26 38 30 33 2c 22 4e  6f 74 20 65 6e 6f 75 67  | &803,"Not enoug|
00000da0  68 20 6d 65 6d 6f 72 79  20 66 6f 72 20 6d 65 6e  |h memory for men|
00000db0  75 73 22 0d 04 c4 05 e1  0d 04 ce 12 dd f2 6d 65  |us"...........me|
00000dc0  6e 75 70 75 74 77 28 57  25 29 0d 04 d8 20 21 6d  |nuputw(W%)... !m|
00000dd0  65 6e 75 25 3d 57 25 3a  6d 65 6e 75 25 2b 3d 34  |enu%=W%:menu%+=4|
00000de0  3a 6d 65 6e 75 6c 25 2d  3d 34 0d 04 e2 34 e7 6d  |:menul%-=4...4.m|
00000df0  65 6e 75 6c 25 3c 3d 34  20 8c 85 20 26 38 30 33  |enul%<=4 .. &803|
00000e00  2c 22 4e 6f 74 20 65 6e  6f 75 67 68 20 6d 65 6d  |,"Not enough mem|
00000e10  6f 72 79 20 66 6f 72 20  6d 65 6e 75 73 22 0d 04  |ory for menus"..|
00000e20  ec 05 e1 0d 04 f6 1f dd  a4 6d 64 65 63 6f 64 65  |.........mdecode|
00000e30  28 41 24 2c f8 20 70 2c  f8 20 73 24 2c f8 20 6b  |(A$,. p,. s$,. k|
00000e40  24 29 0d 05 00 28 ea 20  42 24 2c 43 24 2c 56 3a  |$)...(. B$,C$,V:|
00000e50  70 3d 2d 31 3a 73 24 3d  22 22 3a 6b 24 3d 22 22  |p=-1:s$="":k$=""|
00000e60  3a 41 24 3d 41 24 2b 22  2c 22 0d 05 0a 0d c8 95  |:A$=A$+","......|
00000e70  20 41 24 3c 3e 22 22 0d  05 14 18 20 42 24 3d c0  | A$<>"".... B$=.|
00000e80  41 24 2c 31 29 3a 41 24  3d c1 41 24 2c 32 29 0d  |A$,1):A$=.A$,2).|
00000e90  05 1e 0c 20 c8 8e 20 42  24 20 ca 0d 05 28 13 20  |... .. B$ ...(. |
00000ea0  20 c9 20 22 54 22 3a 56  3d 56 20 84 20 31 0d 05  | . "T":V=V . 1..|
00000eb0  32 13 20 20 c9 20 22 44  22 3a 56 3d 56 20 84 20  |2.  . "D":V=V . |
00000ec0  32 0d 05 3c 13 20 20 c9  20 22 57 22 3a 56 3d 56  |2..<.  . "W":V=V|
00000ed0  20 84 20 34 0d 05 46 13  20 20 c9 20 22 4d 22 3a  | . 4..F.  . "M":|
00000ee0  56 3d 56 20 84 20 38 0d  05 50 15 20 20 c9 20 22  |V=V . 8..P.  . "|
00000ef0  53 22 3a 56 3d 56 20 84  20 32 35 36 0d 05 5a 31  |S":V=V . 256..Z1|
00000f00  20 20 c9 20 22 4b 22 3a  6b 24 3d c0 41 24 2c a7  |  . "K":k$=.A$,.|
00000f10  41 24 2c 22 2c 22 29 2d  31 29 3a 41 24 3d c1 41  |A$,",")-1):A$=.A|
00000f20  24 2c a7 41 24 2c 22 2c  22 29 2b 31 29 0d 05 64  |$,.A$,",")+1)..d|
00000f30  33 20 20 c9 20 22 3e 22  3a 70 3d a0 28 c0 41 24  |3  . ">":p=.(.A$|
00000f40  2c a7 41 24 2c 22 2c 22  29 2d 31 29 29 3a 41 24  |,.A$,",")-1)):A$|
00000f50  3d c1 41 24 2c a7 41 24  2c 22 2c 22 29 2b 31 29  |=.A$,.A$,",")+1)|
00000f60  0d 05 6e 35 20 20 c9 20  22 7d 22 3a 73 24 3d c0  |..n5  . "}":s$=.|
00000f70  41 24 2c a7 41 24 2c 22  2c 22 29 2d 31 29 2b 22  |A$,.A$,",")-1)+"|
00000f80  20 22 3a 41 24 3d c1 41  24 2c a7 41 24 2c 22 2c  | ":A$=.A$,.A$,",|
00000f90  22 29 2b 31 29 0d 05 78  06 20 cb 0d 05 82 05 ce  |")+1)..x. ......|
00000fa0  0d 05 8c 06 3d 56 0d 05  96 05 3a 0d 05 a0 1d dd  |....=V....:.....|
00000fb0  a4 69 6e 64 69 72 65 63  74 28 61 24 29 3a ea 20  |.indirect(a$):. |
00000fc0  69 3a 69 3d 69 6e 64 25  0d 05 aa 3c e7 a9 28 61  |i:i=ind%...<..(a|
00000fd0  24 29 3e 69 6e 64 6c 25  2d 31 20 8c 85 20 26 38  |$)>indl%-1 .. &8|
00000fe0  30 33 2c 22 4e 6f 74 20  65 6e 6f 75 67 68 20 72  |03,"Not enough r|
00000ff0  6f 6f 6d 20 66 6f 72 20  69 6e 64 69 72 65 63 74  |oom for indirect|
00001000  69 6f 6e 22 0d 05 b4 29  24 69 6e 64 25 3d 61 24  |ion"...)$ind%=a$|
00001010  3a 69 6e 64 25 2b 3d a9  28 61 24 29 2b 31 3a 69  |:ind%+=.(a$)+1:i|
00001020  6e 64 6c 25 2d 3d a9 28  61 24 29 2b 31 0d 05 be  |ndl%-=.(a$)+1...|
00001030  06 3d 69 0d 05 c8 05 3a  0d 05 d2 0c dd f2 69 62  |.=i....:......ib|
00001040  6d 65 6e 75 0d 05 dc 5b  c8 99 20 22 57 69 6d 70  |menu...[.. "Wimp|
00001050  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
00001060  2c 2c 62 25 3a 63 75 72  6d 65 6e 75 25 3d 69 62  |,,b%:curmenu%=ib|
00001070  6d 65 6e 75 25 3a 63 6d  65 6e 75 78 25 3d 62 25  |menu%:cmenux%=b%|
00001080  21 30 2d 36 34 3a 63 6d  65 6e 75 79 25 3d 39 36  |!0-64:cmenuy%=96|
00001090  2b 26 32 43 2a 69 62 6f  70 74 69 6f 6e 73 25 0d  |+&2C*iboptions%.|
000010a0  05 e6 3b c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..;.. "Wimp_Crea|
000010b0  74 65 4d 65 6e 75 22 2c  2c 69 62 6d 65 6e 75 25  |teMenu",,ibmenu%|
000010c0  2c 62 25 21 30 2d 36 34  2c 39 36 2b 26 32 43 2a  |,b%!0-64,96+&2C*|
000010d0  69 62 6f 70 74 69 6f 6e  73 25 0d 05 f0 05 e1 0d  |iboptions%......|
000010e0  05 fa 15 dd f2 6d 65 6e  75 28 6d 65 6e 75 25 2c  |.....menu(menu%,|
000010f0  78 2c 79 29 0d 06 04 36  e7 20 78 3d 2d 31 20 8c  |x,y)...6. x=-1 .|
00001100  c8 99 20 22 57 69 6d 70  5f 47 65 74 50 6f 69 6e  |.. "Wimp_GetPoin|
00001110  74 65 72 49 6e 66 6f 22  2c 2c 62 25 3a 78 3d 62  |terInfo",,b%:x=b|
00001120  25 21 30 3a 79 3d 62 25  21 34 0d 06 0e 2c 63 75  |%!0:y=b%!4...,cu|
00001130  72 6d 65 6e 75 25 3d 6d  65 6e 75 25 3a 63 6d 65  |rmenu%=menu%:cme|
00001140  6e 75 78 25 3d 78 2d 36  34 3a 63 6d 65 6e 75 79  |nux%=x-64:cmenuy|
00001150  25 3d 79 2b 32 30 0d 06  18 29 c8 99 20 22 57 69  |%=y+20...).. "Wi|
00001160  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00001170  6d 65 6e 75 25 2c 78 2d  36 34 2c 79 2b 32 30 0d  |menu%,x-64,y+20.|
00001180  06 22 05 e1 0d 06 2c 12  dd f2 72 65 63 72 65 61  |."....,...recrea|
00001190  74 65 6d 65 6e 75 0d 06  36 32 c8 99 20 22 57 69  |temenu..62.. "Wi|
000011a0  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
000011b0  63 75 72 6d 65 6e 75 25  2c 63 6d 65 6e 75 78 25  |curmenu%,cmenux%|
000011c0  2c 63 6d 65 6e 75 79 25  0d 06 40 05 e1 0d 06 4a  |,cmenuy%..@....J|
000011d0  05 3a 0d 06 54 37 dd a4  64 65 63 6f 64 65 6d 65  |.:..T7..decodeme|
000011e0  6e 75 28 6d 65 6e 75 25  29 3a ea 20 63 70 25 2c  |nu(menu%):. cp%,|
000011f0  70 74 72 2c 62 24 2c 63  24 3a 63 70 25 3d 6d 65  |ptr,b$,c$:cp%=me|
00001200  6e 75 25 3a 70 74 72 3d  30 0d 06 5e 25 c8 95 20  |nu%:ptr=0..^%.. |
00001210  28 62 25 21 70 74 72 3e  2d 31 20 80 20 63 70 25  |(b%!ptr>-1 . cp%|
00001220  3c 3e 72 6d 61 66 6f 6e  74 61 72 65 61 29 0d 06  |<>rmafontarea)..|
00001230  68 24 20 63 70 25 3d 63  70 25 21 28 33 32 2b 28  |h$ cp%=cp%!(32+(|
00001240  62 25 21 70 74 72 29 2a  32 34 29 3a 70 74 72 2b  |b%!ptr)*24):ptr+|
00001250  3d 34 0d 06 72 05 ce 0d  06 7c 23 e7 20 63 70 25  |=4..r....|#. cp%|
00001260  3d 72 6d 61 66 6f 6e 74  61 72 65 61 20 80 20 62  |=rmafontarea . b|
00001270  25 21 70 74 72 3c 3e 30  20 8c 0d 06 86 41 20 c8  |%!ptr<>0 ....A .|
00001280  99 20 22 46 6f 6e 74 5f  44 65 63 6f 64 65 4d 65  |. "Font_DecodeMe|
00001290  6e 75 22 2c 2c 72 6d 61  66 6f 6e 74 61 72 65 61  |nu",,rmafontarea|
000012a0  2c 62 25 2b 70 74 72 2c  c4 32 35 35 2c bd 30 29  |,b%+ptr,.255,.0)|
000012b0  2c 32 35 35 20 b8 2c 2c  2c 6d 24 0d 06 90 05 cc  |,255 .,,,m$.....|
000012c0  0d 06 9a 37 20 c8 99 20  22 57 69 6d 70 5f 44 65  |...7 .. "Wimp_De|
000012d0  63 6f 64 65 4d 65 6e 75  22 2c 2c 6d 65 6e 75 25  |codeMenu",,menu%|
000012e0  2c 62 25 2c c4 32 35 35  2c bd 30 29 2c 32 35 35  |,b%,.255,.0),255|
000012f0  20 b8 2c 2c 2c 6d 24 0d  06 a4 0a 20 62 24 3d 22  | .,,,m$.... b$="|
00001300  22 0d 06 ae 06 20 f5 0d  06 b8 2c 20 20 63 24 3d  |".... ....,  c$=|
00001310  c0 6d 24 2c a7 6d 24 2b  22 2e 22 2c 22 2e 22 29  |.m$,.m$+".",".")|
00001320  2d 31 29 3a 6d 24 3d c1  6d 24 2c a9 28 63 24 29  |-1):m$=.m$,.(c$)|
00001330  2b 32 29 0d 06 c2 1e 20  20 63 24 3d c0 63 24 2c  |+2)....  c$=.c$,|
00001340  a7 63 24 2b 22 20 5e 22  2c 22 20 5e 22 29 2d 31  |.c$+" ^"," ^")-1|
00001350  29 0d 06 cc 26 20 20 63  24 3d c0 63 24 2c a7 63  |)...&  c$=.c$,.c|
00001360  24 2b 22 20 22 2b bd 31  33 39 2c 22 20 22 2b bd  |$+" "+.139," "+.|
00001370  31 33 39 29 2d 31 29 0d  06 d6 11 20 20 c8 8e 20  |139)-1)....  .. |
00001380  c2 63 24 2c 33 29 20 ca  0d 06 e0 66 20 20 20 c9  |.c$,3) ....f   .|
00001390  20 22 45 73 63 22 2c 22  44 65 6c 22 2c 22 49 6e  | "Esc","Del","In|
000013a0  73 22 2c 22 45 6e 64 22  2c 22 48 6f 6d 22 2c 22  |s","End","Hom","|
000013b0  43 70 79 22 2c 22 46 31  30 22 2c 22 46 31 31 22  |Cpy","F10","F11"|
000013c0  2c 22 46 31 32 22 2c 22  46 31 33 22 2c 22 50 72  |,"F12","F13","Pr|
000013d0  74 22 2c 22 54 61 62 22  2c 22 52 65 74 22 3a 63  |t","Tab","Ret":c|
000013e0  24 3d c0 63 24 2c a9 28  63 24 29 2d 34 29 0d 06  |$=.c$,.(c$)-4)..|
000013f0  ea 07 20 20 cb 0d 06 f4  44 20 20 e7 20 c1 63 24  |..  ....D  . .c$|
00001400  2c a9 28 63 24 29 2d 32  2c 32 29 3d 22 20 46 22  |,.(c$)-2,2)=" F"|
00001410  20 8c e7 c2 63 24 29 3d  22 30 22 20 84 20 bb 28  | ...c$)="0" . .(|
00001420  c2 63 24 29 29 3c 3e 30  20 8c 63 24 3d c0 63 24  |.c$))<>0 .c$=.c$|
00001430  2c a9 28 63 24 29 2d 33  29 0d 06 fe 1b 20 20 c8  |,.(c$)-3)....  .|
00001440  95 20 c2 63 24 29 3d 22  20 22 3a 63 24 3d c0 63  |. .c$)=" ":c$=.c|
00001450  24 29 3a ce 0d 07 08 10  20 20 62 24 2b 3d 63 24  |$):.....  b$+=c$|
00001460  2b 22 2e 22 0d 07 12 14  20 fd 6d 24 3d 22 22 20  |+".".... .m$="" |
00001470  84 20 6d 24 3d 22 2e 22  0d 07 1c 17 20 e7 20 6d  |. m$=".".... . m|
00001480  24 3d 22 2e 22 20 8c 62  24 2b 3d 22 2e 2e 22 0d  |$="." .b$+="..".|
00001490  07 26 0c 20 6d 24 3d c0  62 24 29 0d 07 30 05 cd  |.&. m$=.b$)..0..|
000014a0  0d 07 3a 07 3d 6d 24 0d  07 44 05 3a 0d 07 4e 37  |..:.=m$..D.:..N7|
000014b0  f4 20 2a 2a 2a 2a 2a 2a  2a 2a 20 57 69 6e 64 6f  |. ******** Windo|
000014c0  77 20 6d 61 6e 69 70 75  6c 61 74 69 6f 6e 20 72  |w manipulation r|
000014d0  6f 75 74 69 6e 65 73 20  2a 2a 2a 2a 2a 2a 2a 2a  |outines ********|
000014e0  2a 2a 2a 0d 07 58 05 3a  0d 07 62 14 dd f2 63 6c  |***..X.:..b...cl|
000014f0  6f 73 65 77 69 6e 28 77  69 6e 25 29 0d 07 6c 26  |osewin(win%)..l&|
00001500  21 62 25 3d 77 69 6e 25  3a c8 99 20 22 57 69 6d  |!b%=win%:.. "Wim|
00001510  70 5f 43 6c 6f 73 65 57  69 6e 64 6f 77 22 2c 2c  |p_CloseWindow",,|
00001520  62 25 0d 07 76 05 e1 0d  07 80 13 dd f2 6f 70 65  |b%..v........ope|
00001530  6e 77 69 6e 28 77 69 6e  25 29 0d 07 8a 29 21 62  |nwin(win%)...)!b|
00001540  25 3d 77 69 6e 25 3a c8  99 20 22 57 69 6d 70 5f  |%=win%:.. "Wimp_|
00001550  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00001560  2c 62 25 0d 07 94 25 62  25 21 32 38 3d 2d 31 3a  |,b%...%b%!28=-1:|
00001570  c8 99 20 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |.. "Wimp_OpenWin|
00001580  64 6f 77 22 2c 2c 62 25  0d 07 9e 05 e1 0d 07 a8  |dow",,b%........|
00001590  28 dd f2 6f 70 65 6e 77  69 6e 61 74 28 77 69 6e  |(..openwinat(win|
000015a0  25 2c 78 2c 79 29 3a ea  20 77 69 64 74 68 2c 68  |%,x,y):. width,h|
000015b0  65 69 67 68 74 0d 07 b2  29 21 62 25 3d 77 69 6e  |eight...)!b%=win|
000015c0  25 3a c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |%:.. "Wimp_GetWi|
000015d0  6e 64 6f 77 53 74 61 74  65 22 2c 2c 62 25 0d 07  |ndowState",,b%..|
000015e0  bc 26 77 69 64 74 68 3d  62 25 21 34 2d 62 25 21  |.&width=b%!4-b%!|
000015f0  31 32 3a 68 65 69 67 68  74 3d 62 25 21 31 36 2d  |12:height=b%!16-|
00001600  62 25 21 38 0d 07 c6 2e  62 25 21 34 3d 78 3a 62  |b%!8....b%!4=x:b|
00001610  25 21 38 3d 79 2d 68 65  69 67 68 74 3a 62 25 21  |%!8=y-height:b%!|
00001620  31 32 3d 78 2d 77 69 64  74 68 3a 62 25 21 31 36  |12=x-width:b%!16|
00001630  3d 79 0d 07 d0 25 62 25  21 32 38 3d 2d 31 3a c8  |=y...%b%!28=-1:.|
00001640  99 20 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |. "Wimp_OpenWind|
00001650  6f 77 22 2c 2c 62 25 0d  07 da 05 e1 0d 07 e4 05  |ow",,b%.........|
00001660  3a 0d 07 ee 1f dd f2 72  65 73 69 7a 65 77 69 6e  |:......resizewin|
00001670  74 6f 28 77 69 6e 25 2c  6c 2c 74 2c 72 2c 62 29  |to(win%,l,t,r,b)|
00001680  0d 07 f8 11 ea 20 66 75  6c 6c 25 2c 6f 70 65 6e  |..... full%,open|
00001690  25 0d 08 02 29 21 62 25  3d 77 69 6e 25 3a c8 99  |%...)!b%=win%:..|
000016a0  20 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  | "Wimp_GetWindow|
000016b0  53 74 61 74 65 22 2c 2c  62 25 0d 08 0c 31 6f 70  |State",,b%...1op|
000016c0  65 6e 25 3d 28 62 25 21  33 32 20 80 20 28 31 3c  |en%=(b%!32 . (1<|
000016d0  3c 31 36 29 29 3e 30 3a  e7 20 ac 20 6f 70 65 6e  |<16))>0:. . open|
000016e0  25 20 8c 62 25 21 32 38  3d 2d 33 0d 08 16 39 c8  |% .b%!28=-3...9.|
000016f0  99 20 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |. "Wimp_OpenWind|
00001700  6f 77 22 2c 2c 62 25 3a  c8 99 20 22 57 69 6d 70  |ow",,b%:.. "Wimp|
00001710  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
00001720  2c 2c 62 25 0d 08 20 1d  66 75 6c 6c 25 3d 28 62  |,,b%.. .full%=(b|
00001730  25 21 33 32 20 80 20 28  31 3c 3c 31 38 29 29 3e  |%!32 . (1<<18))>|
00001740  30 0d 08 2a 23 62 25 21  36 38 3d 6c 3a 62 25 21  |0..*#b%!68=l:b%!|
00001750  37 32 3d 62 3a 62 25 21  37 36 3d 72 3a 62 25 21  |72=b:b%!76=r:b%!|
00001760  38 30 3d 74 0d 08 34 22  c8 99 20 22 57 69 6d 70  |80=t..4".. "Wimp|
00001770  5f 53 65 74 45 78 74 65  6e 74 22 2c 77 69 6e 25  |_SetExtent",win%|
00001780  2c 62 25 2b 36 38 0d 08  3e 2a e7 20 66 75 6c 6c  |,b%+68..>*. full|
00001790  25 20 8c 62 25 21 38 3d  62 25 21 31 36 2b 62 2d  |% .b%!8=b%!16+b-|
000017a0  74 3a 62 25 21 31 32 3d  62 25 21 34 2b 72 2d 6c  |t:b%!12=b%!4+r-l|
000017b0  0d 08 48 1c c8 99 20 22  57 69 6d 70 5f 4f 70 65  |..H... "Wimp_Ope|
000017c0  6e 57 69 6e 64 6f 77 22  2c 2c 62 25 0d 08 52 4a  |nWindow",,b%..RJ|
000017d0  e7 20 6f 70 65 6e 25 20  8c c8 99 20 22 57 69 6d  |. open% ... "Wim|
000017e0  70 5f 46 6f 72 63 65 52  65 64 72 61 77 22 2c 77  |p_ForceRedraw",w|
000017f0  69 6e 25 2c 6c 2c 62 2c  72 2c 74 20 8b c8 99 20  |in%,l,b,r,t ... |
00001800  22 57 69 6d 70 5f 43 6c  6f 73 65 57 69 6e 64 6f  |"Wimp_CloseWindo|
00001810  77 22 2c 2c 62 25 0d 08  5c 05 e1 0d 08 66 44 f4  |w",,b%..\....fD.|
00001820  66 75 6c 6c 25 3d 28 20  28 28 28 62 25 21 31 32  |full%=( (((b%!12|
00001830  29 2d 28 62 25 21 34 29  29 3d 62 25 21 35 32 29  |)-(b%!4))=b%!52)|
00001840  20 41 4e 44 20 28 28 28  62 25 21 31 36 29 2d 28  | AND (((b%!16)-(|
00001850  62 25 21 38 29 29 3d 62  25 21 35 36 29 20 29 0d  |b%!8))=b%!56) ).|
00001860  08 70 05 3a 0d 08 7a 37  f4 20 2a 2a 2a 2a 2a 2a  |.p.:..z7. ******|
00001870  2a 2a 20 49 63 6f 6e 20  6d 61 6e 69 70 75 6c 61  |** Icon manipula|
00001880  74 69 6f 6e 20 72 6f 75  74 69 6e 65 73 20 2a 2a  |tion routines **|
00001890  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 08 84 05 3a  |***********....:|
000018a0  0d 08 8e 3d dd a4 63 72  65 61 74 65 69 63 6f 6e  |...=..createicon|
000018b0  28 77 69 6e 2c 78 2c 79  2c 77 2c 68 2c 74 69 74  |(win,x,y,w,h,tit|
000018c0  6c 65 24 2c 76 61 6c 69  64 24 2c 63 6f 6c 2c 65  |le$,valid$,col,e|
000018d0  73 67 2c 62 75 74 2c 66  6c 61 67 73 29 0d 08 98  |sg,but,flags)...|
000018e0  24 ea 20 68 61 6e 64 6c  65 3a 74 69 74 6c 65 24  |$. handle:title$|
000018f0  3d a4 6d 73 67 74 65 78  74 28 74 69 74 6c 65 24  |=.msgtext(title$|
00001900  29 0d 08 a2 2e 62 25 21  30 3d 77 69 6e 3a 62 25  |)....b%!0=win:b%|
00001910  21 34 3d 78 3a 62 25 21  38 3d 79 2d 68 3a 62 25  |!4=x:b%!8=y-h:b%|
00001920  21 31 32 3d 78 2b 77 3a  62 25 21 31 36 3d 79 0d  |!12=x+w:b%!16=y.|
00001930  08 ac 36 62 25 21 32 30  3d 28 66 6c 61 67 73 20  |..6b%!20=(flags |
00001940  80 20 28 25 31 31 31 30  30 31 31 31 31 31 31 31  |. (%111001111111|
00001950  2b 28 31 35 3c 3c 32 30  29 29 29 2b 28 63 6f 6c  |+(15<<20)))+(col|
00001960  3c 3c 32 34 29 0d 08 b6  1e 62 25 21 32 30 2b 3d  |<<24)....b%!20+=|
00001970  28 65 73 67 3c 3c 31 36  29 2b 28 62 75 74 3c 3c  |(esg<<16)+(but<<|
00001980  31 32 29 0d 08 c0 2d e7  20 76 61 6c 69 64 24 3c  |12)...-. valid$<|
00001990  3e 22 22 20 84 20 a9 28  74 69 74 6c 65 24 29 3e  |>"" . .(title$)>|
000019a0  31 31 20 84 20 74 69 74  6c 65 24 3d bd 30 20 8c  |11 . title$=.0 .|
000019b0  0d 08 ca 12 20 e7 20 74  69 74 6c 65 24 3d bd 30  |.... . title$=.0|
000019c0  20 8c 0d 08 d4 29 20 20  62 25 21 32 34 3d a4 69  | ....)  b%!24=.i|
000019d0  6e 64 69 72 65 63 74 28  c4 32 35 35 2c bd 30 29  |ndirect(.255,.0)|
000019e0  29 3a 62 25 21 33 32 3d  32 35 36 0d 08 de 06 20  |):b%!32=256.... |
000019f0  cc 0d 08 e8 3a 20 20 62  25 21 32 34 3d 6d 79 5f  |....:  b%!24=my_|
00001a00  62 75 66 66 25 3a 24 6d  79 5f 62 75 66 66 25 3d  |buff%:$my_buff%=|
00001a10  74 69 74 6c 65 24 2b bd  30 3a 62 25 21 33 32 3d  |title$+.0:b%!32=|
00001a20  a9 28 74 69 74 6c 65 24  29 2b 31 0d 08 f2 06 20  |.(title$)+1.... |
00001a30  cd 0d 08 fc 3f 20 62 25  21 32 38 3d 28 6d 79 5f  |....? b%!28=(my_|
00001a40  62 75 66 66 25 2b 31 36  30 29 3a 24 28 6d 79 5f  |buff%+160):$(my_|
00001a50  62 75 66 66 25 2b 31 36  30 29 3d 76 61 6c 69 64  |buff%+160)=valid|
00001a60  24 2b bd 30 3a 62 25 21  32 30 2b 3d 31 3c 3c 38  |$+.0:b%!20+=1<<8|
00001a70  0d 09 06 05 cc 0d 09 10  14 20 24 28 62 25 2b 32  |......... $(b%+2|
00001a80  34 29 3d 74 69 74 6c 65  24 0d 09 1a 05 cd 0d 09  |4)=title$.......|
00001a90  24 55 e7 20 28 28 62 25  21 32 30 29 20 80 20 26  |$U. ((b%!20) . &|
00001aa0  31 30 33 29 3d 26 33 20  8c 85 20 26 38 30 33 2c  |103)=&3 .. &803,|
00001ab0  22 43 61 6e 6e 6f 74 20  6d 61 6b 65 20 61 20 73  |"Cannot make a s|
00001ac0  70 72 69 74 65 2f 74 65  78 74 20 69 63 6f 6e 20  |prite/text icon |
00001ad0  77 69 74 68 6f 75 74 20  76 61 6c 69 64 61 74 69  |without validati|
00001ae0  6f 6e 22 0d 09 2e 1d e7  20 28 66 6c 61 67 73 20  |on"..... (flags |
00001af0  80 20 33 29 3d 30 20 8c  62 25 21 32 30 2b 3d 31  |. 3)=0 .b%!20+=1|
00001b00  0d 09 38 2e e7 20 a4 6c  6f 77 65 72 28 c0 76 61  |..8.. .lower(.va|
00001b10  6c 69 64 24 2c 31 29 29  3d 22 73 22 20 8c 20 62  |lid$,1))="s" . b|
00001b20  25 21 32 30 3d 62 25 21  32 30 20 84 20 32 0d 09  |%!20=b%!20 . 2..|
00001b30  42 25 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |B%.. "Wimp_Creat|
00001b40  65 49 63 6f 6e 22 2c 2c  62 25 20 b8 20 68 61 6e  |eIcon",,b% . han|
00001b50  64 6c 65 0d 09 4c 0b 3d  68 61 6e 64 6c 65 0d 09  |dle..L.=handle..|
00001b60  56 05 3a 0d 09 60 36 f4  20 50 52 4f 43 64 65 6c  |V.:..`6. PROCdel|
00001b70  65 74 65 69 63 6f 6e 20  3a 20 44 65 6c 65 74 65  |eteicon : Delete|
00001b80  20 74 68 65 20 69 63 6f  6e 20 66 72 6f 6d 20 74  | the icon from t|
00001b90  68 65 20 77 69 6e 64 6f  77 0d 09 6a 1a dd f2 64  |he window..j...d|
00001ba0  65 6c 65 74 65 69 63 6f  6e 28 77 69 6e 2c 69 63  |eleteicon(win,ic|
00001bb0  6f 6e 29 0d 09 74 2e 21  62 25 3d 77 69 6e 3a 62  |on)..t.!b%=win:b|
00001bc0  25 21 34 3d 69 63 6f 6e  3a c8 99 20 22 57 69 6d  |%!4=icon:.. "Wim|
00001bd0  70 5f 44 65 6c 65 74 65  49 63 6f 6e 22 2c 2c 62  |p_DeleteIcon",,b|
00001be0  25 0d 09 7e 05 e1 0d 09  88 05 3a 0d 09 92 38 dd  |%..~......:...8.|
00001bf0  a4 43 72 65 61 74 65 49  63 6f 6e 42 61 72 49 63  |.CreateIconBarIc|
00001c00  6f 6e 28 53 70 72 24 2c  74 69 74 6c 65 24 2c 70  |on(Spr$,title$,p|
00001c10  6f 73 25 29 3a ea 20 69  63 25 2c 77 25 2c 6d 25  |os%):. ic%,w%,m%|
00001c20  2c 65 25 0d 09 9c 31 74  69 74 6c 65 24 3d a4 6d  |,e%...1title$=.m|
00001c30  73 67 74 65 78 74 28 74  69 74 6c 65 24 29 3a 62  |sgtext(title$):b|
00001c40  25 21 30 3d 2d 28 94 28  70 6f 73 25 29 20 80 20  |%!0=-(.(pos%) . |
00001c50  26 46 46 29 0d 09 a6 32  62 25 21 34 3d 30 3a 62  |&FF)...2b%!4=0:b|
00001c60  25 21 38 3d 2d 31 36 3a  62 25 21 31 32 3d 31 32  |%!8=-16:b%!12=12|
00001c70  2b 31 36 2a a9 28 74 69  74 6c 65 24 29 3a 62 25  |+16*.(title$):b%|
00001c80  21 31 36 3d 38 38 0d 09  b0 22 e7 62 25 21 31 32  |!16=88...".b%!12|
00001c90  3c 31 32 2b 31 36 2a 34  20 8c 20 62 25 21 31 32  |<12+16*4 . b%!12|
00001ca0  3d 31 32 2b 31 36 2a 34  0d 09 ba 12 e7 20 74 69  |=12+16*4..... ti|
00001cb0  74 6c 65 24 3c 3e 22 22  20 8c 0d 09 c4 32 20 62  |tle$<>"" ....2 b|
00001cc0  25 21 32 30 3d 28 31 3c  3c 32 38 29 2b 28 37 3c  |%!20=(1<<28)+(7<|
00001cd0  3c 32 34 29 2b 28 33 3c  3c 31 32 29 2b 28 25 30  |<24)+(3<<12)+(%0|
00001ce0  31 30 31 31 29 2b 28 31  3c 3c 38 29 0d 09 ce 1c  |1011)+(1<<8)....|
00001cf0  20 62 25 21 32 34 3d a4  69 6e 64 69 72 65 63 74  | b%!24=.indirect|
00001d00  28 74 69 74 6c 65 24 29  0d 09 d8 1e 20 62 25 21  |(title$).... b%!|
00001d10  32 38 3d a4 69 6e 64 69  72 65 63 74 28 22 53 22  |28=.indirect("S"|
00001d20  2b 53 70 72 24 29 0d 09  e2 16 20 62 25 21 33 32  |+Spr$).... b%!32|
00001d30  3d a9 28 74 69 74 6c 65  24 29 2b 31 0d 09 ec 05  |=.(title$)+1....|
00001d40  cc 0d 09 f6 2b 20 62 25  21 32 30 3d 28 31 3c 3c  |....+ b%!20=(1<<|
00001d50  32 38 29 2b 28 37 3c 3c  32 34 29 2b 28 33 3c 3c  |28)+(7<<24)+(3<<|
00001d60  31 32 29 2b 28 25 31 31  30 31 30 29 0d 0a 00 12  |12)+(%11010)....|
00001d70  20 24 28 62 25 2b 32 34  29 3d 53 70 72 24 0d 0a  | $(b%+24)=Spr$..|
00001d80  0a 05 cd 0d 0a 14 3c c8  99 20 22 57 69 6d 70 5f  |......<.. "Wimp_|
00001d90  53 70 72 69 74 65 4f 70  22 2c 26 31 32 38 2c 2c  |SpriteOp",&128,,|
00001da0  c0 53 70 72 24 2c a7 53  70 72 24 2b 22 2c 22 2c  |.Spr$,.Spr$+",",|
00001db0  22 2c 22 29 29 20 b8 2c  2c 2c 77 25 2c 6d 25 0d  |",")) .,,,w%,m%.|
00001dc0  0a 1e 37 c8 99 20 22 58  4f 53 5f 52 65 61 64 4d  |..7.. "XOS_ReadM|
00001dd0  6f 64 65 56 61 72 69 61  62 6c 65 22 2c 6d 25 2c  |odeVariable",m%,|
00001de0  34 20 b8 20 2c 2c 65 25  3a 77 25 3d 28 77 25 2b  |4 . ,,e%:w%=(w%+|
00001df0  31 29 3c 3c 65 25 0d 0a  28 18 e7 20 77 25 3e 62  |1)<<e%..(.. w%>b|
00001e00  25 21 31 32 20 8c 62 25  21 31 32 3d 77 25 0d 0a  |%!12 .b%!12=w%..|
00001e10  32 54 e7 20 28 94 28 70  6f 73 25 29 80 26 46 46  |2T. (.(pos%).&FF|
00001e20  29 3d 33 20 84 20 28 94  28 70 6f 73 25 29 80 26  |)=3 . (.(pos%).&|
00001e30  46 46 29 3d 34 20 8c 70  6f 73 25 3d 94 28 70 6f  |FF)=4 .pos%=.(po|
00001e40  73 25 29 3e 3e 38 20 8b  70 6f 73 25 3d 28 94 28  |s%)>>8 .pos%=(.(|
00001e50  70 6f 73 25 29 20 80 20  26 46 46 30 30 29 3c 3c  |pos%) . &FF00)<<|
00001e60  31 36 0d 0a 3c 26 c8 99  20 22 57 69 6d 70 5f 43  |16..<&.. "Wimp_C|
00001e70  72 65 61 74 65 49 63 6f  6e 22 2c 70 6f 73 25 2c  |reateIcon",pos%,|
00001e80  62 25 20 b8 20 69 63 25  0d 0a 46 08 3d 69 63 25  |b% . ic%..F.=ic%|
00001e90  0d 0a 50 05 3a 0d 0a 5a  1f dd 20 a4 67 65 74 69  |..P.:..Z.. .geti|
00001ea0  63 6f 6e 73 74 61 74 65  28 77 69 6e 25 2c 69 63  |constate(win%,ic|
00001eb0  6f 6e 25 29 0d 0a 64 32  21 62 25 3d 77 69 6e 25  |on%)..d2!b%=win%|
00001ec0  3a 62 25 21 34 3d 69 63  6f 6e 25 3a c8 99 20 22  |:b%!4=icon%:.. "|
00001ed0  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00001ee0  65 22 2c 2c 62 25 0d 0a  6e 16 3d 28 62 25 21 32  |e",,b%..n.=(b%!2|
00001ef0  34 3e 3e 32 31 20 80 20  31 29 3e 30 0d 0a 78 05  |4>>21 . 1)>0..x.|
00001f00  3a 0d 0a 82 1d dd a4 67  65 74 69 63 6f 6e 74 65  |:......geticonte|
00001f10  78 74 28 77 69 6e 25 2c  69 63 6f 6e 25 29 0d 0a  |xt(win%,icon%)..|
00001f20  8c 33 62 25 21 30 3d 77  69 6e 25 3a 62 25 21 34  |.3b%!0=win%:b%!4|
00001f30  3d 69 63 6f 6e 25 3a c8  99 20 22 57 69 6d 70 5f  |=icon%:.. "Wimp_|
00001f40  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |GetIconState",,b|
00001f50  25 0d 0a 96 2a e7 20 28  28 62 25 21 32 34 29 20  |%...*. ((b%!24) |
00001f60  80 20 26 31 30 30 29 3d  30 20 8c 3d a4 73 74 72  |. &100)=0 .=.str|
00001f70  69 6e 67 30 28 62 25 2b  32 38 29 0d 0a a0 14 3d  |ing0(b%+28)....=|
00001f80  a4 73 74 72 69 6e 67 30  28 62 25 21 32 38 29 0d  |.string0(b%!28).|
00001f90  0a aa 28 dd f2 73 65 74  69 63 6f 6e 74 65 78 74  |..(..seticontext|
00001fa0  28 77 69 6e 25 2c 69 63  6f 6e 25 2c 74 65 78 74  |(win%,icon%,text|
00001fb0  24 29 3a ea 20 69 25 0d  0a b4 38 74 65 78 74 24  |$):. i%...8text$|
00001fc0  3d a4 6d 73 67 74 65 78  74 28 74 65 78 74 24 29  |=.msgtext(text$)|
00001fd0  3a c8 99 20 22 57 69 6d  70 5f 47 65 74 43 61 72  |:.. "Wimp_GetCar|
00001fe0  65 74 50 6f 73 69 74 69  6f 6e 22 2c 2c 62 25 0d  |etPosition",,b%.|
00001ff0  0a be 20 69 25 3d 28 21  62 25 3d 77 69 6e 25 29  |.. i%=(!b%=win%)|
00002000  20 80 20 28 69 63 6f 6e  25 3d 62 25 21 34 29 0d  | . (icon%=b%!4).|
00002010  0a c8 33 62 25 21 30 3d  77 69 6e 25 3a 62 25 21  |..3b%!0=win%:b%!|
00002020  34 3d 69 63 6f 6e 25 3a  c8 99 20 22 57 69 6d 70  |4=icon%:.. "Wimp|
00002030  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00002040  62 25 0d 0a d2 47 e7 20  28 28 62 25 21 32 34 29  |b%...G. ((b%!24)|
00002050  20 80 20 26 31 30 30 29  3d 30 20 8c 20 85 20 26  | . &100)=0 . . &|
00002060  38 30 33 2c 22 49 63 6f  6e 20 69 73 6e 27 74 20  |803,"Icon isn't |
00002070  69 6e 64 69 72 65 63 74  65 64 20 28 23 22 2b c3  |indirected (#"+.|
00002080  69 63 6f 6e 25 2b 22 29  22 0d 0a dc 1e e7 20 a4  |icon%+")"..... .|
00002090  73 74 72 69 6e 67 30 28  62 25 21 32 38 29 3c 3e  |string0(b%!28)<>|
000020a0  74 65 78 74 24 20 8c 0d  0a e6 54 20 e7 20 a9 28  |text$ ....T . .(|
000020b0  74 65 78 74 24 29 3c 62  25 21 33 36 20 8c 24 28  |text$)<b%!36 .$(|
000020c0  62 25 21 32 38 29 3d 74  65 78 74 24 20 8b 85 20  |b%!28)=text$ .. |
000020d0  26 38 30 33 2c 22 54 65  78 74 20 74 6f 6f 20 6c  |&803,"Text too l|
000020e0  6f 6e 67 20 66 6f 72 20  69 63 6f 6e 20 28 23 22  |ong for icon (#"|
000020f0  2b c3 69 63 6f 6e 25 2b  22 29 22 0d 0a f0 42 20  |+.icon%+")"...B |
00002100  21 62 25 3d 77 69 6e 25  3a 62 25 21 34 3d 69 63  |!b%=win%:b%!4=ic|
00002110  6f 6e 25 3a 62 25 21 38  3d 30 3a 62 25 21 31 32  |on%:b%!8=0:b%!12|
00002120  3d 30 3a c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |=0:.. "Wimp_SetI|
00002130  63 6f 6e 53 74 61 74 65  22 2c 2c 62 25 0d 0a fa  |conState",,b%...|
00002140  52 20 e7 20 69 25 20 80  20 28 62 25 21 32 34 20  |R . i% . (b%!24 |
00002150  80 20 31 29 3d 31 20 8c  c8 99 20 22 57 69 6d 70  |. 1)=1 ... "Wimp|
00002160  5f 53 65 74 43 61 72 65  74 50 6f 73 69 74 69 6f  |_SetCaretPositio|
00002170  6e 22 2c 77 69 6e 25 2c  69 63 6f 6e 25 2c 2d 31  |n",win%,icon%,-1|
00002180  2c 2d 31 2c 2d 31 2c a9  28 74 65 78 74 24 29 0d  |,-1,-1,.(text$).|
00002190  0b 04 05 cd 0d 0b 0e 05  e1 0d 0b 18 05 3a 0d 0b  |.............:..|
000021a0  22 37 f4 20 2a 2a 2a 2a  2a 2a 2a 2a 20 21 48 65  |"7. ******** !He|
000021b0  6c 70 20 72 65 73 70 6f  6e 73 69 76 65 20 72 6f  |lp responsive ro|
000021c0  75 74 69 6e 65 73 20 2a  2a 2a 2a 2a 2a 2a 2a 2a  |utines *********|
000021d0  2a 2a 2a 2a 2a 0d 0b 2c  05 3a 0d 0b 36 1b dd f2  |*****..,.:..6...|
000021e0  72 65 61 64 68 65 6c 70  28 77 69 6e 2c 69 63 6f  |readhelp(win,ico|
000021f0  6e 2c 74 6f 29 0d 0b 40  3b ea 20 6c 77 69 6e 2c  |n,to)..@;. lwin,|
00002200  76 61 6c 2c 68 65 6c 70  24 2c 66 6f 75 6e 64 2c  |val,help$,found,|
00002210  61 24 2c 6d 24 2c 6d 32  24 2c 6d 68 24 2c 78 24  |a$,m$,m2$,mh$,x$|
00002220  3a 66 6f 75 6e 64 3d a3  3a 6c 77 69 6e 3d 2d 31  |:found=.:lwin=-1|
00002230  0d 0b 4a 05 f5 0d 0b 54  10 20 f3 20 76 61 6c 2c  |..J....T. . val,|
00002240  68 65 6c 70 24 0d 0b 5e  1c 20 e7 20 76 61 6c 3e  |help$..^. . val>|
00002250  28 31 3c 3c 31 36 29 20  84 20 76 61 6c 3c 30 20  |(1<<16) . val<0 |
00002260  8c 0d 0b 68 12 20 20 e7  20 6c 77 69 6e 3d 77 69  |...h.  . lwin=wi|
00002270  6e 20 8c 0d 0b 72 1f 20  20 20 76 61 6c 3d 69 63  |n ...r.   val=ic|
00002280  6f 6e 3a 68 65 6c 70 24  3d 22 22 3a 6d 32 24 3d  |on:help$="":m2$=|
00002290  6d 24 0d 0b 7c 07 20 20  cc 0d 0b 86 18 20 20 20  |m$..|.  .....   |
000022a0  6c 77 69 6e 3d 76 61 6c  3a 6d 24 3d 68 65 6c 70  |lwin=val:m$=help|
000022b0  24 0d 0b 90 07 20 20 cd  0d 0b 9a 06 20 cd 0d 0b  |$....  ..... ...|
000022c0  a4 1c 20 e7 20 76 61 6c  3d 69 63 6f 6e 20 80 20  |.. . val=icon . |
000022d0  6c 77 69 6e 3d 77 69 6e  20 8c 0d 0b ae 1c 20 20  |lwin=win .....  |
000022e0  e7 20 69 63 6f 6e 3d 2d  31 20 84 20 68 65 6c 70  |. icon=-1 . help|
000022f0  24 3d 22 22 20 8c 0d 0b  b8 26 20 20 20 f2 73 65  |$="" ....&   .se|
00002300  6e 64 68 65 6c 70 28 a4  6d 73 67 74 65 78 74 28  |ndhelp(.msgtext(|
00002310  6d 24 29 2b 22 7c 4d 22  2c 74 6f 29 0d 0b c2 07  |m$)+"|M",to)....|
00002320  20 20 cc 0d 0b cc 1c 20  20 20 68 65 6c 70 24 3d  |  .....   help$=|
00002330  a4 6d 73 67 74 65 78 74  28 68 65 6c 70 24 29 0d  |.msgtext(help$).|
00002340  0b d6 24 20 20 20 e7 20  a7 68 65 6c 70 24 2c 22  |..$   . .help$,"|
00002350  7c 4d 22 29 3d 30 20 8c  68 65 6c 70 24 2b 3d 22  ||M")=0 .help$+="|
00002360  7c 4d 22 0d 0b e0 31 20  20 20 f2 73 65 6e 64 68  ||M"...1   .sendh|
00002370  65 6c 70 28 a4 6d 73 67  74 65 78 74 28 68 65 6c  |elp(.msgtext(hel|
00002380  70 24 29 2b a4 6d 73 67  74 65 78 74 28 6d 24 29  |p$)+.msgtext(m$)|
00002390  2c 74 6f 29 0d 0b ea 07  20 20 cd 0d 0b f4 0d 20  |,to)....  ..... |
000023a0  20 66 6f 75 6e 64 3d b9  0d 0b fe 06 20 cd 0d 0c  | found=..... ...|
000023b0  08 1a fd 20 68 65 6c 70  24 3d 22 2d 31 22 20 84  |... help$="-1" .|
000023c0  20 66 6f 75 6e 64 3d b9  0d 0c 12 0f e7 20 ac 20  | found=...... . |
000023d0  66 6f 75 6e 64 20 8c 0d  0c 1c 42 20 21 6d 65 73  |found ....B !mes|
000023e0  73 61 67 65 5f 62 75 66  66 65 72 25 3d 2d 31 3a  |sage_buffer%=-1:|
000023f0  6d 65 73 73 61 67 65 5f  62 75 66 66 65 72 25 21  |message_buffer%!|
00002400  34 3d 2d 31 3a 6d 65 73  73 61 67 65 5f 62 75 66  |4=-1:message_buf|
00002410  66 65 72 25 21 38 3d 2d  31 0d 0c 26 36 20 c8 99  |fer%!8=-1..&6 ..|
00002420  20 22 57 69 6d 70 5f 47  65 74 4d 65 6e 75 53 74  | "Wimp_GetMenuSt|
00002430  61 74 65 22 2c 31 2c 6d  65 73 73 61 67 65 5f 62  |ate",1,message_b|
00002440  75 66 66 65 72 25 2c 77  69 6e 2c 69 63 6f 6e 0d  |uffer%,win,icon.|
00002450  0c 30 1d 20 e7 20 21 6d  65 73 73 61 67 65 5f 62  |.0. . !message_b|
00002460  75 66 66 65 72 25 3c 3e  2d 31 20 8c 0d 0c 3a 40  |uffer%<>-1 ...:@|
00002470  20 20 76 61 6c 3d 62 25  3a 62 25 3d 6d 65 73 73  |  val=b%:b%=mess|
00002480  61 67 65 5f 62 75 66 66  65 72 25 3a 6d 68 24 3d  |age_buffer%:mh$=|
00002490  a4 64 65 63 6f 64 65 6d  65 6e 75 28 63 75 72 6d  |.decodemenu(curm|
000024a0  65 6e 75 25 29 3a 62 25  3d 76 61 6c 0d 0c 44 30  |enu%):b%=val..D0|
000024b0  20 20 6d 24 3d 6d 68 24  3a c8 95 20 a7 6d 24 2c  |  m$=mh$:.. .m$,|
000024c0  22 20 22 29 3e 30 3a c1  6d 24 2c a7 6d 24 2c 22  |" ")>0:.m$,.m$,"|
000024d0  20 22 29 2c 31 29 3d 22  5f 22 3a ce 0d 0c 4e 1e  | "),1)="_":...N.|
000024e0  20 20 68 65 6c 70 24 3d  a4 6d 73 67 74 6f 6b 65  |  help$=.msgtoke|
000024f0  6e 28 22 48 4d 22 2b 6d  24 29 0d 0c 58 18 20 20  |n("HM"+m$)..X.  |
00002500  e7 20 68 65 6c 70 24 3c  3e 22 48 4d 22 2b 6d 24  |. help$<>"HM"+m$|
00002510  20 8c 0d 0c 62 1a 20 20  20 f2 73 65 6e 64 68 65  | ...b.   .sendhe|
00002520  6c 70 28 68 65 6c 70 24  2c 74 6f 29 0d 0c 6c 07  |lp(help$,to)..l.|
00002530  20 20 cc 0d 0c 76 08 20  20 20 f5 0d 0c 80 1c 20  |  ...v.   ..... |
00002540  20 20 20 f3 20 6d 24 2c  76 61 6c 2c 68 65 6c 70  |   . m$,val,help|
00002550  24 2c 68 65 6c 70 24 0d  0c 8a 21 20 20 20 fd 20  |$,help$...!   . |
00002560  a0 28 6d 24 29 3d 63 75  72 6d 65 6e 75 25 20 84  |.(m$)=curmenu% .|
00002570  20 6d 24 3d 22 2d 32 22  0d 0c 94 13 20 20 20 e7  | m$="-2"....   .|
00002580  20 6d 24 3c 3e 22 2d 32  22 20 8c 0d 0c 9e 12 20  | m$<>"-2" ..... |
00002590  20 20 20 e7 20 76 61 6c  3e 2d 31 20 8c 0d 0c a8  |   . val>-1 ....|
000025a0  24 20 20 20 20 20 f2 73  65 6e 64 68 65 6c 70 28  |$     .sendhelp(|
000025b0  68 65 6c 70 24 2c 74 6f  29 3a 66 6f 75 6e 64 3d  |help$,to):found=|
000025c0  b9 0d 0c b2 09 20 20 20  20 cc 0d 0c bc 0a 20 20  |.....    .....  |
000025d0  20 20 20 f5 0d 0c c6 1d  20 20 20 20 20 20 f3 20  |   .....      . |
000025e0  6c 77 69 6e 2c 6d 24 2c  76 61 6c 2c 68 65 6c 70  |lwin,m$,val,help|
000025f0  24 0d 0c d0 1f 20 20 20  20 20 20 e7 20 bb 28 6d  |$....      . .(m|
00002600  24 29 3d 30 20 80 20 6d  24 3c 3e 22 30 22 20 8c  |$)=0 . m$<>"0" .|
00002610  0d 0c da 30 20 20 20 20  20 20 20 e7 20 6d 68 24  |...0       . mh$|
00002620  3d 6d 24 20 8c f2 73 65  6e 64 68 65 6c 70 28 68  |=m$ ..sendhelp(h|
00002630  65 6c 70 24 2c 74 6f 29  3a 66 6f 75 6e 64 3d b9  |elp$,to):found=.|
00002640  0d 0c e4 0b 20 20 20 20  20 20 cc 0d 0c ee 57 20  |....      ....W |
00002650  20 20 20 20 20 20 e7 20  6c 77 69 6e 3d 6d 65 73  |      . lwin=mes|
00002660  73 61 67 65 5f 62 75 66  66 65 72 25 21 30 20 80  |sage_buffer%!0 .|
00002670  20 bb 28 6d 24 29 3d 6d  65 73 73 61 67 65 5f 62  | .(m$)=message_b|
00002680  75 66 66 65 72 25 21 34  20 80 20 76 61 6c 3d 6d  |uffer%!4 . val=m|
00002690  65 73 73 61 67 65 5f 62  75 66 66 65 72 25 21 38  |essage_buffer%!8|
000026a0  20 8c 0d 0c f8 27 20 20  20 20 20 20 20 20 f2 73  | ....'        .s|
000026b0  65 6e 64 68 65 6c 70 28  68 65 6c 70 24 2c 74 6f  |endhelp(help$,to|
000026c0  29 3a 66 6f 75 6e 64 3d  b9 0d 0d 02 0c 20 20 20  |):found=.....   |
000026d0  20 20 20 20 cd 0d 0d 0c  0b 20 20 20 20 20 20 cd  |    .....      .|
000026e0  0d 0d 16 29 20 20 20 20  20 fd 66 6f 75 6e 64 3d  |...)     .found=|
000026f0  b9 20 84 20 6c 77 69 6e  3d 2d 32 20 84 20 6c 77  |. . lwin=-2 . lw|
00002700  69 6e 20 3e 26 38 30 30  30 0d 0d 20 09 20 20 20  |in >&8000.. .   |
00002710  20 cd 0d 0d 2a 08 20 20  20 cd 0d 0d 34 07 20 20  | ...*.   ...4.  |
00002720  cd 0d 0d 3e 06 20 cd 0d  0d 48 05 cd 0d 0d 52 05  |...>. ...H....R.|
00002730  e1 0d 0d 5c 2e dd f2 73  65 6e 64 68 65 6c 70 28  |...\...sendhelp(|
00002740  68 65 6c 70 24 2c 74 6f  29 3a 68 65 6c 70 24 3d  |help$,to):help$=|
00002750  a4 6d 73 67 74 65 78 74  28 68 65 6c 70 24 29 0d  |.msgtext(help$).|
00002760  0d 66 22 e7 20 c2 68 65  6c 70 24 2c 32 29 3c 3e  |.f". .help$,2)<>|
00002770  22 7c 4d 22 20 8c 68 65  6c 70 24 2b 3d 22 7c 4d  |"|M" .help$+="|M|
00002780  22 0d 0d 70 0b ea 20 62  24 2c 63 24 0d 0d 7a 1b  |"..p.. b$,c$..z.|
00002790  68 65 6c 70 24 3d a4 73  75 62 73 74 76 61 72 73  |help$=.substvars|
000027a0  28 68 65 6c 70 24 29 0d  0d 84 15 c8 95 20 a7 68  |(help$)...... .h|
000027b0  65 6c 70 24 2c 22 7c 4d  22 29 3e 30 0d 0d 8e 34  |elp$,"|M")>0...4|
000027c0  20 62 24 3d c0 68 65 6c  70 24 2c a7 68 65 6c 70  | b$=.help$,.help|
000027d0  24 2c 22 7c 4d 22 29 2d  31 29 3a 68 65 6c 70 24  |$,"|M")-1):help$|
000027e0  3d c1 68 65 6c 70 24 2c  a9 28 62 24 29 2b 33 29  |=.help$,.(b$)+3)|
000027f0  0d 0d 98 20 20 e7 20 a7  22 21 2e 3f 22 2c c2 62  |...  . ."!.?",.b|
00002800  24 2c 31 29 29 3d 30 20  8c 62 24 2b 3d 22 2e 22  |$,1))=0 .b$+="."|
00002810  0d 0d a2 10 20 63 24 2b  3d 62 24 2b 22 7c 4d 22  |.... c$+=b$+"|M"|
00002820  0d 0d ac 05 ce 0d 0d b6  30 62 25 21 31 32 3d 62  |........0b%!12=b|
00002830  25 21 38 3a 62 25 21 34  3d 74 6f 3a 62 25 21 31  |%!8:b%!4=to:b%!1|
00002840  36 3d 26 35 30 33 3a 24  28 62 25 2b 32 30 29 3d  |6=&503:$(b%+20)=|
00002850  63 24 2b bd 30 0d 0d c0  1a 62 25 21 30 3d 32 30  |c$+.0....b%!0=20|
00002860  2b 28 a9 28 63 24 29 2b  34 29 20 80 20 2d 34 0d  |+(.(c$)+4) . -4.|
00002870  0d ca 24 c8 99 20 22 57  69 6d 70 5f 53 65 6e 64  |..$.. "Wimp_Send|
00002880  4d 65 73 73 61 67 65 22  2c 31 37 2c 62 25 2c 62  |Message",17,b%,b|
00002890  25 21 34 0d 0d d4 05 e1  0d 0d de 05 3a 0d 0d e8  |%!4.........:...|
000028a0  37 f4 20 2a 2a 2a 2a 2a  2a 2a 2a 20 4d 65 73 73  |7. ******** Mess|
000028b0  61 67 65 54 72 61 6e 73  20 69 6e 74 65 72 66 61  |ageTrans interfa|
000028c0  63 65 20 72 6f 75 74 69  6e 65 73 20 2a 2a 2a 2a  |ce routines ****|
000028d0  2a 2a 2a 2a 0d 0d f2 05  3a 0d 0d fc 18 dd f2 6f  |****....:......o|
000028e0  70 65 6e 6d 65 73 73 61  67 65 73 3a ea 20 66 2c  |penmessages:. f,|
000028f0  6c 0d 0e 06 38 e7 20 6d  73 67 62 75 66 66 65 72  |l...8. msgbuffer|
00002900  25 3c 3e 2d 31 20 8c 85  20 26 38 30 33 2c 22 4d  |%<>-1 .. &803,"M|
00002910  65 73 73 61 67 65 20 66  69 6c 65 20 61 6c 72 65  |essage file alre|
00002920  61 64 79 20 6f 70 65 6e  22 0d 0e 10 3a c8 99 20  |ady open"...:.. |
00002930  22 4d 65 73 73 61 67 65  54 72 61 6e 73 5f 46 69  |"MessageTrans_Fi|
00002940  6c 65 49 6e 66 6f 22 2c  2c 41 70 70 64 69 72 24  |leInfo",,Appdir$|
00002950  2b 22 2e 4d 65 73 73 61  67 65 73 22 20 b8 20 66  |+".Messages" . f|
00002960  2c 2c 6c 0d 0e 1a 34 e7  20 28 66 20 80 31 29 3d  |,,l...4. (f .1)=|
00002970  31 20 8c 6d 73 67 62 75  66 66 65 72 32 25 3d 30  |1 .msgbuffer2%=0|
00002980  20 8b 6d 73 67 62 75 66  66 65 72 32 25 3d a4 63  | .msgbuffer2%=.c|
00002990  6c 61 69 6d 28 6c 29 0d  0e 24 48 e7 20 6d 73 67  |laim(l)..$H. msg|
000029a0  62 75 66 66 65 72 32 25  3d 2d 31 20 8c 85 20 26  |buffer2%=-1 .. &|
000029b0  38 30 33 2c 22 4e 6f 20  72 6f 6f 6d 20 66 6f 72  |803,"No room for|
000029c0  20 73 65 63 6f 6e 64 61  72 79 20 4d 65 73 73 61  | secondary Messa|
000029d0  67 65 54 72 61 6e 73 20  62 75 66 66 65 72 22 0d  |geTrans buffer".|
000029e0  0e 2e 71 6d 73 67 62 75  66 66 65 72 25 3d a4 63  |..qmsgbuffer%=.c|
000029f0  6c 61 69 6d 28 31 36 29  3a e7 20 6d 73 67 62 75  |laim(16):. msgbu|
00002a00  66 66 65 72 25 3d 2d 31  20 8c f2 72 65 6c 65 61  |ffer%=-1 ..relea|
00002a10  73 65 28 6d 73 67 62 75  66 66 65 72 32 25 29 3a  |se(msgbuffer2%):|
00002a20  85 20 26 38 30 33 2c 22  4e 6f 20 72 6f 6f 6d 20  |. &803,"No room |
00002a30  66 6f 72 20 70 72 69 6d  61 72 79 20 4d 65 73 73  |for primary Mess|
00002a40  61 67 65 54 72 61 6e 73  20 62 75 66 66 65 72 22  |ageTrans buffer"|
00002a50  0d 0e 38 49 c8 99 20 22  4d 65 73 73 61 67 65 54  |..8I.. "MessageT|
00002a60  72 61 6e 73 5f 4f 70 65  6e 46 69 6c 65 22 2c 6d  |rans_OpenFile",m|
00002a70  73 67 62 75 66 66 65 72  25 2c 41 70 70 64 69 72  |sgbuffer%,Appdir|
00002a80  24 2b 22 2e 4d 65 73 73  61 67 65 73 22 2c 6d 73  |$+".Messages",ms|
00002a90  67 62 75 66 66 65 72 32  25 0d 0e 42 05 e1 0d 0e  |gbuffer2%..B....|
00002aa0  4c 13 dd f2 63 6c 6f 73  65 6d 65 73 73 61 67 65  |L...closemessage|
00002ab0  73 0d 0e 56 07 ea 20 85  0d 0e 60 1e ee 20 85 20  |s..V.. ...`.. . |
00002ac0  ea 3a ef 34 3a f6 3a f1  22 20 61 74 20 22 3b 9e  |.:.4:.:." at ";.|
00002ad0  3a 47 3d a5 3a e1 0d 0e  6a 15 e7 20 6d 73 67 62  |:G=.:...j.. msgb|
00002ae0  75 66 66 65 72 25 3e 2d  31 20 8c 0d 0e 74 2c 20  |uffer%>-1 ...t, |
00002af0  c8 99 20 22 58 4d 65 73  73 61 67 65 54 72 61 6e  |.. "XMessageTran|
00002b00  73 5f 43 6c 6f 73 65 46  69 6c 65 22 2c 6d 73 67  |s_CloseFile",msg|
00002b10  62 75 66 66 65 72 25 0d  0e 7e 2f 20 f2 72 65 6c  |buffer%..~/ .rel|
00002b20  65 61 73 65 28 6d 73 67  62 75 66 66 65 72 25 29  |ease(msgbuffer%)|
00002b30  3a f2 72 65 6c 65 61 73  65 28 6d 73 67 62 75 66  |:.release(msgbuf|
00002b40  66 65 72 32 25 29 0d 0e  88 05 cd 0d 0e 92 05 e1  |fer2%)..........|
00002b50  0d 0e 9c 05 3a 0d 0e a6  39 f4 20 46 4e 6d 73 67  |....:...9. FNmsg|
00002b60  74 6f 6b 65 6e 20 20 20  20 20 20 20 20 3a 20 74  |token        : t|
00002b70  72 61 6e 73 6c 61 74 65  20 61 20 74 6f 6b 65 6e  |ranslate a token|
00002b80  20 69 6e 74 6f 20 61 20  73 74 72 69 6e 67 0d 0e  | into a string..|
00002b90  b0 42 f4 20 46 4e 6d 73  67 74 65 78 74 20 20 20  |.B. FNmsgtext   |
00002ba0  20 20 20 20 20 20 3a 20  74 72 61 6e 73 6c 61 74  |      : translat|
00002bb0  65 20 74 65 78 74 20 74  6f 20 61 20 74 6f 6b 65  |e text to a toke|
00002bc0  6e 20 69 66 20 70 72 65  66 69 78 20 69 73 20 3e  |n if prefix is >|
00002bd0  0d 0e ba 2a dd a4 6d 73  67 74 6f 6b 65 6e 28 74  |...*..msgtoken(t|
00002be0  24 29 3a ea 20 73 31 24  2c 73 32 24 2c 73 33 24  |$):. s1$,s2$,s3$|
00002bf0  2c 61 24 2c 6c 65 6e 25  2c 66 0d 0e c4 18 e7 20  |,a$,len%,f..... |
00002c00  6d 73 67 62 75 66 66 65  72 25 3d 2d 31 20 8c 3d  |msgbuffer%=-1 .=|
00002c10  74 24 0d 0e ce 31 61 24  3d c1 74 24 2c a7 74 24  |t$...1a$=.t$,.t$|
00002c20  2b 22 3a 22 2c 22 3a 22  29 2b 31 29 3a 74 24 3d  |+":",":")+1):t$=|
00002c30  c0 74 24 2c a7 74 24 2b  22 3a 22 2c 22 3a 22 29  |.t$,.t$+":",":")|
00002c40  2d 31 29 0d 0e d8 1b 73  31 24 3d c0 61 24 2c a7  |-1)....s1$=.a$,.|
00002c50  61 24 2b 22 3a 22 2c 22  3a 22 29 2d 31 29 0d 0e  |a$+":",":")-1)..|
00002c60  e2 13 e7 20 c0 73 31 24  2c 31 29 3d 22 7c 22 20  |... .s1$,1)="|" |
00002c70  8c 0d 0e ec 1d 20 73 31  24 3d c1 61 24 2c 32 29  |..... s1$=.a$,2)|
00002c80  3a 73 32 24 3d 22 22 3a  73 33 24 3d 22 22 0d 0e  |:s2$="":s3$=""..|
00002c90  f6 05 cc 0d 0f 00 2d 20  61 24 3d c1 61 24 2c a9  |......- a$=.a$,.|
00002ca0  28 73 31 24 29 2b 32 29  3a 73 32 24 3d c0 61 24  |(s1$)+2):s2$=.a$|
00002cb0  2c a7 61 24 2b 22 3a 22  2c 22 3a 22 29 2d 31 29  |,.a$+":",":")-1)|
00002cc0  0d 0f 0a 38 20 e7 20 c0  73 32 24 2c 31 29 3d 22  |...8 . .s2$,1)="|
00002cd0  7c 22 20 8c 73 32 24 3d  c1 61 24 2c 32 29 3a 73  ||" .s2$=.a$,2):s|
00002ce0  33 24 3d 22 22 20 8b 73  33 24 3d c1 61 24 2c a9  |3$="" .s3$=.a$,.|
00002cf0  28 73 32 24 29 2b 32 29  0d 0f 14 05 cd 0d 0f 1e  |(s2$)+2)........|
00002d00  57 c8 99 20 22 58 4d 65  73 73 61 67 65 54 72 61  |W.. "XMessageTra|
00002d10  6e 73 5f 4c 6f 6f 6b 75  70 22 2c 6d 73 67 62 75  |ns_Lookup",msgbu|
00002d20  66 66 65 72 25 2c 74 24  2c 6d 65 73 73 61 67 65  |ffer%,t$,message|
00002d30  5f 62 75 66 66 65 72 25  2c 32 35 36 2c 73 31 24  |_buffer%,256,s1$|
00002d40  2c 73 32 24 2c 73 33 24  20 b8 20 2c 2c 2c 6c 65  |,s2$,s3$ . ,,,le|
00002d50  6e 25 3b 66 0d 0f 28 2c  e7 20 28 66 20 80 31 29  |n%;f..(,. (f .1)|
00002d60  3d 31 20 8c 3d 74 24 20  8b 6d 65 73 73 61 67 65  |=1 .=t$ .message|
00002d70  5f 62 75 66 66 65 72 25  3f 6c 65 6e 25 3d 31 33  |_buffer%?len%=13|
00002d80  0d 0f 32 21 3d a4 73 75  62 73 74 76 61 72 73 28  |..2!=.substvars(|
00002d90  24 6d 65 73 73 61 67 65  5f 62 75 66 66 65 72 25  |$message_buffer%|
00002da0  29 0d 0f 3c 11 dd a4 6d  73 67 74 65 78 74 28 61  |)..<...msgtext(a|
00002db0  24 29 0d 0f 46 26 e7 20  c0 61 24 2c 31 29 3d 22  |$)..F&. .a$,1)="|
00002dc0  3e 22 20 8c 61 24 3d a4  6d 73 67 74 6f 6b 65 6e  |>" .a$=.msgtoken|
00002dd0  28 c1 61 24 2c 32 29 29  0d 0f 50 07 3d 61 24 0d  |(.a$,2))..P.=a$.|
00002de0  0f 5a 05 3a 0d 0f 64 37  f4 20 2a 2a 2a 2a 2a 2a  |.Z.:..d7. ******|
00002df0  2a 2a 20 53 74 72 69 6e  67 20 6d 61 6e 69 70 75  |** String manipu|
00002e00  6c 61 74 69 6f 6e 20 72  6f 75 74 69 6e 65 73 20  |lation routines |
00002e10  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 0f 6e 05 3a  |***********..n.:|
00002e20  0d 0f 78 22 dd a4 73 74  72 69 6e 67 30 28 61 25  |..x"..string0(a%|
00002e30  29 3a ea 20 61 24 3a e7  20 61 25 3d 30 20 8c 3d  |):. a$:. a%=0 .=|
00002e40  22 22 0d 0f 82 2c c8 95  3f 61 25 3e 33 31 20 80  |""...,..?a%>31 .|
00002e50  a9 28 61 24 29 3c 32 35  35 3a 61 24 3d 61 24 2b  |.(a$)<255:a$=a$+|
00002e60  bd 3f 61 25 3a 61 25 3d  61 25 2b 31 3a ce 0d 0f  |.?a%:a%=a%+1:...|
00002e70  8c 07 3d 61 24 0d 0f 96  05 3a 0d 0f a0 19 dd a4  |..=a$....:......|
00002e80  6c 6f 77 65 72 28 61 24  29 3a ea 20 63 24 2c 62  |lower(a$):. c$,b|
00002e90  24 2c 49 0d 0f aa 0e e3  49 3d 31 b8 a9 28 61 24  |$,I.....I=1..(a$|
00002ea0  29 0d 0f b4 30 63 24 3d  c1 61 24 2c 49 2c 31 29  |)...0c$=.a$,I,1)|
00002eb0  3a e7 20 63 24 3e 3d 22  41 22 80 63 24 3c 3d 22  |:. c$>="A".c$<="|
00002ec0  5a 22 8c 63 24 3d bd 28  97 28 63 24 29 2b 33 32  |Z".c$=.(.(c$)+32|
00002ed0  29 0d 0f be 10 62 24 2b  3d 63 24 3a ed 3a 3d 62  |)....b$+=c$:.:=b|
00002ee0  24 0d 0f c8 05 3a 0d 0f  d2 17 dd a4 73 75 62 73  |$....:......subs|
00002ef0  74 76 61 72 73 70 28 61  24 2c 63 24 29 0d 0f dc  |tvarsp(a$,c$)...|
00002f00  19 ea 20 62 24 2c 64 24  3a ea 20 85 3a ee 20 85  |.. b$,d$:. .:. .|
00002f10  20 ea 3a 3d 61 24 0d 0f  e6 11 c8 95 20 a7 61 24  | .:=a$...... .a$|
00002f20  2c 22 a4 22 29 3e 30 0d  0f f0 2a 20 62 24 3d c1  |,".")>0...* b$=.|
00002f30  61 24 2c a7 61 24 2c 22  a4 22 29 2b 31 29 3a 62  |a$,.a$,".")+1):b|
00002f40  24 3d c0 62 24 2c a7 62  24 2c 22 a4 22 29 2d 31  |$=.b$,.b$,".")-1|
00002f50  29 0d 0f fa 2e 20 64 24  3d 63 24 2b 62 24 3a e7  |).... d$=c$+b$:.|
00002f60  20 c2 64 24 2c 31 29 3c  3e 22 24 22 20 8c 64 24  | .d$,1)<>"$" .d$|
00002f70  3d 22 53 54 52 24 28 22  2b 64 24 2b 22 29 22 0d  |="STR$("+d$+")".|
00002f80  10 04 33 20 61 24 3d c0  61 24 2c a7 61 24 2c 22  |..3 a$=.a$,.a$,"|
00002f90  a4 22 29 2d 31 29 2b a0  28 64 24 29 2b c1 61 24  |.")-1)+.(d$)+.a$|
00002fa0  2c a7 61 24 2c 22 a4 22  29 2b a9 28 62 24 29 2b  |,.a$,".")+.(b$)+|
00002fb0  32 29 0d 10 0e 05 ce 0d  10 18 07 3d 61 24 0d 10  |2).........=a$..|
00002fc0  22 13 dd a4 73 75 62 73  74 76 61 72 73 28 61 24  |"...substvars(a$|
00002fd0  29 0d 10 2c 19 ea 20 62  24 2c 64 24 3a ea 20 85  |)..,.. b$,d$:. .|
00002fe0  3a ee 20 85 20 ea 3a 3d  61 24 0d 10 36 11 c8 95  |:. . .:=a$..6...|
00002ff0  20 a7 61 24 2c 22 a4 22  29 3e 30 0d 10 40 2a 20  | .a$,".")>0..@* |
00003000  62 24 3d c1 61 24 2c a7  61 24 2c 22 a4 22 29 2b  |b$=.a$,.a$,".")+|
00003010  31 29 3a 62 24 3d c0 62  24 2c a7 62 24 2c 22 a4  |1):b$=.b$,.b$,".|
00003020  22 29 2d 31 29 0d 10 4a  2b 20 64 24 3d 62 24 3a  |")-1)..J+ d$=b$:|
00003030  e7 20 c2 64 24 2c 31 29  3c 3e 22 24 22 20 8c 64  |. .d$,1)<>"$" .d|
00003040  24 3d 22 53 54 52 24 28  22 2b 64 24 2b 22 29 22  |$="STR$("+d$+")"|
00003050  0d 10 54 33 20 61 24 3d  c0 61 24 2c a7 61 24 2c  |..T3 a$=.a$,.a$,|
00003060  22 a4 22 29 2d 31 29 2b  a0 28 64 24 29 2b c1 61  |".")-1)+.(d$)+.a|
00003070  24 2c a7 61 24 2c 22 a4  22 29 2b a9 28 62 24 29  |$,.a$,".")+.(b$)|
00003080  2b 32 29 0d 10 5e 05 ce  0d 10 68 07 3d 61 24 0d  |+2)..^....h.=a$.|
00003090  10 72 1a dd a4 67 73 74  72 61 6e 73 28 61 24 29  |.r...gstrans(a$)|
000030a0  3a ea 20 70 25 2c 6c 65  6e 0d 10 7c 3a c8 99 20  |:. p%,len..|:.. |
000030b0  22 4f 53 5f 47 53 54 72  61 6e 73 22 2c 61 24 2c  |"OS_GSTrans",a$,|
000030c0  6d 65 73 73 61 67 65 5f  62 75 66 66 65 72 25 2c  |message_buffer%,|
000030d0  32 35 36 2b 28 31 3c 3c  33 31 29 20 b8 20 2c 2c  |256+(1<<31) . ,,|
000030e0  6c 65 6e 0d 10 86 1c 61  24 3d 22 22 3a 70 25 3d  |len....a$="":p%=|
000030f0  6d 65 73 73 61 67 65 5f  62 75 66 66 65 72 25 0d  |message_buffer%.|
00003100  10 90 21 c8 95 20 a9 28  61 24 29 3c 6c 65 6e 3a  |..!.. .(a$)<len:|
00003110  61 24 2b 3d bd 3f 70 25  3a 70 25 2b 3d 31 3a ce  |a$+=.?p%:p%+=1:.|
00003120  0d 10 9a 07 3d 61 24 0d  10 a4 05 3a 0d 10 ae 19  |....=a$....:....|
00003130  dd a4 73 77 69 6e 75 6d  62 65 72 28 73 77 69 24  |..swinumber(swi$|
00003140  29 3a ea 20 6e 0d 10 b8  30 c8 99 20 22 58 4f 53  |):. n...0.. "XOS|
00003150  5f 53 57 49 4e 75 6d 62  65 72 46 72 6f 6d 53 74  |_SWINumberFromSt|
00003160  72 69 6e 67 22 2c 2c 73  77 69 24 20 b8 20 6e 3b  |ring",,swi$ . n;|
00003170  66 6c 61 67 73 0d 10 c2  18 e7 20 28 66 6c 61 67  |flags..... (flag|
00003180  73 20 80 31 29 3e 30 20  8c 6e 3d 2d 31 0d 10 cc  |s .1)>0 .n=-1...|
00003190  06 3d 6e 0d 10 d6 05 3a  0d 10 e0 37 f4 20 2a 2a  |.=n....:...7. **|
000031a0  2a 2a 2a 2a 2a 2a 20 4d  6f 64 75 6c 65 20 77 6f  |****** Module wo|
000031b0  72 6b 73 70 61 63 65 20  6d 61 6e 69 70 75 6c 61  |rkspace manipula|
000031c0  74 69 6f 6e 20 72 6f 75  74 69 6e 65 20 2a 2a 0d  |tion routine **.|
000031d0  10 ea 05 3a 0d 10 f4 14  dd a4 63 6c 61 69 6d 28  |...:......claim(|
000031e0  6c 65 6e 67 74 68 25 29  0d 10 fe 3a ea 20 66 6c  |length%)...:. fl|
000031f0  61 67 73 3a e7 20 6c 65  6e 67 74 68 25 3c 31 8c  |ags:. length%<1.|
00003200  85 20 26 38 30 33 2c 22  43 61 6e 6e 6f 74 20 63  |. &803,"Cannot c|
00003210  6c 61 69 6d 20 6e 65 67  61 74 69 76 65 20 52 4d  |laim negative RM|
00003220  41 22 0d 11 08 2f c8 99  20 22 58 4f 53 5f 4d 6f  |A".../.. "XOS_Mo|
00003230  64 75 6c 65 22 2c 36 2c  2c 2c 6c 65 6e 67 74 68  |dule",6,,,length|
00003240  25 20 b8 20 2c 2c 61 72  65 61 25 3b 66 6c 61 67  |% . ,,area%;flag|
00003250  73 0d 11 12 1c e7 20 28  66 6c 61 67 73 20 80 31  |s..... (flags .1|
00003260  29 3e 30 20 8c 61 72 65  61 25 3d 2d 31 0d 11 1c  |)>0 .area%=-1...|
00003270  0a 3d 61 72 65 61 25 0d  11 26 16 dd f2 72 65 6c  |.=area%..&...rel|
00003280  65 61 73 65 28 f8 20 61  72 65 61 25 29 0d 11 30  |ease(. area%)..0|
00003290  2f e7 20 61 72 65 61 25  3e 30 20 8c c8 99 20 22  |/. area%>0 ... "|
000032a0  4f 53 5f 4d 6f 64 75 6c  65 22 2c 37 2c 2c 61 72  |OS_Module",7,,ar|
000032b0  65 61 25 3a 61 72 65 61  25 3d 2d 31 0d 11 3a 05  |ea%:area%=-1..:.|
000032c0  e1 0d ff                                          |...|
000032c3