�
E� Program   Embolden: Copy paths in !Draw files to left and right
� Version   1.10
%� Copyright Clive Semmens 1993-97
:
3� block% 1024, menu% 128, temp% 256, Work% 1024
:
�Initialize : �Bar : �Write
		�poll

�
:
� �poll

� mask%, Event%
mask%=%110011
�
+  ș "Wimp_Poll",mask%, block% � Event%
  Ȏ Event% �
+    � 2:ș "Wimp_OpenWindow", 0, block%
,    � 3:ș "Wimp_CloseWindow", 0, block%
    � 6:�Mouse
    � 7:�DragBox
    � 8:�KeyPress
    � 9:�Selection
    � 17,18:�Message
  �
� finished%
ș "Wimp_CloseDown"
�
:
� �ReleaseBuffers
� �
 @� � � � � <> 449 �Report(�$+", no. "+ß+" @ line "+Þ):� � �
!!ș "Wimp_SlotSize",�-&8000,-1
"�
#:
$� �Mouse
%>� (block%!8=2) � (block%!16=Bar%) � (block%!12=-2) � �Menu
&Q� ((block%!8=1) � (block%!8=4)) � (block%!12=Window%) � (block%!16=2) � �Icon
'&� block%!8=4 � block%!12=Window% �
(  Ȏ block%!16 �
)    � 8  : Both% = � Both%
*&    � 13 : FixOpens% = � FixOpens%
+&    � 14 : VEnds% = � : HEnds% = �
,&    � 15 : HEnds% = � : VEnds% = �
-  �
.�
/&� block%!8=1 � block%!12=Window% �
0  Ȏ block%!16 �
1    � 8  : Both% = � Both%
2&    � 13 : FixOpens% = � FixOpens%
36    � 14 : VEnds% = � VEnds% : � VEnds% HEnds% = �
46    � 15 : HEnds% = � HEnds% : � HEnds% VEnds% = �
5  �
6�
7W� ((block%!8=1*16) � (block%!8=4*16)) � (block%!12=Window%) � (block%!16=0) � �Drag
8�
9:
:� �DragBox
;	�Read
<#ș "Wimp_GetPointerInfo",,temp%
=)� (temp%!12=-2) � (temp%!16=Bar%) � �
>block%!0=256 : block%!12=0
?%block%!16=1  : block%!20=temp%!12
@block%!24=temp%!16
Ablock%!28=temp%!0
Bblock%!32=temp%!4
Cblock%!36=filesize%
Dblock%!40=filetype%
EC� �leaf(output$)="" � temp$="Emboldened" � temp$=�leaf(output$)
F$(block%+44)=temp$+�(0)
G5ș "Wimp_SendMessage",17,block%,temp%!12,temp%!16
HMine%=block%!8
I�
J:
K� �KeyPress
LȎ block%!24 �
M  � &D : �ReturnKey_Pressed
N'   ș "Wimp_ProcessKey", block%!24
O�
P�
Q:
R� �ReturnKey_Pressed
SJ� block%!0=Window% � block%!4=1 � ș "Wimp_SetCaretPosition", -1:�Icon
T�
U:
V� �Selection
W� buttons%
X&ș "Wimp_GetPointerInfo", 0, temp%
Ybuttons%=!(temp%+8)
Z� block%!0=1 � finished%=�
[� buttons%=1 � �Menu
\�
]:
^� �Message
_Ȏ block%!16 �
`  � 0 : finished%=�
a  � 1 : �DataSave
b  � 2 : �DataSaveAck
c  � 3 : �DataLoad
d  � 4 : �DataLoadAck
e�
f�
g:
h� �DataSave
i� exist%
j-� (block%!20<>-2) � (block%!24<>Bar%) � �
k*� (block%!40<0) � (block%!40>&FFF) � �
l!filename$=�getname(block%+44)
m-filetype%=block%!40 : filesize%=block%!36
n7ș "XOS_ReadVarVal", "Wimp$Scrap", 0, -1 � ,,exist%
o� exist%=0 �
p)  �Report("<Wimp$Scrap> not defined")
q�
r$  $(block%+44)="<Wimp$Scrap>"+�0
s4  block%!12=block%!8 : block%!16=2 : block%!0=80
t.  ș "Wimp_SendMessage",17,block%,block%!4
u�
v�
w:
x� �DataSaveAck
y� temp$
z� �
{H� � � �Report("Embolden error "+�$+" (@ line "+Þ+", no: "+ß+")"):�
|"� block%!12<>Mine% � Mine%=0 �
}!  output$=�getname(block%+44)
~  temp$=gap$
"  �Embolden(filename$,output$)
�#  block%!12=Mine% : block%!16=3
�9  ș "Wimp_SendMessage",17,block%,block%!20,block%!24
�  Mine%=block%!8
��
��
�:
�� �DataLoad
�� �
�H� � � �Report("DataLoad error "+�$+" (@ line "+Þ+", no: "+ß+")"):�
�:
�-� (block%!20<>-2) � (block%!24<>Bar%) � �
�*� (block%!40<0) � (block%!40>&FFF) � �
�
�Write
�#ș "Wimp_GetPointerInfo",,temp%
�temp%!4=temp%!0-192
�temp%!8=184-80
�temp%!12=(temp%!0-192)+416
�temp%!16=184-80+192
�)temp%!20=0 : temp%!24=0 : temp%!28=-1
�temp%!0=Window%
�ș "Wimp_OpenWindow",,temp%
�<ș "Wimp_SetCaretPosition",Window%,1,-1,-1,-1,�(output$)
�-filetype%=block%!40 : filesize%=block%!36
�!filename$=�getname(block%+44)
�2block%!12=block%!8 : block%!16=4 : block%!0=64
�,ș "Wimp_SendMessage",17,block%,block%!4
�temp%!0=Window% : temp%!4=0
�!ș "Wimp_GetIconState",,temp%
�$$(temp%!32)="Sfile_"+�~filetype%
��
�:
�� �DataLoadAck
�� block%!12=Mine% �
�   Mine%=0 : block%!0=Window%
�#  ș "Wimp_CloseWindow",,block%
�  ș "Wimp_CreateMenu",,-1
�?  � �filename$,12)="<Wimp$Scrap>" � � "Delete <Wimp$Scrap>"
��
��
�:
�� �Menu
�� item%
�$menu%="Embolden"
�5menu%?12=7 : menu%?13=2 : menu%?14=7 : menu%?15=0
�+menu%!16=100 : menu%!20=44 : menu%!24=0
�.item%=menu%+28 : item%!0=0 : item%!4=Info%
�(item%!8=%111000000001001000000010001
�$(item%+12)="Info"+�(0)
�&item%=item%+24 : item%!0=%10000000
�item%!4=-1
�(item%!8=%111000000001001000000010001
�$(item%+12)="Quit"+�(0)
�<ș "Wimp_CreateMenu", 0, menu%, (block%!0)-100/2, 200-16
��
�:
�� �Icon
�� temp$
�� �
�H� � � �Report("Embolden error "+�$+" (@ line "+Þ+", no: "+ß+")"):�
�	�Read
�W� �output$,".")=0 � �Report("To save, drag the file icon to a directory display"):�
�Y� �leaf(output$)="" � �Report("To save, drag the file icon to a directory display"):�
�temp$=gap$
� �Embolden(filename$,output$)
�block%!0=Window%
�!ș "Wimp_CloseWindow",,block%
�ș "Wimp_CreateMenu",,-1
��
�:
�� �Drag
�%� ic%, minx%, miny%, maxx%, maxy%
�ic%=block%!16
�%� (block%!12=Window%) � (ic%=0) �
�%  temp%!0=Window% :   temp%!4=ic%
�#  ș "Wimp_GetIconState",,temp%
�$  minx%=temp%!8 : miny%=temp%!12
�%  maxx%=temp%!16 : maxy%=temp%!20
�%  ș "Wimp_GetWindowState",,temp%
�/  minx%=temp%!4+minx% : maxx%=temp%!4+maxx%
�1  miny%=temp%!16+miny% : maxy%=temp%!16+maxy%
�  temp%!0=0 : temp%!4=5
�$  temp%!8=minx% : temp%!12=miny%
�%  temp%!16=maxx% : temp%!20=maxy%
�  temp%!24=0 : temp%!28=0
�%  temp%!32=32000 : temp%!36=32000
�  ș "Wimp_DragBox",,temp%
�  �Read
��
��
�:
�:� �Report(text$) : block%!0=1 : $(block%+4)=text$+�(0)
�-ș "Wimp_ReportError",block%,1,"Embolden"
��
�:
�c� �Bar : block%!0=-1 : block%!4=0 : block%!8=-4 : block%!12=68 : block%!16=68 : block%!20=&2002
�B$(block%+24)="!Embolden" : ș "Wimp_CreateIcon",,block% � Bar%
��
�:
�� �Read
�temp%!0=Window% : temp%!4=1
�!ș "Wimp_GetIconState",,temp%
�output$=$(temp%!28)
�temp%!0=Window% : temp%!4=3
�!ș "Wimp_GetIconState",,temp%
�gap$=$(temp%!28)
� temp%!0=Window% : temp%!4=10
�!ș "Wimp_GetIconState",,temp%
�gapY$=$(temp%!28)
��
�:
�� �Write
�temp%!0=Window% : temp%!4=1
�!ș "Wimp_GetIconState",,temp%
�$(temp%!28)=output$
�temp%!0=Window% : temp%!4=3
�!ș "Wimp_GetIconState",,temp%
�$(temp%!28)=gap$
� temp%!0=Window% : temp%!4=10
�!ș "Wimp_GetIconState",,temp%
�$(temp%!28)=gapY$
��
�:
�� �getname(ptr%)
�� p$
�ȕ ?ptr%<128 � ?ptr%>31
�  p$+=�(?ptr%) : ptr%+=1
��
�=p$

:


� �leaf(f$)

ȕ �f$,".")

  f$=�f$,�f$,".")+1)

�

=f$

:

� �Initialize

� Wimp%, task%, next%

	:


Wimp%=2 : task%=&4B534154

>ș "Wimp_Initialise", Wimp%*100, task%, "Embolden" � Wimp%

M� Wimp%<200 � �Report("Embolden needs a newer version of Window Manager")


Z� � �Report("Embolden error "+�$+" (@ line "+Þ+", no: "+ß+")"):ș "Wimp_CloseDown":�

:

1output$="Emboldened" : gap$="0" : gapY$ = "="

7Both% = � : FixOpens% = � : VEnds% = � : HEnds% = �

+filesize%=0 : filetype%=0 : finished%=�

9ș "Wimp_OpenTemplate", 0, "<Embolden$Dir>.Templates"

Qș "Wimp_LoadTemplate",, block%, Work%, Work%+1024, -1, "saveas", 0 � ,,next%

-ș "Wimp_CreateWindow",, block% � Window%

Oș "Wimp_LoadTemplate",, block%, next%, Work%+1024, -1, "info", 0 � ,,next%

+ș "Wimp_CreateWindow",, block% � Info%

ș "Wimp_CloseTemplate"

�

:

� �Load(in$)

(ș "OS_File",17,in$ � type,,,,Extent

%ș "Wimp_SlotSize",-1,-1 � ,,Free

F� Free < Extent*3 �Report("Unable to claim sufficient memory") : �

(ș "Wimp_SlotSize",� + Extent*3 , -1

Buff = �

 "� "LOAD " + in$ + " " + �~Buff

!�

":

#� �Save(out$)

$� � Both% PtrR% = PtrL%

%<� "SAVE " + out$ + " " + �~(Buff+Extent) + " " + �~PtrR%

& � "SETTYPE " + out$ + " AFF"

'�ReleaseBuffers

(�

):

*� �Embolden(in$,out$)

+"  �Load(in$) : g% = �mm(�gap$)

,0  � gapY$ = "=" gy% = g% � gy% = �mm(�gapY$)

-)  � gy% = 0 gr = 5 � gr = �(g% / gy%)

.  gY% = g%

/'  � gr >= 5 gr = 5 : gY% = gy% * gr

0(  � gr < .2 gr = .2 : gY% = gy% * gr

1B  Ptr1 = Buff : PtrL% = Buff + Extent : PtrR% = PtrL% + Extent

2.  $(Ptr1 + 12) = "Embolden" : Ptr1!18 = 32

3I  Ptr1!24 -= �g% : Ptr1!28 -= �gy% : Ptr1!32 += �g% : Ptr1!36 += �gy%

4H  � N = 0 � 36 � 4 : PtrL%!N = Ptr1!N : � : Ptr1 += 40 : PtrL% += 40

5  �

6    PtrT = Ptr1

7    �Object(g%,gY%,PtrL%)

85    � Both% Ptr1 = PtrT : �Object(-g%,-gY%,PtrR%)

9  � Ptr1 >= Buff + Extent

:  �Save(out$)

;�

<:

= ݤmm(d) = �(d*1814.17 + 0.5)

>:

?� �Object(d%,dY%,� Ptr2%)

@Ȏ !Ptr1 �

A  � 2 : �Path

B  � 6 : �Group

C  � 7 : �Tag

D*  � &66616353 : �Scafs : �Copy(Ptr1!4)

E   : �Copy(Ptr1!4)

F�

G�

H:

I#��Scafs : � Ptr, Pointer, Table

J=WidenX% = (g%+48*�g%) / 96 : WidenY% = (gy%+48*�gY%) / 96

K*NoOfScafs = Ptr1!8 : Table = Ptr1 + 12

L6� Pointer = Table + 64 � Table + NoOfScafs*2-2 � 2

M  Offset = !Pointer � &FFFF

N  � Offset > 0 �

O+    Ptr = Offset + 5 : Widen% = WidenX%

P    � bit = 0 � 15

Q$      � bit = 8 Widen% = WidenY%

R&      � Table!(Offset+3) � 2^bit �

S%        Coord% = Table!Ptr � &FFF

T*        � Coord% > 2047 Coord% -= 4096

U"        Width% = Ptr?(Table+2)

V$        Right% = Coord% + Width%

WQ        � Width% = 255 Coord% += Widen% � Coord% -= Widen% : Right% += Widen%

XA        Table!Ptr = (Table!Ptr � &FFFFF000) � (Coord% � &FFF)

Y        � Width% < 254 �

Z)          Width% = �(Right% - Coord%)

[I          � Width% < 254 Ptr?(Table+2) = Width% � Ptr?(Table+2) = 253

\
        �

]        Ptr += 3

^      �

_	    �

`  �

a�

b�

c:

d��Header

e
�Copy(24)

fMPtr2%!-16 -= �d% : Ptr2%!-12 -= �gy% : Ptr2%!-8 += �d% : Ptr2%!-4 += �gy%

g�

h:

i$� �Group : � GroupStart,GroupEnd

j1GroupStart = Ptr2% : GroupEnd = Ptr1 + Ptr1!4

k
�Copy(36)

l/� �Object(d%,dY%,Ptr2%) : � Ptr1 = GroupEnd

m%GroupStart!4 = Ptr2% - GroupStart

n�

o:

p��Tag : � TagStart,TagEnd

q-TagStart = Ptr2% : TagEnd = Ptr1 + Ptr1!4

r
�Copy(28)

s0�Object(d%,dY%,Ptr2%) : �Copy(TagEnd - Ptr1)

t!TagStart!4 = Ptr2% - TagStart

u�

v:

w
��Copy(L)

x,� N = 0 � L-4 � 4 : Ptr2%!N = Ptr1!N : �

yPtr1 += L : Ptr2% += L

z�

{:

|� �Path : EoP = �

}!  � �Open(Ptr1) � FixOpens% �

~0    � d% = g% �Copy(Ptr1!4) � Ptr1 += Ptr1!4

  �

�$    �Header : �Copy(20) : �First

�    � �Component : � EoP

�    � � Close �Finish

�  �

��

�:

�ݤOpen(Ptr) : Close = �

�Ptr += 40 : �

�  Ȏ !Ptr �

�    � 2,8 : Ptr += 12

�"    � 5 : Ptr += 4 : Close = �

�    � 6 : Ptr += 28

�  �

�� !Ptr = 0

�
= � Close

�:

�� �First : Close = �

�!  x2 = Ptr2% : y2 = Ptr2% + 4

�J  X = !Ptr1 : Y = Ptr1!4 * gr : NextX = Ptr1!12 : NextY = Ptr1!16 * gr

�)  Angle = �Angle(NextX - X,NextY - Y)

�  FirstX = X : FirstY = Y

�  FirstAngle = Angle

�  �Copy(4)

��

�:

�� �Component

�  �Copy(4)

�  Ȏ Ptr1!-4 �

�    � 0 : EoP = �

�    � 2 : �Move

�    � 5 : �Close

�    � 6 : �Bez

�    � 8 : �Line

�  �

��

�:

�� �Move

�  � � Close �Finish

�  �First

��

�:

�� �Close : � s

�=  s = �((FirstAngle - Angle)/2) : � �s < .05 s = .05 * �s

�1  X% = d% * �((Angle + FirstAngle + �)/2) / s

�2  Y% = dY% * �((Angle + FirstAngle + �)/2) / s

�<  Ptr2%!-12 = Ptr1!-12 + X% : Ptr2%!-8 = Ptr1!-8 + Y%/gr

�0  !x2 = FirstX + X% : !y2 = (FirstY + Y%)/gr

�  Close = �

��

�:

�� �Line : � s

�/  PrevAngle = Angle : PrevX = X : PrevY = Y

�C  X = !Ptr1 : Y = Ptr1!4 * gr : Angle = �Angle(X-PrevX,Y-PrevY)

