" � > <ClockCalc$Dir>.!RunImage
 � by Daniel Wagenaar
 � (c) The Micro User
( :
2f � �error("Unexpected error: "+�$+" (int. error "+Þ+") Must I quit?",3)=1:ș "Wimp_CloseDown":�
< �:�ivars:�iwimp
F$ ș "OS_ReadMonotonicTime" � ot%
P �
Z$ ș "Wimp_PollIdle",,q%,ot% � r%
d$ ș "OS_ReadMonotonicTime" � nt%
n ȕ nt%>ot%:ot%+=100:�
x Ȏ r% �
� � 0:�ct
�$ � 3,4:ș "Wimp_CloseWindow",,q%
�
 � 6:�mbc
� � 8:�kp($input%)
� � 17,18:�mess
� �:� quit%
� ș "Wimp_CloseDown":�
� :
�( ݤf(x)=::::::::::::::::::::::::::::
�* ݤg(x,y)=::::::::::::::::::::::::::::
� ��set(a$):=�(a$):�
� :
� ��ivars

* � q%400, clock%9, input%33, output%33

& quit%=0:e%=&4362345E:mf%=&7000021

& xs%=536:ys%=160:u%=2:v%=&C701603D

"# T%=�:�c:fnf%=T%+2:�c:fng%=T%+2

, � T%+=1:��$T%,3)="):="

6 set%=T%+1:�

@ :

J" ��c:� T%+=1:� �$T%,3)=")=:":�

T :

^ ��iwimp

h: ș "Wimp_Initialise",200,&4B534154,"Clock/Calculator"

r �iib:�temp:�

| :

� ��iib:� �tdA:�b

�& ș "Wimp_CreateIcon",,q% � iconh%

�
 �ct:�

�- � -1,0,0,136,72,&17002139,clock%,-1,9,e%

� :

�) ��b::T%=q%-4:� T%+=4:� !T%:�!T%=e%:�

� :

�  ��temp:� �djA:�b:$input%=""

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

� �

�s � 742,820,1278,980,0,0,1808,68354195,459271,786691,0,-1024,1280,0,61,12288,0,0,&636C6143,&74616C75,&FF0D726F,6

�S � 7,-52,531,-4,&E700F135,input%,-1,33, 7,-154,531,-106,&A7006335,output%,-1,33

�H � 302,-102,374,-54,v%,&D434544,0,0,380,-102,452,-54,v%,&D584548,0,0
P � 458,-102,530,-54,v%,&D4E4942,0,0,7,-102,100,-54,&F701903D,&74697551,13,e%
 :
 ��mess
& Ȏ q%!16 �
0 � 0 :quit%=�
:
 � 3 :�lf
D �:�
N :
X	 ��lf
b � T%,f$
l  f$=�250," "):f$="":T%=q%+44
v ȕ ?T%<>0:f$+=�?T%:T%+=1:�
� Ȏ q%!40 �
�! � &FFF,&FFE,&FEB:�cw("Type")
� � &FFB:�lb
� � &FF9:�slist(f$)
� :�cw("Dump")
� �
�3 q%!12=q%!8:q%!16=4:ș "Wimp_SendMessage",17,q%
� �
� :
�. ��lb:�edit:� "WimpTask Basic -Load "+f$:�
� :
� ��edit
� *FX 138,0,69
 *FX 138,0,68
 *FX 138,0,73
 *FX 138,0,84
 *FX138,0,46
  *FX 138,0,13
* �
4 :
> ��gob:� "WimpTask Basic":�
H :
R
 ��mbc
\ � x%,y%:x%=!q%:y%=q%!4
f Ȏ (q%!12) �
p	 � -2
z Ȏ (q%!8) �
�
 � 4:�gob
� � 2:�oc
� � 1:�edit:�gob
� �
� � calch%:Ȏ q%!16 �
�  � 2,3,4:�sel(q%!16)
�.  � 5:quit%=�:ș "Wimp_CloseWindow",,q%+12
�  �
� �:�
� :
�	 ��ct
�a �$clock%<>‘$,8):$clock%=‘$,8):!q%=-2:q%!4=iconh%:q%!8=0:q%!12=0:ș "Wimp_SetIconState",,q%
� �
 :
