� > !RunImage
%� (c) Archimedes World March 1992

" version$="0.41 (24-Jun-1991)"
(
2 � q% 2500
< $q%="TASK"
F4 ș "Wimp_Initialise",200,!q%,"Algebra" � ,task%
P ș "Hourglass_On"
Z
d! S%=� "<Algebra$Dir>.Sprites"
n T%=�#S%+16
x
 � #S%
� � sp T%
� sp!0=T%
� sp!4=0
� sp!8=16
�
 sp!12=16
� ș "OS_SpriteOp",&209,sp
�5 ș "OS_SpriteOp",&20A,sp,"<Algebra$Dir>.Sprites"
�
�; sicon=�icon_create(-1,0,0,122,68,0,0,&3002,"!Algebra")
�
� claimquery$=""
� claimmenu$ =""
� claimdrag$ =""

 closedown  =�

 open%      =�

 open2%     =�

" changed%   =�

,

6& � text$(50),setting(50),flags(50)

@& � submenu(50),ref(50),menupos(20)

J

T � menu% 512

^ � indirect% &2000

h � msgblk% 256

r

|& iptr%=indirect%:iend%=iptr%+&2000

�

�3 mainw_title$ = "Algebraic notation calculator"

�

�1 �opentemplatefile("<Algebra$Dir>.Templates")

� �loadtemplate("help")

�' ș "Wimp_CreateWindow",,q% � help%

� �loadtemplate("progInfo")

�' ș "Wimp_CreateWindow",,q% � info%

� �loadtemplate("main")

�
 q%!64=sp

�( ș "Wimp_CreateWindow",,q% � mainw%

� �closetemplatefile

�
8 a=0:b=0:c=0:d=0:e=0:f=0:g=0:h=0:i=0:j=0:k=0:l=0:m=0
8 n=0:o=0:p=0:q=0:r=0:s=0:t=0:u=0:v=0:w=0:x=0:y=0:z=0
 �clear_variables
&
0) �icon_putdata(q%,info%,4,version$,0)
:
D error_flag%     =3
N � � �error
X
b ș "Hourglass_Off"
l �
v  �action(�poll(0))
� � closedown
�
� $q%="TASK"
�# ș "Wimp_CloseDown",task%,q%!0
��
�
�� �error
� � error_flag%=3 �
�3  �errorbox(�$+" (internal error code "+Þ+")")
� �
�  �errorbox(�$)
� �
� error_flag%=3
 ș "Hourglass_Smash"
�

 
� �ok(e$)
* error_flag%=1
4 � 1,e$
>�
H
R� �errorbox(r$)
\� r%
f !q%=�:$(q%+4)=r$+�(0)
p8 ș "Wimp_ReportError",q%,error_flag%,"Algebra" � r%
z � r%=2 � closedown=�
��
�
�=� �clickwindow(mousex%,mousey%,button%,handle%,icon%,ob%)
� Ȏ handle% �
�+  � mainw% : �clickmainw(button%,icon%)
�*  � help%  : �clickhelp(button%,icon%)
�-  � -2     : �clickiconbar(button%,icon%)
� �
��
�
�� �clickhelp(button%,icon%)
� � icon%=39 �
�  ș "Wimp_BorderIcon",,q%
  q%!8=0
  ș "Wimp_BorderIcon",,q%
  open2%=�
$  �closewindow(help%)
. �
8�
B
L"� �clickiconbar(button%,icon%)
V � icon%<0 � �
` Ȏ � �
j  � button%=2
t   � icon%=sicon �
~    �menu_sicon
�   �
�  � button%=4
�   � � open% �
�     �openwindow(mainw%,�,-1)
�    open%=�
�   �
� �
��
�
� � �clickmainw(button%,icon%)
� � button%=2 �
�  �menu_main
 �

 Ȏ � �
#  � (button% � 4)=4 � icon%<>-1
   Ȏ icon% �
(    � 1
2!     ș "Wimp_BorderIcon",,q%
<     q%!8=0
F!     ș "Wimp_BorderIcon",,q%
P     �evaluate_expression
Z    � 57
d!     ș "Wimp_BorderIcon",,q%
n     q%!8=0
x!     ș "Wimp_BorderIcon",,q%
�     �clear_variables
�   �
� �
��
�
�� �redrawwindow(handle%)
�� void%
� q%!0=handle%
�( ș "Wimp_RedrawWindow",0,q% � more%
� �lwaorigin(q%+4,x0%,y0%)
�
 ȕ more%
�  �newvals
�   ș "Wimp_BorderWindow",,q%
(  ș "Wimp_GetRectangle",,q% � more%
 �
�
"
,� �oktoclosew(handle%)
6� shutting%
@ shutting%=�
J � handle%=mainw% � open%=�
T=shutting%
^
h� �keypress
r	� ic%
| � q%!4<>-1 �
�)  ș "Wimp_GetCaretPosition",,msgblk%
�  ic%=msgblk%!4
�  Ȏ q%!0 �
�,   � mainw% : �keypress_mainw(ic%,q%!24)
�  �
� �
��
�
�!� �keypress_mainw(icon%,key%)
�� end_of_string%
� Ȏ key% �
�!  � 13 : �evaluate_expression
�!   ș "Wimp_ProcessKey",key%
 �
5 end_of_string%=�(�icon_getdata(q%,mainw%,icon%))
= �caret_setposition(mainw%,icon%,-1,-1,-1,end_of_string%)
&�
0
:� �menuselect_main
D� level0,level1,button%
N level0=q%!0
X level1=q%!4
b! ș "Wimp_GetPointerInfo",,q%
l button%=q%!8
v Ȏ level0 �
�	  � 1
�   Ȏ level1 �
�    � 0
�&     �insert_string("3.141592654")
�    � 1
�&     �insert_string("2.718281828")
�    � 2
�"     �insert_string("9.80665")
�    � 3
�$     �insert_string("299792458")
�   �
�	  � 2
�   �help
 �
=0

 � �menuselect_sicon
*� level0
4 level0=q%!0
> Ȏ level0 �
H	  � 1
R   closedown=�
\ �
f=0
p
z� �menu_main
�� no
� no=0:ȗ x,y,b
�> �define_menu_text("Info",no,0,0,0,0,&10021,info%,0):no+=1
�> �define_menu_text("Constant",no,0,0,0,0,&10021,1,0):no+=1
�; �define_menu_text("Help",no,0,0,0,0,&10021,0,-1):no+=1
�; �define_menu_text("Constant",no,0,0,0,0,0,-1,-1):no+=1
�9 �define_menu_text("pi",no,0,0,0,0,&10021,-1,0):no+=1
�8 �define_menu_text("e",no,0,0,0,0,&10021,-1,0):no+=1
�= �define_menu_text("g ms-�",no,0,0,0,0,&10021,-1,0):no+=1
�> �define_menu_text("c ms-�",no,0,0,0,0,&10021,-1,-1):no+=1
�� Add more constants here.
�* �create_menu("Algebra",no,150,x-64,y)
� menu_nr%=0
	 claimmenu$="main"
	�
	
	$� �menu_sicon
	. no=0:ȗ x,y,b
	8> �define_menu_text("Info",no,0,0,0,0,&10021,info%,0):no+=1
	B; �define_menu_text("Quit",no,0,0,0,0,&10021,0,-1):no+=1
	L3 �create_menu("Algebra",no,100,x-64,96+(no*40))
	V menu_nr%=0
	` claimmenu$="sicon"
	j�
	t
	~��whichmenu(menu$)
	�� void%
	� Ȏ menu$ �
	�'  � "main"  :void%=�menuselect_main
	�(  � "sicon" :void%=�menuselect_sicon
	� �
	��
	�
	�'� �openwindow(handle%,full%,front%)
	� q%!0=handle%
	�. � � full% � ș "Wimp_GetWindowState",0,q%
	� � front% � q%!28=-1
	� ș "Wimp_OpenWindow",0,q%
�


� �closewindow(handle%)
 � �oktoclosew(handle%) �
(  q%!0=handle%
2   ș "Wimp_CloseWindow",0,q%
< �
F�
P
Z� �poll(mask%)
d! ș "Wimp_Poll",mask%,q% � a%
n=a%
x
�� �action(evnt%)
� Ȏ evnt% �
�#  �     1 : �redrawwindow(q%!0)
�%  �     2 : �openwindow(q%!0,�,0)
�"  �     3 : �closewindow(q%!0)
�=  �     6 : �clickwindow(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)
�C  �     7 : � claimdrag$<>"" � junk=�("FNuserdrag_"+claimdrag$)
�  �     8 : �keypress
�9  �     9 : � claimmenu$<>"" � �whichmenu(claimmenu$)
�  � 17,18 : �receive(q%)
� �
��
�
� �receive(q%)
 Ȏ q%!16 �
	  � 0
"   $q%="TASK"
,%   ș "Wimp_CloseDown",task%,q%!0
6   �
@ �
J�
T
^� �lwaorigin(b,� x%,� y%)
h x%=b!0-b!16
r y%=b!12-b!20
|�
�
�I� �icon_create(window%,minx%,miny%,width%,height%,fg%,bg%,flg%,data$)
�� i%
� q%!0=window%
� q%!4=minx%:q%!8=miny%
�+ q%!12=minx%+width%:q%!16=miny%+height%
�# q%!20=flg% � bg%<<28 � fg%<<24
� � q%!20 � &100 �
�  i%=�data$,",")
�  q%!24=�(�data$,i%-1))
�  q%!28=-1
�  q%!32=�(�data$,i%+1))
� �
  $(q%+24)=�data$,11)
 �
# ș "Wimp_CreateIcon",0,q% � i%
&=i%
0
:$� �icon_deselect(handle%,iconh%)
D � iconh%<>-1 �
N  q%!0=handle%:q%!4=iconh%
X  q%!8=&200000:q%!12=&0
b   ș "Wimp_SetIconState",,q%
l �
v�
�
�.� DEF PROCicon_putdata(b,wh%,ih%,text$,rd)
� b!0=wh%
� b!4=ih%
� ș "Wimp_GetIconState",,b
� ș "Wimp_DeleteIcon",,b
� b!4=wh%
� $(b!28)=text$
�	 b+=4
� ș "Wimp_CreateIcon",,b
�7 � rd � ș "Wimp_ForceRedraw",b!0,b!4,b!8,b!12,b!16
�	 b-=4
��



6� �icon_putdata(q%,whandle%,ihandle%,data$,redraw)

 q%!0=whandle%

  q%!4=ihandle%

* ș "Wimp_GetIconState",,q%

4 $(q%!28)=data$

> � redraw �

H;  ș "Wimp_ForceRedraw",whandle%,q%!8,q%!12,q%!16,q%!20

R �

\�

f

p.� �icon_setbgcolour(b,whandle%,icon%,col%)

z6 !b=whandle%:b!4=icon%:b!8=col%<<28:b!12=&F0000000

� ș "Wimp_SetIconState",0,b

��

�

�.� �icon_setfgcolour(b,whandle%,icon%,col%)

�6 !b=whandle%:b!4=icon%:b!8=col%<<24:b!12=&0F000000

� ș "Wimp_SetIconState",0,b

��

�

�:� �icon_newsprite(b,whandle%,ihandle%,newname$,redraw)

� b!0=whandle%:b!4=ihandle%

� ș "Wimp_GetIconState",,b

� ș "Wimp_DeleteIcon",,b

�D b!4=b!8:b!8=b!12:b!12=b!16:b!16=b!20:b!20=b!24:$(b+24)=newname$
' ș "Wimp_CreateIcon",,b � ihandle%
; � redraw � ș "Wimp_ForceRedraw",b!0,b!4,b!8,b!12,b!16

=ihandle%
$
.)� �icon_getdata(q%,whandle%,ihandle%)
8 q%!0=whandle%
B q%!4=ihandle%
L ș "Wimp_GetIconState",,q%
V
=$(q%!28)
`
jF� �caret_setposition(whandle%,ihandle%,xoff%,yoff%,height%,index%)
tL ș "Wimp_SetCaretPosition",whandle%,ihandle%,xoff%,yoff%,height%,index%
~�
�
�� �newvals
� gtx=q%!36:gty=q%!40
� wbx=q%!4:wby=q%!8
� wtx=q%!12:wty=q%!16
� xsc=q%!20:ysc=q%!24
�" hp=wtx-wbx:vp=wty-wby:ebx=xsc
�" etx=xsc+hp:ety=ysc:eby=ysc-vp
��
�
�3� �define_menu_text(text$,n,w,t,d,s,flags,sm,l)
� text$(n)=text$
 setting(n)=0

9 � w � setting(n)=setting(n) � &04:flags=flags � &100
& � t � setting(n)=setting(n) � &01
& � d � setting(n)=setting(n) � &02
(& � l � setting(n)=setting(n) � &80
2  � s � flags=flags � &400000
< flags(n)=flags
F submenu(n)=sm
P�
Z
d'� �create_menu(title$,n,width%,x,y)
n mb%=menu%
x menus=0:q=0
� �
�!  menupos(menus)=mb%:menus+=1
�  $mb%=title$
�  mb%?12=7
�  mb%?13=2
�  mb%?14=7
�  mb%?15=0
�  mb%!16=width%
�  mb%!20=40
�  mb%!24=0
�  itemptr=mb%+28
�  �
�   itemptr!0=setting(q)
   ref(q)=itemptr+4
)   itemptr!8=flags(q) � 0<<28 � 7<<24
   � (flags(q) � &100)=0 �
"    $(itemptr+12)=text$(q)
,   �
6    pos=�text$(q),"(")
@&    itemptr!12=�(�text$(q),pos-1))
J    itemptr!16=-1
T0    itemptr!20=�(�text$(q),�(text$(q))-pos))
^   �
h   itemptr+=24:q+=1
r  � (setting(q-1) � &80)>0
|  mb%=itemptr
�#  � q<>n � title$=text$(q):q+=1
�
 � q=n
� � q=0 � n-1
�)  � submenu(q)>0 � submenu(q)<menus �
�"   !ref(q)=menupos(submenu(q))
�  �
�   !ref(q)=submenu(q)
�  �
� � q
�$ ș "Wimp_CreateMenu",,menu%,x,y
��
�
�� �opentemplatefile(file$)
" ș "Wimp_OpenTemplate",,file$
�

&� �loadtemplate(name$)
0� type%,pos%,x%
:L ș "Wimp_LoadTemplate",,q%,iptr%,iend%,-1,name$,0 �type%,,iptr%,,,,pos%
D�
N
X� �closetemplatefile
b ș "Wimp_CloseTemplate"
l�
v
�#� �mouse_rectangle(x%,y%,w%,h%)
� ȗ ȓ x%,y%,w%,h%
��
�
�� �mouse_limit(b,whandle%)
� b!0=whandle%
�  ș "Wimp_GetWindowState",,b
�0 �mouse_rectangle(b!4,b!8,b!12-b!4,b!16-b!8)
��
�
�� �delay(seconds)
�
� time
� time = � + (seconds * 100)
 �
 � � > time
�
 
*(� �Window_ReTitle(b,whandle%,title$)
4� woblk
> � woblk 5
H b!0=whandle%
R ș "Wimp_GetWindowInfo",,b
\ $(!(b+76))=title$
f woblk!0=whandle%
p& ș "Wimp_GetWindowOutline",,woblk
zE ș "Wimp_ForceRedraw",-1,woblk!4,(woblk!16)-40,woblk!12,woblk!16
��
�
�� �leaf(path$)
� ȕ �path$,".")
�!  path$=�path$,�path$,".")+1)
� �
�
=path$
�
�� �gname(ptr)
�
 f$=""
� ȕ ?ptr<>0 � ?ptr<>13
�  f$=f$+�?ptr:ptr+=1
� �
=f$

� �help
$ � � open2% �
.  open2%=�
8  q%!0=help%
B"  ș "Wimp_GetWindowState",,q%
L
  q%!24=0
V  q%!28=-1
`  ș "Wimp_OpenWindow",,q%
j �
t�
~
�� �evaluate_expression
�� formula$,answer$
� �set_variables
�( formula$=�icon_getdata(q%,mainw%,0)
� � formula$="" �
�&  �icon_putdata(q%,mainw%,4,"0",�)
� �
�$  formula$=�lower_case(formula$)
�)  formula$=�insert_brackets(formula$)
�  answer$=�(�(formula$))
�*  �icon_putdata(q%,mainw%,4,answer$,�)
� �
�


� �clear_variables
 ș "Hourglass_On"
