� Cupid !RunImage
 � By Philip Mellor (aged 15)
� Version 1.00
(� Acorn User/Star Info
2:
<7ș "Wimp_Initialise",200,&4B534154,"Cupid" � ,task%
F	�init
P:
Z4ș "OS_File",5,"<Obey$Dir>.Animation" � ,,,,len%
d� spr% len%+128
nspr%!0=len%+128:spr%!8=16
xș "OS_SpriteOp",9+256,spr%
�7ș "OS_SpriteOp",10+256,spr%,"<Obey$Dir>.Animation"
�:
��createicon
�� � � �error � �close:�
�calculating%=�:section%=0
�animate=�:heart=0:count=1
�#�set_icon_string(main%,5,"---")
��
�	�poll
�� quit%
�
�close
��
�:

��animate:� base%

$ș "Wimp_BaseOfSprites" � ,base%

?ș "OS_SpriteOp",256+60,base%,"cupid_icon",0 � ,r1%,r2%,r3%

"-ș "OS_SpriteOp",256+34,spr%,�heart,0,0,0

,'count+=1:� count=3 count=1:heart+=1

6� heart>10 animate=�

@'ș "OS_SpriteOp",256+60,r1%,r2%,r3%

Jb%!0=-1

Tb%!4=i%

^
b%!8=0

hb%!12=0

rș "Wimp_SetIconState",,b%

|�

�:

�� �createicon

�6!b%=-1:b%!4=0:b%!8=0:b%!12=68:b%!16=68:b%!20=&3002

�7$(b%+24)="cupid_icon":ș "Wimp_CreateIcon",,b% � i%

��

�:

�� �close

�'ș "Wimp_CloseDown",task%,&4B534154

��

�:

�� �poll

�ș "Wimp_Poll",,b% � r%

�Ȏ r% �
 � 2:ș "Wimp_OpenWindow",,b%
!� 3:ș "Wimp_CloseWindow",,b%
� 6:�mouseclick
&� 9:�menuclick
0� 17,18:�recieve
:�
D� animate=� �
N�animate
X�
b#� �(1000)=1 � animate=�:heart=0
l�
v"� calculating%=� �calculate_it
��
�:
�� �recieve
�Ȏ b%!16 �
�� 0:quit%=�
��
��
�:
�� �mouseclick
�Ȏ b%!12 �
�� -2:Ȏ b%!8 �
�� 4:�clickonbar
�+� 2:�showmenu(mainmenu%,!b%-64,96+2*44)
�
� main%:Ȏ b%!16 �
� 4:�start_calc
 �
*� calculate%:Ȏ b%!16 �
4� 2:calculating%=�
>!b%=calculate%
H:ș "Wimp_GetWindowState",,b%:ș "Wimp_CloseWindow",,b%
R
!b%=main%
\9ș "Wimp_GetWindowState",,b%:ș "Wimp_OpenWindow",,b%
f#�set_icon_string(main%,5,"---")
p�
z�
��
�:
�� �clickonbar
�/� calculating%=� !b%=main% � !b%=calculate%
�9ș "Wimp_GetWindowState",,b%:ș "Wimp_OpenWindow",,b%
��
�:
�� �s(wh%,iconnumber%,text$)
�!temp%=wh%
�temp%!4=iconnumber%
�!ș "Wimp_GetIconState",,temp%
� $temp%!28=�text$,temp%!36-1)
�
temp%!8=0
temp%!12=0
!ș "Wimp_SetIconState",,temp%
�
$:
.� �init
8/� b% 10000,ws% 5000,menspc% 10000, temp% 32
Bwsend%=ws%+5000
Lquit%=�
V�load_templates
`�main_menu
j�attach(mainmenu%,0,info%)
t�
~:
�� �load_templates
�3ș "Wimp_OpenTemplate",,"<Cupid$Dir>.Templates"
�=ș "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"main",0 � ,,ws%
�&ș "Wimp_CreateWindow",,b% � main%
�Dș "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"calculating",0 � ,,ws%
�+ș "Wimp_CreateWindow",,b% � calculate%
�=ș "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"Info",0 � ,,ws%
�&ș "Wimp_CreateWindow",,b% � info%
�ș "Wimp_CloseTemplate"
��
�:
�� �attach(menu%,item%,sub%)
!(menu%+28+item%*24+4)=sub%

�
:
� �main_menu
(� +1
2� Cupid,Info,Quit,*
<mainmenu%=�make_menu
F�
P:
Z� �make_menu
dstart%=menspc%
n� title$
x$(start%)=title$
�start%?12=7
�start%?13=2
�start%?14=7
�start%?15=0
�start%!20=44
�start%!24=0
�� start%!16=160
�width%=�(title$)-3
�menspc%+=28
��
�� item$
�� item$<>"*" �
�!menspc%=0
writeable%=�
ul%=�item$,"_")
� ul% �
"tail$=�item$,�(item$)-ul%)
,.� �tail$,"T") !menspc%=!menspc% � 1:� tick
65� �tail$,"D") !menspc%=!menspc% � 2:� dotted line
@X� �tail$,"W") !menspc%=!menspc% � 4:writeable%=�:� buffer%:� buflen%:� writable icon
J:� �tail$,"M") !menspc%=!menspc% � 8:� generate message
Titem$=�item$,ul%-1)
^�
h#� � item$>width% width%=� item$
rmenspc%!4=-1
|� writeable% �
�Zmenspc%!8=&0700F121:menspc%!12=buffer%:menspc%!16=-1:menspc%!20=buflen%:$buffer%=item$
��
�� � item$<12 �
�+menspc%!8=&07000021:$(menspc%+12)=item$
��
�Imenspc%!8=&07000121:menspc%!12=ws%:menspc%!16=-1:menspc%!20=� item$+1
�$ws%=item$:ws%+=� item$+1
��
��
�menspc%+=24
��
�� item$="*"
�start%!16=width%*16+32
%!(menspc%-24)=!(menspc%-24) � &80
mptr%=menspc%
=start%
&:
0� �showmenu(menu%,x%,y%)
:$topmenu%=menu%:topx%=x%:topy%=y%
D%ș "Wimp_CreateMenu",,menu%,x%,y%
N�
X:
b� �menuclick
l� c%
v
c%=b%+900
� ș "Wimp_GetPointerInfo",,c%
�adj%=(c%!8 � 1)
�(ș "Wimp_DecodeMenu",,topmenu%,b%,c%
�Ȏ $c% �
�� "Quit":quit%=�
��
�*� adj% �showmenu(topmenu%,topx%,topy%)
��
�:
�� �toggle_tick(menu%,item%)
�/menu%!(28+item%*24)=menu%!(28+item%*24) � 1
��
�:
� �tick(menu%,tick%)
!=(menu%!(28+item%*24) � 1)<>0
:
  � �icon_state(window%,icon%)
*� c%
4
c%=b%+900
>!c%=window%
Hc%!4=icon%
Rș "Wimp_GetIconState",,c%
\=((c%!24) � (1<<21))<>0
f:
p!� �string_addr(window%,icon%)
z� c%
�� c% 64
�!c%=window%
�c%!4=icon%
�ș "Wimp_GetIconState",,c%
�
=c%!28
�:
�!� �icon_string(window%,icon%)
�&�term(�string_addr(window%,icon%))
�!=$�string_addr(window%,icon%)
��
�:
�(� �set_icon_string(window%,icon%,a$)
�#$�string_addr(window%,icon%)=a$
	�
	:
	� �start_calc
	$n1$=�icon_string(main%,1)
	.n2$=�icon_string(main%,3)
	8do$=�icon_string(main%,2)
	B#� n1$<>"" � n2$<>"" � do$<>"" �
	L%calculating%=�:section%=1:num$=""
	V
!b%=main%
	`:ș "Wimp_GetWindowState",,b%:ș "Wimp_CloseWindow",,b%
	j!b%=calculate%
	t9ș "Wimp_GetWindowState",,b%:ș "Wimp_OpenWindow",,b%
	~7�set_icon_string(calculate%,1,"Pre-calculating...")
	�do$=�capitals(do$)
	�n1$=�capitals(n1$)
	�n2$=�capitals(n2$)
	��
	��
	�:
	�ݤcapitals(t$)
	�
� I,l$
	�
nt$=""
	�� I=1 � � t$
	�l$=�t$,I,1)
	�2� �(l$)>=�("a") � �(l$)<=�("z") l$=�(�(l$)-32)
nt$+=l$

