� > !RunImage
� taskid%4:$taskid%="TASK"
=ș "Wimp_Initialise",200,!taskid%,"Calculator" � version%
(M`wbcol=10:`tbcol=12:`sco=4:`mbcol=2:`wfcol=&7:`tfcol=7:`sci=&D:`tbcol2=&C
2	�vars
<?� q% &300,temp% 256,buffer% &200,endbuf% -1:curbuf%=buffer%
F
P7ș "Wimp_OpenTemplate",,"<Calculator$Dir>.Template"
Z5� � ș "Wimp_CloseTemplate":�errordisplay(�,�$,�)
d>ș "Wimp_LoadTemplate",,q%,temp%,temp%+1,-1,"calculator",0
n&ș "Wimp_CreateWindow",,q% � calc%
x:ș "Wimp_LoadTemplate",,q%,temp%,temp%+256,-1,"Info",0
�&ș "Wimp_CreateWindow",,q% � info%
�ș "Wimp_CloseTemplate"
�� �errorbox
� 
�3S%=�"<Calculator$Dir>.!Sprites":T%=�#S%+16:�#S%
�� sprites% T%
�!sprites%=T%:sprites%!8=1
�"ș "OS_SpriteOp",&109,sprites%
�>ș "OS_SpriteOp",&10A,sprites%,"<Calculator$Dir>.!Sprites"
�iccalc%=�iconbar:�clear
� 
�;ș Drag,,-1:�getpointer:xo%=mousex%:yo%=mousey%:open%=�
��

  ș Poll%,1,q% � A%


  Ȏ A% �

  � 1 :�redraw_window(!q%)

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

,  � 3 :�closeawindow(!q%)

67  � 6 :�checkmouse(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)

@  � 9 :�menuselect(q%)

J  � 17,18:�receive(q%)

T  �

^� �

h 

r� �receive(q%)

|Ȏ q%!16 �

�� 0:�finish:�

��

��

� 

�7� �checkmouse(mousex%,mousey%,b%,handle%,icon%,ob%)

��(b%�2)�

�  Ȏ handle% �

�
  � -2

�.    �domenu(101,">Info,Quit","Calculator")

�  �

��

��(b%�5)�

�   �handle%>-1��getw(handle%)
  Ȏ handle% �
  � calc%:
    � �
&3    � � � errorflag%=�: dreg$="Error": icon%=-1
0    � errorflag% �
:;      � icon%=16 �clear:� ignore until error is cleared
D	    �
N    Ȏ icon% �
X6      � 0,1,2,3,4,5,6,7,8,9: �digit(�(icon%+�"0"))
b      � 10: �point
l      � 11: �operator("=")
v      � 12: �operator("+")
�      � 13: �operator("-")
�      � 14: �operator("*")
�      � 15: �operator("/")
�      � 16: �clear
�	    �
�	    �
�3    �update(calc%,12,-28-32,10*16+12,-24):�calc
�8  � -2:�open% �front(calc%) � �reopen(calc%):open%=�
�  �
��
��
� 
�� �closeawindow(handle%)
�getw(handle%)
xo%=x0%:yo%=y0%:open%=�
�close_window(handle%)
 �
* 
4
� �finish
>ș "Wimp_CloseDown"
H�
R 
\'� �domenu(handle%,menu$,menutitle$)
fmenuhandle%=handle%
pmenuptr%=buffer%
zi%=0
�menuptr%!20=40
�$menuptr%=menutitle$
�Jmenuptr%?12=`tfcol:menuptr%?13=2:menuptr%?14=`wfcol:menuptr%?15=`wbcol
�$menuptr%!16=196-24:menuptr%!24=0
�menuptr%+=28
�1� item$=�par(","):�menuitem(item$):� item$=""
�#menuptr%!-24=(menuptr%!-24)�&80
�'ș CrMenu,,buffer%,mousex%-64,96+80
��
� 
�� �menuitem(text$)
�� text$="" �
�!menuptr%=0
4� �text$,1)=">" menuptr%!4=info% � menuptr%!4=-1
menuptr%!8=&07000021
C� �text$,1)=">" $(menuptr%+12)=�text$,2) � $(menuptr%+12)=text$
$menuptr%+=24
.�
8 
B� �par(sep$)
L%i1%=i%+1:i%=�menu$+sep$,sep$,i1%)
V=�menu$,i1%,i%-i1%)
` 
j� �menuselect(menus%)
t-ș DcMenu,,buffer%,menus%,�200," ")�,,,a$
~� a$="" � �
�Ȏ menuhandle% �
�� 101:� a$="Quit":�finish:�
��
��
� 
�� �calc
�ȕ more%
�,  șCol%,0:ȓ Ȑ bx%+12,by%-28,10*16,-32
�4  șCol%,7:� bx%+12+16*(10-�dreg$),by%-28:�dreg$
�  ș GetR%,,q% � more%
��
��
 

� �front(handle%)
�handle%=-1��
�getw(handle%)
(6�open_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,-1)
2�
< 
F� �popup(handle%)
P�getw(handle%)
Z0xo%=mousex%-(x0%+x1%)/2:yo%=mousey%-(y1%+64)
dF�open_window(handle%,x0%+xo%,y0%+yo%,x1%+xo%,y1%+yo%,scx%,scy%,-1)
n�
x 
�� �reopen(handle%)
��getw(handle%)
�F�open_window(handle%,xo%,yo%,x1%-x0%+xo%,y1%-y0%+yo%,scx%,scy%,-1)
��
� 
�>� �open_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,bhandle%)
��handle%=-1��
�q%!0=handle%:q%!28=bhandle%
�)q%!4=x0%:q%!8=y0%:q%!12=x1%:q%!16=y1%
�q%!20=scx%:q%!24=scy%
�ș OpenW,,q%
��
� 
� �getw(handle%)
!q%=handle%:ș GetW,,q%
+�info(q%+4):bhandle%=q%!28:flags%=q%!32
"�
, 
6� �info(q%)
@=x0%=!q%:y0%=q%!4:x1%=q%!8:y1%=q%!12:scx%=q%!16:scy%=q%!20
Jbx%=x0%-scx%:by%=y1%-scy%
T�
^ 
h*� �update(handle%,ux0%,uy0%,ux1%,uy1%)
r9!q%=handle%:q%!4=ux0%:q%!8=uy0%:q%!12=ux1%:q%!16=uy1%
|&ș UpdateW,,q% � more%:�info(q%+4)
��
� 
�� �redraw_window(handle%)
��handle%=calc% �
�!q%=handle%
�ș RedrawW,,q% � more%
��info(q%+4)
�	�calc
��
��
� 
�� �close_window(handle%)
�!q%=handle%:ș CloseW,,q%
�
 
� �vars
&Wimp    = (1<<18) + (3<<6)
0CreateW = Wimp+1
:OpenW   = Wimp+5
DCloseW  = Wimp+6
NPoll%   = Wimp+7
XRedrawW = Wimp+8
bUpdateW = Wimp+9
lGetR%   = Wimp+10
vGetW    = Wimp+11
�GetP    = Wimp+15
�Drag    = Wimp+16
�CrMenu  = Wimp+20
�DcMenu  = Wimp+21
�8ș "OS_SWINumberFromString",,"Wimp_SetColour" � Col%
��
� 
�� �getpointer
�ș GetP,,q%
�Hmousex%=!q%:mousey%=q%!4:b%=q%!8:handle%=q%!12:icon%=q%!16:ob%=q%!20
��
� 
�� �errorbox
ș Drag,,-1
0!buffer%=�:$(buffer%+4)=�$+" at line "+Þ+�0
0ș "Wimp_ReportError",buffer%,1,"Calculator"
 