() a=0:�icon_putdata(q%,mainw%,31,�a,�)
2) b=0:�icon_putdata(q%,mainw%,32,�b,�)
<) c=0:�icon_putdata(q%,mainw%,33,�c,�)
F) d=0:�icon_putdata(q%,mainw%,34,�d,�)
P) e=0:�icon_putdata(q%,mainw%,35,�e,�)
Z) f=0:�icon_putdata(q%,mainw%,36,�f,�)
d) g=0:�icon_putdata(q%,mainw%,37,�g,�)
n) h=0:�icon_putdata(q%,mainw%,38,�h,�)
x) i=0:�icon_putdata(q%,mainw%,39,�i,�)
�) j=0:�icon_putdata(q%,mainw%,40,�j,�)
�) k=0:�icon_putdata(q%,mainw%,41,�k,�)
�) l=0:�icon_putdata(q%,mainw%,42,�l,�)
�) m=0:�icon_putdata(q%,mainw%,43,�m,�)
�) n=0:�icon_putdata(q%,mainw%,44,�n,�)
�) o=0:�icon_putdata(q%,mainw%,45,�o,�)
�) p=0:�icon_putdata(q%,mainw%,46,�p,�)
�) q=0:�icon_putdata(q%,mainw%,47,�q,�)
�) r=0:�icon_putdata(q%,mainw%,48,�r,�)
�) s=0:�icon_putdata(q%,mainw%,49,�s,�)
�) t=0:�icon_putdata(q%,mainw%,50,�t,�)
�) u=0:�icon_putdata(q%,mainw%,51,�u,�)
�) v=0:�icon_putdata(q%,mainw%,52,�v,�)
) w=0:�icon_putdata(q%,mainw%,53,�w,�)
) x=0:�icon_putdata(q%,mainw%,54,�x,�)
) y=0:�icon_putdata(q%,mainw%,55,�y,�)
") z=0:�icon_putdata(q%,mainw%,56,�z,�)
, �clear_answer
6 ș "Hourglass_Off"
@�
J
T� �clear_answer
^% �icon_putdata(q%,mainw%,4,"0",�)
h�
r
|� �set_variables
� ș "Hourglass_On"
�# a=��icon_getdata(q%,mainw%,31)
�# b=��icon_getdata(q%,mainw%,32)
�# c=��icon_getdata(q%,mainw%,33)
�# d=��icon_getdata(q%,mainw%,34)
�# e=��icon_getdata(q%,mainw%,35)
�# f=��icon_getdata(q%,mainw%,36)
�# g=��icon_getdata(q%,mainw%,37)
�# h=��icon_getdata(q%,mainw%,38)
�# i=��icon_getdata(q%,mainw%,39)
�# j=��icon_getdata(q%,mainw%,40)
�# k=��icon_getdata(q%,mainw%,41)
�# l=��icon_getdata(q%,mainw%,42)
# m=��icon_getdata(q%,mainw%,43)
# n=��icon_getdata(q%,mainw%,44)
# o=��icon_getdata(q%,mainw%,45)
&# p=��icon_getdata(q%,mainw%,46)
0# q=��icon_getdata(q%,mainw%,47)
:# r=��icon_getdata(q%,mainw%,48)
D# s=��icon_getdata(q%,mainw%,49)
N# t=��icon_getdata(q%,mainw%,50)
X# u=��icon_getdata(q%,mainw%,51)
b# v=��icon_getdata(q%,mainw%,52)
l# w=��icon_getdata(q%,mainw%,53)
v# x=��icon_getdata(q%,mainw%,54)
�# y=��icon_getdata(q%,mainw%,55)
�# z=��icon_getdata(q%,mainw%,56)
� ș "Hourglass_Off"
��
�
�� �lower_case(string$)
�
� loop
� � loop=1 � �(string$)
�7  � �string$,loop,1)>="A" � �string$,loop,1)<="Z" �
�6   �string$,loop,1) = �( �(�string$,loop,1)) � 32)
�  �
� � loop
�=string$

� �insert_string(string$)

� loop
  � loop=1 � �(string$)
*.  ș "Wimp_ProcessKey",�(�string$,loop,1))
4  dummy=�poll(0)
> � loop
H�
R
\� �insert_brackets(string$)
f(� loop,loop2,char$,tmp1$,tmp2$,tmp3$
p � loop=0 � 1
z  � loop2=1 � �(string$)
�   char$=�string$,loop2,1)
�%   next_char$=�string$,loop2+1,1)
�3   � �variable(char$) � �variable(next_char$) �
�    tmp1$=�string$,loop2)
�    tmp2$="*"
�(    tmp3$=�string$,�(string$)-loop2)
�!    string$=tmp1$+tmp2$+tmp3$
�   �
�1   � �number(char$) � �variable(next_char$) �
�    tmp1$=�string$,loop2)
�    tmp2$="*"
�(    tmp3$=�string$,�(string$)-loop2)
�!    string$=tmp1$+tmp2$+tmp3$
   �

  � loop2
 � loop
