Home » Archimedes archive » Archimedes World » AW-1992-05.adf » May92 » !AWMay92/Goodies/VAT/!VAT/!RunImage
!AWMay92/Goodies/VAT/!VAT/!RunImage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Archimedes World » AW-1992-05.adf » May92 |
| Filename: | !AWMay92/Goodies/VAT/!VAT/!RunImage |
| Read OK: | ✔ |
| File size: | 11B2 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
D��< ��40�� � �Q��Z �� �BASIC -Quit @00009000,0000A164 d� �� d
V�><VAT$Dir>.!RunImagesquished by MH's BASIC cruncher v1.30 16/9/89 On 02 Sep 1991
�g$="1.00 (02-Sep-91)":�q% 512:$q%="TASK":ș"Wimp_Initialise",200,!q%,"VAT calculator"�,o%:ș"Hourglass_On":o=�:h%=�:�a$(50),a(50),c(50):�b(50),d(50),e(20):�p% 512:�D% 1000:�s% 256:l%=D%:E%=l%+1000:�f("<VAT$Dir>.Templates")
��c("progInfo"):ș"Wimp_CreateWindow",,q%�t%:�c("mainw"):ș"Wimp_CreateWindow",,q%�b%:�g:j=�("<VAT$Dir>.rate"):�#j,a:�#j:�a(q%,b%,4,�(a),0):�a(q%,t%,4,g$,0):�b(b%,�,-1):h%=�:j%=3:��h
(}ș"Hourglass_Off":�:�i(�c(0)):�o:a=�(�a(q%,b%,4)):j=�("<VAT$Dir>.rate"):�#j,a:�#j:$q%="TASK":ș"Wimp_CloseDown",o%,q%!0:�
2��h:�j%=3�
<*�d(�$+" (internal error code "+Þ+")")
F �:�d(�$)
P�
Z j%=3:ș"Hourglass_Smash":�
d��z(e$):j%=1:�1,e$:�
n^��d(r$):�r%:!q%=�:$(q%+4)=r$+�(0):ș"Wimp_ReportError",q%,j%,"VAT calculator"�r%:�r%=2�o=�
x�
�"��j(U%,V%,k%,c%,g%,W%):�c%=-2�
�
�k(k%,g%)
��:�c%=b%�k%=2�l
��
��
���k(k%,g%):�k%=4�(�h%)�
��b(b%,�,-1):h%=�
��
��
�n��m(c%):�X%:q%!0=c%:ș"Wimp_RedrawWindow",0,q%�u%:�n(q%+4,Y%,Z%):ȕu%:�o:ș"Wimp_GetRectangle",0,q%�u%:�:�
� ݤd(c%):�v%:v%=�:�c%=b%�h%=�
�=v%
�@��p:�w%:ș"Wimp_GetCaretPosition",,s%:w%=s%!4:�q(w%,q%!24):�
��q(g%,F%):�F%=13��r(g%)
�
{��l:k=0:ȗx,y,b:�e("Info",k,0,0,0,0,65569,t%,0):k+=1:�e("Quit",k,0,0,0,0,65569,0,-1):k+=1:�s("VAT",k,100,x-64,y):_%=0:�
"��t(k$):�v:v=q%!0:Ȏv�
,
�1:o=�
6�
@�
J;��b(c%,G%,H%):q%!0=c%:�G%�ș"Wimp_GetWindowState",0,q%
T�H%�q%!28=-1
^ ș"Wimp_OpenWindow",0,q%:�
h��u(c%):�d(c%)�
r)q%!0=c%:ș"Wimp_CloseWindow",0,q%:o=�
|�
��
�&ݤc(I%):ș"Wimp_Poll",I%,q%�a%:=a%
���i(J%):ȎJ%�
��1:�m(q%!0)
��2:�b(q%!0,�,0)
��3:�u(q%!0)
�*�6:�j(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)
� �8:�p
�
�9:�t("")
��17,18:�v(q%)
��
��
���v(q%):Ȏq%!16�
.�0:$q%="TASK":ș"Wimp_CloseDown",o%,q%!0:�
�
�
&-��n(b,�x%,�y%):x%=b!0-b!16:y%=b!12-b!20:�
0zݤe(K%,z%,A%,m%,n%,L%,M%,N%,b$):�i%:q%!0=K%:q%!4=z%:q%!8=A%:q%!12=z%+m%:q%!16=A%+n%:q%!20=N%�M%<<28�L%<<24:�q%!20�256�
:>i%=�b$,","):q%!24=�(�b$,i%-1)):q%!28=-1:q%!32=�(�b$,i%+1))
D�:$(q%+24)=�b$,11)
N�
X#ș"Wimp_CreateIcon",0,q%�i%:=i%
b��A(c%,B%):�B%<>-1�
lBq%!0=c%:q%!4=B%:q%!8=2097152:q%!12=0:ș"Wimp_SetIconState",,q%
v�
��
����a(b,C%,O%,c$,D):b!0=C%:b!4=O%:ș"Wimp_GetIconState",,b:ș"Wimp_DeleteIcon",,b:b!4=C%:$(b!28)=c$:b+=4:ș"Wimp_CreateIcon",,b:�D�ș"Wimp_ForceRedraw",b!0,b!4,b!8,b!12,b!16
�
b-=4:�
�~��a(q%,f%,e%,b$,p):q%!0=f%:q%!4=e%:ș"Wimp_GetIconState",,q%:$(q%!28)=b$:�p�ș"Wimp_ForceRedraw",f%,q%!8,q%!12,q%!16,q%!20
��
��ݤf(b,f%,e%,h$,p):b!0=f%:b!4=e%:ș"Wimp_GetIconState",,b:ș"Wimp_DeleteIcon",,b:b!4=b!8:b!8=b!12:b!12=b!16:b!16=b!20:b!20=b!24:$(b+24)=h$:ș"Wimp_CreateIcon",,b�e%:�p�ș"Wimp_ForceRedraw",b!0,b!4,b!8,b!12,b!16
�=e%
�Eݤa(q%,f%,e%):q%!0=f%:q%!4=e%:ș"Wimp_GetIconState",,q%:=$(q%!28)
�H��B(f%,e%,P%,Q%,n%,R%):ș"Wimp_SetCaretPosition",f%,e%,P%,Q%,n%,R%:�
�g��o:L=q%!36:M=q%!40:E=q%!4:F=q%!8:G=q%!12:H=q%!16:z=q%!20:A=q%!24:I=G-E:J=H-F:N=z:O=z+I:P=A:Q=A-J:�
�B��e(c$,n,w,t,d,s,m,K,l):a$(n)=c$:a(n)=0:�w�a(n)=a(n)�4:m=m�256
��t�a(n)=a(n)�1
��d�a(n)=a(n)�2
�l�a(n)=a(n)�128
�s�m=m�4194304
c(n)=m:b(n)=K:�
���s(f$,n,m%,x,y):d%=p%:r=0:q=0:�:e(r)=d%:r+=1:$d%=f$:d%?12=7:d%?13=2:d%?14=7:d%?15=0:d%!16=m%:d%!20=40:d%!24=0:c=d%+28:�:c!0=a(q):d(q)=c+4:c!8=c(q)�0<<28�7<<24:�(c(q)�256)=0�
*$(c+12)=a$(q)
4J�:B=�a$(q),"("):c!12=�(�a$(q),B-1)):c!16=-1:c!20=�(�a$(q),�(a$(q))-B))
>�
H7c+=24:q+=1:�(a(q-1)�128)>0:d%=c:�q<>n�f$=a$(q):q+=1
R!�q=n:�q=0�n-1:�b(q)>0�b(q)<r�
\!d(q)=e(b(q))
f�:!d(q)=b(q)
p�
z$�q:ș"Wimp_CreateMenu",,p%,x,y:�
�'��f(i$):ș"Wimp_OpenTemplate",,i$:�
�L��c(j$):�S%,T%,x%:ș"Wimp_LoadTemplate",,q%,l%,E%,-1,j$,0�S%,,l%,,,,T%:�
� ��g:ș"Wimp_CloseTemplate":�
���r(g%):Ȏg%�
� �5:�w
� �6:�x
� �7:�y
��
��
ށ��w:a=�(�a(q%,b%,4)):e=�(�a(q%,b%,5)):f=e*((a)/100):g=e+f:�a(q%,b%,6,�b("#######.##",f),�):�a(q%,b%,7,�b("#######.##",g),�):�
�3��x:a=�(�a(q%,b%,4)):f=�(�a(q%,b%,6)):�f=0��7:�
�]e=1/((a/100)/f):g=e+f:�a(q%,b%,5,�b("#######.##",e),�):�a(q%,b%,7,�b("#######.##",g),�):�
����y:a=�(�a(q%,b%,4)):g=�(�a(q%,b%,7)):e=g/((a/100)+1):f=g-e:�a(q%,b%,5,�b("#######.##",e),�):�a(q%,b%,6,�b("#######.##",f),�):�
6ݤb(d$,u):�@%,h,i,a$:h=�(d$):i=�d$,"."):�i>0�i=h-i
�i>0
@%=16908288+256*i+h
$�:@%=h:u=�(u+0.5)
.�
8a$=�(u):�(a$)<=h�
Ba$=�h-�(a$)," ")+a$
L �:a$=d$
V�
` �C=1��(a$):�a$,C,1)=" "�
ja$=�a$,�(a$)-C)
t�
~ �:=a$
� 00000000 44 10 9f e5 3c 20 9f e5 34 30 9f e5 04 00 12 e4 |D...< ..40......|
00000010 04 00 03 e4 04 10 51 e2 fb ff ff 5a 00 00 8f e2 |......Q....Z....|
00000020 05 00 00 ef 42 41 53 49 43 20 2d 51 75 69 74 20 |....BASIC -Quit |
00000030 40 30 30 30 30 39 30 30 30 2c 30 30 30 30 41 31 |@00009000,0000A1|
00000040 36 34 00 0e 64 a1 00 00 b4 91 00 00 64 11 00 00 |64..d.......d...|
00000050 0d 00 0a 56 f4 3e 3c 56 41 54 24 44 69 72 3e 2e |...V.><VAT$Dir>.|
00000060 21 52 75 6e 49 6d 61 67 65 15 73 71 75 69 73 68 |!RunImage.squish|
00000070 65 64 20 62 79 20 4d 48 27 73 20 42 41 53 49 43 |ed by MH's BASIC|
00000080 20 63 72 75 6e 63 68 65 72 20 76 31 2e 33 30 20 | cruncher v1.30 |
00000090 31 36 2f 39 2f 38 39 20 4f 6e 20 30 32 20 53 65 |16/9/89 On 02 Se|
000000a0 70 20 31 39 39 31 0d 00 14 e2 67 24 3d 22 31 2e |p 1991....g$="1.|
000000b0 30 30 20 28 30 32 2d 53 65 70 2d 39 31 29 22 3a |00 (02-Sep-91)":|
000000c0 de 71 25 20 35 31 32 3a 24 71 25 3d 22 54 41 53 |.q% 512:$q%="TAS|
000000d0 4b 22 3a c8 99 22 57 69 6d 70 5f 49 6e 69 74 69 |K":.."Wimp_Initi|
000000e0 61 6c 69 73 65 22 2c 32 30 30 2c 21 71 25 2c 22 |alise",200,!q%,"|
000000f0 56 41 54 20 63 61 6c 63 75 6c 61 74 6f 72 22 b8 |VAT calculator".|
00000100 2c 6f 25 3a c8 99 22 48 6f 75 72 67 6c 61 73 73 |,o%:.."Hourglass|
00000110 5f 4f 6e 22 3a 6f 3d a3 3a 68 25 3d a3 3a de 61 |_On":o=.:h%=.:.a|
00000120 24 28 35 30 29 2c 61 28 35 30 29 2c 63 28 35 30 |$(50),a(50),c(50|
00000130 29 3a de 62 28 35 30 29 2c 64 28 35 30 29 2c 65 |):.b(50),d(50),e|
00000140 28 32 30 29 3a de 70 25 20 35 31 32 3a de 44 25 |(20):.p% 512:.D%|
00000150 20 31 30 30 30 3a de 73 25 20 32 35 36 3a 6c 25 | 1000:.s% 256:l%|
00000160 3d 44 25 3a 45 25 3d 6c 25 2b 31 30 30 30 3a f2 |=D%:E%=l%+1000:.|
00000170 66 28 22 3c 56 41 54 24 44 69 72 3e 2e 54 65 6d |f("<VAT$Dir>.Tem|
00000180 70 6c 61 74 65 73 22 29 0d 00 1e ba f2 63 28 22 |plates").....c("|
00000190 70 72 6f 67 49 6e 66 6f 22 29 3a c8 99 22 57 69 |progInfo"):.."Wi|
000001a0 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 22 |mp_CreateWindow"|
000001b0 2c 2c 71 25 b8 74 25 3a f2 63 28 22 6d 61 69 6e |,,q%.t%:.c("main|
000001c0 77 22 29 3a c8 99 22 57 69 6d 70 5f 43 72 65 61 |w"):.."Wimp_Crea|
000001d0 74 65 57 69 6e 64 6f 77 22 2c 2c 71 25 b8 62 25 |teWindow",,q%.b%|
000001e0 3a f2 67 3a 6a 3d 8e 28 22 3c 56 41 54 24 44 69 |:.g:j=.("<VAT$Di|
000001f0 72 3e 2e 72 61 74 65 22 29 3a e8 23 6a 2c 61 3a |r>.rate"):.#j,a:|
00000200 d9 23 6a 3a f2 61 28 71 25 2c 62 25 2c 34 2c c3 |.#j:.a(q%,b%,4,.|
00000210 28 61 29 2c 30 29 3a f2 61 28 71 25 2c 74 25 2c |(a),0):.a(q%,t%,|
00000220 34 2c 67 24 2c 30 29 3a f2 62 28 62 25 2c a3 2c |4,g$,0):.b(b%,.,|
00000230 2d 31 29 3a 68 25 3d b9 3a 6a 25 3d 33 3a ee 85 |-1):h%=.:j%=3:..|
00000240 f2 68 0d 00 28 7d c8 99 22 48 6f 75 72 67 6c 61 |.h..(}.."Hourgla|
00000250 73 73 5f 4f 66 66 22 3a f5 3a f2 69 28 a4 63 28 |ss_Off":.:.i(.c(|
00000260 30 29 29 3a fd 6f 3a 61 3d bb 28 a4 61 28 71 25 |0)):.o:a=.(.a(q%|
00000270 2c 62 25 2c 34 29 29 3a 6a 3d ae 28 22 3c 56 41 |,b%,4)):j=.("<VA|
00000280 54 24 44 69 72 3e 2e 72 61 74 65 22 29 3a f1 23 |T$Dir>.rate"):.#|
00000290 6a 2c 61 3a d9 23 6a 3a 24 71 25 3d 22 54 41 53 |j,a:.#j:$q%="TAS|
000002a0 4b 22 3a c8 99 22 57 69 6d 70 5f 43 6c 6f 73 65 |K":.."Wimp_Close|
000002b0 44 6f 77 6e 22 2c 6f 25 2c 71 25 21 30 3a e0 0d |Down",o%,q%!0:..|
000002c0 00 32 0e dd f2 68 3a e7 6a 25 3d 33 8c 0d 00 3c |.2...h:.j%=3...<|
000002d0 2a f2 64 28 f6 24 2b 22 20 28 69 6e 74 65 72 6e |*.d(.$+" (intern|
000002e0 61 6c 20 65 72 72 6f 72 20 63 6f 64 65 20 22 2b |al error code "+|
000002f0 c3 9e 2b 22 29 22 29 0d 00 46 0c cc 3a f2 64 28 |..+")")..F..:.d(|
00000300 f6 24 29 0d 00 50 05 cd 0d 00 5a 1e 6a 25 3d 33 |.$)..P....Z.j%=3|
00000310 3a c8 99 22 48 6f 75 72 67 6c 61 73 73 5f 53 6d |:.."Hourglass_Sm|
00000320 61 73 68 22 3a e1 0d 00 64 18 dd f2 7a 28 65 24 |ash":...d...z(e$|
00000330 29 3a 6a 25 3d 31 3a 85 31 2c 65 24 3a e1 0d 00 |):j%=1:.1,e$:...|
00000340 6e 5e dd f2 64 28 72 24 29 3a ea 72 25 3a 21 71 |n^..d(r$):.r%:!q|
00000350 25 3d 9f 3a 24 28 71 25 2b 34 29 3d 72 24 2b bd |%=.:$(q%+4)=r$+.|
00000360 28 30 29 3a c8 99 22 57 69 6d 70 5f 52 65 70 6f |(0):.."Wimp_Repo|
00000370 72 74 45 72 72 6f 72 22 2c 71 25 2c 6a 25 2c 22 |rtError",q%,j%,"|
00000380 56 41 54 20 63 61 6c 63 75 6c 61 74 6f 72 22 b8 |VAT calculator".|
00000390 72 25 3a e7 72 25 3d 32 8c 6f 3d b9 0d 00 78 05 |r%:.r%=2.o=...x.|
000003a0 e1 0d 00 82 22 dd f2 6a 28 55 25 2c 56 25 2c 6b |...."..j(U%,V%,k|
000003b0 25 2c 63 25 2c 67 25 2c 57 25 29 3a e7 63 25 3d |%,c%,g%,W%):.c%=|
000003c0 2d 32 8c 0d 00 8c 0d f2 6b 28 6b 25 2c 67 25 29 |-2......k(k%,g%)|
000003d0 0d 00 96 13 cc 3a e7 63 25 3d 62 25 80 6b 25 3d |.....:.c%=b%.k%=|
000003e0 32 f2 6c 0d 00 a0 05 cd 0d 00 aa 05 e1 0d 00 b4 |2.l.............|
000003f0 1b dd f2 6b 28 6b 25 2c 67 25 29 3a e7 6b 25 3d |...k(k%,g%):.k%=|
00000400 34 80 28 ac 68 25 29 8c 0d 00 be 14 f2 62 28 62 |4.(.h%)......b(b|
00000410 25 2c a3 2c 2d 31 29 3a 68 25 3d b9 0d 00 c8 05 |%,.,-1):h%=.....|
00000420 cd 0d 00 d2 05 e1 0d 00 dc 6e dd f2 6d 28 63 25 |.........n..m(c%|
00000430 29 3a ea 58 25 3a 71 25 21 30 3d 63 25 3a c8 99 |):.X%:q%!0=c%:..|
00000440 22 57 69 6d 70 5f 52 65 64 72 61 77 57 69 6e 64 |"Wimp_RedrawWind|
00000450 6f 77 22 2c 30 2c 71 25 b8 75 25 3a f2 6e 28 71 |ow",0,q%.u%:.n(q|
00000460 25 2b 34 2c 59 25 2c 5a 25 29 3a c8 95 75 25 3a |%+4,Y%,Z%):..u%:|
00000470 f2 6f 3a c8 99 22 57 69 6d 70 5f 47 65 74 52 65 |.o:.."Wimp_GetRe|
00000480 63 74 61 6e 67 6c 65 22 2c 30 2c 71 25 b8 75 25 |ctangle",0,q%.u%|
00000490 3a ce 3a e1 0d 00 e6 20 dd a4 64 28 63 25 29 3a |:.:.... ..d(c%):|
000004a0 ea 76 25 3a 76 25 3d b9 3a e7 63 25 3d 62 25 8c |.v%:v%=.:.c%=b%.|
000004b0 68 25 3d a3 0d 00 f0 07 3d 76 25 0d 00 fa 40 dd |h%=.....=v%...@.|
000004c0 f2 70 3a ea 77 25 3a c8 99 22 57 69 6d 70 5f 47 |.p:.w%:.."Wimp_G|
000004d0 65 74 43 61 72 65 74 50 6f 73 69 74 69 6f 6e 22 |etCaretPosition"|
000004e0 2c 2c 73 25 3a 77 25 3d 73 25 21 34 3a f2 71 28 |,,s%:w%=s%!4:.q(|
000004f0 77 25 2c 71 25 21 32 34 29 3a e1 0d 01 04 1c dd |w%,q%!24):......|
00000500 f2 71 28 67 25 2c 46 25 29 3a e7 46 25 3d 31 33 |.q(g%,F%):.F%=13|
00000510 8c f2 72 28 67 25 29 0d 01 0e 05 e1 0d 01 18 7b |..r(g%)........{|
00000520 dd f2 6c 3a 6b 3d 30 3a c8 97 78 2c 79 2c 62 3a |..l:k=0:..x,y,b:|
00000530 f2 65 28 22 49 6e 66 6f 22 2c 6b 2c 30 2c 30 2c |.e("Info",k,0,0,|
00000540 30 2c 30 2c 36 35 35 36 39 2c 74 25 2c 30 29 3a |0,0,65569,t%,0):|
00000550 6b 2b 3d 31 3a f2 65 28 22 51 75 69 74 22 2c 6b |k+=1:.e("Quit",k|
00000560 2c 30 2c 30 2c 30 2c 30 2c 36 35 35 36 39 2c 30 |,0,0,0,0,65569,0|
00000570 2c 2d 31 29 3a 6b 2b 3d 31 3a f2 73 28 22 56 41 |,-1):k+=1:.s("VA|
00000580 54 22 2c 6b 2c 31 30 30 2c 78 2d 36 34 2c 79 29 |T",k,100,x-64,y)|
00000590 3a 5f 25 3d 30 3a e1 0d 01 22 1a dd f2 74 28 6b |:_%=0:..."...t(k|
000005a0 24 29 3a ea 76 3a 76 3d 71 25 21 30 3a c8 8e 76 |$):.v:v=q%!0:..v|
000005b0 ca 0d 01 2c 0a c9 31 3a 6f 3d b9 0d 01 36 05 cb |...,..1:o=...6..|
000005c0 0d 01 40 05 e1 0d 01 4a 3b dd f2 62 28 63 25 2c |..@....J;..b(c%,|
000005d0 47 25 2c 48 25 29 3a 71 25 21 30 3d 63 25 3a e7 |G%,H%):q%!0=c%:.|
000005e0 ac 47 25 8c c8 99 22 57 69 6d 70 5f 47 65 74 57 |.G%..."Wimp_GetW|
000005f0 69 6e 64 6f 77 53 74 61 74 65 22 2c 30 2c 71 25 |indowState",0,q%|
00000600 0d 01 54 10 e7 48 25 8c 71 25 21 32 38 3d 2d 31 |..T..H%.q%!28=-1|
00000610 0d 01 5e 1e c8 99 22 57 69 6d 70 5f 4f 70 65 6e |..^..."Wimp_Open|
00000620 57 69 6e 64 6f 77 22 2c 30 2c 71 25 3a e1 0d 01 |Window",0,q%:...|
00000630 68 14 dd f2 75 28 63 25 29 3a e7 a4 64 28 63 25 |h...u(c%):..d(c%|
00000640 29 8c 0d 01 72 29 71 25 21 30 3d 63 25 3a c8 99 |)...r)q%!0=c%:..|
00000650 22 57 69 6d 70 5f 43 6c 6f 73 65 57 69 6e 64 6f |"Wimp_CloseWindo|
00000660 77 22 2c 30 2c 71 25 3a 6f 3d b9 0d 01 7c 05 cd |w",0,q%:o=...|..|
00000670 0d 01 86 05 e1 0d 01 90 26 dd a4 63 28 49 25 29 |........&..c(I%)|
00000680 3a c8 99 22 57 69 6d 70 5f 50 6f 6c 6c 22 2c 49 |:.."Wimp_Poll",I|
00000690 25 2c 71 25 b8 61 25 3a 3d 61 25 0d 01 9a 11 dd |%,q%.a%:=a%.....|
000006a0 f2 69 28 4a 25 29 3a c8 8e 4a 25 ca 0d 01 a4 0f |.i(J%):..J%.....|
000006b0 c9 31 3a f2 6d 28 71 25 21 30 29 0d 01 ae 13 c9 |.1:.m(q%!0).....|
000006c0 32 3a f2 62 28 71 25 21 30 2c b9 2c 30 29 0d 01 |2:.b(q%!0,.,0)..|
000006d0 b8 0f c9 33 3a f2 75 28 71 25 21 30 29 0d 01 c2 |...3:.u(q%!0)...|
000006e0 2a c9 36 3a f2 6a 28 21 71 25 2c 71 25 21 34 2c |*.6:.j(!q%,q%!4,|
000006f0 71 25 21 38 2c 71 25 21 31 32 2c 71 25 21 31 36 |q%!8,q%!12,q%!16|
00000700 2c 71 25 21 32 30 29 0d 01 cc 09 c9 38 3a f2 70 |,q%!20).....8:.p|
00000710 0d 01 d6 0d c9 39 3a f2 74 28 22 22 29 0d 01 e0 |.....9:.t("")...|
00000720 11 c9 31 37 2c 31 38 3a f2 76 28 71 25 29 0d 01 |..17,18:.v(q%)..|
00000730 ea 05 cb 0d 01 f4 05 e1 0d 01 fe 14 dd f2 76 28 |..............v(|
00000740 71 25 29 3a c8 8e 71 25 21 31 36 ca 0d 02 08 2e |q%):..q%!16.....|
00000750 c9 30 3a 24 71 25 3d 22 54 41 53 4b 22 3a c8 99 |.0:$q%="TASK":..|
00000760 22 57 69 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e 22 |"Wimp_CloseDown"|
00000770 2c 6f 25 2c 71 25 21 30 3a e0 0d 02 12 05 cb 0d |,o%,q%!0:.......|
00000780 02 1c 05 e1 0d 02 26 2d dd f2 6e 28 62 2c f8 78 |......&-..n(b,.x|
00000790 25 2c f8 79 25 29 3a 78 25 3d 62 21 30 2d 62 21 |%,.y%):x%=b!0-b!|
000007a0 31 36 3a 79 25 3d 62 21 31 32 2d 62 21 32 30 3a |16:y%=b!12-b!20:|
000007b0 e1 0d 02 30 7a dd a4 65 28 4b 25 2c 7a 25 2c 41 |...0z..e(K%,z%,A|
000007c0 25 2c 6d 25 2c 6e 25 2c 4c 25 2c 4d 25 2c 4e 25 |%,m%,n%,L%,M%,N%|
000007d0 2c 62 24 29 3a ea 69 25 3a 71 25 21 30 3d 4b 25 |,b$):.i%:q%!0=K%|
000007e0 3a 71 25 21 34 3d 7a 25 3a 71 25 21 38 3d 41 25 |:q%!4=z%:q%!8=A%|
000007f0 3a 71 25 21 31 32 3d 7a 25 2b 6d 25 3a 71 25 21 |:q%!12=z%+m%:q%!|
00000800 31 36 3d 41 25 2b 6e 25 3a 71 25 21 32 30 3d 4e |16=A%+n%:q%!20=N|
00000810 25 84 4d 25 3c 3c 32 38 84 4c 25 3c 3c 32 34 3a |%.M%<<28.L%<<24:|
00000820 e7 71 25 21 32 30 80 32 35 36 8c 0d 02 3a 3e 69 |.q%!20.256...:>i|
00000830 25 3d a7 62 24 2c 22 2c 22 29 3a 71 25 21 32 34 |%=.b$,","):q%!24|
00000840 3d a0 28 c0 62 24 2c 69 25 2d 31 29 29 3a 71 25 |=.(.b$,i%-1)):q%|
00000850 21 32 38 3d 2d 31 3a 71 25 21 33 32 3d a0 28 c1 |!28=-1:q%!32=.(.|
00000860 62 24 2c 69 25 2b 31 29 29 0d 02 44 16 cc 3a 24 |b$,i%+1))..D..:$|
00000870 28 71 25 2b 32 34 29 3d c0 62 24 2c 31 31 29 0d |(q%+24)=.b$,11).|
00000880 02 4e 05 cd 0d 02 58 23 c8 99 22 57 69 6d 70 5f |.N....X#.."Wimp_|
00000890 43 72 65 61 74 65 49 63 6f 6e 22 2c 30 2c 71 25 |CreateIcon",0,q%|
000008a0 b8 69 25 3a 3d 69 25 0d 02 62 17 dd f2 41 28 63 |.i%:=i%..b...A(c|
000008b0 25 2c 42 25 29 3a e7 42 25 3c 3e 2d 31 8c 0d 02 |%,B%):.B%<>-1...|
000008c0 6c 42 71 25 21 30 3d 63 25 3a 71 25 21 34 3d 42 |lBq%!0=c%:q%!4=B|
000008d0 25 3a 71 25 21 38 3d 32 30 39 37 31 35 32 3a 71 |%:q%!8=2097152:q|
000008e0 25 21 31 32 3d 30 3a c8 99 22 57 69 6d 70 5f 53 |%!12=0:.."Wimp_S|
000008f0 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 71 25 |etIconState",,q%|
00000900 0d 02 76 05 cd 0d 02 80 05 e1 0d 02 8a af dd f2 |..v.............|
00000910 61 28 62 2c 43 25 2c 4f 25 2c 63 24 2c 44 29 3a |a(b,C%,O%,c$,D):|
00000920 62 21 30 3d 43 25 3a 62 21 34 3d 4f 25 3a c8 99 |b!0=C%:b!4=O%:..|
00000930 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 |"Wimp_GetIconSta|
00000940 74 65 22 2c 2c 62 3a c8 99 22 57 69 6d 70 5f 44 |te",,b:.."Wimp_D|
00000950 65 6c 65 74 65 49 63 6f 6e 22 2c 2c 62 3a 62 21 |eleteIcon",,b:b!|
00000960 34 3d 43 25 3a 24 28 62 21 32 38 29 3d 63 24 3a |4=C%:$(b!28)=c$:|
00000970 62 2b 3d 34 3a c8 99 22 57 69 6d 70 5f 43 72 65 |b+=4:.."Wimp_Cre|
00000980 61 74 65 49 63 6f 6e 22 2c 2c 62 3a e7 44 8c c8 |ateIcon",,b:.D..|
00000990 99 22 57 69 6d 70 5f 46 6f 72 63 65 52 65 64 72 |."Wimp_ForceRedr|
000009a0 61 77 22 2c 62 21 30 2c 62 21 34 2c 62 21 38 2c |aw",b!0,b!4,b!8,|
000009b0 62 21 31 32 2c 62 21 31 36 0d 02 94 0a 62 2d 3d |b!12,b!16....b-=|
000009c0 34 3a e1 0d 02 9e 7e dd f2 61 28 71 25 2c 66 25 |4:....~..a(q%,f%|
000009d0 2c 65 25 2c 62 24 2c 70 29 3a 71 25 21 30 3d 66 |,e%,b$,p):q%!0=f|
000009e0 25 3a 71 25 21 34 3d 65 25 3a c8 99 22 57 69 6d |%:q%!4=e%:.."Wim|
000009f0 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 2c |p_GetIconState",|
00000a00 2c 71 25 3a 24 28 71 25 21 32 38 29 3d 62 24 3a |,q%:$(q%!28)=b$:|
00000a10 e7 70 8c c8 99 22 57 69 6d 70 5f 46 6f 72 63 65 |.p..."Wimp_Force|
00000a20 52 65 64 72 61 77 22 2c 66 25 2c 71 25 21 38 2c |Redraw",f%,q%!8,|
00000a30 71 25 21 31 32 2c 71 25 21 31 36 2c 71 25 21 32 |q%!12,q%!16,q%!2|
00000a40 30 0d 02 a8 05 e1 0d 02 b2 d5 dd a4 66 28 62 2c |0...........f(b,|
00000a50 66 25 2c 65 25 2c 68 24 2c 70 29 3a 62 21 30 3d |f%,e%,h$,p):b!0=|
00000a60 66 25 3a 62 21 34 3d 65 25 3a c8 99 22 57 69 6d |f%:b!4=e%:.."Wim|
00000a70 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 2c |p_GetIconState",|
00000a80 2c 62 3a c8 99 22 57 69 6d 70 5f 44 65 6c 65 74 |,b:.."Wimp_Delet|
00000a90 65 49 63 6f 6e 22 2c 2c 62 3a 62 21 34 3d 62 21 |eIcon",,b:b!4=b!|
00000aa0 38 3a 62 21 38 3d 62 21 31 32 3a 62 21 31 32 3d |8:b!8=b!12:b!12=|
00000ab0 62 21 31 36 3a 62 21 31 36 3d 62 21 32 30 3a 62 |b!16:b!16=b!20:b|
00000ac0 21 32 30 3d 62 21 32 34 3a 24 28 62 2b 32 34 29 |!20=b!24:$(b+24)|
00000ad0 3d 68 24 3a c8 99 22 57 69 6d 70 5f 43 72 65 61 |=h$:.."Wimp_Crea|
00000ae0 74 65 49 63 6f 6e 22 2c 2c 62 b8 65 25 3a e7 70 |teIcon",,b.e%:.p|
00000af0 8c c8 99 22 57 69 6d 70 5f 46 6f 72 63 65 52 65 |..."Wimp_ForceRe|
00000b00 64 72 61 77 22 2c 62 21 30 2c 62 21 34 2c 62 21 |draw",b!0,b!4,b!|
00000b10 38 2c 62 21 31 32 2c 62 21 31 36 0d 02 bc 07 3d |8,b!12,b!16....=|
00000b20 65 25 0d 02 c6 45 dd a4 61 28 71 25 2c 66 25 2c |e%...E..a(q%,f%,|
00000b30 65 25 29 3a 71 25 21 30 3d 66 25 3a 71 25 21 34 |e%):q%!0=f%:q%!4|
00000b40 3d 65 25 3a c8 99 22 57 69 6d 70 5f 47 65 74 49 |=e%:.."Wimp_GetI|
00000b50 63 6f 6e 53 74 61 74 65 22 2c 2c 71 25 3a 3d 24 |conState",,q%:=$|
00000b60 28 71 25 21 32 38 29 0d 02 d0 48 dd f2 42 28 66 |(q%!28)...H..B(f|
00000b70 25 2c 65 25 2c 50 25 2c 51 25 2c 6e 25 2c 52 25 |%,e%,P%,Q%,n%,R%|
00000b80 29 3a c8 99 22 57 69 6d 70 5f 53 65 74 43 61 72 |):.."Wimp_SetCar|
00000b90 65 74 50 6f 73 69 74 69 6f 6e 22 2c 66 25 2c 65 |etPosition",f%,e|
00000ba0 25 2c 50 25 2c 51 25 2c 6e 25 2c 52 25 3a e1 0d |%,P%,Q%,n%,R%:..|
00000bb0 02 da 67 dd f2 6f 3a 4c 3d 71 25 21 33 36 3a 4d |..g..o:L=q%!36:M|
00000bc0 3d 71 25 21 34 30 3a 45 3d 71 25 21 34 3a 46 3d |=q%!40:E=q%!4:F=|
00000bd0 71 25 21 38 3a 47 3d 71 25 21 31 32 3a 48 3d 71 |q%!8:G=q%!12:H=q|
00000be0 25 21 31 36 3a 7a 3d 71 25 21 32 30 3a 41 3d 71 |%!16:z=q%!20:A=q|
00000bf0 25 21 32 34 3a 49 3d 47 2d 45 3a 4a 3d 48 2d 46 |%!24:I=G-E:J=H-F|
00000c00 3a 4e 3d 7a 3a 4f 3d 7a 2b 49 3a 50 3d 41 3a 51 |:N=z:O=z+I:P=A:Q|
00000c10 3d 41 2d 4a 3a e1 0d 02 e4 42 dd f2 65 28 63 24 |=A-J:....B..e(c$|
00000c20 2c 6e 2c 77 2c 74 2c 64 2c 73 2c 6d 2c 4b 2c 6c |,n,w,t,d,s,m,K,l|
00000c30 29 3a 61 24 28 6e 29 3d 63 24 3a 61 28 6e 29 3d |):a$(n)=c$:a(n)=|
00000c40 30 3a e7 77 8c 61 28 6e 29 3d 61 28 6e 29 84 34 |0:.w.a(n)=a(n).4|
00000c50 3a 6d 3d 6d 84 32 35 36 0d 02 ee 12 e7 74 8c 61 |:m=m.256.....t.a|
00000c60 28 6e 29 3d 61 28 6e 29 84 31 0d 02 f8 12 e7 64 |(n)=a(n).1.....d|
00000c70 8c 61 28 6e 29 3d 61 28 6e 29 84 32 0d 03 02 14 |.a(n)=a(n).2....|
00000c80 e7 6c 8c 61 28 6e 29 3d 61 28 6e 29 84 31 32 38 |.l.a(n)=a(n).128|
00000c90 0d 03 0c 12 e7 73 8c 6d 3d 6d 84 34 31 39 34 33 |.....s.m=m.41943|
00000ca0 30 34 0d 03 16 13 63 28 6e 29 3d 6d 3a 62 28 6e |04....c(n)=m:b(n|
00000cb0 29 3d 4b 3a e1 0d 03 20 b2 dd f2 73 28 66 24 2c |)=K:... ...s(f$,|
00000cc0 6e 2c 6d 25 2c 78 2c 79 29 3a 64 25 3d 70 25 3a |n,m%,x,y):d%=p%:|
00000cd0 72 3d 30 3a 71 3d 30 3a f5 3a 65 28 72 29 3d 64 |r=0:q=0:.:e(r)=d|
00000ce0 25 3a 72 2b 3d 31 3a 24 64 25 3d 66 24 3a 64 25 |%:r+=1:$d%=f$:d%|
00000cf0 3f 31 32 3d 37 3a 64 25 3f 31 33 3d 32 3a 64 25 |?12=7:d%?13=2:d%|
00000d00 3f 31 34 3d 37 3a 64 25 3f 31 35 3d 30 3a 64 25 |?14=7:d%?15=0:d%|
00000d10 21 31 36 3d 6d 25 3a 64 25 21 32 30 3d 34 30 3a |!16=m%:d%!20=40:|
00000d20 64 25 21 32 34 3d 30 3a 63 3d 64 25 2b 32 38 3a |d%!24=0:c=d%+28:|
00000d30 f5 3a 63 21 30 3d 61 28 71 29 3a 64 28 71 29 3d |.:c!0=a(q):d(q)=|
00000d40 63 2b 34 3a 63 21 38 3d 63 28 71 29 84 30 3c 3c |c+4:c!8=c(q).0<<|
00000d50 32 38 84 37 3c 3c 32 34 3a e7 28 63 28 71 29 80 |28.7<<24:.(c(q).|
00000d60 32 35 36 29 3d 30 8c 0d 03 2a 11 24 28 63 2b 31 |256)=0...*.$(c+1|
00000d70 32 29 3d 61 24 28 71 29 0d 03 34 4a cc 3a 42 3d |2)=a$(q)..4J.:B=|
00000d80 a7 61 24 28 71 29 2c 22 28 22 29 3a 63 21 31 32 |.a$(q),"("):c!12|
00000d90 3d a0 28 c0 61 24 28 71 29 2c 42 2d 31 29 29 3a |=.(.a$(q),B-1)):|
00000da0 63 21 31 36 3d 2d 31 3a 63 21 32 30 3d a0 28 c2 |c!16=-1:c!20=.(.|
00000db0 61 24 28 71 29 2c a9 28 61 24 28 71 29 29 2d 42 |a$(q),.(a$(q))-B|
00000dc0 29 29 0d 03 3e 05 cd 0d 03 48 37 63 2b 3d 32 34 |))..>....H7c+=24|
00000dd0 3a 71 2b 3d 31 3a fd 28 61 28 71 2d 31 29 80 31 |:q+=1:.(a(q-1).1|
00000de0 32 38 29 3e 30 3a 64 25 3d 63 3a e7 71 3c 3e 6e |28)>0:d%=c:.q<>n|
00000df0 8c 66 24 3d 61 24 28 71 29 3a 71 2b 3d 31 0d 03 |.f$=a$(q):q+=1..|
00000e00 52 21 fd 71 3d 6e 3a e3 71 3d 30 b8 6e 2d 31 3a |R!.q=n:.q=0.n-1:|
00000e10 e7 62 28 71 29 3e 30 80 62 28 71 29 3c 72 8c 0d |.b(q)>0.b(q)<r..|
00000e20 03 5c 11 21 64 28 71 29 3d 65 28 62 28 71 29 29 |.\.!d(q)=e(b(q))|
00000e30 0d 03 66 10 cc 3a 21 64 28 71 29 3d 62 28 71 29 |..f..:!d(q)=b(q)|
00000e40 0d 03 70 05 cd 0d 03 7a 24 ed 71 3a c8 99 22 57 |..p....z$.q:.."W|
00000e50 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c |imp_CreateMenu",|
00000e60 2c 70 25 2c 78 2c 79 3a e1 0d 03 84 27 dd f2 66 |,p%,x,y:....'..f|
00000e70 28 69 24 29 3a c8 99 22 57 69 6d 70 5f 4f 70 65 |(i$):.."Wimp_Ope|
00000e80 6e 54 65 6d 70 6c 61 74 65 22 2c 2c 69 24 3a e1 |nTemplate",,i$:.|
00000e90 0d 03 8e 4c dd f2 63 28 6a 24 29 3a ea 53 25 2c |...L..c(j$):.S%,|
00000ea0 54 25 2c 78 25 3a c8 99 22 57 69 6d 70 5f 4c 6f |T%,x%:.."Wimp_Lo|
00000eb0 61 64 54 65 6d 70 6c 61 74 65 22 2c 2c 71 25 2c |adTemplate",,q%,|
00000ec0 6c 25 2c 45 25 2c 2d 31 2c 6a 24 2c 30 b8 53 25 |l%,E%,-1,j$,0.S%|
00000ed0 2c 2c 6c 25 2c 2c 2c 2c 54 25 3a e1 0d 03 98 20 |,,l%,,,,T%:.... |
00000ee0 dd f2 67 3a c8 99 22 57 69 6d 70 5f 43 6c 6f 73 |..g:.."Wimp_Clos|
00000ef0 65 54 65 6d 70 6c 61 74 65 22 3a e1 0d 03 a2 11 |eTemplate":.....|
00000f00 dd f2 72 28 67 25 29 3a c8 8e 67 25 ca 0d 03 ac |..r(g%):..g%....|
00000f10 09 c9 35 3a f2 77 0d 03 b6 09 c9 36 3a f2 78 0d |..5:.w.....6:.x.|
00000f20 03 c0 09 c9 37 3a f2 79 0d 03 ca 05 cb 0d 03 d4 |....7:.y........|
00000f30 05 e1 0d 03 de 81 dd f2 77 3a 61 3d bb 28 a4 61 |........w:a=.(.a|
00000f40 28 71 25 2c 62 25 2c 34 29 29 3a 65 3d bb 28 a4 |(q%,b%,4)):e=.(.|
00000f50 61 28 71 25 2c 62 25 2c 35 29 29 3a 66 3d 65 2a |a(q%,b%,5)):f=e*|
00000f60 28 28 61 29 2f 31 30 30 29 3a 67 3d 65 2b 66 3a |((a)/100):g=e+f:|
00000f70 f2 61 28 71 25 2c 62 25 2c 36 2c a4 62 28 22 23 |.a(q%,b%,6,.b("#|
00000f80 23 23 23 23 23 23 2e 23 23 22 2c 66 29 2c b9 29 |######.##",f),.)|
00000f90 3a f2 61 28 71 25 2c 62 25 2c 37 2c a4 62 28 22 |:.a(q%,b%,7,.b("|
00000fa0 23 23 23 23 23 23 23 2e 23 23 22 2c 67 29 2c b9 |#######.##",g),.|
00000fb0 29 3a e1 0d 03 e8 33 dd f2 78 3a 61 3d bb 28 a4 |):....3..x:a=.(.|
00000fc0 61 28 71 25 2c 62 25 2c 34 29 29 3a 66 3d bb 28 |a(q%,b%,4)):f=.(|
00000fd0 a4 61 28 71 25 2c 62 25 2c 36 29 29 3a e7 66 3d |.a(q%,b%,6)):.f=|
00000fe0 30 8c ef 37 3a e1 0d 03 f2 5d 65 3d 31 2f 28 28 |0..7:....]e=1/((|
00000ff0 61 2f 31 30 30 29 2f 66 29 3a 67 3d 65 2b 66 3a |a/100)/f):g=e+f:|
00001000 f2 61 28 71 25 2c 62 25 2c 35 2c a4 62 28 22 23 |.a(q%,b%,5,.b("#|
00001010 23 23 23 23 23 23 2e 23 23 22 2c 65 29 2c b9 29 |######.##",e),.)|
00001020 3a f2 61 28 71 25 2c 62 25 2c 37 2c a4 62 28 22 |:.a(q%,b%,7,.b("|
00001030 23 23 23 23 23 23 23 2e 23 23 22 2c 67 29 2c b9 |#######.##",g),.|
00001040 29 3a e1 0d 03 fc 83 dd f2 79 3a 61 3d bb 28 a4 |):.......y:a=.(.|
00001050 61 28 71 25 2c 62 25 2c 34 29 29 3a 67 3d bb 28 |a(q%,b%,4)):g=.(|
00001060 a4 61 28 71 25 2c 62 25 2c 37 29 29 3a 65 3d 67 |.a(q%,b%,7)):e=g|
00001070 2f 28 28 61 2f 31 30 30 29 2b 31 29 3a 66 3d 67 |/((a/100)+1):f=g|
00001080 2d 65 3a f2 61 28 71 25 2c 62 25 2c 35 2c a4 62 |-e:.a(q%,b%,5,.b|
00001090 28 22 23 23 23 23 23 23 23 2e 23 23 22 2c 65 29 |("#######.##",e)|
000010a0 2c b9 29 3a f2 61 28 71 25 2c 62 25 2c 36 2c a4 |,.):.a(q%,b%,6,.|
000010b0 62 28 22 23 23 23 23 23 23 23 2e 23 23 22 2c 66 |b("#######.##",f|
000010c0 29 2c b9 29 3a e1 0d 04 06 36 dd a4 62 28 64 24 |),.):....6..b(d$|
000010d0 2c 75 29 3a ea 40 25 2c 68 2c 69 2c 61 24 3a 68 |,u):.@%,h,i,a$:h|
000010e0 3d a9 28 64 24 29 3a 69 3d a7 64 24 2c 22 2e 22 |=.(d$):i=.d$,"."|
000010f0 29 3a e7 69 3e 30 8c 69 3d 68 2d 69 0d 04 10 08 |):.i>0.i=h-i....|
00001100 e7 69 3e 30 0d 04 1a 17 40 25 3d 31 36 39 30 38 |.i>0....@%=16908|
00001110 32 38 38 2b 32 35 36 2a 69 2b 68 0d 04 24 15 cc |288+256*i+h..$..|
00001120 3a 40 25 3d 68 3a 75 3d a8 28 75 2b 30 2e 35 29 |:@%=h:u=.(u+0.5)|
00001130 0d 04 2e 05 cd 0d 04 38 16 61 24 3d c3 28 75 29 |.......8.a$=.(u)|
00001140 3a e7 a9 28 61 24 29 3c 3d 68 8c 0d 04 42 17 61 |:..(a$)<=h...B.a|
00001150 24 3d c4 68 2d a9 28 61 24 29 2c 22 20 22 29 2b |$=.h-.(a$)," ")+|
00001160 61 24 0d 04 4c 0b cc 3a 61 24 3d 64 24 0d 04 56 |a$..L..:a$=d$..V|
00001170 05 cd 0d 04 60 1d e3 43 3d 31 b8 a9 28 61 24 29 |....`..C=1..(a$)|
00001180 3a e7 c1 61 24 2c 43 2c 31 29 3d 22 20 22 8c 0d |:..a$,C,1)=" "..|
00001190 04 6a 13 61 24 3d c2 61 24 2c a9 28 61 24 29 2d |.j.a$=.a$,.(a$)-|
000011a0 43 29 0d 04 74 05 cd 0d 04 7e 09 ed 3a 3d 61 24 |C)..t....~..:=a$|
000011b0 0d ff |..|
000011b2 
.