� >!RunImage

4� **********************************************
(4� *           Spiral Text Program.             *
24� *                                            *
<4� *       � 1996 Christopher Bradburne         *
F4� * Special thanks to Toria for the algorithm  *
P4� **********************************************
Z
d� errblk 256
n� � �error
x
�� genblock 512
�
�� fontblock 512*40
�� menublock 513*24
�
�getfonts
�
�� tempblock 512
�
�� winblock 512
�
�� iconblock 128
�� autoblock 32
�� fontnameblk 128

� filenameblk 280

� saveblk 128

� saveicon 128

"� sizeicon 32

,

6Mș "Wimp_Initialise",299,&4B534154,"Spirally Text" � version%,taskhandle%

@

J!winblock=200

Twinblock!4=100

^winblock!8=800

hwinblock!12=500

rwinblock!16=0

|winblock!20=0

�winblock!24=-1

�1winblock!28=%10000111000000000000000000010010

�winblock?32=7

�winblock?33=2

�winblock?34=7

�winblock?35=1

�winblock?36=0

�winblock?37=0

�winblock?38=12

�winblock?39=0

�winblock!40=0

�winblock!44=0

�winblock!48=600
winblock!52=300
winblock!56=%11001
winblock!60=0
&winblock!64=1
0winblock!68=0
:$(winblock+72)="Spiral"+�0
Dwinblock!84=0
N
X1ș "Wimp_CreateWindow",,winblock � winhandle%
b
l�ticon(10,80,"Font Size")
v�ticon(10,30,"Auto Size")
��ticon(10,168,"Font Name")
��ticon(10,228,"Filename")
�
�!iconblock=winhandle%
�iconblock!4=170
�iconblock!8=20
�iconblock!12=170+64
�iconblock!16=20+64
�2iconblock!20=%00010001000000001011000100010011
�iconblock!24=autoblock
�iconblock!28=autoblock+4
�iconblock!32=1
�"$(autoblock+4)="Soptoff,opton"
$(autoblock)=" "

/ș "Wimp_CreateIcon",,iconblock � autobuth%
 
*!iconblock=winhandle%
4iconblock!4=170
>iconblock!8=80
Hiconblock!12=170+128
Riconblock!16=80+48
\2iconblock!20=%00000111000000001111000100111101
ficonblock!24=sizeicon+8
piconblock!28=sizeicon
ziconblock!32=7
�$(sizeicon)="A0-9."
�$(sizeicon+8)=""
�
�,ș "Wimp_CreateIcon",,iconblock � sizeh%
�
�!iconblock=winhandle%
�iconblock!4=172
�iconblock!8=232
�iconblock!12=172+400
�iconblock!16=232+48
�2iconblock!20=%00010111000000000000001100111101
�iconblock!24=filenameblk+4
�iconblock!28=filenameblk
iconblock!32=256
$(filenameblk)=""
$(filenameblk+4)=""
$
.-ș "Wimp_CreateIcon",,iconblock � fnameh%
8
B!iconblock=winhandle%
Liconblock!4=172
Viconblock!8=172
`iconblock!12=172+400
jiconblock!16=172+48
t2iconblock!20=%00010111000000000000001100111101
~iconblock!24=fontnameblk+4
�iconblock!28=fontnameblk
�iconblock!32=256
�$(fontnameblk)=""
�$(fontnameblk+4)=""
�
�.ș "Wimp_CreateIcon",,iconblock � ftnameh%
�
�!iconblock=winhandle%
�iconblock!4=380
�iconblock!8=20
�iconblock!12=380+200
�iconblock!16=20+48
2iconblock!20=%00000111000000001111000100111101

iconblock!24=saveblk+16
iconblock!28=saveblk
iconblock!32=11
( $(saveblk)="A~ .:*#\\&@^%"""
2$(saveblk+16)="DrawFile"
<
F-ș "Wimp_CreateIcon",,iconblock � snameh%
P
Z!iconblock=winhandle%
diconblock!4=440
niconblock!8=72
xiconblock!12=440+70
�iconblock!16=72+70
�2iconblock!20=%00010001000000001010000100010011
�iconblock!24=saveicon+16
�iconblock!28=saveicon
�iconblock!32=1
�$(saveicon)="Sfile_aff"
�$(saveicon+16)=" "
�
�/ș "Wimp_CreateIcon",,iconblock � sspriteh%
�
�� wimpblock 256
�
�!wimpblock=winhandle%
wimpblock!4=100
wimpblock!8=200
wimpblock!12=700
"wimpblock!16=700
,wimpblock!20=0
6wimpblock!24=0
@wimpblock!28=-1
J
T#ș "Wimp_OpenWindow",,wimpblock
^
h
finish%=�
r�
|
�@ș "Wimp_Poll",%10000001100000110011,wimpblock � reasoncode%
�
�Ȏ reasoncode% �
�'� 2:ș "Wimp_OpenWindow",,wimpblock
�2� 3:ș "Wimp_CloseWindow",,wimpblock:finish%=�
�� 6:�button
�
� 7:�save
�� 9:�menuselec
�� 17,18:�message
��
�
�� finish%=�
�
-ș "Wimp_CloseDown",taskhandle%,&4B534154
�

&
��save
0!tempblock=winhandle%
:tempblock!4=autobuth%
D%ș "Wimp_GetIconState",,tempblock
N=� ((tempblock!24) � 2^21) = 0 � �($(sizeicon+8))=0 � �7:�
X?� ((tempblock!24) � 2^21) = 0 � �($(sizeicon+8))>999 � �7:�
bfsize=�($(sizeicon+8))
l,� ((tempblock!24) � 2^21) <> 0 � fsize=0
v � $(fontnameblk+4)="" � �7:�
� � $(filenameblk+4)="" � �7:�
�
�'ș "Wimp_GetPointerInfo",,tempblock
�destwhand%=tempblock!12
�destihand%=tempblock!16
�cx%=tempblock!0
�cy%=tempblock!4
�0!tempblock=4*(�(�($(filenameblk+4))/4)+1)+44
�tempblock!12=0
�tempblock!16=1
�tempblock!20=destwhand%
�tempblock!24=destihand%
�tempblock!28=cx%
tempblock!32=cy%
tempblock!36=64*1024
tempblock!40=&AFF
 !$(tempblock+44)=$(saveblk+16)
*<ș "Wimp_SendMessage",17,tempblock,destwhand%,destihand%
4
>�
H
R��menuselec
\m%=(!wimpblock)*40
f$$(fontnameblk+4)=$(fontblock+m%)
p!tempblock=winhandle%
ztempblock!4=ftnameh%
�%ș "Wimp_GetIconState",,tempblock
�%ș "Wimp_SetIconState",,tempblock
�ș"Wimp_CreateMenu",,-1
��
�
���button
�'� Button pressed, what do I do now?
�� wimpblock!8=2 � �menu:�
�� wimpblock!16=autobuth% �
�!genblock=wimpblock!12
�genblock!4=sizeh%
�
�!tempblock=winhandle%
	tempblock!4=autobuth%
	%ș "Wimp_GetIconState",,tempblock
	
	$)genblock!8=((tempblock!24) � 2^21)<<1
	.genblock!12=2^22
	8$ș "Wimp_SetIconState",,genblock
	B<� ((tempblock!24) � 2^21) � ș"Wimp_SetCaretPosition",-1
	L�
	V/� wimpblock!16=sspriteh% � wimpblock!8>15 �
	`!tempblock=wimpblock!12
	jtempblock!4=wimpblock!16
	t!genblock=wimpblock!12
	~%ș "Wimp_GetIconState",,tempblock
	�&ș "Wimp_GetWindowState",,genblock
	�tempblock!36=0
	�tempblock!32=0
	�tempblock!28=0
	�tempblock!24=0
	�+tempblock!20=tempblock!24+genblock!8+70
	�(tempblock!16=tempblock!16+genblock!4
	�+tempblock!12=tempblock!12+genblock!8+70
	�&tempblock!8=tempblock!8+genblock!4
	�!tempblock=wimpblock!12
	�tempblock!4=5
	�
 ș "Wimp_DragBox",,tempblock

�
�

(��error
2
*fx 200,1
<�#0
F
!errblk=�
P<$(errblk+4)=�$+" (internal error code "+�(�/10)+")"+�(0)
Z+ș "Wimp_ReportError",errblk,1,"Spiral"
d-ș "Wimp_CloseDown",taskhandle%,&4B534154
n�
x
���ticon(X%,Y%,A$)
�
�!iconblock=winhandle%
�iconblock!4=X%
�iconblock!8=Y%
�iconblock!12=X%+�(A$)*17
�iconblock!16=Y%+48
�2iconblock!20=%00010111000000000000000000010001
�$(24+iconblock)=A$
�
�#ș "Wimp_CreateIcon",,iconblock
�
��


��message
"� wimpblock!16=0 � finish%=�:�
"� wimpblock!16=3 �
,loadfile$=""
6	A%=44
@
Jȕ wimpblock!A%<>0
Tloadfile$+=�(wimpblock?A%)
^A%=A%+1
h�
r
|wimpblock!16=4
�<ș "Wimp_SendMessage",reasoncode%,wimpblock,wimpblock!20
�
�$(filenameblk+4)=loadfile$
�
�!tempblock=winhandle%
�tempblock!4=fnameh%
�tempblock!8=0
�tempblock!12=0
�%ș "Wimp_SetIconState",,tempblock
�
��
�
�� wimpblock!16=2 �
#sf$=�parsenullstr(wimpblock+44)
$fn$=�parsenullstr(filenameblk+4)
�spiral
&wimpblock!16=3
0@ș "Wimp_SendMessage",17,wimpblock,wimpblock!20,wimpblock!24
:�
D
N�
X
b
��menu
l'ș "Wimp_GetPointerInfo",,tempblock
v
�cx%=tempblock!0
�cy%=tempblock!4
�0ș"Wimp_CreateMenu",,menublock,cx%-64,cy%+32
��
�
���getfonts
�$menublock="Spiral Fonts"
�menublock?12=7
�menublock?13=2
�menublock?14=7
�menublock?15=0
�menublock!20=40
�menublock!24=0


mo%=28

offset=0


nfc%=0

 	ml%=0

*�

4� nfc%<>-1 �

>menublock!mo%=0

H
mo%=mo%+4

Rmenublock!mo%=-1

\
mo%=mo%+4

f.menublock!mo%=%111000000001011000100010001

p
mo%=mo%+4

z"menublock!mo%=fontblock+offset

�
mo%=mo%+4

�menublock!mo%=0

�
mo%=mo%+4

�menublock!mo%=39

�
mo%=mo%+4

��

�fc%=nfc%

�9ș "Font_ListFonts",,fontblock+offset,fc%,-1 � ,,nfc%

�� nfc%<>-1 �

�l%=�($(fontblock+offset))

�� l%>ml% � l%<40 � ml%=l%

�offset=offset+40

��

� nfc%=-1
menublock!16=ml%
mo%=mo%-24-24
$menublock!mo%=128
.�
8
Bݤparsenullstr(V%)
L� A$
V	A$=""
`
ȕ ?V%>31
jA$=A$+�(?V%)
tV%=V%+1
~�
�=A$
�
���spiral
�*fx 229,0,0
��
� ș"Hourglass_On"
�	 c%=0
� � space &54
� Y%=�(sf$)
� � X=1 � 44
�   � X%
�   �#Y%,X%
 �

 font$=$(fontnameblk+4)
 fl%=(�(font$)+1)/4
 fl%=fl%+1
( fl%=fl%*4
2 �#Y%,fl%+8
< �#Y%,0
F �#Y%,0
P �#Y%,0
Z �#Y%,1
d � I%=2 � fl%
n   B%=�(�font$,I%-1,1))
x   � B%=-1 � B%=0
�   �#Y%,B%
� �
�& �:� fsize=0 � fsize=�findfontsize
� �
�8 ș "Font_FindFont",,font$,fsize*16,fsize*16,0,0 � H
� X%=�(fn$)
� !space=&C
� space!4=84
� space!8=0
� space!12=0
� space!16=640*512+15000
� space!20=640*512+50000
� space!40=0
 space!44=0
 space!48=0
 space!52=0
" space!56=&FFFFFFFF
, space!60=1
6 space!64=fsize*40*16
@ space!68=fsize*40*16
J G=fsize*16*40
T BB%=fsize*24*40
^ S1=640*256
h R%=S1/G
r
 A=R%*360
| T=A
� exm=fsize*400
� mix=0:max=exm
� �
�   �
�     C=�#X%
�     � C=10 � T=T-360
�   � C>31 � �#X%
�   � � �#X% � C>=32 �
�   space!80=C
�+   ș "Font_CharBBox",H,C,0 � ,mix,,max
�   ex=max-mix+1
�   � exm<ex � exm=ex
�   p=ex/exm
)   � p<0.175 ex=ex+(1-(ex/exm))/5*exm
   G=(256*ex/400)*1.2
   S=S1
&   R=S*T/A
0   theta=2*�(G/(2*R))
:   theta=theta/(2*�)*360
D   T1=90-theta/2
N   T1=T1+T-90
X   X=-�(�(T))*S*T/A
b   Y=�(�(T))*S*T/A
l   X=X+640*256+15000
v   Y=Y+640*256+50000
�   space!72=X
�   space!76=Y
�   space!24=�(�(T1))*65536
�   space!28=�(�(T1))*65536
�   space!32=-�(�(T1))*65536
�   space!8=X-BB%
�   space!12=Y-BB%
�   space!16=X+BB%
�   space!20=Y+BB%
�   space!36=�(�(T1))*65536
�   T=T-theta
�   � Q=0 � 83
�     �#Y%,space!Q
   �
   c=c+1
 �
  � �#X% � T<180
*	 �#Y%
4 ș "Font_LoseFont",H
>	 �#X%
H/ � &44,&72,&61,&77,&C9,&0,&0,&0,&0,&0,&0,&0
R. � 83,112,105,114,97,108,32,32,32,32,32,32
\( � 0,0,0,0,0,0,0,0,0,0,0,10,0,0,0,10
f � 0,0,0,0
p" �("Settype "+sf$+" DrawFile")
zș"Hourglass_Off"
�*fx 229,1,0
� �
� ݤfindfontsize
�	 D%=1
� � fsize
�
 fsize=-4
�) �:fsize=fsize+5:� �dospir(fsize)<180
�* �:fsize=fsize-1:� �dospir(fsize)>=180
�+ �:fsize=fsize+0.2:� �dospir(fsize)<180
�- �:fsize=fsize-0.05:� �dospir(fsize)>=180
� =fsize
� ݤdospir(fsize)
� X%=�(fn$)
8 ș "Font_FindFont",,font$,fsize*16,fsize*16,0,0 � H
 G=fsize*16*40
 S1=640*256
$ R%=S1/G
.
 A=R%*360
8 T=A
B exm=fsize*400
L mix=0:max=exm
V	 C%=0
` �
j   �
t     C=�#X%
~     � C=10 T=T-360
�   � C>31 � �#X%
�   � � �#X% � C>=32 �
�+   ș "Font_CharBBox",H,C,0 � ,mix,,max
�   ex=max-mix+1
�   � exm<ex � exm=ex
�   p=ex/exm
�)   � p<0.175 ex=ex+(1-(ex/exm))/5*exm
�   G=(256*ex/400)*1.2
�   S=S1
�   R=S*T/A
�   theta=2*�(G/(2*R))
�   theta=theta/(2*�)*360
   T=T-theta

 �
 � �#X% � T<180
	 �#X%
( ș "Font_LoseFont",H
2 =T
<
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 04 0d 00 1e 34  f4 20 2a 2a 2a 2a 2a 2a  |.......4. ******|
00000020  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000040  2a 2a 2a 2a 2a 2a 2a 2a  0d 00 28 34 f4 20 2a 20  |********..(4. * |
00000050  20 20 20 20 20 20 20 20  20 20 53 70 69 72 61 6c  |          Spiral|
00000060  20 54 65 78 74 20 50 72  6f 67 72 61 6d 2e 20 20  | Text Program.  |
00000070  20 20 20 20 20 20 20 20  20 20 20 2a 0d 00 32 34  |           *..24|
00000080  f4 20 2a 20 20 20 20 20  20 20 20 20 20 20 20 20  |. *             |
00000090  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000000a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 2a  |               *|
000000b0  0d 00 3c 34 f4 20 2a 20  20 20 20 20 20 20 a9 20  |..<4. *       . |
000000c0  31 39 39 36 20 43 68 72  69 73 74 6f 70 68 65 72  |1996 Christopher|
000000d0  20 42 72 61 64 62 75 72  6e 65 20 20 20 20 20 20  | Bradburne      |
000000e0  20 20 20 2a 0d 00 46 34  f4 20 2a 20 53 70 65 63  |   *..F4. * Spec|
000000f0  69 61 6c 20 74 68 61 6e  6b 73 20 74 6f 20 54 6f  |ial thanks to To|
00000100  72 69 61 20 66 6f 72 20  74 68 65 20 61 6c 67 6f  |ria for the algo|
00000110  72 69 74 68 6d 20 20 2a  0d 00 50 34 f4 20 2a 2a  |rithm  *..P4. **|
00000120  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000140  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 00 5a 04  |************..Z.|
00000150  0d 00 64 10 de 20 65 72  72 62 6c 6b 20 32 35 36  |..d.. errblk 256|
00000160  0d 00 6e 0e ee 20 85 20  f2 65 72 72 6f 72 0d 00  |..n.. . .error..|
00000170  78 04 0d 00 82 12 de 20  67 65 6e 62 6c 6f 63 6b  |x...... genblock|
00000180  20 35 31 32 0d 00 8c 04  0d 00 96 16 de 20 66 6f  | 512......... fo|
00000190  6e 74 62 6c 6f 63 6b 20  35 31 32 2a 34 30 0d 00  |ntblock 512*40..|
000001a0  a0 16 de 20 6d 65 6e 75  62 6c 6f 63 6b 20 35 31  |... menublock 51|
000001b0  33 2a 32 34 0d 00 aa 0d  f2 67 65 74 66 6f 6e 74  |3*24.....getfont|
000001c0  73 0d 00 b4 04 0d 00 be  13 de 20 74 65 6d 70 62  |s......... tempb|
000001d0  6c 6f 63 6b 20 35 31 32  0d 00 c8 04 0d 00 d2 12  |lock 512........|
000001e0  de 20 77 69 6e 62 6c 6f  63 6b 20 35 31 32 0d 00  |. winblock 512..|
000001f0  dc 04 0d 00 e6 13 de 20  69 63 6f 6e 62 6c 6f 63  |....... iconbloc|
00000200  6b 20 31 32 38 0d 00 f0  12 de 20 61 75 74 6f 62  |k 128..... autob|
00000210  6c 6f 63 6b 20 33 32 0d  00 fa 15 de 20 66 6f 6e  |lock 32..... fon|
00000220  74 6e 61 6d 65 62 6c 6b  20 31 32 38 0d 01 04 15  |tnameblk 128....|
00000230  de 20 66 69 6c 65 6e 61  6d 65 62 6c 6b 20 32 38  |. filenameblk 28|
00000240  30 0d 01 0e 11 de 20 73  61 76 65 62 6c 6b 20 31  |0..... saveblk 1|
00000250  32 38 0d 01 18 12 de 20  73 61 76 65 69 63 6f 6e  |28..... saveicon|
00000260  20 31 32 38 0d 01 22 11  de 20 73 69 7a 65 69 63  | 128..".. sizeic|
00000270  6f 6e 20 33 32 0d 01 2c  04 0d 01 36 4d c8 99 20  |on 32..,...6M.. |
00000280  22 57 69 6d 70 5f 49 6e  69 74 69 61 6c 69 73 65  |"Wimp_Initialise|
00000290  22 2c 32 39 39 2c 26 34  42 35 33 34 31 35 34 2c  |",299,&4B534154,|
000002a0  22 53 70 69 72 61 6c 6c  79 20 54 65 78 74 22 20  |"Spirally Text" |
000002b0  b8 20 76 65 72 73 69 6f  6e 25 2c 74 61 73 6b 68  |. version%,taskh|
000002c0  61 6e 64 6c 65 25 0d 01  40 04 0d 01 4a 11 21 77  |andle%..@...J.!w|
000002d0  69 6e 62 6c 6f 63 6b 3d  32 30 30 0d 01 54 12 77  |inblock=200..T.w|
000002e0  69 6e 62 6c 6f 63 6b 21  34 3d 31 30 30 0d 01 5e  |inblock!4=100..^|
000002f0  12 77 69 6e 62 6c 6f 63  6b 21 38 3d 38 30 30 0d  |.winblock!8=800.|
00000300  01 68 13 77 69 6e 62 6c  6f 63 6b 21 31 32 3d 35  |.h.winblock!12=5|
00000310  30 30 0d 01 72 11 77 69  6e 62 6c 6f 63 6b 21 31  |00..r.winblock!1|
00000320  36 3d 30 0d 01 7c 11 77  69 6e 62 6c 6f 63 6b 21  |6=0..|.winblock!|
00000330  32 30 3d 30 0d 01 86 12  77 69 6e 62 6c 6f 63 6b  |20=0....winblock|
00000340  21 32 34 3d 2d 31 0d 01  90 31 77 69 6e 62 6c 6f  |!24=-1...1winblo|
00000350  63 6b 21 32 38 3d 25 31  30 30 30 30 31 31 31 30  |ck!28=%100001110|
00000360  30 30 30 30 30 30 30 30  30 30 30 30 30 30 30 30  |0000000000000000|
00000370  30 30 31 30 30 31 30 0d  01 9a 11 77 69 6e 62 6c  |0010010....winbl|
00000380  6f 63 6b 3f 33 32 3d 37  0d 01 a4 11 77 69 6e 62  |ock?32=7....winb|
00000390  6c 6f 63 6b 3f 33 33 3d  32 0d 01 ae 11 77 69 6e  |lock?33=2....win|
000003a0  62 6c 6f 63 6b 3f 33 34  3d 37 0d 01 b8 11 77 69  |block?34=7....wi|
000003b0  6e 62 6c 6f 63 6b 3f 33  35 3d 31 0d 01 c2 11 77  |nblock?35=1....w|
000003c0  69 6e 62 6c 6f 63 6b 3f  33 36 3d 30 0d 01 cc 11  |inblock?36=0....|
000003d0  77 69 6e 62 6c 6f 63 6b  3f 33 37 3d 30 0d 01 d6  |winblock?37=0...|
000003e0  12 77 69 6e 62 6c 6f 63  6b 3f 33 38 3d 31 32 0d  |.winblock?38=12.|
000003f0  01 e0 11 77 69 6e 62 6c  6f 63 6b 3f 33 39 3d 30  |...winblock?39=0|
00000400  0d 01 ea 11 77 69 6e 62  6c 6f 63 6b 21 34 30 3d  |....winblock!40=|
00000410  30 0d 01 f4 11 77 69 6e  62 6c 6f 63 6b 21 34 34  |0....winblock!44|
00000420  3d 30 0d 01 fe 13 77 69  6e 62 6c 6f 63 6b 21 34  |=0....winblock!4|
00000430  38 3d 36 30 30 0d 02 08  13 77 69 6e 62 6c 6f 63  |8=600....winbloc|
00000440  6b 21 35 32 3d 33 30 30  0d 02 12 16 77 69 6e 62  |k!52=300....winb|
00000450  6c 6f 63 6b 21 35 36 3d  25 31 31 30 30 31 0d 02  |lock!56=%11001..|
00000460  1c 11 77 69 6e 62 6c 6f  63 6b 21 36 30 3d 30 0d  |..winblock!60=0.|
00000470  02 26 11 77 69 6e 62 6c  6f 63 6b 21 36 34 3d 31  |.&.winblock!64=1|
00000480  0d 02 30 11 77 69 6e 62  6c 6f 63 6b 21 36 38 3d  |..0.winblock!68=|
00000490  30 0d 02 3a 1e 24 28 77  69 6e 62 6c 6f 63 6b 2b  |0..:.$(winblock+|
000004a0  37 32 29 3d 22 53 70 69  72 61 6c 22 2b bd 30 0d  |72)="Spiral"+.0.|
000004b0  02 44 11 77 69 6e 62 6c  6f 63 6b 21 38 34 3d 30  |.D.winblock!84=0|
000004c0  0d 02 4e 04 0d 02 58 31  c8 99 20 22 57 69 6d 70  |..N...X1.. "Wimp|
000004d0  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
000004e0  77 69 6e 62 6c 6f 63 6b  20 b8 20 77 69 6e 68 61  |winblock . winha|
000004f0  6e 64 6c 65 25 0d 02 62  04 0d 02 6c 1d f2 74 69  |ndle%..b...l..ti|
00000500  63 6f 6e 28 31 30 2c 38  30 2c 22 46 6f 6e 74 20  |con(10,80,"Font |
00000510  53 69 7a 65 22 29 0d 02  76 1d f2 74 69 63 6f 6e  |Size")..v..ticon|
00000520  28 31 30 2c 33 30 2c 22  41 75 74 6f 20 53 69 7a  |(10,30,"Auto Siz|
00000530  65 22 29 0d 02 80 1e f2  74 69 63 6f 6e 28 31 30  |e").....ticon(10|
00000540  2c 31 36 38 2c 22 46 6f  6e 74 20 4e 61 6d 65 22  |,168,"Font Name"|
00000550  29 0d 02 8a 1d f2 74 69  63 6f 6e 28 31 30 2c 32  |).....ticon(10,2|
00000560  32 38 2c 22 46 69 6c 65  6e 61 6d 65 22 29 0d 02  |28,"Filename")..|
00000570  94 04 0d 02 9e 19 21 69  63 6f 6e 62 6c 6f 63 6b  |......!iconblock|
00000580  3d 77 69 6e 68 61 6e 64  6c 65 25 0d 02 a8 13 69  |=winhandle%....i|
00000590  63 6f 6e 62 6c 6f 63 6b  21 34 3d 31 37 30 0d 02  |conblock!4=170..|
000005a0  b2 12 69 63 6f 6e 62 6c  6f 63 6b 21 38 3d 32 30  |..iconblock!8=20|
000005b0  0d 02 bc 17 69 63 6f 6e  62 6c 6f 63 6b 21 31 32  |....iconblock!12|
000005c0  3d 31 37 30 2b 36 34 0d  02 c6 16 69 63 6f 6e 62  |=170+64....iconb|
000005d0  6c 6f 63 6b 21 31 36 3d  32 30 2b 36 34 0d 02 d0  |lock!16=20+64...|
000005e0  32 69 63 6f 6e 62 6c 6f  63 6b 21 32 30 3d 25 30  |2iconblock!20=%0|
000005f0  30 30 31 30 30 30 31 30  30 30 30 30 30 30 30 31  |0010001000000001|
00000600  30 31 31 30 30 30 31 30  30 30 31 30 30 31 31 0d  |011000100010011.|
00000610  02 da 1a 69 63 6f 6e 62  6c 6f 63 6b 21 32 34 3d  |...iconblock!24=|
00000620  61 75 74 6f 62 6c 6f 63  6b 0d 02 e4 1c 69 63 6f  |autoblock....ico|
00000630  6e 62 6c 6f 63 6b 21 32  38 3d 61 75 74 6f 62 6c  |nblock!28=autobl|
00000640  6f 63 6b 2b 34 0d 02 ee  12 69 63 6f 6e 62 6c 6f  |ock+4....iconblo|
00000650  63 6b 21 33 32 3d 31 0d  02 f8 22 24 28 61 75 74  |ck!32=1..."$(aut|
00000660  6f 62 6c 6f 63 6b 2b 34  29 3d 22 53 6f 70 74 6f  |oblock+4)="Sopto|
00000670  66 66 2c 6f 70 74 6f 6e  22 0d 03 02 14 24 28 61  |ff,opton"....$(a|
00000680  75 74 6f 62 6c 6f 63 6b  29 3d 22 20 22 0d 03 0c  |utoblock)=" "...|
00000690  04 0d 03 16 2f c8 99 20  22 57 69 6d 70 5f 43 72  |..../.. "Wimp_Cr|
000006a0  65 61 74 65 49 63 6f 6e  22 2c 2c 69 63 6f 6e 62  |eateIcon",,iconb|
000006b0  6c 6f 63 6b 20 b8 20 61  75 74 6f 62 75 74 68 25  |lock . autobuth%|
000006c0  0d 03 20 04 0d 03 2a 19  21 69 63 6f 6e 62 6c 6f  |.. ...*.!iconblo|
000006d0  63 6b 3d 77 69 6e 68 61  6e 64 6c 65 25 0d 03 34  |ck=winhandle%..4|
000006e0  13 69 63 6f 6e 62 6c 6f  63 6b 21 34 3d 31 37 30  |.iconblock!4=170|
000006f0  0d 03 3e 12 69 63 6f 6e  62 6c 6f 63 6b 21 38 3d  |..>.iconblock!8=|
00000700  38 30 0d 03 48 18 69 63  6f 6e 62 6c 6f 63 6b 21  |80..H.iconblock!|
00000710  31 32 3d 31 37 30 2b 31  32 38 0d 03 52 16 69 63  |12=170+128..R.ic|
00000720  6f 6e 62 6c 6f 63 6b 21  31 36 3d 38 30 2b 34 38  |onblock!16=80+48|
00000730  0d 03 5c 32 69 63 6f 6e  62 6c 6f 63 6b 21 32 30  |..\2iconblock!20|
00000740  3d 25 30 30 30 30 30 31  31 31 30 30 30 30 30 30  |=%00000111000000|
00000750  30 30 31 31 31 31 30 30  30 31 30 30 31 31 31 31  |0011110001001111|
00000760  30 31 0d 03 66 1b 69 63  6f 6e 62 6c 6f 63 6b 21  |01..f.iconblock!|
00000770  32 34 3d 73 69 7a 65 69  63 6f 6e 2b 38 0d 03 70  |24=sizeicon+8..p|
00000780  19 69 63 6f 6e 62 6c 6f  63 6b 21 32 38 3d 73 69  |.iconblock!28=si|
00000790  7a 65 69 63 6f 6e 0d 03  7a 12 69 63 6f 6e 62 6c  |zeicon..z.iconbl|
000007a0  6f 63 6b 21 33 32 3d 37  0d 03 84 17 24 28 73 69  |ock!32=7....$(si|
000007b0  7a 65 69 63 6f 6e 29 3d  22 41 30 2d 39 2e 22 0d  |zeicon)="A0-9.".|
000007c0  03 8e 14 24 28 73 69 7a  65 69 63 6f 6e 2b 38 29  |...$(sizeicon+8)|
000007d0  3d 22 22 0d 03 98 04 0d  03 a2 2c c8 99 20 22 57  |="".......,.. "W|
000007e0  69 6d 70 5f 43 72 65 61  74 65 49 63 6f 6e 22 2c  |imp_CreateIcon",|
000007f0  2c 69 63 6f 6e 62 6c 6f  63 6b 20 b8 20 73 69 7a  |,iconblock . siz|
00000800  65 68 25 0d 03 ac 04 0d  03 b6 19 21 69 63 6f 6e  |eh%........!icon|
00000810  62 6c 6f 63 6b 3d 77 69  6e 68 61 6e 64 6c 65 25  |block=winhandle%|
00000820  0d 03 c0 13 69 63 6f 6e  62 6c 6f 63 6b 21 34 3d  |....iconblock!4=|
00000830  31 37 32 0d 03 ca 13 69  63 6f 6e 62 6c 6f 63 6b  |172....iconblock|
00000840  21 38 3d 32 33 32 0d 03  d4 18 69 63 6f 6e 62 6c  |!8=232....iconbl|
00000850  6f 63 6b 21 31 32 3d 31  37 32 2b 34 30 30 0d 03  |ock!12=172+400..|
00000860  de 17 69 63 6f 6e 62 6c  6f 63 6b 21 31 36 3d 32  |..iconblock!16=2|
00000870  33 32 2b 34 38 0d 03 e8  32 69 63 6f 6e 62 6c 6f  |32+48...2iconblo|
00000880  63 6b 21 32 30 3d 25 30  30 30 31 30 31 31 31 30  |ck!20=%000101110|
00000890  30 30 30 30 30 30 30 30  30 30 30 30 30 31 31 30  |0000000000000110|
000008a0  30 31 31 31 31 30 31 0d  03 f2 1e 69 63 6f 6e 62  |0111101....iconb|
000008b0  6c 6f 63 6b 21 32 34 3d  66 69 6c 65 6e 61 6d 65  |lock!24=filename|
000008c0  62 6c 6b 2b 34 0d 03 fc  1c 69 63 6f 6e 62 6c 6f  |blk+4....iconblo|
000008d0  63 6b 21 32 38 3d 66 69  6c 65 6e 61 6d 65 62 6c  |ck!28=filenamebl|
000008e0  6b 0d 04 06 14 69 63 6f  6e 62 6c 6f 63 6b 21 33  |k....iconblock!3|
000008f0  32 3d 32 35 36 0d 04 10  15 24 28 66 69 6c 65 6e  |2=256....$(filen|
00000900  61 6d 65 62 6c 6b 29 3d  22 22 0d 04 1a 17 24 28  |ameblk)=""....$(|
00000910  66 69 6c 65 6e 61 6d 65  62 6c 6b 2b 34 29 3d 22  |filenameblk+4)="|
00000920  22 0d 04 24 04 0d 04 2e  2d c8 99 20 22 57 69 6d  |"..$....-.. "Wim|
00000930  70 5f 43 72 65 61 74 65  49 63 6f 6e 22 2c 2c 69  |p_CreateIcon",,i|
00000940  63 6f 6e 62 6c 6f 63 6b  20 b8 20 66 6e 61 6d 65  |conblock . fname|
00000950  68 25 0d 04 38 04 0d 04  42 19 21 69 63 6f 6e 62  |h%..8...B.!iconb|
00000960  6c 6f 63 6b 3d 77 69 6e  68 61 6e 64 6c 65 25 0d  |lock=winhandle%.|
00000970  04 4c 13 69 63 6f 6e 62  6c 6f 63 6b 21 34 3d 31  |.L.iconblock!4=1|
00000980  37 32 0d 04 56 13 69 63  6f 6e 62 6c 6f 63 6b 21  |72..V.iconblock!|
00000990  38 3d 31 37 32 0d 04 60  18 69 63 6f 6e 62 6c 6f  |8=172..`.iconblo|
000009a0  63 6b 21 31 32 3d 31 37  32 2b 34 30 30 0d 04 6a  |ck!12=172+400..j|
000009b0  17 69 63 6f 6e 62 6c 6f  63 6b 21 31 36 3d 31 37  |.iconblock!16=17|
000009c0  32 2b 34 38 0d 04 74 32  69 63 6f 6e 62 6c 6f 63  |2+48..t2iconbloc|
000009d0  6b 21 32 30 3d 25 30 30  30 31 30 31 31 31 30 30  |k!20=%0001011100|
000009e0  30 30 30 30 30 30 30 30  30 30 30 30 31 31 30 30  |0000000000001100|
000009f0  31 31 31 31 30 31 0d 04  7e 1e 69 63 6f 6e 62 6c  |111101..~.iconbl|
00000a00  6f 63 6b 21 32 34 3d 66  6f 6e 74 6e 61 6d 65 62  |ock!24=fontnameb|
00000a10  6c 6b 2b 34 0d 04 88 1c  69 63 6f 6e 62 6c 6f 63  |lk+4....iconbloc|
00000a20  6b 21 32 38 3d 66 6f 6e  74 6e 61 6d 65 62 6c 6b  |k!28=fontnameblk|
00000a30  0d 04 92 14 69 63 6f 6e  62 6c 6f 63 6b 21 33 32  |....iconblock!32|
00000a40  3d 32 35 36 0d 04 9c 15  24 28 66 6f 6e 74 6e 61  |=256....$(fontna|
00000a50  6d 65 62 6c 6b 29 3d 22  22 0d 04 a6 17 24 28 66  |meblk)=""....$(f|
00000a60  6f 6e 74 6e 61 6d 65 62  6c 6b 2b 34 29 3d 22 22  |ontnameblk+4)=""|
00000a70  0d 04 b0 04 0d 04 ba 2e  c8 99 20 22 57 69 6d 70  |.......... "Wimp|
00000a80  5f 43 72 65 61 74 65 49  63 6f 6e 22 2c 2c 69 63  |_CreateIcon",,ic|
00000a90  6f 6e 62 6c 6f 63 6b 20  b8 20 66 74 6e 61 6d 65  |onblock . ftname|
00000aa0  68 25 0d 04 c4 04 0d 04  ce 19 21 69 63 6f 6e 62  |h%........!iconb|
00000ab0  6c 6f 63 6b 3d 77 69 6e  68 61 6e 64 6c 65 25 0d  |lock=winhandle%.|
00000ac0  04 d8 13 69 63 6f 6e 62  6c 6f 63 6b 21 34 3d 33  |...iconblock!4=3|
00000ad0  38 30 0d 04 e2 12 69 63  6f 6e 62 6c 6f 63 6b 21  |80....iconblock!|
00000ae0  38 3d 32 30 0d 04 ec 18  69 63 6f 6e 62 6c 6f 63  |8=20....iconbloc|
00000af0  6b 21 31 32 3d 33 38 30  2b 32 30 30 0d 04 f6 16  |k!12=380+200....|
00000b00  69 63 6f 6e 62 6c 6f 63  6b 21 31 36 3d 32 30 2b  |iconblock!16=20+|
00000b10  34 38 0d 05 00 32 69 63  6f 6e 62 6c 6f 63 6b 21  |48...2iconblock!|
00000b20  32 30 3d 25 30 30 30 30  30 31 31 31 30 30 30 30  |20=%000001110000|
00000b30  30 30 30 30 31 31 31 31  30 30 30 31 30 30 31 31  |0000111100010011|
00000b40  31 31 30 31 0d 05 0a 1b  69 63 6f 6e 62 6c 6f 63  |1101....iconbloc|
00000b50  6b 21 32 34 3d 73 61 76  65 62 6c 6b 2b 31 36 0d  |k!24=saveblk+16.|
00000b60  05 14 18 69 63 6f 6e 62  6c 6f 63 6b 21 32 38 3d  |...iconblock!28=|
00000b70  73 61 76 65 62 6c 6b 0d  05 1e 13 69 63 6f 6e 62  |saveblk....iconb|
00000b80  6c 6f 63 6b 21 33 32 3d  31 31 0d 05 28 20 24 28  |lock!32=11..( $(|
00000b90  73 61 76 65 62 6c 6b 29  3d 22 41 7e 20 2e 3a 2a  |saveblk)="A~ .:*|
00000ba0  23 5c 5c 26 40 5e 25 22  22 22 0d 05 32 1c 24 28  |#\\&@^%"""..2.$(|
00000bb0  73 61 76 65 62 6c 6b 2b  31 36 29 3d 22 44 72 61  |saveblk+16)="Dra|
00000bc0  77 46 69 6c 65 22 0d 05  3c 04 0d 05 46 2d c8 99  |wFile"..<...F-..|
00000bd0  20 22 57 69 6d 70 5f 43  72 65 61 74 65 49 63 6f  | "Wimp_CreateIco|
00000be0  6e 22 2c 2c 69 63 6f 6e  62 6c 6f 63 6b 20 b8 20  |n",,iconblock . |
00000bf0  73 6e 61 6d 65 68 25 0d  05 50 04 0d 05 5a 19 21  |snameh%..P...Z.!|
00000c00  69 63 6f 6e 62 6c 6f 63  6b 3d 77 69 6e 68 61 6e  |iconblock=winhan|
00000c10  64 6c 65 25 0d 05 64 13  69 63 6f 6e 62 6c 6f 63  |dle%..d.iconbloc|
00000c20  6b 21 34 3d 34 34 30 0d  05 6e 12 69 63 6f 6e 62  |k!4=440..n.iconb|
00000c30  6c 6f 63 6b 21 38 3d 37  32 0d 05 78 17 69 63 6f  |lock!8=72..x.ico|
00000c40  6e 62 6c 6f 63 6b 21 31  32 3d 34 34 30 2b 37 30  |nblock!12=440+70|
00000c50  0d 05 82 16 69 63 6f 6e  62 6c 6f 63 6b 21 31 36  |....iconblock!16|
00000c60  3d 37 32 2b 37 30 0d 05  8c 32 69 63 6f 6e 62 6c  |=72+70...2iconbl|
00000c70  6f 63 6b 21 32 30 3d 25  30 30 30 31 30 30 30 31  |ock!20=%00010001|
00000c80  30 30 30 30 30 30 30 30  31 30 31 30 30 30 30 31  |0000000010100001|
00000c90  30 30 30 31 30 30 31 31  0d 05 96 1c 69 63 6f 6e  |00010011....icon|
00000ca0  62 6c 6f 63 6b 21 32 34  3d 73 61 76 65 69 63 6f  |block!24=saveico|
00000cb0  6e 2b 31 36 0d 05 a0 19  69 63 6f 6e 62 6c 6f 63  |n+16....iconbloc|
00000cc0  6b 21 32 38 3d 73 61 76  65 69 63 6f 6e 0d 05 aa  |k!28=saveicon...|
00000cd0  12 69 63 6f 6e 62 6c 6f  63 6b 21 33 32 3d 31 0d  |.iconblock!32=1.|
00000ce0  05 b4 1b 24 28 73 61 76  65 69 63 6f 6e 29 3d 22  |...$(saveicon)="|
00000cf0  53 66 69 6c 65 5f 61 66  66 22 0d 05 be 16 24 28  |Sfile_aff"....$(|
00000d00  73 61 76 65 69 63 6f 6e  2b 31 36 29 3d 22 20 22  |saveicon+16)=" "|
00000d10  0d 05 c8 04 0d 05 d2 2f  c8 99 20 22 57 69 6d 70  |......./.. "Wimp|
00000d20  5f 43 72 65 61 74 65 49  63 6f 6e 22 2c 2c 69 63  |_CreateIcon",,ic|
00000d30  6f 6e 62 6c 6f 63 6b 20  b8 20 73 73 70 72 69 74  |onblock . ssprit|
00000d40  65 68 25 0d 05 dc 04 0d  05 e6 13 de 20 77 69 6d  |eh%......... wim|
00000d50  70 62 6c 6f 63 6b 20 32  35 36 0d 05 f0 04 0d 05  |pblock 256......|
00000d60  fa 19 21 77 69 6d 70 62  6c 6f 63 6b 3d 77 69 6e  |..!wimpblock=win|
00000d70  68 61 6e 64 6c 65 25 0d  06 04 13 77 69 6d 70 62  |handle%....wimpb|
00000d80  6c 6f 63 6b 21 34 3d 31  30 30 0d 06 0e 13 77 69  |lock!4=100....wi|
00000d90  6d 70 62 6c 6f 63 6b 21  38 3d 32 30 30 0d 06 18  |mpblock!8=200...|
00000da0  14 77 69 6d 70 62 6c 6f  63 6b 21 31 32 3d 37 30  |.wimpblock!12=70|
00000db0  30 0d 06 22 14 77 69 6d  70 62 6c 6f 63 6b 21 31  |0..".wimpblock!1|
00000dc0  36 3d 37 30 30 0d 06 2c  12 77 69 6d 70 62 6c 6f  |6=700..,.wimpblo|
00000dd0  63 6b 21 32 30 3d 30 0d  06 36 12 77 69 6d 70 62  |ck!20=0..6.wimpb|
00000de0  6c 6f 63 6b 21 32 34 3d  30 0d 06 40 13 77 69 6d  |lock!24=0..@.wim|
00000df0  70 62 6c 6f 63 6b 21 32  38 3d 2d 31 0d 06 4a 04  |pblock!28=-1..J.|
00000e00  0d 06 54 23 c8 99 20 22  57 69 6d 70 5f 4f 70 65  |..T#.. "Wimp_Ope|
00000e10  6e 57 69 6e 64 6f 77 22  2c 2c 77 69 6d 70 62 6c  |nWindow",,wimpbl|
00000e20  6f 63 6b 0d 06 5e 04 0d  06 68 0d 66 69 6e 69 73  |ock..^...h.finis|
00000e30  68 25 3d a3 0d 06 72 05  f5 0d 06 7c 04 0d 06 86  |h%=...r....|....|
00000e40  40 c8 99 20 22 57 69 6d  70 5f 50 6f 6c 6c 22 2c  |@.. "Wimp_Poll",|
00000e50  25 31 30 30 30 30 30 30  31 31 30 30 30 30 30 31  |%100000011000001|
00000e60  31 30 30 31 31 2c 77 69  6d 70 62 6c 6f 63 6b 20  |10011,wimpblock |
00000e70  b8 20 72 65 61 73 6f 6e  63 6f 64 65 25 0d 06 90  |. reasoncode%...|
00000e80  04 0d 06 9a 14 c8 8e 20  72 65 61 73 6f 6e 63 6f  |....... reasonco|
00000e90  64 65 25 20 ca 0d 06 a4  27 c9 20 32 3a c8 99 20  |de% ....'. 2:.. |
00000ea0  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
00000eb0  22 2c 2c 77 69 6d 70 62  6c 6f 63 6b 0d 06 ae 32  |",,wimpblock...2|
00000ec0  c9 20 33 3a c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |. 3:.. "Wimp_Clo|
00000ed0  73 65 57 69 6e 64 6f 77  22 2c 2c 77 69 6d 70 62  |seWindow",,wimpb|
00000ee0  6c 6f 63 6b 3a 66 69 6e  69 73 68 25 3d b9 0d 06  |lock:finish%=...|
00000ef0  b8 0f c9 20 36 3a f2 62  75 74 74 6f 6e 0d 06 c2  |... 6:.button...|
00000f00  0d c9 20 37 3a f2 73 61  76 65 0d 06 cc 12 c9 20  |.. 7:.save..... |
00000f10  39 3a f2 6d 65 6e 75 73  65 6c 65 63 0d 06 d6 14  |9:.menuselec....|
00000f20  c9 20 31 37 2c 31 38 3a  f2 6d 65 73 73 61 67 65  |. 17,18:.message|
00000f30  0d 06 e0 05 cb 0d 06 ea  04 0d 06 f4 0f fd 20 66  |.............. f|
00000f40  69 6e 69 73 68 25 3d b9  0d 06 fe 04 0d 07 08 2d  |inish%=........-|
00000f50  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |.. "Wimp_CloseDo|
00000f60  77 6e 22 2c 74 61 73 6b  68 61 6e 64 6c 65 25 2c  |wn",taskhandle%,|
00000f70  26 34 42 35 33 34 31 35  34 0d 07 12 05 e0 0d 07  |&4B534154.......|
00000f80  1c 04 0d 07 26 0a dd f2  73 61 76 65 0d 07 30 19  |....&...save..0.|
00000f90  21 74 65 6d 70 62 6c 6f  63 6b 3d 77 69 6e 68 61  |!tempblock=winha|
00000fa0  6e 64 6c 65 25 0d 07 3a  19 74 65 6d 70 62 6c 6f  |ndle%..:.tempblo|
00000fb0  63 6b 21 34 3d 61 75 74  6f 62 75 74 68 25 0d 07  |ck!4=autobuth%..|
00000fc0  44 25 c8 99 20 22 57 69  6d 70 5f 47 65 74 49 63  |D%.. "Wimp_GetIc|
00000fd0  6f 6e 53 74 61 74 65 22  2c 2c 74 65 6d 70 62 6c  |onState",,tempbl|
00000fe0  6f 63 6b 0d 07 4e 3d e7  20 28 28 74 65 6d 70 62  |ock..N=. ((tempb|
00000ff0  6c 6f 63 6b 21 32 34 29  20 80 20 32 5e 32 31 29  |lock!24) . 2^21)|
00001000  20 3d 20 30 20 80 20 bb  28 24 28 73 69 7a 65 69  | = 0 . .($(sizei|
00001010  63 6f 6e 2b 38 29 29 3d  30 20 8c 20 ef 37 3a e1  |con+8))=0 . .7:.|
00001020  0d 07 58 3f e7 20 28 28  74 65 6d 70 62 6c 6f 63  |..X?. ((tempbloc|
00001030  6b 21 32 34 29 20 80 20  32 5e 32 31 29 20 3d 20  |k!24) . 2^21) = |
00001040  30 20 80 20 bb 28 24 28  73 69 7a 65 69 63 6f 6e  |0 . .($(sizeicon|
00001050  2b 38 29 29 3e 39 39 39  20 8c 20 ef 37 3a e1 0d  |+8))>999 . .7:..|
00001060  07 62 1a 66 73 69 7a 65  3d bb 28 24 28 73 69 7a  |.b.fsize=.($(siz|
00001070  65 69 63 6f 6e 2b 38 29  29 0d 07 6c 2c e7 20 28  |eicon+8))..l,. (|
00001080  28 74 65 6d 70 62 6c 6f  63 6b 21 32 34 29 20 80  |(tempblock!24) .|
00001090  20 32 5e 32 31 29 20 3c  3e 20 30 20 8c 20 66 73  | 2^21) <> 0 . fs|
000010a0  69 7a 65 3d 30 0d 07 76  20 e7 20 24 28 66 6f 6e  |ize=0..v . $(fon|
000010b0  74 6e 61 6d 65 62 6c 6b  2b 34 29 3d 22 22 20 8c  |tnameblk+4)="" .|
000010c0  20 ef 37 3a e1 0d 07 80  20 e7 20 24 28 66 69 6c  | .7:.... . $(fil|
000010d0  65 6e 61 6d 65 62 6c 6b  2b 34 29 3d 22 22 20 8c  |enameblk+4)="" .|
000010e0  20 ef 37 3a e1 0d 07 8a  04 0d 07 94 27 c8 99 20  | .7:........'.. |
000010f0  22 57 69 6d 70 5f 47 65  74 50 6f 69 6e 74 65 72  |"Wimp_GetPointer|
00001100  49 6e 66 6f 22 2c 2c 74  65 6d 70 62 6c 6f 63 6b  |Info",,tempblock|
00001110  0d 07 9e 1b 64 65 73 74  77 68 61 6e 64 25 3d 74  |....destwhand%=t|
00001120  65 6d 70 62 6c 6f 63 6b  21 31 32 0d 07 a8 1b 64  |empblock!12....d|
00001130  65 73 74 69 68 61 6e 64  25 3d 74 65 6d 70 62 6c  |estihand%=tempbl|
00001140  6f 63 6b 21 31 36 0d 07  b2 13 63 78 25 3d 74 65  |ock!16....cx%=te|
00001150  6d 70 62 6c 6f 63 6b 21  30 0d 07 bc 13 63 79 25  |mpblock!0....cy%|
00001160  3d 74 65 6d 70 62 6c 6f  63 6b 21 34 0d 07 c6 30  |=tempblock!4...0|
00001170  21 74 65 6d 70 62 6c 6f  63 6b 3d 34 2a 28 a8 28  |!tempblock=4*(.(|
00001180  a9 28 24 28 66 69 6c 65  6e 61 6d 65 62 6c 6b 2b  |.($(filenameblk+|
00001190  34 29 29 2f 34 29 2b 31  29 2b 34 34 0d 07 d0 12  |4))/4)+1)+44....|
000011a0  74 65 6d 70 62 6c 6f 63  6b 21 31 32 3d 30 0d 07  |tempblock!12=0..|
000011b0  da 12 74 65 6d 70 62 6c  6f 63 6b 21 31 36 3d 31  |..tempblock!16=1|
000011c0  0d 07 e4 1b 74 65 6d 70  62 6c 6f 63 6b 21 32 30  |....tempblock!20|
000011d0  3d 64 65 73 74 77 68 61  6e 64 25 0d 07 ee 1b 74  |=destwhand%....t|
000011e0  65 6d 70 62 6c 6f 63 6b  21 32 34 3d 64 65 73 74  |empblock!24=dest|
000011f0  69 68 61 6e 64 25 0d 07  f8 14 74 65 6d 70 62 6c  |ihand%....tempbl|
00001200  6f 63 6b 21 32 38 3d 63  78 25 0d 08 02 14 74 65  |ock!28=cx%....te|
00001210  6d 70 62 6c 6f 63 6b 21  33 32 3d 63 79 25 0d 08  |mpblock!32=cy%..|
00001220  0c 18 74 65 6d 70 62 6c  6f 63 6b 21 33 36 3d 36  |..tempblock!36=6|
00001230  34 2a 31 30 32 34 0d 08  16 15 74 65 6d 70 62 6c  |4*1024....tempbl|
00001240  6f 63 6b 21 34 30 3d 26  41 46 46 0d 08 20 21 24  |ock!40=&AFF.. !$|
00001250  28 74 65 6d 70 62 6c 6f  63 6b 2b 34 34 29 3d 24  |(tempblock+44)=$|
00001260  28 73 61 76 65 62 6c 6b  2b 31 36 29 0d 08 2a 3c  |(saveblk+16)..*<|
00001270  c8 99 20 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |.. "Wimp_SendMes|
00001280  73 61 67 65 22 2c 31 37  2c 74 65 6d 70 62 6c 6f  |sage",17,tempblo|
00001290  63 6b 2c 64 65 73 74 77  68 61 6e 64 25 2c 64 65  |ck,destwhand%,de|
000012a0  73 74 69 68 61 6e 64 25  0d 08 34 04 0d 08 3e 05  |stihand%..4...>.|
000012b0  e1 0d 08 48 04 0d 08 52  0f dd f2 6d 65 6e 75 73  |...H...R...menus|
000012c0  65 6c 65 63 0d 08 5c 16  6d 25 3d 28 21 77 69 6d  |elec..\.m%=(!wim|
000012d0  70 62 6c 6f 63 6b 29 2a  34 30 0d 08 66 24 24 28  |pblock)*40..f$$(|
000012e0  66 6f 6e 74 6e 61 6d 65  62 6c 6b 2b 34 29 3d 24  |fontnameblk+4)=$|
000012f0  28 66 6f 6e 74 62 6c 6f  63 6b 2b 6d 25 29 0d 08  |(fontblock+m%)..|
00001300  70 19 21 74 65 6d 70 62  6c 6f 63 6b 3d 77 69 6e  |p.!tempblock=win|
00001310  68 61 6e 64 6c 65 25 0d  08 7a 18 74 65 6d 70 62  |handle%..z.tempb|
00001320  6c 6f 63 6b 21 34 3d 66  74 6e 61 6d 65 68 25 0d  |lock!4=ftnameh%.|
00001330  08 84 25 c8 99 20 22 57  69 6d 70 5f 47 65 74 49  |..%.. "Wimp_GetI|
00001340  63 6f 6e 53 74 61 74 65  22 2c 2c 74 65 6d 70 62  |conState",,tempb|
00001350  6c 6f 63 6b 0d 08 8e 25  c8 99 20 22 57 69 6d 70  |lock...%.. "Wimp|
00001360  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00001370  74 65 6d 70 62 6c 6f 63  6b 0d 08 98 1b c8 99 22  |tempblock......"|
00001380  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00001390  2c 2c 2d 31 0d 08 a2 05  e1 0d 08 ac 04 0d 08 b6  |,,-1............|
000013a0  0c dd f2 62 75 74 74 6f  6e 0d 08 c0 27 f4 20 42  |...button...'. B|
000013b0  75 74 74 6f 6e 20 70 72  65 73 73 65 64 2c 20 77  |utton pressed, w|
000013c0  68 61 74 20 64 6f 20 49  20 64 6f 20 6e 6f 77 3f  |hat do I do now?|
000013d0  0d 08 ca 1d e7 20 77 69  6d 70 62 6c 6f 63 6b 21  |..... wimpblock!|
000013e0  38 3d 32 20 8c 20 f2 6d  65 6e 75 3a e1 0d 08 d4  |8=2 . .menu:....|
000013f0  1e e7 20 77 69 6d 70 62  6c 6f 63 6b 21 31 36 3d  |.. wimpblock!16=|
00001400  61 75 74 6f 62 75 74 68  25 20 8c 0d 08 de 1a 21  |autobuth% .....!|
00001410  67 65 6e 62 6c 6f 63 6b  3d 77 69 6d 70 62 6c 6f  |genblock=wimpblo|
00001420  63 6b 21 31 32 0d 08 e8  15 67 65 6e 62 6c 6f 63  |ck!12....genbloc|
00001430  6b 21 34 3d 73 69 7a 65  68 25 0d 08 f2 04 0d 08  |k!4=sizeh%......|
00001440  fc 19 21 74 65 6d 70 62  6c 6f 63 6b 3d 77 69 6e  |..!tempblock=win|
00001450  68 61 6e 64 6c 65 25 0d  09 06 19 74 65 6d 70 62  |handle%....tempb|
00001460  6c 6f 63 6b 21 34 3d 61  75 74 6f 62 75 74 68 25  |lock!4=autobuth%|
00001470  0d 09 10 25 c8 99 20 22  57 69 6d 70 5f 47 65 74  |...%.. "Wimp_Get|
00001480  49 63 6f 6e 53 74 61 74  65 22 2c 2c 74 65 6d 70  |IconState",,temp|
00001490  62 6c 6f 63 6b 0d 09 1a  04 0d 09 24 29 67 65 6e  |block......$)gen|
000014a0  62 6c 6f 63 6b 21 38 3d  28 28 74 65 6d 70 62 6c  |block!8=((tempbl|
000014b0  6f 63 6b 21 32 34 29 20  80 20 32 5e 32 31 29 3c  |ock!24) . 2^21)<|
000014c0  3c 31 0d 09 2e 14 67 65  6e 62 6c 6f 63 6b 21 31  |<1....genblock!1|
000014d0  32 3d 32 5e 32 32 0d 09  38 24 c8 99 20 22 57 69  |2=2^22..8$.. "Wi|
000014e0  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
000014f0  2c 2c 67 65 6e 62 6c 6f  63 6b 0d 09 42 3c e7 20  |,,genblock..B<. |
00001500  28 28 74 65 6d 70 62 6c  6f 63 6b 21 32 34 29 20  |((tempblock!24) |
00001510  80 20 32 5e 32 31 29 20  8c 20 c8 99 22 57 69 6d  |. 2^21) . .."Wim|
00001520  70 5f 53 65 74 43 61 72  65 74 50 6f 73 69 74 69  |p_SetCaretPositi|
00001530  6f 6e 22 2c 2d 31 0d 09  4c 05 cd 0d 09 56 2f e7  |on",-1..L....V/.|
00001540  20 77 69 6d 70 62 6c 6f  63 6b 21 31 36 3d 73 73  | wimpblock!16=ss|
00001550  70 72 69 74 65 68 25 20  80 20 77 69 6d 70 62 6c  |priteh% . wimpbl|
00001560  6f 63 6b 21 38 3e 31 35  20 8c 0d 09 60 1b 21 74  |ock!8>15 ...`.!t|
00001570  65 6d 70 62 6c 6f 63 6b  3d 77 69 6d 70 62 6c 6f  |empblock=wimpblo|
00001580  63 6b 21 31 32 0d 09 6a  1c 74 65 6d 70 62 6c 6f  |ck!12..j.tempblo|
00001590  63 6b 21 34 3d 77 69 6d  70 62 6c 6f 63 6b 21 31  |ck!4=wimpblock!1|
000015a0  36 0d 09 74 1a 21 67 65  6e 62 6c 6f 63 6b 3d 77  |6..t.!genblock=w|
000015b0  69 6d 70 62 6c 6f 63 6b  21 31 32 0d 09 7e 25 c8  |impblock!12..~%.|
000015c0  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
000015d0  74 61 74 65 22 2c 2c 74  65 6d 70 62 6c 6f 63 6b  |tate",,tempblock|
000015e0  0d 09 88 26 c8 99 20 22  57 69 6d 70 5f 47 65 74  |...&.. "Wimp_Get|
000015f0  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 67 65  |WindowState",,ge|
00001600  6e 62 6c 6f 63 6b 0d 09  92 12 74 65 6d 70 62 6c  |nblock....tempbl|
00001610  6f 63 6b 21 33 36 3d 30  0d 09 9c 12 74 65 6d 70  |ock!36=0....temp|
00001620  62 6c 6f 63 6b 21 33 32  3d 30 0d 09 a6 12 74 65  |block!32=0....te|
00001630  6d 70 62 6c 6f 63 6b 21  32 38 3d 30 0d 09 b0 12  |mpblock!28=0....|
00001640  74 65 6d 70 62 6c 6f 63  6b 21 32 34 3d 30 0d 09  |tempblock!24=0..|
00001650  ba 2b 74 65 6d 70 62 6c  6f 63 6b 21 32 30 3d 74  |.+tempblock!20=t|
00001660  65 6d 70 62 6c 6f 63 6b  21 32 34 2b 67 65 6e 62  |empblock!24+genb|
00001670  6c 6f 63 6b 21 38 2b 37  30 0d 09 c4 28 74 65 6d  |lock!8+70...(tem|
00001680  70 62 6c 6f 63 6b 21 31  36 3d 74 65 6d 70 62 6c  |pblock!16=tempbl|
00001690  6f 63 6b 21 31 36 2b 67  65 6e 62 6c 6f 63 6b 21  |ock!16+genblock!|
000016a0  34 0d 09 ce 2b 74 65 6d  70 62 6c 6f 63 6b 21 31  |4...+tempblock!1|
000016b0  32 3d 74 65 6d 70 62 6c  6f 63 6b 21 31 32 2b 67  |2=tempblock!12+g|
000016c0  65 6e 62 6c 6f 63 6b 21  38 2b 37 30 0d 09 d8 26  |enblock!8+70...&|
000016d0  74 65 6d 70 62 6c 6f 63  6b 21 38 3d 74 65 6d 70  |tempblock!8=temp|
000016e0  62 6c 6f 63 6b 21 38 2b  67 65 6e 62 6c 6f 63 6b  |block!8+genblock|
000016f0  21 34 0d 09 e2 1b 21 74  65 6d 70 62 6c 6f 63 6b  |!4....!tempblock|
00001700  3d 77 69 6d 70 62 6c 6f  63 6b 21 31 32 0d 09 ec  |=wimpblock!12...|
00001710  11 74 65 6d 70 62 6c 6f  63 6b 21 34 3d 35 0d 09  |.tempblock!4=5..|
00001720  f6 04 0d 0a 00 20 c8 99  20 22 57 69 6d 70 5f 44  |..... .. "Wimp_D|
00001730  72 61 67 42 6f 78 22 2c  2c 74 65 6d 70 62 6c 6f  |ragBox",,tempblo|
00001740  63 6b 0d 0a 0a 05 cd 0d  0a 14 05 e1 0d 0a 1e 04  |ck..............|
00001750  0d 0a 28 0b dd f2 65 72  72 6f 72 0d 0a 32 0d 2a  |..(...error..2.*|
00001760  66 78 20 32 30 30 2c 31  0d 0a 3c 07 d9 23 30 0d  |fx 200,1..<..#0.|
00001770  0a 46 0d 21 65 72 72 62  6c 6b 3d 9f 0d 0a 50 3c  |.F.!errblk=...P<|
00001780  24 28 65 72 72 62 6c 6b  2b 34 29 3d f6 24 2b 22  |$(errblk+4)=.$+"|
00001790  20 28 69 6e 74 65 72 6e  61 6c 20 65 72 72 6f 72  | (internal error|
000017a0  20 63 6f 64 65 20 22 2b  c3 28 9e 2f 31 30 29 2b  | code "+.(./10)+|
000017b0  22 29 22 2b bd 28 30 29  0d 0a 5a 2b c8 99 20 22  |")"+.(0)..Z+.. "|
000017c0  57 69 6d 70 5f 52 65 70  6f 72 74 45 72 72 6f 72  |Wimp_ReportError|
000017d0  22 2c 65 72 72 62 6c 6b  2c 31 2c 22 53 70 69 72  |",errblk,1,"Spir|
000017e0  61 6c 22 0d 0a 64 2d c8  99 20 22 57 69 6d 70 5f  |al"..d-.. "Wimp_|
000017f0  43 6c 6f 73 65 44 6f 77  6e 22 2c 74 61 73 6b 68  |CloseDown",taskh|
00001800  61 6e 64 6c 65 25 2c 26  34 42 35 33 34 31 35 34  |andle%,&4B534154|
00001810  0d 0a 6e 05 e0 0d 0a 78  04 0d 0a 82 15 dd f2 74  |..n....x.......t|
00001820  69 63 6f 6e 28 58 25 2c  59 25 2c 41 24 29 0d 0a  |icon(X%,Y%,A$)..|
00001830  8c 04 0d 0a 96 19 21 69  63 6f 6e 62 6c 6f 63 6b  |......!iconblock|
00001840  3d 77 69 6e 68 61 6e 64  6c 65 25 0d 0a a0 12 69  |=winhandle%....i|
00001850  63 6f 6e 62 6c 6f 63 6b  21 34 3d 58 25 0d 0a aa  |conblock!4=X%...|
00001860  12 69 63 6f 6e 62 6c 6f  63 6b 21 38 3d 59 25 0d  |.iconblock!8=Y%.|
00001870  0a b4 1c 69 63 6f 6e 62  6c 6f 63 6b 21 31 32 3d  |...iconblock!12=|
00001880  58 25 2b a9 28 41 24 29  2a 31 37 0d 0a be 16 69  |X%+.(A$)*17....i|
00001890  63 6f 6e 62 6c 6f 63 6b  21 31 36 3d 59 25 2b 34  |conblock!16=Y%+4|
000018a0  38 0d 0a c8 32 69 63 6f  6e 62 6c 6f 63 6b 21 32  |8...2iconblock!2|
000018b0  30 3d 25 30 30 30 31 30  31 31 31 30 30 30 30 30  |0=%0001011100000|
000018c0  30 30 30 30 30 30 30 30  30 30 30 30 30 30 31 30  |0000000000000010|
000018d0  30 30 31 0d 0a d2 16 24  28 32 34 2b 69 63 6f 6e  |001....$(24+icon|
000018e0  62 6c 6f 63 6b 29 3d 41  24 0d 0a dc 04 0d 0a e6  |block)=A$.......|
000018f0  23 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |#.. "Wimp_Create|
00001900  49 63 6f 6e 22 2c 2c 69  63 6f 6e 62 6c 6f 63 6b  |Icon",,iconblock|
00001910  0d 0a f0 04 0d 0a fa 05  e1 0d 0b 04 04 0d 0b 0e  |................|
00001920  0d dd f2 6d 65 73 73 61  67 65 0d 0b 18 22 e7 20  |...message...". |
00001930  77 69 6d 70 62 6c 6f 63  6b 21 31 36 3d 30 20 8c  |wimpblock!16=0 .|
00001940  20 66 69 6e 69 73 68 25  3d b9 3a e1 0d 0b 22 16  | finish%=.:...".|
00001950  e7 20 77 69 6d 70 62 6c  6f 63 6b 21 31 36 3d 33  |. wimpblock!16=3|
00001960  20 8c 0d 0b 2c 10 6c 6f  61 64 66 69 6c 65 24 3d  | ...,.loadfile$=|
00001970  22 22 0d 0b 36 09 41 25  3d 34 34 0d 0b 40 04 0d  |""..6.A%=44..@..|
00001980  0b 4a 16 c8 95 20 77 69  6d 70 62 6c 6f 63 6b 21  |.J... wimpblock!|
00001990  41 25 3c 3e 30 0d 0b 54  1e 6c 6f 61 64 66 69 6c  |A%<>0..T.loadfil|
000019a0  65 24 2b 3d bd 28 77 69  6d 70 62 6c 6f 63 6b 3f  |e$+=.(wimpblock?|
000019b0  41 25 29 0d 0b 5e 0b 41  25 3d 41 25 2b 31 0d 0b  |A%)..^.A%=A%+1..|
000019c0  68 05 ce 0d 0b 72 04 0d  0b 7c 12 77 69 6d 70 62  |h....r...|.wimpb|
000019d0  6c 6f 63 6b 21 31 36 3d  34 0d 0b 86 3c c8 99 20  |lock!16=4...<.. |
000019e0  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
000019f0  65 22 2c 72 65 61 73 6f  6e 63 6f 64 65 25 2c 77  |e",reasoncode%,w|
00001a00  69 6d 70 62 6c 6f 63 6b  2c 77 69 6d 70 62 6c 6f  |impblock,wimpblo|
00001a10  63 6b 21 32 30 0d 0b 90  04 0d 0b 9a 1e 24 28 66  |ck!20........$(f|
00001a20  69 6c 65 6e 61 6d 65 62  6c 6b 2b 34 29 3d 6c 6f  |ilenameblk+4)=lo|
00001a30  61 64 66 69 6c 65 24 0d  0b a4 04 0d 0b ae 19 21  |adfile$........!|
00001a40  74 65 6d 70 62 6c 6f 63  6b 3d 77 69 6e 68 61 6e  |tempblock=winhan|
00001a50  64 6c 65 25 0d 0b b8 17  74 65 6d 70 62 6c 6f 63  |dle%....tempbloc|
00001a60  6b 21 34 3d 66 6e 61 6d  65 68 25 0d 0b c2 11 74  |k!4=fnameh%....t|
00001a70  65 6d 70 62 6c 6f 63 6b  21 38 3d 30 0d 0b cc 12  |empblock!8=0....|
00001a80  74 65 6d 70 62 6c 6f 63  6b 21 31 32 3d 30 0d 0b  |tempblock!12=0..|
00001a90  d6 25 c8 99 20 22 57 69  6d 70 5f 53 65 74 49 63  |.%.. "Wimp_SetIc|
00001aa0  6f 6e 53 74 61 74 65 22  2c 2c 74 65 6d 70 62 6c  |onState",,tempbl|
00001ab0  6f 63 6b 0d 0b e0 04 0d  0b ea 05 cd 0d 0b f4 04  |ock.............|
00001ac0  0d 0b fe 16 e7 20 77 69  6d 70 62 6c 6f 63 6b 21  |..... wimpblock!|
00001ad0  31 36 3d 32 20 8c 0d 0c  08 23 73 66 24 3d a4 70  |16=2 ....#sf$=.p|
00001ae0  61 72 73 65 6e 75 6c 6c  73 74 72 28 77 69 6d 70  |arsenullstr(wimp|
00001af0  62 6c 6f 63 6b 2b 34 34  29 0d 0c 12 24 66 6e 24  |block+44)...$fn$|
00001b00  3d a4 70 61 72 73 65 6e  75 6c 6c 73 74 72 28 66  |=.parsenullstr(f|
00001b10  69 6c 65 6e 61 6d 65 62  6c 6b 2b 34 29 0d 0c 1c  |ilenameblk+4)...|
00001b20  0b f2 73 70 69 72 61 6c  0d 0c 26 12 77 69 6d 70  |..spiral..&.wimp|
00001b30  62 6c 6f 63 6b 21 31 36  3d 33 0d 0c 30 40 c8 99  |block!16=3..0@..|
00001b40  20 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  | "Wimp_SendMessa|
00001b50  67 65 22 2c 31 37 2c 77  69 6d 70 62 6c 6f 63 6b  |ge",17,wimpblock|
00001b60  2c 77 69 6d 70 62 6c 6f  63 6b 21 32 30 2c 77 69  |,wimpblock!20,wi|
00001b70  6d 70 62 6c 6f 63 6b 21  32 34 0d 0c 3a 05 cd 0d  |mpblock!24..:...|
00001b80  0c 44 04 0d 0c 4e 05 e1  0d 0c 58 04 0d 0c 62 0a  |.D...N....X...b.|
00001b90  dd f2 6d 65 6e 75 0d 0c  6c 27 c8 99 20 22 57 69  |..menu..l'.. "Wi|
00001ba0  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00001bb0  6f 22 2c 2c 74 65 6d 70  62 6c 6f 63 6b 0d 0c 76  |o",,tempblock..v|
00001bc0  04 0d 0c 80 13 63 78 25  3d 74 65 6d 70 62 6c 6f  |.....cx%=tempblo|
00001bd0  63 6b 21 30 0d 0c 8a 13  63 79 25 3d 74 65 6d 70  |ck!0....cy%=temp|
00001be0  62 6c 6f 63 6b 21 34 0d  0c 94 30 c8 99 22 57 69  |block!4...0.."Wi|
00001bf0  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00001c00  6d 65 6e 75 62 6c 6f 63  6b 2c 63 78 25 2d 36 34  |menublock,cx%-64|
00001c10  2c 63 79 25 2b 33 32 0d  0c 9e 05 e1 0d 0c a8 04  |,cy%+32.........|
00001c20  0d 0c b2 0e dd f2 67 65  74 66 6f 6e 74 73 0d 0c  |......getfonts..|
00001c30  bc 1d 24 6d 65 6e 75 62  6c 6f 63 6b 3d 22 53 70  |..$menublock="Sp|
00001c40  69 72 61 6c 20 46 6f 6e  74 73 22 0d 0c c6 12 6d  |iral Fonts"....m|
00001c50  65 6e 75 62 6c 6f 63 6b  3f 31 32 3d 37 0d 0c d0  |enublock?12=7...|
00001c60  12 6d 65 6e 75 62 6c 6f  63 6b 3f 31 33 3d 32 0d  |.menublock?13=2.|
00001c70  0c da 12 6d 65 6e 75 62  6c 6f 63 6b 3f 31 34 3d  |...menublock?14=|
00001c80  37 0d 0c e4 12 6d 65 6e  75 62 6c 6f 63 6b 3f 31  |7....menublock?1|
00001c90  35 3d 30 0d 0c ee 13 6d  65 6e 75 62 6c 6f 63 6b  |5=0....menublock|
00001ca0  21 32 30 3d 34 30 0d 0c  f8 12 6d 65 6e 75 62 6c  |!20=40....menubl|
00001cb0  6f 63 6b 21 32 34 3d 30  0d 0d 02 0a 6d 6f 25 3d  |ock!24=0....mo%=|
00001cc0  32 38 0d 0d 0c 0c 6f 66  66 73 65 74 3d 30 0d 0d  |28....offset=0..|
00001cd0  16 0a 6e 66 63 25 3d 30  0d 0d 20 09 6d 6c 25 3d  |..nfc%=0.. .ml%=|
00001ce0  30 0d 0d 2a 05 f5 0d 0d  34 10 e7 20 6e 66 63 25  |0..*....4.. nfc%|
00001cf0  3c 3e 2d 31 20 8c 0d 0d  3e 13 6d 65 6e 75 62 6c  |<>-1 ...>.menubl|
00001d00  6f 63 6b 21 6d 6f 25 3d  30 0d 0d 48 0d 6d 6f 25  |ock!mo%=0..H.mo%|
00001d10  3d 6d 6f 25 2b 34 0d 0d  52 14 6d 65 6e 75 62 6c  |=mo%+4..R.menubl|
00001d20  6f 63 6b 21 6d 6f 25 3d  2d 31 0d 0d 5c 0d 6d 6f  |ock!mo%=-1..\.mo|
00001d30  25 3d 6d 6f 25 2b 34 0d  0d 66 2e 6d 65 6e 75 62  |%=mo%+4..f.menub|
00001d40  6c 6f 63 6b 21 6d 6f 25  3d 25 31 31 31 30 30 30  |lock!mo%=%111000|
00001d50  30 30 30 30 30 31 30 31  31 30 30 30 31 30 30 30  |0000010110001000|
00001d60  31 30 30 30 31 0d 0d 70  0d 6d 6f 25 3d 6d 6f 25  |10001..p.mo%=mo%|
00001d70  2b 34 0d 0d 7a 22 6d 65  6e 75 62 6c 6f 63 6b 21  |+4..z"menublock!|
00001d80  6d 6f 25 3d 66 6f 6e 74  62 6c 6f 63 6b 2b 6f 66  |mo%=fontblock+of|
00001d90  66 73 65 74 0d 0d 84 0d  6d 6f 25 3d 6d 6f 25 2b  |fset....mo%=mo%+|
00001da0  34 0d 0d 8e 13 6d 65 6e  75 62 6c 6f 63 6b 21 6d  |4....menublock!m|
00001db0  6f 25 3d 30 0d 0d 98 0d  6d 6f 25 3d 6d 6f 25 2b  |o%=0....mo%=mo%+|
00001dc0  34 0d 0d a2 14 6d 65 6e  75 62 6c 6f 63 6b 21 6d  |4....menublock!m|
00001dd0  6f 25 3d 33 39 0d 0d ac  0d 6d 6f 25 3d 6d 6f 25  |o%=39....mo%=mo%|
00001de0  2b 34 0d 0d b6 05 cd 0d  0d c0 0c 66 63 25 3d 6e  |+4.........fc%=n|
00001df0  66 63 25 0d 0d ca 39 c8  99 20 22 46 6f 6e 74 5f  |fc%...9.. "Font_|
00001e00  4c 69 73 74 46 6f 6e 74  73 22 2c 2c 66 6f 6e 74  |ListFonts",,font|
00001e10  62 6c 6f 63 6b 2b 6f 66  66 73 65 74 2c 66 63 25  |block+offset,fc%|
00001e20  2c 2d 31 20 b8 20 2c 2c  6e 66 63 25 0d 0d d4 10  |,-1 . ,,nfc%....|
00001e30  e7 20 6e 66 63 25 3c 3e  2d 31 20 8c 0d 0d de 1d  |. nfc%<>-1 .....|
00001e40  6c 25 3d a9 28 24 28 66  6f 6e 74 62 6c 6f 63 6b  |l%=.($(fontblock|
00001e50  2b 6f 66 66 73 65 74 29  29 0d 0d e8 1d e7 20 6c  |+offset))..... l|
00001e60  25 3e 6d 6c 25 20 80 20  6c 25 3c 34 30 20 8c 20  |%>ml% . l%<40 . |
00001e70  6d 6c 25 3d 6c 25 0d 0d  f2 14 6f 66 66 73 65 74  |ml%=l%....offset|
00001e80  3d 6f 66 66 73 65 74 2b  34 30 0d 0d fc 05 cd 0d  |=offset+40......|
00001e90  0e 06 0d fd 20 6e 66 63  25 3d 2d 31 0d 0e 10 14  |.... nfc%=-1....|
00001ea0  6d 65 6e 75 62 6c 6f 63  6b 21 31 36 3d 6d 6c 25  |menublock!16=ml%|
00001eb0  0d 0e 1a 11 6d 6f 25 3d  6d 6f 25 2d 32 34 2d 32  |....mo%=mo%-24-2|
00001ec0  34 0d 0e 24 15 6d 65 6e  75 62 6c 6f 63 6b 21 6d  |4..$.menublock!m|
00001ed0  6f 25 3d 31 32 38 0d 0e  2e 05 e1 0d 0e 38 04 0d  |o%=128.......8..|
00001ee0  0e 42 16 dd a4 70 61 72  73 65 6e 75 6c 6c 73 74  |.B...parsenullst|
00001ef0  72 28 56 25 29 0d 0e 4c  08 ea 20 41 24 0d 0e 56  |r(V%)..L.. A$..V|
00001f00  09 41 24 3d 22 22 0d 0e  60 0d c8 95 20 3f 56 25  |.A$=""..`... ?V%|
00001f10  3e 33 31 0d 0e 6a 10 41  24 3d 41 24 2b bd 28 3f  |>31..j.A$=A$+.(?|
00001f20  56 25 29 0d 0e 74 0b 56  25 3d 56 25 2b 31 0d 0e  |V%)..t.V%=V%+1..|
00001f30  7e 05 ce 0d 0e 88 07 3d  41 24 0d 0e 92 04 0d 0e  |~......=A$......|
00001f40  9c 0c dd f2 73 70 69 72  61 6c 0d 0e a6 0f 2a 66  |....spiral....*f|
00001f50  78 20 32 32 39 2c 30 2c  30 0d 0e b0 05 f7 0d 0e  |x 229,0,0.......|
00001f60  ba 15 20 c8 99 22 48 6f  75 72 67 6c 61 73 73 5f  |.. .."Hourglass_|
00001f70  4f 6e 22 0d 0e c4 09 20  63 25 3d 30 0d 0e ce 10  |On".... c%=0....|
00001f80  20 de 20 73 70 61 63 65  20 26 35 34 0d 0e d8 0e  | . space &54....|
00001f90  20 59 25 3d ae 28 73 66  24 29 0d 0e e2 0f 20 e3  | Y%=.(sf$).... .|
00001fa0  20 58 3d 31 20 b8 20 34  34 0d 0e ec 0b 20 20 20  | X=1 . 44....   |
00001fb0  f3 20 58 25 0d 0e f6 0e  20 20 20 d5 23 59 25 2c  |. X%....   .#Y%,|
00001fc0  58 25 0d 0f 00 06 20 ed  0d 0f 0a 1b 20 66 6f 6e  |X%.... ..... fon|
00001fd0  74 24 3d 24 28 66 6f 6e  74 6e 61 6d 65 62 6c 6b  |t$=$(fontnameblk|
00001fe0  2b 34 29 0d 0f 14 17 20  66 6c 25 3d 28 a9 28 66  |+4).... fl%=(.(f|
00001ff0  6f 6e 74 24 29 2b 31 29  2f 34 0d 0f 1e 0e 20 66  |ont$)+1)/4.... f|
00002000  6c 25 3d 66 6c 25 2b 31  0d 0f 28 0e 20 66 6c 25  |l%=fl%+1..(. fl%|
00002010  3d 66 6c 25 2a 34 0d 0f  32 0f 20 d5 23 59 25 2c  |=fl%*4..2. .#Y%,|
00002020  66 6c 25 2b 38 0d 0f 3c  0b 20 d5 23 59 25 2c 30  |fl%+8..<. .#Y%,0|
00002030  0d 0f 46 0b 20 d5 23 59  25 2c 30 0d 0f 50 0b 20  |..F. .#Y%,0..P. |
00002040  d5 23 59 25 2c 30 0d 0f  5a 0b 20 d5 23 59 25 2c  |.#Y%,0..Z. .#Y%,|
00002050  31 0d 0f 64 11 20 e3 20  49 25 3d 32 20 b8 20 66  |1..d. . I%=2 . f|
00002060  6c 25 0d 0f 6e 1b 20 20  20 42 25 3d 97 28 c1 66  |l%..n.   B%=.(.f|
00002070  6f 6e 74 24 2c 49 25 2d  31 2c 31 29 29 0d 0f 78  |ont$,I%-1,1))..x|
00002080  15 20 20 20 e7 20 42 25  3d 2d 31 20 8c 20 42 25  |.   . B%=-1 . B%|
00002090  3d 30 0d 0f 82 0e 20 20  20 d5 23 59 25 2c 42 25  |=0....   .#Y%,B%|
000020a0  0d 0f 8c 06 20 ed 0d 0f  96 26 20 f1 3a e7 20 66  |.... ....& .:. f|
000020b0  73 69 7a 65 3d 30 20 8c  20 66 73 69 7a 65 3d a4  |size=0 . fsize=.|
000020c0  66 69 6e 64 66 6f 6e 74  73 69 7a 65 0d 0f a0 06  |findfontsize....|
000020d0  20 f1 0d 0f aa 38 20 c8  99 20 22 46 6f 6e 74 5f  | ....8 .. "Font_|
000020e0  46 69 6e 64 46 6f 6e 74  22 2c 2c 66 6f 6e 74 24  |FindFont",,font$|
000020f0  2c 66 73 69 7a 65 2a 31  36 2c 66 73 69 7a 65 2a  |,fsize*16,fsize*|
00002100  31 36 2c 30 2c 30 20 b8  20 48 0d 0f b4 0e 20 58  |16,0,0 . H.... X|
00002110  25 3d 8e 28 66 6e 24 29  0d 0f be 0e 20 21 73 70  |%=.(fn$).... !sp|
00002120  61 63 65 3d 26 43 0d 0f  c8 0f 20 73 70 61 63 65  |ace=&C.... space|
00002130  21 34 3d 38 34 0d 0f d2  0e 20 73 70 61 63 65 21  |!4=84.... space!|
00002140  38 3d 30 0d 0f dc 0f 20  73 70 61 63 65 21 31 32  |8=0.... space!12|
00002150  3d 30 0d 0f e6 1b 20 73  70 61 63 65 21 31 36 3d  |=0.... space!16=|
00002160  36 34 30 2a 35 31 32 2b  31 35 30 30 30 0d 0f f0  |640*512+15000...|
00002170  1b 20 73 70 61 63 65 21  32 30 3d 36 34 30 2a 35  |. space!20=640*5|
00002180  31 32 2b 35 30 30 30 30  0d 0f fa 0f 20 73 70 61  |12+50000.... spa|
00002190  63 65 21 34 30 3d 30 0d  10 04 0f 20 73 70 61 63  |ce!40=0.... spac|
000021a0  65 21 34 34 3d 30 0d 10  0e 0f 20 73 70 61 63 65  |e!44=0.... space|
000021b0  21 34 38 3d 30 0d 10 18  0f 20 73 70 61 63 65 21  |!48=0.... space!|
000021c0  35 32 3d 30 0d 10 22 17  20 73 70 61 63 65 21 35  |52=0..". space!5|
000021d0  36 3d 26 46 46 46 46 46  46 46 46 0d 10 2c 0f 20  |6=&FFFFFFFF..,. |
000021e0  73 70 61 63 65 21 36 30  3d 31 0d 10 36 19 20 73  |space!60=1..6. s|
000021f0  70 61 63 65 21 36 34 3d  66 73 69 7a 65 2a 34 30  |pace!64=fsize*40|
00002200  2a 31 36 0d 10 40 19 20  73 70 61 63 65 21 36 38  |*16..@. space!68|
00002210  3d 66 73 69 7a 65 2a 34  30 2a 31 36 0d 10 4a 12  |=fsize*40*16..J.|
00002220  20 47 3d 66 73 69 7a 65  2a 31 36 2a 34 30 0d 10  | G=fsize*16*40..|
00002230  54 14 20 42 42 25 3d 66  73 69 7a 65 2a 32 34 2a  |T. BB%=fsize*24*|
00002240  34 30 0d 10 5e 0f 20 53  31 3d 36 34 30 2a 32 35  |40..^. S1=640*25|
00002250  36 0d 10 68 0c 20 52 25  3d 53 31 2f 47 0d 10 72  |6..h. R%=S1/G..r|
00002260  0d 20 41 3d 52 25 2a 33  36 30 0d 10 7c 08 20 54  |. A=R%*360..|. T|
00002270  3d 41 0d 10 86 12 20 65  78 6d 3d 66 73 69 7a 65  |=A.... exm=fsize|
00002280  2a 34 30 30 0d 10 90 12  20 6d 69 78 3d 30 3a 6d  |*400.... mix=0:m|
00002290  61 78 3d 65 78 6d 0d 10  9a 06 20 f5 0d 10 a4 08  |ax=exm.... .....|
000022a0  20 20 20 f5 0d 10 ae 0f  20 20 20 20 20 43 3d 9a  |   .....     C=.|
000022b0  23 58 25 0d 10 b8 19 20  20 20 20 20 e7 20 43 3d  |#X%....     . C=|
000022c0  31 30 20 8c 20 54 3d 54  2d 33 36 30 0d 10 c2 14  |10 . T=T-360....|
000022d0  20 20 20 fd 20 43 3e 33  31 20 84 20 c5 23 58 25  |   . C>31 . .#X%|
000022e0  0d 10 cc 19 20 20 20 e7  20 ac 20 c5 23 58 25 20  |....   . . .#X% |
000022f0  80 20 43 3e 3d 33 32 20  8c 0d 10 d6 11 20 20 20  |. C>=32 .....   |
00002300  73 70 61 63 65 21 38 30  3d 43 0d 10 e0 2b 20 20  |space!80=C...+  |
00002310  20 c8 99 20 22 46 6f 6e  74 5f 43 68 61 72 42 42  | .. "Font_CharBB|
00002320  6f 78 22 2c 48 2c 43 2c  30 20 b8 20 2c 6d 69 78  |ox",H,C,0 . ,mix|
00002330  2c 2c 6d 61 78 0d 10 ea  13 20 20 20 65 78 3d 6d  |,,max....   ex=m|
00002340  61 78 2d 6d 69 78 2b 31  0d 10 f4 18 20 20 20 e7  |ax-mix+1....   .|
00002350  20 65 78 6d 3c 65 78 20  8c 20 65 78 6d 3d 65 78  | exm<ex . exm=ex|
00002360  0d 10 fe 0f 20 20 20 70  3d 65 78 2f 65 78 6d 0d  |....   p=ex/exm.|
00002370  11 08 29 20 20 20 e7 20  70 3c 30 2e 31 37 35 20  |..)   . p<0.175 |
00002380  65 78 3d 65 78 2b 28 31  2d 28 65 78 2f 65 78 6d  |ex=ex+(1-(ex/exm|
00002390  29 29 2f 35 2a 65 78 6d  0d 11 12 19 20 20 20 47  |))/5*exm....   G|
000023a0  3d 28 32 35 36 2a 65 78  2f 34 30 30 29 2a 31 2e  |=(256*ex/400)*1.|
000023b0  32 0d 11 1c 0b 20 20 20  53 3d 53 31 0d 11 26 0e  |2....   S=S1..&.|
000023c0  20 20 20 52 3d 53 2a 54  2f 41 0d 11 30 19 20 20  |   R=S*T/A..0.  |
000023d0  20 74 68 65 74 61 3d 32  2a b5 28 47 2f 28 32 2a  | theta=2*.(G/(2*|
000023e0  52 29 29 0d 11 3a 1c 20  20 20 74 68 65 74 61 3d  |R))..:.   theta=|
000023f0  74 68 65 74 61 2f 28 32  2a af 29 2a 33 36 30 0d  |theta/(2*.)*360.|
00002400  11 44 14 20 20 20 54 31  3d 39 30 2d 74 68 65 74  |.D.   T1=90-thet|
00002410  61 2f 32 0d 11 4e 11 20  20 20 54 31 3d 54 31 2b  |a/2..N.   T1=T1+|
00002420  54 2d 39 30 0d 11 58 17  20 20 20 58 3d 2d b5 28  |T-90..X.   X=-.(|
00002430  b2 28 54 29 29 2a 53 2a  54 2f 41 0d 11 62 16 20  |.(T))*S*T/A..b. |
00002440  20 20 59 3d 9b 28 b2 28  54 29 29 2a 53 2a 54 2f  |  Y=.(.(T))*S*T/|
00002450  41 0d 11 6c 18 20 20 20  58 3d 58 2b 36 34 30 2a  |A..l.   X=X+640*|
00002460  32 35 36 2b 31 35 30 30  30 0d 11 76 18 20 20 20  |256+15000..v.   |
00002470  59 3d 59 2b 36 34 30 2a  32 35 36 2b 35 30 30 30  |Y=Y+640*256+5000|
00002480  30 0d 11 80 11 20 20 20  73 70 61 63 65 21 37 32  |0....   space!72|
00002490  3d 58 0d 11 8a 11 20 20  20 73 70 61 63 65 21 37  |=X....   space!7|
000024a0  36 3d 59 0d 11 94 1e 20  20 20 73 70 61 63 65 21  |6=Y....   space!|
000024b0  32 34 3d 9b 28 b2 28 54  31 29 29 2a 36 35 35 33  |24=.(.(T1))*6553|
000024c0  36 0d 11 9e 1e 20 20 20  73 70 61 63 65 21 32 38  |6....   space!28|
000024d0  3d b5 28 b2 28 54 31 29  29 2a 36 35 35 33 36 0d  |=.(.(T1))*65536.|
000024e0  11 a8 1f 20 20 20 73 70  61 63 65 21 33 32 3d 2d  |...   space!32=-|
000024f0  b5 28 b2 28 54 31 29 29  2a 36 35 35 33 36 0d 11  |.(.(T1))*65536..|
00002500  b2 14 20 20 20 73 70 61  63 65 21 38 3d 58 2d 42  |..   space!8=X-B|
00002510  42 25 0d 11 bc 15 20 20  20 73 70 61 63 65 21 31  |B%....   space!1|
00002520  32 3d 59 2d 42 42 25 0d  11 c6 15 20 20 20 73 70  |2=Y-BB%....   sp|
00002530  61 63 65 21 31 36 3d 58  2b 42 42 25 0d 11 d0 15  |ace!16=X+BB%....|
00002540  20 20 20 73 70 61 63 65  21 32 30 3d 59 2b 42 42  |   space!20=Y+BB|
00002550  25 0d 11 da 1e 20 20 20  73 70 61 63 65 21 33 36  |%....   space!36|
00002560  3d 9b 28 b2 28 54 31 29  29 2a 36 35 35 33 36 0d  |=.(.(T1))*65536.|
00002570  11 e4 10 20 20 20 54 3d  54 2d 74 68 65 74 61 0d  |...   T=T-theta.|
00002580  11 ee 11 20 20 20 e3 20  51 3d 30 20 b8 20 38 33  |...   . Q=0 . 83|
00002590  0d 11 f8 15 20 20 20 20  20 d5 23 59 25 2c 73 70  |....     .#Y%,sp|
000025a0  61 63 65 21 51 0d 12 02  08 20 20 20 ed 0d 12 0c  |ace!Q....   ....|
000025b0  0c 20 20 20 63 3d 63 2b  31 0d 12 16 06 20 cd 0d  |.   c=c+1.... ..|
000025c0  12 20 13 20 fd 20 c5 23  58 25 20 84 20 54 3c 31  |. . . .#X% . T<1|
000025d0  38 30 0d 12 2a 09 20 d9  23 59 25 0d 12 34 19 20  |80..*. .#Y%..4. |
000025e0  c8 99 20 22 46 6f 6e 74  5f 4c 6f 73 65 46 6f 6e  |.. "Font_LoseFon|
000025f0  74 22 2c 48 0d 12 3e 09  20 d9 23 58 25 0d 12 48  |t",H..>. .#X%..H|
00002600  2f 20 dc 20 26 34 34 2c  26 37 32 2c 26 36 31 2c  |/ . &44,&72,&61,|
00002610  26 37 37 2c 26 43 39 2c  26 30 2c 26 30 2c 26 30  |&77,&C9,&0,&0,&0|
00002620  2c 26 30 2c 26 30 2c 26  30 2c 26 30 0d 12 52 2e  |,&0,&0,&0,&0..R.|
00002630  20 dc 20 38 33 2c 31 31  32 2c 31 30 35 2c 31 31  | . 83,112,105,11|
00002640  34 2c 39 37 2c 31 30 38  2c 33 32 2c 33 32 2c 33  |4,97,108,32,32,3|
00002650  32 2c 33 32 2c 33 32 2c  33 32 0d 12 5c 28 20 dc  |2,32,32,32..\( .|
00002660  20 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  | 0,0,0,0,0,0,0,0|
00002670  2c 30 2c 30 2c 30 2c 31  30 2c 30 2c 30 2c 30 2c  |,0,0,0,10,0,0,0,|
00002680  31 30 0d 12 66 0e 20 dc  20 30 2c 30 2c 30 2c 30  |10..f. . 0,0,0,0|
00002690  0d 12 70 22 20 ff 28 22  53 65 74 74 79 70 65 20  |..p" .("Settype |
000026a0  22 2b 73 66 24 2b 22 20  44 72 61 77 46 69 6c 65  |"+sf$+" DrawFile|
000026b0  22 29 0d 12 7a 15 c8 99  22 48 6f 75 72 67 6c 61  |")..z..."Hourgla|
000026c0  73 73 5f 4f 66 66 22 0d  12 84 0f 2a 66 78 20 32  |ss_Off"....*fx 2|
000026d0  32 39 2c 31 2c 30 0d 12  8e 06 20 e1 0d 12 98 13  |29,1,0.... .....|
000026e0  20 dd a4 66 69 6e 64 66  6f 6e 74 73 69 7a 65 0d  | ..findfontsize.|
000026f0  12 a2 09 20 44 25 3d 31  0d 12 ac 0c 20 ea 20 66  |... D%=1.... . f|
00002700  73 69 7a 65 0d 12 b6 0d  20 66 73 69 7a 65 3d 2d  |size.... fsize=-|
00002710  34 0d 12 c0 29 20 f5 3a  66 73 69 7a 65 3d 66 73  |4...) .:fsize=fs|
00002720  69 7a 65 2b 35 3a fd 20  a4 64 6f 73 70 69 72 28  |ize+5:. .dospir(|
00002730  66 73 69 7a 65 29 3c 31  38 30 0d 12 ca 2a 20 f5  |fsize)<180...* .|
00002740  3a 66 73 69 7a 65 3d 66  73 69 7a 65 2d 31 3a fd  |:fsize=fsize-1:.|
00002750  20 a4 64 6f 73 70 69 72  28 66 73 69 7a 65 29 3e  | .dospir(fsize)>|
00002760  3d 31 38 30 0d 12 d4 2b  20 f5 3a 66 73 69 7a 65  |=180...+ .:fsize|
00002770  3d 66 73 69 7a 65 2b 30  2e 32 3a fd 20 a4 64 6f  |=fsize+0.2:. .do|
00002780  73 70 69 72 28 66 73 69  7a 65 29 3c 31 38 30 0d  |spir(fsize)<180.|
00002790  12 de 2d 20 f5 3a 66 73  69 7a 65 3d 66 73 69 7a  |..- .:fsize=fsiz|
000027a0  65 2d 30 2e 30 35 3a fd  20 a4 64 6f 73 70 69 72  |e-0.05:. .dospir|
000027b0  28 66 73 69 7a 65 29 3e  3d 31 38 30 0d 12 e8 0b  |(fsize)>=180....|
000027c0  20 3d 66 73 69 7a 65 0d  12 f2 14 20 dd a4 64 6f  | =fsize.... ..do|
000027d0  73 70 69 72 28 66 73 69  7a 65 29 0d 12 fc 0e 20  |spir(fsize).... |
000027e0  58 25 3d 8e 28 66 6e 24  29 0d 13 06 38 20 c8 99  |X%=.(fn$)...8 ..|
000027f0  20 22 46 6f 6e 74 5f 46  69 6e 64 46 6f 6e 74 22  | "Font_FindFont"|
00002800  2c 2c 66 6f 6e 74 24 2c  66 73 69 7a 65 2a 31 36  |,,font$,fsize*16|
00002810  2c 66 73 69 7a 65 2a 31  36 2c 30 2c 30 20 b8 20  |,fsize*16,0,0 . |
00002820  48 0d 13 10 12 20 47 3d  66 73 69 7a 65 2a 31 36  |H.... G=fsize*16|
00002830  2a 34 30 0d 13 1a 0f 20  53 31 3d 36 34 30 2a 32  |*40.... S1=640*2|
00002840  35 36 0d 13 24 0c 20 52  25 3d 53 31 2f 47 0d 13  |56..$. R%=S1/G..|
00002850  2e 0d 20 41 3d 52 25 2a  33 36 30 0d 13 38 08 20  |.. A=R%*360..8. |
00002860  54 3d 41 0d 13 42 12 20  65 78 6d 3d 66 73 69 7a  |T=A..B. exm=fsiz|
00002870  65 2a 34 30 30 0d 13 4c  12 20 6d 69 78 3d 30 3a  |e*400..L. mix=0:|
00002880  6d 61 78 3d 65 78 6d 0d  13 56 09 20 43 25 3d 30  |max=exm..V. C%=0|
00002890  0d 13 60 06 20 f5 0d 13  6a 08 20 20 20 f5 0d 13  |..`. ...j.   ...|
000028a0  74 0f 20 20 20 20 20 43  3d 9a 23 58 25 0d 13 7e  |t.     C=.#X%..~|
000028b0  17 20 20 20 20 20 e7 20  43 3d 31 30 20 54 3d 54  |.     . C=10 T=T|
000028c0  2d 33 36 30 0d 13 88 14  20 20 20 fd 20 43 3e 33  |-360....   . C>3|
000028d0  31 20 84 20 c5 23 58 25  0d 13 92 19 20 20 20 e7  |1 . .#X%....   .|
000028e0  20 ac 20 c5 23 58 25 20  80 20 43 3e 3d 33 32 20  | . .#X% . C>=32 |
000028f0  8c 0d 13 9c 2b 20 20 20  c8 99 20 22 46 6f 6e 74  |....+   .. "Font|
00002900  5f 43 68 61 72 42 42 6f  78 22 2c 48 2c 43 2c 30  |_CharBBox",H,C,0|
00002910  20 b8 20 2c 6d 69 78 2c  2c 6d 61 78 0d 13 a6 13  | . ,mix,,max....|
00002920  20 20 20 65 78 3d 6d 61  78 2d 6d 69 78 2b 31 0d  |   ex=max-mix+1.|
00002930  13 b0 18 20 20 20 e7 20  65 78 6d 3c 65 78 20 8c  |...   . exm<ex .|
00002940  20 65 78 6d 3d 65 78 0d  13 ba 0f 20 20 20 70 3d  | exm=ex....   p=|
00002950  65 78 2f 65 78 6d 0d 13  c4 29 20 20 20 e7 20 70  |ex/exm...)   . p|
00002960  3c 30 2e 31 37 35 20 65  78 3d 65 78 2b 28 31 2d  |<0.175 ex=ex+(1-|
00002970  28 65 78 2f 65 78 6d 29  29 2f 35 2a 65 78 6d 0d  |(ex/exm))/5*exm.|
00002980  13 ce 19 20 20 20 47 3d  28 32 35 36 2a 65 78 2f  |...   G=(256*ex/|
00002990  34 30 30 29 2a 31 2e 32  0d 13 d8 0b 20 20 20 53  |400)*1.2....   S|
000029a0  3d 53 31 0d 13 e2 0e 20  20 20 52 3d 53 2a 54 2f  |=S1....   R=S*T/|
000029b0  41 0d 13 ec 19 20 20 20  74 68 65 74 61 3d 32 2a  |A....   theta=2*|
000029c0  b5 28 47 2f 28 32 2a 52  29 29 0d 13 f6 1c 20 20  |.(G/(2*R))....  |
000029d0  20 74 68 65 74 61 3d 74  68 65 74 61 2f 28 32 2a  | theta=theta/(2*|
000029e0  af 29 2a 33 36 30 0d 14  00 10 20 20 20 54 3d 54  |.)*360....   T=T|
000029f0  2d 74 68 65 74 61 0d 14  0a 06 20 cd 0d 14 14 13  |-theta.... .....|
00002a00  20 fd 20 c5 23 58 25 20  84 20 54 3c 31 38 30 0d  | . .#X% . T<180.|
00002a10  14 1e 09 20 d9 23 58 25  0d 14 28 19 20 c8 99 20  |... .#X%..(. .. |
00002a20  22 46 6f 6e 74 5f 4c 6f  73 65 46 6f 6e 74 22 2c  |"Font_LoseFont",|
00002a30  48 0d 14 32 07 20 3d 54  0d 14 3c 04 0d ff        |H..2. =T..<...|
00002a3e