�
�
=nt$
(:
2� �calculate_it
<Ȏ section% �
F- � 1:� *** Work out the start numbers ***
P  � I=1 � � do$
Z    letters=0:l$=�do$,I,1)
d   � n1=1 � � n1$
n"    � �n1$,n1,1)=l$ letters+=1
x   �
�   � n2=1 � � n2$
�"    � �n2$,n2,1)=l$ letters+=1
�   �
�   num$+=�(letters)
�  �
�)  step=1:old$=num$:num$="":section%=2
�5  �set_icon_string(calculate%,1,"Calculating...")
�/ � 2:� *** Work out the numbers to 100% ***
�  � step<�(old$) �
�   a$=�old$,step,1):a=�(a$)
�!   b$=�old$,step+1,1):b=�(b$)
�   c=a+b:c$=�(c)
�   num$+=c$:step+=1
*   �set_icon_string(calculate%,1,num$)
   b%!0=calculate%

   b%!4=1
"
   b%!8=0
,   b%!12=0
6!   ș "Wimp_SetIconState",,b%
@   � step>24 �
J    step=254:section%=3
T;    �set_icon_string(calculate%,1,"Calculation failed")
^    !b%=calculate%
h>    ș "Wimp_GetWindowState",,b%:ș "Wimp_CloseWindow",,b%
r    !b%=calculate%
|=    ș "Wimp_GetWindowState",,b%:ș "Wimp_OpenWindow",,b%
�   �
�  �
�   step=1:old$=num$:num$=""
�P   � �(old$)<=3 � � �(old$)<=100 calculating%=�:end_total%=�(num$):�end_calc
�  �
��
��
�:
�� �end_calc
�!b%=calculate%
�:ș "Wimp_GetWindowState",,b%:ș "Wimp_CloseWindow",,b%
�
!b%=main%
�9ș "Wimp_GetWindowState",,b%:ș "Wimp_OpenWindow",,b%
,�set_icon_string(main%,5,�(�(old$))+"%")
�
:
&� �term(a%)
0� n%
:ȕ a%?n%>31
D	n%+=1
N�
Xa%?n%=13
b�
l:
v� �error
�	!b%=�
�Ȏ !b% �
�� 1<<30:err_str$="":box%=3
�%:err_str$=" at line "+� �:box%=2
��
�$(b%+4)=�$+err_str$+�0
�6ș "Wimp_ReportError",b%,box%,"Cupid" � ,response%
�=(response%=2)
�:
�

00000000  0d 00 0a 15 f4 20 43 75  70 69 64 20 21 52 75 6e  |..... Cupid !Run|
00000010  49 6d 61 67 65 0d 00 14  20 f4 20 42 79 20 50 68  |Image... . By Ph|
00000020  69 6c 69 70 20 4d 65 6c  6c 6f 72 20 28 61 67 65  |ilip Mellor (age|
00000030  64 20 31 35 29 0d 00 1e  12 f4 20 56 65 72 73 69  |d 15)..... Versi|
00000040  6f 6e 20 31 2e 30 30 0d  00 28 1a f4 20 41 63 6f  |on 1.00..(.. Aco|
00000050  72 6e 20 55 73 65 72 2f  53 74 61 72 20 49 6e 66  |rn User/Star Inf|
00000060  6f 0d 00 32 05 3a 0d 00  3c 37 c8 99 20 22 57 69  |o..2.:..<7.. "Wi|
00000070  6d 70 5f 49 6e 69 74 69  61 6c 69 73 65 22 2c 32  |mp_Initialise",2|
00000080  30 30 2c 26 34 42 35 33  34 31 35 34 2c 22 43 75  |00,&4B534154,"Cu|
00000090  70 69 64 22 20 b8 20 2c  74 61 73 6b 25 0d 00 46  |pid" . ,task%..F|
000000a0  09 f2 69 6e 69 74 0d 00  50 05 3a 0d 00 5a 34 c8  |..init..P.:..Z4.|
000000b0  99 20 22 4f 53 5f 46 69  6c 65 22 2c 35 2c 22 3c  |. "OS_File",5,"<|
000000c0  4f 62 65 79 24 44 69 72  3e 2e 41 6e 69 6d 61 74  |Obey$Dir>.Animat|
000000d0  69 6f 6e 22 20 b8 20 2c  2c 2c 2c 6c 65 6e 25 0d  |ion" . ,,,,len%.|
000000e0  00 64 13 de 20 73 70 72  25 20 6c 65 6e 25 2b 31  |.d.. spr% len%+1|
000000f0  32 38 0d 00 6e 1d 73 70  72 25 21 30 3d 6c 65 6e  |28..n.spr%!0=len|
00000100  25 2b 31 32 38 3a 73 70  72 25 21 38 3d 31 36 0d  |%+128:spr%!8=16.|
00000110  00 78 1f c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |.x... "OS_Sprite|
00000120  4f 70 22 2c 39 2b 32 35  36 2c 73 70 72 25 0d 00  |Op",9+256,spr%..|
00000130  82 37 c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |.7.. "OS_SpriteO|
00000140  70 22 2c 31 30 2b 32 35  36 2c 73 70 72 25 2c 22  |p",10+256,spr%,"|
00000150  3c 4f 62 65 79 24 44 69  72 3e 2e 41 6e 69 6d 61  |<Obey$Dir>.Anima|
00000160  74 69 6f 6e 22 0d 00 8c  05 3a 0d 00 96 0f f2 63  |tion"....:.....c|
00000170  72 65 61 74 65 69 63 6f  6e 0d 00 a0 1b ee 20 85  |reateicon..... .|
00000180  20 e7 20 a4 65 72 72 6f  72 20 8c 20 f2 63 6c 6f  | . .error . .clo|
00000190  73 65 3a e0 0d 00 aa 1d  63 61 6c 63 75 6c 61 74  |se:.....calculat|
000001a0  69 6e 67 25 3d a3 3a 73  65 63 74 69 6f 6e 25 3d  |ing%=.:section%=|
000001b0  30 0d 00 b4 1d 61 6e 69  6d 61 74 65 3d b9 3a 68  |0....animate=.:h|
000001c0  65 61 72 74 3d 30 3a 63  6f 75 6e 74 3d 31 0d 00  |eart=0:count=1..|
000001d0  be 23 f2 73 65 74 5f 69  63 6f 6e 5f 73 74 72 69  |.#.set_icon_stri|
000001e0  6e 67 28 6d 61 69 6e 25  2c 35 2c 22 2d 2d 2d 22  |ng(main%,5,"---"|
000001f0  29 0d 00 c8 05 f5 0d 00  d2 09 f2 70 6f 6c 6c 0d  |)..........poll.|
00000200  00 dc 0b fd 20 71 75 69  74 25 0d 00 e6 0a f2 63  |.... quit%.....c|
00000210  6c 6f 73 65 0d 00 f0 05  e0 0d 00 fa 05 3a 0d 01  |lose.........:..|
00000220  04 15 dd f2 61 6e 69 6d  61 74 65 3a ea 20 62 61  |....animate:. ba|
00000230  73 65 25 0d 01 0e 24 c8  99 20 22 57 69 6d 70 5f  |se%...$.. "Wimp_|
00000240  42 61 73 65 4f 66 53 70  72 69 74 65 73 22 20 b8  |BaseOfSprites" .|
00000250  20 2c 62 61 73 65 25 0d  01 18 3f c8 99 20 22 4f  | ,base%...?.. "O|
00000260  53 5f 53 70 72 69 74 65  4f 70 22 2c 32 35 36 2b  |S_SpriteOp",256+|
00000270  36 30 2c 62 61 73 65 25  2c 22 63 75 70 69 64 5f  |60,base%,"cupid_|
00000280  69 63 6f 6e 22 2c 30 20  b8 20 2c 72 31 25 2c 72  |icon",0 . ,r1%,r|
00000290  32 25 2c 72 33 25 0d 01  22 2d c8 99 20 22 4f 53  |2%,r3%.."-.. "OS|
000002a0  5f 53 70 72 69 74 65 4f  70 22 2c 32 35 36 2b 33  |_SpriteOp",256+3|
000002b0  34 2c 73 70 72 25 2c c3  68 65 61 72 74 2c 30 2c  |4,spr%,.heart,0,|
000002c0  30 2c 30 0d 01 2c 27 63  6f 75 6e 74 2b 3d 31 3a  |0,0..,'count+=1:|
000002d0  e7 20 63 6f 75 6e 74 3d  33 20 63 6f 75 6e 74 3d  |. count=3 count=|
000002e0  31 3a 68 65 61 72 74 2b  3d 31 0d 01 36 18 e7 20  |1:heart+=1..6.. |
000002f0  68 65 61 72 74 3e 31 30  20 61 6e 69 6d 61 74 65  |heart>10 animate|
00000300  3d a3 0d 01 40 27 c8 99  20 22 4f 53 5f 53 70 72  |=...@'.. "OS_Spr|
00000310  69 74 65 4f 70 22 2c 32  35 36 2b 36 30 2c 72 31  |iteOp",256+60,r1|
00000320  25 2c 72 32 25 2c 72 33  25 0d 01 4a 0b 62 25 21  |%,r2%,r3%..J.b%!|
00000330  30 3d 2d 31 0d 01 54 0b  62 25 21 34 3d 69 25 0d  |0=-1..T.b%!4=i%.|
00000340  01 5e 0a 62 25 21 38 3d  30 0d 01 68 0b 62 25 21  |.^.b%!8=0..h.b%!|
00000350  31 32 3d 30 0d 01 72 1e  c8 99 20 22 57 69 6d 70  |12=0..r... "Wimp|
00000360  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00000370  62 25 0d 01 7c 05 e1 0d  01 86 05 3a 0d 01 90 11  |b%..|......:....|
00000380  dd 20 f2 63 72 65 61 74  65 69 63 6f 6e 0d 01 9a  |. .createicon...|
00000390  36 21 62 25 3d 2d 31 3a  62 25 21 34 3d 30 3a 62  |6!b%=-1:b%!4=0:b|
000003a0  25 21 38 3d 30 3a 62 25  21 31 32 3d 36 38 3a 62  |%!8=0:b%!12=68:b|
000003b0  25 21 31 36 3d 36 38 3a  62 25 21 32 30 3d 26 33  |%!16=68:b%!20=&3|
000003c0  30 30 32 0d 01 a4 37 24  28 62 25 2b 32 34 29 3d  |002...7$(b%+24)=|
000003d0  22 63 75 70 69 64 5f 69  63 6f 6e 22 3a c8 99 20  |"cupid_icon":.. |
000003e0  22 57 69 6d 70 5f 43 72  65 61 74 65 49 63 6f 6e  |"Wimp_CreateIcon|
000003f0  22 2c 2c 62 25 20 b8 20  69 25 0d 01 ae 05 e1 0d  |",,b% . i%......|
00000400  01 b8 05 3a 0d 01 c2 0c  dd 20 f2 63 6c 6f 73 65  |...:..... .close|
00000410  0d 01 cc 27 c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |...'.. "Wimp_Clo|
00000420  73 65 44 6f 77 6e 22 2c  74 61 73 6b 25 2c 26 34  |seDown",task%,&4|
00000430  42 35 33 34 31 35 34 0d  01 d6 05 e1 0d 01 e0 05  |B534154.........|
00000440  3a 0d 01 ea 0b dd 20 f2  70 6f 6c 6c 0d 01 f4 1b  |:..... .poll....|
00000450  c8 99 20 22 57 69 6d 70  5f 50 6f 6c 6c 22 2c 2c  |.. "Wimp_Poll",,|
00000460  62 25 20 b8 20 72 25 0d  01 fe 0b c8 8e 20 72 25  |b% . r%...... r%|
00000470  20 ca 0d 02 08 20 c9 20  32 3a c8 99 20 22 57 69  | .... . 2:.. "Wi|
00000480  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
00000490  62 25 0d 02 12 21 c9 20  33 3a c8 99 20 22 57 69  |b%...!. 3:.. "Wi|
000004a0  6d 70 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 22 2c  |mp_CloseWindow",|
000004b0  2c 62 25 0d 02 1c 13 c9  20 36 3a f2 6d 6f 75 73  |,b%..... 6:.mous|
000004c0  65 63 6c 69 63 6b 0d 02  26 12 c9 20 39 3a f2 6d  |eclick..&.. 9:.m|
000004d0  65 6e 75 63 6c 69 63 6b  0d 02 30 14 c9 20 31 37  |enuclick..0.. 17|
000004e0  2c 31 38 3a f2 72 65 63  69 65 76 65 0d 02 3a 05  |,18:.recieve..:.|
000004f0  cb 0d 02 44 11 e7 20 61  6e 69 6d 61 74 65 3d b9  |...D.. animate=.|
00000500  20 8c 0d 02 4e 0c f2 61  6e 69 6d 61 74 65 0d 02  | ...N..animate..|
00000510  58 05 cc 0d 02 62 23 e7  20 b3 28 31 30 30 30 29  |X....b#. .(1000)|
00000520  3d 31 20 8c 20 61 6e 69  6d 61 74 65 3d b9 3a 68  |=1 . animate=.:h|
00000530  65 61 72 74 3d 30 0d 02  6c 05 cd 0d 02 76 22 e7  |eart=0..l....v".|
00000540  20 63 61 6c 63 75 6c 61  74 69 6e 67 25 3d b9 20  | calculating%=. |
00000550  f2 63 61 6c 63 75 6c 61  74 65 5f 69 74 0d 02 80  |.calculate_it...|
00000560  05 e1 0d 02 8a 05 3a 0d  02 94 0e dd 20 f2 72 65  |......:..... .re|
00000570  63 69 65 76 65 0d 02 9e  0e c8 8e 20 62 25 21 31  |cieve...... b%!1|
00000580  36 20 ca 0d 02 a8 0f c9  20 30 3a 71 75 69 74 25  |6 ...... 0:quit%|
00000590  3d b9 0d 02 b2 05 cb 0d  02 bc 05 e1 0d 02 c6 05  |=...............|
000005a0  3a 0d 02 d0 11 dd 20 f2  6d 6f 75 73 65 63 6c 69  |:..... .mousecli|
000005b0  63 6b 0d 02 da 0e c8 8e  20 62 25 21 31 32 20 ca  |ck...... b%!12 .|
000005c0  0d 02 e4 12 c9 20 2d 32  3a c8 8e 20 62 25 21 38  |..... -2:.. b%!8|
000005d0  20 ca 0d 02 ee 13 c9 20  34 3a f2 63 6c 69 63 6b  | ...... 4:.click|
000005e0  6f 6e 62 61 72 0d 02 f8  2b c9 20 32 3a f2 73 68  |onbar...+. 2:.sh|
000005f0  6f 77 6d 65 6e 75 28 6d  61 69 6e 6d 65 6e 75 25  |owmenu(mainmenu%|
00000600  2c 21 62 25 2d 36 34 2c  39 36 2b 32 2a 34 34 29  |,!b%-64,96+2*44)|
00000610  0d 03 02 05 cb 0d 03 0c  16 c9 20 6d 61 69 6e 25  |.......... main%|
00000620  3a c8 8e 20 62 25 21 31  36 20 ca 0d 03 16 13 c9  |:.. b%!16 ......|
00000630  20 34 3a f2 73 74 61 72  74 5f 63 61 6c 63 0d 03  | 4:.start_calc..|
00000640  20 05 cb 0d 03 2a 1b c9  20 63 61 6c 63 75 6c 61  | ....*.. calcula|
00000650  74 65 25 3a c8 8e 20 62  25 21 31 36 20 ca 0d 03  |te%:.. b%!16 ...|
00000660  34 16 c9 20 32 3a 63 61  6c 63 75 6c 61 74 69 6e  |4.. 2:calculatin|
00000670  67 25 3d a3 0d 03 3e 12  21 62 25 3d 63 61 6c 63  |g%=...>.!b%=calc|
00000680  75 6c 61 74 65 25 0d 03  48 3a c8 99 20 22 57 69  |ulate%..H:.. "Wi|
00000690  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
000006a0  65 22 2c 2c 62 25 3a c8  99 20 22 57 69 6d 70 5f  |e",,b%:.. "Wimp_|
000006b0  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 62 25  |CloseWindow",,b%|
000006c0  0d 03 52 0d 21 62 25 3d  6d 61 69 6e 25 0d 03 5c  |..R.!b%=main%..\|
000006d0  39 c8 99 20 22 57 69 6d  70 5f 47 65 74 57 69 6e  |9.. "Wimp_GetWin|
000006e0  64 6f 77 53 74 61 74 65  22 2c 2c 62 25 3a c8 99  |dowState",,b%:..|
000006f0  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
00000700  77 22 2c 2c 62 25 0d 03  66 23 f2 73 65 74 5f 69  |w",,b%..f#.set_i|
00000710  63 6f 6e 5f 73 74 72 69  6e 67 28 6d 61 69 6e 25  |con_string(main%|
00000720  2c 35 2c 22 2d 2d 2d 22  29 0d 03 70 05 cb 0d 03  |,5,"---")..p....|
00000730  7a 05 cb 0d 03 84 05 e1  0d 03 8e 05 3a 0d 03 98  |z...........:...|
00000740  11 dd 20 f2 63 6c 69 63  6b 6f 6e 62 61 72 0d 03  |.. .clickonbar..|
00000750  a2 2f e7 20 63 61 6c 63  75 6c 61 74 69 6e 67 25  |./. calculating%|
00000760  3d a3 20 21 62 25 3d 6d  61 69 6e 25 20 8b 20 21  |=. !b%=main% . !|
00000770  62 25 3d 63 61 6c 63 75  6c 61 74 65 25 0d 03 ac  |b%=calculate%...|
00000780  39 c8 99 20 22 57 69 6d  70 5f 47 65 74 57 69 6e  |9.. "Wimp_GetWin|
00000790  64 6f 77 53 74 61 74 65  22 2c 2c 62 25 3a c8 99  |dowState",,b%:..|
000007a0  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
000007b0  77 22 2c 2c 62 25 0d 03  b6 05 e1 0d 03 c0 05 3a  |w",,b%.........:|
000007c0  0d 03 ca 1f dd 20 f2 73  28 77 68 25 2c 69 63 6f  |..... .s(wh%,ico|
000007d0  6e 6e 75 6d 62 65 72 25  2c 74 65 78 74 24 29 0d  |nnumber%,text$).|
000007e0  03 d4 0e 21 74 65 6d 70  25 3d 77 68 25 0d 03 de  |...!temp%=wh%...|
000007f0  17 74 65 6d 70 25 21 34  3d 69 63 6f 6e 6e 75 6d  |.temp%!4=iconnum|
00000800  62 65 72 25 0d 03 e8 21  c8 99 20 22 57 69 6d 70  |ber%...!.. "Wimp|
00000810  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00000820  74 65 6d 70 25 0d 03 f2  20 24 74 65 6d 70 25 21  |temp%... $temp%!|
00000830  32 38 3d c0 74 65 78 74  24 2c 74 65 6d 70 25 21  |28=.text$,temp%!|
00000840  33 36 2d 31 29 0d 03 fc  0d 74 65 6d 70 25 21 38  |36-1)....temp%!8|
00000850  3d 30 0d 04 06 0e 74 65  6d 70 25 21 31 32 3d 30  |=0....temp%!12=0|
00000860  0d 04 10 21 c8 99 20 22  57 69 6d 70 5f 53 65 74  |...!.. "Wimp_Set|
00000870  49 63 6f 6e 53 74 61 74  65 22 2c 2c 74 65 6d 70  |IconState",,temp|
00000880  25 0d 04 1a 05 e1 0d 04  24 05 3a 0d 04 2e 0b dd  |%.......$.:.....|
00000890  20 f2 69 6e 69 74 0d 04  38 2f de 20 62 25 20 31  | .init..8/. b% 1|
000008a0  30 30 30 30 2c 77 73 25  20 35 30 30 30 2c 6d 65  |0000,ws% 5000,me|
000008b0  6e 73 70 63 25 20 31 30  30 30 30 2c 20 74 65 6d  |nspc% 10000, tem|
000008c0  70 25 20 33 32 0d 04 42  13 77 73 65 6e 64 25 3d  |p% 32..B.wsend%=|
000008d0  77 73 25 2b 35 30 30 30  0d 04 4c 0b 71 75 69 74  |ws%+5000..L.quit|
000008e0  25 3d a3 0d 04 56 13 f2  6c 6f 61 64 5f 74 65 6d  |%=...V..load_tem|
000008f0  70 6c 61 74 65 73 0d 04  60 0e f2 6d 61 69 6e 5f  |plates..`..main_|
00000900  6d 65 6e 75 0d 04 6a 1e  f2 61 74 74 61 63 68 28  |menu..j..attach(|
00000910  6d 61 69 6e 6d 65 6e 75  25 2c 30 2c 69 6e 66 6f  |mainmenu%,0,info|
00000920  25 29 0d 04 74 05 e1 0d  04 7e 05 3a 0d 04 88 15  |%)..t....~.:....|
00000930  dd 20 f2 6c 6f 61 64 5f  74 65 6d 70 6c 61 74 65  |. .load_template|
00000940  73 0d 04 92 33 c8 99 20  22 57 69 6d 70 5f 4f 70  |s...3.. "Wimp_Op|
00000950  65 6e 54 65 6d 70 6c 61  74 65 22 2c 2c 22 3c 43  |enTemplate",,"<C|
00000960  75 70 69 64 24 44 69 72  3e 2e 54 65 6d 70 6c 61  |upid$Dir>.Templa|
00000970  74 65 73 22 0d 04 9c 3d  c8 99 20 22 57 69 6d 70  |tes"...=.. "Wimp|
00000980  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
00000990  62 25 2c 77 73 25 2c 77  73 65 6e 64 25 2c 2d 31  |b%,ws%,wsend%,-1|
000009a0  2c 22 6d 61 69 6e 22 2c  30 20 b8 20 2c 2c 77 73  |,"main",0 . ,,ws|
000009b0  25 0d 04 a6 26 c8 99 20  22 57 69 6d 70 5f 43 72  |%...&.. "Wimp_Cr|
000009c0  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 62 25 20  |eateWindow",,b% |
000009d0  b8 20 6d 61 69 6e 25 0d  04 b0 44 c8 99 20 22 57  |. main%...D.. "W|
000009e0  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
000009f0  22 2c 2c 62 25 2c 77 73  25 2c 77 73 65 6e 64 25  |",,b%,ws%,wsend%|
00000a00  2c 2d 31 2c 22 63 61 6c  63 75 6c 61 74 69 6e 67  |,-1,"calculating|
00000a10  22 2c 30 20 b8 20 2c 2c  77 73 25 0d 04 ba 2b c8  |",0 . ,,ws%...+.|
00000a20  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
00000a30  6e 64 6f 77 22 2c 2c 62  25 20 b8 20 63 61 6c 63  |ndow",,b% . calc|
00000a40  75 6c 61 74 65 25 0d 04  c4 3d c8 99 20 22 57 69  |ulate%...=.. "Wi|
00000a50  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
00000a60  2c 2c 62 25 2c 77 73 25  2c 77 73 65 6e 64 25 2c  |,,b%,ws%,wsend%,|
00000a70  2d 31 2c 22 49 6e 66 6f  22 2c 30 20 b8 20 2c 2c  |-1,"Info",0 . ,,|
00000a80  77 73 25 0d 04 ce 26 c8  99 20 22 57 69 6d 70 5f  |ws%...&.. "Wimp_|
00000a90  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 62  |CreateWindow",,b|
00000aa0  25 20 b8 20 69 6e 66 6f  25 0d 04 d8 1b c8 99 20  |% . info%...... |
00000ab0  22 57 69 6d 70 5f 43 6c  6f 73 65 54 65 6d 70 6c  |"Wimp_CloseTempl|
00000ac0  61 74 65 22 0d 04 e2 05  e1 0d 04 ec 05 3a 0d 04  |ate".........:..|
00000ad0  f6 1f dd 20 f2 61 74 74  61 63 68 28 6d 65 6e 75  |... .attach(menu|
00000ae0  25 2c 69 74 65 6d 25 2c  73 75 62 25 29 0d 05 00  |%,item%,sub%)...|
00000af0  1f 21 28 6d 65 6e 75 25  2b 32 38 2b 69 74 65 6d  |.!(menu%+28+item|
00000b00  25 2a 32 34 2b 34 29 3d  73 75 62 25 0d 05 0a 05  |%*24+4)=sub%....|
00000b10  e1 0d 05 14 05 3a 0d 05  1e 10 dd 20 f2 6d 61 69  |.....:..... .mai|
00000b20  6e 5f 6d 65 6e 75 0d 05  28 08 f7 20 2b 31 0d 05  |n_menu..(.. +1..|
00000b30  32 17 dc 20 43 75 70 69  64 2c 49 6e 66 6f 2c 51  |2.. Cupid,Info,Q|
00000b40  75 69 74 2c 2a 0d 05 3c  18 6d 61 69 6e 6d 65 6e  |uit,*..<.mainmen|
00000b50  75 25 3d a4 6d 61 6b 65  5f 6d 65 6e 75 0d 05 46  |u%=.make_menu..F|
00000b60  05 e1 0d 05 50 05 3a 0d  05 5a 10 dd 20 a4 6d 61  |....P.:..Z.. .ma|
00000b70  6b 65 5f 6d 65 6e 75 0d  05 64 12 73 74 61 72 74  |ke_menu..d.start|
00000b80  25 3d 6d 65 6e 73 70 63  25 0d 05 6e 0c f3 20 74  |%=menspc%..n.. t|
00000b90  69 74 6c 65 24 0d 05 78  14 24 28 73 74 61 72 74  |itle$..x.$(start|
00000ba0  25 29 3d 74 69 74 6c 65  24 0d 05 82 0f 73 74 61  |%)=title$....sta|
00000bb0  72 74 25 3f 31 32 3d 37  0d 05 8c 0f 73 74 61 72  |rt%?12=7....star|
00000bc0  74 25 3f 31 33 3d 32 0d  05 96 0f 73 74 61 72 74  |t%?13=2....start|
00000bd0  25 3f 31 34 3d 37 0d 05  a0 0f 73 74 61 72 74 25  |%?14=7....start%|
00000be0  3f 31 35 3d 30 0d 05 aa  10 73 74 61 72 74 25 21  |?15=0....start%!|
00000bf0  32 30 3d 34 34 0d 05 b4  0f 73 74 61 72 74 25 21  |20=44....start%!|
00000c00  32 34 3d 30 0d 05 be 13  f4 20 73 74 61 72 74 25  |24=0..... start%|
00000c10  21 31 36 3d 31 36 30 0d  05 c8 16 77 69 64 74 68  |!16=160....width|
00000c20  25 3d a9 28 74 69 74 6c  65 24 29 2d 33 0d 05 d2  |%=.(title$)-3...|
00000c30  0f 6d 65 6e 73 70 63 25  2b 3d 32 38 0d 05 dc 05  |.menspc%+=28....|
00000c40  f5 0d 05 e6 0b f3 20 69  74 65 6d 24 0d 05 f0 12  |...... item$....|
00000c50  e7 20 69 74 65 6d 24 3c  3e 22 2a 22 20 8c 0d 05  |. item$<>"*" ...|
00000c60  fa 0e 21 6d 65 6e 73 70  63 25 3d 30 0d 06 04 10  |..!menspc%=0....|
00000c70  77 72 69 74 65 61 62 6c  65 25 3d a3 0d 06 0e 13  |writeable%=.....|
00000c80  75 6c 25 3d a7 69 74 65  6d 24 2c 22 5f 22 29 0d  |ul%=.item$,"_").|
00000c90  06 18 0b e7 20 75 6c 25  20 8c 0d 06 22 1e 74 61  |.... ul% ...".ta|
00000ca0  69 6c 24 3d c2 69 74 65  6d 24 2c a9 28 69 74 65  |il$=.item$,.(ite|
00000cb0  6d 24 29 2d 75 6c 25 29  0d 06 2c 2e e7 20 a7 74  |m$)-ul%)..,.. .t|
00000cc0  61 69 6c 24 2c 22 54 22  29 20 21 6d 65 6e 73 70  |ail$,"T") !mensp|
00000cd0  63 25 3d 21 6d 65 6e 73  70 63 25 20 84 20 31 3a  |c%=!menspc% . 1:|
00000ce0  f4 20 74 69 63 6b 0d 06  36 35 e7 20 a7 74 61 69  |. tick..65. .tai|
00000cf0  6c 24 2c 22 44 22 29 20  21 6d 65 6e 73 70 63 25  |l$,"D") !menspc%|
00000d00  3d 21 6d 65 6e 73 70 63  25 20 84 20 32 3a f4 20  |=!menspc% . 2:. |
00000d10  64 6f 74 74 65 64 20 6c  69 6e 65 0d 06 40 58 e7  |dotted line..@X.|
00000d20  20 a7 74 61 69 6c 24 2c  22 57 22 29 20 21 6d 65  | .tail$,"W") !me|
00000d30  6e 73 70 63 25 3d 21 6d  65 6e 73 70 63 25 20 84  |nspc%=!menspc% .|
00000d40  20 34 3a 77 72 69 74 65  61 62 6c 65 25 3d b9 3a  | 4:writeable%=.:|
00000d50  f3 20 62 75 66 66 65 72  25 3a f3 20 62 75 66 6c  |. buffer%:. bufl|
00000d60  65 6e 25 3a f4 20 77 72  69 74 61 62 6c 65 20 69  |en%:. writable i|
00000d70  63 6f 6e 0d 06 4a 3a e7  20 a7 74 61 69 6c 24 2c  |con..J:. .tail$,|
00000d80  22 4d 22 29 20 21 6d 65  6e 73 70 63 25 3d 21 6d  |"M") !menspc%=!m|
00000d90  65 6e 73 70 63 25 20 84  20 38 3a f4 20 67 65 6e  |enspc% . 8:. gen|
00000da0  65 72 61 74 65 20 6d 65  73 73 61 67 65 0d 06 54  |erate message..T|
00000db0  17 69 74 65 6d 24 3d c0  69 74 65 6d 24 2c 75 6c  |.item$=.item$,ul|
00000dc0  25 2d 31 29 0d 06 5e 05  cd 0d 06 68 23 e7 20 a9  |%-1)..^....h#. .|
00000dd0  20 69 74 65 6d 24 3e 77  69 64 74 68 25 20 77 69  | item$>width% wi|
00000de0  64 74 68 25 3d a9 20 69  74 65 6d 24 0d 06 72 10  |dth%=. item$..r.|
00000df0  6d 65 6e 73 70 63 25 21  34 3d 2d 31 0d 06 7c 12  |menspc%!4=-1..|.|
00000e00  e7 20 77 72 69 74 65 61  62 6c 65 25 20 8c 0d 06  |. writeable% ...|
00000e10  86 5a 6d 65 6e 73 70 63  25 21 38 3d 26 30 37 30  |.Zmenspc%!8=&070|
00000e20  30 46 31 32 31 3a 6d 65  6e 73 70 63 25 21 31 32  |0F121:menspc%!12|
00000e30  3d 62 75 66 66 65 72 25  3a 6d 65 6e 73 70 63 25  |=buffer%:menspc%|
00000e40  21 31 36 3d 2d 31 3a 6d  65 6e 73 70 63 25 21 32  |!16=-1:menspc%!2|
00000e50  30 3d 62 75 66 6c 65 6e  25 3a 24 62 75 66 66 65  |0=buflen%:$buffe|
00000e60  72 25 3d 69 74 65 6d 24  0d 06 90 05 cc 0d 06 9a  |r%=item$........|
00000e70  12 e7 20 a9 20 69 74 65  6d 24 3c 31 32 20 8c 0d  |.. . item$<12 ..|
00000e80  06 a4 2b 6d 65 6e 73 70  63 25 21 38 3d 26 30 37  |..+menspc%!8=&07|
00000e90  30 30 30 30 32 31 3a 24  28 6d 65 6e 73 70 63 25  |000021:$(menspc%|
00000ea0  2b 31 32 29 3d 69 74 65  6d 24 0d 06 ae 05 cc 0d  |+12)=item$......|
00000eb0  06 b8 49 6d 65 6e 73 70  63 25 21 38 3d 26 30 37  |..Imenspc%!8=&07|
00000ec0  30 30 30 31 32 31 3a 6d  65 6e 73 70 63 25 21 31  |000121:menspc%!1|
00000ed0  32 3d 77 73 25 3a 6d 65  6e 73 70 63 25 21 31 36  |2=ws%:menspc%!16|
00000ee0  3d 2d 31 3a 6d 65 6e 73  70 63 25 21 32 30 3d a9  |=-1:menspc%!20=.|
00000ef0  20 69 74 65 6d 24 2b 31  0d 06 c2 1d 24 77 73 25  | item$+1....$ws%|
00000f00  3d 69 74 65 6d 24 3a 77  73 25 2b 3d a9 20 69 74  |=item$:ws%+=. it|
00000f10  65 6d 24 2b 31 0d 06 cc  05 cd 0d 06 d6 05 cd 0d  |em$+1...........|
00000f20  06 e0 0f 6d 65 6e 73 70  63 25 2b 3d 32 34 0d 06  |...menspc%+=24..|
00000f30  ea 05 cd 0d 06 f4 0f fd  20 69 74 65 6d 24 3d 22  |........ item$="|
00000f40  2a 22 0d 06 fe 1a 73 74  61 72 74 25 21 31 36 3d  |*"....start%!16=|
00000f50  77 69 64 74 68 25 2a 31  36 2b 33 32 0d 07 08 25  |width%*16+32...%|
00000f60  21 28 6d 65 6e 73 70 63  25 2d 32 34 29 3d 21 28  |!(menspc%-24)=!(|
00000f70  6d 65 6e 73 70 63 25 2d  32 34 29 20 84 20 26 38  |menspc%-24) . &8|
00000f80  30 0d 07 12 11 6d 70 74  72 25 3d 6d 65 6e 73 70  |0....mptr%=mensp|
00000f90  63 25 0d 07 1c 0b 3d 73  74 61 72 74 25 0d 07 26  |c%....=start%..&|
00000fa0  05 3a 0d 07 30 1c dd 20  f2 73 68 6f 77 6d 65 6e  |.:..0.. .showmen|
00000fb0  75 28 6d 65 6e 75 25 2c  78 25 2c 79 25 29 0d 07  |u(menu%,x%,y%)..|
00000fc0  3a 24 74 6f 70 6d 65 6e  75 25 3d 6d 65 6e 75 25  |:$topmenu%=menu%|
00000fd0  3a 74 6f 70 78 25 3d 78  25 3a 74 6f 70 79 25 3d  |:topx%=x%:topy%=|
00000fe0  79 25 0d 07 44 25 c8 99  20 22 57 69 6d 70 5f 43  |y%..D%.. "Wimp_C|
00000ff0  72 65 61 74 65 4d 65 6e  75 22 2c 2c 6d 65 6e 75  |reateMenu",,menu|
00001000  25 2c 78 25 2c 79 25 0d  07 4e 05 e1 0d 07 58 05  |%,x%,y%..N....X.|
00001010  3a 0d 07 62 10 dd 20 f2  6d 65 6e 75 63 6c 69 63  |:..b.. .menuclic|
00001020  6b 0d 07 6c 08 ea 20 63  25 0d 07 76 0d 63 25 3d  |k..l.. c%..v.c%=|
00001030  62 25 2b 39 30 30 0d 07  80 20 c8 99 20 22 57 69  |b%+900... .. "Wi|
00001040  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00001050  6f 22 2c 2c 63 25 0d 07  8a 13 61 64 6a 25 3d 28  |o",,c%....adj%=(|
00001060  63 25 21 38 20 80 20 31  29 0d 07 94 28 c8 99 20  |c%!8 . 1)...(.. |
00001070  22 57 69 6d 70 5f 44 65  63 6f 64 65 4d 65 6e 75  |"Wimp_DecodeMenu|
00001080  22 2c 2c 74 6f 70 6d 65  6e 75 25 2c 62 25 2c 63  |",,topmenu%,b%,c|
00001090  25 0d 07 9e 0c c8 8e 20  24 63 25 20 ca 0d 07 a8  |%...... $c% ....|
000010a0  14 c9 20 22 51 75 69 74  22 3a 71 75 69 74 25 3d  |.. "Quit":quit%=|
000010b0  b9 0d 07 b2 05 cb 0d 07  bc 2a e7 20 61 64 6a 25  |.........*. adj%|
000010c0  20 f2 73 68 6f 77 6d 65  6e 75 28 74 6f 70 6d 65  | .showmenu(topme|
000010d0  6e 75 25 2c 74 6f 70 78  25 2c 74 6f 70 79 25 29  |nu%,topx%,topy%)|
000010e0  0d 07 c6 05 e1 0d 07 d0  05 3a 0d 07 da 1f dd 20  |.........:..... |
000010f0  f2 74 6f 67 67 6c 65 5f  74 69 63 6b 28 6d 65 6e  |.toggle_tick(men|
00001100  75 25 2c 69 74 65 6d 25  29 0d 07 e4 2f 6d 65 6e  |u%,item%).../men|
00001110  75 25 21 28 32 38 2b 69  74 65 6d 25 2a 32 34 29  |u%!(28+item%*24)|
00001120  3d 6d 65 6e 75 25 21 28  32 38 2b 69 74 65 6d 25  |=menu%!(28+item%|
00001130  2a 32 34 29 20 82 20 31  0d 07 ee 05 e1 0d 07 f8  |*24) . 1........|
00001140  05 3a 0d 08 02 18 dd 20  a4 74 69 63 6b 28 6d 65  |.:..... .tick(me|
00001150  6e 75 25 2c 74 69 63 6b  25 29 0d 08 0c 21 3d 28  |nu%,tick%)...!=(|
00001160  6d 65 6e 75 25 21 28 32  38 2b 69 74 65 6d 25 2a  |menu%!(28+item%*|
00001170  32 34 29 20 80 20 31 29  3c 3e 30 0d 08 16 05 3a  |24) . 1)<>0....:|
00001180  0d 08 20 20 dd 20 a4 69  63 6f 6e 5f 73 74 61 74  |..  . .icon_stat|
00001190  65 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 29  |e(window%,icon%)|
000011a0  0d 08 2a 08 ea 20 63 25  0d 08 34 0d 63 25 3d 62  |..*.. c%..4.c%=b|
000011b0  25 2b 39 30 30 0d 08 3e  0f 21 63 25 3d 77 69 6e  |%+900..>.!c%=win|
000011c0  64 6f 77 25 0d 08 48 0e  63 25 21 34 3d 69 63 6f  |dow%..H.c%!4=ico|
000011d0  6e 25 0d 08 52 1e c8 99  20 22 57 69 6d 70 5f 47  |n%..R... "Wimp_G|
000011e0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 63 25  |etIconState",,c%|
000011f0  0d 08 5c 1b 3d 28 28 63  25 21 32 34 29 20 80 20  |..\.=((c%!24) . |
00001200  28 31 3c 3c 32 31 29 29  3c 3e 30 0d 08 66 05 3a  |(1<<21))<>0..f.:|
00001210  0d 08 70 21 dd 20 a4 73  74 72 69 6e 67 5f 61 64  |..p!. .string_ad|
00001220  64 72 28 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |dr(window%,icon%|
00001230  29 0d 08 7a 08 ea 20 63  25 0d 08 84 0b de 20 63  |)..z.. c%..... c|
00001240  25 20 36 34 0d 08 8e 0f  21 63 25 3d 77 69 6e 64  |% 64....!c%=wind|
00001250  6f 77 25 0d 08 98 0e 63  25 21 34 3d 69 63 6f 6e  |ow%....c%!4=icon|
00001260  25 0d 08 a2 1e c8 99 20  22 57 69 6d 70 5f 47 65  |%...... "Wimp_Ge|
00001270  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 63 25 0d  |tIconState",,c%.|
00001280  08 ac 0a 3d 63 25 21 32  38 0d 08 b6 05 3a 0d 08  |...=c%!28....:..|
00001290  c0 21 dd 20 a4 69 63 6f  6e 5f 73 74 72 69 6e 67  |.!. .icon_string|
000012a0  28 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 29 0d  |(window%,icon%).|
000012b0  08 ca 26 f2 74 65 72 6d  28 a4 73 74 72 69 6e 67  |..&.term(.string|
000012c0  5f 61 64 64 72 28 77 69  6e 64 6f 77 25 2c 69 63  |_addr(window%,ic|
000012d0  6f 6e 25 29 29 0d 08 d4  21 3d 24 a4 73 74 72 69  |on%))...!=$.stri|
000012e0  6e 67 5f 61 64 64 72 28  77 69 6e 64 6f 77 25 2c  |ng_addr(window%,|
000012f0  69 63 6f 6e 25 29 0d 08  de 05 e1 0d 08 e8 05 3a  |icon%).........:|
00001300  0d 08 f2 28 dd 20 f2 73  65 74 5f 69 63 6f 6e 5f  |...(. .set_icon_|
00001310  73 74 72 69 6e 67 28 77  69 6e 64 6f 77 25 2c 69  |string(window%,i|
00001320  63 6f 6e 25 2c 61 24 29  0d 08 fc 23 24 a4 73 74  |con%,a$)...#$.st|
00001330  72 69 6e 67 5f 61 64 64  72 28 77 69 6e 64 6f 77  |ring_addr(window|
00001340  25 2c 69 63 6f 6e 25 29  3d 61 24 0d 09 06 05 e1  |%,icon%)=a$.....|
00001350  0d 09 10 05 3a 0d 09 1a  11 dd 20 f2 73 74 61 72  |....:..... .star|
00001360  74 5f 63 61 6c 63 0d 09  24 1d 6e 31 24 3d a4 69  |t_calc..$.n1$=.i|
00001370  63 6f 6e 5f 73 74 72 69  6e 67 28 6d 61 69 6e 25  |con_string(main%|
00001380  2c 31 29 0d 09 2e 1d 6e  32 24 3d a4 69 63 6f 6e  |,1)....n2$=.icon|
00001390  5f 73 74 72 69 6e 67 28  6d 61 69 6e 25 2c 33 29  |_string(main%,3)|
000013a0  0d 09 38 1d 64 6f 24 3d  a4 69 63 6f 6e 5f 73 74  |..8.do$=.icon_st|
000013b0  72 69 6e 67 28 6d 61 69  6e 25 2c 32 29 0d 09 42  |ring(main%,2)..B|
000013c0  23 e7 20 6e 31 24 3c 3e  22 22 20 80 20 6e 32 24  |#. n1$<>"" . n2$|
000013d0  3c 3e 22 22 20 80 20 64  6f 24 3c 3e 22 22 20 8c  |<>"" . do$<>"" .|
000013e0  0d 09 4c 25 63 61 6c 63  75 6c 61 74 69 6e 67 25  |..L%calculating%|
000013f0  3d b9 3a 73 65 63 74 69  6f 6e 25 3d 31 3a 6e 75  |=.:section%=1:nu|
00001400  6d 24 3d 22 22 0d 09 56  0d 21 62 25 3d 6d 61 69  |m$=""..V.!b%=mai|
00001410  6e 25 0d 09 60 3a c8 99  20 22 57 69 6d 70 5f 47  |n%..`:.. "Wimp_G|
00001420  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00001430  62 25 3a c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |b%:.. "Wimp_Clos|
00001440  65 57 69 6e 64 6f 77 22  2c 2c 62 25 0d 09 6a 12  |eWindow",,b%..j.|
00001450  21 62 25 3d 63 61 6c 63  75 6c 61 74 65 25 0d 09  |!b%=calculate%..|
00001460  74 39 c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |t9.. "Wimp_GetWi|
00001470  6e 64 6f 77 53 74 61 74  65 22 2c 2c 62 25 3a c8  |ndowState",,b%:.|
00001480  99 20 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |. "Wimp_OpenWind|
00001490  6f 77 22 2c 2c 62 25 0d  09 7e 37 f2 73 65 74 5f  |ow",,b%..~7.set_|
000014a0  69 63 6f 6e 5f 73 74 72  69 6e 67 28 63 61 6c 63  |icon_string(calc|
000014b0  75 6c 61 74 65 25 2c 31  2c 22 50 72 65 2d 63 61  |ulate%,1,"Pre-ca|
000014c0  6c 63 75 6c 61 74 69 6e  67 2e 2e 2e 22 29 0d 09  |lculating...")..|
000014d0  88 16 64 6f 24 3d a4 63  61 70 69 74 61 6c 73 28  |..do$=.capitals(|
000014e0  64 6f 24 29 0d 09 92 16  6e 31 24 3d a4 63 61 70  |do$)....n1$=.cap|
000014f0  69 74 61 6c 73 28 6e 31  24 29 0d 09 9c 16 6e 32  |itals(n1$)....n2|
00001500  24 3d a4 63 61 70 69 74  61 6c 73 28 6e 32 24 29  |$=.capitals(n2$)|
00001510  0d 09 a6 05 cd 0d 09 b0  05 e1 0d 09 ba 05 3a 0d  |..............:.|
00001520  09 c4 12 dd a4 63 61 70  69 74 61 6c 73 28 74 24  |.....capitals(t$|
00001530  29 0d 09 ce 0a ea 20 49  2c 6c 24 0d 09 d8 0a 6e  |)..... I,l$....n|
00001540  74 24 3d 22 22 0d 09 e2  10 e3 20 49 3d 31 20 b8  |t$=""..... I=1 .|
00001550  20 a9 20 74 24 0d 09 ec  0f 6c 24 3d c1 74 24 2c  | . t$....l$=.t$,|
00001560  49 2c 31 29 0d 09 f6 32  e7 20 97 28 6c 24 29 3e  |I,1)...2. .(l$)>|
00001570  3d 97 28 22 61 22 29 20  80 20 97 28 6c 24 29 3c  |=.("a") . .(l$)<|
00001580  3d 97 28 22 7a 22 29 20  6c 24 3d bd 28 97 28 6c  |=.("z") l$=.(.(l|
00001590  24 29 2d 33 32 29 0d 0a  00 0b 6e 74 24 2b 3d 6c  |$)-32)....nt$+=l|
000015a0  24 0d 0a 0a 05 ed 0d 0a  14 05 cd 0d 0a 1e 08 3d  |$..............=|
000015b0  6e 74 24 0d 0a 28 05 3a  0d 0a 32 13 dd 20 f2 63  |nt$..(.:..2.. .c|
000015c0  61 6c 63 75 6c 61 74 65  5f 69 74 0d 0a 3c 11 c8  |alculate_it..<..|
000015d0  8e 20 73 65 63 74 69 6f  6e 25 20 ca 0d 0a 46 2d  |. section% ...F-|
000015e0  20 c9 20 31 3a f4 20 2a  2a 2a 20 57 6f 72 6b 20  | . 1:. *** Work |
000015f0  6f 75 74 20 74 68 65 20  73 74 61 72 74 20 6e 75  |out the start nu|
00001600  6d 62 65 72 73 20 2a 2a  2a 0d 0a 50 13 20 20 e3  |mbers ***..P.  .|
00001610  20 49 3d 31 20 b8 20 a9  20 64 6f 24 0d 0a 5a 1e  | I=1 . . do$..Z.|
00001620  20 20 20 20 6c 65 74 74  65 72 73 3d 30 3a 6c 24  |    letters=0:l$|
00001630  3d c1 64 6f 24 2c 49 2c  31 29 0d 0a 64 15 20 20  |=.do$,I,1)..d.  |
00001640  20 e3 20 6e 31 3d 31 20  b8 20 a9 20 6e 31 24 0d  | . n1=1 . . n1$.|
00001650  0a 6e 22 20 20 20 20 e7  20 c1 6e 31 24 2c 6e 31  |.n"    . .n1$,n1|
00001660  2c 31 29 3d 6c 24 20 6c  65 74 74 65 72 73 2b 3d  |,1)=l$ letters+=|
00001670  31 0d 0a 78 08 20 20 20  ed 0d 0a 82 15 20 20 20  |1..x.   .....   |
00001680  e3 20 6e 32 3d 31 20 b8  20 a9 20 6e 32 24 0d 0a  |. n2=1 . . n2$..|
00001690  8c 22 20 20 20 20 e7 20  c1 6e 32 24 2c 6e 32 2c  |."    . .n2$,n2,|
000016a0  31 29 3d 6c 24 20 6c 65  74 74 65 72 73 2b 3d 31  |1)=l$ letters+=1|
000016b0  0d 0a 96 08 20 20 20 ed  0d 0a a0 17 20 20 20 6e  |....   .....   n|
000016c0  75 6d 24 2b 3d c3 28 6c  65 74 74 65 72 73 29 0d  |um$+=.(letters).|
000016d0  0a aa 07 20 20 ed 0d 0a  b4 29 20 20 73 74 65 70  |...  ....)  step|
000016e0  3d 31 3a 6f 6c 64 24 3d  6e 75 6d 24 3a 6e 75 6d  |=1:old$=num$:num|
000016f0  24 3d 22 22 3a 73 65 63  74 69 6f 6e 25 3d 32 0d  |$="":section%=2.|
00001700  0a be 35 20 20 f2 73 65  74 5f 69 63 6f 6e 5f 73  |..5  .set_icon_s|
00001710  74 72 69 6e 67 28 63 61  6c 63 75 6c 61 74 65 25  |tring(calculate%|
00001720  2c 31 2c 22 43 61 6c 63  75 6c 61 74 69 6e 67 2e  |,1,"Calculating.|
00001730  2e 2e 22 29 0d 0a c8 2f  20 c9 20 32 3a f4 20 2a  |..").../ . 2:. *|
00001740  2a 2a 20 57 6f 72 6b 20  6f 75 74 20 74 68 65 20  |** Work out the |
00001750  6e 75 6d 62 65 72 73 20  74 6f 20 31 30 30 25 20  |numbers to 100% |
00001760  2a 2a 2a 0d 0a d2 16 20  20 e7 20 73 74 65 70 3c  |***....  . step<|
00001770  a9 28 6f 6c 64 24 29 20  8c 0d 0a dc 1f 20 20 20  |.(old$) .....   |
00001780  61 24 3d c1 6f 6c 64 24  2c 73 74 65 70 2c 31 29  |a$=.old$,step,1)|
00001790  3a 61 3d bb 28 61 24 29  0d 0a e6 21 20 20 20 62  |:a=.(a$)...!   b|
000017a0  24 3d c1 6f 6c 64 24 2c  73 74 65 70 2b 31 2c 31  |$=.old$,step+1,1|
000017b0  29 3a 62 3d bb 28 62 24  29 0d 0a f0 14 20 20 20  |):b=.(b$)....   |
000017c0  63 3d 61 2b 62 3a 63 24  3d c3 28 63 29 0d 0a fa  |c=a+b:c$=.(c)...|
000017d0  17 20 20 20 6e 75 6d 24  2b 3d 63 24 3a 73 74 65  |.   num$+=c$:ste|
000017e0  70 2b 3d 31 0d 0b 04 2a  20 20 20 f2 73 65 74 5f  |p+=1...*   .set_|
000017f0  69 63 6f 6e 5f 73 74 72  69 6e 67 28 63 61 6c 63  |icon_string(calc|
00001800  75 6c 61 74 65 25 2c 31  2c 6e 75 6d 24 29 0d 0b  |ulate%,1,num$)..|
00001810  0e 16 20 20 20 62 25 21  30 3d 63 61 6c 63 75 6c  |..   b%!0=calcul|
00001820  61 74 65 25 0d 0b 18 0d  20 20 20 62 25 21 34 3d  |ate%....   b%!4=|
00001830  31 0d 0b 22 0d 20 20 20  62 25 21 38 3d 30 0d 0b  |1..".   b%!8=0..|
00001840  2c 0e 20 20 20 62 25 21  31 32 3d 30 0d 0b 36 21  |,.   b%!12=0..6!|
00001850  20 20 20 c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |   .. "Wimp_SetI|
00001860  63 6f 6e 53 74 61 74 65  22 2c 2c 62 25 0d 0b 40  |conState",,b%..@|
00001870  12 20 20 20 e7 20 73 74  65 70 3e 32 34 20 8c 0d  |.   . step>24 ..|
00001880  0b 4a 1b 20 20 20 20 73  74 65 70 3d 32 35 34 3a  |.J.    step=254:|
00001890  73 65 63 74 69 6f 6e 25  3d 33 0d 0b 54 3b 20 20  |section%=3..T;  |
000018a0  20 20 f2 73 65 74 5f 69  63 6f 6e 5f 73 74 72 69  |  .set_icon_stri|
000018b0  6e 67 28 63 61 6c 63 75  6c 61 74 65 25 2c 31 2c  |ng(calculate%,1,|
000018c0  22 43 61 6c 63 75 6c 61  74 69 6f 6e 20 66 61 69  |"Calculation fai|
000018d0  6c 65 64 22 29 0d 0b 5e  16 20 20 20 20 21 62 25  |led")..^.    !b%|
000018e0  3d 63 61 6c 63 75 6c 61  74 65 25 0d 0b 68 3e 20  |=calculate%..h> |
000018f0  20 20 20 c8 99 20 22 57  69 6d 70 5f 47 65 74 57  |   .. "Wimp_GetW|
00001900  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 62 25 3a  |indowState",,b%:|
00001910  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 57 69  |.. "Wimp_CloseWi|
00001920  6e 64 6f 77 22 2c 2c 62  25 0d 0b 72 16 20 20 20  |ndow",,b%..r.   |
00001930  20 21 62 25 3d 63 61 6c  63 75 6c 61 74 65 25 0d  | !b%=calculate%.|
00001940  0b 7c 3d 20 20 20 20 c8  99 20 22 57 69 6d 70 5f  |.|=    .. "Wimp_|
00001950  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00001960  2c 62 25 3a c8 99 20 22  57 69 6d 70 5f 4f 70 65  |,b%:.. "Wimp_Ope|
00001970  6e 57 69 6e 64 6f 77 22  2c 2c 62 25 0d 0b 86 08  |nWindow",,b%....|
00001980  20 20 20 cd 0d 0b 90 07  20 20 cc 0d 0b 9a 1f 20  |   .....  ..... |
00001990  20 20 73 74 65 70 3d 31  3a 6f 6c 64 24 3d 6e 75  |  step=1:old$=nu|
000019a0  6d 24 3a 6e 75 6d 24 3d  22 22 0d 0b a4 50 20 20  |m$:num$=""...P  |
000019b0  20 e7 20 a9 28 6f 6c 64  24 29 3c 3d 33 20 8c 20  | . .(old$)<=3 . |
000019c0  e7 20 bb 28 6f 6c 64 24  29 3c 3d 31 30 30 20 63  |. .(old$)<=100 c|
000019d0  61 6c 63 75 6c 61 74 69  6e 67 25 3d a3 3a 65 6e  |alculating%=.:en|
000019e0  64 5f 74 6f 74 61 6c 25  3d bb 28 6e 75 6d 24 29  |d_total%=.(num$)|
000019f0  3a f2 65 6e 64 5f 63 61  6c 63 0d 0b ae 07 20 20  |:.end_calc....  |
00001a00  cd 0d 0b b8 05 cb 0d 0b  c2 05 e1 0d 0b cc 05 3a  |...............:|
00001a10  0d 0b d6 0f dd 20 f2 65  6e 64 5f 63 61 6c 63 0d  |..... .end_calc.|
00001a20  0b e0 12 21 62 25 3d 63  61 6c 63 75 6c 61 74 65  |...!b%=calculate|
00001a30  25 0d 0b ea 3a c8 99 20  22 57 69 6d 70 5f 47 65  |%...:.. "Wimp_Ge|
00001a40  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 62  |tWindowState",,b|
00001a50  25 3a c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |%:.. "Wimp_Close|
00001a60  57 69 6e 64 6f 77 22 2c  2c 62 25 0d 0b f4 0d 21  |Window",,b%....!|
00001a70  62 25 3d 6d 61 69 6e 25  0d 0b fe 39 c8 99 20 22  |b%=main%...9.. "|
00001a80  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00001a90  61 74 65 22 2c 2c 62 25  3a c8 99 20 22 57 69 6d  |ate",,b%:.. "Wim|
00001aa0  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 62  |p_OpenWindow",,b|
00001ab0  25 0d 0c 08 2c f2 73 65  74 5f 69 63 6f 6e 5f 73  |%...,.set_icon_s|
00001ac0  74 72 69 6e 67 28 6d 61  69 6e 25 2c 35 2c c3 28  |tring(main%,5,.(|
00001ad0  bb 28 6f 6c 64 24 29 29  2b 22 25 22 29 0d 0c 12  |.(old$))+"%")...|
00001ae0  05 e1 0d 0c 1c 05 3a 0d  0c 26 0f dd 20 f2 74 65  |......:..&.. .te|
00001af0  72 6d 28 61 25 29 0d 0c  30 08 ea 20 6e 25 0d 0c  |rm(a%)..0.. n%..|
00001b00  3a 0f c8 95 20 61 25 3f  6e 25 3e 33 31 0d 0c 44  |:... a%?n%>31..D|
00001b10  09 6e 25 2b 3d 31 0d 0c  4e 05 ce 0d 0c 58 0c 61  |.n%+=1..N....X.a|
00001b20  25 3f 6e 25 3d 31 33 0d  0c 62 05 e1 0d 0c 6c 05  |%?n%=13..b....l.|
00001b30  3a 0d 0c 76 0c dd 20 a4  65 72 72 6f 72 0d 0c 80  |:..v.. .error...|
00001b40  09 21 62 25 3d 9f 0d 0c  8a 0c c8 8e 20 21 62 25  |.!b%=....... !b%|
00001b50  20 ca 0d 0c 94 1e c9 20  31 3c 3c 33 30 3a 65 72  | ...... 1<<30:er|
00001b60  72 5f 73 74 72 24 3d 22  22 3a 62 6f 78 25 3d 33  |r_str$="":box%=3|
00001b70  0d 0c 9e 25 7f 3a 65 72  72 5f 73 74 72 24 3d 22  |...%.:err_str$="|
00001b80  20 61 74 20 6c 69 6e 65  20 22 2b c3 20 9e 3a 62  | at line "+. .:b|
00001b90  6f 78 25 3d 32 0d 0c a8  05 cb 0d 0c b2 1a 24 28  |ox%=2.........$(|
00001ba0  62 25 2b 34 29 3d f6 24  2b 65 72 72 5f 73 74 72  |b%+4)=.$+err_str|
00001bb0  24 2b bd 30 0d 0c bc 36  c8 99 20 22 57 69 6d 70  |$+.0...6.. "Wimp|
00001bc0  5f 52 65 70 6f 72 74 45  72 72 6f 72 22 2c 62 25  |_ReportError",b%|
00001bd0  2c 62 6f 78 25 2c 22 43  75 70 69 64 22 20 b8 20  |,box%,"Cupid" . |
00001be0  2c 72 65 73 70 6f 6e 73  65 25 0d 0c c6 12 3d 28  |,response%....=(|
00001bf0  72 65 73 70 6f 6e 73 65  25 3d 32 29 0d 0c d0 05  |response%=2)....|
00001c00  3a 0d ff                                          |:..|
00001c03