�finish:�
*�
4 
>� �template(a$)
H� c%
RGș "Wimp_LoadTemplate",,q%,curbuf%,endbuf%,0,a$,0 � ,,curbuf%,,,,c%
\,� c%=0 � 1,"Template '"+a$+"' not found"
f#ș "Wimp_CreateWindow",,q% � c%
p=c%
z 
�� �iconbar
�6!q%=-1:q%!4=0:q%!8=0:q%!12=63:q%!16=68:q%!20=&2102
�spname$="!calc"
�8� q%!24 (�spname$+1):$(q%!24)=spname$:q%!28=sprites%
�q%!32=�spname$+1
�"ș "Wimp_CreateIcon",,q% � ic%
�=ic%
� 
�� �clear
�@errorflag%=�:tempreg=0:entry$="0":operator$="=":dreg$=entry$
��
� 
�� �digit(key$)
	%� �entry$ - �(�entry$,".")) < 8 �
	3  � entry$="0" entry$=key$ � entry$=entry$+key$
	�
	$dreg$=entry$
	.�
	8 
	B� �point
	L4� �entry$,".")=0 � �entry$ < 8 entry$=entry$+"."
	Vdreg$=entry$
	`�
	j 
	t� �operator(key$)
	~� @%
	�@%=&01020711
	�H� operator$="=" tempreg=�dreg$ � tempreg=�(�tempreg+operator$+dreg$)
	��display(�tempreg)
	�entry$="0":operator$=key$
	��
	� 
	�� �display(value$)
	�displayreg=�value$
	�-� �displayreg >= 100000000 displayreg=0/0
	�&ȕ �value$,1)="0" � �value$,".")>0
	�!  value$=�value$,�(value$)-1)
	��
5value$=�value$,8+�(�value$,"."))+�(�value$,"-")))

0� �value$,1)="." value$=�value$,�(value$)-1)
� value$="-0" value$="0"
dreg$=value$
(�
�

00000000  0d 00 0a 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 14 1e de 20 74  61 73 6b 69 64 25 34 3a  |e..... taskid%4:|
00000020  24 74 61 73 6b 69 64 25  3d 22 54 41 53 4b 22 0d  |$taskid%="TASK".|
00000030  00 1e 3d c8 99 20 22 57  69 6d 70 5f 49 6e 69 74  |..=.. "Wimp_Init|
00000040  69 61 6c 69 73 65 22 2c  32 30 30 2c 21 74 61 73  |ialise",200,!tas|
00000050  6b 69 64 25 2c 22 43 61  6c 63 75 6c 61 74 6f 72  |kid%,"Calculator|
00000060  22 20 b8 20 76 65 72 73  69 6f 6e 25 0d 00 28 4d  |" . version%..(M|
00000070  60 77 62 63 6f 6c 3d 31  30 3a 60 74 62 63 6f 6c  |`wbcol=10:`tbcol|
00000080  3d 31 32 3a 60 73 63 6f  3d 34 3a 60 6d 62 63 6f  |=12:`sco=4:`mbco|
00000090  6c 3d 32 3a 60 77 66 63  6f 6c 3d 26 37 3a 60 74  |l=2:`wfcol=&7:`t|
000000a0  66 63 6f 6c 3d 37 3a 60  73 63 69 3d 26 44 3a 60  |fcol=7:`sci=&D:`|
000000b0  74 62 63 6f 6c 32 3d 26  43 0d 00 32 09 f2 76 61  |tbcol2=&C..2..va|
000000c0  72 73 0d 00 3c 3f de 20  71 25 20 26 33 30 30 2c  |rs..<?. q% &300,|
000000d0  74 65 6d 70 25 20 32 35  36 2c 62 75 66 66 65 72  |temp% 256,buffer|
000000e0  25 20 26 32 30 30 2c 65  6e 64 62 75 66 25 20 2d  |% &200,endbuf% -|
000000f0  31 3a 63 75 72 62 75 66  25 3d 62 75 66 66 65 72  |1:curbuf%=buffer|
00000100  25 0d 00 46 04 0d 00 50  37 c8 99 20 22 57 69 6d  |%..F...P7.. "Wim|
00000110  70 5f 4f 70 65 6e 54 65  6d 70 6c 61 74 65 22 2c  |p_OpenTemplate",|
00000120  2c 22 3c 43 61 6c 63 75  6c 61 74 6f 72 24 44 69  |,"<Calculator$Di|
00000130  72 3e 2e 54 65 6d 70 6c  61 74 65 22 0d 00 5a 35  |r>.Template"..Z5|
00000140  ee 20 85 20 c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |. . .. "Wimp_Clo|
00000150  73 65 54 65 6d 70 6c 61  74 65 22 3a f2 65 72 72  |seTemplate":.err|
00000160  6f 72 64 69 73 70 6c 61  79 28 9f 2c f6 24 2c 9e  |ordisplay(.,.$,.|
00000170  29 0d 00 64 3e c8 99 20  22 57 69 6d 70 5f 4c 6f  |)..d>.. "Wimp_Lo|
00000180  61 64 54 65 6d 70 6c 61  74 65 22 2c 2c 71 25 2c  |adTemplate",,q%,|
00000190  74 65 6d 70 25 2c 74 65  6d 70 25 2b 31 2c 2d 31  |temp%,temp%+1,-1|
000001a0  2c 22 63 61 6c 63 75 6c  61 74 6f 72 22 2c 30 0d  |,"calculator",0.|
000001b0  00 6e 26 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |.n&.. "Wimp_Crea|
000001c0  74 65 57 69 6e 64 6f 77  22 2c 2c 71 25 20 b8 20  |teWindow",,q% . |
000001d0  63 61 6c 63 25 0d 00 78  3a c8 99 20 22 57 69 6d  |calc%..x:.. "Wim|
000001e0  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
000001f0  2c 71 25 2c 74 65 6d 70  25 2c 74 65 6d 70 25 2b  |,q%,temp%,temp%+|
00000200  32 35 36 2c 2d 31 2c 22  49 6e 66 6f 22 2c 30 0d  |256,-1,"Info",0.|
00000210  00 82 26 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..&.. "Wimp_Crea|
00000220  74 65 57 69 6e 64 6f 77  22 2c 2c 71 25 20 b8 20  |teWindow",,q% . |
00000230  69 6e 66 6f 25 0d 00 8c  1b c8 99 20 22 57 69 6d  |info%...... "Wim|
00000240  70 5f 43 6c 6f 73 65 54  65 6d 70 6c 61 74 65 22  |p_CloseTemplate"|
00000250  0d 00 96 10 ee 85 20 f2  65 72 72 6f 72 62 6f 78  |...... .errorbox|
00000260  0d 00 a0 05 20 0d 00 aa  33 53 25 3d 8e 22 3c 43  |.... ...3S%=."<C|
00000270  61 6c 63 75 6c 61 74 6f  72 24 44 69 72 3e 2e 21  |alculator$Dir>.!|
00000280  53 70 72 69 74 65 73 22  3a 54 25 3d a2 23 53 25  |Sprites":T%=.#S%|
00000290  2b 31 36 3a d9 23 53 25  0d 00 b4 11 de 20 73 70  |+16:.#S%..... sp|
000002a0  72 69 74 65 73 25 20 54  25 0d 00 be 1d 21 73 70  |rites% T%....!sp|
000002b0  72 69 74 65 73 25 3d 54  25 3a 73 70 72 69 74 65  |rites%=T%:sprite|
000002c0  73 25 21 38 3d 31 0d 00  c8 22 c8 99 20 22 4f 53  |s%!8=1...".. "OS|
000002d0  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 30 39 2c  |_SpriteOp",&109,|
000002e0  73 70 72 69 74 65 73 25  0d 00 d2 3e c8 99 20 22  |sprites%...>.. "|
000002f0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 30  |OS_SpriteOp",&10|
00000300  41 2c 73 70 72 69 74 65  73 25 2c 22 3c 43 61 6c  |A,sprites%,"<Cal|
00000310  63 75 6c 61 74 6f 72 24  44 69 72 3e 2e 21 53 70  |culator$Dir>.!Sp|
00000320  72 69 74 65 73 22 0d 00  dc 1b 69 63 63 61 6c 63  |rites"....iccalc|
00000330  25 3d a4 69 63 6f 6e 62  61 72 3a f2 63 6c 65 61  |%=.iconbar:.clea|
00000340  72 0d 00 e6 05 20 0d 00  f0 3b c8 99 20 44 72 61  |r.... ...;.. Dra|
00000350  67 2c 2c 2d 31 3a f2 67  65 74 70 6f 69 6e 74 65  |g,,-1:.getpointe|
00000360  72 3a 78 6f 25 3d 6d 6f  75 73 65 78 25 3a 79 6f  |r:xo%=mousex%:yo|
00000370  25 3d 6d 6f 75 73 65 79  25 3a 6f 70 65 6e 25 3d  |%=mousey%:open%=|
00000380  a3 0d 00 fa 05 f5 0d 01  04 18 20 20 c8 99 20 50  |..........  .. P|
00000390  6f 6c 6c 25 2c 31 2c 71  25 20 b8 20 41 25 0d 01  |oll%,1,q% . A%..|
000003a0  0e 0d 20 20 c8 8e 20 41  25 20 ca 0d 01 18 1e 20  |..  .. A% ..... |
000003b0  20 c9 20 31 20 3a f2 72  65 64 72 61 77 5f 77 69  | . 1 :.redraw_wi|
000003c0  6e 64 6f 77 28 21 71 25  29 0d 01 22 44 20 20 c9  |ndow(!q%).."D  .|
000003d0  20 32 20 3a f2 6f 70 65  6e 5f 77 69 6e 64 6f 77  | 2 :.open_window|
000003e0  28 21 71 25 2c 71 25 21  34 2c 71 25 21 38 2c 71  |(!q%,q%!4,q%!8,q|
000003f0  25 21 31 32 2c 71 25 21  31 36 2c 71 25 21 32 30  |%!12,q%!16,q%!20|
00000400  2c 71 25 21 32 34 2c 71  25 21 32 38 29 0d 01 2c  |,q%!24,q%!28)..,|
00000410  1d 20 20 c9 20 33 20 3a  f2 63 6c 6f 73 65 61 77  |.  . 3 :.closeaw|
00000420  69 6e 64 6f 77 28 21 71  25 29 0d 01 36 37 20 20  |indow(!q%)..67  |
00000430  c9 20 36 20 3a f2 63 68  65 63 6b 6d 6f 75 73 65  |. 6 :.checkmouse|
00000440  28 21 71 25 2c 71 25 21  34 2c 71 25 21 38 2c 71  |(!q%,q%!4,q%!8,q|
00000450  25 21 31 32 2c 71 25 21  31 36 2c 71 25 21 32 30  |%!12,q%!16,q%!20|
00000460  29 0d 01 40 1a 20 20 c9  20 39 20 3a f2 6d 65 6e  |)..@.  . 9 :.men|
00000470  75 73 65 6c 65 63 74 28  71 25 29 0d 01 4a 1a 20  |uselect(q%)..J. |
00000480  20 c9 20 31 37 2c 31 38  3a f2 72 65 63 65 69 76  | . 17,18:.receiv|
00000490  65 28 71 25 29 0d 01 54  07 20 20 cb 0d 01 5e 07  |e(q%)..T.  ...^.|
000004a0  fd 20 a3 0d 01 68 05 20  0d 01 72 12 dd 20 f2 72  |. ...h. ..r.. .r|
000004b0  65 63 65 69 76 65 28 71  25 29 0d 01 7c 0e c8 8e  |eceive(q%)..|...|
000004c0  20 71 25 21 31 36 20 ca  0d 01 86 11 c9 20 30 3a  | q%!16 ...... 0:|
000004d0  f2 66 69 6e 69 73 68 3a  e0 0d 01 90 05 cb 0d 01  |.finish:........|
000004e0  9a 05 e1 0d 01 a4 05 20  0d 01 ae 37 dd 20 f2 63  |....... ...7. .c|
000004f0  68 65 63 6b 6d 6f 75 73  65 28 6d 6f 75 73 65 78  |heckmouse(mousex|
00000500  25 2c 6d 6f 75 73 65 79  25 2c 62 25 2c 68 61 6e  |%,mousey%,b%,han|
00000510  64 6c 65 25 2c 69 63 6f  6e 25 2c 6f 62 25 29 0d  |dle%,icon%,ob%).|
00000520  01 b8 0c e7 28 62 25 80  32 29 8c 0d 01 c2 12 20  |....(b%.2)..... |
00000530  20 c8 8e 20 68 61 6e 64  6c 65 25 20 ca 0d 01 cc  | .. handle% ....|
00000540  0a 20 20 c9 20 2d 32 0d  01 d6 2e 20 20 20 20 f2  |.  . -2....    .|
00000550  64 6f 6d 65 6e 75 28 31  30 31 2c 22 3e 49 6e 66  |domenu(101,">Inf|
00000560  6f 2c 51 75 69 74 22 2c  22 43 61 6c 63 75 6c 61  |o,Quit","Calcula|
00000570  74 6f 72 22 29 0d 01 e0  07 20 20 cb 0d 01 ea 05  |tor")....  .....|
00000580  cd 0d 01 f4 0c e7 28 62  25 80 35 29 8c 0d 01 fe  |......(b%.5)....|
00000590  20 20 20 e7 68 61 6e 64  6c 65 25 3e 2d 31 8c f2  |   .handle%>-1..|
000005a0  67 65 74 77 28 68 61 6e  64 6c 65 25 29 0d 02 08  |getw(handle%)...|
000005b0  12 20 20 c8 8e 20 68 61  6e 64 6c 65 25 20 ca 0d  |.  .. handle% ..|
000005c0  02 12 0e 20 20 c9 20 63  61 6c 63 25 3a 0d 02 1c  |...  . calc%:...|
000005d0  0b 20 20 20 20 ea 20 85  0d 02 26 33 20 20 20 20  |.    . ...&3    |
000005e0  ee 20 85 20 ea 20 65 72  72 6f 72 66 6c 61 67 25  |. . . errorflag%|
000005f0  3d b9 3a 20 64 72 65 67  24 3d 22 45 72 72 6f 72  |=.: dreg$="Error|
00000600  22 3a 20 69 63 6f 6e 25  3d 2d 31 0d 02 30 16 20  |": icon%=-1..0. |
00000610  20 20 20 e7 20 65 72 72  6f 72 66 6c 61 67 25 20  |   . errorflag% |
00000620  8c 0d 02 3a 3b 20 20 20  20 20 20 e7 20 69 63 6f  |...:;      . ico|
00000630  6e 25 3d 31 36 20 f2 63  6c 65 61 72 3a f4 20 69  |n%=16 .clear:. i|
00000640  67 6e 6f 72 65 20 75 6e  74 69 6c 20 65 72 72 6f  |gnore until erro|
00000650  72 20 69 73 20 63 6c 65  61 72 65 64 0d 02 44 09  |r is cleared..D.|
00000660  20 20 20 20 cc 0d 02 4e  12 20 20 20 20 c8 8e 20  |    ...N.    .. |
00000670  69 63 6f 6e 25 20 ca 0d  02 58 36 20 20 20 20 20  |icon% ...X6     |
00000680  20 c9 20 30 2c 31 2c 32  2c 33 2c 34 2c 35 2c 36  | . 0,1,2,3,4,5,6|
00000690  2c 37 2c 38 2c 39 3a 20  f2 64 69 67 69 74 28 bd  |,7,8,9: .digit(.|
000006a0  28 69 63 6f 6e 25 2b 97  22 30 22 29 29 0d 02 62  |(icon%+."0"))..b|
000006b0  16 20 20 20 20 20 20 c9  20 31 30 3a 20 f2 70 6f  |.      . 10: .po|
000006c0  69 6e 74 0d 02 6c 1e 20  20 20 20 20 20 c9 20 31  |int..l.      . 1|
000006d0  31 3a 20 f2 6f 70 65 72  61 74 6f 72 28 22 3d 22  |1: .operator("="|
000006e0  29 0d 02 76 1e 20 20 20  20 20 20 c9 20 31 32 3a  |)..v.      . 12:|
000006f0  20 f2 6f 70 65 72 61 74  6f 72 28 22 2b 22 29 0d  | .operator("+").|
00000700  02 80 1e 20 20 20 20 20  20 c9 20 31 33 3a 20 f2  |...      . 13: .|
00000710  6f 70 65 72 61 74 6f 72  28 22 2d 22 29 0d 02 8a  |operator("-")...|
00000720  1e 20 20 20 20 20 20 c9  20 31 34 3a 20 f2 6f 70  |.      . 14: .op|
00000730  65 72 61 74 6f 72 28 22  2a 22 29 0d 02 94 1e 20  |erator("*").... |
00000740  20 20 20 20 20 c9 20 31  35 3a 20 f2 6f 70 65 72  |     . 15: .oper|
00000750  61 74 6f 72 28 22 2f 22  29 0d 02 9e 16 20 20 20  |ator("/")....   |
00000760  20 20 20 c9 20 31 36 3a  20 f2 63 6c 65 61 72 0d  |   . 16: .clear.|
00000770  02 a8 09 20 20 20 20 cb  0d 02 b2 09 20 20 20 20  |...    .....    |
00000780  cd 0d 02 bc 33 20 20 20  20 f2 75 70 64 61 74 65  |....3    .update|
00000790  28 63 61 6c 63 25 2c 31  32 2c 2d 32 38 2d 33 32  |(calc%,12,-28-32|
000007a0  2c 31 30 2a 31 36 2b 31  32 2c 2d 32 34 29 3a f2  |,10*16+12,-24):.|
000007b0  63 61 6c 63 0d 02 c6 38  20 20 c9 20 2d 32 3a e7  |calc...8  . -2:.|
000007c0  6f 70 65 6e 25 20 f2 66  72 6f 6e 74 28 63 61 6c  |open% .front(cal|
000007d0  63 25 29 20 8b 20 f2 72  65 6f 70 65 6e 28 63 61  |c%) . .reopen(ca|
000007e0  6c 63 25 29 3a 6f 70 65  6e 25 3d b9 0d 02 d0 07  |lc%):open%=.....|
000007f0  20 20 cb 0d 02 da 05 cd  0d 02 e4 05 e1 0d 02 ee  |  ..............|
00000800  05 20 0d 02 f8 1c dd 20  f2 63 6c 6f 73 65 61 77  |. ..... .closeaw|
00000810  69 6e 64 6f 77 28 68 61  6e 64 6c 65 25 29 0d 03  |indow(handle%)..|
00000820  02 12 f2 67 65 74 77 28  68 61 6e 64 6c 65 25 29  |...getw(handle%)|
00000830  0d 03 0c 1b 78 6f 25 3d  78 30 25 3a 79 6f 25 3d  |....xo%=x0%:yo%=|
00000840  79 30 25 3a 6f 70 65 6e  25 3d a3 0d 03 16 1a f2  |y0%:open%=......|
00000850  63 6c 6f 73 65 5f 77 69  6e 64 6f 77 28 68 61 6e  |close_window(han|
00000860  64 6c 65 25 29 0d 03 20  05 e1 0d 03 2a 05 20 0d  |dle%).. ....*. .|
00000870  03 34 0d dd 20 f2 66 69  6e 69 73 68 0d 03 3e 17  |.4.. .finish..>.|
00000880  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |.. "Wimp_CloseDo|
00000890  77 6e 22 0d 03 48 05 e1  0d 03 52 05 20 0d 03 5c  |wn"..H....R. ..\|
000008a0  27 dd 20 f2 64 6f 6d 65  6e 75 28 68 61 6e 64 6c  |'. .domenu(handl|
000008b0  65 25 2c 6d 65 6e 75 24  2c 6d 65 6e 75 74 69 74  |e%,menu$,menutit|
000008c0  6c 65 24 29 0d 03 66 17  6d 65 6e 75 68 61 6e 64  |le$)..f.menuhand|
000008d0  6c 65 25 3d 68 61 6e 64  6c 65 25 0d 03 70 14 6d  |le%=handle%..p.m|
000008e0  65 6e 75 70 74 72 25 3d  62 75 66 66 65 72 25 0d  |enuptr%=buffer%.|
000008f0  03 7a 08 69 25 3d 30 0d  03 84 12 6d 65 6e 75 70  |.z.i%=0....menup|
00000900  74 72 25 21 32 30 3d 34  30 0d 03 8e 18 24 6d 65  |tr%!20=40....$me|
00000910  6e 75 70 74 72 25 3d 6d  65 6e 75 74 69 74 6c 65  |nuptr%=menutitle|
00000920  24 0d 03 98 4a 6d 65 6e  75 70 74 72 25 3f 31 32  |$...Jmenuptr%?12|
00000930  3d 60 74 66 63 6f 6c 3a  6d 65 6e 75 70 74 72 25  |=`tfcol:menuptr%|
00000940  3f 31 33 3d 32 3a 6d 65  6e 75 70 74 72 25 3f 31  |?13=2:menuptr%?1|
00000950  34 3d 60 77 66 63 6f 6c  3a 6d 65 6e 75 70 74 72  |4=`wfcol:menuptr|
00000960  25 3f 31 35 3d 60 77 62  63 6f 6c 0d 03 a2 24 6d  |%?15=`wbcol...$m|
00000970  65 6e 75 70 74 72 25 21  31 36 3d 31 39 36 2d 32  |enuptr%!16=196-2|
00000980  34 3a 6d 65 6e 75 70 74  72 25 21 32 34 3d 30 0d  |4:menuptr%!24=0.|
00000990  03 ac 10 6d 65 6e 75 70  74 72 25 2b 3d 32 38 0d  |...menuptr%+=28.|
000009a0  03 b6 31 f5 20 69 74 65  6d 24 3d a4 70 61 72 28  |..1. item$=.par(|
000009b0  22 2c 22 29 3a f2 6d 65  6e 75 69 74 65 6d 28 69  |","):.menuitem(i|
000009c0  74 65 6d 24 29 3a fd 20  69 74 65 6d 24 3d 22 22  |tem$):. item$=""|
000009d0  0d 03 c0 23 6d 65 6e 75  70 74 72 25 21 2d 32 34  |...#menuptr%!-24|
000009e0  3d 28 6d 65 6e 75 70 74  72 25 21 2d 32 34 29 84  |=(menuptr%!-24).|
000009f0  26 38 30 0d 03 ca 27 c8  99 20 43 72 4d 65 6e 75  |&80...'.. CrMenu|
00000a00  2c 2c 62 75 66 66 65 72  25 2c 6d 6f 75 73 65 78  |,,buffer%,mousex|
00000a10  25 2d 36 34 2c 39 36 2b  38 30 0d 03 d4 05 e1 0d  |%-64,96+80......|
00000a20  03 de 05 20 0d 03 e8 16  dd 20 f2 6d 65 6e 75 69  |... ..... .menui|
00000a30  74 65 6d 28 74 65 78 74  24 29 0d 03 f2 10 e7 20  |tem(text$)..... |
00000a40  74 65 78 74 24 3d 22 22  20 e1 0d 03 fc 0f 21 6d  |text$="" .....!m|
00000a50  65 6e 75 70 74 72 25 3d  30 0d 04 06 34 e7 20 c0  |enuptr%=0...4. .|
00000a60  74 65 78 74 24 2c 31 29  3d 22 3e 22 20 6d 65 6e  |text$,1)=">" men|
00000a70  75 70 74 72 25 21 34 3d  69 6e 66 6f 25 20 8b 20  |uptr%!4=info% . |
00000a80  6d 65 6e 75 70 74 72 25  21 34 3d 2d 31 0d 04 10  |menuptr%!4=-1...|
00000a90  18 6d 65 6e 75 70 74 72  25 21 38 3d 26 30 37 30  |.menuptr%!8=&070|
00000aa0  30 30 30 32 31 0d 04 1a  43 e7 20 c0 74 65 78 74  |00021...C. .text|
00000ab0  24 2c 31 29 3d 22 3e 22  20 24 28 6d 65 6e 75 70  |$,1)=">" $(menup|
00000ac0  74 72 25 2b 31 32 29 3d  c1 74 65 78 74 24 2c 32  |tr%+12)=.text$,2|
00000ad0  29 20 8b 20 24 28 6d 65  6e 75 70 74 72 25 2b 31  |) . $(menuptr%+1|
00000ae0  32 29 3d 74 65 78 74 24  0d 04 24 10 6d 65 6e 75  |2)=text$..$.menu|
00000af0  70 74 72 25 2b 3d 32 34  0d 04 2e 05 e1 0d 04 38  |ptr%+=24.......8|
00000b00  05 20 0d 04 42 10 dd 20  a4 70 61 72 28 73 65 70  |. ..B.. .par(sep|
00000b10  24 29 0d 04 4c 25 69 31  25 3d 69 25 2b 31 3a 69  |$)..L%i1%=i%+1:i|
00000b20  25 3d a7 6d 65 6e 75 24  2b 73 65 70 24 2c 73 65  |%=.menu$+sep$,se|
00000b30  70 24 2c 69 31 25 29 0d  04 56 17 3d c1 6d 65 6e  |p$,i1%)..V.=.men|
00000b40  75 24 2c 69 31 25 2c 69  25 2d 69 31 25 29 0d 04  |u$,i1%,i%-i1%)..|
00000b50  60 05 20 0d 04 6a 19 dd  20 f2 6d 65 6e 75 73 65  |`. ..j.. .menuse|
00000b60  6c 65 63 74 28 6d 65 6e  75 73 25 29 0d 04 74 2d  |lect(menus%)..t-|
00000b70  c8 99 20 44 63 4d 65 6e  75 2c 2c 62 75 66 66 65  |.. DcMenu,,buffe|
00000b80  72 25 2c 6d 65 6e 75 73  25 2c c4 32 30 30 2c 22  |r%,menus%,.200,"|
00000b90  20 22 29 b8 2c 2c 2c 61  24 0d 04 7e 0f e7 20 61  | ").,,,a$..~.. a|
00000ba0  24 3d 22 22 20 8c 20 e1  0d 04 88 14 c8 8e 20 6d  |$="" . ....... m|
00000bb0  65 6e 75 68 61 6e 64 6c  65 25 20 ca 0d 04 92 1f  |enuhandle% .....|
00000bc0  c9 20 31 30 31 3a e7 20  61 24 3d 22 51 75 69 74  |. 101:. a$="Quit|
00000bd0  22 3a f2 66 69 6e 69 73  68 3a e0 0d 04 9c 05 cb  |":.finish:......|
00000be0  0d 04 a6 05 e1 0d 04 b0  05 20 0d 04 ba 0b dd 20  |......... ..... |
00000bf0  f2 63 61 6c 63 0d 04 c4  0c c8 95 20 6d 6f 72 65  |.calc...... more|
00000c00  25 0d 04 ce 2c 20 20 c8  99 43 6f 6c 25 2c 30 3a  |%...,  ..Col%,0:|
00000c10  c8 93 20 c8 90 20 62 78  25 2b 31 32 2c 62 79 25  |.. .. bx%+12,by%|
00000c20  2d 32 38 2c 31 30 2a 31  36 2c 2d 33 32 0d 04 d8  |-28,10*16,-32...|
00000c30  34 20 20 c8 99 43 6f 6c  25 2c 37 3a ec 20 62 78  |4  ..Col%,7:. bx|
00000c40  25 2b 31 32 2b 31 36 2a  28 31 30 2d a9 64 72 65  |%+12+16*(10-.dre|
00000c50  67 24 29 2c 62 79 25 2d  32 38 3a f1 64 72 65 67  |g$),by%-28:.dreg|
00000c60  24 0d 04 e2 1a 20 20 c8  99 20 47 65 74 52 25 2c  |$....  .. GetR%,|
00000c70  2c 71 25 20 b8 20 6d 6f  72 65 25 0d 04 ec 05 ce  |,q% . more%.....|
00000c80  0d 04 f6 05 e1 0d 05 00  05 20 0d 05 0a 15 dd 20  |......... ..... |
00000c90  f2 66 72 6f 6e 74 28 68  61 6e 64 6c 65 25 29 0d  |.front(handle%).|
00000ca0  05 14 11 e7 68 61 6e 64  6c 65 25 3d 2d 31 8c e1  |....handle%=-1..|
00000cb0  0d 05 1e 12 f2 67 65 74  77 28 68 61 6e 64 6c 65  |.....getw(handle|
00000cc0  25 29 0d 05 28 36 f2 6f  70 65 6e 5f 77 69 6e 64  |%)..(6.open_wind|
00000cd0  6f 77 28 68 61 6e 64 6c  65 25 2c 78 30 25 2c 79  |ow(handle%,x0%,y|
00000ce0  30 25 2c 78 31 25 2c 79  31 25 2c 73 63 78 25 2c  |0%,x1%,y1%,scx%,|
00000cf0  73 63 79 25 2c 2d 31 29  0d 05 32 05 e1 0d 05 3c  |scy%,-1)..2....<|
00000d00  05 20 0d 05 46 15 dd 20  f2 70 6f 70 75 70 28 68  |. ..F.. .popup(h|
00000d10  61 6e 64 6c 65 25 29 0d  05 50 12 f2 67 65 74 77  |andle%)..P..getw|
00000d20  28 68 61 6e 64 6c 65 25  29 0d 05 5a 30 78 6f 25  |(handle%)..Z0xo%|
00000d30  3d 6d 6f 75 73 65 78 25  2d 28 78 30 25 2b 78 31  |=mousex%-(x0%+x1|
00000d40  25 29 2f 32 3a 79 6f 25  3d 6d 6f 75 73 65 79 25  |%)/2:yo%=mousey%|
00000d50  2d 28 79 31 25 2b 36 34  29 0d 05 64 46 f2 6f 70  |-(y1%+64)..dF.op|
00000d60  65 6e 5f 77 69 6e 64 6f  77 28 68 61 6e 64 6c 65  |en_window(handle|
00000d70  25 2c 78 30 25 2b 78 6f  25 2c 79 30 25 2b 79 6f  |%,x0%+xo%,y0%+yo|
00000d80  25 2c 78 31 25 2b 78 6f  25 2c 79 31 25 2b 79 6f  |%,x1%+xo%,y1%+yo|
00000d90  25 2c 73 63 78 25 2c 73  63 79 25 2c 2d 31 29 0d  |%,scx%,scy%,-1).|
00000da0  05 6e 05 e1 0d 05 78 05  20 0d 05 82 16 dd 20 f2  |.n....x. ..... .|
00000db0  72 65 6f 70 65 6e 28 68  61 6e 64 6c 65 25 29 0d  |reopen(handle%).|
00000dc0  05 8c 12 f2 67 65 74 77  28 68 61 6e 64 6c 65 25  |....getw(handle%|
00000dd0  29 0d 05 96 46 f2 6f 70  65 6e 5f 77 69 6e 64 6f  |)...F.open_windo|
00000de0  77 28 68 61 6e 64 6c 65  25 2c 78 6f 25 2c 79 6f  |w(handle%,xo%,yo|
00000df0  25 2c 78 31 25 2d 78 30  25 2b 78 6f 25 2c 79 31  |%,x1%-x0%+xo%,y1|
00000e00  25 2d 79 30 25 2b 79 6f  25 2c 73 63 78 25 2c 73  |%-y0%+yo%,scx%,s|
00000e10  63 79 25 2c 2d 31 29 0d  05 a0 05 e1 0d 05 aa 05  |cy%,-1).........|
00000e20  20 0d 05 b4 3e dd 20 f2  6f 70 65 6e 5f 77 69 6e  | ...>. .open_win|
00000e30  64 6f 77 28 68 61 6e 64  6c 65 25 2c 78 30 25 2c  |dow(handle%,x0%,|
00000e40  79 30 25 2c 78 31 25 2c  79 31 25 2c 73 63 78 25  |y0%,x1%,y1%,scx%|
00000e50  2c 73 63 79 25 2c 62 68  61 6e 64 6c 65 25 29 0d  |,scy%,bhandle%).|
00000e60  05 be 11 e7 68 61 6e 64  6c 65 25 3d 2d 31 8c e1  |....handle%=-1..|
00000e70  0d 05 c8 1f 71 25 21 30  3d 68 61 6e 64 6c 65 25  |....q%!0=handle%|
00000e80  3a 71 25 21 32 38 3d 62  68 61 6e 64 6c 65 25 0d  |:q%!28=bhandle%.|
00000e90  05 d2 29 71 25 21 34 3d  78 30 25 3a 71 25 21 38  |..)q%!4=x0%:q%!8|
00000ea0  3d 79 30 25 3a 71 25 21  31 32 3d 78 31 25 3a 71  |=y0%:q%!12=x1%:q|
00000eb0  25 21 31 36 3d 79 31 25  0d 05 dc 19 71 25 21 32  |%!16=y1%....q%!2|
00000ec0  30 3d 73 63 78 25 3a 71  25 21 32 34 3d 73 63 79  |0=scx%:q%!24=scy|
00000ed0  25 0d 05 e6 10 c8 99 20  4f 70 65 6e 57 2c 2c 71  |%...... OpenW,,q|
00000ee0  25 0d 05 f0 05 e1 0d 05  fa 05 20 0d 06 04 14 dd  |%......... .....|
00000ef0  20 f2 67 65 74 77 28 68  61 6e 64 6c 65 25 29 0d  | .getw(handle%).|
00000f00  06 0e 1b 21 71 25 3d 68  61 6e 64 6c 65 25 3a c8  |...!q%=handle%:.|
00000f10  99 20 47 65 74 57 2c 2c  71 25 0d 06 18 2b f2 69  |. GetW,,q%...+.i|
00000f20  6e 66 6f 28 71 25 2b 34  29 3a 62 68 61 6e 64 6c  |nfo(q%+4):bhandl|
00000f30  65 25 3d 71 25 21 32 38  3a 66 6c 61 67 73 25 3d  |e%=q%!28:flags%=|
00000f40  71 25 21 33 32 0d 06 22  05 e1 0d 06 2c 05 20 0d  |q%!32.."....,. .|
00000f50  06 36 0f dd 20 f2 69 6e  66 6f 28 71 25 29 0d 06  |.6.. .info(q%)..|
00000f60  40 3d 78 30 25 3d 21 71  25 3a 79 30 25 3d 71 25  |@=x0%=!q%:y0%=q%|
00000f70  21 34 3a 78 31 25 3d 71  25 21 38 3a 79 31 25 3d  |!4:x1%=q%!8:y1%=|
00000f80  71 25 21 31 32 3a 73 63  78 25 3d 71 25 21 31 36  |q%!12:scx%=q%!16|
00000f90  3a 73 63 79 25 3d 71 25  21 32 30 0d 06 4a 1d 62  |:scy%=q%!20..J.b|
00000fa0  78 25 3d 78 30 25 2d 73  63 78 25 3a 62 79 25 3d  |x%=x0%-scx%:by%=|
00000fb0  79 31 25 2d 73 63 79 25  0d 06 54 05 e1 0d 06 5e  |y1%-scy%..T....^|
00000fc0  05 20 0d 06 68 2a dd 20  f2 75 70 64 61 74 65 28  |. ..h*. .update(|
00000fd0  68 61 6e 64 6c 65 25 2c  75 78 30 25 2c 75 79 30  |handle%,ux0%,uy0|
00000fe0  25 2c 75 78 31 25 2c 75  79 31 25 29 0d 06 72 39  |%,ux1%,uy1%)..r9|
00000ff0  21 71 25 3d 68 61 6e 64  6c 65 25 3a 71 25 21 34  |!q%=handle%:q%!4|
00001000  3d 75 78 30 25 3a 71 25  21 38 3d 75 79 30 25 3a  |=ux0%:q%!8=uy0%:|
00001010  71 25 21 31 32 3d 75 78  31 25 3a 71 25 21 31 36  |q%!12=ux1%:q%!16|
00001020  3d 75 79 31 25 0d 06 7c  26 c8 99 20 55 70 64 61  |=uy1%..|&.. Upda|
00001030  74 65 57 2c 2c 71 25 20  b8 20 6d 6f 72 65 25 3a  |teW,,q% . more%:|
00001040  f2 69 6e 66 6f 28 71 25  2b 34 29 0d 06 86 05 e1  |.info(q%+4).....|
00001050  0d 06 90 05 20 0d 06 9a  1d dd 20 f2 72 65 64 72  |.... ..... .redr|
00001060  61 77 5f 77 69 6e 64 6f  77 28 68 61 6e 64 6c 65  |aw_window(handle|
00001070  25 29 0d 06 a4 14 e7 68  61 6e 64 6c 65 25 3d 63  |%).....handle%=c|
00001080  61 6c 63 25 20 8c 0d 06  ae 0f 21 71 25 3d 68 61  |alc% .....!q%=ha|
00001090  6e 64 6c 65 25 0d 06 b8  1a c8 99 20 52 65 64 72  |ndle%...... Redr|
000010a0  61 77 57 2c 2c 71 25 20  b8 20 6d 6f 72 65 25 0d  |awW,,q% . more%.|
000010b0  06 c2 0f f2 69 6e 66 6f  28 71 25 2b 34 29 0d 06  |....info(q%+4)..|
000010c0  cc 09 f2 63 61 6c 63 0d  06 d6 05 cd 0d 06 e0 05  |...calc.........|
000010d0  e1 0d 06 ea 05 20 0d 06  f4 1c dd 20 f2 63 6c 6f  |..... ..... .clo|
000010e0  73 65 5f 77 69 6e 64 6f  77 28 68 61 6e 64 6c 65  |se_window(handle|
000010f0  25 29 0d 06 fe 1d 21 71  25 3d 68 61 6e 64 6c 65  |%)....!q%=handle|
00001100  25 3a c8 99 20 43 6c 6f  73 65 57 2c 2c 71 25 0d  |%:.. CloseW,,q%.|
00001110  07 08 05 e1 0d 07 12 05  20 0d 07 1c 0b dd 20 f2  |........ ..... .|
00001120  76 61 72 73 0d 07 26 1e  57 69 6d 70 20 20 20 20  |vars..&.Wimp    |
00001130  3d 20 28 31 3c 3c 31 38  29 20 2b 20 28 33 3c 3c  |= (1<<18) + (3<<|
00001140  36 29 0d 07 30 14 43 72  65 61 74 65 57 20 3d 20  |6)..0.CreateW = |
00001150  57 69 6d 70 2b 31 0d 07  3a 14 4f 70 65 6e 57 20  |Wimp+1..:.OpenW |
00001160  20 20 3d 20 57 69 6d 70  2b 35 0d 07 44 14 43 6c  |  = Wimp+5..D.Cl|
00001170  6f 73 65 57 20 20 3d 20  57 69 6d 70 2b 36 0d 07  |oseW  = Wimp+6..|
00001180  4e 14 50 6f 6c 6c 25 20  20 20 3d 20 57 69 6d 70  |N.Poll%   = Wimp|
00001190  2b 37 0d 07 58 14 52 65  64 72 61 77 57 20 3d 20  |+7..X.RedrawW = |
000011a0  57 69 6d 70 2b 38 0d 07  62 14 55 70 64 61 74 65  |Wimp+8..b.Update|
000011b0  57 20 3d 20 57 69 6d 70  2b 39 0d 07 6c 15 47 65  |W = Wimp+9..l.Ge|
000011c0  74 52 25 20 20 20 3d 20  57 69 6d 70 2b 31 30 0d  |tR%   = Wimp+10.|
000011d0  07 76 15 47 65 74 57 20  20 20 20 3d 20 57 69 6d  |.v.GetW    = Wim|
000011e0  70 2b 31 31 0d 07 80 15  47 65 74 50 20 20 20 20  |p+11....GetP    |
000011f0  3d 20 57 69 6d 70 2b 31  35 0d 07 8a 15 44 72 61  |= Wimp+15....Dra|
00001200  67 20 20 20 20 3d 20 57  69 6d 70 2b 31 36 0d 07  |g    = Wimp+16..|
00001210  94 15 43 72 4d 65 6e 75  20 20 3d 20 57 69 6d 70  |..CrMenu  = Wimp|
00001220  2b 32 30 0d 07 9e 15 44  63 4d 65 6e 75 20 20 3d  |+20....DcMenu  =|
00001230  20 57 69 6d 70 2b 32 31  0d 07 a8 38 c8 99 20 22  | Wimp+21...8.. "|
00001240  4f 53 5f 53 57 49 4e 75  6d 62 65 72 46 72 6f 6d  |OS_SWINumberFrom|
00001250  53 74 72 69 6e 67 22 2c  2c 22 57 69 6d 70 5f 53  |String",,"Wimp_S|
00001260  65 74 43 6f 6c 6f 75 72  22 20 b8 20 43 6f 6c 25  |etColour" . Col%|
00001270  0d 07 b2 05 e1 0d 07 bc  05 20 0d 07 c6 11 dd 20  |......... ..... |
00001280  f2 67 65 74 70 6f 69 6e  74 65 72 0d 07 d0 0f c8  |.getpointer.....|
00001290  99 20 47 65 74 50 2c 2c  71 25 0d 07 da 48 6d 6f  |. GetP,,q%...Hmo|
000012a0  75 73 65 78 25 3d 21 71  25 3a 6d 6f 75 73 65 79  |usex%=!q%:mousey|
000012b0  25 3d 71 25 21 34 3a 62  25 3d 71 25 21 38 3a 68  |%=q%!4:b%=q%!8:h|
000012c0  61 6e 64 6c 65 25 3d 71  25 21 31 32 3a 69 63 6f  |andle%=q%!12:ico|
000012d0  6e 25 3d 71 25 21 31 36  3a 6f 62 25 3d 71 25 21  |n%=q%!16:ob%=q%!|
000012e0  32 30 0d 07 e4 05 e1 0d  07 ee 05 20 0d 07 f8 0f  |20......... ....|
000012f0  dd 20 f2 65 72 72 6f 72  62 6f 78 0d 08 02 0f c8  |. .errorbox.....|
00001300  99 20 44 72 61 67 2c 2c  2d 31 0d 08 0c 30 21 62  |. Drag,,-1...0!b|
00001310  75 66 66 65 72 25 3d 9f  3a 24 28 62 75 66 66 65  |uffer%=.:$(buffe|
00001320  72 25 2b 34 29 3d f6 24  2b 22 20 61 74 20 6c 69  |r%+4)=.$+" at li|
00001330  6e 65 20 22 2b c3 9e 2b  bd 30 0d 08 16 30 c8 99  |ne "+..+.0...0..|
00001340  20 22 57 69 6d 70 5f 52  65 70 6f 72 74 45 72 72  | "Wimp_ReportErr|
00001350  6f 72 22 2c 62 75 66 66  65 72 25 2c 31 2c 22 43  |or",buffer%,1,"C|
00001360  61 6c 63 75 6c 61 74 6f  72 22 0d 08 20 0d f2 66  |alculator".. ..f|
00001370  69 6e 69 73 68 3a e0 0d  08 2a 05 e1 0d 08 34 05  |inish:...*....4.|
00001380  20 0d 08 3e 13 dd 20 a4  74 65 6d 70 6c 61 74 65  | ..>.. .template|
00001390  28 61 24 29 0d 08 48 08  ea 20 63 25 0d 08 52 47  |(a$)..H.. c%..RG|
000013a0  c8 99 20 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |.. "Wimp_LoadTem|
000013b0  70 6c 61 74 65 22 2c 2c  71 25 2c 63 75 72 62 75  |plate",,q%,curbu|
000013c0  66 25 2c 65 6e 64 62 75  66 25 2c 30 2c 61 24 2c  |f%,endbuf%,0,a$,|
000013d0  30 20 b8 20 2c 2c 63 75  72 62 75 66 25 2c 2c 2c  |0 . ,,curbuf%,,,|
000013e0  2c 63 25 0d 08 5c 2c e7  20 63 25 3d 30 20 85 20  |,c%..\,. c%=0 . |
000013f0  31 2c 22 54 65 6d 70 6c  61 74 65 20 27 22 2b 61  |1,"Template '"+a|
00001400  24 2b 22 27 20 6e 6f 74  20 66 6f 75 6e 64 22 0d  |$+"' not found".|
00001410  08 66 23 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |.f#.. "Wimp_Crea|
00001420  74 65 57 69 6e 64 6f 77  22 2c 2c 71 25 20 b8 20  |teWindow",,q% . |
00001430  63 25 0d 08 70 07 3d 63  25 0d 08 7a 05 20 0d 08  |c%..p.=c%..z. ..|
00001440  84 0e dd 20 a4 69 63 6f  6e 62 61 72 0d 08 8e 36  |... .iconbar...6|
00001450  21 71 25 3d 2d 31 3a 71  25 21 34 3d 30 3a 71 25  |!q%=-1:q%!4=0:q%|
00001460  21 38 3d 30 3a 71 25 21  31 32 3d 36 33 3a 71 25  |!8=0:q%!12=63:q%|
00001470  21 31 36 3d 36 38 3a 71  25 21 32 30 3d 26 32 31  |!16=68:q%!20=&21|
00001480  30 32 0d 08 98 13 73 70  6e 61 6d 65 24 3d 22 21  |02....spname$="!|
00001490  63 61 6c 63 22 0d 08 a2  38 de 20 71 25 21 32 34  |calc"...8. q%!24|
000014a0  20 28 a9 73 70 6e 61 6d  65 24 2b 31 29 3a 24 28  | (.spname$+1):$(|
000014b0  71 25 21 32 34 29 3d 73  70 6e 61 6d 65 24 3a 71  |q%!24)=spname$:q|
000014c0  25 21 32 38 3d 73 70 72  69 74 65 73 25 0d 08 ac  |%!28=sprites%...|
000014d0  14 71 25 21 33 32 3d a9  73 70 6e 61 6d 65 24 2b  |.q%!32=.spname$+|
000014e0  31 0d 08 b6 22 c8 99 20  22 57 69 6d 70 5f 43 72  |1...".. "Wimp_Cr|
000014f0  65 61 74 65 49 63 6f 6e  22 2c 2c 71 25 20 b8 20  |eateIcon",,q% . |
00001500  69 63 25 0d 08 c0 08 3d  69 63 25 0d 08 ca 05 20  |ic%....=ic%.... |
00001510  0d 08 d4 0c dd 20 f2 63  6c 65 61 72 0d 08 de 40  |..... .clear...@|
00001520  65 72 72 6f 72 66 6c 61  67 25 3d a3 3a 74 65 6d  |errorflag%=.:tem|
00001530  70 72 65 67 3d 30 3a 65  6e 74 72 79 24 3d 22 30  |preg=0:entry$="0|
00001540  22 3a 6f 70 65 72 61 74  6f 72 24 3d 22 3d 22 3a  |":operator$="=":|
00001550  64 72 65 67 24 3d 65 6e  74 72 79 24 0d 08 e8 05  |dreg$=entry$....|
00001560  e1 0d 08 f2 05 20 0d 08  fc 12 dd 20 f2 64 69 67  |..... ..... .dig|
00001570  69 74 28 6b 65 79 24 29  0d 09 06 25 e7 20 a9 65  |it(key$)...%. .e|
00001580  6e 74 72 79 24 20 2d 20  b4 28 a7 65 6e 74 72 79  |ntry$ - .(.entry|
00001590  24 2c 22 2e 22 29 29 20  3c 20 38 20 8c 0d 09 10  |$,".")) < 8 ....|
000015a0  33 20 20 e7 20 65 6e 74  72 79 24 3d 22 30 22 20  |3  . entry$="0" |
000015b0  65 6e 74 72 79 24 3d 6b  65 79 24 20 8b 20 65 6e  |entry$=key$ . en|
000015c0  74 72 79 24 3d 65 6e 74  72 79 24 2b 6b 65 79 24  |try$=entry$+key$|
000015d0  0d 09 1a 05 cd 0d 09 24  10 64 72 65 67 24 3d 65  |.......$.dreg$=e|
000015e0  6e 74 72 79 24 0d 09 2e  05 e1 0d 09 38 05 20 0d  |ntry$.......8. .|
000015f0  09 42 0c dd 20 f2 70 6f  69 6e 74 0d 09 4c 34 e7  |.B.. .point..L4.|
00001600  20 a7 65 6e 74 72 79 24  2c 22 2e 22 29 3d 30 20  | .entry$,".")=0 |
00001610  80 20 a9 65 6e 74 72 79  24 20 3c 20 38 20 65 6e  |. .entry$ < 8 en|
00001620  74 72 79 24 3d 65 6e 74  72 79 24 2b 22 2e 22 0d  |try$=entry$+".".|
00001630  09 56 10 64 72 65 67 24  3d 65 6e 74 72 79 24 0d  |.V.dreg$=entry$.|
00001640  09 60 05 e1 0d 09 6a 05  20 0d 09 74 15 dd 20 f2  |.`....j. ..t.. .|
00001650  6f 70 65 72 61 74 6f 72  28 6b 65 79 24 29 0d 09  |operator(key$)..|
00001660  7e 08 ea 20 40 25 0d 09  88 10 40 25 3d 26 30 31  |~.. @%....@%=&01|
00001670  30 32 30 37 31 31 0d 09  92 48 e7 20 6f 70 65 72  |020711...H. oper|
00001680  61 74 6f 72 24 3d 22 3d  22 20 74 65 6d 70 72 65  |ator$="=" tempre|
00001690  67 3d bb 64 72 65 67 24  20 8b 20 74 65 6d 70 72  |g=.dreg$ . tempr|
000016a0  65 67 3d a0 28 c3 74 65  6d 70 72 65 67 2b 6f 70  |eg=.(.tempreg+op|
000016b0  65 72 61 74 6f 72 24 2b  64 72 65 67 24 29 0d 09  |erator$+dreg$)..|
000016c0  9c 16 f2 64 69 73 70 6c  61 79 28 c3 74 65 6d 70  |...display(.temp|
000016d0  72 65 67 29 0d 09 a6 1d  65 6e 74 72 79 24 3d 22  |reg)....entry$="|
000016e0  30 22 3a 6f 70 65 72 61  74 6f 72 24 3d 6b 65 79  |0":operator$=key|
000016f0  24 0d 09 b0 05 e1 0d 09  ba 05 20 0d 09 c4 16 dd  |$......... .....|
00001700  20 f2 64 69 73 70 6c 61  79 28 76 61 6c 75 65 24  | .display(value$|
00001710  29 0d 09 ce 16 64 69 73  70 6c 61 79 72 65 67 3d  |)....displayreg=|
00001720  bb 76 61 6c 75 65 24 0d  09 d8 2d e7 20 94 64 69  |.value$...-. .di|
00001730  73 70 6c 61 79 72 65 67  20 3e 3d 20 31 30 30 30  |splayreg >= 1000|
00001740  30 30 30 30 30 20 64 69  73 70 6c 61 79 72 65 67  |00000 displayreg|
00001750  3d 30 2f 30 0d 09 e2 26  c8 95 20 c2 76 61 6c 75  |=0/0...&.. .valu|
00001760  65 24 2c 31 29 3d 22 30  22 20 80 20 a7 76 61 6c  |e$,1)="0" . .val|
00001770  75 65 24 2c 22 2e 22 29  3e 30 0d 09 ec 21 20 20  |ue$,".")>0...!  |
00001780  76 61 6c 75 65 24 3d c0  76 61 6c 75 65 24 2c a9  |value$=.value$,.|
00001790  28 76 61 6c 75 65 24 29  2d 31 29 0d 09 f6 05 ce  |(value$)-1).....|
000017a0  0d 0a 00 35 76 61 6c 75  65 24 3d c0 76 61 6c 75  |...5value$=.valu|
000017b0  65 24 2c 38 2b b4 28 a7  76 61 6c 75 65 24 2c 22  |e$,8+.(.value$,"|
000017c0  2e 22 29 29 2b b4 28 a7  76 61 6c 75 65 24 2c 22  |."))+.(.value$,"|
000017d0  2d 22 29 29 29 0d 0a 0a  30 e7 20 c2 76 61 6c 75  |-")))...0. .valu|
000017e0  65 24 2c 31 29 3d 22 2e  22 20 76 61 6c 75 65 24  |e$,1)="." value$|
000017f0  3d c0 76 61 6c 75 65 24  2c a9 28 76 61 6c 75 65  |=.value$,.(value|
00001800  24 29 2d 31 29 0d 0a 14  1c e7 20 76 61 6c 75 65  |$)-1)..... value|
00001810  24 3d 22 2d 30 22 20 76  61 6c 75 65 24 3d 22 30  |$="-0" value$="0|
00001820  22 0d 0a 1e 10 64 72 65  67 24 3d 76 61 6c 75 65  |"....dreg$=value|
00001830  24 0d 0a 28 05 e1 0d ff                           |$..(....|
00001838