$=string$
.
8� �variable(char$)
B� flag%
L( � �(char$)>=�"a" � �(char$)<=�"z" �
V
  flag%=�
` �
j
  flag%=�
t �
~
=flag%
�
�� �number(char$)
�� flag%
�( � �(char$)>=�"0" � �(char$)<=�"9" �
�
  flag%=�
� �
�
  flag%=�
� �
�
=flag%
�

00000000  0d 00 0a 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 0f 25 f4 20 28  63 29 20 41 72 63 68 69  |e...%. (c) Archi|
00000020  6d 65 64 65 73 20 57 6f  72 6c 64 20 4d 61 72 63  |medes World Marc|
00000030  68 20 31 39 39 32 0d 00  14 04 0d 00 1e 22 20 76  |h 1992......." v|
00000040  65 72 73 69 6f 6e 24 3d  22 30 2e 34 31 20 28 32  |ersion$="0.41 (2|
00000050  34 2d 4a 75 6e 2d 31 39  39 31 29 22 0d 00 28 04  |4-Jun-1991)"..(.|
00000060  0d 00 32 0e 20 de 20 71  25 20 32 35 30 30 0d 00  |..2. . q% 2500..|
00000070  3c 0f 20 24 71 25 3d 22  54 41 53 4b 22 0d 00 46  |<. $q%="TASK"..F|
00000080  34 20 c8 99 20 22 57 69  6d 70 5f 49 6e 69 74 69  |4 .. "Wimp_Initi|
00000090  61 6c 69 73 65 22 2c 32  30 30 2c 21 71 25 2c 22  |alise",200,!q%,"|
000000a0  41 6c 67 65 62 72 61 22  20 b8 20 2c 74 61 73 6b  |Algebra" . ,task|
000000b0  25 0d 00 50 16 20 c8 99  20 22 48 6f 75 72 67 6c  |%..P. .. "Hourgl|
000000c0  61 73 73 5f 4f 6e 22 0d  00 5a 04 0d 00 64 21 20  |ass_On"..Z...d! |
000000d0  53 25 3d 8e 20 22 3c 41  6c 67 65 62 72 61 24 44  |S%=. "<Algebra$D|
000000e0  69 72 3e 2e 53 70 72 69  74 65 73 22 0d 00 6e 0f  |ir>.Sprites"..n.|
000000f0  20 54 25 3d a2 23 53 25  2b 31 36 0d 00 78 0a 20  | T%=.#S%+16..x. |
00000100  d9 20 23 53 25 0d 00 82  0c 20 de 20 73 70 20 54  |. #S%.... . sp T|
00000110  25 0d 00 8c 0c 20 73 70  21 30 3d 54 25 0d 00 96  |%.... sp!0=T%...|
00000120  0b 20 73 70 21 34 3d 30  0d 00 a0 0c 20 73 70 21  |. sp!4=0.... sp!|
00000130  38 3d 31 36 0d 00 aa 0d  20 73 70 21 31 32 3d 31  |8=16.... sp!12=1|
00000140  36 0d 00 b4 1d 20 c8 99  20 22 4f 53 5f 53 70 72  |6.... .. "OS_Spr|
00000150  69 74 65 4f 70 22 2c 26  32 30 39 2c 73 70 0d 00  |iteOp",&209,sp..|
00000160  be 35 20 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |.5 .. "OS_Sprite|
00000170  4f 70 22 2c 26 32 30 41  2c 73 70 2c 22 3c 41 6c  |Op",&20A,sp,"<Al|
00000180  67 65 62 72 61 24 44 69  72 3e 2e 53 70 72 69 74  |gebra$Dir>.Sprit|
00000190  65 73 22 0d 00 c8 04 0d  00 d2 3b 20 73 69 63 6f  |es".......; sico|
000001a0  6e 3d a4 69 63 6f 6e 5f  63 72 65 61 74 65 28 2d  |n=.icon_create(-|
000001b0  31 2c 30 2c 30 2c 31 32  32 2c 36 38 2c 30 2c 30  |1,0,0,122,68,0,0|
000001c0  2c 26 33 30 30 32 2c 22  21 41 6c 67 65 62 72 61  |,&3002,"!Algebra|
000001d0  22 29 0d 00 dc 04 0d 00  e6 13 20 63 6c 61 69 6d  |")........ claim|
000001e0  71 75 65 72 79 24 3d 22  22 0d 00 f0 13 20 63 6c  |query$="".... cl|
000001f0  61 69 6d 6d 65 6e 75 24  20 3d 22 22 0d 00 fa 13  |aimmenu$ =""....|
00000200  20 63 6c 61 69 6d 64 72  61 67 24 20 3d 22 22 0d  | claimdrag$ ="".|
00000210  01 04 12 20 63 6c 6f 73  65 64 6f 77 6e 20 20 3d  |... closedown  =|
00000220  a3 0d 01 0e 12 20 6f 70  65 6e 25 20 20 20 20 20  |..... open%     |
00000230  20 3d a3 0d 01 18 12 20  6f 70 65 6e 32 25 20 20  | =..... open2%  |
00000240  20 20 20 3d a3 0d 01 22  12 20 63 68 61 6e 67 65  |   =...". change|
00000250  64 25 20 20 20 3d a3 0d  01 2c 04 0d 01 36 26 20  |d%   =...,...6& |
00000260  de 20 74 65 78 74 24 28  35 30 29 2c 73 65 74 74  |. text$(50),sett|
00000270  69 6e 67 28 35 30 29 2c  66 6c 61 67 73 28 35 30  |ing(50),flags(50|
00000280  29 0d 01 40 26 20 de 20  73 75 62 6d 65 6e 75 28  |)..@& . submenu(|
00000290  35 30 29 2c 72 65 66 28  35 30 29 2c 6d 65 6e 75  |50),ref(50),menu|
000002a0  70 6f 73 28 32 30 29 0d  01 4a 04 0d 01 54 10 20  |pos(20)..J...T. |
000002b0  de 20 6d 65 6e 75 25 20  35 31 32 0d 01 5e 16 20  |. menu% 512..^. |
000002c0  de 20 69 6e 64 69 72 65  63 74 25 20 26 32 30 30  |. indirect% &200|
000002d0  30 0d 01 68 12 20 de 20  6d 73 67 62 6c 6b 25 20  |0..h. . msgblk% |
000002e0  32 35 36 0d 01 72 04 0d  01 7c 26 20 69 70 74 72  |256..r...|& iptr|
000002f0  25 3d 69 6e 64 69 72 65  63 74 25 3a 69 65 6e 64  |%=indirect%:iend|
00000300  25 3d 69 70 74 72 25 2b  26 32 30 30 30 0d 01 86  |%=iptr%+&2000...|
00000310  04 0d 01 90 33 20 6d 61  69 6e 77 5f 74 69 74 6c  |....3 mainw_titl|
00000320  65 24 20 3d 20 22 41 6c  67 65 62 72 61 69 63 20  |e$ = "Algebraic |
00000330  6e 6f 74 61 74 69 6f 6e  20 63 61 6c 63 75 6c 61  |notation calcula|
00000340  74 6f 72 22 0d 01 9a 04  0d 01 a4 31 20 f2 6f 70  |tor".......1 .op|
00000350  65 6e 74 65 6d 70 6c 61  74 65 66 69 6c 65 28 22  |entemplatefile("|
00000360  3c 41 6c 67 65 62 72 61  24 44 69 72 3e 2e 54 65  |<Algebra$Dir>.Te|
00000370  6d 70 6c 61 74 65 73 22  29 0d 01 ae 1a 20 f2 6c  |mplates").... .l|
00000380  6f 61 64 74 65 6d 70 6c  61 74 65 28 22 68 65 6c  |oadtemplate("hel|
00000390  70 22 29 0d 01 b8 27 20  c8 99 20 22 57 69 6d 70  |p")...' .. "Wimp|
000003a0  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
000003b0  71 25 20 b8 20 68 65 6c  70 25 0d 01 c2 1e 20 f2  |q% . help%.... .|
000003c0  6c 6f 61 64 74 65 6d 70  6c 61 74 65 28 22 70 72  |loadtemplate("pr|
000003d0  6f 67 49 6e 66 6f 22 29  0d 01 cc 27 20 c8 99 20  |ogInfo")...' .. |
000003e0  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
000003f0  6f 77 22 2c 2c 71 25 20  b8 20 69 6e 66 6f 25 0d  |ow",,q% . info%.|
00000400  01 d6 1a 20 f2 6c 6f 61  64 74 65 6d 70 6c 61 74  |... .loadtemplat|
00000410  65 28 22 6d 61 69 6e 22  29 0d 01 e0 0d 20 71 25  |e("main").... q%|
00000420  21 36 34 3d 73 70 0d 01  ea 28 20 c8 99 20 22 57  |!64=sp...( .. "W|
00000430  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
00000440  22 2c 2c 71 25 20 b8 20  6d 61 69 6e 77 25 0d 01  |",,q% . mainw%..|
00000450  f4 17 20 f2 63 6c 6f 73  65 74 65 6d 70 6c 61 74  |.. .closetemplat|
00000460  65 66 69 6c 65 0d 01 fe  04 0d 02 08 38 20 61 3d  |efile.......8 a=|
00000470  30 3a 62 3d 30 3a 63 3d  30 3a 64 3d 30 3a 65 3d  |0:b=0:c=0:d=0:e=|
00000480  30 3a 66 3d 30 3a 67 3d  30 3a 68 3d 30 3a 69 3d  |0:f=0:g=0:h=0:i=|
00000490  30 3a 6a 3d 30 3a 6b 3d  30 3a 6c 3d 30 3a 6d 3d  |0:j=0:k=0:l=0:m=|
000004a0  30 0d 02 12 38 20 6e 3d  30 3a 6f 3d 30 3a 70 3d  |0...8 n=0:o=0:p=|
000004b0  30 3a 71 3d 30 3a 72 3d  30 3a 73 3d 30 3a 74 3d  |0:q=0:r=0:s=0:t=|
000004c0  30 3a 75 3d 30 3a 76 3d  30 3a 77 3d 30 3a 78 3d  |0:u=0:v=0:w=0:x=|
000004d0  30 3a 79 3d 30 3a 7a 3d  30 0d 02 1c 15 20 f2 63  |0:y=0:z=0.... .c|
000004e0  6c 65 61 72 5f 76 61 72  69 61 62 6c 65 73 0d 02  |lear_variables..|
000004f0  26 04 0d 02 30 29 20 f2  69 63 6f 6e 5f 70 75 74  |&...0) .icon_put|
00000500  64 61 74 61 28 71 25 2c  69 6e 66 6f 25 2c 34 2c  |data(q%,info%,4,|
00000510  76 65 72 73 69 6f 6e 24  2c 30 29 0d 02 3a 04 0d  |version$,0)..:..|
00000520  02 44 17 20 65 72 72 6f  72 5f 66 6c 61 67 25 20  |.D. error_flag% |
00000530  20 20 20 20 3d 33 0d 02  4e 0f 20 ee 20 85 20 f2  |    =3..N. . . .|
00000540  65 72 72 6f 72 0d 02 58  04 0d 02 62 17 20 c8 99  |error..X...b. ..|
00000550  20 22 48 6f 75 72 67 6c  61 73 73 5f 4f 66 66 22  | "Hourglass_Off"|
00000560  0d 02 6c 06 20 f5 0d 02  76 17 20 20 f2 61 63 74  |..l. ...v.  .act|
00000570  69 6f 6e 28 a4 70 6f 6c  6c 28 30 29 29 0d 02 80  |ion(.poll(0))...|
00000580  10 20 fd 20 63 6c 6f 73  65 64 6f 77 6e 0d 02 8a  |. . closedown...|
00000590  04 0d 02 94 0f 20 24 71  25 3d 22 54 41 53 4b 22  |..... $q%="TASK"|
000005a0  0d 02 9e 23 20 c8 99 20  22 57 69 6d 70 5f 43 6c  |...# .. "Wimp_Cl|
000005b0  6f 73 65 44 6f 77 6e 22  2c 74 61 73 6b 25 2c 71  |oseDown",task%,q|
000005c0  25 21 30 0d 02 a8 05 e0  0d 02 b2 04 0d 02 bc 0c  |%!0.............|
000005d0  dd 20 f2 65 72 72 6f 72  0d 02 c6 16 20 e7 20 65  |. .error.... . e|
000005e0  72 72 6f 72 5f 66 6c 61  67 25 3d 33 20 8c 0d 02  |rror_flag%=3 ...|
000005f0  d0 33 20 20 f2 65 72 72  6f 72 62 6f 78 28 f6 24  |.3  .errorbox(.$|
00000600  2b 22 20 28 69 6e 74 65  72 6e 61 6c 20 65 72 72  |+" (internal err|
00000610  6f 72 20 63 6f 64 65 20  22 2b c3 9e 2b 22 29 22  |or code "+..+")"|
00000620  29 0d 02 da 06 20 cc 0d  02 e4 13 20 20 f2 65 72  |).... .....  .er|
00000630  72 6f 72 62 6f 78 28 f6  24 29 0d 02 ee 06 20 cd  |rorbox(.$).... .|
00000640  0d 02 f8 12 20 65 72 72  6f 72 5f 66 6c 61 67 25  |.... error_flag%|
00000650  3d 33 0d 03 02 19 20 c8  99 20 22 48 6f 75 72 67  |=3.... .. "Hourg|
00000660  6c 61 73 73 5f 53 6d 61  73 68 22 0d 03 0c 05 e1  |lass_Smash".....|
00000670  0d 03 16 04 0d 03 20 0d  dd 20 f2 6f 6b 28 65 24  |...... .. .ok(e$|
00000680  29 0d 03 2a 12 20 65 72  72 6f 72 5f 66 6c 61 67  |)..*. error_flag|
00000690  25 3d 31 0d 03 34 0b 20  85 20 31 2c 65 24 0d 03  |%=1..4. . 1,e$..|
000006a0  3e 05 e1 0d 03 48 04 0d  03 52 13 dd 20 f2 65 72  |>....H...R.. .er|
000006b0  72 6f 72 62 6f 78 28 72  24 29 0d 03 5c 08 ea 20  |rorbox(r$)..\.. |
000006c0  72 25 0d 03 66 1a 20 21  71 25 3d 9f 3a 24 28 71  |r%..f. !q%=.:$(q|
000006d0  25 2b 34 29 3d 72 24 2b  bd 28 30 29 0d 03 70 38  |%+4)=r$+.(0)..p8|
000006e0  20 c8 99 20 22 57 69 6d  70 5f 52 65 70 6f 72 74  | .. "Wimp_Report|
000006f0  45 72 72 6f 72 22 2c 71  25 2c 65 72 72 6f 72 5f  |Error",q%,error_|
00000700  66 6c 61 67 25 2c 22 41  6c 67 65 62 72 61 22 20  |flag%,"Algebra" |
00000710  b8 20 72 25 0d 03 7a 19  20 e7 20 72 25 3d 32 20  |. r%..z. . r%=2 |
00000720  8c 20 63 6c 6f 73 65 64  6f 77 6e 3d b9 0d 03 84  |. closedown=....|
00000730  05 e1 0d 03 8e 04 0d 03  98 3d dd 20 f2 63 6c 69  |.........=. .cli|
00000740  63 6b 77 69 6e 64 6f 77  28 6d 6f 75 73 65 78 25  |ckwindow(mousex%|
00000750  2c 6d 6f 75 73 65 79 25  2c 62 75 74 74 6f 6e 25  |,mousey%,button%|
00000760  2c 68 61 6e 64 6c 65 25  2c 69 63 6f 6e 25 2c 6f  |,handle%,icon%,o|
00000770  62 25 29 0d 03 a2 11 20  c8 8e 20 68 61 6e 64 6c  |b%).... .. handl|
00000780  65 25 20 ca 0d 03 ac 2b  20 20 c9 20 6d 61 69 6e  |e% ....+  . main|
00000790  77 25 20 3a 20 f2 63 6c  69 63 6b 6d 61 69 6e 77  |w% : .clickmainw|
000007a0  28 62 75 74 74 6f 6e 25  2c 69 63 6f 6e 25 29 0d  |(button%,icon%).|
000007b0  03 b6 2a 20 20 c9 20 68  65 6c 70 25 20 20 3a 20  |..*  . help%  : |
000007c0  f2 63 6c 69 63 6b 68 65  6c 70 28 62 75 74 74 6f  |.clickhelp(butto|
000007d0  6e 25 2c 69 63 6f 6e 25  29 0d 03 c0 2d 20 20 c9  |n%,icon%)...-  .|
000007e0  20 2d 32 20 20 20 20 20  3a 20 f2 63 6c 69 63 6b  | -2     : .click|
000007f0  69 63 6f 6e 62 61 72 28  62 75 74 74 6f 6e 25 2c  |iconbar(button%,|
00000800  69 63 6f 6e 25 29 0d 03  ca 06 20 cb 0d 03 d4 05  |icon%).... .....|
00000810  e1 0d 03 de 04 0d 03 e8  1f dd 20 f2 63 6c 69 63  |.......... .clic|
00000820  6b 68 65 6c 70 28 62 75  74 74 6f 6e 25 2c 69 63  |khelp(button%,ic|
00000830  6f 6e 25 29 0d 03 f2 11  20 e7 20 69 63 6f 6e 25  |on%).... . icon%|
00000840  3d 33 39 20 8c 0d 03 fc  1e 20 20 c8 99 20 22 57  |=39 .....  .. "W|
00000850  69 6d 70 5f 42 6f 72 64  65 72 49 63 6f 6e 22 2c  |imp_BorderIcon",|
00000860  2c 71 25 0d 04 06 0c 20  20 71 25 21 38 3d 30 0d  |,q%....  q%!8=0.|
00000870  04 10 1e 20 20 c8 99 20  22 57 69 6d 70 5f 42 6f  |...  .. "Wimp_Bo|
00000880  72 64 65 72 49 63 6f 6e  22 2c 2c 71 25 0d 04 1a  |rderIcon",,q%...|
00000890  0e 20 20 6f 70 65 6e 32  25 3d a3 0d 04 24 19 20  |.  open2%=...$. |
000008a0  20 f2 63 6c 6f 73 65 77  69 6e 64 6f 77 28 68 65  | .closewindow(he|
000008b0  6c 70 25 29 0d 04 2e 06  20 cd 0d 04 38 05 e1 0d  |lp%).... ...8...|
000008c0  04 42 04 0d 04 4c 22 dd  20 f2 63 6c 69 63 6b 69  |.B...L". .clicki|
000008d0  63 6f 6e 62 61 72 28 62  75 74 74 6f 6e 25 2c 69  |conbar(button%,i|
000008e0  63 6f 6e 25 29 0d 04 56  12 20 e7 20 69 63 6f 6e  |con%)..V. . icon|
000008f0  25 3c 30 20 8c 20 e1 0d  04 60 0b 20 c8 8e 20 b9  |%<0 . ...`. .. .|
00000900  20 ca 0d 04 6a 11 20 20  c9 20 62 75 74 74 6f 6e  | ...j.  . button|
00000910  25 3d 32 0d 04 74 16 20  20 20 e7 20 69 63 6f 6e  |%=2..t.   . icon|
00000920  25 3d 73 69 63 6f 6e 20  8c 0d 04 7e 13 20 20 20  |%=sicon ...~.   |
00000930  20 f2 6d 65 6e 75 5f 73  69 63 6f 6e 0d 04 88 08  | .menu_sicon....|
00000940  20 20 20 cd 0d 04 92 11  20 20 c9 20 62 75 74 74  |   .....  . butt|
00000950  6f 6e 25 3d 34 0d 04 9c  12 20 20 20 e7 20 ac 20  |on%=4....   . . |
00000960  6f 70 65 6e 25 20 8c 0d  04 a6 20 20 20 20 20 f2  |open% ....     .|
00000970  6f 70 65 6e 77 69 6e 64  6f 77 28 6d 61 69 6e 77  |openwindow(mainw|
00000980  25 2c a3 2c 2d 31 29 0d  04 b0 0f 20 20 20 20 6f  |%,.,-1)....    o|
00000990  70 65 6e 25 3d b9 0d 04  ba 08 20 20 20 cd 0d 04  |pen%=.....   ...|
000009a0  c4 06 20 cb 0d 04 ce 05  e1 0d 04 d8 04 0d 04 e2  |.. .............|
000009b0  20 dd 20 f2 63 6c 69 63  6b 6d 61 69 6e 77 28 62  | . .clickmainw(b|
000009c0  75 74 74 6f 6e 25 2c 69  63 6f 6e 25 29 0d 04 ec  |utton%,icon%)...|
000009d0  12 20 e7 20 62 75 74 74  6f 6e 25 3d 32 20 8c 0d  |. . button%=2 ..|
000009e0  04 f6 10 20 20 f2 6d 65  6e 75 5f 6d 61 69 6e 0d  |...  .menu_main.|
000009f0  05 00 06 20 cd 0d 05 0a  0b 20 c8 8e 20 b9 20 ca  |... ..... .. . .|
00000a00  0d 05 14 23 20 20 c9 20  28 62 75 74 74 6f 6e 25  |...#  . (button%|
00000a10  20 80 20 34 29 3d 34 20  80 20 69 63 6f 6e 25 3c  | . 4)=4 . icon%<|
00000a20  3e 2d 31 0d 05 1e 11 20  20 20 c8 8e 20 69 63 6f  |>-1....   .. ico|
00000a30  6e 25 20 ca 0d 05 28 0b  20 20 20 20 c9 20 31 0d  |n% ...(.    . 1.|
00000a40  05 32 21 20 20 20 20 20  c8 99 20 22 57 69 6d 70  |.2!     .. "Wimp|
00000a50  5f 42 6f 72 64 65 72 49  63 6f 6e 22 2c 2c 71 25  |_BorderIcon",,q%|
00000a60  0d 05 3c 0f 20 20 20 20  20 71 25 21 38 3d 30 0d  |..<.     q%!8=0.|
00000a70  05 46 21 20 20 20 20 20  c8 99 20 22 57 69 6d 70  |.F!     .. "Wimp|
00000a80  5f 42 6f 72 64 65 72 49  63 6f 6e 22 2c 2c 71 25  |_BorderIcon",,q%|
00000a90  0d 05 50 1d 20 20 20 20  20 f2 65 76 61 6c 75 61  |..P.     .evalua|
00000aa0  74 65 5f 65 78 70 72 65  73 73 69 6f 6e 0d 05 5a  |te_expression..Z|
00000ab0  0c 20 20 20 20 c9 20 35  37 0d 05 64 21 20 20 20  |.    . 57..d!   |
00000ac0  20 20 c8 99 20 22 57 69  6d 70 5f 42 6f 72 64 65  |  .. "Wimp_Borde|
00000ad0  72 49 63 6f 6e 22 2c 2c  71 25 0d 05 6e 0f 20 20  |rIcon",,q%..n.  |
00000ae0  20 20 20 71 25 21 38 3d  30 0d 05 78 21 20 20 20  |   q%!8=0..x!   |
00000af0  20 20 c8 99 20 22 57 69  6d 70 5f 42 6f 72 64 65  |  .. "Wimp_Borde|
00000b00  72 49 63 6f 6e 22 2c 2c  71 25 0d 05 82 19 20 20  |rIcon",,q%....  |
00000b10  20 20 20 f2 63 6c 65 61  72 5f 76 61 72 69 61 62  |   .clear_variab|
00000b20  6c 65 73 0d 05 8c 08 20  20 20 cb 0d 05 96 06 20  |les....   ..... |
00000b30  cb 0d 05 a0 05 e1 0d 05  aa 04 0d 05 b4 1c dd 20  |............... |
00000b40  f2 72 65 64 72 61 77 77  69 6e 64 6f 77 28 68 61  |.redrawwindow(ha|
00000b50  6e 64 6c 65 25 29 0d 05  be 0b ea 20 76 6f 69 64  |ndle%)..... void|
00000b60  25 0d 05 c8 11 20 71 25  21 30 3d 68 61 6e 64 6c  |%.... q%!0=handl|
00000b70  65 25 0d 05 d2 28 20 c8  99 20 22 57 69 6d 70 5f  |e%...( .. "Wimp_|
00000b80  52 65 64 72 61 77 57 69  6e 64 6f 77 22 2c 30 2c  |RedrawWindow",0,|
00000b90  71 25 20 b8 20 6d 6f 72  65 25 0d 05 dc 1d 20 f2  |q% . more%.... .|
00000ba0  6c 77 61 6f 72 69 67 69  6e 28 71 25 2b 34 2c 78  |lwaorigin(q%+4,x|
00000bb0  30 25 2c 79 30 25 29 0d  05 e6 0d 20 c8 95 20 6d  |0%,y0%).... .. m|
00000bc0  6f 72 65 25 0d 05 f0 0e  20 20 f2 6e 65 77 76 61  |ore%....  .newva|
00000bd0  6c 73 0d 05 fa 20 20 20  c8 99 20 22 57 69 6d 70  |ls...   .. "Wimp|
00000be0  5f 42 6f 72 64 65 72 57  69 6e 64 6f 77 22 2c 2c  |_BorderWindow",,|
00000bf0  71 25 0d 06 04 28 20 20  c8 99 20 22 57 69 6d 70  |q%...(  .. "Wimp|
00000c00  5f 47 65 74 52 65 63 74  61 6e 67 6c 65 22 2c 2c  |_GetRectangle",,|
00000c10  71 25 20 b8 20 6d 6f 72  65 25 0d 06 0e 06 20 ce  |q% . more%.... .|
00000c20  0d 06 18 05 e1 0d 06 22  04 0d 06 2c 1a dd 20 a4  |......."...,.. .|
00000c30  6f 6b 74 6f 63 6c 6f 73  65 77 28 68 61 6e 64 6c  |oktoclosew(handl|
00000c40  65 25 29 0d 06 36 0f ea  20 73 68 75 74 74 69 6e  |e%)..6.. shuttin|
00000c50  67 25 0d 06 40 10 20 73  68 75 74 74 69 6e 67 25  |g%..@. shutting%|
00000c60  3d b9 0d 06 4a 1f 20 e7  20 68 61 6e 64 6c 65 25  |=...J. . handle%|
00000c70  3d 6d 61 69 6e 77 25 20  8c 20 6f 70 65 6e 25 3d  |=mainw% . open%=|
00000c80  a3 0d 06 54 0e 3d 73 68  75 74 74 69 6e 67 25 0d  |...T.=shutting%.|
00000c90  06 5e 04 0d 06 68 0f dd  20 f2 6b 65 79 70 72 65  |.^...h.. .keypre|
00000ca0  73 73 0d 06 72 09 ea 20  69 63 25 0d 06 7c 11 20  |ss..r.. ic%..|. |
00000cb0  e7 20 71 25 21 34 3c 3e  2d 31 20 8c 0d 06 86 29  |. q%!4<>-1 ....)|
00000cc0  20 20 c8 99 20 22 57 69  6d 70 5f 47 65 74 43 61  |  .. "Wimp_GetCa|
00000cd0  72 65 74 50 6f 73 69 74  69 6f 6e 22 2c 2c 6d 73  |retPosition",,ms|
00000ce0  67 62 6c 6b 25 0d 06 90  13 20 20 69 63 25 3d 6d  |gblk%....  ic%=m|
00000cf0  73 67 62 6c 6b 25 21 34  0d 06 9a 0f 20 20 c8 8e  |sgblk%!4....  ..|
00000d00  20 71 25 21 30 20 ca 0d  06 a4 2c 20 20 20 c9 20  | q%!0 ....,   . |
00000d10  6d 61 69 6e 77 25 20 3a  20 f2 6b 65 79 70 72 65  |mainw% : .keypre|
00000d20  73 73 5f 6d 61 69 6e 77  28 69 63 25 2c 71 25 21  |ss_mainw(ic%,q%!|
00000d30  32 34 29 0d 06 ae 07 20  20 cb 0d 06 b8 06 20 cd  |24)....  ..... .|
00000d40  0d 06 c2 05 e1 0d 06 cc  04 0d 06 d6 21 dd 20 f2  |............!. .|
00000d50  6b 65 79 70 72 65 73 73  5f 6d 61 69 6e 77 28 69  |keypress_mainw(i|
00000d60  63 6f 6e 25 2c 6b 65 79  25 29 0d 06 e0 14 ea 20  |con%,key%)..... |
00000d70  65 6e 64 5f 6f 66 5f 73  74 72 69 6e 67 25 0d 06  |end_of_string%..|
00000d80  ea 0e 20 c8 8e 20 6b 65  79 25 20 ca 0d 06 f4 21  |.. .. key% ....!|
00000d90  20 20 c9 20 31 33 20 3a  20 f2 65 76 61 6c 75 61  |  . 13 : .evalua|
00000da0  74 65 5f 65 78 70 72 65  73 73 69 6f 6e 0d 06 fe  |te_expression...|
00000db0  21 20 20 7f 20 c8 99 20  22 57 69 6d 70 5f 50 72  |!  . .. "Wimp_Pr|
00000dc0  6f 63 65 73 73 4b 65 79  22 2c 6b 65 79 25 0d 07  |ocessKey",key%..|
00000dd0  08 06 20 cb 0d 07 12 35  20 65 6e 64 5f 6f 66 5f  |.. ....5 end_of_|
00000de0  73 74 72 69 6e 67 25 3d  a9 28 a4 69 63 6f 6e 5f  |string%=.(.icon_|
00000df0  67 65 74 64 61 74 61 28  71 25 2c 6d 61 69 6e 77  |getdata(q%,mainw|
00000e00  25 2c 69 63 6f 6e 25 29  29 0d 07 1c 3d 20 f2 63  |%,icon%))...= .c|
00000e10  61 72 65 74 5f 73 65 74  70 6f 73 69 74 69 6f 6e  |aret_setposition|
00000e20  28 6d 61 69 6e 77 25 2c  69 63 6f 6e 25 2c 2d 31  |(mainw%,icon%,-1|
00000e30  2c 2d 31 2c 2d 31 2c 65  6e 64 5f 6f 66 5f 73 74  |,-1,-1,end_of_st|
00000e40  72 69 6e 67 25 29 0d 07  26 05 e1 0d 07 30 04 0d  |ring%)..&....0..|
00000e50  07 3a 16 dd 20 a4 6d 65  6e 75 73 65 6c 65 63 74  |.:.. .menuselect|
00000e60  5f 6d 61 69 6e 0d 07 44  1b ea 20 6c 65 76 65 6c  |_main..D.. level|
00000e70  30 2c 6c 65 76 65 6c 31  2c 62 75 74 74 6f 6e 25  |0,level1,button%|
00000e80  0d 07 4e 10 20 6c 65 76  65 6c 30 3d 71 25 21 30  |..N. level0=q%!0|
00000e90  0d 07 58 10 20 6c 65 76  65 6c 31 3d 71 25 21 34  |..X. level1=q%!4|
00000ea0  0d 07 62 21 20 c8 99 20  22 57 69 6d 70 5f 47 65  |..b! .. "Wimp_Ge|
00000eb0  74 50 6f 69 6e 74 65 72  49 6e 66 6f 22 2c 2c 71  |tPointerInfo",,q|
00000ec0  25 0d 07 6c 11 20 62 75  74 74 6f 6e 25 3d 71 25  |%..l. button%=q%|
00000ed0  21 38 0d 07 76 10 20 c8  8e 20 6c 65 76 65 6c 30  |!8..v. .. level0|
00000ee0  20 ca 0d 07 80 09 20 20  c9 20 31 0d 07 8a 12 20  | .....  . 1.... |
00000ef0  20 20 c8 8e 20 6c 65 76  65 6c 31 20 ca 0d 07 94  |  .. level1 ....|
00000f00  0b 20 20 20 20 c9 20 30  0d 07 9e 26 20 20 20 20  |.    . 0...&    |
00000f10  20 f2 69 6e 73 65 72 74  5f 73 74 72 69 6e 67 28  | .insert_string(|
00000f20  22 33 2e 31 34 31 35 39  32 36 35 34 22 29 0d 07  |"3.141592654")..|
00000f30  a8 0b 20 20 20 20 c9 20  31 0d 07 b2 26 20 20 20  |..    . 1...&   |
00000f40  20 20 f2 69 6e 73 65 72  74 5f 73 74 72 69 6e 67  |  .insert_string|
00000f50  28 22 32 2e 37 31 38 32  38 31 38 32 38 22 29 0d  |("2.718281828").|
00000f60  07 bc 0b 20 20 20 20 c9  20 32 0d 07 c6 22 20 20  |...    . 2..."  |
00000f70  20 20 20 f2 69 6e 73 65  72 74 5f 73 74 72 69 6e  |   .insert_strin|
00000f80  67 28 22 39 2e 38 30 36  36 35 22 29 0d 07 d0 0b  |g("9.80665")....|
00000f90  20 20 20 20 c9 20 33 0d  07 da 24 20 20 20 20 20  |    . 3...$     |
00000fa0  f2 69 6e 73 65 72 74 5f  73 74 72 69 6e 67 28 22  |.insert_string("|
00000fb0  32 39 39 37 39 32 34 35  38 22 29 0d 07 e4 08 20  |299792458").... |
00000fc0  20 20 cb 0d 07 ee 09 20  20 c9 20 32 0d 07 f8 0c  |  .....  . 2....|
00000fd0  20 20 20 f2 68 65 6c 70  0d 08 02 06 20 cb 0d 08  |   .help.... ...|
00000fe0  0c 06 3d 30 0d 08 16 04  0d 08 20 17 dd 20 a4 6d  |..=0...... .. .m|
00000ff0  65 6e 75 73 65 6c 65 63  74 5f 73 69 63 6f 6e 0d  |enuselect_sicon.|
00001000  08 2a 0c ea 20 6c 65 76  65 6c 30 0d 08 34 10 20  |.*.. level0..4. |
00001010  6c 65 76 65 6c 30 3d 71  25 21 30 0d 08 3e 10 20  |level0=q%!0..>. |
00001020  c8 8e 20 6c 65 76 65 6c  30 20 ca 0d 08 48 09 20  |.. level0 ...H. |
00001030  20 c9 20 31 0d 08 52 12  20 20 20 63 6c 6f 73 65  | . 1..R.   close|
00001040  64 6f 77 6e 3d b9 0d 08  5c 06 20 cb 0d 08 66 06  |down=...\. ...f.|
00001050  3d 30 0d 08 70 04 0d 08  7a 10 dd 20 f2 6d 65 6e  |=0..p...z.. .men|
00001060  75 5f 6d 61 69 6e 0d 08  84 08 ea 20 6e 6f 0d 08  |u_main..... no..|
00001070  8e 12 20 6e 6f 3d 30 3a  c8 97 20 78 2c 79 2c 62  |.. no=0:.. x,y,b|
00001080  0d 08 98 3e 20 f2 64 65  66 69 6e 65 5f 6d 65 6e  |...> .define_men|
00001090  75 5f 74 65 78 74 28 22  49 6e 66 6f 22 2c 6e 6f  |u_text("Info",no|
000010a0  2c 30 2c 30 2c 30 2c 30  2c 26 31 30 30 32 31 2c  |,0,0,0,0,&10021,|
000010b0  69 6e 66 6f 25 2c 30 29  3a 6e 6f 2b 3d 31 0d 08  |info%,0):no+=1..|
000010c0  a2 3e 20 f2 64 65 66 69  6e 65 5f 6d 65 6e 75 5f  |.> .define_menu_|
000010d0  74 65 78 74 28 22 43 6f  6e 73 74 61 6e 74 22 2c  |text("Constant",|
000010e0  6e 6f 2c 30 2c 30 2c 30  2c 30 2c 26 31 30 30 32  |no,0,0,0,0,&1002|
000010f0  31 2c 31 2c 30 29 3a 6e  6f 2b 3d 31 0d 08 ac 3b  |1,1,0):no+=1...;|
00001100  20 f2 64 65 66 69 6e 65  5f 6d 65 6e 75 5f 74 65  | .define_menu_te|
00001110  78 74 28 22 48 65 6c 70  22 2c 6e 6f 2c 30 2c 30  |xt("Help",no,0,0|
00001120  2c 30 2c 30 2c 26 31 30  30 32 31 2c 30 2c 2d 31  |,0,0,&10021,0,-1|
00001130  29 3a 6e 6f 2b 3d 31 0d  08 b6 3b 20 f2 64 65 66  |):no+=1...; .def|
00001140  69 6e 65 5f 6d 65 6e 75  5f 74 65 78 74 28 22 43  |ine_menu_text("C|
00001150  6f 6e 73 74 61 6e 74 22  2c 6e 6f 2c 30 2c 30 2c  |onstant",no,0,0,|
00001160  30 2c 30 2c 30 2c 2d 31  2c 2d 31 29 3a 6e 6f 2b  |0,0,0,-1,-1):no+|
00001170  3d 31 0d 08 c0 39 20 f2  64 65 66 69 6e 65 5f 6d  |=1...9 .define_m|
00001180  65 6e 75 5f 74 65 78 74  28 22 70 69 22 2c 6e 6f  |enu_text("pi",no|
00001190  2c 30 2c 30 2c 30 2c 30  2c 26 31 30 30 32 31 2c  |,0,0,0,0,&10021,|
000011a0  2d 31 2c 30 29 3a 6e 6f  2b 3d 31 0d 08 ca 38 20  |-1,0):no+=1...8 |
000011b0  f2 64 65 66 69 6e 65 5f  6d 65 6e 75 5f 74 65 78  |.define_menu_tex|
000011c0  74 28 22 65 22 2c 6e 6f  2c 30 2c 30 2c 30 2c 30  |t("e",no,0,0,0,0|
000011d0  2c 26 31 30 30 32 31 2c  2d 31 2c 30 29 3a 6e 6f  |,&10021,-1,0):no|
000011e0  2b 3d 31 0d 08 d4 3d 20  f2 64 65 66 69 6e 65 5f  |+=1...= .define_|
000011f0  6d 65 6e 75 5f 74 65 78  74 28 22 67 20 6d 73 2d  |menu_text("g ms-|
00001200  b2 22 2c 6e 6f 2c 30 2c  30 2c 30 2c 30 2c 26 31  |.",no,0,0,0,0,&1|
00001210  30 30 32 31 2c 2d 31 2c  30 29 3a 6e 6f 2b 3d 31  |0021,-1,0):no+=1|
00001220  0d 08 de 3e 20 f2 64 65  66 69 6e 65 5f 6d 65 6e  |...> .define_men|
00001230  75 5f 74 65 78 74 28 22  63 20 6d 73 2d b9 22 2c  |u_text("c ms-.",|
00001240  6e 6f 2c 30 2c 30 2c 30  2c 30 2c 26 31 30 30 32  |no,0,0,0,0,&1002|
00001250  31 2c 2d 31 2c 2d 31 29  3a 6e 6f 2b 3d 31 0d 08  |1,-1,-1):no+=1..|
00001260  e8 1e f4 20 41 64 64 20  6d 6f 72 65 20 63 6f 6e  |... Add more con|
00001270  73 74 61 6e 74 73 20 68  65 72 65 2e 0d 08 f2 2a  |stants here....*|
00001280  20 f2 63 72 65 61 74 65  5f 6d 65 6e 75 28 22 41  | .create_menu("A|
00001290  6c 67 65 62 72 61 22 2c  6e 6f 2c 31 35 30 2c 78  |lgebra",no,150,x|
000012a0  2d 36 34 2c 79 29 0d 08  fc 0f 20 6d 65 6e 75 5f  |-64,y).... menu_|
000012b0  6e 72 25 3d 30 0d 09 06  16 20 63 6c 61 69 6d 6d  |nr%=0.... claimm|
000012c0  65 6e 75 24 3d 22 6d 61  69 6e 22 0d 09 10 05 e1  |enu$="main".....|
000012d0  0d 09 1a 04 0d 09 24 11  dd 20 f2 6d 65 6e 75 5f  |......$.. .menu_|
000012e0  73 69 63 6f 6e 0d 09 2e  12 20 6e 6f 3d 30 3a c8  |sicon.... no=0:.|
000012f0  97 20 78 2c 79 2c 62 0d  09 38 3e 20 f2 64 65 66  |. x,y,b..8> .def|
00001300  69 6e 65 5f 6d 65 6e 75  5f 74 65 78 74 28 22 49  |ine_menu_text("I|
00001310  6e 66 6f 22 2c 6e 6f 2c  30 2c 30 2c 30 2c 30 2c  |nfo",no,0,0,0,0,|
00001320  26 31 30 30 32 31 2c 69  6e 66 6f 25 2c 30 29 3a  |&10021,info%,0):|
00001330  6e 6f 2b 3d 31 0d 09 42  3b 20 f2 64 65 66 69 6e  |no+=1..B; .defin|
00001340  65 5f 6d 65 6e 75 5f 74  65 78 74 28 22 51 75 69  |e_menu_text("Qui|
00001350  74 22 2c 6e 6f 2c 30 2c  30 2c 30 2c 30 2c 26 31  |t",no,0,0,0,0,&1|
00001360  30 30 32 31 2c 30 2c 2d  31 29 3a 6e 6f 2b 3d 31  |0021,0,-1):no+=1|
00001370  0d 09 4c 33 20 f2 63 72  65 61 74 65 5f 6d 65 6e  |..L3 .create_men|
00001380  75 28 22 41 6c 67 65 62  72 61 22 2c 6e 6f 2c 31  |u("Algebra",no,1|
00001390  30 30 2c 78 2d 36 34 2c  39 36 2b 28 6e 6f 2a 34  |00,x-64,96+(no*4|
000013a0  30 29 29 0d 09 56 0f 20  6d 65 6e 75 5f 6e 72 25  |0))..V. menu_nr%|
000013b0  3d 30 0d 09 60 17 20 63  6c 61 69 6d 6d 65 6e 75  |=0..`. claimmenu|
000013c0  24 3d 22 73 69 63 6f 6e  22 0d 09 6a 05 e1 0d 09  |$="sicon"..j....|
000013d0  74 04 0d 09 7e 16 dd f2  77 68 69 63 68 6d 65 6e  |t...~...whichmen|
000013e0  75 28 6d 65 6e 75 24 29  0d 09 88 0b ea 20 76 6f  |u(menu$)..... vo|
000013f0  69 64 25 0d 09 92 0f 20  c8 8e 20 6d 65 6e 75 24  |id%.... .. menu$|
00001400  20 ca 0d 09 9c 27 20 20  c9 20 22 6d 61 69 6e 22  | ....'  . "main"|
00001410  20 20 3a 76 6f 69 64 25  3d a4 6d 65 6e 75 73 65  |  :void%=.menuse|
00001420  6c 65 63 74 5f 6d 61 69  6e 0d 09 a6 28 20 20 c9  |lect_main...(  .|
00001430  20 22 73 69 63 6f 6e 22  20 3a 76 6f 69 64 25 3d  | "sicon" :void%=|
00001440  a4 6d 65 6e 75 73 65 6c  65 63 74 5f 73 69 63 6f  |.menuselect_sico|
00001450  6e 0d 09 b0 06 20 cb 0d  09 ba 05 e1 0d 09 c4 04  |n.... ..........|
00001460  0d 09 ce 27 dd 20 f2 6f  70 65 6e 77 69 6e 64 6f  |...'. .openwindo|
00001470  77 28 68 61 6e 64 6c 65  25 2c 66 75 6c 6c 25 2c  |w(handle%,full%,|
00001480  66 72 6f 6e 74 25 29 0d  09 d8 11 20 71 25 21 30  |front%).... q%!0|
00001490  3d 68 61 6e 64 6c 65 25  0d 09 e2 2e 20 e7 20 ac  |=handle%.... . .|
000014a0  20 66 75 6c 6c 25 20 8c  20 c8 99 20 22 57 69 6d  | full% . .. "Wim|
000014b0  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
000014c0  22 2c 30 2c 71 25 0d 09  ec 18 20 e7 20 66 72 6f  |",0,q%.... . fro|
000014d0  6e 74 25 20 8c 20 71 25  21 32 38 3d 2d 31 0d 09  |nt% . q%!28=-1..|
000014e0  f6 1e 20 c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |.. .. "Wimp_Open|
000014f0  57 69 6e 64 6f 77 22 2c  30 2c 71 25 0d 0a 00 05  |Window",0,q%....|
00001500  e1 0d 0a 0a 04 0d 0a 14  1b dd 20 f2 63 6c 6f 73  |.......... .clos|
00001510  65 77 69 6e 64 6f 77 28  68 61 6e 64 6c 65 25 29  |ewindow(handle%)|
00001520  0d 0a 1e 1d 20 e7 20 a4  6f 6b 74 6f 63 6c 6f 73  |.... . .oktoclos|
00001530  65 77 28 68 61 6e 64 6c  65 25 29 20 8c 0d 0a 28  |ew(handle%) ...(|
00001540  12 20 20 71 25 21 30 3d  68 61 6e 64 6c 65 25 0d  |.  q%!0=handle%.|
00001550  0a 32 20 20 20 c8 99 20  22 57 69 6d 70 5f 43 6c  |.2   .. "Wimp_Cl|
00001560  6f 73 65 57 69 6e 64 6f  77 22 2c 30 2c 71 25 0d  |oseWindow",0,q%.|
00001570  0a 3c 06 20 cd 0d 0a 46  05 e1 0d 0a 50 04 0d 0a  |.<. ...F....P...|
00001580  5a 12 dd 20 a4 70 6f 6c  6c 28 6d 61 73 6b 25 29  |Z.. .poll(mask%)|
00001590  0d 0a 64 21 20 c8 99 20  22 57 69 6d 70 5f 50 6f  |..d! .. "Wimp_Po|
000015a0  6c 6c 22 2c 6d 61 73 6b  25 2c 71 25 20 b8 20 61  |ll",mask%,q% . a|
000015b0  25 0d 0a 6e 07 3d 61 25  0d 0a 78 04 0d 0a 82 14  |%..n.=a%..x.....|
000015c0  dd 20 f2 61 63 74 69 6f  6e 28 65 76 6e 74 25 29  |. .action(evnt%)|
000015d0  0d 0a 8c 0f 20 c8 8e 20  65 76 6e 74 25 20 ca 0d  |.... .. evnt% ..|
000015e0  0a 96 23 20 20 c9 20 20  20 20 20 31 20 3a 20 f2  |..#  .     1 : .|
000015f0  72 65 64 72 61 77 77 69  6e 64 6f 77 28 71 25 21  |redrawwindow(q%!|
00001600  30 29 0d 0a a0 25 20 20  c9 20 20 20 20 20 32 20  |0)...%  .     2 |
00001610  3a 20 f2 6f 70 65 6e 77  69 6e 64 6f 77 28 71 25  |: .openwindow(q%|
00001620  21 30 2c b9 2c 30 29 0d  0a aa 22 20 20 c9 20 20  |!0,.,0)..."  .  |
00001630  20 20 20 33 20 3a 20 f2  63 6c 6f 73 65 77 69 6e  |   3 : .closewin|
00001640  64 6f 77 28 71 25 21 30  29 0d 0a b4 3d 20 20 c9  |dow(q%!0)...=  .|
00001650  20 20 20 20 20 36 20 3a  20 f2 63 6c 69 63 6b 77  |     6 : .clickw|
00001660  69 6e 64 6f 77 28 21 71  25 2c 71 25 21 34 2c 71  |indow(!q%,q%!4,q|
00001670  25 21 38 2c 71 25 21 31  32 2c 71 25 21 31 36 2c  |%!8,q%!12,q%!16,|
00001680  71 25 21 32 30 29 0d 0a  be 43 20 20 c9 20 20 20  |q%!20)...C  .   |
00001690  20 20 37 20 3a 20 e7 20  63 6c 61 69 6d 64 72 61  |  7 : . claimdra|
000016a0  67 24 3c 3e 22 22 20 8c  20 6a 75 6e 6b 3d a0 28  |g$<>"" . junk=.(|
000016b0  22 46 4e 75 73 65 72 64  72 61 67 5f 22 2b 63 6c  |"FNuserdrag_"+cl|
000016c0  61 69 6d 64 72 61 67 24  29 0d 0a c8 19 20 20 c9  |aimdrag$)....  .|
000016d0  20 20 20 20 20 38 20 3a  20 f2 6b 65 79 70 72 65  |     8 : .keypre|
000016e0  73 73 0d 0a d2 39 20 20  c9 20 20 20 20 20 39 20  |ss...9  .     9 |
000016f0  3a 20 e7 20 63 6c 61 69  6d 6d 65 6e 75 24 3c 3e  |: . claimmenu$<>|
00001700  22 22 20 8c 20 f2 77 68  69 63 68 6d 65 6e 75 28  |"" . .whichmenu(|
00001710  63 6c 61 69 6d 6d 65 6e  75 24 29 0d 0a dc 1c 20  |claimmenu$).... |
00001720  20 c9 20 31 37 2c 31 38  20 3a 20 f2 72 65 63 65  | . 17,18 : .rece|
00001730  69 76 65 28 71 25 29 0d  0a e6 06 20 cb 0d 0a f0  |ive(q%).... ....|
00001740  05 e1 0d 0a fa 04 0d 0b  04 12 dd 20 f2 72 65 63  |........... .rec|
00001750  65 69 76 65 28 71 25 29  0d 0b 0e 0f 20 c8 8e 20  |eive(q%).... .. |
00001760  71 25 21 31 36 20 ca 0d  0b 18 09 20 20 c9 20 30  |q%!16 .....  . 0|
00001770  0d 0b 22 11 20 20 20 24  71 25 3d 22 54 41 53 4b  |..".   $q%="TASK|
00001780  22 0d 0b 2c 25 20 20 20  c8 99 20 22 57 69 6d 70  |"..,%   .. "Wimp|
00001790  5f 43 6c 6f 73 65 44 6f  77 6e 22 2c 74 61 73 6b  |_CloseDown",task|
000017a0  25 2c 71 25 21 30 0d 0b  36 08 20 20 20 e0 0d 0b  |%,q%!0..6.   ...|
000017b0  40 06 20 cb 0d 0b 4a 05  e1 0d 0b 54 04 0d 0b 5e  |@. ...J....T...^|
000017c0  1d dd 20 f2 6c 77 61 6f  72 69 67 69 6e 28 62 2c  |.. .lwaorigin(b,|
000017d0  f8 20 78 25 2c f8 20 79  25 29 0d 0b 68 10 20 78  |. x%,. y%)..h. x|
000017e0  25 3d 62 21 30 2d 62 21  31 36 0d 0b 72 11 20 79  |%=b!0-b!16..r. y|
000017f0  25 3d 62 21 31 32 2d 62  21 32 30 0d 0b 7c 05 e1  |%=b!12-b!20..|..|
00001800  0d 0b 86 04 0d 0b 90 49  dd 20 a4 69 63 6f 6e 5f  |.......I. .icon_|
00001810  63 72 65 61 74 65 28 77  69 6e 64 6f 77 25 2c 6d  |create(window%,m|
00001820  69 6e 78 25 2c 6d 69 6e  79 25 2c 77 69 64 74 68  |inx%,miny%,width|
00001830  25 2c 68 65 69 67 68 74  25 2c 66 67 25 2c 62 67  |%,height%,fg%,bg|
00001840  25 2c 66 6c 67 25 2c 64  61 74 61 24 29 0d 0b 9a  |%,flg%,data$)...|
00001850  08 ea 20 69 25 0d 0b a4  11 20 71 25 21 30 3d 77  |.. i%.... q%!0=w|
00001860  69 6e 64 6f 77 25 0d 0b  ae 1a 20 71 25 21 34 3d  |indow%.... q%!4=|
00001870  6d 69 6e 78 25 3a 71 25  21 38 3d 6d 69 6e 79 25  |minx%:q%!8=miny%|
00001880  0d 0b b8 2b 20 71 25 21  31 32 3d 6d 69 6e 78 25  |...+ q%!12=minx%|
00001890  2b 77 69 64 74 68 25 3a  71 25 21 31 36 3d 6d 69  |+width%:q%!16=mi|
000018a0  6e 79 25 2b 68 65 69 67  68 74 25 0d 0b c2 23 20  |ny%+height%...# |
000018b0  71 25 21 32 30 3d 66 6c  67 25 20 84 20 62 67 25  |q%!20=flg% . bg%|
000018c0  3c 3c 32 38 20 84 20 66  67 25 3c 3c 32 34 0d 0b  |<<28 . fg%<<24..|
000018d0  cc 15 20 e7 20 71 25 21  32 30 20 80 20 26 31 30  |.. . q%!20 . &10|
000018e0  30 20 8c 0d 0b d6 14 20  20 69 25 3d a7 64 61 74  |0 .....  i%=.dat|
000018f0  61 24 2c 22 2c 22 29 0d  0b e0 1b 20 20 71 25 21  |a$,",")....  q%!|
00001900  32 34 3d a0 28 c0 64 61  74 61 24 2c 69 25 2d 31  |24=.(.data$,i%-1|
00001910  29 29 0d 0b ea 0e 20 20  71 25 21 32 38 3d 2d 31  |))....  q%!28=-1|
00001920  0d 0b f4 1b 20 20 71 25  21 33 32 3d a0 28 c1 64  |....  q%!32=.(.d|
00001930  61 74 61 24 2c 69 25 2b  31 29 29 0d 0b fe 06 20  |ata$,i%+1)).... |
00001940  cc 0d 0c 08 19 20 20 24  28 71 25 2b 32 34 29 3d  |.....  $(q%+24)=|
00001950  c0 64 61 74 61 24 2c 31  31 29 0d 0c 12 06 20 cd  |.data$,11).... .|
00001960  0d 0c 1c 23 20 c8 99 20  22 57 69 6d 70 5f 43 72  |...# .. "Wimp_Cr|
00001970  65 61 74 65 49 63 6f 6e  22 2c 30 2c 71 25 20 b8  |eateIcon",0,q% .|
00001980  20 69 25 0d 0c 26 07 3d  69 25 0d 0c 30 04 0d 0c  | i%..&.=i%..0...|
00001990  3a 24 dd 20 f2 69 63 6f  6e 5f 64 65 73 65 6c 65  |:$. .icon_desele|
000019a0  63 74 28 68 61 6e 64 6c  65 25 2c 69 63 6f 6e 68  |ct(handle%,iconh|
000019b0  25 29 0d 0c 44 13 20 e7  20 69 63 6f 6e 68 25 3c  |%)..D. . iconh%<|
000019c0  3e 2d 31 20 8c 0d 0c 4e  1e 20 20 71 25 21 30 3d  |>-1 ...N.  q%!0=|
000019d0  68 61 6e 64 6c 65 25 3a  71 25 21 34 3d 69 63 6f  |handle%:q%!4=ico|
000019e0  6e 68 25 0d 0c 58 1b 20  20 71 25 21 38 3d 26 32  |nh%..X.  q%!8=&2|
000019f0  30 30 30 30 30 3a 71 25  21 31 32 3d 26 30 0d 0c  |00000:q%!12=&0..|
00001a00  62 20 20 20 c8 99 20 22  57 69 6d 70 5f 53 65 74  |b   .. "Wimp_Set|
00001a10  49 63 6f 6e 53 74 61 74  65 22 2c 2c 71 25 0d 0c  |IconState",,q%..|
00001a20  6c 06 20 cd 0d 0c 76 05  e1 0d 0c 80 04 0d 0c 8a  |l. ...v.........|
00001a30  2e f4 20 44 45 46 20 50  52 4f 43 69 63 6f 6e 5f  |.. DEF PROCicon_|
00001a40  70 75 74 64 61 74 61 28  62 2c 77 68 25 2c 69 68  |putdata(b,wh%,ih|
00001a50  25 2c 74 65 78 74 24 2c  72 64 29 0d 0c 94 0c 20  |%,text$,rd).... |
00001a60  62 21 30 3d 77 68 25 0d  0c 9e 0c 20 62 21 34 3d  |b!0=wh%.... b!4=|
00001a70  69 68 25 0d 0c a8 1e 20  c8 99 20 22 57 69 6d 70  |ih%.... .. "Wimp|
00001a80  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00001a90  62 0d 0c b2 1c 20 c8 99  20 22 57 69 6d 70 5f 44  |b.... .. "Wimp_D|
00001aa0  65 6c 65 74 65 49 63 6f  6e 22 2c 2c 62 0d 0c bc  |eleteIcon",,b...|
00001ab0  0c 20 62 21 34 3d 77 68  25 0d 0c c6 12 20 24 28  |. b!4=wh%.... $(|
00001ac0  62 21 32 38 29 3d 74 65  78 74 24 0d 0c d0 09 20  |b!28)=text$.... |
00001ad0  62 2b 3d 34 0d 0c da 1c  20 c8 99 20 22 57 69 6d  |b+=4.... .. "Wim|
00001ae0  70 5f 43 72 65 61 74 65  49 63 6f 6e 22 2c 2c 62  |p_CreateIcon",,b|
00001af0  0d 0c e4 37 20 e7 20 72  64 20 8c 20 c8 99 20 22  |...7 . rd . .. "|
00001b00  57 69 6d 70 5f 46 6f 72  63 65 52 65 64 72 61 77  |Wimp_ForceRedraw|
00001b10  22 2c 62 21 30 2c 62 21  34 2c 62 21 38 2c 62 21  |",b!0,b!4,b!8,b!|
00001b20  31 32 2c 62 21 31 36 0d  0c ee 09 20 62 2d 3d 34  |12,b!16.... b-=4|
00001b30  0d 0c f8 05 e1 0d 0d 02  04 0d 0d 0c 36 dd 20 f2  |............6. .|
00001b40  69 63 6f 6e 5f 70 75 74  64 61 74 61 28 71 25 2c  |icon_putdata(q%,|
00001b50  77 68 61 6e 64 6c 65 25  2c 69 68 61 6e 64 6c 65  |whandle%,ihandle|
00001b60  25 2c 64 61 74 61 24 2c  72 65 64 72 61 77 29 0d  |%,data$,redraw).|
00001b70  0d 16 12 20 71 25 21 30  3d 77 68 61 6e 64 6c 65  |... q%!0=whandle|
00001b80  25 0d 0d 20 12 20 71 25  21 34 3d 69 68 61 6e 64  |%.. . q%!4=ihand|
00001b90  6c 65 25 0d 0d 2a 1f 20  c8 99 20 22 57 69 6d 70  |le%..*. .. "Wimp|
00001ba0  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00001bb0  71 25 0d 0d 34 13 20 24  28 71 25 21 32 38 29 3d  |q%..4. $(q%!28)=|
00001bc0  64 61 74 61 24 0d 0d 3e  0f 20 e7 20 72 65 64 72  |data$..>. . redr|
00001bd0  61 77 20 8c 0d 0d 48 3b  20 20 c8 99 20 22 57 69  |aw ...H;  .. "Wi|
00001be0  6d 70 5f 46 6f 72 63 65  52 65 64 72 61 77 22 2c  |mp_ForceRedraw",|
00001bf0  77 68 61 6e 64 6c 65 25  2c 71 25 21 38 2c 71 25  |whandle%,q%!8,q%|
00001c00  21 31 32 2c 71 25 21 31  36 2c 71 25 21 32 30 0d  |!12,q%!16,q%!20.|
00001c10  0d 52 06 20 cd 0d 0d 5c  05 e1 0d 0d 66 04 0d 0d  |.R. ...\....f...|
00001c20  70 2e dd 20 f2 69 63 6f  6e 5f 73 65 74 62 67 63  |p.. .icon_setbgc|
00001c30  6f 6c 6f 75 72 28 62 2c  77 68 61 6e 64 6c 65 25  |olour(b,whandle%|
00001c40  2c 69 63 6f 6e 25 2c 63  6f 6c 25 29 0d 0d 7a 36  |,icon%,col%)..z6|
00001c50  20 21 62 3d 77 68 61 6e  64 6c 65 25 3a 62 21 34  | !b=whandle%:b!4|
00001c60  3d 69 63 6f 6e 25 3a 62  21 38 3d 63 6f 6c 25 3c  |=icon%:b!8=col%<|
00001c70  3c 32 38 3a 62 21 31 32  3d 26 46 30 30 30 30 30  |<28:b!12=&F00000|
00001c80  30 30 0d 0d 84 1f 20 c8  99 20 22 57 69 6d 70 5f  |00.... .. "Wimp_|
00001c90  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 30 2c  |SetIconState",0,|
00001ca0  62 0d 0d 8e 05 e1 0d 0d  98 04 0d 0d a2 2e dd 20  |b.............. |
00001cb0  f2 69 63 6f 6e 5f 73 65  74 66 67 63 6f 6c 6f 75  |.icon_setfgcolou|
00001cc0  72 28 62 2c 77 68 61 6e  64 6c 65 25 2c 69 63 6f  |r(b,whandle%,ico|
00001cd0  6e 25 2c 63 6f 6c 25 29  0d 0d ac 36 20 21 62 3d  |n%,col%)...6 !b=|
00001ce0  77 68 61 6e 64 6c 65 25  3a 62 21 34 3d 69 63 6f  |whandle%:b!4=ico|
00001cf0  6e 25 3a 62 21 38 3d 63  6f 6c 25 3c 3c 32 34 3a  |n%:b!8=col%<<24:|
00001d00  62 21 31 32 3d 26 30 46  30 30 30 30 30 30 0d 0d  |b!12=&0F000000..|
00001d10  b6 1f 20 c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |.. .. "Wimp_SetI|
00001d20  63 6f 6e 53 74 61 74 65  22 2c 30 2c 62 0d 0d c0  |conState",0,b...|
00001d30  05 e1 0d 0d ca 04 0d 0d  d4 3a dd 20 a4 69 63 6f  |.........:. .ico|
00001d40  6e 5f 6e 65 77 73 70 72  69 74 65 28 62 2c 77 68  |n_newsprite(b,wh|
00001d50  61 6e 64 6c 65 25 2c 69  68 61 6e 64 6c 65 25 2c  |andle%,ihandle%,|
00001d60  6e 65 77 6e 61 6d 65 24  2c 72 65 64 72 61 77 29  |newname$,redraw)|
00001d70  0d 0d de 1e 20 62 21 30  3d 77 68 61 6e 64 6c 65  |.... b!0=whandle|
00001d80  25 3a 62 21 34 3d 69 68  61 6e 64 6c 65 25 0d 0d  |%:b!4=ihandle%..|
00001d90  e8 1e 20 c8 99 20 22 57  69 6d 70 5f 47 65 74 49  |.. .. "Wimp_GetI|
00001da0  63 6f 6e 53 74 61 74 65  22 2c 2c 62 0d 0d f2 1c  |conState",,b....|
00001db0  20 c8 99 20 22 57 69 6d  70 5f 44 65 6c 65 74 65  | .. "Wimp_Delete|
00001dc0  49 63 6f 6e 22 2c 2c 62  0d 0d fc 44 20 62 21 34  |Icon",,b...D b!4|
00001dd0  3d 62 21 38 3a 62 21 38  3d 62 21 31 32 3a 62 21  |=b!8:b!8=b!12:b!|
00001de0  31 32 3d 62 21 31 36 3a  62 21 31 36 3d 62 21 32  |12=b!16:b!16=b!2|
00001df0  30 3a 62 21 32 30 3d 62  21 32 34 3a 24 28 62 2b  |0:b!20=b!24:$(b+|
00001e00  32 34 29 3d 6e 65 77 6e  61 6d 65 24 0d 0e 06 27  |24)=newname$...'|
00001e10  20 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  | .. "Wimp_Create|
00001e20  49 63 6f 6e 22 2c 2c 62  20 b8 20 69 68 61 6e 64  |Icon",,b . ihand|
00001e30  6c 65 25 0d 0e 10 3b 20  e7 20 72 65 64 72 61 77  |le%...; . redraw|
00001e40  20 8c 20 c8 99 20 22 57  69 6d 70 5f 46 6f 72 63  | . .. "Wimp_Forc|
00001e50  65 52 65 64 72 61 77 22  2c 62 21 30 2c 62 21 34  |eRedraw",b!0,b!4|
00001e60  2c 62 21 38 2c 62 21 31  32 2c 62 21 31 36 0d 0e  |,b!8,b!12,b!16..|
00001e70  1a 0d 3d 69 68 61 6e 64  6c 65 25 0d 0e 24 04 0d  |..=ihandle%..$..|
00001e80  0e 2e 29 dd 20 a4 69 63  6f 6e 5f 67 65 74 64 61  |..). .icon_getda|
00001e90  74 61 28 71 25 2c 77 68  61 6e 64 6c 65 25 2c 69  |ta(q%,whandle%,i|
00001ea0  68 61 6e 64 6c 65 25 29  0d 0e 38 12 20 71 25 21  |handle%)..8. q%!|
00001eb0  30 3d 77 68 61 6e 64 6c  65 25 0d 0e 42 12 20 71  |0=whandle%..B. q|
00001ec0  25 21 34 3d 69 68 61 6e  64 6c 65 25 0d 0e 4c 1f  |%!4=ihandle%..L.|
00001ed0  20 c8 99 20 22 57 69 6d  70 5f 47 65 74 49 63 6f  | .. "Wimp_GetIco|
00001ee0  6e 53 74 61 74 65 22 2c  2c 71 25 0d 0e 56 0d 3d  |nState",,q%..V.=|
00001ef0  24 28 71 25 21 32 38 29  0d 0e 60 04 0d 0e 6a 46  |$(q%!28)..`...jF|
00001f00  dd 20 f2 63 61 72 65 74  5f 73 65 74 70 6f 73 69  |. .caret_setposi|
00001f10  74 69 6f 6e 28 77 68 61  6e 64 6c 65 25 2c 69 68  |tion(whandle%,ih|
00001f20  61 6e 64 6c 65 25 2c 78  6f 66 66 25 2c 79 6f 66  |andle%,xoff%,yof|
00001f30  66 25 2c 68 65 69 67 68  74 25 2c 69 6e 64 65 78  |f%,height%,index|
00001f40  25 29 0d 0e 74 4c 20 c8  99 20 22 57 69 6d 70 5f  |%)..tL .. "Wimp_|
00001f50  53 65 74 43 61 72 65 74  50 6f 73 69 74 69 6f 6e  |SetCaretPosition|
00001f60  22 2c 77 68 61 6e 64 6c  65 25 2c 69 68 61 6e 64  |",whandle%,ihand|
00001f70  6c 65 25 2c 78 6f 66 66  25 2c 79 6f 66 66 25 2c  |le%,xoff%,yoff%,|
00001f80  68 65 69 67 68 74 25 2c  69 6e 64 65 78 25 0d 0e  |height%,index%..|
00001f90  7e 05 e1 0d 0e 88 04 0d  0e 92 0e dd 20 f2 6e 65  |~........... .ne|
00001fa0  77 76 61 6c 73 0d 0e 9c  18 20 67 74 78 3d 71 25  |wvals.... gtx=q%|
00001fb0  21 33 36 3a 67 74 79 3d  71 25 21 34 30 0d 0e a6  |!36:gty=q%!40...|
00001fc0  16 20 77 62 78 3d 71 25  21 34 3a 77 62 79 3d 71  |. wbx=q%!4:wby=q|
00001fd0  25 21 38 0d 0e b0 18 20  77 74 78 3d 71 25 21 31  |%!8.... wtx=q%!1|
00001fe0  32 3a 77 74 79 3d 71 25  21 31 36 0d 0e ba 18 20  |2:wty=q%!16.... |
00001ff0  78 73 63 3d 71 25 21 32  30 3a 79 73 63 3d 71 25  |xsc=q%!20:ysc=q%|
00002000  21 32 34 0d 0e c4 22 20  68 70 3d 77 74 78 2d 77  |!24..." hp=wtx-w|
00002010  62 78 3a 76 70 3d 77 74  79 2d 77 62 79 3a 65 62  |bx:vp=wty-wby:eb|
00002020  78 3d 78 73 63 0d 0e ce  22 20 65 74 78 3d 78 73  |x=xsc..." etx=xs|
00002030  63 2b 68 70 3a 65 74 79  3d 79 73 63 3a 65 62 79  |c+hp:ety=ysc:eby|
00002040  3d 79 73 63 2d 76 70 0d  0e d8 05 e1 0d 0e e2 04  |=ysc-vp.........|
00002050  0d 0e ec 33 dd 20 f2 64  65 66 69 6e 65 5f 6d 65  |...3. .define_me|
00002060  6e 75 5f 74 65 78 74 28  74 65 78 74 24 2c 6e 2c  |nu_text(text$,n,|
00002070  77 2c 74 2c 64 2c 73 2c  66 6c 61 67 73 2c 73 6d  |w,t,d,s,flags,sm|
00002080  2c 6c 29 0d 0e f6 13 20  74 65 78 74 24 28 6e 29  |,l).... text$(n)|
00002090  3d 74 65 78 74 24 0d 0f  00 11 20 73 65 74 74 69  |=text$.... setti|
000020a0  6e 67 28 6e 29 3d 30 0d  0f 0a 39 20 e7 20 77 20  |ng(n)=0...9 . w |
000020b0  8c 20 73 65 74 74 69 6e  67 28 6e 29 3d 73 65 74  |. setting(n)=set|
000020c0  74 69 6e 67 28 6e 29 20  84 20 26 30 34 3a 66 6c  |ting(n) . &04:fl|
000020d0  61 67 73 3d 66 6c 61 67  73 20 84 20 26 31 30 30  |ags=flags . &100|
000020e0  0d 0f 14 26 20 e7 20 74  20 8c 20 73 65 74 74 69  |...& . t . setti|
000020f0  6e 67 28 6e 29 3d 73 65  74 74 69 6e 67 28 6e 29  |ng(n)=setting(n)|
00002100  20 84 20 26 30 31 0d 0f  1e 26 20 e7 20 64 20 8c  | . &01...& . d .|
00002110  20 73 65 74 74 69 6e 67  28 6e 29 3d 73 65 74 74  | setting(n)=sett|
00002120  69 6e 67 28 6e 29 20 84  20 26 30 32 0d 0f 28 26  |ing(n) . &02..(&|
00002130  20 e7 20 6c 20 8c 20 73  65 74 74 69 6e 67 28 6e  | . l . setting(n|
00002140  29 3d 73 65 74 74 69 6e  67 28 6e 29 20 84 20 26  |)=setting(n) . &|
00002150  38 30 0d 0f 32 20 20 e7  20 73 20 8c 20 66 6c 61  |80..2  . s . fla|
00002160  67 73 3d 66 6c 61 67 73  20 84 20 26 34 30 30 30  |gs=flags . &4000|
00002170  30 30 0d 0f 3c 13 20 66  6c 61 67 73 28 6e 29 3d  |00..<. flags(n)=|
00002180  66 6c 61 67 73 0d 0f 46  12 20 73 75 62 6d 65 6e  |flags..F. submen|
00002190  75 28 6e 29 3d 73 6d 0d  0f 50 05 e1 0d 0f 5a 04  |u(n)=sm..P....Z.|
000021a0  0d 0f 64 27 dd 20 f2 63  72 65 61 74 65 5f 6d 65  |..d'. .create_me|
000021b0  6e 75 28 74 69 74 6c 65  24 2c 6e 2c 77 69 64 74  |nu(title$,n,widt|
000021c0  68 25 2c 78 2c 79 29 0d  0f 6e 0e 20 6d 62 25 3d  |h%,x,y)..n. mb%=|
000021d0  6d 65 6e 75 25 0d 0f 78  10 20 6d 65 6e 75 73 3d  |menu%..x. menus=|
000021e0  30 3a 71 3d 30 0d 0f 82  06 20 f5 0d 0f 8c 21 20  |0:q=0.... ....! |
000021f0  20 6d 65 6e 75 70 6f 73  28 6d 65 6e 75 73 29 3d  | menupos(menus)=|
00002200  6d 62 25 3a 6d 65 6e 75  73 2b 3d 31 0d 0f 96 11  |mb%:menus+=1....|
00002210  20 20 24 6d 62 25 3d 74  69 74 6c 65 24 0d 0f a0  |  $mb%=title$...|
00002220  0e 20 20 6d 62 25 3f 31  32 3d 37 0d 0f aa 0e 20  |.  mb%?12=7.... |
00002230  20 6d 62 25 3f 31 33 3d  32 0d 0f b4 0e 20 20 6d  | mb%?13=2....  m|
00002240  62 25 3f 31 34 3d 37 0d  0f be 0e 20 20 6d 62 25  |b%?14=7....  mb%|
00002250  3f 31 35 3d 30 0d 0f c8  13 20 20 6d 62 25 21 31  |?15=0....  mb%!1|
00002260  36 3d 77 69 64 74 68 25  0d 0f d2 0f 20 20 6d 62  |6=width%....  mb|
00002270  25 21 32 30 3d 34 30 0d  0f dc 0e 20 20 6d 62 25  |%!20=40....  mb%|
00002280  21 32 34 3d 30 0d 0f e6  14 20 20 69 74 65 6d 70  |!24=0....  itemp|
00002290  74 72 3d 6d 62 25 2b 32  38 0d 0f f0 07 20 20 f5  |tr=mb%+28....  .|
000022a0  0d 0f fa 1b 20 20 20 69  74 65 6d 70 74 72 21 30  |....   itemptr!0|
000022b0  3d 73 65 74 74 69 6e 67  28 71 29 0d 10 04 17 20  |=setting(q).... |
000022c0  20 20 72 65 66 28 71 29  3d 69 74 65 6d 70 74 72  |  ref(q)=itemptr|
000022d0  2b 34 0d 10 0e 29 20 20  20 69 74 65 6d 70 74 72  |+4...)   itemptr|
000022e0  21 38 3d 66 6c 61 67 73  28 71 29 20 84 20 30 3c  |!8=flags(q) . 0<|
000022f0  3c 32 38 20 84 20 37 3c  3c 32 34 0d 10 18 1e 20  |<28 . 7<<24.... |
00002300  20 20 e7 20 28 66 6c 61  67 73 28 71 29 20 80 20  |  . (flags(q) . |
00002310  26 31 30 30 29 3d 30 20  8c 0d 10 22 1e 20 20 20  |&100)=0 ...".   |
00002320  20 24 28 69 74 65 6d 70  74 72 2b 31 32 29 3d 74  | $(itemptr+12)=t|
00002330  65 78 74 24 28 71 29 0d  10 2c 08 20 20 20 cc 0d  |ext$(q)..,.   ..|
00002340  10 36 1a 20 20 20 20 70  6f 73 3d a7 74 65 78 74  |.6.    pos=.text|
00002350  24 28 71 29 2c 22 28 22  29 0d 10 40 26 20 20 20  |$(q),"(")..@&   |
00002360  20 69 74 65 6d 70 74 72  21 31 32 3d a0 28 c0 74  | itemptr!12=.(.t|
00002370  65 78 74 24 28 71 29 2c  70 6f 73 2d 31 29 29 0d  |ext$(q),pos-1)).|
00002380  10 4a 15 20 20 20 20 69  74 65 6d 70 74 72 21 31  |.J.    itemptr!1|
00002390  36 3d 2d 31 0d 10 54 30  20 20 20 20 69 74 65 6d  |6=-1..T0    item|
000023a0  70 74 72 21 32 30 3d a0  28 c2 74 65 78 74 24 28  |ptr!20=.(.text$(|
000023b0  71 29 2c a9 28 74 65 78  74 24 28 71 29 29 2d 70  |q),.(text$(q))-p|
000023c0  6f 73 29 29 0d 10 5e 08  20 20 20 cd 0d 10 68 17  |os))..^.   ...h.|
000023d0  20 20 20 69 74 65 6d 70  74 72 2b 3d 32 34 3a 71  |   itemptr+=24:q|
000023e0  2b 3d 31 0d 10 72 1e 20  20 fd 20 28 73 65 74 74  |+=1..r.  . (sett|
000023f0  69 6e 67 28 71 2d 31 29  20 80 20 26 38 30 29 3e  |ing(q-1) . &80)>|
00002400  30 0d 10 7c 11 20 20 6d  62 25 3d 69 74 65 6d 70  |0..|.  mb%=itemp|
00002410  74 72 0d 10 86 23 20 20  e7 20 71 3c 3e 6e 20 8c  |tr...#  . q<>n .|
00002420  20 74 69 74 6c 65 24 3d  74 65 78 74 24 28 71 29  | title$=text$(q)|
00002430  3a 71 2b 3d 31 0d 10 90  0a 20 fd 20 71 3d 6e 0d  |:q+=1.... . q=n.|
00002440  10 9a 10 20 e3 20 71 3d  30 20 b8 20 6e 2d 31 0d  |... . q=0 . n-1.|
00002450  10 a4 29 20 20 e7 20 73  75 62 6d 65 6e 75 28 71  |..)  . submenu(q|
00002460  29 3e 30 20 80 20 73 75  62 6d 65 6e 75 28 71 29  |)>0 . submenu(q)|
00002470  3c 6d 65 6e 75 73 20 8c  0d 10 ae 22 20 20 20 21  |<menus ...."   !|
00002480  72 65 66 28 71 29 3d 6d  65 6e 75 70 6f 73 28 73  |ref(q)=menupos(s|
00002490  75 62 6d 65 6e 75 28 71  29 29 0d 10 b8 07 20 20  |ubmenu(q))....  |
000024a0  cc 0d 10 c2 19 20 20 20  21 72 65 66 28 71 29 3d  |.....   !ref(q)=|
000024b0  73 75 62 6d 65 6e 75 28  71 29 0d 10 cc 07 20 20  |submenu(q)....  |
000024c0  cd 0d 10 d6 08 20 ed 20  71 0d 10 e0 24 20 c8 99  |..... . q...$ ..|
000024d0  20 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  | "Wimp_CreateMen|
000024e0  75 22 2c 2c 6d 65 6e 75  25 2c 78 2c 79 0d 10 ea  |u",,menu%,x,y...|
000024f0  05 e1 0d 10 f4 04 0d 10  fe 1e dd 20 f2 6f 70 65  |........... .ope|
00002500  6e 74 65 6d 70 6c 61 74  65 66 69 6c 65 28 66 69  |ntemplatefile(fi|
00002510  6c 65 24 29 0d 11 08 22  20 c8 99 20 22 57 69 6d  |le$)..." .. "Wim|
00002520  70 5f 4f 70 65 6e 54 65  6d 70 6c 61 74 65 22 2c  |p_OpenTemplate",|
00002530  2c 66 69 6c 65 24 0d 11  12 05 e1 0d 11 1c 04 0d  |,file$..........|
00002540  11 26 1a dd 20 f2 6c 6f  61 64 74 65 6d 70 6c 61  |.&.. .loadtempla|
00002550  74 65 28 6e 61 6d 65 24  29 0d 11 30 13 ea 20 74  |te(name$)..0.. t|
00002560  79 70 65 25 2c 70 6f 73  25 2c 78 25 0d 11 3a 4c  |ype%,pos%,x%..:L|
00002570  20 c8 99 20 22 57 69 6d  70 5f 4c 6f 61 64 54 65  | .. "Wimp_LoadTe|
00002580  6d 70 6c 61 74 65 22 2c  2c 71 25 2c 69 70 74 72  |mplate",,q%,iptr|
00002590  25 2c 69 65 6e 64 25 2c  2d 31 2c 6e 61 6d 65 24  |%,iend%,-1,name$|
000025a0  2c 30 20 b8 74 79 70 65  25 2c 2c 69 70 74 72 25  |,0 .type%,,iptr%|
000025b0  2c 2c 2c 2c 70 6f 73 25  0d 11 44 05 e1 0d 11 4e  |,,,,pos%..D....N|
000025c0  04 0d 11 58 18 dd 20 f2  63 6c 6f 73 65 74 65 6d  |...X.. .closetem|
000025d0  70 6c 61 74 65 66 69 6c  65 0d 11 62 1c 20 c8 99  |platefile..b. ..|
000025e0  20 22 57 69 6d 70 5f 43  6c 6f 73 65 54 65 6d 70  | "Wimp_CloseTemp|
000025f0  6c 61 74 65 22 0d 11 6c  05 e1 0d 11 76 04 0d 11  |late"..l....v...|
00002600  80 23 dd 20 f2 6d 6f 75  73 65 5f 72 65 63 74 61  |.#. .mouse_recta|
00002610  6e 67 6c 65 28 78 25 2c  79 25 2c 77 25 2c 68 25  |ngle(x%,y%,w%,h%|
00002620  29 0d 11 8a 16 20 c8 97  20 c8 93 20 78 25 2c 79  |).... .. .. x%,y|
00002630  25 2c 77 25 2c 68 25 0d  11 94 05 e1 0d 11 9e 04  |%,w%,h%.........|
00002640  0d 11 a8 1e dd 20 f2 6d  6f 75 73 65 5f 6c 69 6d  |..... .mouse_lim|
00002650  69 74 28 62 2c 77 68 61  6e 64 6c 65 25 29 0d 11  |it(b,whandle%)..|
00002660  b2 11 20 62 21 30 3d 77  68 61 6e 64 6c 65 25 0d  |.. b!0=whandle%.|
00002670  11 bc 20 20 c8 99 20 22  57 69 6d 70 5f 47 65 74  |..  .. "Wimp_Get|
00002680  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 62 0d  |WindowState",,b.|
00002690  11 c6 30 20 f2 6d 6f 75  73 65 5f 72 65 63 74 61  |..0 .mouse_recta|
000026a0  6e 67 6c 65 28 62 21 34  2c 62 21 38 2c 62 21 31  |ngle(b!4,b!8,b!1|
000026b0  32 2d 62 21 34 2c 62 21  31 36 2d 62 21 38 29 0d  |2-b!4,b!16-b!8).|
000026c0  11 d0 05 e1 0d 11 da 04  0d 11 e4 15 dd 20 f2 64  |............. .d|
000026d0  65 6c 61 79 28 73 65 63  6f 6e 64 73 29 0d 11 ee  |elay(seconds)...|
000026e0  0a ea 20 74 69 6d 65 0d  11 f8 1f 20 74 69 6d 65  |.. time.... time|
000026f0  20 3d 20 91 20 2b 20 28  73 65 63 6f 6e 64 73 20  | = . + (seconds |
00002700  2a 20 31 30 30 29 0d 12  02 06 20 f5 0d 12 0c 0f  |* 100).... .....|
00002710  20 fd 20 91 20 3e 20 74  69 6d 65 0d 12 16 05 e1  | . . > time.....|
00002720  0d 12 20 04 0d 12 2a 28  dd 20 f2 57 69 6e 64 6f  |.. ...*(. .Windo|
00002730  77 5f 52 65 54 69 74 6c  65 28 62 2c 77 68 61 6e  |w_ReTitle(b,whan|
00002740  64 6c 65 25 2c 74 69 74  6c 65 24 29 0d 12 34 0b  |dle%,title$)..4.|
00002750  ea 20 77 6f 62 6c 6b 0d  12 3e 0e 20 de 20 77 6f  |. woblk..>. . wo|
00002760  62 6c 6b 20 35 0d 12 48  11 20 62 21 30 3d 77 68  |blk 5..H. b!0=wh|
00002770  61 6e 64 6c 65 25 0d 12  52 1f 20 c8 99 20 22 57  |andle%..R. .. "W|
00002780  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 49 6e 66  |imp_GetWindowInf|
00002790  6f 22 2c 2c 62 0d 12 5c  16 20 24 28 21 28 62 2b  |o",,b..\. $(!(b+|
000027a0  37 36 29 29 3d 74 69 74  6c 65 24 0d 12 66 15 20  |76))=title$..f. |
000027b0  77 6f 62 6c 6b 21 30 3d  77 68 61 6e 64 6c 65 25  |woblk!0=whandle%|
000027c0  0d 12 70 26 20 c8 99 20  22 57 69 6d 70 5f 47 65  |..p& .. "Wimp_Ge|
000027d0  74 57 69 6e 64 6f 77 4f  75 74 6c 69 6e 65 22 2c  |tWindowOutline",|
000027e0  2c 77 6f 62 6c 6b 0d 12  7a 45 20 c8 99 20 22 57  |,woblk..zE .. "W|
000027f0  69 6d 70 5f 46 6f 72 63  65 52 65 64 72 61 77 22  |imp_ForceRedraw"|
00002800  2c 2d 31 2c 77 6f 62 6c  6b 21 34 2c 28 77 6f 62  |,-1,woblk!4,(wob|
00002810  6c 6b 21 31 36 29 2d 34  30 2c 77 6f 62 6c 6b 21  |lk!16)-40,woblk!|
00002820  31 32 2c 77 6f 62 6c 6b  21 31 36 0d 12 84 05 e1  |12,woblk!16.....|
00002830  0d 12 8e 04 0d 12 98 12  dd 20 a4 6c 65 61 66 28  |......... .leaf(|
00002840  70 61 74 68 24 29 0d 12  a2 13 20 c8 95 20 a7 70  |path$).... .. .p|
00002850  61 74 68 24 2c 22 2e 22  29 0d 12 ac 21 20 20 70  |ath$,".")...!  p|
00002860  61 74 68 24 3d c1 70 61  74 68 24 2c a7 70 61 74  |ath$=.path$,.pat|
00002870  68 24 2c 22 2e 22 29 2b  31 29 0d 12 b6 06 20 ce  |h$,".")+1).... .|
00002880  0d 12 c0 0a 3d 70 61 74  68 24 0d 12 ca 04 0d 12  |....=path$......|
00002890  d4 11 dd 20 a4 67 6e 61  6d 65 28 70 74 72 29 0d  |... .gname(ptr).|
000028a0  12 de 0a 20 66 24 3d 22  22 0d 12 e8 1a 20 c8 95  |... f$="".... ..|
000028b0  20 3f 70 74 72 3c 3e 30  20 80 20 3f 70 74 72 3c  | ?ptr<>0 . ?ptr<|
000028c0  3e 31 33 0d 12 f2 18 20  20 66 24 3d 66 24 2b bd  |>13....  f$=f$+.|
000028d0  3f 70 74 72 3a 70 74 72  2b 3d 31 0d 12 fc 06 20  |?ptr:ptr+=1.... |
000028e0  ce 0d 13 06 07 3d 66 24  0d 13 10 04 0d 13 1a 0b  |.....=f$........|
000028f0  dd 20 f2 68 65 6c 70 0d  13 24 11 20 e7 20 ac 20  |. .help..$. . . |
00002900  6f 70 65 6e 32 25 20 8c  0d 13 2e 0e 20 20 6f 70  |open2% .....  op|
00002910  65 6e 32 25 3d b9 0d 13  38 10 20 20 71 25 21 30  |en2%=...8.  q%!0|
00002920  3d 68 65 6c 70 25 0d 13  42 22 20 20 c8 99 20 22  |=help%..B"  .. "|
00002930  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00002940  61 74 65 22 2c 2c 71 25  0d 13 4c 0d 20 20 71 25  |ate",,q%..L.  q%|
00002950  21 32 34 3d 30 0d 13 56  0e 20 20 71 25 21 32 38  |!24=0..V.  q%!28|
00002960  3d 2d 31 0d 13 60 1e 20  20 c8 99 20 22 57 69 6d  |=-1..`.  .. "Wim|
00002970  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 71  |p_OpenWindow",,q|
00002980  25 0d 13 6a 06 20 cd 0d  13 74 05 e1 0d 13 7e 04  |%..j. ...t....~.|
00002990  0d 13 88 1a dd 20 f2 65  76 61 6c 75 61 74 65 5f  |..... .evaluate_|
000029a0  65 78 70 72 65 73 73 69  6f 6e 0d 13 92 16 ea 20  |expression..... |
000029b0  66 6f 72 6d 75 6c 61 24  2c 61 6e 73 77 65 72 24  |formula$,answer$|
000029c0  0d 13 9c 13 20 f2 73 65  74 5f 76 61 72 69 61 62  |.... .set_variab|
000029d0  6c 65 73 0d 13 a6 28 20  66 6f 72 6d 75 6c 61 24  |les...( formula$|
000029e0  3d a4 69 63 6f 6e 5f 67  65 74 64 61 74 61 28 71  |=.icon_getdata(q|
000029f0  25 2c 6d 61 69 6e 77 25  2c 30 29 0d 13 b0 14 20  |%,mainw%,0).... |
00002a00  e7 20 66 6f 72 6d 75 6c  61 24 3d 22 22 20 8c 0d  |. formula$="" ..|
00002a10  13 ba 26 20 20 f2 69 63  6f 6e 5f 70 75 74 64 61  |..&  .icon_putda|
00002a20  74 61 28 71 25 2c 6d 61  69 6e 77 25 2c 34 2c 22  |ta(q%,mainw%,4,"|
00002a30  30 22 2c b9 29 0d 13 c4  06 20 cc 0d 13 ce 24 20  |0",.).... ....$ |
00002a40  20 66 6f 72 6d 75 6c 61  24 3d a4 6c 6f 77 65 72  | formula$=.lower|
00002a50  5f 63 61 73 65 28 66 6f  72 6d 75 6c 61 24 29 0d  |_case(formula$).|
00002a60  13 d8 29 20 20 66 6f 72  6d 75 6c 61 24 3d a4 69  |..)  formula$=.i|
00002a70  6e 73 65 72 74 5f 62 72  61 63 6b 65 74 73 28 66  |nsert_brackets(f|
00002a80  6f 72 6d 75 6c 61 24 29  0d 13 e2 1c 20 20 61 6e  |ormula$)....  an|
00002a90  73 77 65 72 24 3d c3 28  a0 28 66 6f 72 6d 75 6c  |swer$=.(.(formul|
00002aa0  61 24 29 29 0d 13 ec 2a  20 20 f2 69 63 6f 6e 5f  |a$))...*  .icon_|
00002ab0  70 75 74 64 61 74 61 28  71 25 2c 6d 61 69 6e 77  |putdata(q%,mainw|
00002ac0  25 2c 34 2c 61 6e 73 77  65 72 24 2c b9 29 0d 13  |%,4,answer$,.)..|
00002ad0  f6 06 20 cd 0d 14 00 05  e1 0d 14 0a 04 0d 14 14  |.. .............|
00002ae0  16 dd 20 f2 63 6c 65 61  72 5f 76 61 72 69 61 62  |.. .clear_variab|
00002af0  6c 65 73 0d 14 1e 16 20  c8 99 20 22 48 6f 75 72  |les.... .. "Hour|
00002b00  67 6c 61 73 73 5f 4f 6e  22 0d 14 28 29 20 61 3d  |glass_On"..() a=|
00002b10  30 3a f2 69 63 6f 6e 5f  70 75 74 64 61 74 61 28  |0:.icon_putdata(|
00002b20  71 25 2c 6d 61 69 6e 77  25 2c 33 31 2c c3 61 2c  |q%,mainw%,31,.a,|
00002b30  b9 29 0d 14 32 29 20 62  3d 30 3a f2 69 63 6f 6e  |.)..2) b=0:.icon|
00002b40  5f 70 75 74 64 61 74 61  28 71 25 2c 6d 61 69 6e  |_putdata(q%,main|
00002b50  77 25 2c 33 32 2c c3 62  2c b9 29 0d 14 3c 29 20  |w%,32,.b,.)..<) |
00002b60  63 3d 30 3a f2 69 63 6f  6e 5f 70 75 74 64 61 74  |c=0:.icon_putdat|
00002b70  61 28 71 25 2c 6d 61 69  6e 77 25 2c 33 33 2c c3  |a(q%,mainw%,33,.|
00002b80  63 2c b9 29 0d 14 46 29  20 64 3d 30 3a f2 69 63  |c,.)..F) d=0:.ic|
00002b90  6f 6e 5f 70 75 74 64 61  74 61 28 71 25 2c 6d 61  |on_putdata(q%,ma|
00002ba0  69 6e 77 25 2c 33 34 2c  c3 64 2c b9 29 0d 14 50  |inw%,34,.d,.)..P|
00002bb0  29 20 65 3d 30 3a f2 69  63 6f 6e 5f 70 75 74 64  |) e=0:.icon_putd|
00002bc0  61 74 61 28 71 25 2c 6d  61 69 6e 77 25 2c 33 35  |ata(q%,mainw%,35|
00002bd0  2c c3 65 2c b9 29 0d 14  5a 29 20 66 3d 30 3a f2  |,.e,.)..Z) f=0:.|
00002be0  69 63 6f 6e 5f 70 75 74  64 61 74 61 28 71 25 2c  |icon_putdata(q%,|
00002bf0  6d 61 69 6e 77 25 2c 33  36 2c c3 66 2c b9 29 0d  |mainw%,36,.f,.).|
00002c00  14 64 29 20 67 3d 30 3a  f2 69 63 6f 6e 5f 70 75  |.d) g=0:.icon_pu|
00002c10  74 64 61 74 61 28 71 25  2c 6d 61 69 6e 77 25 2c  |tdata(q%,mainw%,|
00002c20  33 37 2c c3 67 2c b9 29  0d 14 6e 29 20 68 3d 30  |37,.g,.)..n) h=0|
00002c30  3a f2 69 63 6f 6e 5f 70  75 74 64 61 74 61 28 71  |:.icon_putdata(q|
00002c40  25 2c 6d 61 69 6e 77 25  2c 33 38 2c c3 68 2c b9  |%,mainw%,38,.h,.|
00002c50  29 0d 14 78 29 20 69 3d  30 3a f2 69 63 6f 6e 5f  |)..x) i=0:.icon_|
00002c60  70 75 74 64 61 74 61 28  71 25 2c 6d 61 69 6e 77  |putdata(q%,mainw|
00002c70  25 2c 33 39 2c c3 69 2c  b9 29 0d 14 82 29 20 6a  |%,39,.i,.)...) j|
00002c80  3d 30 3a f2 69 63 6f 6e  5f 70 75 74 64 61 74 61  |=0:.icon_putdata|
00002c90  28 71 25 2c 6d 61 69 6e  77 25 2c 34 30 2c c3 6a  |(q%,mainw%,40,.j|
00002ca0  2c b9 29 0d 14 8c 29 20  6b 3d 30 3a f2 69 63 6f  |,.)...) k=0:.ico|
00002cb0  6e 5f 70 75 74 64 61 74  61 28 71 25 2c 6d 61 69  |n_putdata(q%,mai|
00002cc0  6e 77 25 2c 34 31 2c c3  6b 2c b9 29 0d 14 96 29  |nw%,41,.k,.)...)|
00002cd0  20 6c 3d 30 3a f2 69 63  6f 6e 5f 70 75 74 64 61  | l=0:.icon_putda|
00002ce0  74 61 28 71 25 2c 6d 61  69 6e 77 25 2c 34 32 2c  |ta(q%,mainw%,42,|
00002cf0  c3 6c 2c b9 29 0d 14 a0  29 20 6d 3d 30 3a f2 69  |.l,.)...) m=0:.i|
00002d00  63 6f 6e 5f 70 75 74 64  61 74 61 28 71 25 2c 6d  |con_putdata(q%,m|
00002d10  61 69 6e 77 25 2c 34 33  2c c3 6d 2c b9 29 0d 14  |ainw%,43,.m,.)..|
00002d20  aa 29 20 6e 3d 30 3a f2  69 63 6f 6e 5f 70 75 74  |.) n=0:.icon_put|
00002d30  64 61 74 61 28 71 25 2c  6d 61 69 6e 77 25 2c 34  |data(q%,mainw%,4|
00002d40  34 2c c3 6e 2c b9 29 0d  14 b4 29 20 6f 3d 30 3a  |4,.n,.)...) o=0:|
00002d50  f2 69 63 6f 6e 5f 70 75  74 64 61 74 61 28 71 25  |.icon_putdata(q%|
00002d60  2c 6d 61 69 6e 77 25 2c  34 35 2c c3 6f 2c b9 29  |,mainw%,45,.o,.)|
00002d70  0d 14 be 29 20 70 3d 30  3a f2 69 63 6f 6e 5f 70  |...) p=0:.icon_p|
00002d80  75 74 64 61 74 61 28 71  25 2c 6d 61 69 6e 77 25  |utdata(q%,mainw%|
00002d90  2c 34 36 2c c3 70 2c b9  29 0d 14 c8 29 20 71 3d  |,46,.p,.)...) q=|
00002da0  30 3a f2 69 63 6f 6e 5f  70 75 74 64 61 74 61 28  |0:.icon_putdata(|
00002db0  71 25 2c 6d 61 69 6e 77  25 2c 34 37 2c c3 71 2c  |q%,mainw%,47,.q,|
00002dc0  b9 29 0d 14 d2 29 20 72  3d 30 3a f2 69 63 6f 6e  |.)...) r=0:.icon|
00002dd0  5f 70 75 74 64 61 74 61  28 71 25 2c 6d 61 69 6e  |_putdata(q%,main|
00002de0  77 25 2c 34 38 2c c3 72  2c b9 29 0d 14 dc 29 20  |w%,48,.r,.)...) |
00002df0  73 3d 30 3a f2 69 63 6f  6e 5f 70 75 74 64 61 74  |s=0:.icon_putdat|
00002e00  61 28 71 25 2c 6d 61 69  6e 77 25 2c 34 39 2c c3  |a(q%,mainw%,49,.|
00002e10  73 2c b9 29 0d 14 e6 29  20 74 3d 30 3a f2 69 63  |s,.)...) t=0:.ic|
00002e20  6f 6e 5f 70 75 74 64 61  74 61 28 71 25 2c 6d 61  |on_putdata(q%,ma|
00002e30  69 6e 77 25 2c 35 30 2c  c3 74 2c b9 29 0d 14 f0  |inw%,50,.t,.)...|
00002e40  29 20 75 3d 30 3a f2 69  63 6f 6e 5f 70 75 74 64  |) u=0:.icon_putd|
00002e50  61 74 61 28 71 25 2c 6d  61 69 6e 77 25 2c 35 31  |ata(q%,mainw%,51|
00002e60  2c c3 75 2c b9 29 0d 14  fa 29 20 76 3d 30 3a f2  |,.u,.)...) v=0:.|
00002e70  69 63 6f 6e 5f 70 75 74  64 61 74 61 28 71 25 2c  |icon_putdata(q%,|
00002e80  6d 61 69 6e 77 25 2c 35  32 2c c3 76 2c b9 29 0d  |mainw%,52,.v,.).|
00002e90  15 04 29 20 77 3d 30 3a  f2 69 63 6f 6e 5f 70 75  |..) w=0:.icon_pu|
00002ea0  74 64 61 74 61 28 71 25  2c 6d 61 69 6e 77 25 2c  |tdata(q%,mainw%,|
00002eb0  35 33 2c c3 77 2c b9 29  0d 15 0e 29 20 78 3d 30  |53,.w,.)...) x=0|
00002ec0  3a f2 69 63 6f 6e 5f 70  75 74 64 61 74 61 28 71  |:.icon_putdata(q|
00002ed0  25 2c 6d 61 69 6e 77 25  2c 35 34 2c c3 78 2c b9  |%,mainw%,54,.x,.|
00002ee0  29 0d 15 18 29 20 79 3d  30 3a f2 69 63 6f 6e 5f  |)...) y=0:.icon_|
00002ef0  70 75 74 64 61 74 61 28  71 25 2c 6d 61 69 6e 77  |putdata(q%,mainw|
00002f00  25 2c 35 35 2c c3 79 2c  b9 29 0d 15 22 29 20 7a  |%,55,.y,.)..") z|
00002f10  3d 30 3a f2 69 63 6f 6e  5f 70 75 74 64 61 74 61  |=0:.icon_putdata|
00002f20  28 71 25 2c 6d 61 69 6e  77 25 2c 35 36 2c c3 7a  |(q%,mainw%,56,.z|
00002f30  2c b9 29 0d 15 2c 12 20  f2 63 6c 65 61 72 5f 61  |,.)..,. .clear_a|
00002f40  6e 73 77 65 72 0d 15 36  17 20 c8 99 20 22 48 6f  |nswer..6. .. "Ho|
00002f50  75 72 67 6c 61 73 73 5f  4f 66 66 22 0d 15 40 05  |urglass_Off"..@.|
00002f60  e1 0d 15 4a 04 0d 15 54  13 dd 20 f2 63 6c 65 61  |...J...T.. .clea|
00002f70  72 5f 61 6e 73 77 65 72  0d 15 5e 25 20 f2 69 63  |r_answer..^% .ic|
00002f80  6f 6e 5f 70 75 74 64 61  74 61 28 71 25 2c 6d 61  |on_putdata(q%,ma|
00002f90  69 6e 77 25 2c 34 2c 22  30 22 2c b9 29 0d 15 68  |inw%,4,"0",.)..h|
00002fa0  05 e1 0d 15 72 04 0d 15  7c 14 dd 20 f2 73 65 74  |....r...|.. .set|
00002fb0  5f 76 61 72 69 61 62 6c  65 73 0d 15 86 16 20 c8  |_variables.... .|
00002fc0  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 4f 6e 22  |. "Hourglass_On"|
00002fd0  0d 15 90 23 20 61 3d bb  a4 69 63 6f 6e 5f 67 65  |...# a=..icon_ge|
00002fe0  74 64 61 74 61 28 71 25  2c 6d 61 69 6e 77 25 2c  |tdata(q%,mainw%,|
00002ff0  33 31 29 0d 15 9a 23 20  62 3d bb a4 69 63 6f 6e  |31)...# b=..icon|
00003000  5f 67 65 74 64 61 74 61  28 71 25 2c 6d 61 69 6e  |_getdata(q%,main|
00003010  77 25 2c 33 32 29 0d 15  a4 23 20 63 3d bb a4 69  |w%,32)...# c=..i|
00003020  63 6f 6e 5f 67 65 74 64  61 74 61 28 71 25 2c 6d  |con_getdata(q%,m|
00003030  61 69 6e 77 25 2c 33 33  29 0d 15 ae 23 20 64 3d  |ainw%,33)...# d=|
00003040  bb a4 69 63 6f 6e 5f 67  65 74 64 61 74 61 28 71  |..icon_getdata(q|
00003050  25 2c 6d 61 69 6e 77 25  2c 33 34 29 0d 15 b8 23  |%,mainw%,34)...#|
00003060  20 65 3d bb a4 69 63 6f  6e 5f 67 65 74 64 61 74  | e=..icon_getdat|
00003070  61 28 71 25 2c 6d 61 69  6e 77 25 2c 33 35 29 0d  |a(q%,mainw%,35).|
00003080  15 c2 23 20 66 3d bb a4  69 63 6f 6e 5f 67 65 74  |..# f=..icon_get|
00003090  64 61 74 61 28 71 25 2c  6d 61 69 6e 77 25 2c 33  |data(q%,mainw%,3|
000030a0  36 29 0d 15 cc 23 20 67  3d bb a4 69 63 6f 6e 5f  |6)...# g=..icon_|
000030b0  67 65 74 64 61 74 61 28  71 25 2c 6d 61 69 6e 77  |getdata(q%,mainw|
000030c0  25 2c 33 37 29 0d 15 d6  23 20 68 3d bb a4 69 63  |%,37)...# h=..ic|
000030d0  6f 6e 5f 67 65 74 64 61  74 61 28 71 25 2c 6d 61  |on_getdata(q%,ma|
000030e0  69 6e 77 25 2c 33 38 29  0d 15 e0 23 20 69 3d bb  |inw%,38)...# i=.|
000030f0  a4 69 63 6f 6e 5f 67 65  74 64 61 74 61 28 71 25  |.icon_getdata(q%|
00003100  2c 6d 61 69 6e 77 25 2c  33 39 29 0d 15 ea 23 20  |,mainw%,39)...# |
00003110  6a 3d bb a4 69 63 6f 6e  5f 67 65 74 64 61 74 61  |j=..icon_getdata|
00003120  28 71 25 2c 6d 61 69 6e  77 25 2c 34 30 29 0d 15  |(q%,mainw%,40)..|
00003130  f4 23 20 6b 3d bb a4 69  63 6f 6e 5f 67 65 74 64  |.# k=..icon_getd|
00003140  61 74 61 28 71 25 2c 6d  61 69 6e 77 25 2c 34 31  |ata(q%,mainw%,41|
00003150  29 0d 15 fe 23 20 6c 3d  bb a4 69 63 6f 6e 5f 67  |)...# l=..icon_g|
00003160  65 74 64 61 74 61 28 71  25 2c 6d 61 69 6e 77 25  |etdata(q%,mainw%|
00003170  2c 34 32 29 0d 16 08 23  20 6d 3d bb a4 69 63 6f  |,42)...# m=..ico|
00003180  6e 5f 67 65 74 64 61 74  61 28 71 25 2c 6d 61 69  |n_getdata(q%,mai|
00003190  6e 77 25 2c 34 33 29 0d  16 12 23 20 6e 3d bb a4  |nw%,43)...# n=..|
000031a0  69 63 6f 6e 5f 67 65 74  64 61 74 61 28 71 25 2c  |icon_getdata(q%,|
000031b0  6d 61 69 6e 77 25 2c 34  34 29 0d 16 1c 23 20 6f  |mainw%,44)...# o|
000031c0  3d bb a4 69 63 6f 6e 5f  67 65 74 64 61 74 61 28  |=..icon_getdata(|
000031d0  71 25 2c 6d 61 69 6e 77  25 2c 34 35 29 0d 16 26  |q%,mainw%,45)..&|
000031e0  23 20 70 3d bb a4 69 63  6f 6e 5f 67 65 74 64 61  |# p=..icon_getda|
000031f0  74 61 28 71 25 2c 6d 61  69 6e 77 25 2c 34 36 29  |ta(q%,mainw%,46)|
00003200  0d 16 30 23 20 71 3d bb  a4 69 63 6f 6e 5f 67 65  |..0# q=..icon_ge|
00003210  74 64 61 74 61 28 71 25  2c 6d 61 69 6e 77 25 2c  |tdata(q%,mainw%,|
00003220  34 37 29 0d 16 3a 23 20  72 3d bb a4 69 63 6f 6e  |47)..:# r=..icon|
00003230  5f 67 65 74 64 61 74 61  28 71 25 2c 6d 61 69 6e  |_getdata(q%,main|
00003240  77 25 2c 34 38 29 0d 16  44 23 20 73 3d bb a4 69  |w%,48)..D# s=..i|
00003250  63 6f 6e 5f 67 65 74 64  61 74 61 28 71 25 2c 6d  |con_getdata(q%,m|
00003260  61 69 6e 77 25 2c 34 39  29 0d 16 4e 23 20 74 3d  |ainw%,49)..N# t=|
00003270  bb a4 69 63 6f 6e 5f 67  65 74 64 61 74 61 28 71  |..icon_getdata(q|
00003280  25 2c 6d 61 69 6e 77 25  2c 35 30 29 0d 16 58 23  |%,mainw%,50)..X#|
00003290  20 75 3d bb a4 69 63 6f  6e 5f 67 65 74 64 61 74  | u=..icon_getdat|
000032a0  61 28 71 25 2c 6d 61 69  6e 77 25 2c 35 31 29 0d  |a(q%,mainw%,51).|
000032b0  16 62 23 20 76 3d bb a4  69 63 6f 6e 5f 67 65 74  |.b# v=..icon_get|
000032c0  64 61 74 61 28 71 25 2c  6d 61 69 6e 77 25 2c 35  |data(q%,mainw%,5|
000032d0  32 29 0d 16 6c 23 20 77  3d bb a4 69 63 6f 6e 5f  |2)..l# w=..icon_|
000032e0  67 65 74 64 61 74 61 28  71 25 2c 6d 61 69 6e 77  |getdata(q%,mainw|
000032f0  25 2c 35 33 29 0d 16 76  23 20 78 3d bb a4 69 63  |%,53)..v# x=..ic|
00003300  6f 6e 5f 67 65 74 64 61  74 61 28 71 25 2c 6d 61  |on_getdata(q%,ma|
00003310  69 6e 77 25 2c 35 34 29  0d 16 80 23 20 79 3d bb  |inw%,54)...# y=.|
00003320  a4 69 63 6f 6e 5f 67 65  74 64 61 74 61 28 71 25  |.icon_getdata(q%|
00003330  2c 6d 61 69 6e 77 25 2c  35 35 29 0d 16 8a 23 20  |,mainw%,55)...# |
00003340  7a 3d bb a4 69 63 6f 6e  5f 67 65 74 64 61 74 61  |z=..icon_getdata|
00003350  28 71 25 2c 6d 61 69 6e  77 25 2c 35 36 29 0d 16  |(q%,mainw%,56)..|
00003360  94 17 20 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |.. .. "Hourglass|
00003370  5f 4f 66 66 22 0d 16 9e  05 e1 0d 16 a8 04 0d 16  |_Off"...........|
00003380  b2 1a dd 20 a4 6c 6f 77  65 72 5f 63 61 73 65 28  |... .lower_case(|
00003390  73 74 72 69 6e 67 24 29  0d 16 bc 0a ea 20 6c 6f  |string$)..... lo|
000033a0  6f 70 0d 16 c6 1a 20 e3  20 6c 6f 6f 70 3d 31 20  |op.... . loop=1 |
000033b0  b8 20 a9 28 73 74 72 69  6e 67 24 29 0d 16 d0 37  |. .(string$)...7|
000033c0  20 20 e7 20 c1 73 74 72  69 6e 67 24 2c 6c 6f 6f  |  . .string$,loo|
000033d0  70 2c 31 29 3e 3d 22 41  22 20 80 20 c1 73 74 72  |p,1)>="A" . .str|
000033e0  69 6e 67 24 2c 6c 6f 6f  70 2c 31 29 3c 3d 22 5a  |ing$,loop,1)<="Z|
000033f0  22 20 8c 0d 16 da 36 20  20 20 c1 73 74 72 69 6e  |" ....6   .strin|
00003400  67 24 2c 6c 6f 6f 70 2c  31 29 20 3d 20 bd 28 20  |g$,loop,1) = .( |
00003410  97 28 c1 73 74 72 69 6e  67 24 2c 6c 6f 6f 70 2c  |.(.string$,loop,|
00003420  31 29 29 20 82 20 33 32  29 0d 16 e4 07 20 20 cd  |1)) . 32)....  .|
00003430  0d 16 ee 0b 20 ed 20 6c  6f 6f 70 0d 16 f8 0c 3d  |.... . loop....=|
00003440  73 74 72 69 6e 67 24 0d  17 02 04 0d 17 0c 1d dd  |string$.........|
00003450  20 f2 69 6e 73 65 72 74  5f 73 74 72 69 6e 67 28  | .insert_string(|
00003460  73 74 72 69 6e 67 24 29  0d 17 16 0a ea 20 6c 6f  |string$)..... lo|
00003470  6f 70 0d 17 20 1a 20 e3  20 6c 6f 6f 70 3d 31 20  |op.. . . loop=1 |
00003480  b8 20 a9 28 73 74 72 69  6e 67 24 29 0d 17 2a 2e  |. .(string$)..*.|
00003490  20 20 c8 99 20 22 57 69  6d 70 5f 50 72 6f 63 65  |  .. "Wimp_Proce|
000034a0  73 73 4b 65 79 22 2c 97  28 c1 73 74 72 69 6e 67  |ssKey",.(.string|
000034b0  24 2c 6c 6f 6f 70 2c 31  29 29 0d 17 34 14 20 20  |$,loop,1))..4.  |
000034c0  64 75 6d 6d 79 3d a4 70  6f 6c 6c 28 30 29 0d 17  |dummy=.poll(0)..|
000034d0  3e 0b 20 ed 20 6c 6f 6f  70 0d 17 48 05 e1 0d 17  |>. . loop..H....|
000034e0  52 04 0d 17 5c 1f dd 20  a4 69 6e 73 65 72 74 5f  |R...\.. .insert_|
000034f0  62 72 61 63 6b 65 74 73  28 73 74 72 69 6e 67 24  |brackets(string$|
00003500  29 0d 17 66 28 ea 20 6c  6f 6f 70 2c 6c 6f 6f 70  |)..f(. loop,loop|
00003510  32 2c 63 68 61 72 24 2c  74 6d 70 31 24 2c 74 6d  |2,char$,tmp1$,tm|
00003520  70 32 24 2c 74 6d 70 33  24 0d 17 70 11 20 e3 20  |p2$,tmp3$..p. . |
00003530  6c 6f 6f 70 3d 30 20 b8  20 31 0d 17 7a 1c 20 20  |loop=0 . 1..z.  |
00003540  e3 20 6c 6f 6f 70 32 3d  31 20 b8 20 a9 28 73 74  |. loop2=1 . .(st|
00003550  72 69 6e 67 24 29 0d 17  84 1e 20 20 20 63 68 61  |ring$)....   cha|
00003560  72 24 3d c1 73 74 72 69  6e 67 24 2c 6c 6f 6f 70  |r$=.string$,loop|
00003570  32 2c 31 29 0d 17 8e 25  20 20 20 6e 65 78 74 5f  |2,1)...%   next_|
00003580  63 68 61 72 24 3d c1 73  74 72 69 6e 67 24 2c 6c  |char$=.string$,l|
00003590  6f 6f 70 32 2b 31 2c 31  29 0d 17 98 33 20 20 20  |oop2+1,1)...3   |
000035a0  e7 20 a4 76 61 72 69 61  62 6c 65 28 63 68 61 72  |. .variable(char|
000035b0  24 29 20 80 20 a4 76 61  72 69 61 62 6c 65 28 6e  |$) . .variable(n|
000035c0  65 78 74 5f 63 68 61 72  24 29 20 8c 0d 17 a2 1d  |ext_char$) .....|
000035d0  20 20 20 20 74 6d 70 31  24 3d c0 73 74 72 69 6e  |    tmp1$=.strin|
000035e0  67 24 2c 6c 6f 6f 70 32  29 0d 17 ac 11 20 20 20  |g$,loop2)....   |
000035f0  20 74 6d 70 32 24 3d 22  2a 22 0d 17 b6 28 20 20  | tmp2$="*"...(  |
00003600  20 20 74 6d 70 33 24 3d  c2 73 74 72 69 6e 67 24  |  tmp3$=.string$|
00003610  2c a9 28 73 74 72 69 6e  67 24 29 2d 6c 6f 6f 70  |,.(string$)-loop|
00003620  32 29 0d 17 c0 21 20 20  20 20 73 74 72 69 6e 67  |2)...!    string|
00003630  24 3d 74 6d 70 31 24 2b  74 6d 70 32 24 2b 74 6d  |$=tmp1$+tmp2$+tm|
00003640  70 33 24 0d 17 ca 08 20  20 20 cd 0d 17 d4 31 20  |p3$....   ....1 |
00003650  20 20 e7 20 a4 6e 75 6d  62 65 72 28 63 68 61 72  |  . .number(char|
00003660  24 29 20 80 20 a4 76 61  72 69 61 62 6c 65 28 6e  |$) . .variable(n|
00003670  65 78 74 5f 63 68 61 72  24 29 20 8c 0d 17 de 1d  |ext_char$) .....|
00003680  20 20 20 20 74 6d 70 31  24 3d c0 73 74 72 69 6e  |    tmp1$=.strin|
00003690  67 24 2c 6c 6f 6f 70 32  29 0d 17 e8 11 20 20 20  |g$,loop2)....   |
000036a0  20 74 6d 70 32 24 3d 22  2a 22 0d 17 f2 28 20 20  | tmp2$="*"...(  |
000036b0  20 20 74 6d 70 33 24 3d  c2 73 74 72 69 6e 67 24  |  tmp3$=.string$|
000036c0  2c a9 28 73 74 72 69 6e  67 24 29 2d 6c 6f 6f 70  |,.(string$)-loop|
000036d0  32 29 0d 17 fc 21 20 20  20 20 73 74 72 69 6e 67  |2)...!    string|
000036e0  24 3d 74 6d 70 31 24 2b  74 6d 70 32 24 2b 74 6d  |$=tmp1$+tmp2$+tm|
000036f0  70 33 24 0d 18 06 08 20  20 20 cd 0d 18 10 0d 20  |p3$....   ..... |
00003700  20 ed 20 6c 6f 6f 70 32  0d 18 1a 0b 20 ed 20 6c  | . loop2.... . l|
00003710  6f 6f 70 0d 18 24 0c 3d  73 74 72 69 6e 67 24 0d  |oop..$.=string$.|
00003720  18 2e 04 0d 18 38 16 dd  20 a4 76 61 72 69 61 62  |.....8.. .variab|
00003730  6c 65 28 63 68 61 72 24  29 0d 18 42 0b ea 20 66  |le(char$)..B.. f|
00003740  6c 61 67 25 0d 18 4c 28  20 e7 20 97 28 63 68 61  |lag%..L( . .(cha|
00003750  72 24 29 3e 3d 97 22 61  22 20 80 20 97 28 63 68  |r$)>=."a" . .(ch|
00003760  61 72 24 29 3c 3d 97 22  7a 22 20 8c 0d 18 56 0d  |ar$)<=."z" ...V.|
00003770  20 20 66 6c 61 67 25 3d  b9 0d 18 60 06 20 cc 0d  |  flag%=...`. ..|
00003780  18 6a 0d 20 20 66 6c 61  67 25 3d a3 0d 18 74 06  |.j.  flag%=...t.|
00003790  20 cd 0d 18 7e 0a 3d 66  6c 61 67 25 0d 18 88 04  | ...~.=flag%....|
000037a0  0d 18 92 14 dd 20 a4 6e  75 6d 62 65 72 28 63 68  |..... .number(ch|
000037b0  61 72 24 29 0d 18 9c 0b  ea 20 66 6c 61 67 25 0d  |ar$)..... flag%.|
000037c0  18 a6 28 20 e7 20 97 28  63 68 61 72 24 29 3e 3d  |..( . .(char$)>=|
000037d0  97 22 30 22 20 80 20 97  28 63 68 61 72 24 29 3c  |."0" . .(char$)<|
000037e0  3d 97 22 39 22 20 8c 0d  18 b0 0d 20 20 66 6c 61  |=."9" .....  fla|
000037f0  67 25 3d b9 0d 18 ba 06  20 cc 0d 18 c4 0d 20 20  |g%=..... .....  |
00003800  66 6c 61 67 25 3d a3 0d  18 ce 06 20 cd 0d 18 d8  |flag%=..... ....|
00003810  0a 3d 66 6c 61 67 25 0d  ff                       |.=flag%..|
00003819