' ݤerror(e$,b%):!q%=0:$(q%+4)=e$+�0
9 ș "Wimp_ReportError",q%,b%,"Clock/Calculator" � ,b%
$ =b%
. :
8 ��slist(f$)
B* � n%,o%,b%,t%,h%,u%,v%,x%,y%,m%,z$,m$
L) h%=�f$:ș "Wimp_CommandWindow",q%+44
V) � "Name"�(9)"hor x ver  Mode  M  P"'
` n%=�b:o%=�b:b%=-4
j
 �t%=1�n%
t �#h%=o%+b%:b%+=o%:o%=�b
~ � u%=1�12:� �#h%:�
�> x%=�b:y%=�b:v%=-�b+�b-31:m%=�b:�m%=�#h%-4:m$="N" � m$="Y"
� �m%��b:z$="Y" � z$="N"
�/ m%=�b:ș "OS_ReadModeVariable",m%,9 � ,,u%
� x%=(32*(x%+1)+v%) � 2^u%
�# �13,�)�(4-�(�x%));x%"x";y%+1;
� �25,�);m%�30,�)z$"  "m$
�% �:�#h%:ș "Wimp_CommandWindow":�
� :
�+ ݤb:=�#h%+�#h%*2^8+�#h%*2^16+�#h%*2^24
� :
� ��oc:� x%:x%=!q%-268
� � �ThE:�b
 ș "Wimp_OpenWindow",,q%

6 ș "Wimp_SetCaretPosition",calch%,0,,,-1,�$input%
 ?q%=3:q%!1=x%+&C0010C
" ș "OS_Word",21,q%:�sel(u%):�
() � calch%,x%,112,x%+536,272,0,0,-1,e%
2 :
<# ��sr(a$):$output%=a$:� �DPE:�b
F! ș "Wimp_SetIconState",,q%:�
P � calch%,1,0,0,e%
Z :
d
 ��kp(a$)
n' � !q%=calch% � q%!4=0 � q%!24=13 �
x& �a$,1)=":" �assign(a$) � �rs(a$)
� �:�
� :
� ��assign(a$):� b$:�f
�N �a$,3,1)="=":?set%=�(�a$,2,1)):�set(�a$,4)):�sr("Variable has been set")
� �a$,3,2)=":=" �
� Ȏ �a$,2,1) �
�" � "f":b$=$fnf%:�d:$fnf%=b$:�e
�" � "g":b$=$fng%:�d:$fng%=b$:�e
� �
� �:�
� :
� ��d:�b$)=�a$,5)+":":�
�+ ��e:�sr("Function has been defined"):�
$ ��f:�sr("Invalid assignment"):�
 :

 ��rs(a$)
" � t%,T%:� �
, � � �:�sr(��$,32)):�
6& �a$="":�sr("Enter expression."):�
@ Ȏ u% �
J � 2:�sr(�(�(a$)))
T � 3:�sr("&"+�~(�(a$)))
^ � 4:t%=�(a$):a$=""
h, �T%=31�0�-1:�t%�(1<<T%):a$+="1"�a$+="0"
r �:�sr(a$)
| :�sr("Unknown base")
� �:�
� :
�! ��sel(s%):� T%,c%:!q%=calch%
� u%=s%:� T%=2�4
� �T%=s%:c%=11�c%=12
�% q%!4=T%:q%!8=c%<<28:q%!12=15<<28
� ș "Wimp_SetIconState",,q%
� �:�rs($input%):�
� :
�+ ��cw(a$):ș "Wimp_CommandWindow",q%+44
�0 � a$+" "+$(q%+44):ș "Wimp_CommandWindow":�
�

00000000  0d 00 0a 22 20 f4 20 3e  20 3c 43 6c 6f 63 6b 43  |..." . > <ClockC|
00000010  61 6c 63 24 44 69 72 3e  2e 21 52 75 6e 49 6d 61  |alc$Dir>.!RunIma|
00000020  67 65 0d 00 14 19 20 f4  20 62 79 20 44 61 6e 69  |ge.... . by Dani|
00000030  65 6c 20 57 61 67 65 6e  61 61 72 0d 00 1e 19 20  |el Wagenaar.... |
00000040  f4 20 28 63 29 20 54 68  65 20 4d 69 63 72 6f 20  |. (c) The Micro |
00000050  55 73 65 72 0d 00 28 06  20 3a 0d 00 32 66 20 ee  |User..(. :..2f .|
00000060  85 20 e7 a4 65 72 72 6f  72 28 22 55 6e 65 78 70  |. ..error("Unexp|
00000070  65 63 74 65 64 20 65 72  72 6f 72 3a 20 22 2b f6  |ected error: "+.|
00000080  24 2b 22 20 28 69 6e 74  2e 20 65 72 72 6f 72 20  |$+" (int. error |
00000090  22 2b c3 9e 2b 22 29 20  4d 75 73 74 20 49 20 71  |"+..+") Must I q|
000000a0  75 69 74 3f 22 2c 33 29  3d 31 3a c8 99 20 22 57  |uit?",3)=1:.. "W|
000000b0  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 22 3a e0  |imp_CloseDown":.|
000000c0  0d 00 3c 14 20 d8 3a f2  69 76 61 72 73 3a f2 69  |..<. .:.ivars:.i|
000000d0  77 69 6d 70 0d 00 46 24  20 c8 99 20 22 4f 53 5f  |wimp..F$ .. "OS_|
000000e0  52 65 61 64 4d 6f 6e 6f  74 6f 6e 69 63 54 69 6d  |ReadMonotonicTim|
000000f0  65 22 20 b8 20 6f 74 25  0d 00 50 06 20 f5 0d 00  |e" . ot%..P. ...|
00000100  5a 24 20 c8 99 20 22 57  69 6d 70 5f 50 6f 6c 6c  |Z$ .. "Wimp_Poll|
00000110  49 64 6c 65 22 2c 2c 71  25 2c 6f 74 25 20 b8 20  |Idle",,q%,ot% . |
00000120  72 25 0d 00 64 24 20 c8  99 20 22 4f 53 5f 52 65  |r%..d$ .. "OS_Re|
00000130  61 64 4d 6f 6e 6f 74 6f  6e 69 63 54 69 6d 65 22  |adMonotonicTime"|
00000140  20 b8 20 6e 74 25 0d 00  6e 1a 20 c8 95 20 6e 74  | . nt%..n. .. nt|
00000150  25 3e 6f 74 25 3a 6f 74  25 2b 3d 31 30 30 3a ce  |%>ot%:ot%+=100:.|
00000160  0d 00 78 0c 20 c8 8e 20  72 25 20 ca 0d 00 82 0c  |..x. .. r% .....|
00000170  20 c9 20 30 3a f2 63 74  0d 00 8c 24 20 c9 20 33  | . 0:.ct...$ . 3|
00000180  2c 34 3a c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |,4:.. "Wimp_Clos|
00000190  65 57 69 6e 64 6f 77 22  2c 2c 71 25 0d 00 96 0d  |eWindow",,q%....|
000001a0  20 c9 20 36 3a f2 6d 62  63 0d 00 a0 15 20 c9 20  | . 6:.mbc.... . |
000001b0  38 3a f2 6b 70 28 24 69  6e 70 75 74 25 29 0d 00  |8:.kp($input%)..|
000001c0  aa 12 20 c9 20 31 37 2c  31 38 3a f2 6d 65 73 73  |.. . 17,18:.mess|
000001d0  0d 00 b4 0e 20 cb 3a fd  20 71 75 69 74 25 0d 00  |.... .:. quit%..|
000001e0  be 1a 20 c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |.. .. "Wimp_Clos|
000001f0  65 44 6f 77 6e 22 3a e0  0d 00 c8 06 20 3a 0d 00  |eDown":..... :..|
00000200  d2 28 20 dd a4 66 28 78  29 3d 3a 3a 3a 3a 3a 3a  |.( ..f(x)=::::::|
00000210  3a 3a 3a 3a 3a 3a 3a 3a  3a 3a 3a 3a 3a 3a 3a 3a  |::::::::::::::::|
00000220  3a 3a 3a 3a 3a 3a 0d 00  dc 2a 20 dd a4 67 28 78  |::::::...* ..g(x|
00000230  2c 79 29 3d 3a 3a 3a 3a  3a 3a 3a 3a 3a 3a 3a 3a  |,y)=::::::::::::|
00000240  3a 3a 3a 3a 3a 3a 3a 3a  3a 3a 3a 3a 3a 3a 3a 3a  |::::::::::::::::|
00000250  0d 00 e6 17 20 dd f2 73  65 74 28 61 24 29 3a 3d  |.... ..set(a$):=|
00000260  a0 28 61 24 29 3a e1 0d  00 f0 06 20 3a 0d 00 fa  |.(a$):..... :...|
00000270  0c 20 dd f2 69 76 61 72  73 0d 01 04 2a 20 de 20  |. ..ivars...* . |
00000280  71 25 34 30 30 2c 20 63  6c 6f 63 6b 25 39 2c 20  |q%400, clock%9, |
00000290  69 6e 70 75 74 25 33 33  2c 20 6f 75 74 70 75 74  |input%33, output|
000002a0  25 33 33 0d 01 0e 26 20  71 75 69 74 25 3d 30 3a  |%33...& quit%=0:|
000002b0  65 25 3d 26 34 33 36 32  33 34 35 45 3a 6d 66 25  |e%=&4362345E:mf%|
000002c0  3d 26 37 30 30 30 30 32  31 0d 01 18 26 20 78 73  |=&7000021...& xs|
000002d0  25 3d 35 33 36 3a 79 73  25 3d 31 36 30 3a 75 25  |%=536:ys%=160:u%|
000002e0  3d 32 3a 76 25 3d 26 43  37 30 31 36 30 33 44 0d  |=2:v%=&C701603D.|
000002f0  01 22 23 20 54 25 3d 90  3a f2 63 3a 66 6e 66 25  |."# T%=.:.c:fnf%|
00000300  3d 54 25 2b 32 3a f2 63  3a 66 6e 67 25 3d 54 25  |=T%+2:.c:fng%=T%|
00000310  2b 32 0d 01 2c 1b 20 f5  20 54 25 2b 3d 31 3a fd  |+2..,. . T%+=1:.|
00000320  c0 24 54 25 2c 33 29 3d  22 29 3a 3d 22 0d 01 36  |.$T%,3)="):="..6|
00000330  10 20 73 65 74 25 3d 54  25 2b 31 3a e1 0d 01 40  |. set%=T%+1:...@|
00000340  06 20 3a 0d 01 4a 22 20  dd f2 63 3a f5 20 54 25  |. :..J" ..c:. T%|
00000350  2b 3d 31 3a fd 20 c0 24  54 25 2c 33 29 3d 22 29  |+=1:. .$T%,3)=")|
00000360  3d 3a 22 3a e1 0d 01 54  06 20 3a 0d 01 5e 0c 20  |=:":...T. :..^. |
00000370  dd f2 69 77 69 6d 70 0d  01 68 3a 20 c8 99 20 22  |..iwimp..h: .. "|
00000380  57 69 6d 70 5f 49 6e 69  74 69 61 6c 69 73 65 22  |Wimp_Initialise"|
00000390  2c 32 30 30 2c 26 34 42  35 33 34 31 35 34 2c 22  |,200,&4B534154,"|
000003a0  43 6c 6f 63 6b 2f 43 61  6c 63 75 6c 61 74 6f 72  |Clock/Calculator|
000003b0  22 0d 01 72 11 20 f2 69  69 62 3a f2 74 65 6d 70  |"..r. .iib:.temp|
000003c0  3a e1 0d 01 7c 06 20 3a  0d 01 86 14 20 dd f2 69  |:...|. :.... ..i|
000003d0  69 62 3a f7 20 8d 74 64  41 3a f2 62 0d 01 90 26  |ib:. .tdA:.b...&|
000003e0  20 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  | .. "Wimp_Create|
000003f0  49 63 6f 6e 22 2c 2c 71  25 20 b8 20 69 63 6f 6e  |Icon",,q% . icon|
00000400  68 25 0d 01 9a 0a 20 f2  63 74 3a e1 0d 01 a4 2d  |h%.... .ct:....-|
00000410  20 dc 20 2d 31 2c 30 2c  30 2c 31 33 36 2c 37 32  | . -1,0,0,136,72|
00000420  2c 26 31 37 30 30 32 31  33 39 2c 63 6c 6f 63 6b  |,&17002139,clock|
00000430  25 2c 2d 31 2c 39 2c 65  25 0d 01 ae 06 20 3a 0d  |%,-1,9,e%.... :.|
00000440  01 b8 29 20 dd f2 62 3a  3a 54 25 3d 71 25 2d 34  |..) ..b::T%=q%-4|
00000450  3a f5 20 54 25 2b 3d 34  3a f3 20 21 54 25 3a fd  |:. T%+=4:. !T%:.|
00000460  21 54 25 3d 65 25 3a e1  0d 01 c2 06 20 3a 0d 01  |!T%=e%:..... :..|
00000470  cc 20 20 dd f2 74 65 6d  70 3a f7 20 8d 64 6a 41  |.  ..temp:. .djA|
00000480  3a f2 62 3a 24 69 6e 70  75 74 25 3d 22 22 0d 01  |:.b:$input%=""..|
00000490  d6 28 20 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |.( .. "Wimp_Crea|
000004a0  74 65 57 69 6e 64 6f 77  22 2c 2c 71 25 20 b8 20  |teWindow",,q% . |
000004b0  63 61 6c 63 68 25 0d 01  e0 06 20 e1 0d 01 ea 73  |calch%.... ....s|
000004c0  20 dc 20 37 34 32 2c 38  32 30 2c 31 32 37 38 2c  | . 742,820,1278,|
000004d0  39 38 30 2c 30 2c 30 2c  31 38 30 38 2c 36 38 33  |980,0,0,1808,683|
000004e0  35 34 31 39 35 2c 34 35  39 32 37 31 2c 37 38 36  |54195,459271,786|
000004f0  36 39 31 2c 30 2c 2d 31  30 32 34 2c 31 32 38 30  |691,0,-1024,1280|
00000500  2c 30 2c 36 31 2c 31 32  32 38 38 2c 30 2c 30 2c  |,0,61,12288,0,0,|
00000510  26 36 33 36 43 36 31 34  33 2c 26 37 34 36 31 36  |&636C6143,&74616|
00000520  43 37 35 2c 26 46 46 30  44 37 32 36 46 2c 36 0d  |C75,&FF0D726F,6.|
00000530  01 f4 53 20 dc 20 37 2c  2d 35 32 2c 35 33 31 2c  |..S . 7,-52,531,|
00000540  2d 34 2c 26 45 37 30 30  46 31 33 35 2c 69 6e 70  |-4,&E700F135,inp|
00000550  75 74 25 2c 2d 31 2c 33  33 2c 20 37 2c 2d 31 35  |ut%,-1,33, 7,-15|
00000560  34 2c 35 33 31 2c 2d 31  30 36 2c 26 41 37 30 30  |4,531,-106,&A700|
00000570  36 33 33 35 2c 6f 75 74  70 75 74 25 2c 2d 31 2c  |6335,output%,-1,|
00000580  33 33 0d 01 fe 48 20 dc  20 33 30 32 2c 2d 31 30  |33...H . 302,-10|
00000590  32 2c 33 37 34 2c 2d 35  34 2c 76 25 2c 26 44 34  |2,374,-54,v%,&D4|
000005a0  33 34 35 34 34 2c 30 2c  30 2c 33 38 30 2c 2d 31  |34544,0,0,380,-1|
000005b0  30 32 2c 34 35 32 2c 2d  35 34 2c 76 25 2c 26 44  |02,452,-54,v%,&D|
000005c0  35 38 34 35 34 38 2c 30  2c 30 0d 02 08 50 20 dc  |584548,0,0...P .|
000005d0  20 34 35 38 2c 2d 31 30  32 2c 35 33 30 2c 2d 35  | 458,-102,530,-5|
000005e0  34 2c 76 25 2c 26 44 34  45 34 39 34 32 2c 30 2c  |4,v%,&D4E4942,0,|
000005f0  30 2c 37 2c 2d 31 30 32  2c 31 30 30 2c 2d 35 34  |0,7,-102,100,-54|
00000600  2c 26 46 37 30 31 39 30  33 44 2c 26 37 34 36 39  |,&F701903D,&7469|
00000610  37 35 35 31 2c 31 33 2c  65 25 0d 02 12 06 20 3a  |7551,13,e%.... :|
00000620  0d 02 1c 0b 20 dd f2 6d  65 73 73 0d 02 26 0f 20  |.... ..mess..&. |
00000630  c8 8e 20 71 25 21 31 36  20 ca 0d 02 30 11 20 c9  |.. q%!16 ...0. .|
00000640  20 30 20 3a 71 75 69 74  25 3d b9 0d 02 3a 0d 20  | 0 :quit%=...:. |
00000650  c9 20 33 20 3a f2 6c 66  0d 02 44 08 20 cb 3a e1  |. 3 :.lf..D. .:.|
00000660  0d 02 4e 06 20 3a 0d 02  58 09 20 dd f2 6c 66 0d  |..N. :..X. ..lf.|
00000670  02 62 0c 20 ea 20 54 25  2c 66 24 0d 02 6c 20 20  |.b. . T%,f$..l  |
00000680  66 24 3d c4 32 35 30 2c  22 20 22 29 3a 66 24 3d  |f$=.250," "):f$=|
00000690  22 22 3a 54 25 3d 71 25  2b 34 34 0d 02 76 1f 20  |"":T%=q%+44..v. |
000006a0  c8 95 20 3f 54 25 3c 3e  30 3a 66 24 2b 3d bd 3f  |.. ?T%<>0:f$+=.?|
000006b0  54 25 3a 54 25 2b 3d 31  3a ce 0d 02 80 0f 20 c8  |T%:T%+=1:..... .|
000006c0  8e 20 71 25 21 34 30 20  ca 0d 02 8a 21 20 c9 20  |. q%!40 ....! . |
000006d0  26 46 46 46 2c 26 46 46  45 2c 26 46 45 42 3a f2  |&FFF,&FFE,&FEB:.|
000006e0  63 77 28 22 54 79 70 65  22 29 0d 02 94 0f 20 c9  |cw("Type").... .|
000006f0  20 26 46 46 42 3a f2 6c  62 0d 02 9e 16 20 c9 20  | &FFB:.lb.... . |
00000700  26 46 46 39 3a f2 73 6c  69 73 74 28 66 24 29 0d  |&FF9:.slist(f$).|
00000710  02 a8 12 20 7f 3a f2 63  77 28 22 44 75 6d 70 22  |... .:.cw("Dump"|
00000720  29 0d 02 b2 06 20 cb 0d  02 bc 33 20 71 25 21 31  |).... ....3 q%!1|
00000730  32 3d 71 25 21 38 3a 71  25 21 31 36 3d 34 3a c8  |2=q%!8:q%!16=4:.|
00000740  99 20 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |. "Wimp_SendMess|
00000750  61 67 65 22 2c 31 37 2c  71 25 0d 02 c6 06 20 e1  |age",17,q%.... .|
00000760  0d 02 d0 06 20 3a 0d 02  da 2e 20 dd f2 6c 62 3a  |.... :.... ..lb:|
00000770  f2 65 64 69 74 3a ff 20  22 57 69 6d 70 54 61 73  |.edit:. "WimpTas|
00000780  6b 20 42 61 73 69 63 20  2d 4c 6f 61 64 20 22 2b  |k Basic -Load "+|
00000790  66 24 3a e1 0d 02 e4 06  20 3a 0d 02 ee 0b 20 dd  |f$:..... :.... .|
000007a0  f2 65 64 69 74 0d 02 f8  11 20 2a 46 58 20 31 33  |.edit.... *FX 13|
000007b0  38 2c 30 2c 36 39 0d 03  02 11 20 2a 46 58 20 31  |8,0,69.... *FX 1|
000007c0  33 38 2c 30 2c 36 38 0d  03 0c 11 20 2a 46 58 20  |38,0,68.... *FX |
000007d0  31 33 38 2c 30 2c 37 33  0d 03 16 11 20 2a 46 58  |138,0,73.... *FX|
000007e0  20 31 33 38 2c 30 2c 38  34 0d 03 1b 10 20 2a 46  | 138,0,84.... *F|
000007f0  58 31 33 38 2c 30 2c 34  36 0d 03 20 11 20 2a 46  |X138,0,46.. . *F|
00000800  58 20 31 33 38 2c 30 2c  31 33 0d 03 2a 06 20 e1  |X 138,0,13..*. .|
00000810  0d 03 34 06 20 3a 0d 03  3e 1f 20 dd f2 67 6f 62  |..4. :..>. ..gob|
00000820  3a ff 20 22 57 69 6d 70  54 61 73 6b 20 42 61 73  |:. "WimpTask Bas|
00000830  69 63 22 3a e1 0d 03 48  06 20 3a 0d 03 52 0a 20  |ic":...H. :..R. |
00000840  dd f2 6d 62 63 0d 03 5c  1b 20 ea 20 78 25 2c 79  |..mbc..\. . x%,y|
00000850  25 3a 78 25 3d 21 71 25  3a 79 25 3d 71 25 21 34  |%:x%=!q%:y%=q%!4|
00000860  0d 03 66 11 20 c8 8e 20  28 71 25 21 31 32 29 20  |..f. .. (q%!12) |
00000870  ca 0d 03 70 09 20 c9 20  2d 32 0d 03 7a 10 20 c8  |...p. . -2..z. .|
00000880  8e 20 28 71 25 21 38 29  20 ca 0d 03 84 0d 20 c9  |. (q%!8) ..... .|
00000890  20 34 3a f2 67 6f 62 0d  03 8e 0c 20 c9 20 32 3a  | 4:.gob.... . 2:|
000008a0  f2 6f 63 0d 03 98 13 20  c9 20 31 3a f2 65 64 69  |.oc.... . 1:.edi|
000008b0  74 3a f2 67 6f 62 0d 03  a2 06 20 cb 0d 03 ac 18  |t:.gob.... .....|
000008c0  20 c9 20 63 61 6c 63 68  25 3a c8 8e 20 71 25 21  | . calch%:.. q%!|
000008d0  31 36 20 ca 0d 03 b6 19  20 20 c9 20 32 2c 33 2c  |16 .....  . 2,3,|
000008e0  34 3a f2 73 65 6c 28 71  25 21 31 36 29 0d 03 c0  |4:.sel(q%!16)...|
000008f0  2e 20 20 c9 20 35 3a 71  75 69 74 25 3d b9 3a c8  |.  . 5:quit%=.:.|
00000900  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 57 69 6e  |. "Wimp_CloseWin|
00000910  64 6f 77 22 2c 2c 71 25  2b 31 32 0d 03 ca 07 20  |dow",,q%+12.... |
00000920  20 cb 0d 03 d4 08 20 cb  3a e1 0d 03 de 06 20 3a  | ..... .:..... :|
00000930  0d 03 e8 09 20 dd f2 63  74 0d 03 f2 61 20 e7 24  |.... ..ct...a .$|
00000940  63 6c 6f 63 6b 25 3c 3e  c2 91 24 2c 38 29 3a 24  |clock%<>..$,8):$|
00000950  63 6c 6f 63 6b 25 3d c2  91 24 2c 38 29 3a 21 71  |clock%=..$,8):!q|
00000960  25 3d 2d 32 3a 71 25 21  34 3d 69 63 6f 6e 68 25  |%=-2:q%!4=iconh%|
00000970  3a 71 25 21 38 3d 30 3a  71 25 21 31 32 3d 30 3a  |:q%!8=0:q%!12=0:|
00000980  c8 99 20 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |.. "Wimp_SetIcon|
00000990  53 74 61 74 65 22 2c 2c  71 25 0d 03 fc 06 20 e1  |State",,q%.... .|
000009a0  0d 04 06 06 20 3a 0d 04  10 27 20 dd a4 65 72 72  |.... :...' ..err|
000009b0  6f 72 28 65 24 2c 62 25  29 3a 21 71 25 3d 30 3a  |or(e$,b%):!q%=0:|
000009c0  24 28 71 25 2b 34 29 3d  65 24 2b bd 30 0d 04 1a  |$(q%+4)=e$+.0...|
000009d0  39 20 c8 99 20 22 57 69  6d 70 5f 52 65 70 6f 72  |9 .. "Wimp_Repor|
000009e0  74 45 72 72 6f 72 22 2c  71 25 2c 62 25 2c 22 43  |tError",q%,b%,"C|
000009f0  6c 6f 63 6b 2f 43 61 6c  63 75 6c 61 74 6f 72 22  |lock/Calculator"|
00000a00  20 b8 20 2c 62 25 0d 04  24 08 20 3d 62 25 0d 04  | . ,b%..$. =b%..|
00000a10  2e 06 20 3a 0d 04 38 10  20 dd f2 73 6c 69 73 74  |.. :..8. ..slist|
00000a20  28 66 24 29 0d 04 42 2a  20 ea 20 6e 25 2c 6f 25  |(f$)..B* . n%,o%|
00000a30  2c 62 25 2c 74 25 2c 68  25 2c 75 25 2c 76 25 2c  |,b%,t%,h%,u%,v%,|
00000a40  78 25 2c 79 25 2c 6d 25  2c 7a 24 2c 6d 24 0d 04  |x%,y%,m%,z$,m$..|
00000a50  4c 29 20 68 25 3d 8e 66  24 3a c8 99 20 22 57 69  |L) h%=.f$:.. "Wi|
00000a60  6d 70 5f 43 6f 6d 6d 61  6e 64 57 69 6e 64 6f 77  |mp_CommandWindow|
00000a70  22 2c 71 25 2b 34 34 0d  04 56 29 20 f1 20 22 4e  |",q%+44..V) . "N|
00000a80  61 6d 65 22 89 28 39 29  22 68 6f 72 20 78 20 76  |ame".(9)"hor x v|
00000a90  65 72 20 20 4d 6f 64 65  20 20 4d 20 20 50 22 27  |er  Mode  M  P"'|
00000aa0  0d 04 60 16 20 6e 25 3d  a4 62 3a 6f 25 3d a4 62  |..`. n%=.b:o%=.b|
00000ab0  3a 62 25 3d 2d 34 0d 04  6a 0d 20 e3 74 25 3d 31  |:b%=-4..j. .t%=1|
00000ac0  b8 6e 25 0d 04 74 1c 20  cf 23 68 25 3d 6f 25 2b  |.n%..t. .#h%=o%+|
00000ad0  62 25 3a 62 25 2b 3d 6f  25 3a 6f 25 3d a4 62 0d  |b%:b%+=o%:o%=.b.|
00000ae0  04 7e 17 20 e3 20 75 25  3d 31 b8 31 32 3a ef 20  |.~. . u%=1.12:. |
00000af0  9a 23 68 25 3a ed 0d 04  88 3e 20 78 25 3d a4 62  |.#h%:....> x%=.b|
00000b00  3a 79 25 3d a4 62 3a 76  25 3d 2d a4 62 2b a4 62  |:y%=.b:v%=-.b+.b|
00000b10  2d 33 31 3a 6d 25 3d a4  62 3a e7 6d 25 3d 8f 23  |-31:m%=.b:.m%=.#|
00000b20  68 25 2d 34 3a 6d 24 3d  22 4e 22 20 8b 20 6d 24  |h%-4:m$="N" . m$|
00000b30  3d 22 59 22 0d 04 92 1b  20 e7 6d 25 82 a4 62 3a  |="Y".... .m%..b:|
00000b40  7a 24 3d 22 59 22 20 8b  20 7a 24 3d 22 4e 22 0d  |z$="Y" . z$="N".|
00000b50  04 9c 2f 20 6d 25 3d a4  62 3a c8 99 20 22 4f 53  |../ m%=.b:.. "OS|
00000b60  5f 52 65 61 64 4d 6f 64  65 56 61 72 69 61 62 6c  |_ReadModeVariabl|
00000b70  65 22 2c 6d 25 2c 39 20  b8 20 2c 2c 75 25 0d 04  |e",m%,9 . ,,u%..|
00000b80  a6 1d 20 78 25 3d 28 33  32 2a 28 78 25 2b 31 29  |.. x%=(32*(x%+1)|
00000b90  2b 76 25 29 20 81 20 32  5e 75 25 0d 04 b0 23 20  |+v%) . 2^u%...# |
00000ba0  f1 8a 31 33 2c bc 29 89  28 34 2d a9 28 c3 78 25  |..13,.).(4-.(.x%|
00000bb0  29 29 3b 78 25 22 78 22  3b 79 25 2b 31 3b 0d 04  |));x%"x";y%+1;..|
00000bc0  ba 1d 20 f1 8a 32 35 2c  bc 29 3b 6d 25 8a 33 30  |.. ..25,.);m%.30|
00000bd0  2c bc 29 7a 24 22 20 20  22 6d 24 0d 04 c4 25 20  |,.)z$"  "m$...% |
00000be0  ed 3a d9 23 68 25 3a c8  99 20 22 57 69 6d 70 5f  |.:.#h%:.. "Wimp_|
00000bf0  43 6f 6d 6d 61 6e 64 57  69 6e 64 6f 77 22 3a e1  |CommandWindow":.|
00000c00  0d 04 ce 06 20 3a 0d 04  d8 2b 20 dd a4 62 3a 3d  |.... :...+ ..b:=|
00000c10  9a 23 68 25 2b 9a 23 68  25 2a 32 5e 38 2b 9a 23  |.#h%+.#h%*2^8+.#|
00000c20  68 25 2a 32 5e 31 36 2b  9a 23 68 25 2a 32 5e 32  |h%*2^16+.#h%*2^2|
00000c30  34 0d 04 e2 06 20 3a 0d  04 ec 19 20 dd f2 6f 63  |4.... :.... ..oc|
00000c40  3a ea 20 78 25 3a 78 25  3d 21 71 25 2d 32 36 38  |:. x%:x%=!q%-268|
00000c50  0d 04 f6 0e 20 f7 20 8d  54 68 45 3a f2 62 0d 05  |.... . .ThE:.b..|
00000c60  00 1d 20 c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |.. .. "Wimp_Open|
00000c70  57 69 6e 64 6f 77 22 2c  2c 71 25 0d 05 0a 36 20  |Window",,q%...6 |
00000c80  c8 99 20 22 57 69 6d 70  5f 53 65 74 43 61 72 65  |.. "Wimp_SetCare|
00000c90  74 50 6f 73 69 74 69 6f  6e 22 2c 63 61 6c 63 68  |tPosition",calch|
00000ca0  25 2c 30 2c 2c 2c 2d 31  2c a9 24 69 6e 70 75 74  |%,0,,,-1,.$input|
00000cb0  25 0d 05 14 1a 20 3f 71  25 3d 33 3a 71 25 21 31  |%.... ?q%=3:q%!1|
00000cc0  3d 78 25 2b 26 43 30 30  31 30 43 0d 05 1e 22 20  |=x%+&C0010C..." |
00000cd0  c8 99 20 22 4f 53 5f 57  6f 72 64 22 2c 32 31 2c  |.. "OS_Word",21,|
00000ce0  71 25 3a f2 73 65 6c 28  75 25 29 3a e1 0d 05 28  |q%:.sel(u%):...(|
00000cf0  29 20 dc 20 63 61 6c 63  68 25 2c 78 25 2c 31 31  |) . calch%,x%,11|
00000d00  32 2c 78 25 2b 35 33 36  2c 32 37 32 2c 30 2c 30  |2,x%+536,272,0,0|
00000d10  2c 2d 31 2c 65 25 0d 05  32 06 20 3a 0d 05 3c 23  |,-1,e%..2. :..<#|
00000d20  20 dd f2 73 72 28 61 24  29 3a 24 6f 75 74 70 75  | ..sr(a$):$outpu|
00000d30  74 25 3d 61 24 3a f7 20  8d 44 50 45 3a f2 62 0d  |t%=a$:. .DPE:.b.|
00000d40  05 46 21 20 c8 99 20 22  57 69 6d 70 5f 53 65 74  |.F! .. "Wimp_Set|
00000d50  49 63 6f 6e 53 74 61 74  65 22 2c 2c 71 25 3a e1  |IconState",,q%:.|
00000d60  0d 05 50 16 20 dc 20 63  61 6c 63 68 25 2c 31 2c  |..P. . calch%,1,|
00000d70  30 2c 30 2c 65 25 0d 05  5a 06 20 3a 0d 05 64 0d  |0,0,e%..Z. :..d.|
00000d80  20 dd f2 6b 70 28 61 24  29 0d 05 6e 27 20 e7 20  | ..kp(a$)..n' . |
00000d90  21 71 25 3d 63 61 6c 63  68 25 20 80 20 71 25 21  |!q%=calch% . q%!|
00000da0  34 3d 30 20 80 20 71 25  21 32 34 3d 31 33 20 8c  |4=0 . q%!24=13 .|
00000db0  0d 05 78 26 20 e7 c0 61  24 2c 31 29 3d 22 3a 22  |..x& ..a$,1)=":"|
00000dc0  20 f2 61 73 73 69 67 6e  28 61 24 29 20 8b 20 f2  | .assign(a$) . .|
00000dd0  72 73 28 61 24 29 0d 05  82 08 20 cd 3a e1 0d 05  |rs(a$).... .:...|
00000de0  8c 06 20 3a 0d 05 96 19  20 dd f2 61 73 73 69 67  |.. :.... ..assig|
00000df0  6e 28 61 24 29 3a ea 20  62 24 3a f2 66 0d 05 a0  |n(a$):. b$:.f...|
00000e00  4e 20 e7 c1 61 24 2c 33  2c 31 29 3d 22 3d 22 3a  |N ..a$,3,1)="=":|
00000e10  3f 73 65 74 25 3d 97 28  c1 61 24 2c 32 2c 31 29  |?set%=.(.a$,2,1)|
00000e20  29 3a f2 73 65 74 28 c1  61 24 2c 34 29 29 3a f2  |):.set(.a$,4)):.|
00000e30  73 72 28 22 56 61 72 69  61 62 6c 65 20 68 61 73  |sr("Variable has|
00000e40  20 62 65 65 6e 20 73 65  74 22 29 0d 05 aa 15 20  | been set").... |
00000e50  e7 c1 61 24 2c 33 2c 32  29 3d 22 3a 3d 22 20 8c  |..a$,3,2)=":=" .|
00000e60  0d 05 b4 12 20 c8 8e 20  c1 61 24 2c 32 2c 31 29  |.... .. .a$,2,1)|
00000e70  20 ca 0d 05 be 22 20 c9  20 22 66 22 3a 62 24 3d  | ...." . "f":b$=|
00000e80  24 66 6e 66 25 3a f2 64  3a 24 66 6e 66 25 3d 62  |$fnf%:.d:$fnf%=b|
00000e90  24 3a f2 65 0d 05 c8 22  20 c9 20 22 67 22 3a 62  |$:.e..." . "g":b|
00000ea0  24 3d 24 66 6e 67 25 3a  f2 64 3a 24 66 6e 67 25  |$=$fng%:.d:$fng%|
00000eb0  3d 62 24 3a f2 65 0d 05  d2 06 20 cb 0d 05 dc 08  |=b$:.e.... .....|
00000ec0  20 cd 3a e1 0d 05 e6 06  20 3a 0d 05 f0 1a 20 dd  | .:..... :.... .|
00000ed0  f2 64 3a c0 62 24 29 3d  c1 61 24 2c 35 29 2b 22  |.d:.b$)=.a$,5)+"|
00000ee0  3a 22 3a e1 0d 05 fa 2b  20 dd f2 65 3a f2 73 72  |:":....+ ..e:.sr|
00000ef0  28 22 46 75 6e 63 74 69  6f 6e 20 68 61 73 20 62  |("Function has b|
00000f00  65 65 6e 20 64 65 66 69  6e 65 64 22 29 3a e1 0d  |een defined"):..|
00000f10  06 04 24 20 dd f2 66 3a  f2 73 72 28 22 49 6e 76  |..$ ..f:.sr("Inv|
00000f20  61 6c 69 64 20 61 73 73  69 67 6e 6d 65 6e 74 22  |alid assignment"|
00000f30  29 3a e1 0d 06 0e 06 20  3a 0d 06 18 0d 20 dd f2  |):..... :.... ..|
00000f40  72 73 28 61 24 29 0d 06  22 10 20 ea 20 74 25 2c  |rs(a$)..". . t%,|
00000f50  54 25 3a ea 20 85 0d 06  2c 19 20 ee 20 85 20 ea  |T%:. ...,. . . .|
00000f60  3a f2 73 72 28 c0 f6 24  2c 33 32 29 29 3a e1 0d  |:.sr(..$,32)):..|
00000f70  06 36 26 20 e7 61 24 3d  22 22 3a f2 73 72 28 22  |.6& .a$="":.sr("|
00000f80  45 6e 74 65 72 20 65 78  70 72 65 73 73 69 6f 6e  |Enter expression|
00000f90  2e 22 29 3a e1 0d 06 40  0c 20 c8 8e 20 75 25 20  |."):...@. .. u% |
00000fa0  ca 0d 06 4a 16 20 c9 20  32 3a f2 73 72 28 c3 28  |...J. . 2:.sr(.(|
00000fb0  a0 28 61 24 29 29 29 0d  06 54 1b 20 c9 20 33 3a  |.(a$)))..T. . 3:|
00000fc0  f2 73 72 28 22 26 22 2b  c3 7e 28 a0 28 61 24 29  |.sr("&"+.~(.(a$)|
00000fd0  29 29 0d 06 5e 17 20 c9  20 34 3a 74 25 3d a0 28  |))..^. . 4:t%=.(|
00000fe0  61 24 29 3a 61 24 3d 22  22 0d 06 68 2c 20 e3 54  |a$):a$=""..h, .T|
00000ff0  25 3d 33 31 b8 30 88 2d  31 3a e7 74 25 80 28 31  |%=31.0.-1:.t%.(1|
00001000  3c 3c 54 25 29 3a 61 24  2b 3d 22 31 22 8b 61 24  |<<T%):a$+="1".a$|
00001010  2b 3d 22 30 22 0d 06 72  0e 20 ed 3a f2 73 72 28  |+="0"..r. .:.sr(|
00001020  61 24 29 0d 06 7c 1a 20  7f 3a f2 73 72 28 22 55  |a$)..|. .:.sr("U|
00001030  6e 6b 6e 6f 77 6e 20 62  61 73 65 22 29 0d 06 86  |nknown base")...|
00001040  08 20 cb 3a e1 0d 06 90  06 20 3a 0d 06 9a 21 20  |. .:..... :...! |
00001050  dd f2 73 65 6c 28 73 25  29 3a ea 20 54 25 2c 63  |..sel(s%):. T%,c|
00001060  25 3a 21 71 25 3d 63 61  6c 63 68 25 0d 06 a4 13  |%:!q%=calch%....|
00001070  20 75 25 3d 73 25 3a e3  20 54 25 3d 32 b8 34 0d  | u%=s%:. T%=2.4.|
00001080  06 ae 17 20 e7 54 25 3d  73 25 3a 63 25 3d 31 31  |... .T%=s%:c%=11|
00001090  8b 63 25 3d 31 32 0d 06  b8 25 20 71 25 21 34 3d  |.c%=12...% q%!4=|
000010a0  54 25 3a 71 25 21 38 3d  63 25 3c 3c 32 38 3a 71  |T%:q%!8=c%<<28:q|
000010b0  25 21 31 32 3d 31 35 3c  3c 32 38 0d 06 c2 1f 20  |%!12=15<<28.... |
000010c0  c8 99 20 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |.. "Wimp_SetIcon|
000010d0  53 74 61 74 65 22 2c 2c  71 25 0d 06 cc 15 20 ed  |State",,q%.... .|
000010e0  3a f2 72 73 28 24 69 6e  70 75 74 25 29 3a e1 0d  |:.rs($input%):..|
000010f0  06 d6 06 20 3a 0d 06 e0  2b 20 dd f2 63 77 28 61  |... :...+ ..cw(a|
00001100  24 29 3a c8 99 20 22 57  69 6d 70 5f 43 6f 6d 6d  |$):.. "Wimp_Comm|
00001110  61 6e 64 57 69 6e 64 6f  77 22 2c 71 25 2b 34 34  |andWindow",q%+44|
00001120  0d 06 ea 30 20 ff 20 61  24 2b 22 20 22 2b 24 28  |...0 . a$+" "+$(|
00001130  71 25 2b 34 34 29 3a c8  99 20 22 57 69 6d 70 5f  |q%+44):.. "Wimp_|
00001140  43 6f 6d 6d 61 6e 64 57  69 6e 64 6f 77 22 3a e1  |CommandWindow":.|
00001150  0d ff                                             |..|
00001152