firstclass%=24:foverrate=60
secondclass%=18
eecrate=24
(eurorate=28:eurooverrate=11
2/zone1rate=39:zone1arate=57:zone1overrate=32
</zone2rate=39:zone2arate=57:zone2overrate=42
F#surfacerate=28:soverrate=.51616
P� 60,24,18
Z� 100,36,28
d� 150,45,34
n� 200,54,41
x� 250,64,49
�� 300,74,58
�� 350,85,66
�� 400,96,75
�� 450,108,84
�� 500,120,93
�� 600,150,115
�� 700,180,135
�� 750,195,140
�� 800,205,205
�� 900,225,225
�� 1000,240,240
�\� "Inland First","Inland Second","EEC Rate","Europe Non-EEC","Zone 1","Zone 2","Surface"
�+�p%(1,15),w%(15),buffer 100,message$(8)

�I%=0�15

�w%(I%),p%(0,I%),p%(1,I%)

�

"�I%=0�6

,�message$(I%)

6�

@normal%=@%

J'�blk%&1000,icons&2000,IconSprite 12

T� fonts% 256

^$fonts%=�255,�0)

h$IconSprite="!postcalc"

r-ș&400C0,200,&4B534154,"Post Calc"�,task%

|!ș"Wimp_ClaimInterface",task%

���wimperror

�
job%=0

��FastDrawAssem

�)!blk%=-1:blk%!4=0:blk%!8=0:blk%!12=68

�Dblk%!16=68:blk%!20=&3102:blk%!24=IconSprite:blk%!28=1:blk%!32=12

�ș&400C2,,blk%�ProgramIcon

��menu 99

�

�� �(-256)<163 �

�(ș&400D9,,"<obey$Dir>.Templates.RO2"

�,ș&400DB,,blk%,icons,icons+&1000,,"Main"

�ș&400C1,,blk%�main%

�2ș&400DB,,blk%,icons+&1001,icons+&1999,,"Info"
ș&400C1,,blk%�information
ș&400DA
�
&(ș&400D9,,"<obey$Dir>.Templates.RO3"
02ș&400DB,,blk%,icons,icons+&1000,fonts%,"Main"
:ș&400C1,,blk%�main%
D8ș&400DB,,blk%,icons+&1001,icons+&1999,fonts%,"Info"
Nș&400C1,,blk%�information
X�
b#destination%=�WhichESG(main%,1)
l(weight%=�GetIconTextAddress(main%,5)
v)postage%=�GetIconTextAddress(main%,9)
�)stamps%=�GetIconTextAddress(main%,10)
�)remain%=�GetIconTextAddress(main%,11)
�(class%=�GetIconTextAddress(main%,15)
�bored=�
��
� ș&400C7,&1831,blk% � reason
�Ȏ reason �
��1:�redrawWindow(blk%!0)
� �2:ș"Wimp_OpenWindow",,blk%
�!�3:ș"Wimp_CloseWindow",,blk%
�*�6:�MouseEvent(blk%!12,blk%!16,blk%!8)
��8:�keypress
��9:�MenuEvent
�17,18:�MessageIn
�

�bored
 ��CloseDown
*ș&81683,task%
4ș&400DD,task%,&4B534154
>�
H�
R��MessageIn
\Ȏ blk%!16�
f�0:bored=�
p(�&502:ș"Wimp_SendInformation",,blk%
z�&400C1:�RedrawFonts
��
��
�
���RedrawFonts
�� loop%=0 � 255
�� fonts%?loop%<>0 �
�Cș "Font_ReadDefn",loop%,buffer% � ,R1%,R2%,R3%,R4%,R5%,R6%,R7%
�,ș "Font_FindFont",,R1%,,R2%,R3%,R4%,R5%
��
��
�
�
�
��SetRate
#destination%=�WhichESG(main%,1)
$�destination%=-1�destination%=17
;$class%=message$(destination%-16):�RedrawIcon(main%,15)
$�
.$ݤReadIconState(window%,button%)
8!blk%!0=window%:blk%!4=button%
Bș&400CE,,blk%
L=blk%!24�(1<<21)
V��calculate
`g=�($weight%)
j$weight%=""
t�RedrawIcon(main%,5)
~ș&400D2,main%,5,0,0,-1,0
��SetRate
�on%=�WhichESG(main%,2)
��on%=3�g=g*28.5
��on%=4�g=g*456
�g-=1
�8� (destination%=16 � destination%=17) � g>1300 � � 7
�
�g<10000�
�:�destination%=16��Inland(firstclass%):rate=firstclass%
�<�destination%=17��Inland(secondclass%):rate=secondclass%
�/�destination%=18��EEC(eecrate):rate=eecrate
�1�destination%=19��EEC(eurorate):rate=eurorate
�5�destination%=20��zone1(zone1rate):rate=zone1rate
5�destination%=21��zone2(zone2rate):rate=zone2rate

;�destination%=22��surface(surfacerate):rate=surfacerate
�g=-1�pence=0
@%=&0102020A
($postage%=�163+�(pence/100)
2@%=normal%
<part1%=pence � rate
F$$stamps%=�part1%+" x "+�rate+"p"
Ppart2%=pence-(part1%*rate)
Z$remain%=�part2%+"p"
d�
n$postage%="*****"
x$stamps%="too heavy"
�$remain%="*****"
��
��RedrawIcon(main%,9)
��RedrawIcon(main%,10)
��RedrawIcon(main%,11)
�
job%=0
��
���EEC(rate)
�
�g<20�
�pence=rate
��
�*pence=eurorate+((g � 20)*eurooverrate)
��
�
��zone1(rate)
�g<20�pence=zone1arate
"�g<10�pence=rate
,3�g>19�pence=zone1arate+((g � 20)*zone1overrate)
6�
@��zone2(rate)
J�g<20�pence=zone1arate
T�g<10�pence=rate
^3�g>19�pence=zone2arate+((g � 20)*zone2overrate)
h�
r��surface(rate)
|;� g<20 � pence=rate � pence=(rate+((g-10)*soverrate))-5
��
���Inland(rate)
��g<999�
�pence=rate
��loop%=15�0�-1
�2�w%(loop%)>g+1�pence=p%(destination%-16,loop%)
��
��
�.pence=240+(((g-1000+250) � 250)*foverrate)
��
��
���create_menu(position)
�$$menu="Post Calc":menu!12=&70207
$menu!16=100:menu!20=44:menu!24=0
4menu!28=&00:menu!32=information:menu!36=&7000021
$(menu+40)="Info"
&*menu!52=&80:menu!56=0:menu!60=&7000021
0$(menu+64)="Quit"
:ș&400D4,,menu,position,186
D�
N��RedrawIcon(window%,i%)
X/blk%!0=window%:blk%!4=i%:blk%!8=0:blk%!12=0
bș&400CD,,blk%
l�
v'��MouseEvent(window%,icon%,button%)
�� window%<>information �
�H� button%=2� ProgramIcon=icon% � window%=-2 � �create_menu(!blk%-64)
�#� button%=4� ProgramIcon=icon%�
�blk%!0=main%
�ș&400CB,,blk%
�blk%!28=-1
�ș&400C5,,blk%
��
�
�8� icon%=12 � window%=main% � button%<>2 � �calculate
�ș&400CF,,blk%
�blk%!8=0
�blk%!12=window%
blk%!16=icon%
ș "Wimp_BorderIcon",,blk%
�
 �SetRate
*�
4
>
Hș&400CF,,blk%
Rblk%!8=0
\blk%!12=window%
fblk%!16=icon%
pș "Wimp_BorderIcon",,blk%
z��MenuEvent
��blk%!0<>0�bored=�
�� bored<>� � �WasAdjust
��
���WasAdjust
�ș&400CF,,buffer
�&�buffer!8=1��create_menu(!blk%-64)
��
�
���keypress
�
k=blk%!24
�
Ȏ k �
�� 13:�calculate
�:ș&400DC,k
	�
	�
	
	$��redrawWindow(handle%)
	.B%=blk%:blk%!0=handle%
	8x%=�(fast_draw%)
	B�
	LݤWhichESG(window%,ESG%)
	V
ESG%+=&20
	`,ș&400D6,window%,buffer,&3F<<16,ESG%<<16
	j
=buffer!0
	t��FastDrawAssem
	~�fast_draw%50
	��pass%=0�2�2
	�P%=fast_draw%
	�[OPT pass%
	�
MOV R0,#0
	� SWI "Wimp_RedrawWindow"
	�
CMP R0,#0
	�BEQ fini
	�+.fast_draw_loop SWI "Wimp_BorderWindow"
	�
MOV R0,#0
	�SWI "Wimp_GetRectangle"
	�
CMP R0,#0
	�BNE fast_draw_loop
.fini MOV PC,R14

]
�
�
(%ݤGetIconTextAddress(window,icon)
2blk%!0=window:blk%!4=icon
<ș&400CE,,blk%
F=blk%!28
P��wimperror
Z!blk%=�
d+$(blk%+4)=�$+" ("+ß+") at line "+Þ+�0
n*ș&400DF,blk%,0,"Post Calc"�,response%
xbored=�
��CloseDown
��
�

00000000  0d 00 0a 1f 66 69 72 73  74 63 6c 61 73 73 25 3d  |....firstclass%=|
00000010  32 34 3a 66 6f 76 65 72  72 61 74 65 3d 36 30 0d  |24:foverrate=60.|
00000020  00 14 13 73 65 63 6f 6e  64 63 6c 61 73 73 25 3d  |...secondclass%=|
00000030  31 38 0d 00 1e 0e 65 65  63 72 61 74 65 3d 32 34  |18....eecrate=24|
00000040  0d 00 28 1f 65 75 72 6f  72 61 74 65 3d 32 38 3a  |..(.eurorate=28:|
00000050  65 75 72 6f 6f 76 65 72  72 61 74 65 3d 31 31 0d  |eurooverrate=11.|
00000060  00 32 2f 7a 6f 6e 65 31  72 61 74 65 3d 33 39 3a  |.2/zone1rate=39:|
00000070  7a 6f 6e 65 31 61 72 61  74 65 3d 35 37 3a 7a 6f  |zone1arate=57:zo|
00000080  6e 65 31 6f 76 65 72 72  61 74 65 3d 33 32 0d 00  |ne1overrate=32..|
00000090  3c 2f 7a 6f 6e 65 32 72  61 74 65 3d 33 39 3a 7a  |</zone2rate=39:z|
000000a0  6f 6e 65 32 61 72 61 74  65 3d 35 37 3a 7a 6f 6e  |one2arate=57:zon|
000000b0  65 32 6f 76 65 72 72 61  74 65 3d 34 32 0d 00 46  |e2overrate=42..F|
000000c0  23 73 75 72 66 61 63 65  72 61 74 65 3d 32 38 3a  |#surfacerate=28:|
000000d0  73 6f 76 65 72 72 61 74  65 3d 2e 35 31 36 31 36  |soverrate=.51616|
000000e0  0d 00 50 0e dc 20 36 30  2c 32 34 2c 31 38 0d 00  |..P.. 60,24,18..|
000000f0  5a 0f dc 20 31 30 30 2c  33 36 2c 32 38 0d 00 64  |Z.. 100,36,28..d|
00000100  0f dc 20 31 35 30 2c 34  35 2c 33 34 0d 00 6e 0f  |.. 150,45,34..n.|
00000110  dc 20 32 30 30 2c 35 34  2c 34 31 0d 00 78 0f dc  |. 200,54,41..x..|
00000120  20 32 35 30 2c 36 34 2c  34 39 0d 00 82 0f dc 20  | 250,64,49..... |
00000130  33 30 30 2c 37 34 2c 35  38 0d 00 8c 0f dc 20 33  |300,74,58..... 3|
00000140  35 30 2c 38 35 2c 36 36  0d 00 96 0f dc 20 34 30  |50,85,66..... 40|
00000150  30 2c 39 36 2c 37 35 0d  00 a0 10 dc 20 34 35 30  |0,96,75..... 450|
00000160  2c 31 30 38 2c 38 34 0d  00 aa 10 dc 20 35 30 30  |,108,84..... 500|
00000170  2c 31 32 30 2c 39 33 0d  00 b4 11 dc 20 36 30 30  |,120,93..... 600|
00000180  2c 31 35 30 2c 31 31 35  0d 00 be 11 dc 20 37 30  |,150,115..... 70|
00000190  30 2c 31 38 30 2c 31 33  35 0d 00 c8 11 dc 20 37  |0,180,135..... 7|
000001a0  35 30 2c 31 39 35 2c 31  34 30 0d 00 d2 11 dc 20  |50,195,140..... |
000001b0  38 30 30 2c 32 30 35 2c  32 30 35 0d 00 dc 11 dc  |800,205,205.....|
000001c0  20 39 30 30 2c 32 32 35  2c 32 32 35 0d 00 e6 12  | 900,225,225....|
000001d0  dc 20 31 30 30 30 2c 32  34 30 2c 32 34 30 0d 00  |. 1000,240,240..|
000001e0  f0 5c dc 20 22 49 6e 6c  61 6e 64 20 46 69 72 73  |.\. "Inland Firs|
000001f0  74 22 2c 22 49 6e 6c 61  6e 64 20 53 65 63 6f 6e  |t","Inland Secon|
00000200  64 22 2c 22 45 45 43 20  52 61 74 65 22 2c 22 45  |d","EEC Rate","E|
00000210  75 72 6f 70 65 20 4e 6f  6e 2d 45 45 43 22 2c 22  |urope Non-EEC","|
00000220  5a 6f 6e 65 20 31 22 2c  22 5a 6f 6e 65 20 32 22  |Zone 1","Zone 2"|
00000230  2c 22 53 75 72 66 61 63  65 22 0d 00 fa 2b de 70  |,"Surface"...+.p|
00000240  25 28 31 2c 31 35 29 2c  77 25 28 31 35 29 2c 62  |%(1,15),w%(15),b|
00000250  75 66 66 65 72 20 31 30  30 2c 6d 65 73 73 61 67  |uffer 100,messag|
00000260  65 24 28 38 29 0d 01 04  0c e3 49 25 3d 30 b8 31  |e$(8).....I%=0.1|
00000270  35 0d 01 0e 1d f3 77 25  28 49 25 29 2c 70 25 28  |5.....w%(I%),p%(|
00000280  30 2c 49 25 29 2c 70 25  28 31 2c 49 25 29 0d 01  |0,I%),p%(1,I%)..|
00000290  18 05 ed 0d 01 22 0b e3  49 25 3d 30 b8 36 0d 01  |....."..I%=0.6..|
000002a0  2c 11 f3 6d 65 73 73 61  67 65 24 28 49 25 29 0d  |,..message$(I%).|
000002b0  01 36 05 ed 0d 01 40 0e  6e 6f 72 6d 61 6c 25 3d  |.6....@.normal%=|
000002c0  40 25 0d 01 4a 27 de 62  6c 6b 25 26 31 30 30 30  |@%..J'.blk%&1000|
000002d0  2c 69 63 6f 6e 73 26 32  30 30 30 2c 49 63 6f 6e  |,icons&2000,Icon|
000002e0  53 70 72 69 74 65 20 31  32 0d 01 54 10 de 20 66  |Sprite 12..T.. f|
000002f0  6f 6e 74 73 25 20 32 35  36 0d 01 5e 14 24 66 6f  |onts% 256..^.$fo|
00000300  6e 74 73 25 3d c4 32 35  35 2c bd 30 29 0d 01 68  |nts%=.255,.0)..h|
00000310  1b 24 49 63 6f 6e 53 70  72 69 74 65 3d 22 21 70  |.$IconSprite="!p|
00000320  6f 73 74 63 61 6c 63 22  0d 01 72 2d c8 99 26 34  |ostcalc"..r-..&4|
00000330  30 30 43 30 2c 32 30 30  2c 26 34 42 35 33 34 31  |00C0,200,&4B5341|
00000340  35 34 2c 22 50 6f 73 74  20 43 61 6c 63 22 b8 2c  |54,"Post Calc".,|
00000350  74 61 73 6b 25 0d 01 7c  21 c8 99 22 57 69 6d 70  |task%..|!.."Wimp|
00000360  5f 43 6c 61 69 6d 49 6e  74 65 72 66 61 63 65 22  |_ClaimInterface"|
00000370  2c 74 61 73 6b 25 0d 01  86 10 ee 85 f2 77 69 6d  |,task%.......wim|
00000380  70 65 72 72 6f 72 0d 01  90 0a 6a 6f 62 25 3d 30  |perror....job%=0|
00000390  0d 01 9a 12 f2 46 61 73  74 44 72 61 77 41 73 73  |.....FastDrawAss|
000003a0  65 6d 0d 01 a4 29 21 62  6c 6b 25 3d 2d 31 3a 62  |em...)!blk%=-1:b|
000003b0  6c 6b 25 21 34 3d 30 3a  62 6c 6b 25 21 38 3d 30  |lk%!4=0:blk%!8=0|
000003c0  3a 62 6c 6b 25 21 31 32  3d 36 38 0d 01 ae 44 62  |:blk%!12=68...Db|
000003d0  6c 6b 25 21 31 36 3d 36  38 3a 62 6c 6b 25 21 32  |lk%!16=68:blk%!2|
000003e0  30 3d 26 33 31 30 32 3a  62 6c 6b 25 21 32 34 3d  |0=&3102:blk%!24=|
000003f0  49 63 6f 6e 53 70 72 69  74 65 3a 62 6c 6b 25 21  |IconSprite:blk%!|
00000400  32 38 3d 31 3a 62 6c 6b  25 21 33 32 3d 31 32 0d  |28=1:blk%!32=12.|
00000410  01 b8 1e c8 99 26 34 30  30 43 32 2c 2c 62 6c 6b  |.....&400C2,,blk|
00000420  25 b8 50 72 6f 67 72 61  6d 49 63 6f 6e 0d 01 c2  |%.ProgramIcon...|
00000430  0c de 6d 65 6e 75 20 39  39 0d 01 cc 04 0d 01 d6  |..menu 99.......|
00000440  13 e7 20 a6 28 2d 32 35  36 29 3c 31 36 33 20 8c  |.. .(-256)<163 .|
00000450  0d 01 e0 28 c8 99 26 34  30 30 44 39 2c 2c 22 3c  |...(..&400D9,,"<|
00000460  6f 62 65 79 24 44 69 72  3e 2e 54 65 6d 70 6c 61  |obey$Dir>.Templa|
00000470  74 65 73 2e 52 4f 32 22  0d 01 ea 2c c8 99 26 34  |tes.RO2"...,..&4|
00000480  30 30 44 42 2c 2c 62 6c  6b 25 2c 69 63 6f 6e 73  |00DB,,blk%,icons|
00000490  2c 69 63 6f 6e 73 2b 26  31 30 30 30 2c 2c 22 4d  |,icons+&1000,,"M|
000004a0  61 69 6e 22 0d 01 f4 18  c8 99 26 34 30 30 43 31  |ain"......&400C1|
000004b0  2c 2c 62 6c 6b 25 b8 6d  61 69 6e 25 0d 01 fe 32  |,,blk%.main%...2|
000004c0  c8 99 26 34 30 30 44 42  2c 2c 62 6c 6b 25 2c 69  |..&400DB,,blk%,i|
000004d0  63 6f 6e 73 2b 26 31 30  30 31 2c 69 63 6f 6e 73  |cons+&1001,icons|
000004e0  2b 26 31 39 39 39 2c 2c  22 49 6e 66 6f 22 0d 02  |+&1999,,"Info"..|
000004f0  08 1e c8 99 26 34 30 30  43 31 2c 2c 62 6c 6b 25  |....&400C1,,blk%|
00000500  b8 69 6e 66 6f 72 6d 61  74 69 6f 6e 0d 02 12 0c  |.information....|
00000510  c8 99 26 34 30 30 44 41  0d 02 1c 05 cc 0d 02 26  |..&400DA.......&|
00000520  28 c8 99 26 34 30 30 44  39 2c 2c 22 3c 6f 62 65  |(..&400D9,,"<obe|
00000530  79 24 44 69 72 3e 2e 54  65 6d 70 6c 61 74 65 73  |y$Dir>.Templates|
00000540  2e 52 4f 33 22 0d 02 30  32 c8 99 26 34 30 30 44  |.RO3"..02..&400D|
00000550  42 2c 2c 62 6c 6b 25 2c  69 63 6f 6e 73 2c 69 63  |B,,blk%,icons,ic|
00000560  6f 6e 73 2b 26 31 30 30  30 2c 66 6f 6e 74 73 25  |ons+&1000,fonts%|
00000570  2c 22 4d 61 69 6e 22 0d  02 3a 18 c8 99 26 34 30  |,"Main"..:...&40|
00000580  30 43 31 2c 2c 62 6c 6b  25 b8 6d 61 69 6e 25 0d  |0C1,,blk%.main%.|
00000590  02 44 38 c8 99 26 34 30  30 44 42 2c 2c 62 6c 6b  |.D8..&400DB,,blk|
000005a0  25 2c 69 63 6f 6e 73 2b  26 31 30 30 31 2c 69 63  |%,icons+&1001,ic|
000005b0  6f 6e 73 2b 26 31 39 39  39 2c 66 6f 6e 74 73 25  |ons+&1999,fonts%|
000005c0  2c 22 49 6e 66 6f 22 0d  02 4e 1e c8 99 26 34 30  |,"Info"..N...&40|
000005d0  30 43 31 2c 2c 62 6c 6b  25 b8 69 6e 66 6f 72 6d  |0C1,,blk%.inform|
000005e0  61 74 69 6f 6e 0d 02 58  05 cd 0d 02 62 23 64 65  |ation..X....b#de|
000005f0  73 74 69 6e 61 74 69 6f  6e 25 3d a4 57 68 69 63  |stination%=.Whic|
00000600  68 45 53 47 28 6d 61 69  6e 25 2c 31 29 0d 02 6c  |hESG(main%,1)..l|
00000610  28 77 65 69 67 68 74 25  3d a4 47 65 74 49 63 6f  |(weight%=.GetIco|
00000620  6e 54 65 78 74 41 64 64  72 65 73 73 28 6d 61 69  |nTextAddress(mai|
00000630  6e 25 2c 35 29 0d 02 76  29 70 6f 73 74 61 67 65  |n%,5)..v)postage|
00000640  25 3d a4 47 65 74 49 63  6f 6e 54 65 78 74 41 64  |%=.GetIconTextAd|
00000650  64 72 65 73 73 28 6d 61  69 6e 25 2c 39 29 0d 02  |dress(main%,9)..|
00000660  80 29 73 74 61 6d 70 73  25 3d a4 47 65 74 49 63  |.)stamps%=.GetIc|
00000670  6f 6e 54 65 78 74 41 64  64 72 65 73 73 28 6d 61  |onTextAddress(ma|
00000680  69 6e 25 2c 31 30 29 0d  02 8a 29 72 65 6d 61 69  |in%,10)...)remai|
00000690  6e 25 3d a4 47 65 74 49  63 6f 6e 54 65 78 74 41  |n%=.GetIconTextA|
000006a0  64 64 72 65 73 73 28 6d  61 69 6e 25 2c 31 31 29  |ddress(main%,11)|
000006b0  0d 02 94 28 63 6c 61 73  73 25 3d a4 47 65 74 49  |...(class%=.GetI|
000006c0  63 6f 6e 54 65 78 74 41  64 64 72 65 73 73 28 6d  |conTextAddress(m|
000006d0  61 69 6e 25 2c 31 35 29  0d 02 9e 0b 62 6f 72 65  |ain%,15)....bore|
000006e0  64 3d a3 0d 02 a8 05 f5  0d 02 b2 20 c8 99 26 34  |d=......... ..&4|
000006f0  30 30 43 37 2c 26 31 38  33 31 2c 62 6c 6b 25 20  |00C7,&1831,blk% |
00000700  b8 20 72 65 61 73 6f 6e  0d 02 bc 0f c8 8e 20 72  |. reason...... r|
00000710  65 61 73 6f 6e 20 ca 0d  02 c6 1c c9 31 3a f2 72  |eason ......1:.r|
00000720  65 64 72 61 77 57 69 6e  64 6f 77 28 62 6c 6b 25  |edrawWindow(blk%|
00000730  21 30 29 0d 02 d0 20 c9  32 3a c8 99 22 57 69 6d  |!0)... .2:.."Wim|
00000740  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 62  |p_OpenWindow",,b|
00000750  6c 6b 25 0d 02 da 21 c9  33 3a c8 99 22 57 69 6d  |lk%...!.3:.."Wim|
00000760  70 5f 43 6c 6f 73 65 57  69 6e 64 6f 77 22 2c 2c  |p_CloseWindow",,|
00000770  62 6c 6b 25 0d 02 e4 2a  c9 36 3a f2 4d 6f 75 73  |blk%...*.6:.Mous|
00000780  65 45 76 65 6e 74 28 62  6c 6b 25 21 31 32 2c 62  |eEvent(blk%!12,b|
00000790  6c 6b 25 21 31 36 2c 62  6c 6b 25 21 38 29 0d 02  |lk%!16,blk%!8)..|
000007a0  ee 10 c9 38 3a f2 6b 65  79 70 72 65 73 73 0d 02  |...8:.keypress..|
000007b0  f8 11 c9 39 3a f2 4d 65  6e 75 45 76 65 6e 74 0d  |...9:.MenuEvent.|
000007c0  03 02 15 c9 31 37 2c 31  38 3a f2 4d 65 73 73 61  |....17,18:.Messa|
000007d0  67 65 49 6e 0d 03 0c 05  cb 0d 03 16 0a fd 62 6f  |geIn..........bo|
000007e0  72 65 64 0d 03 20 0f dd  f2 43 6c 6f 73 65 44 6f  |red.. ...CloseDo|
000007f0  77 6e 0d 03 2a 12 c8 99  26 38 31 36 38 33 2c 74  |wn..*...&81683,t|
00000800  61 73 6b 25 0d 03 34 1c  c8 99 26 34 30 30 44 44  |ask%..4...&400DD|
00000810  2c 74 61 73 6b 25 2c 26  34 42 35 33 34 31 35 34  |,task%,&4B534154|
00000820  0d 03 3e 05 e0 0d 03 48  05 e1 0d 03 52 0f dd f2  |..>....H....R...|
00000830  4d 65 73 73 61 67 65 49  6e 0d 03 5c 0f c8 8e 20  |MessageIn..\... |
00000840  62 6c 6b 25 21 31 36 ca  0d 03 66 0e c9 30 3a 62  |blk%!16...f..0:b|
00000850  6f 72 65 64 3d b9 0d 03  70 28 c9 26 35 30 32 3a  |ored=...p(.&502:|
00000860  c8 99 22 57 69 6d 70 5f  53 65 6e 64 49 6e 66 6f  |.."Wimp_SendInfo|
00000870  72 6d 61 74 69 6f 6e 22  2c 2c 62 6c 6b 25 0d 03  |rmation",,blk%..|
00000880  7a 18 c9 26 34 30 30 43  31 3a f2 52 65 64 72 61  |z..&400C1:.Redra|
00000890  77 46 6f 6e 74 73 0d 03  84 05 cb 0d 03 8e 05 e1  |wFonts..........|
000008a0  0d 03 98 04 0d 03 a2 11  dd f2 52 65 64 72 61 77  |..........Redraw|
000008b0  46 6f 6e 74 73 0d 03 ac  13 e3 20 6c 6f 6f 70 25  |Fonts..... loop%|
000008c0  3d 30 20 b8 20 32 35 35  0d 03 b6 17 e7 20 66 6f  |=0 . 255..... fo|
000008d0  6e 74 73 25 3f 6c 6f 6f  70 25 3c 3e 30 20 8c 0d  |nts%?loop%<>0 ..|
000008e0  03 c0 43 c8 99 20 22 46  6f 6e 74 5f 52 65 61 64  |..C.. "Font_Read|
000008f0  44 65 66 6e 22 2c 6c 6f  6f 70 25 2c 62 75 66 66  |Defn",loop%,buff|
00000900  65 72 25 20 b8 20 2c 52  31 25 2c 52 32 25 2c 52  |er% . ,R1%,R2%,R|
00000910  33 25 2c 52 34 25 2c 52  35 25 2c 52 36 25 2c 52  |3%,R4%,R5%,R6%,R|
00000920  37 25 0d 03 ca 2c c8 99  20 22 46 6f 6e 74 5f 46  |7%...,.. "Font_F|
00000930  69 6e 64 46 6f 6e 74 22  2c 2c 52 31 25 2c 2c 52  |indFont",,R1%,,R|
00000940  32 25 2c 52 33 25 2c 52  34 25 2c 52 35 25 0d 03  |2%,R3%,R4%,R5%..|
00000950  d4 05 cd 0d 03 de 05 e1  0d 03 e8 04 0d 03 f2 04  |................|
00000960  0d 03 fc 0d dd f2 53 65  74 52 61 74 65 0d 04 06  |......SetRate...|
00000970  23 64 65 73 74 69 6e 61  74 69 6f 6e 25 3d a4 57  |#destination%=.W|
00000980  68 69 63 68 45 53 47 28  6d 61 69 6e 25 2c 31 29  |hichESG(main%,1)|
00000990  0d 04 10 24 e7 64 65 73  74 69 6e 61 74 69 6f 6e  |...$.destination|
000009a0  25 3d 2d 31 8c 64 65 73  74 69 6e 61 74 69 6f 6e  |%=-1.destination|
000009b0  25 3d 31 37 0d 04 1a 3b  24 63 6c 61 73 73 25 3d  |%=17...;$class%=|
000009c0  6d 65 73 73 61 67 65 24  28 64 65 73 74 69 6e 61  |message$(destina|
000009d0  74 69 6f 6e 25 2d 31 36  29 3a f2 52 65 64 72 61  |tion%-16):.Redra|
000009e0  77 49 63 6f 6e 28 6d 61  69 6e 25 2c 31 35 29 0d  |wIcon(main%,15).|
000009f0  04 24 05 e1 0d 04 2e 24  dd a4 52 65 61 64 49 63  |.$.....$..ReadIc|
00000a00  6f 6e 53 74 61 74 65 28  77 69 6e 64 6f 77 25 2c  |onState(window%,|
00000a10  62 75 74 74 6f 6e 25 29  0d 04 38 21 62 6c 6b 25  |button%)..8!blk%|
00000a20  21 30 3d 77 69 6e 64 6f  77 25 3a 62 6c 6b 25 21  |!0=window%:blk%!|
00000a30  34 3d 62 75 74 74 6f 6e  25 0d 04 42 12 c8 99 26  |4=button%..B...&|
00000a40  34 30 30 43 45 2c 2c 62  6c 6b 25 0d 04 4c 14 3d  |400CE,,blk%..L.=|
00000a50  62 6c 6b 25 21 32 34 80  28 31 3c 3c 32 31 29 0d  |blk%!24.(1<<21).|
00000a60  04 56 0f dd f2 63 61 6c  63 75 6c 61 74 65 0d 04  |.V...calculate..|
00000a70  60 11 67 3d bb 28 24 77  65 69 67 68 74 25 29 0d  |`.g=.($weight%).|
00000a80  04 6a 0f 24 77 65 69 67  68 74 25 3d 22 22 0d 04  |.j.$weight%=""..|
00000a90  74 18 f2 52 65 64 72 61  77 49 63 6f 6e 28 6d 61  |t..RedrawIcon(ma|
00000aa0  69 6e 25 2c 35 29 0d 04  7e 1d c8 99 26 34 30 30  |in%,5)..~...&400|
00000ab0  44 32 2c 6d 61 69 6e 25  2c 35 2c 30 2c 30 2c 2d  |D2,main%,5,0,0,-|
00000ac0  31 2c 30 0d 04 88 0c f2  53 65 74 52 61 74 65 0d  |1,0.....SetRate.|
00000ad0  04 92 1a 6f 6e 25 3d a4  57 68 69 63 68 45 53 47  |...on%=.WhichESG|
00000ae0  28 6d 61 69 6e 25 2c 32  29 0d 04 9c 13 e7 6f 6e  |(main%,2).....on|
00000af0  25 3d 33 8c 67 3d 67 2a  32 38 2e 35 0d 04 a6 12  |%=3.g=g*28.5....|
00000b00  e7 6f 6e 25 3d 34 8c 67  3d 67 2a 34 35 36 0d 04  |.on%=4.g=g*456..|
00000b10  b0 08 67 2d 3d 31 0d 04  ba 38 e7 20 28 64 65 73  |..g-=1...8. (des|
00000b20  74 69 6e 61 74 69 6f 6e  25 3d 31 36 20 84 20 64  |tination%=16 . d|
00000b30  65 73 74 69 6e 61 74 69  6f 6e 25 3d 31 37 29 20  |estination%=17) |
00000b40  80 20 67 3e 31 33 30 30  20 8c 20 ef 20 37 0d 04  |. g>1300 . . 7..|
00000b50  c4 0d e7 67 3c 31 30 30  30 30 8c 0d 04 ce 3a e7  |...g<10000....:.|
00000b60  64 65 73 74 69 6e 61 74  69 6f 6e 25 3d 31 36 8c  |destination%=16.|
00000b70  f2 49 6e 6c 61 6e 64 28  66 69 72 73 74 63 6c 61  |.Inland(firstcla|
00000b80  73 73 25 29 3a 72 61 74  65 3d 66 69 72 73 74 63  |ss%):rate=firstc|
00000b90  6c 61 73 73 25 0d 04 d8  3c e7 64 65 73 74 69 6e  |lass%...<.destin|
00000ba0  61 74 69 6f 6e 25 3d 31  37 8c f2 49 6e 6c 61 6e  |ation%=17..Inlan|
00000bb0  64 28 73 65 63 6f 6e 64  63 6c 61 73 73 25 29 3a  |d(secondclass%):|
00000bc0  72 61 74 65 3d 73 65 63  6f 6e 64 63 6c 61 73 73  |rate=secondclass|
00000bd0  25 0d 04 e2 2f e7 64 65  73 74 69 6e 61 74 69 6f  |%.../.destinatio|
00000be0  6e 25 3d 31 38 8c f2 45  45 43 28 65 65 63 72 61  |n%=18..EEC(eecra|
00000bf0  74 65 29 3a 72 61 74 65  3d 65 65 63 72 61 74 65  |te):rate=eecrate|
00000c00  0d 04 ec 31 e7 64 65 73  74 69 6e 61 74 69 6f 6e  |...1.destination|
00000c10  25 3d 31 39 8c f2 45 45  43 28 65 75 72 6f 72 61  |%=19..EEC(eurora|
00000c20  74 65 29 3a 72 61 74 65  3d 65 75 72 6f 72 61 74  |te):rate=eurorat|
00000c30  65 0d 04 f6 35 e7 64 65  73 74 69 6e 61 74 69 6f  |e...5.destinatio|
00000c40  6e 25 3d 32 30 8c f2 7a  6f 6e 65 31 28 7a 6f 6e  |n%=20..zone1(zon|
00000c50  65 31 72 61 74 65 29 3a  72 61 74 65 3d 7a 6f 6e  |e1rate):rate=zon|
00000c60  65 31 72 61 74 65 0d 05  00 35 e7 64 65 73 74 69  |e1rate...5.desti|
00000c70  6e 61 74 69 6f 6e 25 3d  32 31 8c f2 7a 6f 6e 65  |nation%=21..zone|
00000c80  32 28 7a 6f 6e 65 32 72  61 74 65 29 3a 72 61 74  |2(zone2rate):rat|
00000c90  65 3d 7a 6f 6e 65 32 72  61 74 65 0d 05 0a 3b e7  |e=zone2rate...;.|
00000ca0  64 65 73 74 69 6e 61 74  69 6f 6e 25 3d 32 32 8c  |destination%=22.|
00000cb0  f2 73 75 72 66 61 63 65  28 73 75 72 66 61 63 65  |.surface(surface|
00000cc0  72 61 74 65 29 3a 72 61  74 65 3d 73 75 72 66 61  |rate):rate=surfa|
00000cd0  63 65 72 61 74 65 0d 05  14 11 e7 67 3d 2d 31 8c  |cerate.....g=-1.|
00000ce0  70 65 6e 63 65 3d 30 0d  05 1e 10 40 25 3d 26 30  |pence=0....@%=&0|
00000cf0  31 30 32 30 32 30 41 0d  05 28 1f 24 70 6f 73 74  |102020A..(.$post|
00000d00  61 67 65 25 3d bd 31 36  33 2b c3 28 70 65 6e 63  |age%=.163+.(penc|
00000d10  65 2f 31 30 30 29 0d 05  32 0e 40 25 3d 6e 6f 72  |e/100)..2.@%=nor|
00000d20  6d 61 6c 25 0d 05 3c 17  70 61 72 74 31 25 3d 70  |mal%..<.part1%=p|
00000d30  65 6e 63 65 20 81 20 72  61 74 65 0d 05 46 24 24  |ence . rate..F$$|
00000d40  73 74 61 6d 70 73 25 3d  c3 70 61 72 74 31 25 2b  |stamps%=.part1%+|
00000d50  22 20 78 20 22 2b c3 72  61 74 65 2b 22 70 22 0d  |" x "+.rate+"p".|
00000d60  05 50 1e 70 61 72 74 32  25 3d 70 65 6e 63 65 2d  |.P.part2%=pence-|
00000d70  28 70 61 72 74 31 25 2a  72 61 74 65 29 0d 05 5a  |(part1%*rate)..Z|
00000d80  18 24 72 65 6d 61 69 6e  25 3d c3 70 61 72 74 32  |.$remain%=.part2|
00000d90  25 2b 22 70 22 0d 05 64  05 cc 0d 05 6e 15 24 70  |%+"p"..d....n.$p|
00000da0  6f 73 74 61 67 65 25 3d  22 2a 2a 2a 2a 2a 22 0d  |ostage%="*****".|
00000db0  05 78 18 24 73 74 61 6d  70 73 25 3d 22 74 6f 6f  |.x.$stamps%="too|
00000dc0  20 68 65 61 76 79 22 0d  05 82 14 24 72 65 6d 61  | heavy"....$rema|
00000dd0  69 6e 25 3d 22 2a 2a 2a  2a 2a 22 0d 05 8c 05 cd  |in%="*****".....|
00000de0  0d 05 96 18 f2 52 65 64  72 61 77 49 63 6f 6e 28  |.....RedrawIcon(|
00000df0  6d 61 69 6e 25 2c 39 29  0d 05 a0 19 f2 52 65 64  |main%,9).....Red|
00000e00  72 61 77 49 63 6f 6e 28  6d 61 69 6e 25 2c 31 30  |rawIcon(main%,10|
00000e10  29 0d 05 aa 19 f2 52 65  64 72 61 77 49 63 6f 6e  |).....RedrawIcon|
00000e20  28 6d 61 69 6e 25 2c 31  31 29 0d 05 b4 0a 6a 6f  |(main%,11)....jo|
00000e30  62 25 3d 30 0d 05 be 05  e1 0d 05 c8 0f dd f2 45  |b%=0...........E|
00000e40  45 43 28 72 61 74 65 29  0d 05 d2 0a e7 67 3c 32  |EC(rate).....g<2|
00000e50  30 8c 0d 05 dc 0e 70 65  6e 63 65 3d 72 61 74 65  |0.....pence=rate|
00000e60  0d 05 e6 05 cc 0d 05 f0  2a 70 65 6e 63 65 3d 65  |........*pence=e|
00000e70  75 72 6f 72 61 74 65 2b  28 28 67 20 81 20 32 30  |urorate+((g . 20|
00000e80  29 2a 65 75 72 6f 6f 76  65 72 72 61 74 65 29 0d  |)*eurooverrate).|
00000e90  05 fa 05 cd 0d 06 04 05  e1 0d 06 0e 11 dd f2 7a  |...............z|
00000ea0  6f 6e 65 31 28 72 61 74  65 29 0d 06 18 1a e7 67  |one1(rate).....g|
00000eb0  3c 32 30 8c 70 65 6e 63  65 3d 7a 6f 6e 65 31 61  |<20.pence=zone1a|
00000ec0  72 61 74 65 0d 06 22 14  e7 67 3c 31 30 8c 70 65  |rate.."..g<10.pe|
00000ed0  6e 63 65 3d 72 61 74 65  0d 06 2c 33 e7 67 3e 31  |nce=rate..,3.g>1|
00000ee0  39 8c 70 65 6e 63 65 3d  7a 6f 6e 65 31 61 72 61  |9.pence=zone1ara|
00000ef0  74 65 2b 28 28 67 20 81  20 32 30 29 2a 7a 6f 6e  |te+((g . 20)*zon|
00000f00  65 31 6f 76 65 72 72 61  74 65 29 0d 06 36 05 e1  |e1overrate)..6..|
00000f10  0d 06 40 11 dd f2 7a 6f  6e 65 32 28 72 61 74 65  |..@...zone2(rate|
00000f20  29 0d 06 4a 1a e7 67 3c  32 30 8c 70 65 6e 63 65  |)..J..g<20.pence|
00000f30  3d 7a 6f 6e 65 31 61 72  61 74 65 0d 06 54 14 e7  |=zone1arate..T..|
00000f40  67 3c 31 30 8c 70 65 6e  63 65 3d 72 61 74 65 0d  |g<10.pence=rate.|
00000f50  06 5e 33 e7 67 3e 31 39  8c 70 65 6e 63 65 3d 7a  |.^3.g>19.pence=z|
00000f60  6f 6e 65 32 61 72 61 74  65 2b 28 28 67 20 81 20  |one2arate+((g . |
00000f70  32 30 29 2a 7a 6f 6e 65  32 6f 76 65 72 72 61 74  |20)*zone2overrat|
00000f80  65 29 0d 06 68 05 e1 0d  06 72 13 dd f2 73 75 72  |e)..h....r...sur|
00000f90  66 61 63 65 28 72 61 74  65 29 0d 06 7c 3b e7 20  |face(rate)..|;. |
00000fa0  67 3c 32 30 20 8c 20 70  65 6e 63 65 3d 72 61 74  |g<20 . pence=rat|
00000fb0  65 20 8b 20 70 65 6e 63  65 3d 28 72 61 74 65 2b  |e . pence=(rate+|
00000fc0  28 28 67 2d 31 30 29 2a  73 6f 76 65 72 72 61 74  |((g-10)*soverrat|
00000fd0  65 29 29 2d 35 0d 06 86  05 e1 0d 06 90 12 dd f2  |e))-5...........|
00000fe0  49 6e 6c 61 6e 64 28 72  61 74 65 29 0d 06 9a 0b  |Inland(rate)....|
00000ff0  e7 67 3c 39 39 39 8c 0d  06 a4 0e 70 65 6e 63 65  |.g<999.....pence|
00001000  3d 72 61 74 65 0d 06 ae  12 e3 6c 6f 6f 70 25 3d  |=rate.....loop%=|
00001010  31 35 b8 30 88 2d 31 0d  06 b8 32 e7 77 25 28 6c  |15.0.-1...2.w%(l|
00001020  6f 6f 70 25 29 3e 67 2b  31 8c 70 65 6e 63 65 3d  |oop%)>g+1.pence=|
00001030  70 25 28 64 65 73 74 69  6e 61 74 69 6f 6e 25 2d  |p%(destination%-|
00001040  31 36 2c 6c 6f 6f 70 25  29 0d 06 c2 05 ed 0d 06  |16,loop%).......|
00001050  cc 05 cc 0d 06 d6 2e 70  65 6e 63 65 3d 32 34 30  |.......pence=240|
00001060  2b 28 28 28 67 2d 31 30  30 30 2b 32 35 30 29 20  |+(((g-1000+250) |
00001070  81 20 32 35 30 29 2a 66  6f 76 65 72 72 61 74 65  |. 250)*foverrate|
00001080  29 0d 06 e0 05 cd 0d 06  ea 05 e1 0d 06 f4 1b dd  |)...............|
00001090  f2 63 72 65 61 74 65 5f  6d 65 6e 75 28 70 6f 73  |.create_menu(pos|
000010a0  69 74 69 6f 6e 29 0d 06  fe 24 24 6d 65 6e 75 3d  |ition)...$$menu=|
000010b0  22 50 6f 73 74 20 43 61  6c 63 22 3a 6d 65 6e 75  |"Post Calc":menu|
000010c0  21 31 32 3d 26 37 30 32  30 37 0d 07 08 24 6d 65  |!12=&70207...$me|
000010d0  6e 75 21 31 36 3d 31 30  30 3a 6d 65 6e 75 21 32  |nu!16=100:menu!2|
000010e0  30 3d 34 34 3a 6d 65 6e  75 21 32 34 3d 30 0d 07  |0=44:menu!24=0..|
000010f0  12 34 6d 65 6e 75 21 32  38 3d 26 30 30 3a 6d 65  |.4menu!28=&00:me|
00001100  6e 75 21 33 32 3d 69 6e  66 6f 72 6d 61 74 69 6f  |nu!32=informatio|
00001110  6e 3a 6d 65 6e 75 21 33  36 3d 26 37 30 30 30 30  |n:menu!36=&70000|
00001120  32 31 0d 07 1c 15 24 28  6d 65 6e 75 2b 34 30 29  |21....$(menu+40)|
00001130  3d 22 49 6e 66 6f 22 0d  07 26 2a 6d 65 6e 75 21  |="Info"..&*menu!|
00001140  35 32 3d 26 38 30 3a 6d  65 6e 75 21 35 36 3d 30  |52=&80:menu!56=0|
00001150  3a 6d 65 6e 75 21 36 30  3d 26 37 30 30 30 30 32  |:menu!60=&700002|
00001160  31 0d 07 30 15 24 28 6d  65 6e 75 2b 36 34 29 3d  |1..0.$(menu+64)=|
00001170  22 51 75 69 74 22 0d 07  3a 1f c8 99 26 34 30 30  |"Quit"..:...&400|
00001180  44 34 2c 2c 6d 65 6e 75  2c 70 6f 73 69 74 69 6f  |D4,,menu,positio|
00001190  6e 2c 31 38 36 0d 07 44  05 e1 0d 07 4e 1c dd f2  |n,186..D....N...|
000011a0  52 65 64 72 61 77 49 63  6f 6e 28 77 69 6e 64 6f  |RedrawIcon(windo|
000011b0  77 25 2c 69 25 29 0d 07  58 2f 62 6c 6b 25 21 30  |w%,i%)..X/blk%!0|
000011c0  3d 77 69 6e 64 6f 77 25  3a 62 6c 6b 25 21 34 3d  |=window%:blk%!4=|
000011d0  69 25 3a 62 6c 6b 25 21  38 3d 30 3a 62 6c 6b 25  |i%:blk%!8=0:blk%|
000011e0  21 31 32 3d 30 0d 07 62  12 c8 99 26 34 30 30 43  |!12=0..b...&400C|
000011f0  44 2c 2c 62 6c 6b 25 0d  07 6c 05 e1 0d 07 76 27  |D,,blk%..l....v'|
00001200  dd f2 4d 6f 75 73 65 45  76 65 6e 74 28 77 69 6e  |..MouseEvent(win|
00001210  64 6f 77 25 2c 69 63 6f  6e 25 2c 62 75 74 74 6f  |dow%,icon%,butto|
00001220  6e 25 29 0d 07 80 1c e7  20 77 69 6e 64 6f 77 25  |n%)..... window%|
00001230  3c 3e 69 6e 66 6f 72 6d  61 74 69 6f 6e 20 8c 0d  |<>information ..|
00001240  07 8a 48 e7 20 62 75 74  74 6f 6e 25 3d 32 80 20  |..H. button%=2. |
00001250  50 72 6f 67 72 61 6d 49  63 6f 6e 3d 69 63 6f 6e  |ProgramIcon=icon|
00001260  25 20 80 20 77 69 6e 64  6f 77 25 3d 2d 32 20 8c  |% . window%=-2 .|
00001270  20 f2 63 72 65 61 74 65  5f 6d 65 6e 75 28 21 62  | .create_menu(!b|
00001280  6c 6b 25 2d 36 34 29 0d  07 94 23 e7 20 62 75 74  |lk%-64)...#. but|
00001290  74 6f 6e 25 3d 34 80 20  50 72 6f 67 72 61 6d 49  |ton%=4. ProgramI|
000012a0  63 6f 6e 3d 69 63 6f 6e  25 8c 0d 07 9e 10 62 6c  |con=icon%.....bl|
000012b0  6b 25 21 30 3d 6d 61 69  6e 25 0d 07 a8 12 c8 99  |k%!0=main%......|
000012c0  26 34 30 30 43 42 2c 2c  62 6c 6b 25 0d 07 b2 0e  |&400CB,,blk%....|
000012d0  62 6c 6b 25 21 32 38 3d  2d 31 0d 07 bc 12 c8 99  |blk%!28=-1......|
000012e0  26 34 30 30 43 35 2c 2c  62 6c 6b 25 0d 07 c6 05  |&400C5,,blk%....|
000012f0  cd 0d 07 d0 04 0d 07 da  38 e7 20 69 63 6f 6e 25  |........8. icon%|
00001300  3d 31 32 20 80 20 77 69  6e 64 6f 77 25 3d 6d 61  |=12 . window%=ma|
00001310  69 6e 25 20 80 20 62 75  74 74 6f 6e 25 3c 3e 32  |in% . button%<>2|
00001320  20 8c 20 f2 63 61 6c 63  75 6c 61 74 65 0d 07 e4  | . .calculate...|
00001330  12 c8 99 26 34 30 30 43  46 2c 2c 62 6c 6b 25 0d  |...&400CF,,blk%.|
00001340  07 ee 0c 62 6c 6b 25 21  38 3d 30 0d 07 f8 13 62  |...blk%!8=0....b|
00001350  6c 6b 25 21 31 32 3d 77  69 6e 64 6f 77 25 0d 08  |lk%!12=window%..|
00001360  02 11 62 6c 6b 25 21 31  36 3d 69 63 6f 6e 25 0d  |..blk%!16=icon%.|
00001370  08 0c 1e c8 99 20 22 57  69 6d 70 5f 42 6f 72 64  |..... "Wimp_Bord|
00001380  65 72 49 63 6f 6e 22 2c  2c 62 6c 6b 25 0d 08 16  |erIcon",,blk%...|
00001390  05 cd 0d 08 20 0c f2 53  65 74 52 61 74 65 0d 08  |.... ..SetRate..|
000013a0  2a 05 e1 0d 08 34 04 0d  08 3e 04 0d 08 48 12 c8  |*....4...>...H..|
000013b0  99 26 34 30 30 43 46 2c  2c 62 6c 6b 25 0d 08 52  |.&400CF,,blk%..R|
000013c0  0c 62 6c 6b 25 21 38 3d  30 0d 08 5c 13 62 6c 6b  |.blk%!8=0..\.blk|
000013d0  25 21 31 32 3d 77 69 6e  64 6f 77 25 0d 08 66 11  |%!12=window%..f.|
000013e0  62 6c 6b 25 21 31 36 3d  69 63 6f 6e 25 0d 08 70  |blk%!16=icon%..p|
000013f0  1e c8 99 20 22 57 69 6d  70 5f 42 6f 72 64 65 72  |... "Wimp_Border|
00001400  49 63 6f 6e 22 2c 2c 62  6c 6b 25 0d 08 7a 0f dd  |Icon",,blk%..z..|
00001410  f2 4d 65 6e 75 45 76 65  6e 74 0d 08 84 16 e7 62  |.MenuEvent.....b|
00001420  6c 6b 25 21 30 3c 3e 30  8c 62 6f 72 65 64 3d b9  |lk%!0<>0.bored=.|
00001430  0d 08 8e 1b e7 20 62 6f  72 65 64 3c 3e b9 20 8c  |..... bored<>. .|
00001440  20 f2 57 61 73 41 64 6a  75 73 74 0d 08 98 05 e1  | .WasAdjust.....|
00001450  0d 08 a2 0f dd f2 57 61  73 41 64 6a 75 73 74 0d  |......WasAdjust.|
00001460  08 ac 14 c8 99 26 34 30  30 43 46 2c 2c 62 75 66  |.....&400CF,,buf|
00001470  66 65 72 0d 08 b6 26 e7  62 75 66 66 65 72 21 38  |fer...&.buffer!8|
00001480  3d 31 8c f2 63 72 65 61  74 65 5f 6d 65 6e 75 28  |=1..create_menu(|
00001490  21 62 6c 6b 25 2d 36 34  29 0d 08 c0 05 e1 0d 08  |!blk%-64).......|
000014a0  ca 04 0d 08 d4 0e dd f2  6b 65 79 70 72 65 73 73  |........keypress|
000014b0  0d 08 de 0d 6b 3d 62 6c  6b 25 21 32 34 0d 08 e8  |....k=blk%!24...|
000014c0  0a c8 8e 20 6b 20 ca 0d  08 f2 13 c9 20 31 33 3a  |... k ...... 13:|
000014d0  f2 63 61 6c 63 75 6c 61  74 65 0d 08 fc 10 7f 3a  |.calculate.....:|
000014e0  c8 99 26 34 30 30 44 43  2c 6b 0d 09 06 05 cb 0d  |..&400DC,k......|
000014f0  09 10 05 e1 0d 09 1a 04  0d 09 24 1b dd f2 72 65  |..........$...re|
00001500  64 72 61 77 57 69 6e 64  6f 77 28 68 61 6e 64 6c  |drawWindow(handl|
00001510  65 25 29 0d 09 2e 1a 42  25 3d 62 6c 6b 25 3a 62  |e%)....B%=blk%:b|
00001520  6c 6b 25 21 30 3d 68 61  6e 64 6c 65 25 0d 09 38  |lk%!0=handle%..8|
00001530  14 78 25 3d ba 28 66 61  73 74 5f 64 72 61 77 25  |.x%=.(fast_draw%|
00001540  29 0d 09 42 05 e1 0d 09  4c 1c dd a4 57 68 69 63  |)..B....L...Whic|
00001550  68 45 53 47 28 77 69 6e  64 6f 77 25 2c 45 53 47  |hESG(window%,ESG|
00001560  25 29 0d 09 56 0d 45 53  47 25 2b 3d 26 32 30 0d  |%)..V.ESG%+=&20.|
00001570  09 60 2c c8 99 26 34 30  30 44 36 2c 77 69 6e 64  |.`,..&400D6,wind|
00001580  6f 77 25 2c 62 75 66 66  65 72 2c 26 33 46 3c 3c  |ow%,buffer,&3F<<|
00001590  31 36 2c 45 53 47 25 3c  3c 31 36 0d 09 6a 0d 3d  |16,ESG%<<16..j.=|
000015a0  62 75 66 66 65 72 21 30  0d 09 74 13 dd f2 46 61  |buffer!0..t...Fa|
000015b0  73 74 44 72 61 77 41 73  73 65 6d 0d 09 7e 11 de  |stDrawAssem..~..|
000015c0  66 61 73 74 5f 64 72 61  77 25 35 30 0d 09 88 10  |fast_draw%50....|
000015d0  e3 70 61 73 73 25 3d 30  b8 32 88 32 0d 09 92 11  |.pass%=0.2.2....|
000015e0  50 25 3d 66 61 73 74 5f  64 72 61 77 25 0d 09 9c  |P%=fast_draw%...|
000015f0  0e 5b 4f 50 54 20 70 61  73 73 25 0d 09 a6 0d 4d  |.[OPT pass%....M|
00001600  4f 56 20 52 30 2c 23 30  0d 09 b0 1c 20 53 57 49  |OV R0,#0.... SWI|
00001610  20 22 57 69 6d 70 5f 52  65 64 72 61 77 57 69 6e  | "Wimp_RedrawWin|
00001620  64 6f 77 22 0d 09 ba 0d  43 4d 50 20 52 30 2c 23  |dow"....CMP R0,#|
00001630  30 0d 09 c4 0c 42 45 51  20 66 69 6e 69 0d 09 ce  |0....BEQ fini...|
00001640  2b 2e 66 61 73 74 5f 64  72 61 77 5f 6c 6f 6f 70  |+.fast_draw_loop|
00001650  20 53 57 49 20 22 57 69  6d 70 5f 42 6f 72 64 65  | SWI "Wimp_Borde|
00001660  72 57 69 6e 64 6f 77 22  0d 09 d8 0d 4d 4f 56 20  |rWindow"....MOV |
00001670  52 30 2c 23 30 0d 09 e2  1b 53 57 49 20 22 57 69  |R0,#0....SWI "Wi|
00001680  6d 70 5f 47 65 74 52 65  63 74 61 6e 67 6c 65 22  |mp_GetRectangle"|
00001690  0d 09 ec 0d 43 4d 50 20  52 30 2c 23 30 0d 09 f6  |....CMP R0,#0...|
000016a0  16 42 4e 45 20 66 61 73  74 5f 64 72 61 77 5f 6c  |.BNE fast_draw_l|
000016b0  6f 6f 70 0d 0a 00 14 2e  66 69 6e 69 20 4d 4f 56  |oop.....fini MOV|
000016c0  20 50 43 2c 52 31 34 0d  0a 0a 05 5d 0d 0a 14 05  | PC,R14....]....|
000016d0  ed 0d 0a 1e 05 e1 0d 0a  28 25 dd a4 47 65 74 49  |........(%..GetI|
000016e0  63 6f 6e 54 65 78 74 41  64 64 72 65 73 73 28 77  |conTextAddress(w|
000016f0  69 6e 64 6f 77 2c 69 63  6f 6e 29 0d 0a 32 1d 62  |indow,icon)..2.b|
00001700  6c 6b 25 21 30 3d 77 69  6e 64 6f 77 3a 62 6c 6b  |lk%!0=window:blk|
00001710  25 21 34 3d 69 63 6f 6e  0d 0a 3c 12 c8 99 26 34  |%!4=icon..<...&4|
00001720  30 30 43 45 2c 2c 62 6c  6b 25 0d 0a 46 0c 3d 62  |00CE,,blk%..F.=b|
00001730  6c 6b 25 21 32 38 0d 0a  50 0f dd f2 77 69 6d 70  |lk%!28..P...wimp|
00001740  65 72 72 6f 72 0d 0a 5a  0b 21 62 6c 6b 25 3d 9f  |error..Z.!blk%=.|
00001750  0d 0a 64 2b 24 28 62 6c  6b 25 2b 34 29 3d f6 24  |..d+$(blk%+4)=.$|
00001760  2b 22 20 28 22 2b c3 9f  2b 22 29 20 61 74 20 6c  |+" ("+..+") at l|
00001770  69 6e 65 20 22 2b c3 9e  2b bd 30 0d 0a 6e 2a c8  |ine "+..+.0..n*.|
00001780  99 26 34 30 30 44 46 2c  62 6c 6b 25 2c 30 2c 22  |.&400DF,blk%,0,"|
00001790  50 6f 73 74 20 43 61 6c  63 22 b8 2c 72 65 73 70  |Post Calc".,resp|
000017a0  6f 6e 73 65 25 0d 0a 78  0b 62 6f 72 65 64 3d b9  |onse%..x.bored=.|
000017b0  0d 0a 82 0e f2 43 6c 6f  73 65 44 6f 77 6e 0d 0a  |.....CloseDown..|
000017c0  8c 05 e1 0d ff                                    |.....|
000017c5