�<  s = �((Angle - PrevAngle)/2) : � �s < .05 s = .05 * �s

�0  X% = d% * �((PrevAngle + Angle + �)/2) / s

�1  Y% = dY% * �((PrevAngle + Angle + �)/2) / s

�<  Ptr2%!-12 = Ptr1!-12 + X% : Ptr2%!-8 = Ptr1!-8 + Y%/gr

�  Ptr1 += 8 : Ptr2% += 8

��

�:

�ݤAngle(X,Y) : � A

�
� X = 0 �

�  A = �Y * �/2

��

�  A = �(Y/X)

�  � �X = -1 A = A + � * �Y

��

�� Y = 0 � X < 0 A = �

�= A

�:

�
� �Finish

�<  Left = d% * �(Angle + �/2) : Up = dY% * �(Angle + �/2)

�>  Ptr2%!-12 = Ptr1!-12 + Left : Ptr2%!-8 = Ptr1!-8 + Up/gr

��

�:

�
� �Bez

�
  � s,e,f

�/  PrevAngle = Angle : PrevX = X : PrevY = Y

�d  B1X = !Ptr1 : B1Y = Ptr1!4*gr : B2X = Ptr1!8 : B2Y = Ptr1!12*gr : X = Ptr1!16 : Y = Ptr1!20*gr

�*  Angle1 = �Angle(B1X-PrevX,B1Y-PrevY)

�&  Angle2 = �Angle(B2X-B1X,B2Y-B1Y)

�&  Angle  = �Angle(X - B2X,Y - B2Y)

�  Ȏ Ptr1!24 �

�9    � 0,2 : NextX = X : NextY = Y : NextAngle = Angle

�_    � 6,8 : NextX = Ptr1!28 : NextY = Ptr1!32*gr : NextAngle = �Angle(NextX - X, NextY - Y)

�H    � 5   : NextX = FirstX : NextY = FirstY : NextAngle = FirstAngle

�  �

�

�*  e = 1.5 * (�(Angle - Angle1))^2 - .5

�  f = 2 - e

�,  Len = �((X - PrevX)^2 + (Y - PrevY)^2)

�1  Len1 = �((B1X - PrevX)^2 + (B1Y - PrevY)^2)

�)  Len2 = �((X - B2X)^2 + (Y - B2Y)^2)

�

�;  s = �((Angle1 - PrevAngle)/2) : � �s < .1 s = .1 * �s

�2  X1% = d% * �((PrevAngle + Angle1 + �)/2) / s

�2  X2% = d% * �((PrevAngle + Angle2 + �)/2) / s

�3  Y1% = dY% * �((PrevAngle + Angle1 + �)/2) / s

�3  Y2% = dY% * �((PrevAngle + Angle2 + �)/2) / s

�

�>  Ptr2%!-12 = Ptr1!-12 + X1% : Ptr2%!-8 = Ptr1!-8 + Y1%/gr

�

�<  s = �((NextAngle - Angle)/2) : � �s < .15 s = .15 * �s

�0  X% = d% * �((Angle + NextAngle + �)/2) / s

�1  Y% = dY% * �((Angle + NextAngle + �)/2) / s

�

�L  LenL1 = �((X + e*X% - PrevX - f*X1%)^2 + (Y + e*Y% - PrevY - f*Y1%)^2)

�L  LenR1 = �((X - e*X% - PrevX + f*X1%)^2 + (Y - e*Y% - PrevY + f*Y1%)^2)

�L  LenL2 = �((X + f*X% - PrevX - e*X1%)^2 + (Y + f*Y% - PrevY - e*Y1%)^2)

�L  LenR2 = �((X - f*X% - PrevX + e*X1%)^2 + (Y - f*Y% - PrevY + e*Y1%)^2)

�Y  � Len < (LenL1 + LenR1 + LenL2 + LenR2)/40 Len = (LenL1 + LenR1 + LenL2 + LenR2)/40

�[  � Len1 < (LenL1 + LenR1 + LenL2 + LenR2)/40 Len1 = (LenL1 + LenR1 + LenL2 + LenR2)/40

�[  � Len2 < (LenL1 + LenR1 + LenL2 + LenR2)/40 Len2 = (LenL1 + LenR1 + LenL2 + LenR2)/40

�U  Ratio1 = ((.31 * Len/Len1)^1.4) + .283 : Ratio2 = ((.31 * Len/Len2)^1.4) + .283

�"  RatioL1 = (LenL1/Len)^Ratio1

�"  RatioL2 = (LenL2/Len)^Ratio2

�4  !Ptr2% = PrevX + X1% + (B1X - PrevX) * RatioL1

�:  Ptr2%!4 = (PrevY + Y1% + (B1Y - PrevY) * RatioL1)/gr

�,  Ptr2%!8 = X + X% - (X - B2X) * RatioL2

�2  Ptr2%!12 = (Y + Y% - (Y - B2Y) * RatioL2)/gr

�  Ptr1 += 24 : Ptr2% += 24

��
�

00000000  0d 00 01 05 f4 0d 00 02  45 f4 20 50 72 6f 67 72  |........E. Progr|
00000010  61 6d 20 20 20 45 6d 62  6f 6c 64 65 6e 3a 20 43  |am   Embolden: C|
00000020  6f 70 79 20 70 61 74 68  73 20 69 6e 20 21 44 72  |opy paths in !Dr|
00000030  61 77 20 66 69 6c 65 73  20 74 6f 20 6c 65 66 74  |aw files to left|
00000040  20 61 6e 64 20 72 69 67  68 74 0d 00 03 14 f4 20  | and right..... |
00000050  56 65 72 73 69 6f 6e 20  20 20 31 2e 31 30 0d 00  |Version   1.10..|
00000060  04 25 f4 20 43 6f 70 79  72 69 67 68 74 20 43 6c  |.%. Copyright Cl|
00000070  69 76 65 20 53 65 6d 6d  65 6e 73 20 31 39 39 33  |ive Semmens 1993|
00000080  2d 39 37 0d 00 05 05 3a  0d 00 06 33 de 20 62 6c  |-97....:...3. bl|
00000090  6f 63 6b 25 20 31 30 32  34 2c 20 6d 65 6e 75 25  |ock% 1024, menu%|
000000a0  20 31 32 38 2c 20 74 65  6d 70 25 20 32 35 36 2c  | 128, temp% 256,|
000000b0  20 57 6f 72 6b 25 20 31  30 32 34 0d 00 07 05 3a  | Work% 1024....:|
000000c0  0d 00 08 1f f2 49 6e 69  74 69 61 6c 69 7a 65 20  |.....Initialize |
000000d0  3a 20 f2 42 61 72 20 3a  20 f2 57 72 69 74 65 0d  |: .Bar : .Write.|
000000e0  00 09 09 f2 70 6f 6c 6c  0d 00 0a 05 e0 0d 00 0b  |....poll........|
000000f0  05 3a 0d 00 0c 0b dd 20  f2 70 6f 6c 6c 0d 00 0d  |.:..... .poll...|
00000100  13 ea 20 6d 61 73 6b 25  2c 20 45 76 65 6e 74 25  |.. mask%, Event%|
00000110  0d 00 0e 11 6d 61 73 6b  25 3d 25 31 31 30 30 31  |....mask%=%11001|
00000120  31 0d 00 0f 05 f5 0d 00  10 2b 20 20 c8 99 20 22  |1........+  .. "|
00000130  57 69 6d 70 5f 50 6f 6c  6c 22 2c 6d 61 73 6b 25  |Wimp_Poll",mask%|
00000140  2c 20 62 6c 6f 63 6b 25  20 b8 20 45 76 65 6e 74  |, block% . Event|
00000150  25 0d 00 11 11 20 20 c8  8e 20 45 76 65 6e 74 25  |%....  .. Event%|
00000160  20 ca 0d 00 12 2b 20 20  20 20 c9 20 32 3a c8 99  | ....+    . 2:..|
00000170  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
00000180  77 22 2c 20 30 2c 20 62  6c 6f 63 6b 25 0d 00 13  |w", 0, block%...|
00000190  2c 20 20 20 20 c9 20 33  3a c8 99 20 22 57 69 6d  |,    . 3:.. "Wim|
000001a0  70 5f 43 6c 6f 73 65 57  69 6e 64 6f 77 22 2c 20  |p_CloseWindow", |
000001b0  30 2c 20 62 6c 6f 63 6b  25 0d 00 14 12 20 20 20  |0, block%....   |
000001c0  20 c9 20 36 3a f2 4d 6f  75 73 65 0d 00 15 14 20  | . 6:.Mouse.... |
000001d0  20 20 20 c9 20 37 3a f2  44 72 61 67 42 6f 78 0d  |   . 7:.DragBox.|
000001e0  00 16 15 20 20 20 20 c9  20 38 3a f2 4b 65 79 50  |...    . 8:.KeyP|
000001f0  72 65 73 73 0d 00 17 16  20 20 20 20 c9 20 39 3a  |ress....    . 9:|
00000200  f2 53 65 6c 65 63 74 69  6f 6e 0d 00 18 18 20 20  |.Selection....  |
00000210  20 20 c9 20 31 37 2c 31  38 3a f2 4d 65 73 73 61  |  . 17,18:.Messa|
00000220  67 65 0d 00 19 07 20 20  cb 0d 00 1a 0f fd 20 66  |ge....  ...... f|
00000230  69 6e 69 73 68 65 64 25  0d 00 1b 17 c8 99 20 22  |inished%...... "|
00000240  57 69 6d 70 5f 43 6c 6f  73 65 44 6f 77 6e 22 0d  |Wimp_CloseDown".|
00000250  00 1c 05 e1 0d 00 1d 05  3a 0d 00 1e 15 dd 20 f2  |........:..... .|
00000260  52 65 6c 65 61 73 65 42  75 66 66 65 72 73 0d 00  |ReleaseBuffers..|
00000270  1f 07 ea 20 85 0d 00 20  40 ee 20 85 20 ea 20 e7  |... ... @. . . .|
00000280  20 9f 20 3c 3e 20 34 34  39 20 f2 52 65 70 6f 72  | . <> 449 .Repor|
00000290  74 28 f6 24 2b 22 2c 20  6e 6f 2e 20 22 2b c3 9f  |t(.$+", no. "+..|
000002a0  2b 22 20 40 20 6c 69 6e  65 20 22 2b c3 9e 29 3a  |+" @ line "+..):|
000002b0  e1 20 8b 20 e1 0d 00 21  21 c8 99 20 22 57 69 6d  |. . ...!!.. "Wim|
000002c0  70 5f 53 6c 6f 74 53 69  7a 65 22 2c 93 2d 26 38  |p_SlotSize",.-&8|
000002d0  30 30 30 2c 2d 31 0d 00  22 05 e1 0d 00 23 05 3a  |000,-1.."....#.:|
000002e0  0d 00 24 0c dd 20 f2 4d  6f 75 73 65 0d 00 25 3e  |..$.. .Mouse..%>|
000002f0  e7 20 28 62 6c 6f 63 6b  25 21 38 3d 32 29 20 80  |. (block%!8=2) .|
00000300  20 28 62 6c 6f 63 6b 25  21 31 36 3d 42 61 72 25  | (block%!16=Bar%|
00000310  29 20 80 20 28 62 6c 6f  63 6b 25 21 31 32 3d 2d  |) . (block%!12=-|
00000320  32 29 20 8c 20 f2 4d 65  6e 75 0d 00 26 51 e7 20  |2) . .Menu..&Q. |
00000330  28 28 62 6c 6f 63 6b 25  21 38 3d 31 29 20 84 20  |((block%!8=1) . |
00000340  28 62 6c 6f 63 6b 25 21  38 3d 34 29 29 20 80 20  |(block%!8=4)) . |
00000350  28 62 6c 6f 63 6b 25 21  31 32 3d 57 69 6e 64 6f  |(block%!12=Windo|
00000360  77 25 29 20 80 20 28 62  6c 6f 63 6b 25 21 31 36  |w%) . (block%!16|
00000370  3d 32 29 20 8c 20 f2 49  63 6f 6e 0d 00 27 26 e7  |=2) . .Icon..'&.|
00000380  20 62 6c 6f 63 6b 25 21  38 3d 34 20 80 20 62 6c  | block%!8=4 . bl|
00000390  6f 63 6b 25 21 31 32 3d  57 69 6e 64 6f 77 25 20  |ock%!12=Window% |
000003a0  8c 0d 00 28 14 20 20 c8  8e 20 62 6c 6f 63 6b 25  |...(.  .. block%|
000003b0  21 31 36 20 ca 0d 00 29  1e 20 20 20 20 c9 20 38  |!16 ...).    . 8|
000003c0  20 20 3a 20 42 6f 74 68  25 20 3d 20 ac 20 42 6f  |  : Both% = . Bo|
000003d0  74 68 25 0d 00 2a 26 20  20 20 20 c9 20 31 33 20  |th%..*&    . 13 |
000003e0  3a 20 46 69 78 4f 70 65  6e 73 25 20 3d 20 ac 20  |: FixOpens% = . |
000003f0  46 69 78 4f 70 65 6e 73  25 0d 00 2b 26 20 20 20  |FixOpens%..+&   |
00000400  20 c9 20 31 34 20 3a 20  56 45 6e 64 73 25 20 3d  | . 14 : VEnds% =|
00000410  20 b9 20 3a 20 48 45 6e  64 73 25 20 3d 20 a3 0d  | . : HEnds% = ..|
00000420  00 2c 26 20 20 20 20 c9  20 31 35 20 3a 20 48 45  |.,&    . 15 : HE|
00000430  6e 64 73 25 20 3d 20 b9  20 3a 20 56 45 6e 64 73  |nds% = . : VEnds|
00000440  25 20 3d 20 a3 0d 00 2d  07 20 20 cb 0d 00 2e 05  |% = ...-.  .....|
00000450  cd 0d 00 2f 26 e7 20 62  6c 6f 63 6b 25 21 38 3d  |.../&. block%!8=|
00000460  31 20 80 20 62 6c 6f 63  6b 25 21 31 32 3d 57 69  |1 . block%!12=Wi|
00000470  6e 64 6f 77 25 20 8c 0d  00 30 14 20 20 c8 8e 20  |ndow% ...0.  .. |
00000480  62 6c 6f 63 6b 25 21 31  36 20 ca 0d 00 31 1e 20  |block%!16 ...1. |
00000490  20 20 20 c9 20 38 20 20  3a 20 42 6f 74 68 25 20  |   . 8  : Both% |
000004a0  3d 20 ac 20 42 6f 74 68  25 0d 00 32 26 20 20 20  |= . Both%..2&   |
000004b0  20 c9 20 31 33 20 3a 20  46 69 78 4f 70 65 6e 73  | . 13 : FixOpens|
000004c0  25 20 3d 20 ac 20 46 69  78 4f 70 65 6e 73 25 0d  |% = . FixOpens%.|
000004d0  00 33 36 20 20 20 20 c9  20 31 34 20 3a 20 56 45  |.36    . 14 : VE|
000004e0  6e 64 73 25 20 3d 20 ac  20 56 45 6e 64 73 25 20  |nds% = . VEnds% |
000004f0  3a 20 e7 20 56 45 6e 64  73 25 20 48 45 6e 64 73  |: . VEnds% HEnds|
00000500  25 20 3d 20 a3 0d 00 34  36 20 20 20 20 c9 20 31  |% = ...46    . 1|
00000510  35 20 3a 20 48 45 6e 64  73 25 20 3d 20 ac 20 48  |5 : HEnds% = . H|
00000520  45 6e 64 73 25 20 3a 20  e7 20 48 45 6e 64 73 25  |Ends% : . HEnds%|
00000530  20 56 45 6e 64 73 25 20  3d 20 a3 0d 00 35 07 20  | VEnds% = ...5. |
00000540  20 cb 0d 00 36 05 cd 0d  00 37 57 e7 20 28 28 62  | ...6....7W. ((b|
00000550  6c 6f 63 6b 25 21 38 3d  31 2a 31 36 29 20 84 20  |lock%!8=1*16) . |
00000560  28 62 6c 6f 63 6b 25 21  38 3d 34 2a 31 36 29 29  |(block%!8=4*16))|
00000570  20 80 20 28 62 6c 6f 63  6b 25 21 31 32 3d 57 69  | . (block%!12=Wi|
00000580  6e 64 6f 77 25 29 20 80  20 28 62 6c 6f 63 6b 25  |ndow%) . (block%|
00000590  21 31 36 3d 30 29 20 8c  20 f2 44 72 61 67 0d 00  |!16=0) . .Drag..|
000005a0  38 05 e1 0d 00 39 05 3a  0d 00 3a 0e dd 20 f2 44  |8....9.:..:.. .D|
000005b0  72 61 67 42 6f 78 0d 00  3b 09 f2 52 65 61 64 0d  |ragBox..;..Read.|
000005c0  00 3c 23 c8 99 20 22 57  69 6d 70 5f 47 65 74 50  |.<#.. "Wimp_GetP|
000005d0  6f 69 6e 74 65 72 49 6e  66 6f 22 2c 2c 74 65 6d  |ointerInfo",,tem|
000005e0  70 25 0d 00 3d 29 e7 20  28 74 65 6d 70 25 21 31  |p%..=). (temp%!1|
000005f0  32 3d 2d 32 29 20 80 20  28 74 65 6d 70 25 21 31  |2=-2) . (temp%!1|
00000600  36 3d 42 61 72 25 29 20  8c 20 e1 0d 00 3e 1e 62  |6=Bar%) . ...>.b|
00000610  6c 6f 63 6b 25 21 30 3d  32 35 36 20 3a 20 62 6c  |lock%!0=256 : bl|
00000620  6f 63 6b 25 21 31 32 3d  30 0d 00 3f 25 62 6c 6f  |ock%!12=0..?%blo|
00000630  63 6b 25 21 31 36 3d 31  20 20 3a 20 62 6c 6f 63  |ck%!16=1  : bloc|
00000640  6b 25 21 32 30 3d 74 65  6d 70 25 21 31 32 0d 00  |k%!20=temp%!12..|
00000650  40 16 62 6c 6f 63 6b 25  21 32 34 3d 74 65 6d 70  |@.block%!24=temp|
00000660  25 21 31 36 0d 00 41 15  62 6c 6f 63 6b 25 21 32  |%!16..A.block%!2|
00000670  38 3d 74 65 6d 70 25 21  30 0d 00 42 15 62 6c 6f  |8=temp%!0..B.blo|
00000680  63 6b 25 21 33 32 3d 74  65 6d 70 25 21 34 0d 00  |ck%!32=temp%!4..|
00000690  43 17 62 6c 6f 63 6b 25  21 33 36 3d 66 69 6c 65  |C.block%!36=file|
000006a0  73 69 7a 65 25 0d 00 44  17 62 6c 6f 63 6b 25 21  |size%..D.block%!|
000006b0  34 30 3d 66 69 6c 65 74  79 70 65 25 0d 00 45 43  |40=filetype%..EC|
000006c0  e7 20 a4 6c 65 61 66 28  6f 75 74 70 75 74 24 29  |. .leaf(output$)|
000006d0  3d 22 22 20 8c 20 74 65  6d 70 24 3d 22 45 6d 62  |="" . temp$="Emb|
000006e0  6f 6c 64 65 6e 65 64 22  20 8b 20 74 65 6d 70 24  |oldened" . temp$|
000006f0  3d a4 6c 65 61 66 28 6f  75 74 70 75 74 24 29 0d  |=.leaf(output$).|
00000700  00 46 1b 24 28 62 6c 6f  63 6b 25 2b 34 34 29 3d  |.F.$(block%+44)=|
00000710  74 65 6d 70 24 2b bd 28  30 29 0d 00 47 35 c8 99  |temp$+.(0)..G5..|
00000720  20 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  | "Wimp_SendMessa|
00000730  67 65 22 2c 31 37 2c 62  6c 6f 63 6b 25 2c 74 65  |ge",17,block%,te|
00000740  6d 70 25 21 31 32 2c 74  65 6d 70 25 21 31 36 0d  |mp%!12,temp%!16.|
00000750  00 48 12 4d 69 6e 65 25  3d 62 6c 6f 63 6b 25 21  |.H.Mine%=block%!|
00000760  38 0d 00 49 05 e1 0d 00  4a 05 3a 0d 00 4b 0f dd  |8..I....J.:..K..|
00000770  20 f2 4b 65 79 50 72 65  73 73 0d 00 4c 12 c8 8e  | .KeyPress..L...|
00000780  20 62 6c 6f 63 6b 25 21  32 34 20 ca 0d 00 4d 1f  | block%!24 ...M.|
00000790  20 20 c9 20 26 44 20 3a  20 f2 52 65 74 75 72 6e  |  . &D : .Return|
000007a0  4b 65 79 5f 50 72 65 73  73 65 64 0d 00 4e 27 20  |Key_Pressed..N' |
000007b0  20 7f 20 c8 99 20 22 57  69 6d 70 5f 50 72 6f 63  | . .. "Wimp_Proc|
000007c0  65 73 73 4b 65 79 22 2c  20 62 6c 6f 63 6b 25 21  |essKey", block%!|
000007d0  32 34 0d 00 4f 05 cb 0d  00 50 05 e1 0d 00 51 05  |24..O....P....Q.|
000007e0  3a 0d 00 52 18 dd 20 f2  52 65 74 75 72 6e 4b 65  |:..R.. .ReturnKe|
000007f0  79 5f 50 72 65 73 73 65  64 0d 00 53 4a e7 20 62  |y_Pressed..SJ. b|
00000800  6c 6f 63 6b 25 21 30 3d  57 69 6e 64 6f 77 25 20  |lock%!0=Window% |
00000810  80 20 62 6c 6f 63 6b 25  21 34 3d 31 20 8c 20 c8  |. block%!4=1 . .|
00000820  99 20 22 57 69 6d 70 5f  53 65 74 43 61 72 65 74  |. "Wimp_SetCaret|
00000830  50 6f 73 69 74 69 6f 6e  22 2c 20 2d 31 3a f2 49  |Position", -1:.I|
00000840  63 6f 6e 0d 00 54 05 e1  0d 00 55 05 3a 0d 00 56  |con..T....U.:..V|
00000850  10 dd 20 f2 53 65 6c 65  63 74 69 6f 6e 0d 00 57  |.. .Selection..W|
00000860  0e ea 20 62 75 74 74 6f  6e 73 25 0d 00 58 26 c8  |.. buttons%..X&.|
00000870  99 20 22 57 69 6d 70 5f  47 65 74 50 6f 69 6e 74  |. "Wimp_GetPoint|
00000880  65 72 49 6e 66 6f 22 2c  20 30 2c 20 74 65 6d 70  |erInfo", 0, temp|
00000890  25 0d 00 59 17 62 75 74  74 6f 6e 73 25 3d 21 28  |%..Y.buttons%=!(|
000008a0  74 65 6d 70 25 2b 38 29  0d 00 5a 1e e7 20 62 6c  |temp%+8)..Z.. bl|
000008b0  6f 63 6b 25 21 30 3d 31  20 8c 20 66 69 6e 69 73  |ock%!0=1 . finis|
000008c0  68 65 64 25 3d b9 0d 00  5b 18 e7 20 62 75 74 74  |hed%=...[.. butt|
000008d0  6f 6e 73 25 3d 31 20 8c  20 f2 4d 65 6e 75 0d 00  |ons%=1 . .Menu..|
000008e0  5c 05 e1 0d 00 5d 05 3a  0d 00 5e 0e dd 20 f2 4d  |\....].:..^.. .M|
000008f0  65 73 73 61 67 65 0d 00  5f 12 c8 8e 20 62 6c 6f  |essage.._... blo|
00000900  63 6b 25 21 31 36 20 ca  0d 00 60 17 20 20 c9 20  |ck%!16 ...`.  . |
00000910  30 20 3a 20 66 69 6e 69  73 68 65 64 25 3d b9 0d  |0 : finished%=..|
00000920  00 61 15 20 20 c9 20 31  20 3a 20 f2 44 61 74 61  |.a.  . 1 : .Data|
00000930  53 61 76 65 0d 00 62 18  20 20 c9 20 32 20 3a 20  |Save..b.  . 2 : |
00000940  f2 44 61 74 61 53 61 76  65 41 63 6b 0d 00 63 15  |.DataSaveAck..c.|
00000950  20 20 c9 20 33 20 3a 20  f2 44 61 74 61 4c 6f 61  |  . 3 : .DataLoa|
00000960  64 0d 00 64 18 20 20 c9  20 34 20 3a 20 f2 44 61  |d..d.  . 4 : .Da|
00000970  74 61 4c 6f 61 64 41 63  6b 0d 00 65 05 cb 0d 00  |taLoadAck..e....|
00000980  66 05 e1 0d 00 67 05 3a  0d 00 68 0f dd 20 f2 44  |f....g.:..h.. .D|
00000990  61 74 61 53 61 76 65 0d  00 69 0c ea 20 65 78 69  |ataSave..i.. exi|
000009a0  73 74 25 0d 00 6a 2d e7  20 28 62 6c 6f 63 6b 25  |st%..j-. (block%|
000009b0  21 32 30 3c 3e 2d 32 29  20 84 20 28 62 6c 6f 63  |!20<>-2) . (bloc|
000009c0  6b 25 21 32 34 3c 3e 42  61 72 25 29 20 8c 20 e1  |k%!24<>Bar%) . .|
000009d0  0d 00 6b 2a e7 20 28 62  6c 6f 63 6b 25 21 34 30  |..k*. (block%!40|
000009e0  3c 30 29 20 84 20 28 62  6c 6f 63 6b 25 21 34 30  |<0) . (block%!40|
000009f0  3e 26 46 46 46 29 20 8c  20 e1 0d 00 6c 21 66 69  |>&FFF) . ...l!fi|
00000a00  6c 65 6e 61 6d 65 24 3d  a4 67 65 74 6e 61 6d 65  |lename$=.getname|
00000a10  28 62 6c 6f 63 6b 25 2b  34 34 29 0d 00 6d 2d 66  |(block%+44)..m-f|
00000a20  69 6c 65 74 79 70 65 25  3d 62 6c 6f 63 6b 25 21  |iletype%=block%!|
00000a30  34 30 20 3a 20 66 69 6c  65 73 69 7a 65 25 3d 62  |40 : filesize%=b|
00000a40  6c 6f 63 6b 25 21 33 36  0d 00 6e 37 c8 99 20 22  |lock%!36..n7.. "|
00000a50  58 4f 53 5f 52 65 61 64  56 61 72 56 61 6c 22 2c  |XOS_ReadVarVal",|
00000a60  20 22 57 69 6d 70 24 53  63 72 61 70 22 2c 20 30  | "Wimp$Scrap", 0|
00000a70  2c 20 2d 31 20 b8 20 2c  2c 65 78 69 73 74 25 0d  |, -1 . ,,exist%.|
00000a80  00 6f 10 e7 20 65 78 69  73 74 25 3d 30 20 8c 0d  |.o.. exist%=0 ..|
00000a90  00 70 29 20 20 f2 52 65  70 6f 72 74 28 22 3c 57  |.p)  .Report("<W|
00000aa0  69 6d 70 24 53 63 72 61  70 3e 20 6e 6f 74 20 64  |imp$Scrap> not d|
00000ab0  65 66 69 6e 65 64 22 29  0d 00 71 05 cc 0d 00 72  |efined")..q....r|
00000ac0  24 20 20 24 28 62 6c 6f  63 6b 25 2b 34 34 29 3d  |$  $(block%+44)=|
00000ad0  22 3c 57 69 6d 70 24 53  63 72 61 70 3e 22 2b bd  |"<Wimp$Scrap>"+.|
00000ae0  30 0d 00 73 34 20 20 62  6c 6f 63 6b 25 21 31 32  |0..s4  block%!12|
00000af0  3d 62 6c 6f 63 6b 25 21  38 20 3a 20 62 6c 6f 63  |=block%!8 : bloc|
00000b00  6b 25 21 31 36 3d 32 20  3a 20 62 6c 6f 63 6b 25  |k%!16=2 : block%|
00000b10  21 30 3d 38 30 0d 00 74  2e 20 20 c8 99 20 22 57  |!0=80..t.  .. "W|
00000b20  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
00000b30  2c 31 37 2c 62 6c 6f 63  6b 25 2c 62 6c 6f 63 6b  |,17,block%,block|
00000b40  25 21 34 0d 00 75 05 cd  0d 00 76 05 e1 0d 00 77  |%!4..u....v....w|
00000b50  05 3a 0d 00 78 12 dd 20  f2 44 61 74 61 53 61 76  |.:..x.. .DataSav|
00000b60  65 41 63 6b 0d 00 79 0b  ea 20 74 65 6d 70 24 0d  |eAck..y.. temp$.|
00000b70  00 7a 07 ea 20 85 0d 00  7b 48 ee 20 85 20 ea 20  |.z.. ...{H. . . |
00000b80  f2 52 65 70 6f 72 74 28  22 45 6d 62 6f 6c 64 65  |.Report("Embolde|
00000b90  6e 20 65 72 72 6f 72 20  22 2b f6 24 2b 22 20 28  |n error "+.$+" (|
00000ba0  40 20 6c 69 6e 65 20 22  2b c3 9e 2b 22 2c 20 6e  |@ line "+..+", n|
00000bb0  6f 3a 20 22 2b c3 9f 2b  22 29 22 29 3a e1 0d 00  |o: "+..+")"):...|
00000bc0  7c 22 e7 20 62 6c 6f 63  6b 25 21 31 32 3c 3e 4d  ||". block%!12<>M|
00000bd0  69 6e 65 25 20 8c 20 4d  69 6e 65 25 3d 30 20 8b  |ine% . Mine%=0 .|
00000be0  0d 00 7d 21 20 20 6f 75  74 70 75 74 24 3d a4 67  |..}!  output$=.g|
00000bf0  65 74 6e 61 6d 65 28 62  6c 6f 63 6b 25 2b 34 34  |etname(block%+44|
00000c00  29 0d 00 7e 10 20 20 74  65 6d 70 24 3d 67 61 70  |)..~.  temp$=gap|
00000c10  24 0d 00 7f 22 20 20 f2  45 6d 62 6f 6c 64 65 6e  |$..."  .Embolden|
00000c20  28 66 69 6c 65 6e 61 6d  65 24 2c 6f 75 74 70 75  |(filename$,outpu|
00000c30  74 24 29 0d 00 80 23 20  20 62 6c 6f 63 6b 25 21  |t$)...#  block%!|
00000c40  31 32 3d 4d 69 6e 65 25  20 3a 20 62 6c 6f 63 6b  |12=Mine% : block|
00000c50  25 21 31 36 3d 33 0d 00  81 39 20 20 c8 99 20 22  |%!16=3...9  .. "|
00000c60  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
00000c70  22 2c 31 37 2c 62 6c 6f  63 6b 25 2c 62 6c 6f 63  |",17,block%,bloc|
00000c80  6b 25 21 32 30 2c 62 6c  6f 63 6b 25 21 32 34 0d  |k%!20,block%!24.|
00000c90  00 82 14 20 20 4d 69 6e  65 25 3d 62 6c 6f 63 6b  |...  Mine%=block|
00000ca0  25 21 38 0d 00 83 05 cd  0d 00 84 05 e1 0d 00 85  |%!8.............|
00000cb0  05 3a 0d 00 86 0f dd 20  f2 44 61 74 61 4c 6f 61  |.:..... .DataLoa|
00000cc0  64 0d 00 87 07 ea 20 85  0d 00 88 48 ee 20 85 20  |d..... ....H. . |
00000cd0  ea 20 f2 52 65 70 6f 72  74 28 22 44 61 74 61 4c  |. .Report("DataL|
00000ce0  6f 61 64 20 65 72 72 6f  72 20 22 2b f6 24 2b 22  |oad error "+.$+"|
00000cf0  20 28 40 20 6c 69 6e 65  20 22 2b c3 9e 2b 22 2c  | (@ line "+..+",|
00000d00  20 6e 6f 3a 20 22 2b c3  9f 2b 22 29 22 29 3a e1  | no: "+..+")"):.|
00000d10  0d 00 89 05 3a 0d 00 8a  2d e7 20 28 62 6c 6f 63  |....:...-. (bloc|
00000d20  6b 25 21 32 30 3c 3e 2d  32 29 20 84 20 28 62 6c  |k%!20<>-2) . (bl|
00000d30  6f 63 6b 25 21 32 34 3c  3e 42 61 72 25 29 20 8c  |ock%!24<>Bar%) .|
00000d40  20 e1 0d 00 8b 2a e7 20  28 62 6c 6f 63 6b 25 21  | ....*. (block%!|
00000d50  34 30 3c 30 29 20 84 20  28 62 6c 6f 63 6b 25 21  |40<0) . (block%!|
00000d60  34 30 3e 26 46 46 46 29  20 8c 20 e1 0d 00 8c 0a  |40>&FFF) . .....|
00000d70  f2 57 72 69 74 65 0d 00  8d 23 c8 99 20 22 57 69  |.Write...#.. "Wi|
00000d80  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00000d90  6f 22 2c 2c 74 65 6d 70  25 0d 00 8e 17 74 65 6d  |o",,temp%....tem|
00000da0  70 25 21 34 3d 74 65 6d  70 25 21 30 2d 31 39 32  |p%!4=temp%!0-192|
00000db0  0d 00 8f 12 74 65 6d 70  25 21 38 3d 31 38 34 2d  |....temp%!8=184-|
00000dc0  38 30 0d 00 90 1e 74 65  6d 70 25 21 31 32 3d 28  |80....temp%!12=(|
00000dd0  74 65 6d 70 25 21 30 2d  31 39 32 29 2b 34 31 36  |temp%!0-192)+416|
00000de0  0d 00 91 17 74 65 6d 70  25 21 31 36 3d 31 38 34  |....temp%!16=184|
00000df0  2d 38 30 2b 31 39 32 0d  00 92 29 74 65 6d 70 25  |-80+192...)temp%|
00000e00  21 32 30 3d 30 20 3a 20  74 65 6d 70 25 21 32 34  |!20=0 : temp%!24|
00000e10  3d 30 20 3a 20 74 65 6d  70 25 21 32 38 3d 2d 31  |=0 : temp%!28=-1|
00000e20  0d 00 93 13 74 65 6d 70  25 21 30 3d 57 69 6e 64  |....temp%!0=Wind|
00000e30  6f 77 25 0d 00 94 1f c8  99 20 22 57 69 6d 70 5f  |ow%...... "Wimp_|
00000e40  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 74 65 6d  |OpenWindow",,tem|
00000e50  70 25 0d 00 95 3c c8 99  20 22 57 69 6d 70 5f 53  |p%...<.. "Wimp_S|
00000e60  65 74 43 61 72 65 74 50  6f 73 69 74 69 6f 6e 22  |etCaretPosition"|
00000e70  2c 57 69 6e 64 6f 77 25  2c 31 2c 2d 31 2c 2d 31  |,Window%,1,-1,-1|
00000e80  2c 2d 31 2c a9 28 6f 75  74 70 75 74 24 29 0d 00  |,-1,.(output$)..|
00000e90  96 2d 66 69 6c 65 74 79  70 65 25 3d 62 6c 6f 63  |.-filetype%=bloc|
00000ea0  6b 25 21 34 30 20 3a 20  66 69 6c 65 73 69 7a 65  |k%!40 : filesize|
00000eb0  25 3d 62 6c 6f 63 6b 25  21 33 36 0d 00 97 21 66  |%=block%!36...!f|
00000ec0  69 6c 65 6e 61 6d 65 24  3d a4 67 65 74 6e 61 6d  |ilename$=.getnam|
00000ed0  65 28 62 6c 6f 63 6b 25  2b 34 34 29 0d 00 98 32  |e(block%+44)...2|
00000ee0  62 6c 6f 63 6b 25 21 31  32 3d 62 6c 6f 63 6b 25  |block%!12=block%|
00000ef0  21 38 20 3a 20 62 6c 6f  63 6b 25 21 31 36 3d 34  |!8 : block%!16=4|
00000f00  20 3a 20 62 6c 6f 63 6b  25 21 30 3d 36 34 0d 00  | : block%!0=64..|
00000f10  99 2c c8 99 20 22 57 69  6d 70 5f 53 65 6e 64 4d  |.,.. "Wimp_SendM|
00000f20  65 73 73 61 67 65 22 2c  31 37 2c 62 6c 6f 63 6b  |essage",17,block|
00000f30  25 2c 62 6c 6f 63 6b 25  21 34 0d 00 9a 1f 74 65  |%,block%!4....te|
00000f40  6d 70 25 21 30 3d 57 69  6e 64 6f 77 25 20 3a 20  |mp%!0=Window% : |
00000f50  74 65 6d 70 25 21 34 3d  30 0d 00 9b 21 c8 99 20  |temp%!4=0...!.. |
00000f60  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00000f70  74 65 22 2c 2c 74 65 6d  70 25 0d 00 9c 24 24 28  |te",,temp%...$$(|
00000f80  74 65 6d 70 25 21 33 32  29 3d 22 53 66 69 6c 65  |temp%!32)="Sfile|
00000f90  5f 22 2b c3 7e 66 69 6c  65 74 79 70 65 25 0d 00  |_"+.~filetype%..|
00000fa0  9d 05 e1 0d 00 9e 05 3a  0d 00 9f 12 dd 20 f2 44  |.......:..... .D|
00000fb0  61 74 61 4c 6f 61 64 41  63 6b 0d 00 a0 17 e7 20  |ataLoadAck..... |
00000fc0  62 6c 6f 63 6b 25 21 31  32 3d 4d 69 6e 65 25 20  |block%!12=Mine% |
00000fd0  8c 0d 00 a1 20 20 20 4d  69 6e 65 25 3d 30 20 3a  |....   Mine%=0 :|
00000fe0  20 62 6c 6f 63 6b 25 21  30 3d 57 69 6e 64 6f 77  | block%!0=Window|
00000ff0  25 0d 00 a2 23 20 20 c8  99 20 22 57 69 6d 70 5f  |%...#  .. "Wimp_|
00001000  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 62 6c  |CloseWindow",,bl|
00001010  6f 63 6b 25 0d 00 a3 1e  20 20 c8 99 20 22 57 69  |ock%....  .. "Wi|
00001020  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00001030  2d 31 0d 00 a4 3f 20 20  e7 20 c0 66 69 6c 65 6e  |-1...?  . .filen|
00001040  61 6d 65 24 2c 31 32 29  3d 22 3c 57 69 6d 70 24  |ame$,12)="<Wimp$|
00001050  53 63 72 61 70 3e 22 20  8c 20 ff 20 22 44 65 6c  |Scrap>" . . "Del|
00001060  65 74 65 20 3c 57 69 6d  70 24 53 63 72 61 70 3e  |ete <Wimp$Scrap>|
00001070  22 0d 00 a5 05 cd 0d 00  a6 05 e1 0d 00 a7 05 3a  |"..............:|
00001080  0d 00 a8 0b dd 20 f2 4d  65 6e 75 0d 00 a9 0b ea  |..... .Menu.....|
00001090  20 69 74 65 6d 25 0d 00  aa 15 24 6d 65 6e 75 25  | item%....$menu%|
000010a0  3d 22 45 6d 62 6f 6c 64  65 6e 22 0d 00 ab 35 6d  |="Embolden"...5m|
000010b0  65 6e 75 25 3f 31 32 3d  37 20 3a 20 6d 65 6e 75  |enu%?12=7 : menu|
000010c0  25 3f 31 33 3d 32 20 3a  20 6d 65 6e 75 25 3f 31  |%?13=2 : menu%?1|
000010d0  34 3d 37 20 3a 20 6d 65  6e 75 25 3f 31 35 3d 30  |4=7 : menu%?15=0|
000010e0  0d 00 ac 2b 6d 65 6e 75  25 21 31 36 3d 31 30 30  |...+menu%!16=100|
000010f0  20 3a 20 6d 65 6e 75 25  21 32 30 3d 34 34 20 3a  | : menu%!20=44 :|
00001100  20 6d 65 6e 75 25 21 32  34 3d 30 0d 00 ad 2e 69  | menu%!24=0....i|
00001110  74 65 6d 25 3d 6d 65 6e  75 25 2b 32 38 20 3a 20  |tem%=menu%+28 : |
00001120  69 74 65 6d 25 21 30 3d  30 20 3a 20 69 74 65 6d  |item%!0=0 : item|
00001130  25 21 34 3d 49 6e 66 6f  25 0d 00 ae 28 69 74 65  |%!4=Info%...(ite|
00001140  6d 25 21 38 3d 25 31 31  31 30 30 30 30 30 30 30  |m%!8=%1110000000|
00001150  30 31 30 30 31 30 30 30  30 30 30 30 31 30 30 30  |0100100000001000|
00001160  31 0d 00 af 1b 24 28 69  74 65 6d 25 2b 31 32 29  |1....$(item%+12)|
00001170  3d 22 49 6e 66 6f 22 2b  bd 28 30 29 0d 00 b0 26  |="Info"+.(0)...&|
00001180  69 74 65 6d 25 3d 69 74  65 6d 25 2b 32 34 20 3a  |item%=item%+24 :|
00001190  20 69 74 65 6d 25 21 30  3d 25 31 30 30 30 30 30  | item%!0=%100000|
000011a0  30 30 0d 00 b1 0e 69 74  65 6d 25 21 34 3d 2d 31  |00....item%!4=-1|
000011b0  0d 00 b2 28 69 74 65 6d  25 21 38 3d 25 31 31 31  |...(item%!8=%111|
000011c0  30 30 30 30 30 30 30 30  31 30 30 31 30 30 30 30  |0000000010010000|
000011d0  30 30 30 31 30 30 30 31  0d 00 b3 1b 24 28 69 74  |00010001....$(it|
000011e0  65 6d 25 2b 31 32 29 3d  22 51 75 69 74 22 2b bd  |em%+12)="Quit"+.|
000011f0  28 30 29 0d 00 b4 3c c8  99 20 22 57 69 6d 70 5f  |(0)...<.. "Wimp_|
00001200  43 72 65 61 74 65 4d 65  6e 75 22 2c 20 30 2c 20  |CreateMenu", 0, |
00001210  6d 65 6e 75 25 2c 20 28  62 6c 6f 63 6b 25 21 30  |menu%, (block%!0|
00001220  29 2d 31 30 30 2f 32 2c  20 32 30 30 2d 31 36 0d  |)-100/2, 200-16.|
00001230  00 b5 05 e1 0d 00 b6 05  3a 0d 00 b7 0b dd 20 f2  |........:..... .|
00001240  49 63 6f 6e 0d 00 b8 0b  ea 20 74 65 6d 70 24 0d  |Icon..... temp$.|
00001250  00 b9 07 ea 20 85 0d 00  ba 48 ee 20 85 20 ea 20  |.... ....H. . . |
00001260  f2 52 65 70 6f 72 74 28  22 45 6d 62 6f 6c 64 65  |.Report("Embolde|
00001270  6e 20 65 72 72 6f 72 20  22 2b f6 24 2b 22 20 28  |n error "+.$+" (|
00001280  40 20 6c 69 6e 65 20 22  2b c3 9e 2b 22 2c 20 6e  |@ line "+..+", n|
00001290  6f 3a 20 22 2b c3 9f 2b  22 29 22 29 3a e1 0d 00  |o: "+..+")"):...|
000012a0  bb 09 f2 52 65 61 64 0d  00 bc 57 e7 20 a7 6f 75  |...Read...W. .ou|
000012b0  74 70 75 74 24 2c 22 2e  22 29 3d 30 20 8c 20 f2  |tput$,".")=0 . .|
000012c0  52 65 70 6f 72 74 28 22  54 6f 20 73 61 76 65 2c  |Report("To save,|
000012d0  20 64 72 61 67 20 74 68  65 20 66 69 6c 65 20 69  | drag the file i|
000012e0  63 6f 6e 20 74 6f 20 61  20 64 69 72 65 63 74 6f  |con to a directo|
000012f0  72 79 20 64 69 73 70 6c  61 79 22 29 3a e1 0d 00  |ry display"):...|
00001300  bd 59 e7 20 a4 6c 65 61  66 28 6f 75 74 70 75 74  |.Y. .leaf(output|
00001310  24 29 3d 22 22 20 8c 20  f2 52 65 70 6f 72 74 28  |$)="" . .Report(|
00001320  22 54 6f 20 73 61 76 65  2c 20 64 72 61 67 20 74  |"To save, drag t|
00001330  68 65 20 66 69 6c 65 20  69 63 6f 6e 20 74 6f 20  |he file icon to |
00001340  61 20 64 69 72 65 63 74  6f 72 79 20 64 69 73 70  |a directory disp|
00001350  6c 61 79 22 29 3a e1 0d  00 be 0e 74 65 6d 70 24  |lay"):.....temp$|
00001360  3d 67 61 70 24 0d 00 bf  20 f2 45 6d 62 6f 6c 64  |=gap$... .Embold|
00001370  65 6e 28 66 69 6c 65 6e  61 6d 65 24 2c 6f 75 74  |en(filename$,out|
00001380  70 75 74 24 29 0d 00 c0  14 62 6c 6f 63 6b 25 21  |put$)....block%!|
00001390  30 3d 57 69 6e 64 6f 77  25 0d 00 c1 21 c8 99 20  |0=Window%...!.. |
000013a0  22 57 69 6d 70 5f 43 6c  6f 73 65 57 69 6e 64 6f  |"Wimp_CloseWindo|
000013b0  77 22 2c 2c 62 6c 6f 63  6b 25 0d 00 c2 1c c8 99  |w",,block%......|
000013c0  20 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  | "Wimp_CreateMen|
000013d0  75 22 2c 2c 2d 31 0d 00  c3 05 e1 0d 00 c4 05 3a  |u",,-1.........:|
000013e0  0d 00 c5 0b dd 20 f2 44  72 61 67 0d 00 c6 25 ea  |..... .Drag...%.|
000013f0  20 69 63 25 2c 20 6d 69  6e 78 25 2c 20 6d 69 6e  | ic%, minx%, min|
00001400  79 25 2c 20 6d 61 78 78  25 2c 20 6d 61 78 79 25  |y%, maxx%, maxy%|
00001410  0d 00 c7 11 69 63 25 3d  62 6c 6f 63 6b 25 21 31  |....ic%=block%!1|
00001420  36 0d 00 c8 25 e7 20 28  62 6c 6f 63 6b 25 21 31  |6...%. (block%!1|
00001430  32 3d 57 69 6e 64 6f 77  25 29 20 80 20 28 69 63  |2=Window%) . (ic|
00001440  25 3d 30 29 20 8c 0d 00  c9 25 20 20 74 65 6d 70  |%=0) ....%  temp|
00001450  25 21 30 3d 57 69 6e 64  6f 77 25 20 3a 20 20 20  |%!0=Window% :   |
00001460  74 65 6d 70 25 21 34 3d  69 63 25 0d 00 ca 23 20  |temp%!4=ic%...# |
00001470  20 c8 99 20 22 57 69 6d  70 5f 47 65 74 49 63 6f  | .. "Wimp_GetIco|
00001480  6e 53 74 61 74 65 22 2c  2c 74 65 6d 70 25 0d 00  |nState",,temp%..|
00001490  cb 24 20 20 6d 69 6e 78  25 3d 74 65 6d 70 25 21  |.$  minx%=temp%!|
000014a0  38 20 3a 20 6d 69 6e 79  25 3d 74 65 6d 70 25 21  |8 : miny%=temp%!|
000014b0  31 32 0d 00 cc 25 20 20  6d 61 78 78 25 3d 74 65  |12...%  maxx%=te|
000014c0  6d 70 25 21 31 36 20 3a  20 6d 61 78 79 25 3d 74  |mp%!16 : maxy%=t|
000014d0  65 6d 70 25 21 32 30 0d  00 cd 25 20 20 c8 99 20  |emp%!20...%  .. |
000014e0  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
000014f0  74 61 74 65 22 2c 2c 74  65 6d 70 25 0d 00 ce 2f  |tate",,temp%.../|
00001500  20 20 6d 69 6e 78 25 3d  74 65 6d 70 25 21 34 2b  |  minx%=temp%!4+|
00001510  6d 69 6e 78 25 20 3a 20  6d 61 78 78 25 3d 74 65  |minx% : maxx%=te|
00001520  6d 70 25 21 34 2b 6d 61  78 78 25 0d 00 cf 31 20  |mp%!4+maxx%...1 |
00001530  20 6d 69 6e 79 25 3d 74  65 6d 70 25 21 31 36 2b  | miny%=temp%!16+|
00001540  6d 69 6e 79 25 20 3a 20  6d 61 78 79 25 3d 74 65  |miny% : maxy%=te|
00001550  6d 70 25 21 31 36 2b 6d  61 78 79 25 0d 00 d0 1b  |mp%!16+maxy%....|
00001560  20 20 74 65 6d 70 25 21  30 3d 30 20 3a 20 74 65  |  temp%!0=0 : te|
00001570  6d 70 25 21 34 3d 35 0d  00 d1 24 20 20 74 65 6d  |mp%!4=5...$  tem|
00001580  70 25 21 38 3d 6d 69 6e  78 25 20 3a 20 74 65 6d  |p%!8=minx% : tem|
00001590  70 25 21 31 32 3d 6d 69  6e 79 25 0d 00 d2 25 20  |p%!12=miny%...% |
000015a0  20 74 65 6d 70 25 21 31  36 3d 6d 61 78 78 25 20  | temp%!16=maxx% |
000015b0  3a 20 74 65 6d 70 25 21  32 30 3d 6d 61 78 79 25  |: temp%!20=maxy%|
000015c0  0d 00 d3 1d 20 20 74 65  6d 70 25 21 32 34 3d 30  |....  temp%!24=0|
000015d0  20 3a 20 74 65 6d 70 25  21 32 38 3d 30 0d 00 d4  | : temp%!28=0...|
000015e0  25 20 20 74 65 6d 70 25  21 33 32 3d 33 32 30 30  |%  temp%!32=3200|
000015f0  30 20 3a 20 74 65 6d 70  25 21 33 36 3d 33 32 30  |0 : temp%!36=320|
00001600  30 30 0d 00 d5 1e 20 20  c8 99 20 22 57 69 6d 70  |00....  .. "Wimp|
00001610  5f 44 72 61 67 42 6f 78  22 2c 2c 74 65 6d 70 25  |_DragBox",,temp%|
00001620  0d 00 d6 0b 20 20 f2 52  65 61 64 0d 00 d7 05 cd  |....  .Read.....|
00001630  0d 00 d8 05 e1 0d 00 d9  05 3a 0d 00 da 3a dd 20  |.........:...:. |
00001640  f2 52 65 70 6f 72 74 28  74 65 78 74 24 29 20 3a  |.Report(text$) :|
00001650  20 62 6c 6f 63 6b 25 21  30 3d 31 20 3a 20 24 28  | block%!0=1 : $(|
00001660  62 6c 6f 63 6b 25 2b 34  29 3d 74 65 78 74 24 2b  |block%+4)=text$+|
00001670  bd 28 30 29 0d 00 db 2d  c8 99 20 22 57 69 6d 70  |.(0)...-.. "Wimp|
00001680  5f 52 65 70 6f 72 74 45  72 72 6f 72 22 2c 62 6c  |_ReportError",bl|
00001690  6f 63 6b 25 2c 31 2c 22  45 6d 62 6f 6c 64 65 6e  |ock%,1,"Embolden|
000016a0  22 0d 00 dc 05 e1 0d 00  dd 05 3a 0d 00 de 63 dd  |".........:...c.|
000016b0  20 f2 42 61 72 20 3a 20  62 6c 6f 63 6b 25 21 30  | .Bar : block%!0|
000016c0  3d 2d 31 20 3a 20 62 6c  6f 63 6b 25 21 34 3d 30  |=-1 : block%!4=0|
000016d0  20 3a 20 62 6c 6f 63 6b  25 21 38 3d 2d 34 20 3a  | : block%!8=-4 :|
000016e0  20 62 6c 6f 63 6b 25 21  31 32 3d 36 38 20 3a 20  | block%!12=68 : |
000016f0  62 6c 6f 63 6b 25 21 31  36 3d 36 38 20 3a 20 62  |block%!16=68 : b|
00001700  6c 6f 63 6b 25 21 32 30  3d 26 32 30 30 32 0d 00  |lock%!20=&2002..|
00001710  df 42 24 28 62 6c 6f 63  6b 25 2b 32 34 29 3d 22  |.B$(block%+24)="|
00001720  21 45 6d 62 6f 6c 64 65  6e 22 20 3a 20 c8 99 20  |!Embolden" : .. |
00001730  22 57 69 6d 70 5f 43 72  65 61 74 65 49 63 6f 6e  |"Wimp_CreateIcon|
00001740  22 2c 2c 62 6c 6f 63 6b  25 20 b8 20 42 61 72 25  |",,block% . Bar%|
00001750  0d 00 e0 05 e1 0d 00 e1  05 3a 0d 00 e2 0b dd 20  |.........:..... |
00001760  f2 52 65 61 64 0d 00 e3  1f 74 65 6d 70 25 21 30  |.Read....temp%!0|
00001770  3d 57 69 6e 64 6f 77 25  20 3a 20 74 65 6d 70 25  |=Window% : temp%|
00001780  21 34 3d 31 0d 00 e4 21  c8 99 20 22 57 69 6d 70  |!4=1...!.. "Wimp|
00001790  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
000017a0  74 65 6d 70 25 0d 00 e5  17 6f 75 74 70 75 74 24  |temp%....output$|
000017b0  3d 24 28 74 65 6d 70 25  21 32 38 29 0d 00 e6 1f  |=$(temp%!28)....|
000017c0  74 65 6d 70 25 21 30 3d  57 69 6e 64 6f 77 25 20  |temp%!0=Window% |
000017d0  3a 20 74 65 6d 70 25 21  34 3d 33 0d 00 e7 21 c8  |: temp%!4=3...!.|
000017e0  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
000017f0  74 61 74 65 22 2c 2c 74  65 6d 70 25 0d 00 e8 14  |tate",,temp%....|
00001800  67 61 70 24 3d 24 28 74  65 6d 70 25 21 32 38 29  |gap$=$(temp%!28)|
00001810  0d 00 e9 20 74 65 6d 70  25 21 30 3d 57 69 6e 64  |... temp%!0=Wind|
00001820  6f 77 25 20 3a 20 74 65  6d 70 25 21 34 3d 31 30  |ow% : temp%!4=10|
00001830  0d 00 ea 21 c8 99 20 22  57 69 6d 70 5f 47 65 74  |...!.. "Wimp_Get|
00001840  49 63 6f 6e 53 74 61 74  65 22 2c 2c 74 65 6d 70  |IconState",,temp|
00001850  25 0d 00 eb 15 67 61 70  59 24 3d 24 28 74 65 6d  |%....gapY$=$(tem|
00001860  70 25 21 32 38 29 0d 00  ec 05 e1 0d 00 ed 05 3a  |p%!28).........:|
00001870  0d 00 ee 0c dd 20 f2 57  72 69 74 65 0d 00 ef 1f  |..... .Write....|
00001880  74 65 6d 70 25 21 30 3d  57 69 6e 64 6f 77 25 20  |temp%!0=Window% |
00001890  3a 20 74 65 6d 70 25 21  34 3d 31 0d 00 f0 21 c8  |: temp%!4=1...!.|
000018a0  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
000018b0  74 61 74 65 22 2c 2c 74  65 6d 70 25 0d 00 f1 17  |tate",,temp%....|
000018c0  24 28 74 65 6d 70 25 21  32 38 29 3d 6f 75 74 70  |$(temp%!28)=outp|
000018d0  75 74 24 0d 00 f2 1f 74  65 6d 70 25 21 30 3d 57  |ut$....temp%!0=W|
000018e0  69 6e 64 6f 77 25 20 3a  20 74 65 6d 70 25 21 34  |indow% : temp%!4|
000018f0  3d 33 0d 00 f3 21 c8 99  20 22 57 69 6d 70 5f 47  |=3...!.. "Wimp_G|
00001900  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 74 65  |etIconState",,te|
00001910  6d 70 25 0d 00 f4 14 24  28 74 65 6d 70 25 21 32  |mp%....$(temp%!2|
00001920  38 29 3d 67 61 70 24 0d  00 f5 20 74 65 6d 70 25  |8)=gap$... temp%|
00001930  21 30 3d 57 69 6e 64 6f  77 25 20 3a 20 74 65 6d  |!0=Window% : tem|
00001940  70 25 21 34 3d 31 30 0d  00 f6 21 c8 99 20 22 57  |p%!4=10...!.. "W|
00001950  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
00001960  22 2c 2c 74 65 6d 70 25  0d 00 f7 15 24 28 74 65  |",,temp%....$(te|
00001970  6d 70 25 21 32 38 29 3d  67 61 70 59 24 0d 00 f8  |mp%!28)=gapY$...|
00001980  05 e1 0d 00 f9 05 3a 0d  00 fa 14 dd 20 a4 67 65  |......:..... .ge|
00001990  74 6e 61 6d 65 28 70 74  72 25 29 0d 00 fb 08 ea  |tname(ptr%).....|
000019a0  20 70 24 0d 00 fc 1b c8  95 20 3f 70 74 72 25 3c  | p$...... ?ptr%<|
000019b0  31 32 38 20 80 20 3f 70  74 72 25 3e 33 31 0d 00  |128 . ?ptr%>31..|
000019c0  fd 1c 20 20 70 24 2b 3d  bd 28 3f 70 74 72 25 29  |..  p$+=.(?ptr%)|
000019d0  20 3a 20 70 74 72 25 2b  3d 31 0d 00 fe 05 ce 0d  | : ptr%+=1......|
000019e0  00 ff 07 3d 70 24 0d 01  00 05 3a 0d 01 01 0f dd  |...=p$....:.....|
000019f0  20 a4 6c 65 61 66 28 66  24 29 0d 01 02 0f c8 95  | .leaf(f$)......|
00001a00  20 a7 66 24 2c 22 2e 22  29 0d 01 03 18 20 20 66  | .f$,".")....  f|
00001a10  24 3d c1 66 24 2c a7 66  24 2c 22 2e 22 29 2b 31  |$=.f$,.f$,".")+1|
00001a20  29 0d 01 04 05 ce 0d 01  05 07 3d 66 24 0d 01 06  |).........=f$...|
00001a30  05 3a 0d 01 07 11 dd 20  f2 49 6e 69 74 69 61 6c  |.:..... .Initial|
00001a40  69 7a 65 0d 01 08 19 ea  20 57 69 6d 70 25 2c 20  |ize..... Wimp%, |
00001a50  74 61 73 6b 25 2c 20 6e  65 78 74 25 0d 01 09 05  |task%, next%....|
00001a60  3a 0d 01 0a 1d 57 69 6d  70 25 3d 32 20 3a 20 74  |:....Wimp%=2 : t|
00001a70  61 73 6b 25 3d 26 34 42  35 33 34 31 35 34 0d 01  |ask%=&4B534154..|
00001a80  0b 3e c8 99 20 22 57 69  6d 70 5f 49 6e 69 74 69  |.>.. "Wimp_Initi|
00001a90  61 6c 69 73 65 22 2c 20  57 69 6d 70 25 2a 31 30  |alise", Wimp%*10|
00001aa0  30 2c 20 74 61 73 6b 25  2c 20 22 45 6d 62 6f 6c  |0, task%, "Embol|
00001ab0  64 65 6e 22 20 b8 20 57  69 6d 70 25 0d 01 0c 4d  |den" . Wimp%...M|
00001ac0  e7 20 57 69 6d 70 25 3c  32 30 30 20 8c 20 f2 52  |. Wimp%<200 . .R|
00001ad0  65 70 6f 72 74 28 22 45  6d 62 6f 6c 64 65 6e 20  |eport("Embolden |
00001ae0  6e 65 65 64 73 20 61 20  6e 65 77 65 72 20 76 65  |needs a newer ve|
00001af0  72 73 69 6f 6e 20 6f 66  20 57 69 6e 64 6f 77 20  |rsion of Window |
00001b00  4d 61 6e 61 67 65 72 22  29 0d 01 0d 5a ee 20 85  |Manager")...Z. .|
00001b10  20 f2 52 65 70 6f 72 74  28 22 45 6d 62 6f 6c 64  | .Report("Embold|
00001b20  65 6e 20 65 72 72 6f 72  20 22 2b f6 24 2b 22 20  |en error "+.$+" |
00001b30  28 40 20 6c 69 6e 65 20  22 2b c3 9e 2b 22 2c 20  |(@ line "+..+", |
00001b40  6e 6f 3a 20 22 2b c3 9f  2b 22 29 22 29 3a c8 99  |no: "+..+")"):..|
00001b50  20 22 57 69 6d 70 5f 43  6c 6f 73 65 44 6f 77 6e  | "Wimp_CloseDown|
00001b60  22 3a e0 0d 01 0e 05 3a  0d 01 0f 31 6f 75 74 70  |":.....:...1outp|
00001b70  75 74 24 3d 22 45 6d 62  6f 6c 64 65 6e 65 64 22  |ut$="Emboldened"|
00001b80  20 3a 20 67 61 70 24 3d  22 30 22 20 3a 20 67 61  | : gap$="0" : ga|
00001b90  70 59 24 20 3d 20 22 3d  22 0d 01 10 37 42 6f 74  |pY$ = "="...7Bot|
00001ba0  68 25 20 3d 20 b9 20 3a  20 46 69 78 4f 70 65 6e  |h% = . : FixOpen|
00001bb0  73 25 20 3d 20 b9 20 3a  20 56 45 6e 64 73 25 20  |s% = . : VEnds% |
00001bc0  3d 20 a3 20 3a 20 48 45  6e 64 73 25 20 3d 20 a3  |= . : HEnds% = .|
00001bd0  0d 01 11 2b 66 69 6c 65  73 69 7a 65 25 3d 30 20  |...+filesize%=0 |
00001be0  3a 20 66 69 6c 65 74 79  70 65 25 3d 30 20 3a 20  |: filetype%=0 : |
00001bf0  66 69 6e 69 73 68 65 64  25 3d a3 0d 01 12 39 c8  |finished%=....9.|
00001c00  99 20 22 57 69 6d 70 5f  4f 70 65 6e 54 65 6d 70  |. "Wimp_OpenTemp|
00001c10  6c 61 74 65 22 2c 20 30  2c 20 22 3c 45 6d 62 6f  |late", 0, "<Embo|
00001c20  6c 64 65 6e 24 44 69 72  3e 2e 54 65 6d 70 6c 61  |lden$Dir>.Templa|
00001c30  74 65 73 22 0d 01 13 51  c8 99 20 22 57 69 6d 70  |tes"...Q.. "Wimp|
00001c40  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
00001c50  20 62 6c 6f 63 6b 25 2c  20 57 6f 72 6b 25 2c 20  | block%, Work%, |
00001c60  57 6f 72 6b 25 2b 31 30  32 34 2c 20 2d 31 2c 20  |Work%+1024, -1, |
00001c70  22 73 61 76 65 61 73 22  2c 20 30 20 b8 20 2c 2c  |"saveas", 0 . ,,|
00001c80  6e 65 78 74 25 0d 01 14  2d c8 99 20 22 57 69 6d  |next%...-.. "Wim|
00001c90  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00001ca0  2c 20 62 6c 6f 63 6b 25  20 b8 20 57 69 6e 64 6f  |, block% . Windo|
00001cb0  77 25 0d 01 15 4f c8 99  20 22 57 69 6d 70 5f 4c  |w%...O.. "Wimp_L|
00001cc0  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 20 62  |oadTemplate",, b|
00001cd0  6c 6f 63 6b 25 2c 20 6e  65 78 74 25 2c 20 57 6f  |lock%, next%, Wo|
00001ce0  72 6b 25 2b 31 30 32 34  2c 20 2d 31 2c 20 22 69  |rk%+1024, -1, "i|
00001cf0  6e 66 6f 22 2c 20 30 20  b8 20 2c 2c 6e 65 78 74  |nfo", 0 . ,,next|
00001d00  25 0d 01 16 2b c8 99 20  22 57 69 6d 70 5f 43 72  |%...+.. "Wimp_Cr|
00001d10  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 20 62 6c  |eateWindow",, bl|
00001d20  6f 63 6b 25 20 b8 20 49  6e 66 6f 25 0d 01 17 1b  |ock% . Info%....|
00001d30  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 54 65  |.. "Wimp_CloseTe|
00001d40  6d 70 6c 61 74 65 22 0d  01 18 05 e1 0d 01 19 05  |mplate".........|
00001d50  3a 0d 01 1a 10 dd 20 f2  4c 6f 61 64 28 69 6e 24  |:..... .Load(in$|
00001d60  29 0d 01 1b 28 c8 99 20  22 4f 53 5f 46 69 6c 65  |)...(.. "OS_File|
00001d70  22 2c 31 37 2c 69 6e 24  20 b8 20 74 79 70 65 2c  |",17,in$ . type,|
00001d80  2c 2c 2c 45 78 74 65 6e  74 0d 01 1c 25 c8 99 20  |,,,Extent...%.. |
00001d90  22 57 69 6d 70 5f 53 6c  6f 74 53 69 7a 65 22 2c  |"Wimp_SlotSize",|
00001da0  2d 31 2c 2d 31 20 b8 20  2c 2c 46 72 65 65 0d 01  |-1,-1 . ,,Free..|
00001db0  1d 46 e7 20 46 72 65 65  20 3c 20 45 78 74 65 6e  |.F. Free < Exten|
00001dc0  74 2a 33 20 f2 52 65 70  6f 72 74 28 22 55 6e 61  |t*3 .Report("Una|
00001dd0  62 6c 65 20 74 6f 20 63  6c 61 69 6d 20 73 75 66  |ble to claim suf|
00001de0  66 69 63 69 65 6e 74 20  6d 65 6d 6f 72 79 22 29  |ficient memory")|
00001df0  20 3a 20 e1 0d 01 1e 28  c8 99 20 22 57 69 6d 70  | : ....(.. "Wimp|
00001e00  5f 53 6c 6f 74 53 69 7a  65 22 2c 93 20 2b 20 45  |_SlotSize",. + E|
00001e10  78 74 65 6e 74 2a 33 20  2c 20 2d 31 0d 01 1f 0c  |xtent*3 , -1....|
00001e20  42 75 66 66 20 3d 20 93  0d 01 20 22 ff 20 22 4c  |Buff = ... ". "L|
00001e30  4f 41 44 20 22 20 2b 20  69 6e 24 20 2b 20 22 20  |OAD " + in$ + " |
00001e40  22 20 2b 20 c3 7e 42 75  66 66 0d 01 21 05 e1 0d  |" + .~Buff..!...|
00001e50  01 22 05 3a 0d 01 23 11  dd 20 f2 53 61 76 65 28  |.".:..#.. .Save(|
00001e60  6f 75 74 24 29 0d 01 24  1b e7 20 ac 20 42 6f 74  |out$)..$.. . Bot|
00001e70  68 25 20 50 74 72 52 25  20 3d 20 50 74 72 4c 25  |h% PtrR% = PtrL%|
00001e80  0d 01 25 3c ff 20 22 53  41 56 45 20 22 20 2b 20  |..%<. "SAVE " + |
00001e90  6f 75 74 24 20 2b 20 22  20 22 20 2b 20 c3 7e 28  |out$ + " " + .~(|
00001ea0  42 75 66 66 2b 45 78 74  65 6e 74 29 20 2b 20 22  |Buff+Extent) + "|
00001eb0  20 22 20 2b 20 c3 7e 50  74 72 52 25 0d 01 26 20  | " + .~PtrR%..& |
00001ec0  ff 20 22 53 45 54 54 59  50 45 20 22 20 2b 20 6f  |. "SETTYPE " + o|
00001ed0  75 74 24 20 2b 20 22 20  41 46 46 22 0d 01 27 13  |ut$ + " AFF"..'.|
00001ee0  f2 52 65 6c 65 61 73 65  42 75 66 66 65 72 73 0d  |.ReleaseBuffers.|
00001ef0  01 28 05 e1 0d 01 29 05  3a 0d 01 2a 19 dd 20 f2  |.(....).:..*.. .|
00001f00  45 6d 62 6f 6c 64 65 6e  28 69 6e 24 2c 6f 75 74  |Embolden(in$,out|
00001f10  24 29 0d 01 2b 22 20 20  f2 4c 6f 61 64 28 69 6e  |$)..+"  .Load(in|
00001f20  24 29 20 3a 20 67 25 20  3d 20 a4 6d 6d 28 bb 67  |$) : g% = .mm(.g|
00001f30  61 70 24 29 0d 01 2c 30  20 20 e7 20 67 61 70 59  |ap$)..,0  . gapY|
00001f40  24 20 3d 20 22 3d 22 20  67 79 25 20 3d 20 67 25  |$ = "=" gy% = g%|
00001f50  20 8b 20 67 79 25 20 3d  20 a4 6d 6d 28 bb 67 61  | . gy% = .mm(.ga|
00001f60  70 59 24 29 0d 01 2d 29  20 20 e7 20 67 79 25 20  |pY$)..-)  . gy% |
00001f70  3d 20 30 20 67 72 20 3d  20 35 20 8b 20 67 72 20  |= 0 gr = 5 . gr |
00001f80  3d 20 94 28 67 25 20 2f  20 67 79 25 29 0d 01 2e  |= .(g% / gy%)...|
00001f90  0e 20 20 67 59 25 20 3d  20 67 25 0d 01 2f 27 20  |.  gY% = g%../' |
00001fa0  20 e7 20 67 72 20 3e 3d  20 35 20 67 72 20 3d 20  | . gr >= 5 gr = |
00001fb0  35 20 3a 20 67 59 25 20  3d 20 67 79 25 20 2a 20  |5 : gY% = gy% * |
00001fc0  67 72 0d 01 30 28 20 20  e7 20 67 72 20 3c 20 2e  |gr..0(  . gr < .|
00001fd0  32 20 67 72 20 3d 20 2e  32 20 3a 20 67 59 25 20  |2 gr = .2 : gY% |
00001fe0  3d 20 67 79 25 20 2a 20  67 72 0d 01 31 42 20 20  |= gy% * gr..1B  |
00001ff0  50 74 72 31 20 3d 20 42  75 66 66 20 3a 20 50 74  |Ptr1 = Buff : Pt|
00002000  72 4c 25 20 3d 20 42 75  66 66 20 2b 20 45 78 74  |rL% = Buff + Ext|
00002010  65 6e 74 20 3a 20 50 74  72 52 25 20 3d 20 50 74  |ent : PtrR% = Pt|
00002020  72 4c 25 20 2b 20 45 78  74 65 6e 74 0d 01 32 2e  |rL% + Extent..2.|
00002030  20 20 24 28 50 74 72 31  20 2b 20 31 32 29 20 3d  |  $(Ptr1 + 12) =|
00002040  20 22 45 6d 62 6f 6c 64  65 6e 22 20 3a 20 50 74  | "Embolden" : Pt|
00002050  72 31 21 31 38 20 3d 20  33 32 0d 01 33 49 20 20  |r1!18 = 32..3I  |
00002060  50 74 72 31 21 32 34 20  2d 3d 20 94 67 25 20 3a  |Ptr1!24 -= .g% :|
00002070  20 50 74 72 31 21 32 38  20 2d 3d 20 94 67 79 25  | Ptr1!28 -= .gy%|
00002080  20 3a 20 50 74 72 31 21  33 32 20 2b 3d 20 94 67  | : Ptr1!32 += .g|
00002090  25 20 3a 20 50 74 72 31  21 33 36 20 2b 3d 20 94  |% : Ptr1!36 += .|
000020a0  67 79 25 0d 01 34 48 20  20 e3 20 4e 20 3d 20 30  |gy%..4H  . N = 0|
000020b0  20 b8 20 33 36 20 88 20  34 20 3a 20 50 74 72 4c  | . 36 . 4 : PtrL|
000020c0  25 21 4e 20 3d 20 50 74  72 31 21 4e 20 3a 20 ed  |%!N = Ptr1!N : .|
000020d0  20 3a 20 50 74 72 31 20  2b 3d 20 34 30 20 3a 20  | : Ptr1 += 40 : |
000020e0  50 74 72 4c 25 20 2b 3d  20 34 30 0d 01 35 07 20  |PtrL% += 40..5. |
000020f0  20 f5 0d 01 36 13 20 20  20 20 50 74 72 54 20 3d  | ...6.    PtrT =|
00002100  20 50 74 72 31 0d 01 37  1d 20 20 20 20 f2 4f 62  | Ptr1..7.    .Ob|
00002110  6a 65 63 74 28 67 25 2c  67 59 25 2c 50 74 72 4c  |ject(g%,gY%,PtrL|
00002120  25 29 0d 01 38 35 20 20  20 20 e7 20 42 6f 74 68  |%)..85    . Both|
00002130  25 20 50 74 72 31 20 3d  20 50 74 72 54 20 3a 20  |% Ptr1 = PtrT : |
00002140  f2 4f 62 6a 65 63 74 28  2d 67 25 2c 2d 67 59 25  |.Object(-g%,-gY%|
00002150  2c 50 74 72 52 25 29 0d  01 39 1d 20 20 fd 20 50  |,PtrR%)..9.  . P|
00002160  74 72 31 20 3e 3d 20 42  75 66 66 20 2b 20 45 78  |tr1 >= Buff + Ex|
00002170  74 65 6e 74 0d 01 3a 11  20 20 f2 53 61 76 65 28  |tent..:.  .Save(|
00002180  6f 75 74 24 29 0d 01 3b  05 e1 0d 01 3c 05 3a 0d  |out$)..;....<.:.|
00002190  01 3d 20 dd a4 6d 6d 28  64 29 20 3d 20 a8 28 64  |.= ..mm(d) = .(d|
000021a0  2a 31 38 31 34 2e 31 37  20 2b 20 30 2e 35 29 0d  |*1814.17 + 0.5).|
000021b0  01 3e 05 3a 0d 01 3f 1d  dd 20 f2 4f 62 6a 65 63  |.>.:..?.. .Objec|
000021c0  74 28 64 25 2c 64 59 25  2c f8 20 50 74 72 32 25  |t(d%,dY%,. Ptr2%|
000021d0  29 0d 01 40 0e c8 8e 20  21 50 74 72 31 20 ca 0d  |)..@... !Ptr1 ..|
000021e0  01 41 11 20 20 c9 20 32  20 3a 20 f2 50 61 74 68  |.A.  . 2 : .Path|
000021f0  0d 01 42 12 20 20 c9 20  36 20 3a 20 f2 47 72 6f  |..B.  . 6 : .Gro|
00002200  75 70 0d 01 43 10 20 20  c9 20 37 20 3a 20 f2 54  |up..C.  . 7 : .T|
00002210  61 67 0d 01 44 2a 20 20  c9 20 26 36 36 36 31 36  |ag..D*  . &66616|
00002220  33 35 33 20 3a 20 f2 53  63 61 66 73 20 3a 20 f2  |353 : .Scafs : .|
00002230  43 6f 70 79 28 50 74 72  31 21 34 29 0d 01 45 17  |Copy(Ptr1!4)..E.|
00002240  20 20 7f 20 3a 20 f2 43  6f 70 79 28 50 74 72 31  |  . : .Copy(Ptr1|
00002250  21 34 29 0d 01 46 05 cb  0d 01 47 05 e1 0d 01 48  |!4)..F....G....H|
00002260  05 3a 0d 01 49 23 dd f2  53 63 61 66 73 20 3a 20  |.:..I#..Scafs : |
00002270  ea 20 50 74 72 2c 20 50  6f 69 6e 74 65 72 2c 20  |. Ptr, Pointer, |
00002280  54 61 62 6c 65 0d 01 4a  3d 57 69 64 65 6e 58 25  |Table..J=WidenX%|
00002290  20 3d 20 28 67 25 2b 34  38 2a b4 67 25 29 20 2f  | = (g%+48*.g%) /|
000022a0  20 39 36 20 3a 20 57 69  64 65 6e 59 25 20 3d 20  | 96 : WidenY% = |
000022b0  28 67 79 25 2b 34 38 2a  b4 67 59 25 29 20 2f 20  |(gy%+48*.gY%) / |
000022c0  39 36 0d 01 4b 2a 4e 6f  4f 66 53 63 61 66 73 20  |96..K*NoOfScafs |
000022d0  3d 20 50 74 72 31 21 38  20 3a 20 54 61 62 6c 65  |= Ptr1!8 : Table|
000022e0  20 3d 20 50 74 72 31 20  2b 20 31 32 0d 01 4c 36  | = Ptr1 + 12..L6|
000022f0  e3 20 50 6f 69 6e 74 65  72 20 3d 20 54 61 62 6c  |. Pointer = Tabl|
00002300  65 20 2b 20 36 34 20 b8  20 54 61 62 6c 65 20 2b  |e + 64 . Table +|
00002310  20 4e 6f 4f 66 53 63 61  66 73 2a 32 2d 32 20 88  | NoOfScafs*2-2 .|
00002320  20 32 0d 01 4d 1f 20 20  4f 66 66 73 65 74 20 3d  | 2..M.  Offset =|
00002330  20 21 50 6f 69 6e 74 65  72 20 80 20 26 46 46 46  | !Pointer . &FFF|
00002340  46 0d 01 4e 14 20 20 e7  20 4f 66 66 73 65 74 20  |F..N.  . Offset |
00002350  3e 20 30 20 8c 0d 01 4f  2b 20 20 20 20 50 74 72  |> 0 ...O+    Ptr|
00002360  20 3d 20 4f 66 66 73 65  74 20 2b 20 35 20 3a 20  | = Offset + 5 : |
00002370  57 69 64 65 6e 25 20 3d  20 57 69 64 65 6e 58 25  |Widen% = WidenX%|
00002380  0d 01 50 16 20 20 20 20  e3 20 62 69 74 20 3d 20  |..P.    . bit = |
00002390  30 20 b8 20 31 35 0d 01  51 24 20 20 20 20 20 20  |0 . 15..Q$      |
000023a0  e7 20 62 69 74 20 3d 20  38 20 57 69 64 65 6e 25  |. bit = 8 Widen%|
000023b0  20 3d 20 57 69 64 65 6e  59 25 0d 01 52 26 20 20  | = WidenY%..R&  |
000023c0  20 20 20 20 e7 20 54 61  62 6c 65 21 28 4f 66 66  |    . Table!(Off|
000023d0  73 65 74 2b 33 29 20 80  20 32 5e 62 69 74 20 8c  |set+3) . 2^bit .|
000023e0  0d 01 53 25 20 20 20 20  20 20 20 20 43 6f 6f 72  |..S%        Coor|
000023f0  64 25 20 3d 20 54 61 62  6c 65 21 50 74 72 20 80  |d% = Table!Ptr .|
00002400  20 26 46 46 46 0d 01 54  2a 20 20 20 20 20 20 20  | &FFF..T*       |
00002410  20 e7 20 43 6f 6f 72 64  25 20 3e 20 32 30 34 37  | . Coord% > 2047|
00002420  20 43 6f 6f 72 64 25 20  2d 3d 20 34 30 39 36 0d  | Coord% -= 4096.|
00002430  01 55 22 20 20 20 20 20  20 20 20 57 69 64 74 68  |.U"        Width|
00002440  25 20 3d 20 50 74 72 3f  28 54 61 62 6c 65 2b 32  |% = Ptr?(Table+2|
00002450  29 0d 01 56 24 20 20 20  20 20 20 20 20 52 69 67  |)..V$        Rig|
00002460  68 74 25 20 3d 20 43 6f  6f 72 64 25 20 2b 20 57  |ht% = Coord% + W|
00002470  69 64 74 68 25 0d 01 57  51 20 20 20 20 20 20 20  |idth%..WQ       |
00002480  20 e7 20 57 69 64 74 68  25 20 3d 20 32 35 35 20  | . Width% = 255 |
00002490  43 6f 6f 72 64 25 20 2b  3d 20 57 69 64 65 6e 25  |Coord% += Widen%|
000024a0  20 8b 20 43 6f 6f 72 64  25 20 2d 3d 20 57 69 64  | . Coord% -= Wid|
000024b0  65 6e 25 20 3a 20 52 69  67 68 74 25 20 2b 3d 20  |en% : Right% += |
000024c0  57 69 64 65 6e 25 0d 01  58 41 20 20 20 20 20 20  |Widen%..XA      |
000024d0  20 20 54 61 62 6c 65 21  50 74 72 20 3d 20 28 54  |  Table!Ptr = (T|
000024e0  61 62 6c 65 21 50 74 72  20 80 20 26 46 46 46 46  |able!Ptr . &FFFF|
000024f0  46 30 30 30 29 20 84 20  28 43 6f 6f 72 64 25 20  |F000) . (Coord% |
00002500  80 20 26 46 46 46 29 0d  01 59 1c 20 20 20 20 20  |. &FFF)..Y.     |
00002510  20 20 20 e7 20 57 69 64  74 68 25 20 3c 20 32 35  |   . Width% < 25|
00002520  34 20 8c 0d 01 5a 29 20  20 20 20 20 20 20 20 20  |4 ...Z)         |
00002530  20 57 69 64 74 68 25 20  3d 20 94 28 52 69 67 68  | Width% = .(Righ|
00002540  74 25 20 2d 20 43 6f 6f  72 64 25 29 0d 01 5b 49  |t% - Coord%)..[I|
00002550  20 20 20 20 20 20 20 20  20 20 e7 20 57 69 64 74  |          . Widt|
00002560  68 25 20 3c 20 32 35 34  20 50 74 72 3f 28 54 61  |h% < 254 Ptr?(Ta|
00002570  62 6c 65 2b 32 29 20 3d  20 57 69 64 74 68 25 20  |ble+2) = Width% |
00002580  8b 20 50 74 72 3f 28 54  61 62 6c 65 2b 32 29 20  |. Ptr?(Table+2) |
00002590  3d 20 32 35 33 0d 01 5c  0d 20 20 20 20 20 20 20  |= 253..\.       |
000025a0  20 cd 0d 01 5d 14 20 20  20 20 20 20 20 20 50 74  | ...].        Pt|
000025b0  72 20 2b 3d 20 33 0d 01  5e 0b 20 20 20 20 20 20  |r += 3..^.      |
000025c0  cd 0d 01 5f 09 20 20 20  20 ed 0d 01 60 07 20 20  |..._.    ...`.  |
000025d0  cd 0d 01 61 05 ed 0d 01  62 05 e1 0d 01 63 05 3a  |...a....b....c.:|
000025e0  0d 01 64 0c dd f2 48 65  61 64 65 72 0d 01 65 0d  |..d...Header..e.|
000025f0  f2 43 6f 70 79 28 32 34  29 0d 01 66 4d 50 74 72  |.Copy(24)..fMPtr|
00002600  32 25 21 2d 31 36 20 2d  3d 20 94 64 25 20 3a 20  |2%!-16 -= .d% : |
00002610  50 74 72 32 25 21 2d 31  32 20 2d 3d 20 94 67 79  |Ptr2%!-12 -= .gy|
00002620  25 20 3a 20 50 74 72 32  25 21 2d 38 20 2b 3d 20  |% : Ptr2%!-8 += |
00002630  94 64 25 20 3a 20 50 74  72 32 25 21 2d 34 20 2b  |.d% : Ptr2%!-4 +|
00002640  3d 20 94 67 79 25 0d 01  67 05 e1 0d 01 68 05 3a  |= .gy%..g....h.:|
00002650  0d 01 69 24 dd 20 f2 47  72 6f 75 70 20 3a 20 ea  |..i$. .Group : .|
00002660  20 47 72 6f 75 70 53 74  61 72 74 2c 47 72 6f 75  | GroupStart,Grou|
00002670  70 45 6e 64 0d 01 6a 31  47 72 6f 75 70 53 74 61  |pEnd..j1GroupSta|
00002680  72 74 20 3d 20 50 74 72  32 25 20 3a 20 47 72 6f  |rt = Ptr2% : Gro|
00002690  75 70 45 6e 64 20 3d 20  50 74 72 31 20 2b 20 50  |upEnd = Ptr1 + P|
000026a0  74 72 31 21 34 0d 01 6b  0d f2 43 6f 70 79 28 33  |tr1!4..k..Copy(3|
000026b0  36 29 0d 01 6c 2f f5 20  f2 4f 62 6a 65 63 74 28  |6)..l/. .Object(|
000026c0  64 25 2c 64 59 25 2c 50  74 72 32 25 29 20 3a 20  |d%,dY%,Ptr2%) : |
000026d0  fd 20 50 74 72 31 20 3d  20 47 72 6f 75 70 45 6e  |. Ptr1 = GroupEn|
000026e0  64 0d 01 6d 25 47 72 6f  75 70 53 74 61 72 74 21  |d..m%GroupStart!|
000026f0  34 20 3d 20 50 74 72 32  25 20 2d 20 47 72 6f 75  |4 = Ptr2% - Grou|
00002700  70 53 74 61 72 74 0d 01  6e 05 e1 0d 01 6f 05 3a  |pStart..n....o.:|
00002710  0d 01 70 1d dd f2 54 61  67 20 3a 20 ea 20 54 61  |..p...Tag : . Ta|
00002720  67 53 74 61 72 74 2c 54  61 67 45 6e 64 0d 01 71  |gStart,TagEnd..q|
00002730  2d 54 61 67 53 74 61 72  74 20 3d 20 50 74 72 32  |-TagStart = Ptr2|
00002740  25 20 3a 20 54 61 67 45  6e 64 20 3d 20 50 74 72  |% : TagEnd = Ptr|
00002750  31 20 2b 20 50 74 72 31  21 34 0d 01 72 0d f2 43  |1 + Ptr1!4..r..C|
00002760  6f 70 79 28 32 38 29 0d  01 73 30 f2 4f 62 6a 65  |opy(28)..s0.Obje|
00002770  63 74 28 64 25 2c 64 59  25 2c 50 74 72 32 25 29  |ct(d%,dY%,Ptr2%)|
00002780  20 3a 20 f2 43 6f 70 79  28 54 61 67 45 6e 64 20  | : .Copy(TagEnd |
00002790  2d 20 50 74 72 31 29 0d  01 74 21 54 61 67 53 74  |- Ptr1)..t!TagSt|
000027a0  61 72 74 21 34 20 3d 20  50 74 72 32 25 20 2d 20  |art!4 = Ptr2% - |
000027b0  54 61 67 53 74 61 72 74  0d 01 75 05 e1 0d 01 76  |TagStart..u....v|
000027c0  05 3a 0d 01 77 0d dd f2  43 6f 70 79 28 4c 29 0d  |.:..w...Copy(L).|
000027d0  01 78 2c e3 20 4e 20 3d  20 30 20 b8 20 4c 2d 34  |.x,. N = 0 . L-4|
000027e0  20 88 20 34 20 3a 20 50  74 72 32 25 21 4e 20 3d  | . 4 : Ptr2%!N =|
000027f0  20 50 74 72 31 21 4e 20  3a 20 ed 0d 01 79 1a 50  | Ptr1!N : ...y.P|
00002800  74 72 31 20 2b 3d 20 4c  20 3a 20 50 74 72 32 25  |tr1 += L : Ptr2%|
00002810  20 2b 3d 20 4c 0d 01 7a  05 e1 0d 01 7b 05 3a 0d  | += L..z....{.:.|
00002820  01 7c 15 dd 20 f2 50 61  74 68 20 3a 20 45 6f 50  |.|.. .Path : EoP|
00002830  20 3d 20 a3 0d 01 7d 21  20 20 e7 20 a4 4f 70 65  | = ...}!  . .Ope|
00002840  6e 28 50 74 72 31 29 20  80 20 46 69 78 4f 70 65  |n(Ptr1) . FixOpe|
00002850  6e 73 25 20 8c 0d 01 7e  30 20 20 20 20 e7 20 64  |ns% ...~0    . d|
00002860  25 20 3d 20 67 25 20 f2  43 6f 70 79 28 50 74 72  |% = g% .Copy(Ptr|
00002870  31 21 34 29 20 8b 20 50  74 72 31 20 2b 3d 20 50  |1!4) . Ptr1 += P|
00002880  74 72 31 21 34 0d 01 7f  07 20 20 cc 0d 01 80 24  |tr1!4....  ....$|
00002890  20 20 20 20 f2 48 65 61  64 65 72 20 3a 20 f2 43  |    .Header : .C|
000028a0  6f 70 79 28 32 30 29 20  3a 20 f2 46 69 72 73 74  |opy(20) : .First|
000028b0  0d 01 81 1c 20 20 20 20  f5 20 f2 43 6f 6d 70 6f  |....    . .Compo|
000028c0  6e 65 6e 74 20 3a 20 fd  20 45 6f 50 0d 01 82 19  |nent : . EoP....|
000028d0  20 20 20 20 e7 20 ac 20  43 6c 6f 73 65 20 f2 46  |    . . Close .F|
000028e0  69 6e 69 73 68 0d 01 83  07 20 20 cd 0d 01 84 05  |inish....  .....|
000028f0  e1 0d 01 85 05 3a 0d 01  86 1b dd a4 4f 70 65 6e  |.....:......Open|
00002900  28 50 74 72 29 20 3a 20  43 6c 6f 73 65 20 3d 20  |(Ptr) : Close = |
00002910  a3 0d 01 87 11 50 74 72  20 2b 3d 20 34 30 20 3a  |.....Ptr += 40 :|
00002920  20 f5 0d 01 88 0f 20 20  c8 8e 20 21 50 74 72 20  | .....  .. !Ptr |
00002930  ca 0d 01 89 19 20 20 20  20 c9 20 32 2c 38 20 3a  |.....    . 2,8 :|
00002940  20 50 74 72 20 2b 3d 20  31 32 0d 01 8a 22 20 20  | Ptr += 12..."  |
00002950  20 20 c9 20 35 20 3a 20  50 74 72 20 2b 3d 20 34  |  . 5 : Ptr += 4|
00002960  20 3a 20 43 6c 6f 73 65  20 3d 20 b9 0d 01 8b 17  | : Close = .....|
00002970  20 20 20 20 c9 20 36 20  3a 20 50 74 72 20 2b 3d  |    . 6 : Ptr +=|
00002980  20 32 38 0d 01 8c 07 20  20 cb 0d 01 8d 0e fd 20  | 28....  ...... |
00002990  21 50 74 72 20 3d 20 30  0d 01 8e 0d 3d 20 ac 20  |!Ptr = 0....= . |
000029a0  43 6c 6f 73 65 0d 01 8f  05 3a 0d 01 90 18 dd 20  |Close....:..... |
000029b0  f2 46 69 72 73 74 20 3a  20 43 6c 6f 73 65 20 3d  |.First : Close =|
000029c0  20 a3 0d 01 91 21 20 20  78 32 20 3d 20 50 74 72  | ....!  x2 = Ptr|
000029d0  32 25 20 3a 20 79 32 20  3d 20 50 74 72 32 25 20  |2% : y2 = Ptr2% |
000029e0  2b 20 34 0d 01 92 4a 20  20 58 20 3d 20 21 50 74  |+ 4...J  X = !Pt|
000029f0  72 31 20 3a 20 59 20 3d  20 50 74 72 31 21 34 20  |r1 : Y = Ptr1!4 |
00002a00  2a 20 67 72 20 3a 20 4e  65 78 74 58 20 3d 20 50  |* gr : NextX = P|
00002a10  74 72 31 21 31 32 20 3a  20 4e 65 78 74 59 20 3d  |tr1!12 : NextY =|
00002a20  20 50 74 72 31 21 31 36  20 2a 20 67 72 0d 01 93  | Ptr1!16 * gr...|
00002a30  29 20 20 41 6e 67 6c 65  20 3d 20 a4 41 6e 67 6c  |)  Angle = .Angl|
00002a40  65 28 4e 65 78 74 58 20  2d 20 58 2c 4e 65 78 74  |e(NextX - X,Next|
00002a50  59 20 2d 20 59 29 0d 01  94 1d 20 20 46 69 72 73  |Y - Y)....  Firs|
00002a60  74 58 20 3d 20 58 20 3a  20 46 69 72 73 74 59 20  |tX = X : FirstY |
00002a70  3d 20 59 0d 01 95 18 20  20 46 69 72 73 74 41 6e  |= Y....  FirstAn|
00002a80  67 6c 65 20 3d 20 41 6e  67 6c 65 0d 01 96 0e 20  |gle = Angle.... |
00002a90  20 f2 43 6f 70 79 28 34  29 0d 01 97 05 e1 0d 01  | .Copy(4).......|
00002aa0  98 05 3a 0d 01 99 10 dd  20 f2 43 6f 6d 70 6f 6e  |..:..... .Compon|
00002ab0  65 6e 74 0d 01 9a 0e 20  20 f2 43 6f 70 79 28 34  |ent....  .Copy(4|
00002ac0  29 0d 01 9b 12 20 20 c8  8e 20 50 74 72 31 21 2d  |)....  .. Ptr1!-|
00002ad0  34 20 ca 0d 01 9c 15 20  20 20 20 c9 20 30 20 3a  |4 .....    . 0 :|
00002ae0  20 45 6f 50 20 3d 20 b9  0d 01 9d 13 20 20 20 20  | EoP = .....    |
00002af0  c9 20 32 20 3a 20 f2 4d  6f 76 65 0d 01 9e 14 20  |. 2 : .Move.... |
00002b00  20 20 20 c9 20 35 20 3a  20 f2 43 6c 6f 73 65 0d  |   . 5 : .Close.|
00002b10  01 9f 12 20 20 20 20 c9  20 36 20 3a 20 f2 42 65  |...    . 6 : .Be|
00002b20  7a 0d 01 a0 13 20 20 20  20 c9 20 38 20 3a 20 f2  |z....    . 8 : .|
00002b30  4c 69 6e 65 0d 01 a1 07  20 20 cb 0d 01 a2 05 e1  |Line....  ......|
00002b40  0d 01 a3 05 3a 0d 01 a4  0b dd 20 f2 4d 6f 76 65  |....:..... .Move|
00002b50  0d 01 a5 17 20 20 e7 20  ac 20 43 6c 6f 73 65 20  |....  . . Close |
00002b60  f2 46 69 6e 69 73 68 0d  01 a6 0c 20 20 f2 46 69  |.Finish....  .Fi|
00002b70  72 73 74 0d 01 a7 05 e1  0d 01 a8 05 3a 0d 01 a9  |rst.........:...|
00002b80  12 dd 20 f2 43 6c 6f 73  65 20 3a 20 ea 20 73 0d  |.. .Close : . s.|
00002b90  01 aa 3d 20 20 73 20 3d  20 9b 28 28 46 69 72 73  |..=  s = .((Firs|
00002ba0  74 41 6e 67 6c 65 20 2d  20 41 6e 67 6c 65 29 2f  |tAngle - Angle)/|
00002bb0  32 29 20 3a 20 e7 20 94  73 20 3c 20 2e 30 35 20  |2) : . .s < .05 |
00002bc0  73 20 3d 20 2e 30 35 20  2a 20 b4 73 0d 01 ab 31  |s = .05 * .s...1|
00002bd0  20 20 58 25 20 3d 20 64  25 20 2a 20 9b 28 28 41  |  X% = d% * .((A|
00002be0  6e 67 6c 65 20 2b 20 46  69 72 73 74 41 6e 67 6c  |ngle + FirstAngl|
00002bf0  65 20 2b 20 af 29 2f 32  29 20 2f 20 73 0d 01 ac  |e + .)/2) / s...|
00002c00  32 20 20 59 25 20 3d 20  64 59 25 20 2a 20 b5 28  |2  Y% = dY% * .(|
00002c10  28 41 6e 67 6c 65 20 2b  20 46 69 72 73 74 41 6e  |(Angle + FirstAn|
00002c20  67 6c 65 20 2b 20 af 29  2f 32 29 20 2f 20 73 0d  |gle + .)/2) / s.|
00002c30  01 ad 3c 20 20 50 74 72  32 25 21 2d 31 32 20 3d  |..<  Ptr2%!-12 =|
00002c40  20 50 74 72 31 21 2d 31  32 20 2b 20 58 25 20 3a  | Ptr1!-12 + X% :|
00002c50  20 50 74 72 32 25 21 2d  38 20 3d 20 50 74 72 31  | Ptr2%!-8 = Ptr1|
00002c60  21 2d 38 20 2b 20 59 25  2f 67 72 0d 01 ae 30 20  |!-8 + Y%/gr...0 |
00002c70  20 21 78 32 20 3d 20 46  69 72 73 74 58 20 2b 20  | !x2 = FirstX + |
00002c80  58 25 20 3a 20 21 79 32  20 3d 20 28 46 69 72 73  |X% : !y2 = (Firs|
00002c90  74 59 20 2b 20 59 25 29  2f 67 72 0d 01 af 0f 20  |tY + Y%)/gr.... |
00002ca0  20 43 6c 6f 73 65 20 3d  20 b9 0d 01 b0 05 e1 0d  | Close = .......|
00002cb0  01 b1 05 3a 0d 01 b2 11  dd 20 f2 4c 69 6e 65 20  |...:..... .Line |
00002cc0  3a 20 ea 20 73 0d 01 b3  2f 20 20 50 72 65 76 41  |: . s.../  PrevA|
00002cd0  6e 67 6c 65 20 3d 20 41  6e 67 6c 65 20 3a 20 50  |ngle = Angle : P|
00002ce0  72 65 76 58 20 3d 20 58  20 3a 20 50 72 65 76 59  |revX = X : PrevY|
00002cf0  20 3d 20 59 0d 01 b4 43  20 20 58 20 3d 20 21 50  | = Y...C  X = !P|
00002d00  74 72 31 20 3a 20 59 20  3d 20 50 74 72 31 21 34  |tr1 : Y = Ptr1!4|
00002d10  20 2a 20 67 72 20 3a 20  41 6e 67 6c 65 20 3d 20  | * gr : Angle = |
00002d20  a4 41 6e 67 6c 65 28 58  2d 50 72 65 76 58 2c 59  |.Angle(X-PrevX,Y|
00002d30  2d 50 72 65 76 59 29 0d  01 b5 3c 20 20 73 20 3d  |-PrevY)...<  s =|
00002d40  20 9b 28 28 41 6e 67 6c  65 20 2d 20 50 72 65 76  | .((Angle - Prev|
00002d50  41 6e 67 6c 65 29 2f 32  29 20 3a 20 e7 20 94 73  |Angle)/2) : . .s|
00002d60  20 3c 20 2e 30 35 20 73  20 3d 20 2e 30 35 20 2a  | < .05 s = .05 *|
00002d70  20 b4 73 0d 01 b6 30 20  20 58 25 20 3d 20 64 25  | .s...0  X% = d%|
00002d80  20 2a 20 9b 28 28 50 72  65 76 41 6e 67 6c 65 20  | * .((PrevAngle |
00002d90  2b 20 41 6e 67 6c 65 20  2b 20 af 29 2f 32 29 20  |+ Angle + .)/2) |
00002da0  2f 20 73 0d 01 b7 31 20  20 59 25 20 3d 20 64 59  |/ s...1  Y% = dY|
00002db0  25 20 2a 20 b5 28 28 50  72 65 76 41 6e 67 6c 65  |% * .((PrevAngle|
00002dc0  20 2b 20 41 6e 67 6c 65  20 2b 20 af 29 2f 32 29  | + Angle + .)/2)|
00002dd0  20 2f 20 73 0d 01 b8 3c  20 20 50 74 72 32 25 21  | / s...<  Ptr2%!|
00002de0  2d 31 32 20 3d 20 50 74  72 31 21 2d 31 32 20 2b  |-12 = Ptr1!-12 +|
00002df0  20 58 25 20 3a 20 50 74  72 32 25 21 2d 38 20 3d  | X% : Ptr2%!-8 =|
00002e00  20 50 74 72 31 21 2d 38  20 2b 20 59 25 2f 67 72  | Ptr1!-8 + Y%/gr|
00002e10  0d 01 b9 1c 20 20 50 74  72 31 20 2b 3d 20 38 20  |....  Ptr1 += 8 |
00002e20  3a 20 50 74 72 32 25 20  2b 3d 20 38 0d 01 ba 05  |: Ptr2% += 8....|
00002e30  e1 0d 01 bb 05 3a 0d 01  bc 16 dd a4 41 6e 67 6c  |.....:......Angl|
00002e40  65 28 58 2c 59 29 20 3a  20 ea 20 41 0d 01 bd 0d  |e(X,Y) : . A....|
00002e50  e7 20 58 20 3d 20 30 20  8c 0d 01 be 12 20 20 41  |. X = 0 .....  A|
00002e60  20 3d 20 b4 59 20 2a 20  af 2f 32 0d 01 bf 05 cc  | = .Y * ./2.....|
00002e70  0d 01 c0 10 20 20 41 20  3d 20 99 28 59 2f 58 29  |....  A = .(Y/X)|
00002e80  0d 01 c1 1e 20 20 e7 20  b4 58 20 3d 20 2d 31 20  |....  . .X = -1 |
00002e90  41 20 3d 20 41 20 2b 20  af 20 2a 20 b4 59 0d 01  |A = A + . * .Y..|
00002ea0  c2 05 cd 0d 01 c3 19 e7  20 59 20 3d 20 30 20 80  |........ Y = 0 .|
00002eb0  20 58 20 3c 20 30 20 41  20 3d 20 af 0d 01 c4 07  | X < 0 A = .....|
00002ec0  3d 20 41 0d 01 c5 05 3a  0d 01 c6 0d dd 20 f2 46  |= A....:..... .F|
00002ed0  69 6e 69 73 68 0d 01 c7  3c 20 20 4c 65 66 74 20  |inish...<  Left |
00002ee0  3d 20 64 25 20 2a 20 9b  28 41 6e 67 6c 65 20 2b  |= d% * .(Angle +|
00002ef0  20 af 2f 32 29 20 3a 20  55 70 20 3d 20 64 59 25  | ./2) : Up = dY%|
00002f00  20 2a 20 b5 28 41 6e 67  6c 65 20 2b 20 af 2f 32  | * .(Angle + ./2|
00002f10  29 0d 01 c8 3e 20 20 50  74 72 32 25 21 2d 31 32  |)...>  Ptr2%!-12|
00002f20  20 3d 20 50 74 72 31 21  2d 31 32 20 2b 20 4c 65  | = Ptr1!-12 + Le|
00002f30  66 74 20 3a 20 50 74 72  32 25 21 2d 38 20 3d 20  |ft : Ptr2%!-8 = |
00002f40  50 74 72 31 21 2d 38 20  2b 20 55 70 2f 67 72 0d  |Ptr1!-8 + Up/gr.|
00002f50  01 c9 05 e1 0d 01 ca 05  3a 0d 01 cb 0a dd 20 f2  |........:..... .|
00002f60  42 65 7a 0d 01 cc 0d 20  20 ea 20 73 2c 65 2c 66  |Bez....  . s,e,f|
00002f70  0d 01 cd 2f 20 20 50 72  65 76 41 6e 67 6c 65 20  |.../  PrevAngle |
00002f80  3d 20 41 6e 67 6c 65 20  3a 20 50 72 65 76 58 20  |= Angle : PrevX |
00002f90  3d 20 58 20 3a 20 50 72  65 76 59 20 3d 20 59 0d  |= X : PrevY = Y.|
00002fa0  01 ce 64 20 20 42 31 58  20 3d 20 21 50 74 72 31  |..d  B1X = !Ptr1|
00002fb0  20 3a 20 42 31 59 20 3d  20 50 74 72 31 21 34 2a  | : B1Y = Ptr1!4*|
00002fc0  67 72 20 3a 20 42 32 58  20 3d 20 50 74 72 31 21  |gr : B2X = Ptr1!|
00002fd0  38 20 3a 20 42 32 59 20  3d 20 50 74 72 31 21 31  |8 : B2Y = Ptr1!1|
00002fe0  32 2a 67 72 20 3a 20 58  20 3d 20 50 74 72 31 21  |2*gr : X = Ptr1!|
00002ff0  31 36 20 3a 20 59 20 3d  20 50 74 72 31 21 32 30  |16 : Y = Ptr1!20|
00003000  2a 67 72 0d 01 cf 2a 20  20 41 6e 67 6c 65 31 20  |*gr...*  Angle1 |
00003010  3d 20 a4 41 6e 67 6c 65  28 42 31 58 2d 50 72 65  |= .Angle(B1X-Pre|
00003020  76 58 2c 42 31 59 2d 50  72 65 76 59 29 0d 01 d0  |vX,B1Y-PrevY)...|
00003030  26 20 20 41 6e 67 6c 65  32 20 3d 20 a4 41 6e 67  |&  Angle2 = .Ang|
00003040  6c 65 28 42 32 58 2d 42  31 58 2c 42 32 59 2d 42  |le(B2X-B1X,B2Y-B|
00003050  31 59 29 0d 01 d1 26 20  20 41 6e 67 6c 65 20 20  |1Y)...&  Angle  |
00003060  3d 20 a4 41 6e 67 6c 65  28 58 20 2d 20 42 32 58  |= .Angle(X - B2X|
00003070  2c 59 20 2d 20 42 32 59  29 0d 01 d2 12 20 20 c8  |,Y - B2Y)....  .|
00003080  8e 20 50 74 72 31 21 32  34 20 ca 0d 01 d3 39 20  |. Ptr1!24 ....9 |
00003090  20 20 20 c9 20 30 2c 32  20 3a 20 4e 65 78 74 58  |   . 0,2 : NextX|
000030a0  20 3d 20 58 20 3a 20 4e  65 78 74 59 20 3d 20 59  | = X : NextY = Y|
000030b0  20 3a 20 4e 65 78 74 41  6e 67 6c 65 20 3d 20 41  | : NextAngle = A|
000030c0  6e 67 6c 65 0d 01 d4 5f  20 20 20 20 c9 20 36 2c  |ngle..._    . 6,|
000030d0  38 20 3a 20 4e 65 78 74  58 20 3d 20 50 74 72 31  |8 : NextX = Ptr1|
000030e0  21 32 38 20 3a 20 4e 65  78 74 59 20 3d 20 50 74  |!28 : NextY = Pt|
000030f0  72 31 21 33 32 2a 67 72  20 3a 20 4e 65 78 74 41  |r1!32*gr : NextA|
00003100  6e 67 6c 65 20 3d 20 a4  41 6e 67 6c 65 28 4e 65  |ngle = .Angle(Ne|
00003110  78 74 58 20 2d 20 58 2c  20 4e 65 78 74 59 20 2d  |xtX - X, NextY -|
00003120  20 59 29 0d 01 d5 48 20  20 20 20 c9 20 35 20 20  | Y)...H    . 5  |
00003130  20 3a 20 4e 65 78 74 58  20 3d 20 46 69 72 73 74  | : NextX = First|
00003140  58 20 3a 20 4e 65 78 74  59 20 3d 20 46 69 72 73  |X : NextY = Firs|
00003150  74 59 20 3a 20 4e 65 78  74 41 6e 67 6c 65 20 3d  |tY : NextAngle =|
00003160  20 46 69 72 73 74 41 6e  67 6c 65 0d 01 d6 07 20  | FirstAngle.... |
00003170  20 cb 0d 01 d7 04 0d 01  d8 2a 20 20 65 20 3d 20  | ........*  e = |
00003180  31 2e 35 20 2a 20 28 b5  28 41 6e 67 6c 65 20 2d  |1.5 * (.(Angle -|
00003190  20 41 6e 67 6c 65 31 29  29 5e 32 20 2d 20 2e 35  | Angle1))^2 - .5|
000031a0  0d 01 d9 0f 20 20 66 20  3d 20 32 20 2d 20 65 0d  |....  f = 2 - e.|
000031b0  01 da 2c 20 20 4c 65 6e  20 3d 20 b6 28 28 58 20  |..,  Len = .((X |
000031c0  2d 20 50 72 65 76 58 29  5e 32 20 2b 20 28 59 20  |- PrevX)^2 + (Y |
000031d0  2d 20 50 72 65 76 59 29  5e 32 29 0d 01 db 31 20  |- PrevY)^2)...1 |
000031e0  20 4c 65 6e 31 20 3d 20  b6 28 28 42 31 58 20 2d  | Len1 = .((B1X -|
000031f0  20 50 72 65 76 58 29 5e  32 20 2b 20 28 42 31 59  | PrevX)^2 + (B1Y|
00003200  20 2d 20 50 72 65 76 59  29 5e 32 29 0d 01 dc 29  | - PrevY)^2)...)|
00003210  20 20 4c 65 6e 32 20 3d  20 b6 28 28 58 20 2d 20  |  Len2 = .((X - |
00003220  42 32 58 29 5e 32 20 2b  20 28 59 20 2d 20 42 32  |B2X)^2 + (Y - B2|
00003230  59 29 5e 32 29 0d 01 dd  04 0d 01 de 3b 20 20 73  |Y)^2).......;  s|
00003240  20 3d 20 9b 28 28 41 6e  67 6c 65 31 20 2d 20 50  | = .((Angle1 - P|
00003250  72 65 76 41 6e 67 6c 65  29 2f 32 29 20 3a 20 e7  |revAngle)/2) : .|
00003260  20 94 73 20 3c 20 2e 31  20 73 20 3d 20 2e 31 20  | .s < .1 s = .1 |
00003270  2a 20 b4 73 0d 01 df 32  20 20 58 31 25 20 3d 20  |* .s...2  X1% = |
00003280  64 25 20 2a 20 9b 28 28  50 72 65 76 41 6e 67 6c  |d% * .((PrevAngl|
00003290  65 20 2b 20 41 6e 67 6c  65 31 20 2b 20 af 29 2f  |e + Angle1 + .)/|
000032a0  32 29 20 2f 20 73 0d 01  e0 32 20 20 58 32 25 20  |2) / s...2  X2% |
000032b0  3d 20 64 25 20 2a 20 9b  28 28 50 72 65 76 41 6e  |= d% * .((PrevAn|
000032c0  67 6c 65 20 2b 20 41 6e  67 6c 65 32 20 2b 20 af  |gle + Angle2 + .|
000032d0  29 2f 32 29 20 2f 20 73  0d 01 e1 33 20 20 59 31  |)/2) / s...3  Y1|
000032e0  25 20 3d 20 64 59 25 20  2a 20 b5 28 28 50 72 65  |% = dY% * .((Pre|
000032f0  76 41 6e 67 6c 65 20 2b  20 41 6e 67 6c 65 31 20  |vAngle + Angle1 |
00003300  2b 20 af 29 2f 32 29 20  2f 20 73 0d 01 e2 33 20  |+ .)/2) / s...3 |
00003310  20 59 32 25 20 3d 20 64  59 25 20 2a 20 b5 28 28  | Y2% = dY% * .((|
00003320  50 72 65 76 41 6e 67 6c  65 20 2b 20 41 6e 67 6c  |PrevAngle + Angl|
00003330  65 32 20 2b 20 af 29 2f  32 29 20 2f 20 73 0d 01  |e2 + .)/2) / s..|
00003340  e3 04 0d 01 e4 3e 20 20  50 74 72 32 25 21 2d 31  |.....>  Ptr2%!-1|
00003350  32 20 3d 20 50 74 72 31  21 2d 31 32 20 2b 20 58  |2 = Ptr1!-12 + X|
00003360  31 25 20 3a 20 50 74 72  32 25 21 2d 38 20 3d 20  |1% : Ptr2%!-8 = |
00003370  50 74 72 31 21 2d 38 20  2b 20 59 31 25 2f 67 72  |Ptr1!-8 + Y1%/gr|
00003380  0d 01 e5 04 0d 01 e6 3c  20 20 73 20 3d 20 9b 28  |.......<  s = .(|
00003390  28 4e 65 78 74 41 6e 67  6c 65 20 2d 20 41 6e 67  |(NextAngle - Ang|
000033a0  6c 65 29 2f 32 29 20 3a  20 e7 20 94 73 20 3c 20  |le)/2) : . .s < |
000033b0  2e 31 35 20 73 20 3d 20  2e 31 35 20 2a 20 b4 73  |.15 s = .15 * .s|
000033c0  0d 01 e7 30 20 20 58 25  20 3d 20 64 25 20 2a 20  |...0  X% = d% * |
000033d0  9b 28 28 41 6e 67 6c 65  20 2b 20 4e 65 78 74 41  |.((Angle + NextA|
000033e0  6e 67 6c 65 20 2b 20 af  29 2f 32 29 20 2f 20 73  |ngle + .)/2) / s|
000033f0  0d 01 e8 31 20 20 59 25  20 3d 20 64 59 25 20 2a  |...1  Y% = dY% *|
00003400  20 b5 28 28 41 6e 67 6c  65 20 2b 20 4e 65 78 74  | .((Angle + Next|
00003410  41 6e 67 6c 65 20 2b 20  af 29 2f 32 29 20 2f 20  |Angle + .)/2) / |
00003420  73 0d 01 e9 04 0d 01 ea  4c 20 20 4c 65 6e 4c 31  |s.......L  LenL1|
00003430  20 3d 20 b6 28 28 58 20  2b 20 65 2a 58 25 20 2d  | = .((X + e*X% -|
00003440  20 50 72 65 76 58 20 2d  20 66 2a 58 31 25 29 5e  | PrevX - f*X1%)^|
00003450  32 20 2b 20 28 59 20 2b  20 65 2a 59 25 20 2d 20  |2 + (Y + e*Y% - |
00003460  50 72 65 76 59 20 2d 20  66 2a 59 31 25 29 5e 32  |PrevY - f*Y1%)^2|
00003470  29 0d 01 eb 4c 20 20 4c  65 6e 52 31 20 3d 20 b6  |)...L  LenR1 = .|
00003480  28 28 58 20 2d 20 65 2a  58 25 20 2d 20 50 72 65  |((X - e*X% - Pre|
00003490  76 58 20 2b 20 66 2a 58  31 25 29 5e 32 20 2b 20  |vX + f*X1%)^2 + |
000034a0  28 59 20 2d 20 65 2a 59  25 20 2d 20 50 72 65 76  |(Y - e*Y% - Prev|
000034b0  59 20 2b 20 66 2a 59 31  25 29 5e 32 29 0d 01 ec  |Y + f*Y1%)^2)...|
000034c0  4c 20 20 4c 65 6e 4c 32  20 3d 20 b6 28 28 58 20  |L  LenL2 = .((X |
000034d0  2b 20 66 2a 58 25 20 2d  20 50 72 65 76 58 20 2d  |+ f*X% - PrevX -|
000034e0  20 65 2a 58 31 25 29 5e  32 20 2b 20 28 59 20 2b  | e*X1%)^2 + (Y +|
000034f0  20 66 2a 59 25 20 2d 20  50 72 65 76 59 20 2d 20  | f*Y% - PrevY - |
00003500  65 2a 59 31 25 29 5e 32  29 0d 01 ed 4c 20 20 4c  |e*Y1%)^2)...L  L|
00003510  65 6e 52 32 20 3d 20 b6  28 28 58 20 2d 20 66 2a  |enR2 = .((X - f*|
00003520  58 25 20 2d 20 50 72 65  76 58 20 2b 20 65 2a 58  |X% - PrevX + e*X|
00003530  31 25 29 5e 32 20 2b 20  28 59 20 2d 20 66 2a 59  |1%)^2 + (Y - f*Y|
00003540  25 20 2d 20 50 72 65 76  59 20 2b 20 65 2a 59 31  |% - PrevY + e*Y1|
00003550  25 29 5e 32 29 0d 01 ee  59 20 20 e7 20 4c 65 6e  |%)^2)...Y  . Len|
00003560  20 3c 20 28 4c 65 6e 4c  31 20 2b 20 4c 65 6e 52  | < (LenL1 + LenR|
00003570  31 20 2b 20 4c 65 6e 4c  32 20 2b 20 4c 65 6e 52  |1 + LenL2 + LenR|
00003580  32 29 2f 34 30 20 4c 65  6e 20 3d 20 28 4c 65 6e  |2)/40 Len = (Len|
00003590  4c 31 20 2b 20 4c 65 6e  52 31 20 2b 20 4c 65 6e  |L1 + LenR1 + Len|
000035a0  4c 32 20 2b 20 4c 65 6e  52 32 29 2f 34 30 0d 01  |L2 + LenR2)/40..|
000035b0  ef 5b 20 20 e7 20 4c 65  6e 31 20 3c 20 28 4c 65  |.[  . Len1 < (Le|
000035c0  6e 4c 31 20 2b 20 4c 65  6e 52 31 20 2b 20 4c 65  |nL1 + LenR1 + Le|
000035d0  6e 4c 32 20 2b 20 4c 65  6e 52 32 29 2f 34 30 20  |nL2 + LenR2)/40 |
000035e0  4c 65 6e 31 20 3d 20 28  4c 65 6e 4c 31 20 2b 20  |Len1 = (LenL1 + |
000035f0  4c 65 6e 52 31 20 2b 20  4c 65 6e 4c 32 20 2b 20  |LenR1 + LenL2 + |
00003600  4c 65 6e 52 32 29 2f 34  30 0d 01 f0 5b 20 20 e7  |LenR2)/40...[  .|
00003610  20 4c 65 6e 32 20 3c 20  28 4c 65 6e 4c 31 20 2b  | Len2 < (LenL1 +|
00003620  20 4c 65 6e 52 31 20 2b  20 4c 65 6e 4c 32 20 2b  | LenR1 + LenL2 +|
00003630  20 4c 65 6e 52 32 29 2f  34 30 20 4c 65 6e 32 20  | LenR2)/40 Len2 |
00003640  3d 20 28 4c 65 6e 4c 31  20 2b 20 4c 65 6e 52 31  |= (LenL1 + LenR1|
00003650  20 2b 20 4c 65 6e 4c 32  20 2b 20 4c 65 6e 52 32  | + LenL2 + LenR2|
00003660  29 2f 34 30 0d 01 f1 55  20 20 52 61 74 69 6f 31  |)/40...U  Ratio1|
00003670  20 3d 20 28 28 2e 33 31  20 2a 20 4c 65 6e 2f 4c  | = ((.31 * Len/L|
00003680  65 6e 31 29 5e 31 2e 34  29 20 2b 20 2e 32 38 33  |en1)^1.4) + .283|
00003690  20 3a 20 52 61 74 69 6f  32 20 3d 20 28 28 2e 33  | : Ratio2 = ((.3|
000036a0  31 20 2a 20 4c 65 6e 2f  4c 65 6e 32 29 5e 31 2e  |1 * Len/Len2)^1.|
000036b0  34 29 20 2b 20 2e 32 38  33 0d 01 f2 22 20 20 52  |4) + .283..."  R|
000036c0  61 74 69 6f 4c 31 20 3d  20 28 4c 65 6e 4c 31 2f  |atioL1 = (LenL1/|
000036d0  4c 65 6e 29 5e 52 61 74  69 6f 31 0d 01 f3 22 20  |Len)^Ratio1..." |
000036e0  20 52 61 74 69 6f 4c 32  20 3d 20 28 4c 65 6e 4c  | RatioL2 = (LenL|
000036f0  32 2f 4c 65 6e 29 5e 52  61 74 69 6f 32 0d 01 f4  |2/Len)^Ratio2...|
00003700  34 20 20 21 50 74 72 32  25 20 3d 20 50 72 65 76  |4  !Ptr2% = Prev|
00003710  58 20 2b 20 58 31 25 20  2b 20 28 42 31 58 20 2d  |X + X1% + (B1X -|
00003720  20 50 72 65 76 58 29 20  2a 20 52 61 74 69 6f 4c  | PrevX) * RatioL|
00003730  31 0d 01 f5 3a 20 20 50  74 72 32 25 21 34 20 3d  |1...:  Ptr2%!4 =|
00003740  20 28 50 72 65 76 59 20  2b 20 59 31 25 20 2b 20  | (PrevY + Y1% + |
00003750  28 42 31 59 20 2d 20 50  72 65 76 59 29 20 2a 20  |(B1Y - PrevY) * |
00003760  52 61 74 69 6f 4c 31 29  2f 67 72 0d 01 f6 2c 20  |RatioL1)/gr..., |
00003770  20 50 74 72 32 25 21 38  20 3d 20 58 20 2b 20 58  | Ptr2%!8 = X + X|
00003780  25 20 2d 20 28 58 20 2d  20 42 32 58 29 20 2a 20  |% - (X - B2X) * |
00003790  52 61 74 69 6f 4c 32 0d  01 f7 32 20 20 50 74 72  |RatioL2...2  Ptr|
000037a0  32 25 21 31 32 20 3d 20  28 59 20 2b 20 59 25 20  |2%!12 = (Y + Y% |
000037b0  2d 20 28 59 20 2d 20 42  32 59 29 20 2a 20 52 61  |- (Y - B2Y) * Ra|
000037c0  74 69 6f 4c 32 29 2f 67  72 0d 01 f8 1e 20 20 50  |tioL2)/gr....  P|
000037d0  74 72 31 20 2b 3d 20 32  34 20 3a 20 50 74 72 32  |tr1 += 24 : Ptr2|
000037e0  25 20 2b 3d 20 32 34 0d  01 f9 05 e1 0d ff        |% += 24.......|
000037ee