�
� Program   Fontician
�
� Version   1.40
�
%� Copyright Clive Semmens 1993-97
:
/� width%(416),pathptr%(416),inclusion%(416)
	B� block% 5120, menu% 1280, temp% 2048, Work% 4096, block2% 256

#�Initialize : �Iconbar : �Write
	�poll
�

:
� �poll
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
'O� ((block%!8=1) � (block%!8=4)) � (block%!12=Window%) � (block%!16=2) �Icon
(e� ((block%!8=1*16) � (block%!8=4*16)) � (block%!12=Window%) � (block%!16=0) Out$ = "Font" : �Drag
)e� ((block%!8=1*16) � (block%!8=4*16)) � (block%!12=Window%) � (block%!16=4) Out$ = "Draw" : �Drag
*f� ((block%!8=1*16) � (block%!8=4*16)) � (block%!12=Window%) � (block%!16=26) Out$ = "Scaf" : �Drag
+&� block%!8=4 � block%!12=Window% �
,  Ȏ block%!16 �
-"    � 19 : DeScaf% = � DeScaf%
.  �
/�
0�
1:
2� �DragBox
3	�Read
4#ș "Wimp_GetPointerInfo",,temp%
5)� (temp%!12=-2) � (temp%!16=bar%) � �
6,block%!0=256 : block%!12=0 : block%!16=1
7,block%!20=temp%!12  : block%!24=temp%!16
8+block%!28=temp%!0   : block%!32=temp%!4
9-block%!36=filesize% : block%!40=filetype%
:C� �leaf(output$)="" � temp$="Fonticiand" � temp$=�leaf(output$)
;$(block%+44)=temp$+�(0)
<5ș "Wimp_SendMessage",17,block%,temp%!12,temp%!16
=mine%=block%!8
>�
?:
@� �KeyPress
AȎ block%!24 �
B  � &D : �ReturnKey
C'   ș "Wimp_ProcessKey", block%!24
D�
E�
F:
G� �ReturnKey
H� block%!0=Window% �
I9  � block%!4=1 � ș "Wimp_SetCaretPosition", -1:�Icon
J�
K�
L:
M� �Selection
N� buttons%
O&ș "Wimp_GetPointerInfo", 0, temp%
Pbuttons%=!(temp%+8)
Q� block%!0=1 � finished%=�
R� buttons%=1 � �Menu
S�
T:
U� �Message
VȎ block%!16 �
W  � 0 : finished%=�
X  � 1 : �DataSave
Y  � 2 : �DataSaveAck
Z  � 3 : �DataLoad
[  � 4 : �DataLoadAck
\�
]�
^:
_� �DataSave
`� exist%
a-� (block%!20<>-2) � (block%!24<>bar%) � �
b,� block%!40<>&1000 � block%!40<>&aff � �
c0� block%!40 = &aff DrawIn% = � � DrawIn% = �
d!filename$=�getname(block%+44)
efiletype%=block%!40
ffilesize%=block%!36
g7ș "XOS_ReadVarVal", "Wimp$Scrap", 0, -1 � ,,exist%
h� exist%=0 �
i)  �Report("<Wimp$Scrap> not defined")
j�
k$  $(block%+44)="<Wimp$Scrap>"+�0
l4  block%!12=block%!8 : block%!16=2 : block%!0=80
m.  ș "Wimp_SendMessage",17,block%,block%!4
n�
o�
p:
q� �DataSaveAck
r� temp$, command$
s� �
tJ� � � �Report("Fontician error: "+�$+" (@ line "+Þ+", no. "+ß+")"):�
u"� block%!12<>mine% � mine%=0 �
v!  output$=�getname(block%+44)
w#  �Fontician(filename$,output$)
x#  block%!12=mine% : block%!16=3
y9  ș "Wimp_SendMessage",17,block%,block%!20,block%!24
z  mine%=block%!8
{�
|�
}:
~� �DataLoad
� �
�H� � � �Report("DataLoad error "+�$+" (@ line "+Þ+", no. "+ß+")"):�
�:
�-� (block%!20<>-2) � (block%!24<>bar%) � �
�,� block%!40<>&1000 � block%!40<>&aff � �
�0� block%!40 = &aff DrawIn% = � � DrawIn% = �
�
�Write
�#ș "Wimp_GetPointerInfo",,temp%
�(temp%!4=temp%!0-192 : temp%!8=184-80
�temp%!12=(temp%!0-192)+384
�temp%!16=184-80+512
�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)
�block%!12=block%!8
�block%!16=4 : block%!0=64
�,ș "Wimp_SendMessage",17,block%,block%!4
��
�:
�� �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%="Fontician"
�(menu%?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
�� command$, temp$
�� �
�J� � � �Report("Fontician error: "+�$+" (@ line "+Þ+", no. "+ß+")"):�
�	�Read
�S� �output$,".")=0 � �Report("To save, drag file icon to a directory display"):�
�U� �leaf(output$)="" � �Report("To save, drag file icon to a directory display"):�
�!�Fontician(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 � ic% = 4 � ic% = 26) �
�  temp%!0=Window%
�  temp%!4=ic%
�#  ș "Wimp_GetIconState",,temp%
�%  minX%=temp%!8  : minY%=temp%!12
�%  maxX%=temp%!16 : maxY%=temp%!20
�%  ș "Wimp_GetWindowState",,temp%
�0  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$)
�)block2%!0=1 : $(block2%+4)=text$+�(0)
�/ș "Wimp_ReportError",block2%,1,"Fontician"
��
�:
�� �Iconbar
�block%!0=-1  : block%!4=0
�block%!8=-4  : block%!12=68
�"block%!16=68 : block%!20=&2002
�$(block%+24)="!Fontician"
�'ș "Wimp_CreateIcon",,block% � bar%
��
�:
�� �Read
�:output$=�Read(1) : XScale$=�Read(3) : YScale$=�Read(5)
�'Shear$ =�Read(6) : Rotate$=�Read(7)
�;XShift$=�Read(8) : YShift$=�Read(9) : Track$ =�Read(16)
�-WidenX$ = �Read(24) : WidenY$ = �Read(25)
�)XScale = �XScale$ : YScale = �YScale$
�QShear  = �(�/180*�Shear$) : Cos = �(�/180*�Rotate$) : Sin = �(�/180*�Rotate$)
�>XShift% = �XShift$ : YShift% = �YShift$ : Track% = �Track$
�+WidenX% = �WidenX$ : WidenY% = �WidenY$
��
�:
�� �Read(icon%)
�#temp%!0=Window% : temp%!4=icon%
�!ș "Wimp_GetIconState",,temp%
�= $(temp%!28)
�:
�� �Write
�7�Put(output$,1) : �Put(XScale$,3) : �Put(YScale$,5)
�%�Put(Shear$,6)  : �Put(Rotate$,7)
�7�Put(XShift$,8) : �Put(YShift$,9) : �Put(Track$,16)
�'�Put(WidenX$,24) : �Put(WidenY$,25)
��
�:
�� �Put(a$,icon%)
�#temp%!0=Window% : temp%!4=icon%
�!ș "Wimp_GetIconState",,temp%
�$(temp%!28)=a$
��
�:
�� �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%, "Fontician" � Wimp%

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

\� � �Report("Fontician error: "+�$+" (@ line "+Þ+", no. "+ß+")"):ș "Wimp_CloseDown":�

:

;output$ = "NewFont" : XScale$ = "1.0" : YScale$ = "1.0"

]Shear$ = "0" : Rotate$ = "0" : XShift$ = "0" : YShift$ = "0" : Track$ = "0" : DeScaf% = �

!WidenX$ = "0" : WidenY$ = "0"

mm = 1814.17

	Z = 1

XScale = 1 : YScale = 1

"Shear  = 0 : Cos = 1 : Sin = 0

*XShift% = 0 : YShift% = 0 : Track% = 0

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

:ș "Wimp_OpenTemplate", 0, "<Fontician$Dir>.Templates"

Nș "Wimp_LoadTemplate",, block%,Work%,Work%+4096,-1, "saveas", 0 � ,,next%

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

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

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

!ș "Wimp_CloseTemplate"

"�

#:

$� �FontLoad(in$)

%3ș "OS_File",17,in$ + ".Outlin*" � type,,,,FExt

&5ș "OS_File",17,in$ + ".IntMetri*" � type,,,,MExt

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

(� Out$ = "Scaf" DExt = FExt

)#� Out$ = "Draw" DExt = FExt * 6

*� Out$ = "Font" DExt = 0

+L� Free < FExt+DExt+MExt �Report("Unable to claim sufficient memory") : �

,4ș "Wimp_SlotSize",�-&8000 + FExt+DExt+MExt , -1

-?FBuffer = � : DBuffer = � + FExt : MBuffer = DBuffer + DExt

.-� "LOAD " + in$ + ".Outlin* " + �~FBuffer

//� "LOAD " + in$ + ".IntMetri* " + �~MBuffer

0�

1:

2� �FontSave(out$)

3� "CDIR " + out$

4H� "SAVE " + out$ + ".Outlines " + �~FBuffer + " +" + �~(FExt-Saving)

5*� "SETTYPE " + out$ + ".Outlines Font"

6B�("SAVE " + out$ + ".IntMetrics " + �~MBuffer + " +" + �~MExt)

7)�("SETTYPE "+out$+".IntMetrics FONT")

8�

9:

:� �DrawLoad(in$)

;&ș "OS_File",17,in$ � type,,,,DExt

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

=!FExt = DExt * 2 : MExt = 2950

>L� Free < FExt+DExt+MExt �Report("Unable to claim sufficient memory") : �

?4ș "Wimp_SlotSize",�-&8000 + FExt+DExt+MExt , -1

@?FBuffer = � : DBuffer = � + FExt : MBuffer = DBuffer + DExt

A%� "LOAD " + in$ + " " + �~DBuffer

B�

C:

D� �DrawSave(out$)

E7� "SAVE " + out$ + " " + �~DBuffer + " " + �~(DPtr)

F%� "SETTYPE " + out$ + " DrawFile"

G�

H:

I� �Fontician(in$,out$)

J;� DrawIn% �DrawLoad(in$) : �DrawToFont � �FontLoad(in$)

K8Version = FBuffer?5 : DesignSize = FBuffer!6 � &FFFF

LSaving = 0

M#� Version <> 8 � Version <> 6 �

N7  �Report("I can't do version "+�Version+" fonts!")

O�

P  �IntMetr

Q  �Outline

Rb  � DeScaf% �descaf � � (Rotate$ = "0" � Shear$ = Rotate$) � XScale > 0 � YScale > 0 �Scaffold

S3  � Out$ = "Draw" �FontToDraw : �DrawSave(out$)

T3  � Out$ = "Scaf" �ScafToDraw : �DrawSave(out$)

U%  � Out$ = "Font" �FontSave(out$)

V�

W�ReleaseBuffers

X�

Y:

Z� �ScafToDraw

[8  f$ = "<Fontician$Dir>.Scaf" : DPtr = DBuffer + 128

\&  � "LOAD " + f$ + " " + �~DBuffer

]  �Scafs

^�

_:

`� �FontToDraw : � Char

a9  f$ = "<Fontician$Dir>.Grid" : DPtr = DBuffer + 3120

b&  � "LOAD " + f$ + " " + �~DBuffer

c#  Unit = 96 * DesignSize / 1000

d*  � X = 0 � 15 : � Y = 0 � nchunks*2-1

e'    Char = nchunks*32-16 + X - Y*16

f!    �Width : �Label : �Stroke

g  �,

h  X = 6 * mm : Y = 4 * mm

i?  �Record("FontName: "+�s(FBuffer+52+(FBuffer!52 � &FFFF)))

j)  �Record("DesignSize: "+�DesignSize)

k*  �Record("NoOfChars: "+�(nchunks*32))

l  �Scafs

m  � MBuffer?50 � 8 �Kerns

n�

o:

p� �Scafs : � n,X

q  FPtr = FBuffer + 52

r  n = !FPtr � &FFFF

sV  $DPtr = "Scaf" : DPtr!4 = (n + 15) � &FFFFFFFC : DPtr!8 = NoOfScafs : DPtr += 12

t'  � X = 0 � n : DPtr?X = FPtr?X : �

u  DPtr!n = &FFFFFFFF

v!  DPtr += (n + 3) � &FFFFFFFC

w�

x:

y� �Kerns : � n,X

z  MPtr = 52 + MBuffer

{G  � MBuffer?50 � &20 MPtr += 2 + (MBuffer!52 � &FFFF) � MPtr += 256

|$  � MBuffer?50 � 1 n = 0 � n = 8

}  � MBuffer?50 � 2 � n += 2

~  � MBuffer?50 � 4 � n += 2

-  MPtr += n*(MBuffer?48 + 256*MBuffer?51)

�Y  $DPtr = "Kern" : DPtr!4 = 8 + ((MExt - MPtr + MBuffer + 3) � &FFFFFFFC) : DPtr += 8

�;  � X = 0 � MExt - MPtr + MBuffer : DPtr?X = MPtr?X : �

�.  DPtr!(MExt - MPtr + MBuffer) = &FFFFFFFF

�5  DPtr += (MExt - MPtr + MBuffer + 3) � &FFFFFFFC

��

�:

�ݤs(X) : � a$

�:a$ = �(?X) : � X += 1 : a$ += �(?X) : � X?1 = 0 : = a$

�:

�� �Record(a$) : � n

�
  n = �a$

�V  !DPtr = 1 : DPtr!8 = X : DPtr!12 = Y : DPtr!16 = X + n*4*mm : DPtr!20 = Y + 6*mm

�J  DPtr!24 = &DD00 : DPtr!28 = &FFFFFF00 : DPtr!32 = 0 : DPtr!36 = 4*mm

�;  DPtr!40 = 6*mm : DPtr!44 = DPtr!8 : DPtr!48 = DPtr!12

�  $(DPtr+52) = a$

�!  DPtr!4 = (56+n) � &FFFFFFFC

�9  !(DPtr+52+n) = 0 : DPtr += DPtr!4 : X += (n+2)*4*mm

��

�:

�� �Label

�  !DPtr = 1 : DPtr!4 = 14*4

�@  DPtr!8 = (X * 50 + 11) * mm : DPtr!12 = (Y * 45 + 44) * mm

�A  DPtr!16 = (X * 50 + 35) * mm : DPtr!20 = (Y * 45 + 56) * mm

�L  DPtr!24 = &DD00 : DPtr!28 = &FFFFFF00 : DPtr!32 = 0 : DPtr!36 = 8 * mm

�O  DPtr!40 = 12 * mm : DPtr!44 = DPtr!8 : DPtr!48 = DPtr!12 : DPtr!52 = Char

�^  � Char < 33 � Char > 255 � Char = 127 $(DPtr+52) = �~(Char) : ?(DPtr+52+�$(DPtr+52)) = 0

�  DPtr += 14*4

��

�:

�%� �Stroke : � Start, Chunk, Flags

�2  Chunk = Char � 32 : CharAddr = (Char � 32)*4

�  Ȏ Version �

�P    � 8 : FPtr = FBuffer + FBuffer!16 + 4*Chunk : FPtr = FBuffer + !FPtr + 4

�B     : FPtr = FBuffer + 16 + 4*Chunk : FPtr = FBuffer + !FPtr

�  �

�  FPtr += FPtr!CharAddr

�Ȏ ?FPtr �

�� 9

�  � (FPtr?7 � 3) = 1 �

�     !DPtr = 2 : Start = DPtr

�b    x = (X * 50 + 20) * mm : y = (Y * 45 + 25) * mm : DPtr!8 = x - 10*mm : DPtr!12 = y - 15*mm

�C    DPtr!16 = (X * 50 + 60) * mm : DPtr!20 = (Y * 45 + 55) * mm

�Y    DPtr!24 = -1 : DPtr!28 = 0 : DPtr!32 = 0 : DPtr!36 = 0 : DPtr!40 = 2 : DPtr += 44

�(    FPtr += 8 : �xy : onlyclosed = �

�	    �

�      Ȏ (?FPtr � 3) �

�V        � 0 : � (?FPtr � 7) = 4 !DPtr = 5 : DPtr += 4 : FPtr += 1 : onlyclosed = �

�4        � 1 : � onlyclosed !DPtr = 5 : DPtr += 4

�<                 !DPtr = 2 : DPtr += 4 : FPtr += 1 : �xy

�9        � 2 : !DPtr = 8 : DPtr += 4 : FPtr += 1 : �xy

�E        � 3 : !DPtr = 6 : DPtr += 4 : FPtr += 1 : �xy : �xy : �xy

�      �

�:      � IF ?FPtr = 4 !DPtr = 5 : DPtr += 4 : FPtr += 1

�    � (?FPtr � 7) = 0

�*    � onlyclosed !DPtr = 5 : DPtr += 4

�    !DPtr = 0 : DPtr += 4

�    Start!4 = DPtr - Start

�  �

�    FPtr += 7

�  �

�  � ?FPtr = 8 �

�    FPtr += 1

�    ȕ ?FPtr <> 0

�      �Inclusion(?FPtr)

�	    �

�  �

�� 25 : �BaseChar

�(� 41 : FPtr += 1 : �Inclusion(?FPtr)

�4� 57 : �BaseChar : FPtr += 1 : �Inclusion(?FPtr)

��

��

�:

�� �BaseChar

�  FPtr += 1

�h  !DPtr = 1 : DPtr!4 = 14*4 : DPtr!8 = x : DPtr!12 = y : DPtr!16 = x + 9 * mm : DPtr!20 = y + 5 * mm

�b  DPtr!24 = &BBFF00 : DPtr!28 = &FFFFFF00 : DPtr!32 = 0 : DPtr!36 =  3 * mm : DPtr!40 = 5 * mm

�.  DPtr!44 = x : DPtr!48 = y : DPtr?52 = 46

�"  � ?FPtr > 32 � ?FPtr < 127 �

�%    DPtr?53 = ?FPtr : DPtr!54 = 0

�  �

�.    $(DPtr + 53) = �~(?FPtr) : DPtr?55 = 0

�  �

�  DPtr += 14*4

��

�:

�� �Inclusion(Char)

�=  !DPtr = 1 : DPtr!4 = 14*4 : DPtr += 8 : FPtr += 1 : �xy

�:  !DPtr = DPtr!-8 + 9 * mm : DPtr!4 = DPtr!-4 + 5 * mm

�M  DPtr!8 = &BBFF00 : DPtr!12 = &FFFFFF00 : DPtr!16 = 0 : DPtr!20 = 3 * mm

�>  DPtr!24 = 5 * mm : DPtr!28 = DPtr!-8 : DPtr!32 = DPtr!-4

�  DPtr?36 = 46

�   � Char > 32 � Char < 127 �

�$    DPtr?37 = Char : DPtr!38 = 0

�  �

�+    $(DPtr + 37) = �~Char : DPtr?39 = 0

�  �

�  DPtr += 10*4

��

�:

�	� �xy

�[  !DPtr = ((!FPtr << 20) � &FFF00000) >> 15 : DPtr!4 = (FPtr!1 << 16 � &FFF00000) >> 15

�5  !DPtr = !DPtr * 3 + x : DPtr!4 = DPtr!4 * 3 + y

�  DPtr += 8 : FPtr += 3

��

�:

�� �Width

�  !DPtr = 2 : DPtr!4 = 68

�P  x = (X * 50 + 20) * mm : y = (Y * 45 + 25) * mm : DPtr!8 = x : DPtr!12 = y

�4  DPtr!16 = (X * 50 + 60) * mm : DPtr!20 = y + 1

�W  DPtr!24 = -1 : DPtr!28 = &FFBB0000 : DPtr!32 = .25*mm : DPtr!36 = 0 : DPtr!40 = 2

�-  DPtr!44 = x : DPtr!48 = y : DPtr!52 = 8

�Q  � map DPtr!56 = x + width%(map?Char)*Unit � DPtr!56 = x + width%(Char)*Unit

�,  DPtr!60 = y : DPtr!64 = 0 : DPtr += 68

��

�:

�
� �descaf

�  Table = FBuffer + 52

�)  TableEnd = (!Table � &FFFF) + Table

�  FontName$ = �s2(TableEnd)

�� Version < 8 �

�'  FirstChunk = FBuffer!16 + FBuffer

�   End = FBuffer!48 + FBuffer

�<  NewTableEnd = (Table + 513 + �FontName$ + 3) � &FFFFFC

�'  Saving = FirstChunk - NewTableEnd

�R  � N = 0 � 8 : !(FBuffer + 16 + N * 4) = !(FBuffer + 16 + N * 4) - Saving : �

�%  FBuffer?52 = 1 : FBuffer?53 = 2

�(  � X = 54 � 563 : FBuffer?X = 0 : �

�   $(FBuffer+565) = FontName$
�

'  OffsetArea = FBuffer!16 + FBuffer
(  FirstChunk = !OffsetArea + FBuffer
  nchunks = FBuffer!20
  NoOfScafs = FBuffer!24
,  End = OffsetArea!(4*nchunks) + FBuffer
H  NewTableEnd = (Table + 2*NoOfScafs + 1 + �FontName$ + 3) � &FFFFFC
9  Saving = FirstChunk - NewTableEnd - 4 * nchunks - 4
I  ?Table = (2*NoOfScafs + 1) � &FF : Table?1 = (2*NoOfScafs + 1) >> 8
	5  � X = 54 � 2*NoOfScafs + 52 : FBuffer?X = 0 : �

/  $(FBuffer + 2*NoOfScafs + 53) = FontName$
]  � N = 0 � nchunks : !(OffsetArea - Saving + N * 4) = !(OffsetArea + N * 4) - Saving : �
  FBuffer!16 -= Saving

�
5  � X = FirstChunk � End � 4 : X!-Saving = !X : �
�
:
ݤs2(X) : � a$
Ka$ = �(?X) : � N = 0 � 1 : � X += 1 : a$ += �(?X) : � ?X = 0 : � : = a$
:

��Outline
%Size% = FBuffer?6 + 256*FBuffer?7
� XShift% = 0 �
5  � �X(10,10) < 0 XShift% -= �X(Size%,Size%) * .7
1  � �X(0,10)  < 0 XShift% -= �X(0,Size%) * .7
1  � �X(10,0)  < 0 XShift% -= �X(Size%,0) * .7
�
� YShift% = 0 �
5  � �Y(10,10) < 0 YShift% -= �Y(Size%,Size%) * .7
1  � �Y(0,10)  < 0 YShift% -= �Y(0,Size%) * .7
1  � �Y(10,0)  < 0 YShift% -= �Y(Size%,0) * .7
�
 Ȏ Version �
!� 8
"  NoOfScafs = FBuffer!24
#  flagword = 1
$  nchunks = FBuffer!20
%P  � nchunks > 13 nchunks = 13 : �Report("I can only do the first 13 chunks")
&A  � Chunk = FBuffer!16 + 4 � FBuffer!16 + 4 * nchunks - 4 � 4
'    �Chunk
(  �
)
*  NoOfScafs = 256
+  flagword = 0
,  � Chunk = 20 � 44 � 4
-    �Chunk
.  �
/  nchunks = 8
0�
1�
2:
3��Chunk
49ChunkAddress = FBuffer!Chunk + FBuffer + flagword * 4
5� Char = 0 � 124 � 4
62CharAddress = ChunkAddress + ChunkAddress!Char
7#� CharAddress <> ChunkAddress �
8  � ?CharAddress = 9 �
9!    Pointer = CharAddress + 7
:(    ȕ ?Pointer <> 0 � ?Pointer <> 8
;D      � 1 + (3 � ?Pointer) �Term, �Adjust(1), �Adjust(1), �Curve
<      Pointer += 1
=	    �
>    � ?Pointer = 8 �
?      Pointer += 1
@      ȕ ?Pointer <> 0
A        �Adjust(0)
B        Pointer += 1
C      �
D	    �
E  �
F�
G�
H�
I:
J7��Term : � ?Pointer <> 4 �Report("Term "+�?Pointer)
K�
L:
M0��Curve : � Dot = 1 � 3 : �Adjust(1) : � : �
N:
O��Adjust(Z)
P7X = Pointer!1 � &FFF : Y = (Pointer!2 � &FFF0) � 16
Q� Y > 2047 Y -= 4096
R� X > 2047 X -= 4096
SX% = �X(X,Y) : Y% = �Y(X,Y)
T5Pointer!1 = (Pointer!1 � &FFFFF000) � (X% � &FFF)
U<Pointer!2 = (Pointer!2 � &FFFF000F) � ((Y% � &FFF) * 16)
VPointer += 3
W�
X:
Y��Scaffold
ZTable = FBuffer + 52
[6� Pointer = Table + 64 � Table + NoOfScafs*2-2 � 2
\  Offset = !Pointer � &FFFF
]  � Offset > 0 �
^    Ptr = Offset + 5
_<    Scale = �X(2,0)-�X(1,0) : Shift% = 2*�X(1,0)-�X(2,0)
`    Widen% = WidenX%
a    � bit = 0 � 15
b[      � bit = 8 Scale = �Y(0,2)-�Y(0,1) : Shift% = 2*�Y(0,1)-�Y(0,2) : Widen% = WidenY%
c&      � Table!(Offset+3) � 2^bit �
d%        Coord% = Table!Ptr � &FFF
e*        � Coord% > 2047 Coord% -= 4096
f"        Width% = Ptr?(Table+2)
gP        Right% = Scale * (Coord% + Width%) + Shift% + 0.5*�(Coord% + Width%)
h:        Coord% = Scale * Coord% + Shift% + 0.5*�Coord%
i0        � Scale < 0 Coord% += Scale * Width%
jQ        � Width% = 255 Coord% += Widen% � Coord% -= Widen% : Right% += Widen%
kA        Table!Ptr = (Table!Ptr � &FFFFF000) � (Coord% � &FFF)
l        � Width% < 254 �
m)          Width% = �(Right% - Coord%)
nI          � Width% < 254 Ptr?(Table+2) = Width% � Ptr?(Table+2) = 253
o
        �
p        Ptr += 3
q      �
r	    �
s  �
t�
u�
v:
wݤX(X,Y)
xY = Y * YScale
yX = X * XScale + Y * Shear
z'X = X * Cos - Y * Sin + XShift% * Z
{= X + .5 * �X
|:
}ݤY(X,Y)
~Y = Y * YScale
X = X * XScale + Y * Shear
�'Y = Y * Cos + X * Sin + YShift% * Z
�= Y + .5 * �Y
�:
�
��IntMetr
�&  N% = MBuffer?48 + 256*MBuffer?51
�  � MBuffer?50 � %100000 �
�.    Map% = MBuffer?52 + 256*MBuffer?53 + 2
�/    � Map% = 2 map = 0 � map = MBuffer + 54
�  �
�'    Map% = 256 : map = MBuffer + 52
�  �
�-  � MBuffer?50 � %1 BBox% = 0 � BBox% = 1
�.  table = MBuffer + 52 + Map% + 8*N%*BBox%
�  � Entry = 0 � N%
�@    W = table!(Entry*2) � &FFFF : � W � &8000 W += &FFFF0000
�     W% = W * XScale + Track%
�F    table!(Entry*2) = (W% � &FFFF) � (table!(Entry*2) � &FFFF0000)
�    width%(Entry) = W%
�  �
��
�:
�� �MakeMetrics : � n
�'  � X = 0 � 39 : MBuffer?X = 13 : �
�  $MBuffer = FontName$
�8  MBuffer!40 = 16 : MBuffer!44 = 16 : MBuffer?49 = 2
�1  � kerns MBuffer?50 = &2D � MBuffer?50 = &25
�K  n = 1 : CharMap = MBuffer + 54 : WidthTable = CharMap + NoOfChunks*32
�7  ?CharMap = 0 : ?WidthTable = 0 : WidthTable?1 = 0
�$  � Char = 1 � NoOfChunks*32 - 1
�    Match = �
�    � Prev = 0 � n-1
�d      � (width%(Char) � &FFFF) = ((WidthTable!(2*Prev)) � &FFFF) CharMap?Char = Prev : Match = �
�	    �
�M    � � Match CharMap?Char = n : WidthTable!(2*n) = width%(Char) : n += 1
�  �
�  � n > 256 �
�Z    MBuffer!52 = 0 : MBuffer?48 = (NoOfChunks*32) � &FF : MBuffer?51 = NoOfChunks >> 3
�    MPtr = CharMap
�I    � Char = 0 � NoOfChunks*32 - 1 : MPtr!(Char*2) = width%(Char) : �
�    MPtr += NoOfChunks*32*2
�  �
�m    MBuffer?52 = (NoOfChunks*32)�256 : MBuffer?53 = (NoOfChunks*32)�256 : MBuffer?48 = n : MBuffer?51 = 0
�,    MPtr = CharMap + NoOfChunks*32 + 2*n
�  �
�  � kerns �
�-    � X = 0 � KernEnd - KernStart - 4 � 4
�)      !MPtr = KernStart!X : MPtr += 4
�	    �
�    � X = 1 � 3
�#      � MPtr?-1 = &FF MPtr -= 1
�	    �
�  �
�  MExt = MPtr-MBuffer
��
�:
�� �DrawToFont
�=  minX = 1000 : minY = 1000 : maxX = -1000 : maxY = -1000
�K  DesignSize = 500 : NoOfChunks = 8 : FontName$ = "NewFont" : kerns = �
�#  ScafStart = 0 : NoOfScafs = 0
�6  pathptr%() = 0 : width%() = 0 : inclusion%() = 0
�  �objects(1)
�#  Unit = 96 * DesignSize / 1000
�  �objects(2)
�  �MakeMetrics
�4  �MakeFont : Saving = 0 : FExt = FPtr - FBuffer
��
�:
�� �objects(n)
�  DPtr = DBuffer + 40
�  �
�    Ȏ !DPtr �
�$      � 1 : � n = 1 �text1(DPtr)
�'               � n = 2 �text2(DPtr)
�!               DPtr += DPtr!4
�#      � 2 : � n = 2 �path(DPtr)
�!               DPtr += DPtr!4
�      � 6 : DPtr += 36
�      � 7 : DPtr += 28
�Z      � &6E72654B : � n = 2 KernStart = DPtr + 8 : KernEnd = DPtr + DPtr!4 : kerns = �
�!               DPtr += DPtr!4
�t      � &66616353 : � n = 2 ScafStart = DPtr + 12 : NoOfScafs = DPtr!8 : ScafEnd = DPtr + 12 + (DPtr!12 � &FFFF)
�!               DPtr += DPtr!4
�       : DPtr += DPtr!4
�	    �
�  � DPtr >= DExt + DBuffer
��
�:
�� �text1(DPtr)
�  a$ = �s(DPtr + 52)
�;  � �a$,"NoOfChars: ") NoOfChunks = �(�s(DPtr+63)) / 32
�7  � �a$,"DesignSize: ") DesignSize = �(�s(DPtr+64))
�1  � �a$,"FontName: ") FontName$ = �s(DPtr+62)
��
�:
�� �text2(DPtr)
�  a$ = �s(DPtr + 52)
�  � �a$,1) = "." �
�N    x = DPtr!8 : y = DPtr!20 : X = (x/mm - 10) � 50 : Y = (y/mm - 10) � 45
�0    Char = X + 16 * (NoOfChunks * 2 - Y - 1)
�<    DPtr!24 = inclusion%(Char) : inclusion%(Char) = DPtr
�  �
��
�:
�� �translation(v)
�L  x = DPtr!44 : y = DPtr!48 : X = (x/mm - 10) � 50 : Y = (y/mm - v) � 45
�3  x0 = (X * 50 + 20)*mm : y0 = (Y * 45 + 25)*mm
��
�:
�"� �path(DPtr) : � Char,X,Y,x,y
�  �translation(10)
�.  Char = X + 16 * (NoOfChunks * 2 - Y - 1)
�-  � DPtr!28 = 0 � Char < 416 �PreparePath
�R  � DPtr!28 = &FFBB0000 width%(Char) = 0.5*�(DPtr!56 - x) + (DPtr!56 - x)/Unit
��
�:
�� �PreparePath
�3  � (DPtr!8-x0)/96 < minX minX = (DPtr!8-x0)/96
�5  � (DPtr!12-y0)/96 < minY minY = (DPtr!12-y0)/96
�5  � (DPtr!16-x0)/96 > maxX maxX = (DPtr!16-x0)/96
�5  � (DPtr!20-y0)/96 > maxY maxY = (DPtr!20-y0)/96
�6  DPtr!24 = pathptr%(Char) : pathptr%(Char) = DPtr
��
�:
�� �MakeFont
�P  $FBuffer = "FONT" : FBuffer?4 = 0 : FBuffer?5 = 8 : FBuffer!6 = DesignSize
�\  FBuffer!8 = minX : FBuffer!10 = minY : FBuffer!12 = maxX-minX : FBuffer!14 = maxY-minY
�6  FBuffer!20 = NoOfChunks : FBuffer!24 = NoOfScafs
�+  � X = 28 � 48 � 4 : FBuffer!X = 0 : �
  � ScafStart = 0 �

=    FBuffer!24 = 1 : FBuffer!52 = 3 : FPtr = FBuffer + 55
  �
    FPtr = FBuffer + 52
@    � X = ScafStart � ScafEnd-1 : ?FPtr = ?X : FPtr += 1 : �
  �
>  $FPtr = FontName$ : FPtr += �FontName$ + 1 : FPtr?-1 = 0
0  $FPtr = "Outlines" : FPtr += 8 : !FPtr = 0
Y  ChunkOffsetTable = (FPtr + 4) � &FFFFFFFC : FBuffer!16 = ChunkOffsetTable - FBuffer
	1  EndOffset = ChunkOffsetTable + 4*NoOfChunks

  FPtr = EndOffset + 4
  � Y% = 0 � NoOfChunks-1
L    ChunkOffset = FPtr : ChunkOffsetTable!(Y%*4) = ChunkOffset - FBuffer

9    !FPtr = &80000080 : � this is the Chunk Flag word
0    CharOffsetTable = FPtr + 4 : FPtr += 136
/    Dependency = FPtr - 4 : !Dependency = 0
?    � X% = 0 � 31 : Char = X% + Y%*32 : �MakePath(Char) : �
  �
6  ChunkOffsetTable!(NoOfChunks*4) = FPtr - FBuffer
�
:
!� �MakePath(Char) : � X,Y,x,y
5  DPtr = pathptr%(Char) : IPtr = inclusion%(Char)
  � DPtr <> 0 �
    �PathHeader(DPtr,10)
2    DPtr += 36 : SaveDPtr = DPtr : Strokes = �
	    �
      NextDPtr = DPtr!-12
      �
<        � �closed(DPtr) �MakeSubPath(DPtr) � �Skip(DPtr)
      � DPtr!4 = 0
      DPtr = NextDPtr + 36
     � NextDPtr = 0
!    � Strokes �
"      ?FPtr = 4 : FPtr += 1
#      DPtr = SaveDPtr
$      �
%        NextDPtr = DPtr!-12
&
        �
'<        � �closed(DPtr) �Skip(DPtr) � �MakeSubPath(DPtr)
(        � DPtr!4 = 0
)         DPtr = NextDPtr + 36
*      � NextDPtr = 0
+	    �
,    � IPtr �MakeInclusions
-    !FPtr = 0 : FPtr += 1
.%    FPtr = (FPtr + 3) � &FFFFFFFC
/  �
0    � IPtr <> 0 �
1      �PathHeader(IPtr,5)
2      �MakeInclusions
3      !FPtr = 0 : FPtr += 1
4'      FPtr = (FPtr + 3) � &FFFFFFFC
5	    �
6$      CharOffsetTable!(X%*4) = 0
7	    �
8  �
9�
::
;� �PathHeader(DPtr,v)
<    �translation(v)
=7    CharOffsetTable!(X%*4) = FPtr - ChunkOffset - 4
>    !FPtr = 9
?P    FPtr!1 = ((DPtr!8-x0)/96 � &FFF) + ((((DPtr!12-y0)/96) << 12) � &FFF000)
@Z    FPtr!4 = ((DPtr!16-DPtr!8)/96 � &FFF) + ((((DPtr!20-DPtr!12)/96) << 12) � &FFF000)
A    FPtr += 7
B�
C:
D� �MakeInclusions
E?FPtr = 8 : FPtr += 1
F�
GJ  � IPtr?54 = 0 Charq = IPtr?53 � Charq = �("&"+�(IPtr?53)+�(IPtr?54))
HU  ?FPtr = Charq : Chunkq = Charq � 32 : !Dependency = !Dependency � (1 << Chunkq)
IB  FPtr += 1 : DPtr = IPtr + 40 : !FPtr = �xy(DPtr) : FPtr += 3
J  IPtr = IPtr!24
K� IPtr = 0
L�
M:
N� �MakeSubPath(� A)
O  �
P    A += 4
Q    Ȏ !A �
RB      � 2 : ?FPtr = 1 : FPtr += 1 : !FPtr = �xy(A) : FPtr += 3
SB      � 6 : ?FPtr = 3 : FPtr += 1 : !FPtr = �xy(A) : FPtr += 3
TJ               !FPtr = �xy(A) : FPtr += 3 : !FPtr = �xy(A) : FPtr += 3
UB      � 8 : ?FPtr = 2 : FPtr += 1 : !FPtr = �xy(A) : FPtr += 3
V	    �
W  � !A = 0 � !A = 5
X  � !A = 0 A -= 4
Y�
Z:
[� �Skip(� A)
\  A += 4
]  �
^    Ȏ !A �
_      � 2,8 : A += 12
`      � 6   : A += 28
a	    �
b  � !A = 0 � !A = 5
c#  � !A = 0 Strokes = � : A -= 4
d�
e:
f� �closed(A)
g  A += 4
h  �
i    Ȏ !A �
j      � 2,8 : A += 12
k      � 6   : A += 28
l	    �
m  � !A = 0 � !A = 5
n= (!A = 5)
o:
p� �xy(� A)
qXx% = 0.5*�(A!4 - x0) + (A!4 - x0)/96 : y% = 0.5*�(A!8 - y0) + (A!8 - y0)/96 : A += 8
r*= (x% � &FFF) + ((y% << 12) � &FFF000)
s:
�

00000000  0d 00 01 05 f4 0d 00 02  19 f4 20 50 72 6f 67 72  |.......... Progr|
00000010  61 6d 20 20 20 46 6f 6e  74 69 63 69 61 6e 0d 00  |am   Fontician..|
00000020  03 05 f4 0d 00 04 14 f4  20 56 65 72 73 69 6f 6e  |........ Version|
00000030  20 20 20 31 2e 34 30 0d  00 05 05 f4 0d 00 06 25  |   1.40........%|
00000040  f4 20 43 6f 70 79 72 69  67 68 74 20 43 6c 69 76  |. Copyright Cliv|
00000050  65 20 53 65 6d 6d 65 6e  73 20 31 39 39 33 2d 39  |e Semmens 1993-9|
00000060  37 0d 00 07 05 3a 0d 00  08 2f de 20 77 69 64 74  |7....:.../. widt|
00000070  68 25 28 34 31 36 29 2c  70 61 74 68 70 74 72 25  |h%(416),pathptr%|
00000080  28 34 31 36 29 2c 69 6e  63 6c 75 73 69 6f 6e 25  |(416),inclusion%|
00000090  28 34 31 36 29 0d 00 09  42 de 20 62 6c 6f 63 6b  |(416)...B. block|
000000a0  25 20 35 31 32 30 2c 20  6d 65 6e 75 25 20 31 32  |% 5120, menu% 12|
000000b0  38 30 2c 20 74 65 6d 70  25 20 32 30 34 38 2c 20  |80, temp% 2048, |
000000c0  57 6f 72 6b 25 20 34 30  39 36 2c 20 62 6c 6f 63  |Work% 4096, bloc|
000000d0  6b 32 25 20 32 35 36 0d  00 0a 23 f2 49 6e 69 74  |k2% 256...#.Init|
000000e0  69 61 6c 69 7a 65 20 3a  20 f2 49 63 6f 6e 62 61  |ialize : .Iconba|
000000f0  72 20 3a 20 f2 57 72 69  74 65 0d 00 0b 09 f2 70  |r : .Write.....p|
00000100  6f 6c 6c 0d 00 0c 05 e0  0d 00 0d 05 3a 0d 00 0e  |oll.........:...|
00000110  0b dd 20 f2 70 6f 6c 6c  0d 00 0f 11 6d 61 73 6b  |.. .poll....mask|
00000120  25 3d 25 31 31 30 30 31  31 0d 00 10 05 f5 0d 00  |%=%110011.......|
00000130  11 2b 20 20 c8 99 20 22  57 69 6d 70 5f 50 6f 6c  |.+  .. "Wimp_Pol|
00000140  6c 22 2c 6d 61 73 6b 25  2c 20 62 6c 6f 63 6b 25  |l",mask%, block%|
00000150  20 b8 20 45 76 65 6e 74  25 0d 00 12 11 20 20 c8  | . Event%....  .|
00000160  8e 20 45 76 65 6e 74 25  20 ca 0d 00 13 2b 20 20  |. Event% ....+  |
00000170  20 20 c9 20 32 3a c8 99  20 22 57 69 6d 70 5f 4f  |  . 2:.. "Wimp_O|
00000180  70 65 6e 57 69 6e 64 6f  77 22 2c 20 30 2c 20 62  |penWindow", 0, b|
00000190  6c 6f 63 6b 25 0d 00 14  2c 20 20 20 20 c9 20 33  |lock%...,    . 3|
000001a0  3a c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 57  |:.. "Wimp_CloseW|
000001b0  69 6e 64 6f 77 22 2c 20  30 2c 20 62 6c 6f 63 6b  |indow", 0, block|
000001c0  25 0d 00 15 12 20 20 20  20 c9 20 36 3a f2 4d 6f  |%....    . 6:.Mo|
000001d0  75 73 65 0d 00 16 14 20  20 20 20 c9 20 37 3a f2  |use....    . 7:.|
000001e0  44 72 61 67 42 6f 78 0d  00 17 15 20 20 20 20 c9  |DragBox....    .|
000001f0  20 38 3a f2 4b 65 79 50  72 65 73 73 0d 00 18 16  | 8:.KeyPress....|
00000200  20 20 20 20 c9 20 39 3a  f2 53 65 6c 65 63 74 69  |    . 9:.Selecti|
00000210  6f 6e 0d 00 19 18 20 20  20 20 c9 20 31 37 2c 31  |on....    . 17,1|
00000220  38 3a f2 4d 65 73 73 61  67 65 0d 00 1a 07 20 20  |8:.Message....  |
00000230  cb 0d 00 1b 0f fd 20 66  69 6e 69 73 68 65 64 25  |...... finished%|
00000240  0d 00 1c 17 c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |...... "Wimp_Clo|
00000250  73 65 44 6f 77 6e 22 0d  00 1d 05 e1 0d 00 1e 05  |seDown".........|
00000260  3a 0d 00 1f 15 dd 20 f2  52 65 6c 65 61 73 65 42  |:..... .ReleaseB|
00000270  75 66 66 65 72 73 0d 00  20 07 ea 20 85 0d 00 21  |uffers.. .. ...!|
00000280  40 ee 20 85 20 ea 20 e7  20 9f 20 3c 3e 20 34 34  |@. . . . . <> 44|
00000290  39 20 f2 52 65 70 6f 72  74 28 f6 24 2b 22 2c 20  |9 .Report(.$+", |
000002a0  6e 6f 2e 20 22 2b c3 9f  2b 22 20 40 20 6c 69 6e  |no. "+..+" @ lin|
000002b0  65 20 22 2b c3 9e 29 3a  e1 20 8b 20 e1 0d 00 22  |e "+..):. . ..."|
000002c0  21 c8 99 20 22 57 69 6d  70 5f 53 6c 6f 74 53 69  |!.. "Wimp_SlotSi|
000002d0  7a 65 22 2c 93 2d 26 38  30 30 30 2c 2d 31 0d 00  |ze",.-&8000,-1..|
000002e0  23 05 e1 0d 00 24 05 3a  0d 00 25 0c dd 20 f2 4d  |#....$.:..%.. .M|
000002f0  6f 75 73 65 0d 00 26 3c  e7 20 28 62 6c 6f 63 6b  |ouse..&<. (block|
00000300  25 21 38 3d 32 29 20 80  20 28 62 6c 6f 63 6b 25  |%!8=2) . (block%|
00000310  21 31 36 3d 62 61 72 25  29 20 80 20 28 62 6c 6f  |!16=bar%) . (blo|
00000320  63 6b 25 21 31 32 3d 2d  32 29 20 f2 4d 65 6e 75  |ck%!12=-2) .Menu|
00000330  0d 00 27 4f e7 20 28 28  62 6c 6f 63 6b 25 21 38  |..'O. ((block%!8|
00000340  3d 31 29 20 84 20 28 62  6c 6f 63 6b 25 21 38 3d  |=1) . (block%!8=|
00000350  34 29 29 20 80 20 28 62  6c 6f 63 6b 25 21 31 32  |4)) . (block%!12|
00000360  3d 57 69 6e 64 6f 77 25  29 20 80 20 28 62 6c 6f  |=Window%) . (blo|
00000370  63 6b 25 21 31 36 3d 32  29 20 f2 49 63 6f 6e 0d  |ck%!16=2) .Icon.|
00000380  00 28 65 e7 20 28 28 62  6c 6f 63 6b 25 21 38 3d  |.(e. ((block%!8=|
00000390  31 2a 31 36 29 20 84 20  28 62 6c 6f 63 6b 25 21  |1*16) . (block%!|
000003a0  38 3d 34 2a 31 36 29 29  20 80 20 28 62 6c 6f 63  |8=4*16)) . (bloc|
000003b0  6b 25 21 31 32 3d 57 69  6e 64 6f 77 25 29 20 80  |k%!12=Window%) .|
000003c0  20 28 62 6c 6f 63 6b 25  21 31 36 3d 30 29 20 4f  | (block%!16=0) O|
000003d0  75 74 24 20 3d 20 22 46  6f 6e 74 22 20 3a 20 f2  |ut$ = "Font" : .|
000003e0  44 72 61 67 0d 00 29 65  e7 20 28 28 62 6c 6f 63  |Drag..)e. ((bloc|
000003f0  6b 25 21 38 3d 31 2a 31  36 29 20 84 20 28 62 6c  |k%!8=1*16) . (bl|
00000400  6f 63 6b 25 21 38 3d 34  2a 31 36 29 29 20 80 20  |ock%!8=4*16)) . |
00000410  28 62 6c 6f 63 6b 25 21  31 32 3d 57 69 6e 64 6f  |(block%!12=Windo|
00000420  77 25 29 20 80 20 28 62  6c 6f 63 6b 25 21 31 36  |w%) . (block%!16|
00000430  3d 34 29 20 4f 75 74 24  20 3d 20 22 44 72 61 77  |=4) Out$ = "Draw|
00000440  22 20 3a 20 f2 44 72 61  67 0d 00 2a 66 e7 20 28  |" : .Drag..*f. (|
00000450  28 62 6c 6f 63 6b 25 21  38 3d 31 2a 31 36 29 20  |(block%!8=1*16) |
00000460  84 20 28 62 6c 6f 63 6b  25 21 38 3d 34 2a 31 36  |. (block%!8=4*16|
00000470  29 29 20 80 20 28 62 6c  6f 63 6b 25 21 31 32 3d  |)) . (block%!12=|
00000480  57 69 6e 64 6f 77 25 29  20 80 20 28 62 6c 6f 63  |Window%) . (bloc|
00000490  6b 25 21 31 36 3d 32 36  29 20 4f 75 74 24 20 3d  |k%!16=26) Out$ =|
000004a0  20 22 53 63 61 66 22 20  3a 20 f2 44 72 61 67 0d  | "Scaf" : .Drag.|
000004b0  00 2b 26 e7 20 62 6c 6f  63 6b 25 21 38 3d 34 20  |.+&. block%!8=4 |
000004c0  80 20 62 6c 6f 63 6b 25  21 31 32 3d 57 69 6e 64  |. block%!12=Wind|
000004d0  6f 77 25 20 8c 0d 00 2c  14 20 20 c8 8e 20 62 6c  |ow% ...,.  .. bl|
000004e0  6f 63 6b 25 21 31 36 20  ca 0d 00 2d 22 20 20 20  |ock%!16 ...-"   |
000004f0  20 c9 20 31 39 20 3a 20  44 65 53 63 61 66 25 20  | . 19 : DeScaf% |
00000500  3d 20 ac 20 44 65 53 63  61 66 25 0d 00 2e 07 20  |= . DeScaf%.... |
00000510  20 cb 0d 00 2f 05 cd 0d  00 30 05 e1 0d 00 31 05  | .../....0....1.|
00000520  3a 0d 00 32 0e dd 20 f2  44 72 61 67 42 6f 78 0d  |:..2.. .DragBox.|
00000530  00 33 09 f2 52 65 61 64  0d 00 34 23 c8 99 20 22  |.3..Read..4#.. "|
00000540  57 69 6d 70 5f 47 65 74  50 6f 69 6e 74 65 72 49  |Wimp_GetPointerI|
00000550  6e 66 6f 22 2c 2c 74 65  6d 70 25 0d 00 35 29 e7  |nfo",,temp%..5).|
00000560  20 28 74 65 6d 70 25 21  31 32 3d 2d 32 29 20 80  | (temp%!12=-2) .|
00000570  20 28 74 65 6d 70 25 21  31 36 3d 62 61 72 25 29  | (temp%!16=bar%)|
00000580  20 8c 20 e1 0d 00 36 2c  62 6c 6f 63 6b 25 21 30  | . ...6,block%!0|
00000590  3d 32 35 36 20 3a 20 62  6c 6f 63 6b 25 21 31 32  |=256 : block%!12|
000005a0  3d 30 20 3a 20 62 6c 6f  63 6b 25 21 31 36 3d 31  |=0 : block%!16=1|
000005b0  0d 00 37 2c 62 6c 6f 63  6b 25 21 32 30 3d 74 65  |..7,block%!20=te|
000005c0  6d 70 25 21 31 32 20 20  3a 20 62 6c 6f 63 6b 25  |mp%!12  : block%|
000005d0  21 32 34 3d 74 65 6d 70  25 21 31 36 0d 00 38 2b  |!24=temp%!16..8+|
000005e0  62 6c 6f 63 6b 25 21 32  38 3d 74 65 6d 70 25 21  |block%!28=temp%!|
000005f0  30 20 20 20 3a 20 62 6c  6f 63 6b 25 21 33 32 3d  |0   : block%!32=|
00000600  74 65 6d 70 25 21 34 0d  00 39 2d 62 6c 6f 63 6b  |temp%!4..9-block|
00000610  25 21 33 36 3d 66 69 6c  65 73 69 7a 65 25 20 3a  |%!36=filesize% :|
00000620  20 62 6c 6f 63 6b 25 21  34 30 3d 66 69 6c 65 74  | block%!40=filet|
00000630  79 70 65 25 0d 00 3a 43  e7 20 a4 6c 65 61 66 28  |ype%..:C. .leaf(|
00000640  6f 75 74 70 75 74 24 29  3d 22 22 20 8c 20 74 65  |output$)="" . te|
00000650  6d 70 24 3d 22 46 6f 6e  74 69 63 69 61 6e 64 22  |mp$="Fonticiand"|
00000660  20 8b 20 74 65 6d 70 24  3d a4 6c 65 61 66 28 6f  | . temp$=.leaf(o|
00000670  75 74 70 75 74 24 29 0d  00 3b 1b 24 28 62 6c 6f  |utput$)..;.$(blo|
00000680  63 6b 25 2b 34 34 29 3d  74 65 6d 70 24 2b bd 28  |ck%+44)=temp$+.(|
00000690  30 29 0d 00 3c 35 c8 99  20 22 57 69 6d 70 5f 53  |0)..<5.. "Wimp_S|
000006a0  65 6e 64 4d 65 73 73 61  67 65 22 2c 31 37 2c 62  |endMessage",17,b|
000006b0  6c 6f 63 6b 25 2c 74 65  6d 70 25 21 31 32 2c 74  |lock%,temp%!12,t|
000006c0  65 6d 70 25 21 31 36 0d  00 3d 12 6d 69 6e 65 25  |emp%!16..=.mine%|
000006d0  3d 62 6c 6f 63 6b 25 21  38 0d 00 3e 05 e1 0d 00  |=block%!8..>....|
000006e0  3f 05 3a 0d 00 40 0f dd  20 f2 4b 65 79 50 72 65  |?.:..@.. .KeyPre|
000006f0  73 73 0d 00 41 12 c8 8e  20 62 6c 6f 63 6b 25 21  |ss..A... block%!|
00000700  32 34 20 ca 0d 00 42 17  20 20 c9 20 26 44 20 3a  |24 ...B.  . &D :|
00000710  20 f2 52 65 74 75 72 6e  4b 65 79 0d 00 43 27 20  | .ReturnKey..C' |
00000720  20 7f 20 c8 99 20 22 57  69 6d 70 5f 50 72 6f 63  | . .. "Wimp_Proc|
00000730  65 73 73 4b 65 79 22 2c  20 62 6c 6f 63 6b 25 21  |essKey", block%!|
00000740  32 34 0d 00 44 05 cb 0d  00 45 05 e1 0d 00 46 05  |24..D....E....F.|
00000750  3a 0d 00 47 10 dd 20 f2  52 65 74 75 72 6e 4b 65  |:..G.. .ReturnKe|
00000760  79 0d 00 48 18 e7 20 62  6c 6f 63 6b 25 21 30 3d  |y..H.. block%!0=|
00000770  57 69 6e 64 6f 77 25 20  8c 0d 00 49 39 20 20 e7  |Window% ...I9  .|
00000780  20 62 6c 6f 63 6b 25 21  34 3d 31 20 8c 20 c8 99  | block%!4=1 . ..|
00000790  20 22 57 69 6d 70 5f 53  65 74 43 61 72 65 74 50  | "Wimp_SetCaretP|
000007a0  6f 73 69 74 69 6f 6e 22  2c 20 2d 31 3a f2 49 63  |osition", -1:.Ic|
000007b0  6f 6e 0d 00 4a 05 cd 0d  00 4b 05 e1 0d 00 4c 05  |on..J....K....L.|
000007c0  3a 0d 00 4d 10 dd 20 f2  53 65 6c 65 63 74 69 6f  |:..M.. .Selectio|
000007d0  6e 0d 00 4e 0e ea 20 62  75 74 74 6f 6e 73 25 0d  |n..N.. buttons%.|
000007e0  00 4f 26 c8 99 20 22 57  69 6d 70 5f 47 65 74 50  |.O&.. "Wimp_GetP|
000007f0  6f 69 6e 74 65 72 49 6e  66 6f 22 2c 20 30 2c 20  |ointerInfo", 0, |
00000800  74 65 6d 70 25 0d 00 50  17 62 75 74 74 6f 6e 73  |temp%..P.buttons|
00000810  25 3d 21 28 74 65 6d 70  25 2b 38 29 0d 00 51 1e  |%=!(temp%+8)..Q.|
00000820  e7 20 62 6c 6f 63 6b 25  21 30 3d 31 20 8c 20 66  |. block%!0=1 . f|
00000830  69 6e 69 73 68 65 64 25  3d b9 0d 00 52 18 e7 20  |inished%=...R.. |
00000840  62 75 74 74 6f 6e 73 25  3d 31 20 8c 20 f2 4d 65  |buttons%=1 . .Me|
00000850  6e 75 0d 00 53 05 e1 0d  00 54 05 3a 0d 00 55 0e  |nu..S....T.:..U.|
00000860  dd 20 f2 4d 65 73 73 61  67 65 0d 00 56 12 c8 8e  |. .Message..V...|
00000870  20 62 6c 6f 63 6b 25 21  31 36 20 ca 0d 00 57 17  | block%!16 ...W.|
00000880  20 20 c9 20 30 20 3a 20  66 69 6e 69 73 68 65 64  |  . 0 : finished|
00000890  25 3d b9 0d 00 58 15 20  20 c9 20 31 20 3a 20 f2  |%=...X.  . 1 : .|
000008a0  44 61 74 61 53 61 76 65  0d 00 59 18 20 20 c9 20  |DataSave..Y.  . |
000008b0  32 20 3a 20 f2 44 61 74  61 53 61 76 65 41 63 6b  |2 : .DataSaveAck|
000008c0  0d 00 5a 15 20 20 c9 20  33 20 3a 20 f2 44 61 74  |..Z.  . 3 : .Dat|
000008d0  61 4c 6f 61 64 0d 00 5b  18 20 20 c9 20 34 20 3a  |aLoad..[.  . 4 :|
000008e0  20 f2 44 61 74 61 4c 6f  61 64 41 63 6b 0d 00 5c  | .DataLoadAck..\|
000008f0  05 cb 0d 00 5d 05 e1 0d  00 5e 05 3a 0d 00 5f 0f  |....]....^.:.._.|
00000900  dd 20 f2 44 61 74 61 53  61 76 65 0d 00 60 0c ea  |. .DataSave..`..|
00000910  20 65 78 69 73 74 25 0d  00 61 2d e7 20 28 62 6c  | exist%..a-. (bl|
00000920  6f 63 6b 25 21 32 30 3c  3e 2d 32 29 20 84 20 28  |ock%!20<>-2) . (|
00000930  62 6c 6f 63 6b 25 21 32  34 3c 3e 62 61 72 25 29  |block%!24<>bar%)|
00000940  20 8c 20 e1 0d 00 62 2c  e7 20 62 6c 6f 63 6b 25  | . ...b,. block%|
00000950  21 34 30 3c 3e 26 31 30  30 30 20 80 20 62 6c 6f  |!40<>&1000 . blo|
00000960  63 6b 25 21 34 30 3c 3e  26 61 66 66 20 8c 20 e1  |ck%!40<>&aff . .|
00000970  0d 00 63 30 e7 20 62 6c  6f 63 6b 25 21 34 30 20  |..c0. block%!40 |
00000980  3d 20 26 61 66 66 20 44  72 61 77 49 6e 25 20 3d  |= &aff DrawIn% =|
00000990  20 b9 20 8b 20 44 72 61  77 49 6e 25 20 3d 20 a3  | . . DrawIn% = .|
000009a0  0d 00 64 21 66 69 6c 65  6e 61 6d 65 24 3d a4 67  |..d!filename$=.g|
000009b0  65 74 6e 61 6d 65 28 62  6c 6f 63 6b 25 2b 34 34  |etname(block%+44|
000009c0  29 0d 00 65 17 66 69 6c  65 74 79 70 65 25 3d 62  |)..e.filetype%=b|
000009d0  6c 6f 63 6b 25 21 34 30  0d 00 66 17 66 69 6c 65  |lock%!40..f.file|
000009e0  73 69 7a 65 25 3d 62 6c  6f 63 6b 25 21 33 36 0d  |size%=block%!36.|
000009f0  00 67 37 c8 99 20 22 58  4f 53 5f 52 65 61 64 56  |.g7.. "XOS_ReadV|
00000a00  61 72 56 61 6c 22 2c 20  22 57 69 6d 70 24 53 63  |arVal", "Wimp$Sc|
00000a10  72 61 70 22 2c 20 30 2c  20 2d 31 20 b8 20 2c 2c  |rap", 0, -1 . ,,|
00000a20  65 78 69 73 74 25 0d 00  68 10 e7 20 65 78 69 73  |exist%..h.. exis|
00000a30  74 25 3d 30 20 8c 0d 00  69 29 20 20 f2 52 65 70  |t%=0 ...i)  .Rep|
00000a40  6f 72 74 28 22 3c 57 69  6d 70 24 53 63 72 61 70  |ort("<Wimp$Scrap|
00000a50  3e 20 6e 6f 74 20 64 65  66 69 6e 65 64 22 29 0d  |> not defined").|
00000a60  00 6a 05 cc 0d 00 6b 24  20 20 24 28 62 6c 6f 63  |.j....k$  $(bloc|
00000a70  6b 25 2b 34 34 29 3d 22  3c 57 69 6d 70 24 53 63  |k%+44)="<Wimp$Sc|
00000a80  72 61 70 3e 22 2b bd 30  0d 00 6c 34 20 20 62 6c  |rap>"+.0..l4  bl|
00000a90  6f 63 6b 25 21 31 32 3d  62 6c 6f 63 6b 25 21 38  |ock%!12=block%!8|
00000aa0  20 3a 20 62 6c 6f 63 6b  25 21 31 36 3d 32 20 3a  | : block%!16=2 :|
00000ab0  20 62 6c 6f 63 6b 25 21  30 3d 38 30 0d 00 6d 2e  | block%!0=80..m.|
00000ac0  20 20 c8 99 20 22 57 69  6d 70 5f 53 65 6e 64 4d  |  .. "Wimp_SendM|
00000ad0  65 73 73 61 67 65 22 2c  31 37 2c 62 6c 6f 63 6b  |essage",17,block|
00000ae0  25 2c 62 6c 6f 63 6b 25  21 34 0d 00 6e 05 cd 0d  |%,block%!4..n...|
00000af0  00 6f 05 e1 0d 00 70 05  3a 0d 00 71 12 dd 20 f2  |.o....p.:..q.. .|
00000b00  44 61 74 61 53 61 76 65  41 63 6b 0d 00 72 15 ea  |DataSaveAck..r..|
00000b10  20 74 65 6d 70 24 2c 20  63 6f 6d 6d 61 6e 64 24  | temp$, command$|
00000b20  0d 00 73 07 ea 20 85 0d  00 74 4a ee 20 85 20 ea  |..s.. ...tJ. . .|
00000b30  20 f2 52 65 70 6f 72 74  28 22 46 6f 6e 74 69 63  | .Report("Fontic|
00000b40  69 61 6e 20 65 72 72 6f  72 3a 20 22 2b f6 24 2b  |ian error: "+.$+|
00000b50  22 20 28 40 20 6c 69 6e  65 20 22 2b c3 9e 2b 22  |" (@ line "+..+"|
00000b60  2c 20 6e 6f 2e 20 22 2b  c3 9f 2b 22 29 22 29 3a  |, no. "+..+")"):|
00000b70  e1 0d 00 75 22 e7 20 62  6c 6f 63 6b 25 21 31 32  |...u". block%!12|
00000b80  3c 3e 6d 69 6e 65 25 20  8c 20 6d 69 6e 65 25 3d  |<>mine% . mine%=|
00000b90  30 20 8b 0d 00 76 21 20  20 6f 75 74 70 75 74 24  |0 ...v!  output$|
00000ba0  3d a4 67 65 74 6e 61 6d  65 28 62 6c 6f 63 6b 25  |=.getname(block%|
00000bb0  2b 34 34 29 0d 00 77 23  20 20 f2 46 6f 6e 74 69  |+44)..w#  .Fonti|
00000bc0  63 69 61 6e 28 66 69 6c  65 6e 61 6d 65 24 2c 6f  |cian(filename$,o|
00000bd0  75 74 70 75 74 24 29 0d  00 78 23 20 20 62 6c 6f  |utput$)..x#  blo|
00000be0  63 6b 25 21 31 32 3d 6d  69 6e 65 25 20 3a 20 62  |ck%!12=mine% : b|
00000bf0  6c 6f 63 6b 25 21 31 36  3d 33 0d 00 79 39 20 20  |lock%!16=3..y9  |
00000c00  c8 99 20 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |.. "Wimp_SendMes|
00000c10  73 61 67 65 22 2c 31 37  2c 62 6c 6f 63 6b 25 2c  |sage",17,block%,|
00000c20  62 6c 6f 63 6b 25 21 32  30 2c 62 6c 6f 63 6b 25  |block%!20,block%|
00000c30  21 32 34 0d 00 7a 14 20  20 6d 69 6e 65 25 3d 62  |!24..z.  mine%=b|
00000c40  6c 6f 63 6b 25 21 38 0d  00 7b 05 cd 0d 00 7c 05  |lock%!8..{....|.|
00000c50  e1 0d 00 7d 05 3a 0d 00  7e 0f dd 20 f2 44 61 74  |...}.:..~.. .Dat|
00000c60  61 4c 6f 61 64 0d 00 7f  07 ea 20 85 0d 00 80 48  |aLoad..... ....H|
00000c70  ee 20 85 20 ea 20 f2 52  65 70 6f 72 74 28 22 44  |. . . .Report("D|
00000c80  61 74 61 4c 6f 61 64 20  65 72 72 6f 72 20 22 2b  |ataLoad error "+|
00000c90  f6 24 2b 22 20 28 40 20  6c 69 6e 65 20 22 2b c3  |.$+" (@ line "+.|
00000ca0  9e 2b 22 2c 20 6e 6f 2e  20 22 2b c3 9f 2b 22 29  |.+", no. "+..+")|
00000cb0  22 29 3a e1 0d 00 81 05  3a 0d 00 82 2d e7 20 28  |"):.....:...-. (|
00000cc0  62 6c 6f 63 6b 25 21 32  30 3c 3e 2d 32 29 20 84  |block%!20<>-2) .|
00000cd0  20 28 62 6c 6f 63 6b 25  21 32 34 3c 3e 62 61 72  | (block%!24<>bar|
00000ce0  25 29 20 8c 20 e1 0d 00  83 2c e7 20 62 6c 6f 63  |%) . ....,. bloc|
00000cf0  6b 25 21 34 30 3c 3e 26  31 30 30 30 20 80 20 62  |k%!40<>&1000 . b|
00000d00  6c 6f 63 6b 25 21 34 30  3c 3e 26 61 66 66 20 8c  |lock%!40<>&aff .|
00000d10  20 e1 0d 00 84 30 e7 20  62 6c 6f 63 6b 25 21 34  | ....0. block%!4|
00000d20  30 20 3d 20 26 61 66 66  20 44 72 61 77 49 6e 25  |0 = &aff DrawIn%|
00000d30  20 3d 20 b9 20 8b 20 44  72 61 77 49 6e 25 20 3d  | = . . DrawIn% =|
00000d40  20 a3 0d 00 85 0a f2 57  72 69 74 65 0d 00 86 23  | ......Write...#|
00000d50  c8 99 20 22 57 69 6d 70  5f 47 65 74 50 6f 69 6e  |.. "Wimp_GetPoin|
00000d60  74 65 72 49 6e 66 6f 22  2c 2c 74 65 6d 70 25 0d  |terInfo",,temp%.|
00000d70  00 87 28 74 65 6d 70 25  21 34 3d 74 65 6d 70 25  |..(temp%!4=temp%|
00000d80  21 30 2d 31 39 32 20 3a  20 74 65 6d 70 25 21 38  |!0-192 : temp%!8|
00000d90  3d 31 38 34 2d 38 30 0d  00 88 1e 74 65 6d 70 25  |=184-80....temp%|
00000da0  21 31 32 3d 28 74 65 6d  70 25 21 30 2d 31 39 32  |!12=(temp%!0-192|
00000db0  29 2b 33 38 34 0d 00 89  17 74 65 6d 70 25 21 31  |)+384....temp%!1|
00000dc0  36 3d 31 38 34 2d 38 30  2b 35 31 32 0d 00 8a 1b  |6=184-80+512....|
00000dd0  74 65 6d 70 25 21 32 30  3d 30 20 3a 20 74 65 6d  |temp%!20=0 : tem|
00000de0  70 25 21 32 34 3d 30 0d  00 8b 0f 74 65 6d 70 25  |p%!24=0....temp%|
00000df0  21 32 38 3d 2d 31 0d 00  8c 13 74 65 6d 70 25 21  |!28=-1....temp%!|
00000e00  30 3d 57 69 6e 64 6f 77  25 0d 00 8d 1f c8 99 20  |0=Window%...... |
00000e10  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
00000e20  22 2c 2c 74 65 6d 70 25  0d 00 8e 3c c8 99 20 22  |",,temp%...<.. "|
00000e30  57 69 6d 70 5f 53 65 74  43 61 72 65 74 50 6f 73  |Wimp_SetCaretPos|
00000e40  69 74 69 6f 6e 22 2c 57  69 6e 64 6f 77 25 2c 31  |ition",Window%,1|
00000e50  2c 2d 31 2c 2d 31 2c 2d  31 2c a9 28 6f 75 74 70  |,-1,-1,-1,.(outp|
00000e60  75 74 24 29 0d 00 8f 17  66 69 6c 65 74 79 70 65  |ut$)....filetype|
00000e70  25 3d 62 6c 6f 63 6b 25  21 34 30 0d 00 90 17 66  |%=block%!40....f|
00000e80  69 6c 65 73 69 7a 65 25  3d 62 6c 6f 63 6b 25 21  |ilesize%=block%!|
00000e90  33 36 0d 00 91 21 66 69  6c 65 6e 61 6d 65 24 3d  |36...!filename$=|
00000ea0  a4 67 65 74 6e 61 6d 65  28 62 6c 6f 63 6b 25 2b  |.getname(block%+|
00000eb0  34 34 29 0d 00 92 16 62  6c 6f 63 6b 25 21 31 32  |44)....block%!12|
00000ec0  3d 62 6c 6f 63 6b 25 21  38 0d 00 93 1d 62 6c 6f  |=block%!8....blo|
00000ed0  63 6b 25 21 31 36 3d 34  20 3a 20 62 6c 6f 63 6b  |ck%!16=4 : block|
00000ee0  25 21 30 3d 36 34 0d 00  94 2c c8 99 20 22 57 69  |%!0=64...,.. "Wi|
00000ef0  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
00000f00  31 37 2c 62 6c 6f 63 6b  25 2c 62 6c 6f 63 6b 25  |17,block%,block%|
00000f10  21 34 0d 00 95 05 e1 0d  00 96 05 3a 0d 00 97 12  |!4.........:....|
00000f20  dd 20 f2 44 61 74 61 4c  6f 61 64 41 63 6b 0d 00  |. .DataLoadAck..|
00000f30  98 17 e7 20 62 6c 6f 63  6b 25 21 31 32 3d 6d 69  |... block%!12=mi|
00000f40  6e 65 25 20 8c 0d 00 99  20 20 20 6d 69 6e 65 25  |ne% ....   mine%|
00000f50  3d 30 20 3a 20 62 6c 6f  63 6b 25 21 30 3d 57 69  |=0 : block%!0=Wi|
00000f60  6e 64 6f 77 25 0d 00 9a  23 20 20 c8 99 20 22 57  |ndow%...#  .. "W|
00000f70  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
00000f80  2c 2c 62 6c 6f 63 6b 25  0d 00 9b 1e 20 20 c8 99  |,,block%....  ..|
00000f90  20 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  | "Wimp_CreateMen|
00000fa0  75 22 2c 2c 2d 31 0d 00  9c 3f 20 20 e7 20 c0 66  |u",,-1...?  . .f|
00000fb0  69 6c 65 6e 61 6d 65 24  2c 31 32 29 3d 22 3c 57  |ilename$,12)="<W|
00000fc0  69 6d 70 24 53 63 72 61  70 3e 22 20 8c 20 ff 20  |imp$Scrap>" . . |
00000fd0  22 44 65 6c 65 74 65 20  3c 57 69 6d 70 24 53 63  |"Delete <Wimp$Sc|
00000fe0  72 61 70 3e 22 0d 00 9d  05 cd 0d 00 9e 05 e1 0d  |rap>"...........|
00000ff0  00 9f 05 3a 0d 00 a0 0b  dd 20 f2 4d 65 6e 75 0d  |...:..... .Menu.|
00001000  00 a1 0b ea 20 69 74 65  6d 25 0d 00 a2 16 24 6d  |.... item%....$m|
00001010  65 6e 75 25 3d 22 46 6f  6e 74 69 63 69 61 6e 22  |enu%="Fontician"|
00001020  0d 00 a3 28 6d 65 6e 75  25 3f 31 32 3d 37 20 3a  |...(menu%?12=7 :|
00001030  20 6d 65 6e 75 25 3f 31  33 3d 32 20 3a 20 6d 65  | menu%?13=2 : me|
00001040  6e 75 25 3f 31 34 3d 37  0d 00 a4 2b 6d 65 6e 75  |nu%?14=7...+menu|
00001050  25 3f 31 35 3d 30 20 3a  20 6d 65 6e 75 25 21 31  |%?15=0 : menu%!1|
00001060  36 3d 31 30 30 20 3a 20  6d 65 6e 75 25 21 32 30  |6=100 : menu%!20|
00001070  3d 34 34 0d 00 a5 0e 6d  65 6e 75 25 21 32 34 3d  |=44....menu%!24=|
00001080  30 0d 00 a6 12 69 74 65  6d 25 3d 6d 65 6e 75 25  |0....item%=menu%|
00001090  2b 32 38 0d 00 a7 1d 69  74 65 6d 25 21 30 3d 30  |+28....item%!0=0|
000010a0  20 3a 20 69 74 65 6d 25  21 34 3d 49 6e 66 6f 25  | : item%!4=Info%|
000010b0  0d 00 a8 28 69 74 65 6d  25 21 38 3d 25 31 31 31  |...(item%!8=%111|
000010c0  30 30 30 30 30 30 30 30  31 30 30 31 30 30 30 30  |0000000010010000|
000010d0  30 30 30 31 30 30 30 31  0d 00 a9 1b 24 28 69 74  |00010001....$(it|
000010e0  65 6d 25 2b 31 32 29 3d  22 49 6e 66 6f 22 2b bd  |em%+12)="Info"+.|
000010f0  28 30 29 0d 00 aa 12 69  74 65 6d 25 3d 69 74 65  |(0)....item%=ite|
00001100  6d 25 2b 32 34 0d 00 ab  22 69 74 65 6d 25 21 30  |m%+24..."item%!0|
00001110  3d 25 31 30 30 30 30 30  30 30 20 3a 20 69 74 65  |=%10000000 : ite|
00001120  6d 25 21 34 3d 2d 31 0d  00 ac 28 69 74 65 6d 25  |m%!4=-1...(item%|
00001130  21 38 3d 25 31 31 31 30  30 30 30 30 30 30 30 31  |!8=%111000000001|
00001140  30 30 31 30 30 30 30 30  30 30 31 30 30 30 31 0d  |001000000010001.|
00001150  00 ad 1b 24 28 69 74 65  6d 25 2b 31 32 29 3d 22  |...$(item%+12)="|
00001160  51 75 69 74 22 2b bd 28  30 29 0d 00 ae 3c c8 99  |Quit"+.(0)...<..|
00001170  20 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  | "Wimp_CreateMen|
00001180  75 22 2c 20 30 2c 20 6d  65 6e 75 25 2c 20 28 62  |u", 0, menu%, (b|
00001190  6c 6f 63 6b 25 21 30 29  2d 31 30 30 2f 32 2c 20  |lock%!0)-100/2, |
000011a0  32 30 30 2d 31 36 0d 00  af 05 e1 0d 00 b0 05 3a  |200-16.........:|
000011b0  0d 00 b1 0b dd 20 f2 49  63 6f 6e 0d 00 b2 15 ea  |..... .Icon.....|
000011c0  20 63 6f 6d 6d 61 6e 64  24 2c 20 74 65 6d 70 24  | command$, temp$|
000011d0  0d 00 b3 07 ea 20 85 0d  00 b4 4a ee 20 85 20 ea  |..... ....J. . .|
000011e0  20 f2 52 65 70 6f 72 74  28 22 46 6f 6e 74 69 63  | .Report("Fontic|
000011f0  69 61 6e 20 65 72 72 6f  72 3a 20 22 2b f6 24 2b  |ian error: "+.$+|
00001200  22 20 28 40 20 6c 69 6e  65 20 22 2b c3 9e 2b 22  |" (@ line "+..+"|
00001210  2c 20 6e 6f 2e 20 22 2b  c3 9f 2b 22 29 22 29 3a  |, no. "+..+")"):|
00001220  e1 0d 00 b5 09 f2 52 65  61 64 0d 00 b6 53 e7 20  |......Read...S. |
00001230  a7 6f 75 74 70 75 74 24  2c 22 2e 22 29 3d 30 20  |.output$,".")=0 |
00001240  8c 20 f2 52 65 70 6f 72  74 28 22 54 6f 20 73 61  |. .Report("To sa|
00001250  76 65 2c 20 64 72 61 67  20 66 69 6c 65 20 69 63  |ve, drag file ic|
00001260  6f 6e 20 74 6f 20 61 20  64 69 72 65 63 74 6f 72  |on to a director|
00001270  79 20 64 69 73 70 6c 61  79 22 29 3a e1 0d 00 b7  |y display"):....|
00001280  55 e7 20 a4 6c 65 61 66  28 6f 75 74 70 75 74 24  |U. .leaf(output$|
00001290  29 3d 22 22 20 8c 20 f2  52 65 70 6f 72 74 28 22  |)="" . .Report("|
000012a0  54 6f 20 73 61 76 65 2c  20 64 72 61 67 20 66 69  |To save, drag fi|
000012b0  6c 65 20 69 63 6f 6e 20  74 6f 20 61 20 64 69 72  |le icon to a dir|
000012c0  65 63 74 6f 72 79 20 64  69 73 70 6c 61 79 22 29  |ectory display")|
000012d0  3a e1 0d 00 b8 21 f2 46  6f 6e 74 69 63 69 61 6e  |:....!.Fontician|
000012e0  28 66 69 6c 65 6e 61 6d  65 24 2c 6f 75 74 70 75  |(filename$,outpu|
000012f0  74 24 29 0d 00 b9 14 62  6c 6f 63 6b 25 21 30 3d  |t$)....block%!0=|
00001300  57 69 6e 64 6f 77 25 0d  00 ba 21 c8 99 20 22 57  |Window%...!.. "W|
00001310  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
00001320  2c 2c 62 6c 6f 63 6b 25  0d 00 bb 1c c8 99 20 22  |,,block%...... "|
00001330  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00001340  2c 2c 2d 31 0d 00 bc 05  e1 0d 00 bd 05 3a 0d 00  |,,-1.........:..|
00001350  be 0b dd 20 f2 44 72 61  67 0d 00 bf 25 ea 20 69  |... .Drag...%. i|
00001360  63 25 2c 20 6d 69 6e 58  25 2c 20 6d 69 6e 59 25  |c%, minX%, minY%|
00001370  2c 20 6d 61 78 58 25 2c  20 6d 61 78 59 25 0d 00  |, maxX%, maxY%..|
00001380  c0 11 69 63 25 3d 62 6c  6f 63 6b 25 21 31 36 0d  |..ic%=block%!16.|
00001390  00 c1 3a e7 20 28 62 6c  6f 63 6b 25 21 31 32 3d  |..:. (block%!12=|
000013a0  57 69 6e 64 6f 77 25 29  20 80 20 28 69 63 25 3d  |Window%) . (ic%=|
000013b0  30 20 84 20 69 63 25 20  3d 20 34 20 84 20 69 63  |0 . ic% = 4 . ic|
000013c0  25 20 3d 20 32 36 29 20  8c 0d 00 c2 15 20 20 74  |% = 26) .....  t|
000013d0  65 6d 70 25 21 30 3d 57  69 6e 64 6f 77 25 0d 00  |emp%!0=Window%..|
000013e0  c3 11 20 20 74 65 6d 70  25 21 34 3d 69 63 25 0d  |..  temp%!4=ic%.|
000013f0  00 c4 23 20 20 c8 99 20  22 57 69 6d 70 5f 47 65  |..#  .. "Wimp_Ge|
00001400  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 74 65 6d  |tIconState",,tem|
00001410  70 25 0d 00 c5 25 20 20  6d 69 6e 58 25 3d 74 65  |p%...%  minX%=te|
00001420  6d 70 25 21 38 20 20 3a  20 6d 69 6e 59 25 3d 74  |mp%!8  : minY%=t|
00001430  65 6d 70 25 21 31 32 0d  00 c6 25 20 20 6d 61 78  |emp%!12...%  max|
00001440  58 25 3d 74 65 6d 70 25  21 31 36 20 3a 20 6d 61  |X%=temp%!16 : ma|
00001450  78 59 25 3d 74 65 6d 70  25 21 32 30 0d 00 c7 25  |xY%=temp%!20...%|
00001460  20 20 c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |  .. "Wimp_GetWi|
00001470  6e 64 6f 77 53 74 61 74  65 22 2c 2c 74 65 6d 70  |ndowState",,temp|
00001480  25 0d 00 c8 30 20 20 6d  69 6e 58 25 3d 74 65 6d  |%...0  minX%=tem|
00001490  70 25 21 34 2b 6d 69 6e  58 25 20 20 3a 20 6d 61  |p%!4+minX%  : ma|
000014a0  78 58 25 3d 74 65 6d 70  25 21 34 2b 6d 61 78 58  |xX%=temp%!4+maxX|
000014b0  25 0d 00 c9 31 20 20 6d  69 6e 59 25 3d 74 65 6d  |%...1  minY%=tem|
000014c0  70 25 21 31 36 2b 6d 69  6e 59 25 20 3a 20 6d 61  |p%!16+minY% : ma|
000014d0  78 59 25 3d 74 65 6d 70  25 21 31 36 2b 6d 61 78  |xY%=temp%!16+max|
000014e0  59 25 0d 00 ca 1b 20 20  74 65 6d 70 25 21 30 3d  |Y%....  temp%!0=|
000014f0  30 20 3a 20 74 65 6d 70  25 21 34 3d 35 0d 00 cb  |0 : temp%!4=5...|
00001500  25 20 20 74 65 6d 70 25  21 38 3d 6d 69 6e 58 25  |%  temp%!8=minX%|
00001510  20 20 3a 20 74 65 6d 70  25 21 31 32 3d 6d 69 6e  |  : temp%!12=min|
00001520  59 25 0d 00 cc 25 20 20  74 65 6d 70 25 21 31 36  |Y%...%  temp%!16|
00001530  3d 6d 61 78 58 25 20 3a  20 74 65 6d 70 25 21 32  |=maxX% : temp%!2|
00001540  30 3d 6d 61 78 59 25 0d  00 cd 1d 20 20 74 65 6d  |0=maxY%....  tem|
00001550  70 25 21 32 34 3d 30 20  3a 20 74 65 6d 70 25 21  |p%!24=0 : temp%!|
00001560  32 38 3d 30 0d 00 ce 25  20 20 74 65 6d 70 25 21  |28=0...%  temp%!|
00001570  33 32 3d 33 32 30 30 30  20 3a 20 74 65 6d 70 25  |32=32000 : temp%|
00001580  21 33 36 3d 33 32 30 30  30 0d 00 cf 1e 20 20 c8  |!36=32000....  .|
00001590  99 20 22 57 69 6d 70 5f  44 72 61 67 42 6f 78 22  |. "Wimp_DragBox"|
000015a0  2c 2c 74 65 6d 70 25 0d  00 d0 0b 20 20 f2 52 65  |,,temp%....  .Re|
000015b0  61 64 0d 00 d1 05 cd 0d  00 d2 05 e1 0d 00 d3 05  |ad..............|
000015c0  3a 0d 00 d4 14 dd 20 f2  52 65 70 6f 72 74 28 74  |:..... .Report(t|
000015d0  65 78 74 24 29 0d 00 d5  29 62 6c 6f 63 6b 32 25  |ext$)...)block2%|
000015e0  21 30 3d 31 20 3a 20 24  28 62 6c 6f 63 6b 32 25  |!0=1 : $(block2%|
000015f0  2b 34 29 3d 74 65 78 74  24 2b bd 28 30 29 0d 00  |+4)=text$+.(0)..|
00001600  d6 2f c8 99 20 22 57 69  6d 70 5f 52 65 70 6f 72  |./.. "Wimp_Repor|
00001610  74 45 72 72 6f 72 22 2c  62 6c 6f 63 6b 32 25 2c  |tError",block2%,|
00001620  31 2c 22 46 6f 6e 74 69  63 69 61 6e 22 0d 00 d7  |1,"Fontician"...|
00001630  05 e1 0d 00 d8 05 3a 0d  00 d9 0e dd 20 f2 49 63  |......:..... .Ic|
00001640  6f 6e 62 61 72 0d 00 da  1d 62 6c 6f 63 6b 25 21  |onbar....block%!|
00001650  30 3d 2d 31 20 20 3a 20  62 6c 6f 63 6b 25 21 34  |0=-1  : block%!4|
00001660  3d 30 0d 00 db 1f 62 6c  6f 63 6b 25 21 38 3d 2d  |=0....block%!8=-|
00001670  34 20 20 3a 20 62 6c 6f  63 6b 25 21 31 32 3d 36  |4  : block%!12=6|
00001680  38 0d 00 dc 22 62 6c 6f  63 6b 25 21 31 36 3d 36  |8..."block%!16=6|
00001690  38 20 3a 20 62 6c 6f 63  6b 25 21 32 30 3d 26 32  |8 : block%!20=&2|
000016a0  30 30 32 0d 00 dd 1d 24  28 62 6c 6f 63 6b 25 2b  |002....$(block%+|
000016b0  32 34 29 3d 22 21 46 6f  6e 74 69 63 69 61 6e 22  |24)="!Fontician"|
000016c0  0d 00 de 27 c8 99 20 22  57 69 6d 70 5f 43 72 65  |...'.. "Wimp_Cre|
000016d0  61 74 65 49 63 6f 6e 22  2c 2c 62 6c 6f 63 6b 25  |ateIcon",,block%|
000016e0  20 b8 20 62 61 72 25 0d  00 df 05 e1 0d 00 e0 05  | . bar%.........|
000016f0  3a 0d 00 e1 0b dd 20 f2  52 65 61 64 0d 00 e2 3a  |:..... .Read...:|
00001700  6f 75 74 70 75 74 24 3d  a4 52 65 61 64 28 31 29  |output$=.Read(1)|
00001710  20 3a 20 58 53 63 61 6c  65 24 3d a4 52 65 61 64  | : XScale$=.Read|
00001720  28 33 29 20 3a 20 59 53  63 61 6c 65 24 3d a4 52  |(3) : YScale$=.R|
00001730  65 61 64 28 35 29 0d 00  e3 27 53 68 65 61 72 24  |ead(5)...'Shear$|
00001740  20 3d a4 52 65 61 64 28  36 29 20 3a 20 52 6f 74  | =.Read(6) : Rot|
00001750  61 74 65 24 3d a4 52 65  61 64 28 37 29 0d 00 e4  |ate$=.Read(7)...|
00001760  3b 58 53 68 69 66 74 24  3d a4 52 65 61 64 28 38  |;XShift$=.Read(8|
00001770  29 20 3a 20 59 53 68 69  66 74 24 3d a4 52 65 61  |) : YShift$=.Rea|
00001780  64 28 39 29 20 3a 20 54  72 61 63 6b 24 20 3d a4  |d(9) : Track$ =.|
00001790  52 65 61 64 28 31 36 29  0d 00 e5 2d 57 69 64 65  |Read(16)...-Wide|
000017a0  6e 58 24 20 3d 20 a4 52  65 61 64 28 32 34 29 20  |nX$ = .Read(24) |
000017b0  3a 20 57 69 64 65 6e 59  24 20 3d 20 a4 52 65 61  |: WidenY$ = .Rea|
000017c0  64 28 32 35 29 0d 00 e6  29 58 53 63 61 6c 65 20  |d(25)...)XScale |
000017d0  3d 20 bb 58 53 63 61 6c  65 24 20 3a 20 59 53 63  |= .XScale$ : YSc|
000017e0  61 6c 65 20 3d 20 bb 59  53 63 61 6c 65 24 0d 00  |ale = .YScale$..|
000017f0  e7 51 53 68 65 61 72 20  20 3d 20 b7 28 af 2f 31  |.QShear  = .(./1|
00001800  38 30 2a bb 53 68 65 61  72 24 29 20 3a 20 43 6f  |80*.Shear$) : Co|
00001810  73 20 3d 20 9b 28 af 2f  31 38 30 2a bb 52 6f 74  |s = .(./180*.Rot|
00001820  61 74 65 24 29 20 3a 20  53 69 6e 20 3d 20 b5 28  |ate$) : Sin = .(|
00001830  af 2f 31 38 30 2a bb 52  6f 74 61 74 65 24 29 0d  |./180*.Rotate$).|
00001840  00 e8 3e 58 53 68 69 66  74 25 20 3d 20 bb 58 53  |..>XShift% = .XS|
00001850  68 69 66 74 24 20 3a 20  59 53 68 69 66 74 25 20  |hift$ : YShift% |
00001860  3d 20 bb 59 53 68 69 66  74 24 20 3a 20 54 72 61  |= .YShift$ : Tra|
00001870  63 6b 25 20 3d 20 bb 54  72 61 63 6b 24 0d 00 e9  |ck% = .Track$...|
00001880  2b 57 69 64 65 6e 58 25  20 3d 20 bb 57 69 64 65  |+WidenX% = .Wide|
00001890  6e 58 24 20 3a 20 57 69  64 65 6e 59 25 20 3d 20  |nX$ : WidenY% = |
000018a0  bb 57 69 64 65 6e 59 24  0d 00 ea 05 e1 0d 00 eb  |.WidenY$........|
000018b0  05 3a 0d 00 ec 12 dd 20  a4 52 65 61 64 28 69 63  |.:..... .Read(ic|
000018c0  6f 6e 25 29 0d 00 ed 23  74 65 6d 70 25 21 30 3d  |on%)...#temp%!0=|
000018d0  57 69 6e 64 6f 77 25 20  3a 20 74 65 6d 70 25 21  |Window% : temp%!|
000018e0  34 3d 69 63 6f 6e 25 0d  00 ee 21 c8 99 20 22 57  |4=icon%...!.. "W|
000018f0  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
00001900  22 2c 2c 74 65 6d 70 25  0d 00 ef 11 3d 20 24 28  |",,temp%....= $(|
00001910  74 65 6d 70 25 21 32 38  29 0d 00 f0 05 3a 0d 00  |temp%!28)....:..|
00001920  f1 0c dd 20 f2 57 72 69  74 65 0d 00 f2 37 f2 50  |... .Write...7.P|
00001930  75 74 28 6f 75 74 70 75  74 24 2c 31 29 20 3a 20  |ut(output$,1) : |
00001940  f2 50 75 74 28 58 53 63  61 6c 65 24 2c 33 29 20  |.Put(XScale$,3) |
00001950  3a 20 f2 50 75 74 28 59  53 63 61 6c 65 24 2c 35  |: .Put(YScale$,5|
00001960  29 0d 00 f3 25 f2 50 75  74 28 53 68 65 61 72 24  |)...%.Put(Shear$|
00001970  2c 36 29 20 20 3a 20 f2  50 75 74 28 52 6f 74 61  |,6)  : .Put(Rota|
00001980  74 65 24 2c 37 29 0d 00  f4 37 f2 50 75 74 28 58  |te$,7)...7.Put(X|
00001990  53 68 69 66 74 24 2c 38  29 20 3a 20 f2 50 75 74  |Shift$,8) : .Put|
000019a0  28 59 53 68 69 66 74 24  2c 39 29 20 3a 20 f2 50  |(YShift$,9) : .P|
000019b0  75 74 28 54 72 61 63 6b  24 2c 31 36 29 0d 00 f5  |ut(Track$,16)...|
000019c0  27 f2 50 75 74 28 57 69  64 65 6e 58 24 2c 32 34  |'.Put(WidenX$,24|
000019d0  29 20 3a 20 f2 50 75 74  28 57 69 64 65 6e 59 24  |) : .Put(WidenY$|
000019e0  2c 32 35 29 0d 00 f6 05  e1 0d 00 f7 05 3a 0d 00  |,25).........:..|
000019f0  f8 14 dd 20 f2 50 75 74  28 61 24 2c 69 63 6f 6e  |... .Put(a$,icon|
00001a00  25 29 0d 00 f9 23 74 65  6d 70 25 21 30 3d 57 69  |%)...#temp%!0=Wi|
00001a10  6e 64 6f 77 25 20 3a 20  74 65 6d 70 25 21 34 3d  |ndow% : temp%!4=|
00001a20  69 63 6f 6e 25 0d 00 fa  21 c8 99 20 22 57 69 6d  |icon%...!.. "Wim|
00001a30  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00001a40  2c 74 65 6d 70 25 0d 00  fb 12 24 28 74 65 6d 70  |,temp%....$(temp|
00001a50  25 21 32 38 29 3d 61 24  0d 00 fc 05 e1 0d 00 fd  |%!28)=a$........|
00001a60  05 3a 0d 00 fe 14 dd 20  a4 67 65 74 6e 61 6d 65  |.:..... .getname|
00001a70  28 70 74 72 25 29 0d 00  ff 08 ea 20 70 24 0d 01  |(ptr%)..... p$..|
00001a80  00 1b c8 95 20 3f 70 74  72 25 3c 31 32 38 20 80  |.... ?ptr%<128 .|
00001a90  20 3f 70 74 72 25 3e 33  31 0d 01 01 1c 20 20 70  | ?ptr%>31....  p|
00001aa0  24 2b 3d bd 28 3f 70 74  72 25 29 20 3a 20 70 74  |$+=.(?ptr%) : pt|
00001ab0  72 25 2b 3d 31 0d 01 02  05 ce 0d 01 03 07 3d 70  |r%+=1.........=p|
00001ac0  24 0d 01 04 05 3a 0d 01  05 0f dd 20 a4 6c 65 61  |$....:..... .lea|
00001ad0  66 28 66 24 29 0d 01 06  0f c8 95 20 a7 66 24 2c  |f(f$)...... .f$,|
00001ae0  22 2e 22 29 0d 01 07 18  20 20 66 24 3d c1 66 24  |".")....  f$=.f$|
00001af0  2c a7 66 24 2c 22 2e 22  29 2b 31 29 0d 01 08 05  |,.f$,".")+1)....|
00001b00  ce 0d 01 09 07 3d 66 24  0d 01 0a 05 3a 0d 01 0b  |.....=f$....:...|
00001b10  11 dd 20 f2 49 6e 69 74  69 61 6c 69 7a 65 0d 01  |.. .Initialize..|
00001b20  0c 19 ea 20 57 69 6d 70  25 2c 20 74 61 73 6b 25  |... Wimp%, task%|
00001b30  2c 20 6e 65 78 74 25 0d  01 0d 05 3a 0d 01 0e 1d  |, next%....:....|
00001b40  57 69 6d 70 25 3d 32 20  3a 20 74 61 73 6b 25 3d  |Wimp%=2 : task%=|
00001b50  26 34 42 35 33 34 31 35  34 0d 01 0f 3f c8 99 20  |&4B534154...?.. |
00001b60  22 57 69 6d 70 5f 49 6e  69 74 69 61 6c 69 73 65  |"Wimp_Initialise|
00001b70  22 2c 20 57 69 6d 70 25  2a 31 30 30 2c 20 74 61  |", Wimp%*100, ta|
00001b80  73 6b 25 2c 20 22 46 6f  6e 74 69 63 69 61 6e 22  |sk%, "Fontician"|
00001b90  20 b8 20 57 69 6d 70 25  0d 01 10 4e e7 20 57 69  | . Wimp%...N. Wi|
00001ba0  6d 70 25 3c 32 30 30 20  8c 20 f2 52 65 70 6f 72  |mp%<200 . .Repor|
00001bb0  74 28 22 46 6f 6e 74 69  63 69 61 6e 20 6e 65 65  |t("Fontician nee|
00001bc0  64 73 20 61 20 6e 65 77  65 72 20 76 65 72 73 69  |ds a newer versi|
00001bd0  6f 6e 20 6f 66 20 57 69  6e 64 6f 77 20 4d 61 6e  |on of Window Man|
00001be0  61 67 65 72 22 29 0d 01  11 5c ee 20 85 20 f2 52  |ager")...\. . .R|
00001bf0  65 70 6f 72 74 28 22 46  6f 6e 74 69 63 69 61 6e  |eport("Fontician|
00001c00  20 65 72 72 6f 72 3a 20  22 2b f6 24 2b 22 20 28  | error: "+.$+" (|
00001c10  40 20 6c 69 6e 65 20 22  2b c3 9e 2b 22 2c 20 6e  |@ line "+..+", n|
00001c20  6f 2e 20 22 2b c3 9f 2b  22 29 22 29 3a c8 99 20  |o. "+..+")"):.. |
00001c30  22 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |"Wimp_CloseDown"|
00001c40  3a e0 0d 01 12 05 3a 0d  01 13 3b 6f 75 74 70 75  |:.....:...;outpu|
00001c50  74 24 20 3d 20 22 4e 65  77 46 6f 6e 74 22 20 3a  |t$ = "NewFont" :|
00001c60  20 58 53 63 61 6c 65 24  20 3d 20 22 31 2e 30 22  | XScale$ = "1.0"|
00001c70  20 3a 20 59 53 63 61 6c  65 24 20 3d 20 22 31 2e  | : YScale$ = "1.|
00001c80  30 22 0d 01 14 5d 53 68  65 61 72 24 20 3d 20 22  |0"...]Shear$ = "|
00001c90  30 22 20 3a 20 52 6f 74  61 74 65 24 20 3d 20 22  |0" : Rotate$ = "|
00001ca0  30 22 20 3a 20 58 53 68  69 66 74 24 20 3d 20 22  |0" : XShift$ = "|
00001cb0  30 22 20 3a 20 59 53 68  69 66 74 24 20 3d 20 22  |0" : YShift$ = "|
00001cc0  30 22 20 3a 20 54 72 61  63 6b 24 20 3d 20 22 30  |0" : Track$ = "0|
00001cd0  22 20 3a 20 44 65 53 63  61 66 25 20 3d 20 a3 0d  |" : DeScaf% = ..|
00001ce0  01 15 21 57 69 64 65 6e  58 24 20 3d 20 22 30 22  |..!WidenX$ = "0"|
00001cf0  20 3a 20 57 69 64 65 6e  59 24 20 3d 20 22 30 22  | : WidenY$ = "0"|
00001d00  0d 01 16 10 6d 6d 20 3d  20 31 38 31 34 2e 31 37  |....mm = 1814.17|
00001d10  0d 01 17 09 5a 20 3d 20  31 0d 01 18 1b 58 53 63  |....Z = 1....XSc|
00001d20  61 6c 65 20 3d 20 31 20  3a 20 59 53 63 61 6c 65  |ale = 1 : YScale|
00001d30  20 3d 20 31 0d 01 19 22  53 68 65 61 72 20 20 3d  | = 1..."Shear  =|
00001d40  20 30 20 3a 20 43 6f 73  20 3d 20 31 20 3a 20 53  | 0 : Cos = 1 : S|
00001d50  69 6e 20 3d 20 30 0d 01  1a 2a 58 53 68 69 66 74  |in = 0...*XShift|
00001d60  25 20 3d 20 30 20 3a 20  59 53 68 69 66 74 25 20  |% = 0 : YShift% |
00001d70  3d 20 30 20 3a 20 54 72  61 63 6b 25 20 3d 20 30  |= 0 : Track% = 0|
00001d80  0d 01 1b 2b 66 69 6c 65  73 69 7a 65 25 3d 30 20  |...+filesize%=0 |
00001d90  3a 20 66 69 6c 65 74 79  70 65 25 3d 30 20 3a 20  |: filetype%=0 : |
00001da0  66 69 6e 69 73 68 65 64  25 3d a3 0d 01 1c 3a c8  |finished%=....:.|
00001db0  99 20 22 57 69 6d 70 5f  4f 70 65 6e 54 65 6d 70  |. "Wimp_OpenTemp|
00001dc0  6c 61 74 65 22 2c 20 30  2c 20 22 3c 46 6f 6e 74  |late", 0, "<Font|
00001dd0  69 63 69 61 6e 24 44 69  72 3e 2e 54 65 6d 70 6c  |ician$Dir>.Templ|
00001de0  61 74 65 73 22 0d 01 1d  4e c8 99 20 22 57 69 6d  |ates"...N.. "Wim|
00001df0  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
00001e00  2c 20 62 6c 6f 63 6b 25  2c 57 6f 72 6b 25 2c 57  |, block%,Work%,W|
00001e10  6f 72 6b 25 2b 34 30 39  36 2c 2d 31 2c 20 22 73  |ork%+4096,-1, "s|
00001e20  61 76 65 61 73 22 2c 20  30 20 b8 20 2c 2c 6e 65  |aveas", 0 . ,,ne|
00001e30  78 74 25 0d 01 1e 2d c8  99 20 22 57 69 6d 70 5f  |xt%...-.. "Wimp_|
00001e40  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 20  |CreateWindow",, |
00001e50  62 6c 6f 63 6b 25 20 b8  20 57 69 6e 64 6f 77 25  |block% . Window%|
00001e60  0d 01 1f 4f c8 99 20 22  57 69 6d 70 5f 4c 6f 61  |...O.. "Wimp_Loa|
00001e70  64 54 65 6d 70 6c 61 74  65 22 2c 2c 20 62 6c 6f  |dTemplate",, blo|
00001e80  63 6b 25 2c 20 6e 65 78  74 25 2c 20 57 6f 72 6b  |ck%, next%, Work|
00001e90  25 2b 34 30 39 36 2c 20  2d 31 2c 20 22 69 6e 66  |%+4096, -1, "inf|
00001ea0  6f 22 2c 20 30 20 b8 20  2c 2c 6e 65 78 74 25 0d  |o", 0 . ,,next%.|
00001eb0  01 20 2b c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |. +.. "Wimp_Crea|
00001ec0  74 65 57 69 6e 64 6f 77  22 2c 2c 20 62 6c 6f 63  |teWindow",, bloc|
00001ed0  6b 25 20 b8 20 49 6e 66  6f 25 0d 01 21 1b c8 99  |k% . Info%..!...|
00001ee0  20 22 57 69 6d 70 5f 43  6c 6f 73 65 54 65 6d 70  | "Wimp_CloseTemp|
00001ef0  6c 61 74 65 22 0d 01 22  05 e1 0d 01 23 05 3a 0d  |late".."....#.:.|
00001f00  01 24 14 dd 20 f2 46 6f  6e 74 4c 6f 61 64 28 69  |.$.. .FontLoad(i|
00001f10  6e 24 29 0d 01 25 33 c8  99 20 22 4f 53 5f 46 69  |n$)..%3.. "OS_Fi|
00001f20  6c 65 22 2c 31 37 2c 69  6e 24 20 2b 20 22 2e 4f  |le",17,in$ + ".O|
00001f30  75 74 6c 69 6e 2a 22 20  b8 20 74 79 70 65 2c 2c  |utlin*" . type,,|
00001f40  2c 2c 46 45 78 74 0d 01  26 35 c8 99 20 22 4f 53  |,,FExt..&5.. "OS|
00001f50  5f 46 69 6c 65 22 2c 31  37 2c 69 6e 24 20 2b 20  |_File",17,in$ + |
00001f60  22 2e 49 6e 74 4d 65 74  72 69 2a 22 20 b8 20 74  |".IntMetri*" . t|
00001f70  79 70 65 2c 2c 2c 2c 4d  45 78 74 0d 01 27 25 c8  |ype,,,,MExt..'%.|
00001f80  99 20 22 57 69 6d 70 5f  53 6c 6f 74 53 69 7a 65  |. "Wimp_SlotSize|
00001f90  22 2c 2d 31 2c 2d 31 20  b8 20 2c 2c 46 72 65 65  |",-1,-1 . ,,Free|
00001fa0  0d 01 28 1f e7 20 4f 75  74 24 20 3d 20 22 53 63  |..(.. Out$ = "Sc|
00001fb0  61 66 22 20 44 45 78 74  20 3d 20 46 45 78 74 0d  |af" DExt = FExt.|
00001fc0  01 29 23 e7 20 4f 75 74  24 20 3d 20 22 44 72 61  |.)#. Out$ = "Dra|
00001fd0  77 22 20 44 45 78 74 20  3d 20 46 45 78 74 20 2a  |w" DExt = FExt *|
00001fe0  20 36 0d 01 2a 1c e7 20  4f 75 74 24 20 3d 20 22  | 6..*.. Out$ = "|
00001ff0  46 6f 6e 74 22 20 44 45  78 74 20 3d 20 30 0d 01  |Font" DExt = 0..|
00002000  2b 4c e7 20 46 72 65 65  20 3c 20 46 45 78 74 2b  |+L. Free < FExt+|
00002010  44 45 78 74 2b 4d 45 78  74 20 f2 52 65 70 6f 72  |DExt+MExt .Repor|
00002020  74 28 22 55 6e 61 62 6c  65 20 74 6f 20 63 6c 61  |t("Unable to cla|
00002030  69 6d 20 73 75 66 66 69  63 69 65 6e 74 20 6d 65  |im sufficient me|
00002040  6d 6f 72 79 22 29 20 3a  20 e1 0d 01 2c 34 c8 99  |mory") : ...,4..|
00002050  20 22 57 69 6d 70 5f 53  6c 6f 74 53 69 7a 65 22  | "Wimp_SlotSize"|
00002060  2c 93 2d 26 38 30 30 30  20 2b 20 46 45 78 74 2b  |,.-&8000 + FExt+|
00002070  44 45 78 74 2b 4d 45 78  74 20 2c 20 2d 31 0d 01  |DExt+MExt , -1..|
00002080  2d 3f 46 42 75 66 66 65  72 20 3d 20 93 20 3a 20  |-?FBuffer = . : |
00002090  44 42 75 66 66 65 72 20  3d 20 93 20 2b 20 46 45  |DBuffer = . + FE|
000020a0  78 74 20 3a 20 4d 42 75  66 66 65 72 20 3d 20 44  |xt : MBuffer = D|
000020b0  42 75 66 66 65 72 20 2b  20 44 45 78 74 0d 01 2e  |Buffer + DExt...|
000020c0  2d ff 20 22 4c 4f 41 44  20 22 20 2b 20 69 6e 24  |-. "LOAD " + in$|
000020d0  20 2b 20 22 2e 4f 75 74  6c 69 6e 2a 20 22 20 2b  | + ".Outlin* " +|
000020e0  20 c3 7e 46 42 75 66 66  65 72 0d 01 2f 2f ff 20  | .~FBuffer..//. |
000020f0  22 4c 4f 41 44 20 22 20  2b 20 69 6e 24 20 2b 20  |"LOAD " + in$ + |
00002100  22 2e 49 6e 74 4d 65 74  72 69 2a 20 22 20 2b 20  |".IntMetri* " + |
00002110  c3 7e 4d 42 75 66 66 65  72 0d 01 30 05 e1 0d 01  |.~MBuffer..0....|
00002120  31 05 3a 0d 01 32 15 dd  20 f2 46 6f 6e 74 53 61  |1.:..2.. .FontSa|
00002130  76 65 28 6f 75 74 24 29  0d 01 33 14 ff 20 22 43  |ve(out$)..3.. "C|
00002140  44 49 52 20 22 20 2b 20  6f 75 74 24 0d 01 34 48  |DIR " + out$..4H|
00002150  ff 20 22 53 41 56 45 20  22 20 2b 20 6f 75 74 24  |. "SAVE " + out$|
00002160  20 2b 20 22 2e 4f 75 74  6c 69 6e 65 73 20 22 20  | + ".Outlines " |
00002170  2b 20 c3 7e 46 42 75 66  66 65 72 20 2b 20 22 20  |+ .~FBuffer + " |
00002180  2b 22 20 2b 20 c3 7e 28  46 45 78 74 2d 53 61 76  |+" + .~(FExt-Sav|
00002190  69 6e 67 29 0d 01 35 2a  ff 20 22 53 45 54 54 59  |ing)..5*. "SETTY|
000021a0  50 45 20 22 20 2b 20 6f  75 74 24 20 2b 20 22 2e  |PE " + out$ + ".|
000021b0  4f 75 74 6c 69 6e 65 73  20 46 6f 6e 74 22 0d 01  |Outlines Font"..|
000021c0  36 42 ff 28 22 53 41 56  45 20 22 20 2b 20 6f 75  |6B.("SAVE " + ou|
000021d0  74 24 20 2b 20 22 2e 49  6e 74 4d 65 74 72 69 63  |t$ + ".IntMetric|
000021e0  73 20 22 20 2b 20 c3 7e  4d 42 75 66 66 65 72 20  |s " + .~MBuffer |
000021f0  2b 20 22 20 2b 22 20 2b  20 c3 7e 4d 45 78 74 29  |+ " +" + .~MExt)|
00002200  0d 01 37 29 ff 28 22 53  45 54 54 59 50 45 20 22  |..7).("SETTYPE "|
00002210  2b 6f 75 74 24 2b 22 2e  49 6e 74 4d 65 74 72 69  |+out$+".IntMetri|
00002220  63 73 20 46 4f 4e 54 22  29 0d 01 38 05 e1 0d 01  |cs FONT")..8....|
00002230  39 05 3a 0d 01 3a 14 dd  20 f2 44 72 61 77 4c 6f  |9.:..:.. .DrawLo|
00002240  61 64 28 69 6e 24 29 0d  01 3b 26 c8 99 20 22 4f  |ad(in$)..;&.. "O|
00002250  53 5f 46 69 6c 65 22 2c  31 37 2c 69 6e 24 20 b8  |S_File",17,in$ .|
00002260  20 74 79 70 65 2c 2c 2c  2c 44 45 78 74 0d 01 3c  | type,,,,DExt..<|
00002270  25 c8 99 20 22 57 69 6d  70 5f 53 6c 6f 74 53 69  |%.. "Wimp_SlotSi|
00002280  7a 65 22 2c 2d 31 2c 2d  31 20 b8 20 2c 2c 46 72  |ze",-1,-1 . ,,Fr|
00002290  65 65 0d 01 3d 21 46 45  78 74 20 3d 20 44 45 78  |ee..=!FExt = DEx|
000022a0  74 20 2a 20 32 20 3a 20  4d 45 78 74 20 3d 20 32  |t * 2 : MExt = 2|
000022b0  39 35 30 0d 01 3e 4c e7  20 46 72 65 65 20 3c 20  |950..>L. Free < |
000022c0  46 45 78 74 2b 44 45 78  74 2b 4d 45 78 74 20 f2  |FExt+DExt+MExt .|
000022d0  52 65 70 6f 72 74 28 22  55 6e 61 62 6c 65 20 74  |Report("Unable t|
000022e0  6f 20 63 6c 61 69 6d 20  73 75 66 66 69 63 69 65  |o claim sufficie|
000022f0  6e 74 20 6d 65 6d 6f 72  79 22 29 20 3a 20 e1 0d  |nt memory") : ..|
00002300  01 3f 34 c8 99 20 22 57  69 6d 70 5f 53 6c 6f 74  |.?4.. "Wimp_Slot|
00002310  53 69 7a 65 22 2c 93 2d  26 38 30 30 30 20 2b 20  |Size",.-&8000 + |
00002320  46 45 78 74 2b 44 45 78  74 2b 4d 45 78 74 20 2c  |FExt+DExt+MExt ,|
00002330  20 2d 31 0d 01 40 3f 46  42 75 66 66 65 72 20 3d  | -1..@?FBuffer =|
00002340  20 93 20 3a 20 44 42 75  66 66 65 72 20 3d 20 93  | . : DBuffer = .|
00002350  20 2b 20 46 45 78 74 20  3a 20 4d 42 75 66 66 65  | + FExt : MBuffe|
00002360  72 20 3d 20 44 42 75 66  66 65 72 20 2b 20 44 45  |r = DBuffer + DE|
00002370  78 74 0d 01 41 25 ff 20  22 4c 4f 41 44 20 22 20  |xt..A%. "LOAD " |
00002380  2b 20 69 6e 24 20 2b 20  22 20 22 20 2b 20 c3 7e  |+ in$ + " " + .~|
00002390  44 42 75 66 66 65 72 0d  01 42 05 e1 0d 01 43 05  |DBuffer..B....C.|
000023a0  3a 0d 01 44 15 dd 20 f2  44 72 61 77 53 61 76 65  |:..D.. .DrawSave|
000023b0  28 6f 75 74 24 29 0d 01  45 37 ff 20 22 53 41 56  |(out$)..E7. "SAV|
000023c0  45 20 22 20 2b 20 6f 75  74 24 20 2b 20 22 20 22  |E " + out$ + " "|
000023d0  20 2b 20 c3 7e 44 42 75  66 66 65 72 20 2b 20 22  | + .~DBuffer + "|
000023e0  20 22 20 2b 20 c3 7e 28  44 50 74 72 29 0d 01 46  | " + .~(DPtr)..F|
000023f0  25 ff 20 22 53 45 54 54  59 50 45 20 22 20 2b 20  |%. "SETTYPE " + |
00002400  6f 75 74 24 20 2b 20 22  20 44 72 61 77 46 69 6c  |out$ + " DrawFil|
00002410  65 22 0d 01 47 05 e1 0d  01 48 05 3a 0d 01 49 1a  |e"..G....H.:..I.|
00002420  dd 20 f2 46 6f 6e 74 69  63 69 61 6e 28 69 6e 24  |. .Fontician(in$|
00002430  2c 6f 75 74 24 29 0d 01  4a 3b e7 20 44 72 61 77  |,out$)..J;. Draw|
00002440  49 6e 25 20 f2 44 72 61  77 4c 6f 61 64 28 69 6e  |In% .DrawLoad(in|
00002450  24 29 20 3a 20 f2 44 72  61 77 54 6f 46 6f 6e 74  |$) : .DrawToFont|
00002460  20 8b 20 f2 46 6f 6e 74  4c 6f 61 64 28 69 6e 24  | . .FontLoad(in$|
00002470  29 0d 01 4b 38 56 65 72  73 69 6f 6e 20 3d 20 46  |)..K8Version = F|
00002480  42 75 66 66 65 72 3f 35  20 3a 20 44 65 73 69 67  |Buffer?5 : Desig|
00002490  6e 53 69 7a 65 20 3d 20  46 42 75 66 66 65 72 21  |nSize = FBuffer!|
000024a0  36 20 80 20 26 46 46 46  46 0d 01 4c 0e 53 61 76  |6 . &FFFF..L.Sav|
000024b0  69 6e 67 20 3d 20 30 0d  01 4d 23 e7 20 56 65 72  |ing = 0..M#. Ver|
000024c0  73 69 6f 6e 20 3c 3e 20  38 20 80 20 56 65 72 73  |sion <> 8 . Vers|
000024d0  69 6f 6e 20 3c 3e 20 36  20 8c 0d 01 4e 37 20 20  |ion <> 6 ...N7  |
000024e0  f2 52 65 70 6f 72 74 28  22 49 20 63 61 6e 27 74  |.Report("I can't|
000024f0  20 64 6f 20 76 65 72 73  69 6f 6e 20 22 2b c3 56  | do version "+.V|
00002500  65 72 73 69 6f 6e 2b 22  20 66 6f 6e 74 73 21 22  |ersion+" fonts!"|
00002510  29 0d 01 4f 05 cc 0d 01  50 0e 20 20 f2 49 6e 74  |)..O....P.  .Int|
00002520  4d 65 74 72 0d 01 51 0e  20 20 f2 4f 75 74 6c 69  |Metr..Q.  .Outli|
00002530  6e 65 0d 01 52 62 20 20  e7 20 44 65 53 63 61 66  |ne..Rb  . DeScaf|
00002540  25 20 f2 64 65 73 63 61  66 20 8b 20 e7 20 28 52  |% .descaf . . (R|
00002550  6f 74 61 74 65 24 20 3d  20 22 30 22 20 84 20 53  |otate$ = "0" . S|
00002560  68 65 61 72 24 20 3d 20  52 6f 74 61 74 65 24 29  |hear$ = Rotate$)|
00002570  20 80 20 58 53 63 61 6c  65 20 3e 20 30 20 80 20  | . XScale > 0 . |
00002580  59 53 63 61 6c 65 20 3e  20 30 20 f2 53 63 61 66  |YScale > 0 .Scaf|
00002590  66 6f 6c 64 0d 01 53 33  20 20 e7 20 4f 75 74 24  |fold..S3  . Out$|
000025a0  20 3d 20 22 44 72 61 77  22 20 f2 46 6f 6e 74 54  | = "Draw" .FontT|
000025b0  6f 44 72 61 77 20 3a 20  f2 44 72 61 77 53 61 76  |oDraw : .DrawSav|
000025c0  65 28 6f 75 74 24 29 0d  01 54 33 20 20 e7 20 4f  |e(out$)..T3  . O|
000025d0  75 74 24 20 3d 20 22 53  63 61 66 22 20 f2 53 63  |ut$ = "Scaf" .Sc|
000025e0  61 66 54 6f 44 72 61 77  20 3a 20 f2 44 72 61 77  |afToDraw : .Draw|
000025f0  53 61 76 65 28 6f 75 74  24 29 0d 01 55 25 20 20  |Save(out$)..U%  |
00002600  e7 20 4f 75 74 24 20 3d  20 22 46 6f 6e 74 22 20  |. Out$ = "Font" |
00002610  f2 46 6f 6e 74 53 61 76  65 28 6f 75 74 24 29 0d  |.FontSave(out$).|
00002620  01 56 05 cd 0d 01 57 13  f2 52 65 6c 65 61 73 65  |.V....W..Release|
00002630  42 75 66 66 65 72 73 0d  01 58 05 e1 0d 01 59 05  |Buffers..X....Y.|
00002640  3a 0d 01 5a 11 dd 20 f2  53 63 61 66 54 6f 44 72  |:..Z.. .ScafToDr|
00002650  61 77 0d 01 5b 38 20 20  66 24 20 3d 20 22 3c 46  |aw..[8  f$ = "<F|
00002660  6f 6e 74 69 63 69 61 6e  24 44 69 72 3e 2e 53 63  |ontician$Dir>.Sc|
00002670  61 66 22 20 3a 20 44 50  74 72 20 3d 20 44 42 75  |af" : DPtr = DBu|
00002680  66 66 65 72 20 2b 20 31  32 38 0d 01 5c 26 20 20  |ffer + 128..\&  |
00002690  ff 20 22 4c 4f 41 44 20  22 20 2b 20 66 24 20 2b  |. "LOAD " + f$ +|
000026a0  20 22 20 22 20 2b 20 c3  7e 44 42 75 66 66 65 72  | " " + .~DBuffer|
000026b0  0d 01 5d 0c 20 20 f2 53  63 61 66 73 0d 01 5e 05  |..].  .Scafs..^.|
000026c0  e1 0d 01 5f 05 3a 0d 01  60 1a dd 20 f2 46 6f 6e  |..._.:..`.. .Fon|
000026d0  74 54 6f 44 72 61 77 20  3a 20 ea 20 43 68 61 72  |tToDraw : . Char|
000026e0  0d 01 61 39 20 20 66 24  20 3d 20 22 3c 46 6f 6e  |..a9  f$ = "<Fon|
000026f0  74 69 63 69 61 6e 24 44  69 72 3e 2e 47 72 69 64  |tician$Dir>.Grid|
00002700  22 20 3a 20 44 50 74 72  20 3d 20 44 42 75 66 66  |" : DPtr = DBuff|
00002710  65 72 20 2b 20 33 31 32  30 0d 01 62 26 20 20 ff  |er + 3120..b&  .|
00002720  20 22 4c 4f 41 44 20 22  20 2b 20 66 24 20 2b 20  | "LOAD " + f$ + |
00002730  22 20 22 20 2b 20 c3 7e  44 42 75 66 66 65 72 0d  |" " + .~DBuffer.|
00002740  01 63 23 20 20 55 6e 69  74 20 3d 20 39 36 20 2a  |.c#  Unit = 96 *|
00002750  20 44 65 73 69 67 6e 53  69 7a 65 20 2f 20 31 30  | DesignSize / 10|
00002760  30 30 0d 01 64 2a 20 20  e3 20 58 20 3d 20 30 20  |00..d*  . X = 0 |
00002770  b8 20 31 35 20 3a 20 e3  20 59 20 3d 20 30 20 b8  |. 15 : . Y = 0 .|
00002780  20 6e 63 68 75 6e 6b 73  2a 32 2d 31 0d 01 65 27  | nchunks*2-1..e'|
00002790  20 20 20 20 43 68 61 72  20 3d 20 6e 63 68 75 6e  |    Char = nchun|
000027a0  6b 73 2a 33 32 2d 31 36  20 2b 20 58 20 2d 20 59  |ks*32-16 + X - Y|
000027b0  2a 31 36 0d 01 66 21 20  20 20 20 f2 57 69 64 74  |*16..f!    .Widt|
000027c0  68 20 3a 20 f2 4c 61 62  65 6c 20 3a 20 f2 53 74  |h : .Label : .St|
000027d0  72 6f 6b 65 0d 01 67 08  20 20 ed 2c 0d 01 68 1d  |roke..g.  .,..h.|
000027e0  20 20 58 20 3d 20 36 20  2a 20 6d 6d 20 3a 20 59  |  X = 6 * mm : Y|
000027f0  20 3d 20 34 20 2a 20 6d  6d 0d 01 69 3f 20 20 f2  | = 4 * mm..i?  .|
00002800  52 65 63 6f 72 64 28 22  46 6f 6e 74 4e 61 6d 65  |Record("FontName|
00002810  3a 20 22 2b a4 73 28 46  42 75 66 66 65 72 2b 35  |: "+.s(FBuffer+5|
00002820  32 2b 28 46 42 75 66 66  65 72 21 35 32 20 80 20  |2+(FBuffer!52 . |
00002830  26 46 46 46 46 29 29 29  0d 01 6a 29 20 20 f2 52  |&FFFF)))..j)  .R|
00002840  65 63 6f 72 64 28 22 44  65 73 69 67 6e 53 69 7a  |ecord("DesignSiz|
00002850  65 3a 20 22 2b c3 44 65  73 69 67 6e 53 69 7a 65  |e: "+.DesignSize|
00002860  29 0d 01 6b 2a 20 20 f2  52 65 63 6f 72 64 28 22  |)..k*  .Record("|
00002870  4e 6f 4f 66 43 68 61 72  73 3a 20 22 2b c3 28 6e  |NoOfChars: "+.(n|
00002880  63 68 75 6e 6b 73 2a 33  32 29 29 0d 01 6c 0c 20  |chunks*32))..l. |
00002890  20 f2 53 63 61 66 73 0d  01 6d 1d 20 20 e7 20 4d  | .Scafs..m.  . M|
000028a0  42 75 66 66 65 72 3f 35  30 20 80 20 38 20 f2 4b  |Buffer?50 . 8 .K|
000028b0  65 72 6e 73 0d 01 6e 05  e1 0d 01 6f 05 3a 0d 01  |erns..n....o.:..|
000028c0  70 14 dd 20 f2 53 63 61  66 73 20 3a 20 ea 20 6e  |p.. .Scafs : . n|
000028d0  2c 58 0d 01 71 19 20 20  46 50 74 72 20 3d 20 46  |,X..q.  FPtr = F|
000028e0  42 75 66 66 65 72 20 2b  20 35 32 0d 01 72 17 20  |Buffer + 52..r. |
000028f0  20 6e 20 3d 20 21 46 50  74 72 20 80 20 26 46 46  | n = !FPtr . &FF|
00002900  46 46 0d 01 73 56 20 20  24 44 50 74 72 20 3d 20  |FF..sV  $DPtr = |
00002910  22 53 63 61 66 22 20 3a  20 44 50 74 72 21 34 20  |"Scaf" : DPtr!4 |
00002920  3d 20 28 6e 20 2b 20 31  35 29 20 80 20 26 46 46  |= (n + 15) . &FF|
00002930  46 46 46 46 46 43 20 3a  20 44 50 74 72 21 38 20  |FFFFFC : DPtr!8 |
00002940  3d 20 4e 6f 4f 66 53 63  61 66 73 20 3a 20 44 50  |= NoOfScafs : DP|
00002950  74 72 20 2b 3d 20 31 32  0d 01 74 27 20 20 e3 20  |tr += 12..t'  . |
00002960  58 20 3d 20 30 20 b8 20  6e 20 3a 20 44 50 74 72  |X = 0 . n : DPtr|
00002970  3f 58 20 3d 20 46 50 74  72 3f 58 20 3a 20 ed 0d  |?X = FPtr?X : ..|
00002980  01 75 18 20 20 44 50 74  72 21 6e 20 3d 20 26 46  |.u.  DPtr!n = &F|
00002990  46 46 46 46 46 46 46 0d  01 76 21 20 20 44 50 74  |FFFFFFF..v!  DPt|
000029a0  72 20 2b 3d 20 28 6e 20  2b 20 33 29 20 80 20 26  |r += (n + 3) . &|
000029b0  46 46 46 46 46 46 46 43  0d 01 77 05 e1 0d 01 78  |FFFFFFFC..w....x|
000029c0  05 3a 0d 01 79 14 dd 20  f2 4b 65 72 6e 73 20 3a  |.:..y.. .Kerns :|
000029d0  20 ea 20 6e 2c 58 0d 01  7a 19 20 20 4d 50 74 72  | . n,X..z.  MPtr|
000029e0  20 3d 20 35 32 20 2b 20  4d 42 75 66 66 65 72 0d  | = 52 + MBuffer.|
000029f0  01 7b 47 20 20 e7 20 4d  42 75 66 66 65 72 3f 35  |.{G  . MBuffer?5|
00002a00  30 20 80 20 26 32 30 20  4d 50 74 72 20 2b 3d 20  |0 . &20 MPtr += |
00002a10  32 20 2b 20 28 4d 42 75  66 66 65 72 21 35 32 20  |2 + (MBuffer!52 |
00002a20  80 20 26 46 46 46 46 29  20 8b 20 4d 50 74 72 20  |. &FFFF) . MPtr |
00002a30  2b 3d 20 32 35 36 0d 01  7c 24 20 20 e7 20 4d 42  |+= 256..|$  . MB|
00002a40  75 66 66 65 72 3f 35 30  20 80 20 31 20 6e 20 3d  |uffer?50 . 1 n =|
00002a50  20 30 20 8b 20 6e 20 3d  20 38 0d 01 7d 1f 20 20  | 0 . n = 8..}.  |
00002a60  e7 20 4d 42 75 66 66 65  72 3f 35 30 20 80 20 32  |. MBuffer?50 . 2|
00002a70  20 8b 20 6e 20 2b 3d 20  32 0d 01 7e 1f 20 20 e7  | . n += 2..~.  .|
00002a80  20 4d 42 75 66 66 65 72  3f 35 30 20 80 20 34 20  | MBuffer?50 . 4 |
00002a90  8b 20 6e 20 2b 3d 20 32  0d 01 7f 2d 20 20 4d 50  |. n += 2...-  MP|
00002aa0  74 72 20 2b 3d 20 6e 2a  28 4d 42 75 66 66 65 72  |tr += n*(MBuffer|
00002ab0  3f 34 38 20 2b 20 32 35  36 2a 4d 42 75 66 66 65  |?48 + 256*MBuffe|
00002ac0  72 3f 35 31 29 0d 01 80  59 20 20 24 44 50 74 72  |r?51)...Y  $DPtr|
00002ad0  20 3d 20 22 4b 65 72 6e  22 20 3a 20 44 50 74 72  | = "Kern" : DPtr|
00002ae0  21 34 20 3d 20 38 20 2b  20 28 28 4d 45 78 74 20  |!4 = 8 + ((MExt |
00002af0  2d 20 4d 50 74 72 20 2b  20 4d 42 75 66 66 65 72  |- MPtr + MBuffer|
00002b00  20 2b 20 33 29 20 80 20  26 46 46 46 46 46 46 46  | + 3) . &FFFFFFF|
00002b10  43 29 20 3a 20 44 50 74  72 20 2b 3d 20 38 0d 01  |C) : DPtr += 8..|
00002b20  81 3b 20 20 e3 20 58 20  3d 20 30 20 b8 20 4d 45  |.;  . X = 0 . ME|
00002b30  78 74 20 2d 20 4d 50 74  72 20 2b 20 4d 42 75 66  |xt - MPtr + MBuf|
00002b40  66 65 72 20 3a 20 44 50  74 72 3f 58 20 3d 20 4d  |fer : DPtr?X = M|
00002b50  50 74 72 3f 58 20 3a 20  ed 0d 01 82 2e 20 20 44  |Ptr?X : .....  D|
00002b60  50 74 72 21 28 4d 45 78  74 20 2d 20 4d 50 74 72  |Ptr!(MExt - MPtr|
00002b70  20 2b 20 4d 42 75 66 66  65 72 29 20 3d 20 26 46  | + MBuffer) = &F|
00002b80  46 46 46 46 46 46 46 0d  01 83 35 20 20 44 50 74  |FFFFFFF...5  DPt|
00002b90  72 20 2b 3d 20 28 4d 45  78 74 20 2d 20 4d 50 74  |r += (MExt - MPt|
00002ba0  72 20 2b 20 4d 42 75 66  66 65 72 20 2b 20 33 29  |r + MBuffer + 3)|
00002bb0  20 80 20 26 46 46 46 46  46 46 46 43 0d 01 84 05  | . &FFFFFFFC....|
00002bc0  e1 0d 01 85 05 3a 0d 01  86 11 dd a4 73 28 58 29  |.....:......s(X)|
00002bd0  20 3a 20 ea 20 61 24 0d  01 87 3a 61 24 20 3d 20  | : . a$...:a$ = |
00002be0  bd 28 3f 58 29 20 3a 20  f5 20 58 20 2b 3d 20 31  |.(?X) : . X += 1|
00002bf0  20 3a 20 61 24 20 2b 3d  20 bd 28 3f 58 29 20 3a  | : a$ += .(?X) :|
00002c00  20 fd 20 58 3f 31 20 3d  20 30 20 3a 20 3d 20 61  | . X?1 = 0 : = a|
00002c10  24 0d 01 88 05 3a 0d 01  89 17 dd 20 f2 52 65 63  |$....:..... .Rec|
00002c20  6f 72 64 28 61 24 29 20  3a 20 ea 20 6e 0d 01 8a  |ord(a$) : . n...|
00002c30  0d 20 20 6e 20 3d 20 a9  61 24 0d 01 8b 56 20 20  |.  n = .a$...V  |
00002c40  21 44 50 74 72 20 3d 20  31 20 3a 20 44 50 74 72  |!DPtr = 1 : DPtr|
00002c50  21 38 20 3d 20 58 20 3a  20 44 50 74 72 21 31 32  |!8 = X : DPtr!12|
00002c60  20 3d 20 59 20 3a 20 44  50 74 72 21 31 36 20 3d  | = Y : DPtr!16 =|
00002c70  20 58 20 2b 20 6e 2a 34  2a 6d 6d 20 3a 20 44 50  | X + n*4*mm : DP|
00002c80  74 72 21 32 30 20 3d 20  59 20 2b 20 36 2a 6d 6d  |tr!20 = Y + 6*mm|
00002c90  0d 01 8c 4a 20 20 44 50  74 72 21 32 34 20 3d 20  |...J  DPtr!24 = |
00002ca0  26 44 44 30 30 20 3a 20  44 50 74 72 21 32 38 20  |&DD00 : DPtr!28 |
00002cb0  3d 20 26 46 46 46 46 46  46 30 30 20 3a 20 44 50  |= &FFFFFF00 : DP|
00002cc0  74 72 21 33 32 20 3d 20  30 20 3a 20 44 50 74 72  |tr!32 = 0 : DPtr|
00002cd0  21 33 36 20 3d 20 34 2a  6d 6d 0d 01 8d 3b 20 20  |!36 = 4*mm...;  |
00002ce0  44 50 74 72 21 34 30 20  3d 20 36 2a 6d 6d 20 3a  |DPtr!40 = 6*mm :|
00002cf0  20 44 50 74 72 21 34 34  20 3d 20 44 50 74 72 21  | DPtr!44 = DPtr!|
00002d00  38 20 3a 20 44 50 74 72  21 34 38 20 3d 20 44 50  |8 : DPtr!48 = DP|
00002d10  74 72 21 31 32 0d 01 8e  15 20 20 24 28 44 50 74  |tr!12....  $(DPt|
00002d20  72 2b 35 32 29 20 3d 20  61 24 0d 01 8f 21 20 20  |r+52) = a$...!  |
00002d30  44 50 74 72 21 34 20 3d  20 28 35 36 2b 6e 29 20  |DPtr!4 = (56+n) |
00002d40  80 20 26 46 46 46 46 46  46 46 43 0d 01 90 39 20  |. &FFFFFFFC...9 |
00002d50  20 21 28 44 50 74 72 2b  35 32 2b 6e 29 20 3d 20  | !(DPtr+52+n) = |
00002d60  30 20 3a 20 44 50 74 72  20 2b 3d 20 44 50 74 72  |0 : DPtr += DPtr|
00002d70  21 34 20 3a 20 58 20 2b  3d 20 28 6e 2b 32 29 2a  |!4 : X += (n+2)*|
00002d80  34 2a 6d 6d 0d 01 91 05  e1 0d 01 92 05 3a 0d 01  |4*mm.........:..|
00002d90  93 0c dd 20 f2 4c 61 62  65 6c 0d 01 94 1f 20 20  |... .Label....  |
00002da0  21 44 50 74 72 20 3d 20  31 20 3a 20 44 50 74 72  |!DPtr = 1 : DPtr|
00002db0  21 34 20 3d 20 31 34 2a  34 0d 01 95 40 20 20 44  |!4 = 14*4...@  D|
00002dc0  50 74 72 21 38 20 3d 20  28 58 20 2a 20 35 30 20  |Ptr!8 = (X * 50 |
00002dd0  2b 20 31 31 29 20 2a 20  6d 6d 20 3a 20 44 50 74  |+ 11) * mm : DPt|
00002de0  72 21 31 32 20 3d 20 28  59 20 2a 20 34 35 20 2b  |r!12 = (Y * 45 +|
00002df0  20 34 34 29 20 2a 20 6d  6d 0d 01 96 41 20 20 44  | 44) * mm...A  D|
00002e00  50 74 72 21 31 36 20 3d  20 28 58 20 2a 20 35 30  |Ptr!16 = (X * 50|
00002e10  20 2b 20 33 35 29 20 2a  20 6d 6d 20 3a 20 44 50  | + 35) * mm : DP|
00002e20  74 72 21 32 30 20 3d 20  28 59 20 2a 20 34 35 20  |tr!20 = (Y * 45 |
00002e30  2b 20 35 36 29 20 2a 20  6d 6d 0d 01 97 4c 20 20  |+ 56) * mm...L  |
00002e40  44 50 74 72 21 32 34 20  3d 20 26 44 44 30 30 20  |DPtr!24 = &DD00 |
00002e50  3a 20 44 50 74 72 21 32  38 20 3d 20 26 46 46 46  |: DPtr!28 = &FFF|
00002e60  46 46 46 30 30 20 3a 20  44 50 74 72 21 33 32 20  |FFF00 : DPtr!32 |
00002e70  3d 20 30 20 3a 20 44 50  74 72 21 33 36 20 3d 20  |= 0 : DPtr!36 = |
00002e80  38 20 2a 20 6d 6d 0d 01  98 4f 20 20 44 50 74 72  |8 * mm...O  DPtr|
00002e90  21 34 30 20 3d 20 31 32  20 2a 20 6d 6d 20 3a 20  |!40 = 12 * mm : |
00002ea0  44 50 74 72 21 34 34 20  3d 20 44 50 74 72 21 38  |DPtr!44 = DPtr!8|
00002eb0  20 3a 20 44 50 74 72 21  34 38 20 3d 20 44 50 74  | : DPtr!48 = DPt|
00002ec0  72 21 31 32 20 3a 20 44  50 74 72 21 35 32 20 3d  |r!12 : DPtr!52 =|
00002ed0  20 43 68 61 72 0d 01 99  5e 20 20 e7 20 43 68 61  | Char...^  . Cha|
00002ee0  72 20 3c 20 33 33 20 84  20 43 68 61 72 20 3e 20  |r < 33 . Char > |
00002ef0  32 35 35 20 84 20 43 68  61 72 20 3d 20 31 32 37  |255 . Char = 127|
00002f00  20 24 28 44 50 74 72 2b  35 32 29 20 3d 20 c3 7e  | $(DPtr+52) = .~|
00002f10  28 43 68 61 72 29 20 3a  20 3f 28 44 50 74 72 2b  |(Char) : ?(DPtr+|
00002f20  35 32 2b a9 24 28 44 50  74 72 2b 35 32 29 29 20  |52+.$(DPtr+52)) |
00002f30  3d 20 30 0d 01 9a 12 20  20 44 50 74 72 20 2b 3d  |= 0....  DPtr +=|
00002f40  20 31 34 2a 34 0d 01 9b  05 e1 0d 01 9c 05 3a 0d  | 14*4.........:.|
00002f50  01 9d 25 dd 20 f2 53 74  72 6f 6b 65 20 3a 20 ea  |..%. .Stroke : .|
00002f60  20 53 74 61 72 74 2c 20  43 68 75 6e 6b 2c 20 46  | Start, Chunk, F|
00002f70  6c 61 67 73 0d 01 9e 32  20 20 43 68 75 6e 6b 20  |lags...2  Chunk |
00002f80  3d 20 43 68 61 72 20 81  20 33 32 20 3a 20 43 68  |= Char . 32 : Ch|
00002f90  61 72 41 64 64 72 20 3d  20 28 43 68 61 72 20 83  |arAddr = (Char .|
00002fa0  20 33 32 29 2a 34 0d 01  9f 12 20 20 c8 8e 20 56  | 32)*4....  .. V|
00002fb0  65 72 73 69 6f 6e 20 ca  0d 01 a0 50 20 20 20 20  |ersion ....P    |
00002fc0  c9 20 38 20 3a 20 46 50  74 72 20 3d 20 46 42 75  |. 8 : FPtr = FBu|
00002fd0  66 66 65 72 20 2b 20 46  42 75 66 66 65 72 21 31  |ffer + FBuffer!1|
00002fe0  36 20 2b 20 34 2a 43 68  75 6e 6b 20 3a 20 46 50  |6 + 4*Chunk : FP|
00002ff0  74 72 20 3d 20 46 42 75  66 66 65 72 20 2b 20 21  |tr = FBuffer + !|
00003000  46 50 74 72 20 2b 20 34  0d 01 a1 42 20 20 20 20  |FPtr + 4...B    |
00003010  7f 20 3a 20 46 50 74 72  20 3d 20 46 42 75 66 66  |. : FPtr = FBuff|
00003020  65 72 20 2b 20 31 36 20  2b 20 34 2a 43 68 75 6e  |er + 16 + 4*Chun|
00003030  6b 20 3a 20 46 50 74 72  20 3d 20 46 42 75 66 66  |k : FPtr = FBuff|
00003040  65 72 20 2b 20 21 46 50  74 72 0d 01 a2 07 20 20  |er + !FPtr....  |
00003050  cb 0d 01 a3 1b 20 20 46  50 74 72 20 2b 3d 20 46  |.....  FPtr += F|
00003060  50 74 72 21 43 68 61 72  41 64 64 72 0d 01 a4 0e  |Ptr!CharAddr....|
00003070  c8 8e 20 3f 46 50 74 72  20 ca 0d 01 a5 07 c9 20  |.. ?FPtr ...... |
00003080  39 0d 01 a6 1a 20 20 e7  20 28 46 50 74 72 3f 37  |9....  . (FPtr?7|
00003090  20 80 20 33 29 20 3d 20  31 20 8c 0d 01 a7 20 20  | . 3) = 1 ....  |
000030a0  20 20 20 21 44 50 74 72  20 3d 20 32 20 3a 20 53  |   !DPtr = 2 : S|
000030b0  74 61 72 74 20 3d 20 44  50 74 72 0d 01 a8 62 20  |tart = DPtr...b |
000030c0  20 20 20 78 20 3d 20 28  58 20 2a 20 35 30 20 2b  |   x = (X * 50 +|
000030d0  20 32 30 29 20 2a 20 6d  6d 20 3a 20 79 20 3d 20  | 20) * mm : y = |
000030e0  28 59 20 2a 20 34 35 20  2b 20 32 35 29 20 2a 20  |(Y * 45 + 25) * |
000030f0  6d 6d 20 3a 20 44 50 74  72 21 38 20 3d 20 78 20  |mm : DPtr!8 = x |
00003100  2d 20 31 30 2a 6d 6d 20  3a 20 44 50 74 72 21 31  |- 10*mm : DPtr!1|
00003110  32 20 3d 20 79 20 2d 20  31 35 2a 6d 6d 0d 01 a9  |2 = y - 15*mm...|
00003120  43 20 20 20 20 44 50 74  72 21 31 36 20 3d 20 28  |C    DPtr!16 = (|
00003130  58 20 2a 20 35 30 20 2b  20 36 30 29 20 2a 20 6d  |X * 50 + 60) * m|
00003140  6d 20 3a 20 44 50 74 72  21 32 30 20 3d 20 28 59  |m : DPtr!20 = (Y|
00003150  20 2a 20 34 35 20 2b 20  35 35 29 20 2a 20 6d 6d  | * 45 + 55) * mm|
00003160  0d 01 aa 59 20 20 20 20  44 50 74 72 21 32 34 20  |...Y    DPtr!24 |
00003170  3d 20 2d 31 20 3a 20 44  50 74 72 21 32 38 20 3d  |= -1 : DPtr!28 =|
00003180  20 30 20 3a 20 44 50 74  72 21 33 32 20 3d 20 30  | 0 : DPtr!32 = 0|
00003190  20 3a 20 44 50 74 72 21  33 36 20 3d 20 30 20 3a  | : DPtr!36 = 0 :|
000031a0  20 44 50 74 72 21 34 30  20 3d 20 32 20 3a 20 44  | DPtr!40 = 2 : D|
000031b0  50 74 72 20 2b 3d 20 34  34 0d 01 ab 28 20 20 20  |Ptr += 44...(   |
000031c0  20 46 50 74 72 20 2b 3d  20 38 20 3a 20 f2 78 79  | FPtr += 8 : .xy|
000031d0  20 3a 20 6f 6e 6c 79 63  6c 6f 73 65 64 20 3d 20  | : onlyclosed = |
000031e0  b9 0d 01 ac 09 20 20 20  20 f5 0d 01 ad 1a 20 20  |.....    .....  |
000031f0  20 20 20 20 c8 8e 20 28  3f 46 50 74 72 20 80 20  |    .. (?FPtr . |
00003200  33 29 20 ca 0d 01 ae 56  20 20 20 20 20 20 20 20  |3) ....V        |
00003210  c9 20 30 20 3a 20 e7 20  28 3f 46 50 74 72 20 80  |. 0 : . (?FPtr .|
00003220  20 37 29 20 3d 20 34 20  21 44 50 74 72 20 3d 20  | 7) = 4 !DPtr = |
00003230  35 20 3a 20 44 50 74 72  20 2b 3d 20 34 20 3a 20  |5 : DPtr += 4 : |
00003240  46 50 74 72 20 2b 3d 20  31 20 3a 20 6f 6e 6c 79  |FPtr += 1 : only|
00003250  63 6c 6f 73 65 64 20 3d  20 a3 0d 01 af 34 20 20  |closed = ....4  |
00003260  20 20 20 20 20 20 c9 20  31 20 3a 20 e7 20 6f 6e  |      . 1 : . on|
00003270  6c 79 63 6c 6f 73 65 64  20 21 44 50 74 72 20 3d  |lyclosed !DPtr =|
00003280  20 35 20 3a 20 44 50 74  72 20 2b 3d 20 34 0d 01  | 5 : DPtr += 4..|
00003290  b0 3c 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.<              |
000032a0  20 20 20 21 44 50 74 72  20 3d 20 32 20 3a 20 44  |   !DPtr = 2 : D|
000032b0  50 74 72 20 2b 3d 20 34  20 3a 20 46 50 74 72 20  |Ptr += 4 : FPtr |
000032c0  2b 3d 20 31 20 3a 20 f2  78 79 0d 01 b1 39 20 20  |+= 1 : .xy...9  |
000032d0  20 20 20 20 20 20 c9 20  32 20 3a 20 21 44 50 74  |      . 2 : !DPt|
000032e0  72 20 3d 20 38 20 3a 20  44 50 74 72 20 2b 3d 20  |r = 8 : DPtr += |
000032f0  34 20 3a 20 46 50 74 72  20 2b 3d 20 31 20 3a 20  |4 : FPtr += 1 : |
00003300  f2 78 79 0d 01 b2 45 20  20 20 20 20 20 20 20 c9  |.xy...E        .|
00003310  20 33 20 3a 20 21 44 50  74 72 20 3d 20 36 20 3a  | 3 : !DPtr = 6 :|
00003320  20 44 50 74 72 20 2b 3d  20 34 20 3a 20 46 50 74  | DPtr += 4 : FPt|
00003330  72 20 2b 3d 20 31 20 3a  20 f2 78 79 20 3a 20 f2  |r += 1 : .xy : .|
00003340  78 79 20 3a 20 f2 78 79  0d 01 b3 0b 20 20 20 20  |xy : .xy....    |
00003350  20 20 cb 0d 01 b4 3a 20  20 20 20 20 20 f4 20 49  |  ....:      . I|
00003360  46 20 3f 46 50 74 72 20  3d 20 34 20 21 44 50 74  |F ?FPtr = 4 !DPt|
00003370  72 20 3d 20 35 20 3a 20  44 50 74 72 20 2b 3d 20  |r = 5 : DPtr += |
00003380  34 20 3a 20 46 50 74 72  20 2b 3d 20 31 0d 01 b5  |4 : FPtr += 1...|
00003390  19 20 20 20 20 fd 20 28  3f 46 50 74 72 20 80 20  |.    . (?FPtr . |
000033a0  37 29 20 3d 20 30 0d 01  b6 2a 20 20 20 20 e7 20  |7) = 0...*    . |
000033b0  6f 6e 6c 79 63 6c 6f 73  65 64 20 21 44 50 74 72  |onlyclosed !DPtr|
000033c0  20 3d 20 35 20 3a 20 44  50 74 72 20 2b 3d 20 34  | = 5 : DPtr += 4|
000033d0  0d 01 b7 1d 20 20 20 20  21 44 50 74 72 20 3d 20  |....    !DPtr = |
000033e0  30 20 3a 20 44 50 74 72  20 2b 3d 20 34 0d 01 b8  |0 : DPtr += 4...|
000033f0  1e 20 20 20 20 53 74 61  72 74 21 34 20 3d 20 44  |.    Start!4 = D|
00003400  50 74 72 20 2d 20 53 74  61 72 74 0d 01 b9 07 20  |Ptr - Start.... |
00003410  20 cc 0d 01 ba 11 20 20  20 20 46 50 74 72 20 2b  | .....    FPtr +|
00003420  3d 20 37 0d 01 bb 07 20  20 cd 0d 01 bc 13 20 20  |= 7....  .....  |
00003430  e7 20 3f 46 50 74 72 20  3d 20 38 20 8c 0d 01 bd  |. ?FPtr = 8 ....|
00003440  11 20 20 20 20 46 50 74  72 20 2b 3d 20 31 0d 01  |.    FPtr += 1..|
00003450  be 15 20 20 20 20 c8 95  20 3f 46 50 74 72 20 3c  |..    .. ?FPtr <|
00003460  3e 20 30 0d 01 bf 1b 20  20 20 20 20 20 f2 49 6e  |> 0....      .In|
00003470  63 6c 75 73 69 6f 6e 28  3f 46 50 74 72 29 0d 01  |clusion(?FPtr)..|
00003480  c0 09 20 20 20 20 ce 0d  01 c1 07 20 20 cd 0d 01  |..    .....  ...|
00003490  c2 14 c9 20 32 35 20 3a  20 f2 42 61 73 65 43 68  |... 25 : .BaseCh|
000034a0  61 72 0d 01 c3 28 c9 20  34 31 20 3a 20 46 50 74  |ar...(. 41 : FPt|
000034b0  72 20 2b 3d 20 31 20 3a  20 f2 49 6e 63 6c 75 73  |r += 1 : .Inclus|
000034c0  69 6f 6e 28 3f 46 50 74  72 29 0d 01 c4 34 c9 20  |ion(?FPtr)...4. |
000034d0  35 37 20 3a 20 f2 42 61  73 65 43 68 61 72 20 3a  |57 : .BaseChar :|
000034e0  20 46 50 74 72 20 2b 3d  20 31 20 3a 20 f2 49 6e  | FPtr += 1 : .In|
000034f0  63 6c 75 73 69 6f 6e 28  3f 46 50 74 72 29 0d 01  |clusion(?FPtr)..|
00003500  c5 05 cb 0d 01 c6 05 e1  0d 01 c7 05 3a 0d 01 c8  |............:...|
00003510  0f dd 20 f2 42 61 73 65  43 68 61 72 0d 01 c9 0f  |.. .BaseChar....|
00003520  20 20 46 50 74 72 20 2b  3d 20 31 0d 01 ca 68 20  |  FPtr += 1...h |
00003530  20 21 44 50 74 72 20 3d  20 31 20 3a 20 44 50 74  | !DPtr = 1 : DPt|
00003540  72 21 34 20 3d 20 31 34  2a 34 20 3a 20 44 50 74  |r!4 = 14*4 : DPt|
00003550  72 21 38 20 3d 20 78 20  3a 20 44 50 74 72 21 31  |r!8 = x : DPtr!1|
00003560  32 20 3d 20 79 20 3a 20  44 50 74 72 21 31 36 20  |2 = y : DPtr!16 |
00003570  3d 20 78 20 2b 20 39 20  2a 20 6d 6d 20 3a 20 44  |= x + 9 * mm : D|
00003580  50 74 72 21 32 30 20 3d  20 79 20 2b 20 35 20 2a  |Ptr!20 = y + 5 *|
00003590  20 6d 6d 0d 01 cb 62 20  20 44 50 74 72 21 32 34  | mm...b  DPtr!24|
000035a0  20 3d 20 26 42 42 46 46  30 30 20 3a 20 44 50 74  | = &BBFF00 : DPt|
000035b0  72 21 32 38 20 3d 20 26  46 46 46 46 46 46 30 30  |r!28 = &FFFFFF00|
000035c0  20 3a 20 44 50 74 72 21  33 32 20 3d 20 30 20 3a  | : DPtr!32 = 0 :|
000035d0  20 44 50 74 72 21 33 36  20 3d 20 20 33 20 2a 20  | DPtr!36 =  3 * |
000035e0  6d 6d 20 3a 20 44 50 74  72 21 34 30 20 3d 20 35  |mm : DPtr!40 = 5|
000035f0  20 2a 20 6d 6d 0d 01 cc  2e 20 20 44 50 74 72 21  | * mm....  DPtr!|
00003600  34 34 20 3d 20 78 20 3a  20 44 50 74 72 21 34 38  |44 = x : DPtr!48|
00003610  20 3d 20 79 20 3a 20 44  50 74 72 3f 35 32 20 3d  | = y : DPtr?52 =|
00003620  20 34 36 0d 01 cd 22 20  20 e7 20 3f 46 50 74 72  | 46..."  . ?FPtr|
00003630  20 3e 20 33 32 20 80 20  3f 46 50 74 72 20 3c 20  | > 32 . ?FPtr < |
00003640  31 32 37 20 8c 0d 01 ce  25 20 20 20 20 44 50 74  |127 ....%    DPt|
00003650  72 3f 35 33 20 3d 20 3f  46 50 74 72 20 3a 20 44  |r?53 = ?FPtr : D|
00003660  50 74 72 21 35 34 20 3d  20 30 0d 01 cf 07 20 20  |Ptr!54 = 0....  |
00003670  cc 0d 01 d0 2e 20 20 20  20 24 28 44 50 74 72 20  |.....    $(DPtr |
00003680  2b 20 35 33 29 20 3d 20  c3 7e 28 3f 46 50 74 72  |+ 53) = .~(?FPtr|
00003690  29 20 3a 20 44 50 74 72  3f 35 35 20 3d 20 30 0d  |) : DPtr?55 = 0.|
000036a0  01 d1 07 20 20 cd 0d 01  d2 12 20 20 44 50 74 72  |...  .....  DPtr|
000036b0  20 2b 3d 20 31 34 2a 34  0d 01 d3 05 e1 0d 01 d4  | += 14*4........|
000036c0  05 3a 0d 01 d5 16 dd 20  f2 49 6e 63 6c 75 73 69  |.:..... .Inclusi|
000036d0  6f 6e 28 43 68 61 72 29  0d 01 d6 3d 20 20 21 44  |on(Char)...=  !D|
000036e0  50 74 72 20 3d 20 31 20  3a 20 44 50 74 72 21 34  |Ptr = 1 : DPtr!4|
000036f0  20 3d 20 31 34 2a 34 20  3a 20 44 50 74 72 20 2b  | = 14*4 : DPtr +|
00003700  3d 20 38 20 3a 20 46 50  74 72 20 2b 3d 20 31 20  |= 8 : FPtr += 1 |
00003710  3a 20 f2 78 79 0d 01 d7  3a 20 20 21 44 50 74 72  |: .xy...:  !DPtr|
00003720  20 3d 20 44 50 74 72 21  2d 38 20 2b 20 39 20 2a  | = DPtr!-8 + 9 *|
00003730  20 6d 6d 20 3a 20 44 50  74 72 21 34 20 3d 20 44  | mm : DPtr!4 = D|
00003740  50 74 72 21 2d 34 20 2b  20 35 20 2a 20 6d 6d 0d  |Ptr!-4 + 5 * mm.|
00003750  01 d8 4d 20 20 44 50 74  72 21 38 20 3d 20 26 42  |..M  DPtr!8 = &B|
00003760  42 46 46 30 30 20 3a 20  44 50 74 72 21 31 32 20  |BFF00 : DPtr!12 |
00003770  3d 20 26 46 46 46 46 46  46 30 30 20 3a 20 44 50  |= &FFFFFF00 : DP|
00003780  74 72 21 31 36 20 3d 20  30 20 3a 20 44 50 74 72  |tr!16 = 0 : DPtr|
00003790  21 32 30 20 3d 20 33 20  2a 20 6d 6d 0d 01 d9 3e  |!20 = 3 * mm...>|
000037a0  20 20 44 50 74 72 21 32  34 20 3d 20 35 20 2a 20  |  DPtr!24 = 5 * |
000037b0  6d 6d 20 3a 20 44 50 74  72 21 32 38 20 3d 20 44  |mm : DPtr!28 = D|
000037c0  50 74 72 21 2d 38 20 3a  20 44 50 74 72 21 33 32  |Ptr!-8 : DPtr!32|
000037d0  20 3d 20 44 50 74 72 21  2d 34 0d 01 da 12 20 20  | = DPtr!-4....  |
000037e0  44 50 74 72 3f 33 36 20  3d 20 34 36 0d 01 db 20  |DPtr?36 = 46... |
000037f0  20 20 e7 20 43 68 61 72  20 3e 20 33 32 20 80 20  |  . Char > 32 . |
00003800  43 68 61 72 20 3c 20 31  32 37 20 8c 0d 01 dc 24  |Char < 127 ....$|
00003810  20 20 20 20 44 50 74 72  3f 33 37 20 3d 20 43 68  |    DPtr?37 = Ch|
00003820  61 72 20 3a 20 44 50 74  72 21 33 38 20 3d 20 30  |ar : DPtr!38 = 0|
00003830  0d 01 dd 07 20 20 cc 0d  01 de 2b 20 20 20 20 24  |....  ....+    $|
00003840  28 44 50 74 72 20 2b 20  33 37 29 20 3d 20 c3 7e  |(DPtr + 37) = .~|
00003850  43 68 61 72 20 3a 20 44  50 74 72 3f 33 39 20 3d  |Char : DPtr?39 =|
00003860  20 30 0d 01 df 07 20 20  cd 0d 01 e0 12 20 20 44  | 0....  .....  D|
00003870  50 74 72 20 2b 3d 20 31  30 2a 34 0d 01 e1 05 e1  |Ptr += 10*4.....|
00003880  0d 01 e2 05 3a 0d 01 e3  09 dd 20 f2 78 79 0d 01  |....:..... .xy..|
00003890  e4 5b 20 20 21 44 50 74  72 20 3d 20 28 28 21 46  |.[  !DPtr = ((!F|
000038a0  50 74 72 20 3c 3c 20 32  30 29 20 80 20 26 46 46  |Ptr << 20) . &FF|
000038b0  46 30 30 30 30 30 29 20  3e 3e 20 31 35 20 3a 20  |F00000) >> 15 : |
000038c0  44 50 74 72 21 34 20 3d  20 28 46 50 74 72 21 31  |DPtr!4 = (FPtr!1|
000038d0  20 3c 3c 20 31 36 20 80  20 26 46 46 46 30 30 30  | << 16 . &FFF000|
000038e0  30 30 29 20 3e 3e 20 31  35 0d 01 e5 35 20 20 21  |00) >> 15...5  !|
000038f0  44 50 74 72 20 3d 20 21  44 50 74 72 20 2a 20 33  |DPtr = !DPtr * 3|
00003900  20 2b 20 78 20 3a 20 44  50 74 72 21 34 20 3d 20  | + x : DPtr!4 = |
00003910  44 50 74 72 21 34 20 2a  20 33 20 2b 20 79 0d 01  |DPtr!4 * 3 + y..|
00003920  e6 1b 20 20 44 50 74 72  20 2b 3d 20 38 20 3a 20  |..  DPtr += 8 : |
00003930  46 50 74 72 20 2b 3d 20  33 0d 01 e7 05 e1 0d 01  |FPtr += 3.......|
00003940  e8 05 3a 0d 01 e9 0c dd  20 f2 57 69 64 74 68 0d  |..:..... .Width.|
00003950  01 ea 1d 20 20 21 44 50  74 72 20 3d 20 32 20 3a  |...  !DPtr = 2 :|
00003960  20 44 50 74 72 21 34 20  3d 20 36 38 0d 01 eb 50  | DPtr!4 = 68...P|
00003970  20 20 78 20 3d 20 28 58  20 2a 20 35 30 20 2b 20  |  x = (X * 50 + |
00003980  32 30 29 20 2a 20 6d 6d  20 3a 20 79 20 3d 20 28  |20) * mm : y = (|
00003990  59 20 2a 20 34 35 20 2b  20 32 35 29 20 2a 20 6d  |Y * 45 + 25) * m|
000039a0  6d 20 3a 20 44 50 74 72  21 38 20 3d 20 78 20 3a  |m : DPtr!8 = x :|
000039b0  20 44 50 74 72 21 31 32  20 3d 20 79 0d 01 ec 34  | DPtr!12 = y...4|
000039c0  20 20 44 50 74 72 21 31  36 20 3d 20 28 58 20 2a  |  DPtr!16 = (X *|
000039d0  20 35 30 20 2b 20 36 30  29 20 2a 20 6d 6d 20 3a  | 50 + 60) * mm :|
000039e0  20 44 50 74 72 21 32 30  20 3d 20 79 20 2b 20 31  | DPtr!20 = y + 1|
000039f0  0d 01 ed 57 20 20 44 50  74 72 21 32 34 20 3d 20  |...W  DPtr!24 = |
00003a00  2d 31 20 3a 20 44 50 74  72 21 32 38 20 3d 20 26  |-1 : DPtr!28 = &|
00003a10  46 46 42 42 30 30 30 30  20 3a 20 44 50 74 72 21  |FFBB0000 : DPtr!|
00003a20  33 32 20 3d 20 2e 32 35  2a 6d 6d 20 3a 20 44 50  |32 = .25*mm : DP|
00003a30  74 72 21 33 36 20 3d 20  30 20 3a 20 44 50 74 72  |tr!36 = 0 : DPtr|
00003a40  21 34 30 20 3d 20 32 0d  01 ee 2d 20 20 44 50 74  |!40 = 2...-  DPt|
00003a50  72 21 34 34 20 3d 20 78  20 3a 20 44 50 74 72 21  |r!44 = x : DPtr!|
00003a60  34 38 20 3d 20 79 20 3a  20 44 50 74 72 21 35 32  |48 = y : DPtr!52|
00003a70  20 3d 20 38 0d 01 ef 51  20 20 e7 20 6d 61 70 20  | = 8...Q  . map |
00003a80  44 50 74 72 21 35 36 20  3d 20 78 20 2b 20 77 69  |DPtr!56 = x + wi|
00003a90  64 74 68 25 28 6d 61 70  3f 43 68 61 72 29 2a 55  |dth%(map?Char)*U|
00003aa0  6e 69 74 20 8b 20 44 50  74 72 21 35 36 20 3d 20  |nit . DPtr!56 = |
00003ab0  78 20 2b 20 77 69 64 74  68 25 28 43 68 61 72 29  |x + width%(Char)|
00003ac0  2a 55 6e 69 74 0d 01 f0  2c 20 20 44 50 74 72 21  |*Unit...,  DPtr!|
00003ad0  36 30 20 3d 20 79 20 3a  20 44 50 74 72 21 36 34  |60 = y : DPtr!64|
00003ae0  20 3d 20 30 20 3a 20 44  50 74 72 20 2b 3d 20 36  | = 0 : DPtr += 6|
00003af0  38 0d 01 f1 05 e1 0d 01  f2 05 3a 0d 01 f3 0d dd  |8.........:.....|
00003b00  20 f2 64 65 73 63 61 66  0d 01 f4 1a 20 20 54 61  | .descaf....  Ta|
00003b10  62 6c 65 20 3d 20 46 42  75 66 66 65 72 20 2b 20  |ble = FBuffer + |
00003b20  35 32 0d 01 f5 29 20 20  54 61 62 6c 65 45 6e 64  |52...)  TableEnd|
00003b30  20 3d 20 28 21 54 61 62  6c 65 20 80 20 26 46 46  | = (!Table . &FF|
00003b40  46 46 29 20 2b 20 54 61  62 6c 65 0d 01 f6 1f 20  |FF) + Table.... |
00003b50  20 46 6f 6e 74 4e 61 6d  65 24 20 3d 20 a4 73 32  | FontName$ = .s2|
00003b60  28 54 61 62 6c 65 45 6e  64 29 0d 01 f7 13 e7 20  |(TableEnd)..... |
00003b70  56 65 72 73 69 6f 6e 20  3c 20 38 20 8c 0d 01 f8  |Version < 8 ....|
00003b80  27 20 20 46 69 72 73 74  43 68 75 6e 6b 20 3d 20  |'  FirstChunk = |
00003b90  46 42 75 66 66 65 72 21  31 36 20 2b 20 46 42 75  |FBuffer!16 + FBu|
00003ba0  66 66 65 72 0d 01 f9 20  20 20 45 6e 64 20 3d 20  |ffer...   End = |
00003bb0  46 42 75 66 66 65 72 21  34 38 20 2b 20 46 42 75  |FBuffer!48 + FBu|
00003bc0  66 66 65 72 0d 01 fa 3c  20 20 4e 65 77 54 61 62  |ffer...<  NewTab|
00003bd0  6c 65 45 6e 64 20 3d 20  28 54 61 62 6c 65 20 2b  |leEnd = (Table +|
00003be0  20 35 31 33 20 2b 20 a9  46 6f 6e 74 4e 61 6d 65  | 513 + .FontName|
00003bf0  24 20 2b 20 33 29 20 80  20 26 46 46 46 46 46 43  |$ + 3) . &FFFFFC|
00003c00  0d 01 fb 27 20 20 53 61  76 69 6e 67 20 3d 20 46  |...'  Saving = F|
00003c10  69 72 73 74 43 68 75 6e  6b 20 2d 20 4e 65 77 54  |irstChunk - NewT|
00003c20  61 62 6c 65 45 6e 64 0d  01 fc 52 20 20 e3 20 4e  |ableEnd...R  . N|
00003c30  20 3d 20 30 20 b8 20 38  20 3a 20 21 28 46 42 75  | = 0 . 8 : !(FBu|
00003c40  66 66 65 72 20 2b 20 31  36 20 2b 20 4e 20 2a 20  |ffer + 16 + N * |
00003c50  34 29 20 3d 20 21 28 46  42 75 66 66 65 72 20 2b  |4) = !(FBuffer +|
00003c60  20 31 36 20 2b 20 4e 20  2a 20 34 29 20 2d 20 53  | 16 + N * 4) - S|
00003c70  61 76 69 6e 67 20 3a 20  ed 0d 01 fd 25 20 20 46  |aving : ....%  F|
00003c80  42 75 66 66 65 72 3f 35  32 20 3d 20 31 20 3a 20  |Buffer?52 = 1 : |
00003c90  46 42 75 66 66 65 72 3f  35 33 20 3d 20 32 0d 01  |FBuffer?53 = 2..|
00003ca0  fe 28 20 20 e3 20 58 20  3d 20 35 34 20 b8 20 35  |.(  . X = 54 . 5|
00003cb0  36 33 20 3a 20 46 42 75  66 66 65 72 3f 58 20 3d  |63 : FBuffer?X =|
00003cc0  20 30 20 3a 20 ed 0d 01  ff 20 20 20 24 28 46 42  | 0 : ....   $(FB|
00003cd0  75 66 66 65 72 2b 35 36  35 29 20 3d 20 46 6f 6e  |uffer+565) = Fon|
00003ce0  74 4e 61 6d 65 24 0d 02  00 05 cc 0d 02 01 27 20  |tName$........' |
00003cf0  20 4f 66 66 73 65 74 41  72 65 61 20 3d 20 46 42  | OffsetArea = FB|
00003d00  75 66 66 65 72 21 31 36  20 2b 20 46 42 75 66 66  |uffer!16 + FBuff|
00003d10  65 72 0d 02 02 28 20 20  46 69 72 73 74 43 68 75  |er...(  FirstChu|
00003d20  6e 6b 20 3d 20 21 4f 66  66 73 65 74 41 72 65 61  |nk = !OffsetArea|
00003d30  20 2b 20 46 42 75 66 66  65 72 0d 02 03 1a 20 20  | + FBuffer....  |
00003d40  6e 63 68 75 6e 6b 73 20  3d 20 46 42 75 66 66 65  |nchunks = FBuffe|
00003d50  72 21 32 30 0d 02 04 1c  20 20 4e 6f 4f 66 53 63  |r!20....  NoOfSc|
00003d60  61 66 73 20 3d 20 46 42  75 66 66 65 72 21 32 34  |afs = FBuffer!24|
00003d70  0d 02 05 2c 20 20 45 6e  64 20 3d 20 4f 66 66 73  |...,  End = Offs|
00003d80  65 74 41 72 65 61 21 28  34 2a 6e 63 68 75 6e 6b  |etArea!(4*nchunk|
00003d90  73 29 20 2b 20 46 42 75  66 66 65 72 0d 02 06 48  |s) + FBuffer...H|
00003da0  20 20 4e 65 77 54 61 62  6c 65 45 6e 64 20 3d 20  |  NewTableEnd = |
00003db0  28 54 61 62 6c 65 20 2b  20 32 2a 4e 6f 4f 66 53  |(Table + 2*NoOfS|
00003dc0  63 61 66 73 20 2b 20 31  20 2b 20 a9 46 6f 6e 74  |cafs + 1 + .Font|
00003dd0  4e 61 6d 65 24 20 2b 20  33 29 20 80 20 26 46 46  |Name$ + 3) . &FF|
00003de0  46 46 46 43 0d 02 07 39  20 20 53 61 76 69 6e 67  |FFFC...9  Saving|
00003df0  20 3d 20 46 69 72 73 74  43 68 75 6e 6b 20 2d 20  | = FirstChunk - |
00003e00  4e 65 77 54 61 62 6c 65  45 6e 64 20 2d 20 34 20  |NewTableEnd - 4 |
00003e10  2a 20 6e 63 68 75 6e 6b  73 20 2d 20 34 0d 02 08  |* nchunks - 4...|
00003e20  49 20 20 3f 54 61 62 6c  65 20 3d 20 28 32 2a 4e  |I  ?Table = (2*N|
00003e30  6f 4f 66 53 63 61 66 73  20 2b 20 31 29 20 80 20  |oOfScafs + 1) . |
00003e40  26 46 46 20 3a 20 54 61  62 6c 65 3f 31 20 3d 20  |&FF : Table?1 = |
00003e50  28 32 2a 4e 6f 4f 66 53  63 61 66 73 20 2b 20 31  |(2*NoOfScafs + 1|
00003e60  29 20 3e 3e 20 38 0d 02  09 35 20 20 e3 20 58 20  |) >> 8...5  . X |
00003e70  3d 20 35 34 20 b8 20 32  2a 4e 6f 4f 66 53 63 61  |= 54 . 2*NoOfSca|
00003e80  66 73 20 2b 20 35 32 20  3a 20 46 42 75 66 66 65  |fs + 52 : FBuffe|
00003e90  72 3f 58 20 3d 20 30 20  3a 20 ed 0d 02 0a 2f 20  |r?X = 0 : ..../ |
00003ea0  20 24 28 46 42 75 66 66  65 72 20 2b 20 32 2a 4e  | $(FBuffer + 2*N|
00003eb0  6f 4f 66 53 63 61 66 73  20 2b 20 35 33 29 20 3d  |oOfScafs + 53) =|
00003ec0  20 46 6f 6e 74 4e 61 6d  65 24 0d 02 0b 5d 20 20  | FontName$...]  |
00003ed0  e3 20 4e 20 3d 20 30 20  b8 20 6e 63 68 75 6e 6b  |. N = 0 . nchunk|
00003ee0  73 20 3a 20 21 28 4f 66  66 73 65 74 41 72 65 61  |s : !(OffsetArea|
00003ef0  20 2d 20 53 61 76 69 6e  67 20 2b 20 4e 20 2a 20  | - Saving + N * |
00003f00  34 29 20 3d 20 21 28 4f  66 66 73 65 74 41 72 65  |4) = !(OffsetAre|
00003f10  61 20 2b 20 4e 20 2a 20  34 29 20 2d 20 53 61 76  |a + N * 4) - Sav|
00003f20  69 6e 67 20 3a 20 ed 0d  02 0c 1a 20 20 46 42 75  |ing : .....  FBu|
00003f30  66 66 65 72 21 31 36 20  2d 3d 20 53 61 76 69 6e  |ffer!16 -= Savin|
00003f40  67 0d 02 0d 05 cd 0d 02  0e 35 20 20 e3 20 58 20  |g........5  . X |
00003f50  3d 20 46 69 72 73 74 43  68 75 6e 6b 20 b8 20 45  |= FirstChunk . E|
00003f60  6e 64 20 88 20 34 20 3a  20 58 21 2d 53 61 76 69  |nd . 4 : X!-Savi|
00003f70  6e 67 20 3d 20 21 58 20  3a 20 ed 0d 02 0f 05 e1  |ng = !X : ......|
00003f80  0d 02 10 05 3a 0d 02 11  12 dd a4 73 32 28 58 29  |....:......s2(X)|
00003f90  20 3a 20 ea 20 61 24 0d  02 12 4b 61 24 20 3d 20  | : . a$...Ka$ = |
00003fa0  bd 28 3f 58 29 20 3a 20  e3 20 4e 20 3d 20 30 20  |.(?X) : . N = 0 |
00003fb0  b8 20 31 20 3a 20 f5 20  58 20 2b 3d 20 31 20 3a  |. 1 : . X += 1 :|
00003fc0  20 61 24 20 2b 3d 20 bd  28 3f 58 29 20 3a 20 fd  | a$ += .(?X) : .|
00003fd0  20 3f 58 20 3d 20 30 20  3a 20 ed 20 3a 20 3d 20  | ?X = 0 : . : = |
00003fe0  61 24 0d 02 13 05 3a 0d  02 14 0d dd f2 4f 75 74  |a$....:......Out|
00003ff0  6c 69 6e 65 0d 02 15 25  53 69 7a 65 25 20 3d 20  |line...%Size% = |
00004000  46 42 75 66 66 65 72 3f  36 20 2b 20 32 35 36 2a  |FBuffer?6 + 256*|
00004010  46 42 75 66 66 65 72 3f  37 0d 02 16 13 e7 20 58  |FBuffer?7..... X|
00004020  53 68 69 66 74 25 20 3d  20 30 20 8c 0d 02 17 35  |Shift% = 0 ....5|
00004030  20 20 e7 20 a4 58 28 31  30 2c 31 30 29 20 3c 20  |  . .X(10,10) < |
00004040  30 20 58 53 68 69 66 74  25 20 2d 3d 20 a4 58 28  |0 XShift% -= .X(|
00004050  53 69 7a 65 25 2c 53 69  7a 65 25 29 20 2a 20 2e  |Size%,Size%) * .|
00004060  37 0d 02 18 31 20 20 e7  20 a4 58 28 30 2c 31 30  |7...1  . .X(0,10|
00004070  29 20 20 3c 20 30 20 58  53 68 69 66 74 25 20 2d  |)  < 0 XShift% -|
00004080  3d 20 a4 58 28 30 2c 53  69 7a 65 25 29 20 2a 20  |= .X(0,Size%) * |
00004090  2e 37 0d 02 19 31 20 20  e7 20 a4 58 28 31 30 2c  |.7...1  . .X(10,|
000040a0  30 29 20 20 3c 20 30 20  58 53 68 69 66 74 25 20  |0)  < 0 XShift% |
000040b0  2d 3d 20 a4 58 28 53 69  7a 65 25 2c 30 29 20 2a  |-= .X(Size%,0) *|
000040c0  20 2e 37 0d 02 1a 05 cd  0d 02 1b 13 e7 20 59 53  | .7.......... YS|
000040d0  68 69 66 74 25 20 3d 20  30 20 8c 0d 02 1c 35 20  |hift% = 0 ....5 |
000040e0  20 e7 20 a4 59 28 31 30  2c 31 30 29 20 3c 20 30  | . .Y(10,10) < 0|
000040f0  20 59 53 68 69 66 74 25  20 2d 3d 20 a4 59 28 53  | YShift% -= .Y(S|
00004100  69 7a 65 25 2c 53 69 7a  65 25 29 20 2a 20 2e 37  |ize%,Size%) * .7|
00004110  0d 02 1d 31 20 20 e7 20  a4 59 28 30 2c 31 30 29  |...1  . .Y(0,10)|
00004120  20 20 3c 20 30 20 59 53  68 69 66 74 25 20 2d 3d  |  < 0 YShift% -=|
00004130  20 a4 59 28 30 2c 53 69  7a 65 25 29 20 2a 20 2e  | .Y(0,Size%) * .|
00004140  37 0d 02 1e 31 20 20 e7  20 a4 59 28 31 30 2c 30  |7...1  . .Y(10,0|
00004150  29 20 20 3c 20 30 20 59  53 68 69 66 74 25 20 2d  |)  < 0 YShift% -|
00004160  3d 20 a4 59 28 53 69 7a  65 25 2c 30 29 20 2a 20  |= .Y(Size%,0) * |
00004170  2e 37 0d 02 1f 05 cd 0d  02 20 10 c8 8e 20 56 65  |.7....... ... Ve|
00004180  72 73 69 6f 6e 20 ca 0d  02 21 07 c9 20 38 0d 02  |rsion ...!.. 8..|
00004190  22 1c 20 20 4e 6f 4f 66  53 63 61 66 73 20 3d 20  |".  NoOfScafs = |
000041a0  46 42 75 66 66 65 72 21  32 34 0d 02 23 12 20 20  |FBuffer!24..#.  |
000041b0  66 6c 61 67 77 6f 72 64  20 3d 20 31 0d 02 24 1a  |flagword = 1..$.|
000041c0  20 20 6e 63 68 75 6e 6b  73 20 3d 20 46 42 75 66  |  nchunks = FBuf|
000041d0  66 65 72 21 32 30 0d 02  25 50 20 20 e7 20 6e 63  |fer!20..%P  . nc|
000041e0  68 75 6e 6b 73 20 3e 20  31 33 20 6e 63 68 75 6e  |hunks > 13 nchun|
000041f0  6b 73 20 3d 20 31 33 20  3a 20 f2 52 65 70 6f 72  |ks = 13 : .Repor|
00004200  74 28 22 49 20 63 61 6e  20 6f 6e 6c 79 20 64 6f  |t("I can only do|
00004210  20 74 68 65 20 66 69 72  73 74 20 31 33 20 63 68  | the first 13 ch|
00004220  75 6e 6b 73 22 29 0d 02  26 41 20 20 e3 20 43 68  |unks")..&A  . Ch|
00004230  75 6e 6b 20 3d 20 46 42  75 66 66 65 72 21 31 36  |unk = FBuffer!16|
00004240  20 2b 20 34 20 b8 20 46  42 75 66 66 65 72 21 31  | + 4 . FBuffer!1|
00004250  36 20 2b 20 34 20 2a 20  6e 63 68 75 6e 6b 73 20  |6 + 4 * nchunks |
00004260  2d 20 34 20 88 20 34 0d  02 27 0e 20 20 20 20 f2  |- 4 . 4..'.    .|
00004270  43 68 75 6e 6b 0d 02 28  07 20 20 ed 0d 02 29 05  |Chunk..(.  ...).|
00004280  7f 0d 02 2a 15 20 20 4e  6f 4f 66 53 63 61 66 73  |...*.  NoOfScafs|
00004290  20 3d 20 32 35 36 0d 02  2b 12 20 20 66 6c 61 67  | = 256..+.  flag|
000042a0  77 6f 72 64 20 3d 20 30  0d 02 2c 1b 20 20 e3 20  |word = 0..,.  . |
000042b0  43 68 75 6e 6b 20 3d 20  32 30 20 b8 20 34 34 20  |Chunk = 20 . 44 |
000042c0  88 20 34 0d 02 2d 0e 20  20 20 20 f2 43 68 75 6e  |. 4..-.    .Chun|
000042d0  6b 0d 02 2e 07 20 20 ed  0d 02 2f 11 20 20 6e 63  |k....  .../.  nc|
000042e0  68 75 6e 6b 73 20 3d 20  38 0d 02 30 05 cb 0d 02  |hunks = 8..0....|
000042f0  31 05 e1 0d 02 32 05 3a  0d 02 33 0b dd f2 43 68  |1....2.:..3...Ch|
00004300  75 6e 6b 0d 02 34 39 43  68 75 6e 6b 41 64 64 72  |unk..49ChunkAddr|
00004310  65 73 73 20 3d 20 46 42  75 66 66 65 72 21 43 68  |ess = FBuffer!Ch|
00004320  75 6e 6b 20 2b 20 46 42  75 66 66 65 72 20 2b 20  |unk + FBuffer + |
00004330  66 6c 61 67 77 6f 72 64  20 2a 20 34 0d 02 35 18  |flagword * 4..5.|
00004340  e3 20 43 68 61 72 20 3d  20 30 20 b8 20 31 32 34  |. Char = 0 . 124|
00004350  20 88 20 34 0d 02 36 32  43 68 61 72 41 64 64 72  | . 4..62CharAddr|
00004360  65 73 73 20 3d 20 43 68  75 6e 6b 41 64 64 72 65  |ess = ChunkAddre|
00004370  73 73 20 2b 20 43 68 75  6e 6b 41 64 64 72 65 73  |ss + ChunkAddres|
00004380  73 21 43 68 61 72 0d 02  37 23 e7 20 43 68 61 72  |s!Char..7#. Char|
00004390  41 64 64 72 65 73 73 20  3c 3e 20 43 68 75 6e 6b  |Address <> Chunk|
000043a0  41 64 64 72 65 73 73 20  8c 0d 02 38 1a 20 20 e7  |Address ...8.  .|
000043b0  20 3f 43 68 61 72 41 64  64 72 65 73 73 20 3d 20  | ?CharAddress = |
000043c0  39 20 8c 0d 02 39 21 20  20 20 20 50 6f 69 6e 74  |9 ...9!    Point|
000043d0  65 72 20 3d 20 43 68 61  72 41 64 64 72 65 73 73  |er = CharAddress|
000043e0  20 2b 20 37 0d 02 3a 28  20 20 20 20 c8 95 20 3f  | + 7..:(    .. ?|
000043f0  50 6f 69 6e 74 65 72 20  3c 3e 20 30 20 80 20 3f  |Pointer <> 0 . ?|
00004400  50 6f 69 6e 74 65 72 20  3c 3e 20 38 0d 02 3b 44  |Pointer <> 8..;D|
00004410  20 20 20 20 20 20 ee 20  31 20 2b 20 28 33 20 80  |      . 1 + (3 .|
00004420  20 3f 50 6f 69 6e 74 65  72 29 20 f2 54 65 72 6d  | ?Pointer) .Term|
00004430  2c 20 f2 41 64 6a 75 73  74 28 31 29 2c 20 f2 41  |, .Adjust(1), .A|
00004440  64 6a 75 73 74 28 31 29  2c 20 f2 43 75 72 76 65  |djust(1), .Curve|
00004450  0d 02 3c 16 20 20 20 20  20 20 50 6f 69 6e 74 65  |..<.      Pointe|
00004460  72 20 2b 3d 20 31 0d 02  3d 09 20 20 20 20 ce 0d  |r += 1..=.    ..|
00004470  02 3e 18 20 20 20 20 e7  20 3f 50 6f 69 6e 74 65  |.>.    . ?Pointe|
00004480  72 20 3d 20 38 20 8c 0d  02 3f 16 20 20 20 20 20  |r = 8 ...?.     |
00004490  20 50 6f 69 6e 74 65 72  20 2b 3d 20 31 0d 02 40  | Pointer += 1..@|
000044a0  1a 20 20 20 20 20 20 c8  95 20 3f 50 6f 69 6e 74  |.      .. ?Point|
000044b0  65 72 20 3c 3e 20 30 0d  02 41 16 20 20 20 20 20  |er <> 0..A.     |
000044c0  20 20 20 f2 41 64 6a 75  73 74 28 30 29 0d 02 42  |   .Adjust(0)..B|
000044d0  18 20 20 20 20 20 20 20  20 50 6f 69 6e 74 65 72  |.        Pointer|
000044e0  20 2b 3d 20 31 0d 02 43  0b 20 20 20 20 20 20 ce  | += 1..C.      .|
000044f0  0d 02 44 09 20 20 20 20  cd 0d 02 45 07 20 20 cd  |..D.    ...E.  .|
00004500  0d 02 46 05 cd 0d 02 47  05 ed 0d 02 48 05 e1 0d  |..F....G....H...|
00004510  02 49 05 3a 0d 02 4a 37  dd f2 54 65 72 6d 20 3a  |.I.:..J7..Term :|
00004520  20 e7 20 3f 50 6f 69 6e  74 65 72 20 3c 3e 20 34  | . ?Pointer <> 4|
00004530  20 f2 52 65 70 6f 72 74  28 22 54 65 72 6d 20 22  | .Report("Term "|
00004540  2b c3 3f 50 6f 69 6e 74  65 72 29 0d 02 4b 05 e1  |+.?Pointer)..K..|
00004550  0d 02 4c 05 3a 0d 02 4d  30 dd f2 43 75 72 76 65  |..L.:..M0..Curve|
00004560  20 3a 20 e3 20 44 6f 74  20 3d 20 31 20 b8 20 33  | : . Dot = 1 . 3|
00004570  20 3a 20 f2 41 64 6a 75  73 74 28 31 29 20 3a 20  | : .Adjust(1) : |
00004580  ed 20 3a 20 e1 0d 02 4e  05 3a 0d 02 4f 0f dd f2  |. : ...N.:..O...|
00004590  41 64 6a 75 73 74 28 5a  29 0d 02 50 37 58 20 3d  |Adjust(Z)..P7X =|
000045a0  20 50 6f 69 6e 74 65 72  21 31 20 80 20 26 46 46  | Pointer!1 . &FF|
000045b0  46 20 3a 20 59 20 3d 20  28 50 6f 69 6e 74 65 72  |F : Y = (Pointer|
000045c0  21 32 20 80 20 26 46 46  46 30 29 20 81 20 31 36  |!2 . &FFF0) . 16|
000045d0  0d 02 51 18 e7 20 59 20  3e 20 32 30 34 37 20 59  |..Q.. Y > 2047 Y|
000045e0  20 2d 3d 20 34 30 39 36  0d 02 52 18 e7 20 58 20  | -= 4096..R.. X |
000045f0  3e 20 32 30 34 37 20 58  20 2d 3d 20 34 30 39 36  |> 2047 X -= 4096|
00004600  0d 02 53 1f 58 25 20 3d  20 a4 58 28 58 2c 59 29  |..S.X% = .X(X,Y)|
00004610  20 3a 20 59 25 20 3d 20  a4 59 28 58 2c 59 29 0d  | : Y% = .Y(X,Y).|
00004620  02 54 35 50 6f 69 6e 74  65 72 21 31 20 3d 20 28  |.T5Pointer!1 = (|
00004630  50 6f 69 6e 74 65 72 21  31 20 80 20 26 46 46 46  |Pointer!1 . &FFF|
00004640  46 46 30 30 30 29 20 84  20 28 58 25 20 80 20 26  |FF000) . (X% . &|
00004650  46 46 46 29 0d 02 55 3c  50 6f 69 6e 74 65 72 21  |FFF)..U<Pointer!|
00004660  32 20 3d 20 28 50 6f 69  6e 74 65 72 21 32 20 80  |2 = (Pointer!2 .|
00004670  20 26 46 46 46 46 30 30  30 46 29 20 84 20 28 28  | &FFFF000F) . ((|
00004680  59 25 20 80 20 26 46 46  46 29 20 2a 20 31 36 29  |Y% . &FFF) * 16)|
00004690  0d 02 56 10 50 6f 69 6e  74 65 72 20 2b 3d 20 33  |..V.Pointer += 3|
000046a0  0d 02 57 05 e1 0d 02 58  05 3a 0d 02 59 0e dd f2  |..W....X.:..Y...|
000046b0  53 63 61 66 66 6f 6c 64  0d 02 5a 18 54 61 62 6c  |Scaffold..Z.Tabl|
000046c0  65 20 3d 20 46 42 75 66  66 65 72 20 2b 20 35 32  |e = FBuffer + 52|
000046d0  0d 02 5b 36 e3 20 50 6f  69 6e 74 65 72 20 3d 20  |..[6. Pointer = |
000046e0  54 61 62 6c 65 20 2b 20  36 34 20 b8 20 54 61 62  |Table + 64 . Tab|
000046f0  6c 65 20 2b 20 4e 6f 4f  66 53 63 61 66 73 2a 32  |le + NoOfScafs*2|
00004700  2d 32 20 88 20 32 0d 02  5c 1f 20 20 4f 66 66 73  |-2 . 2..\.  Offs|
00004710  65 74 20 3d 20 21 50 6f  69 6e 74 65 72 20 80 20  |et = !Pointer . |
00004720  26 46 46 46 46 0d 02 5d  14 20 20 e7 20 4f 66 66  |&FFFF..].  . Off|
00004730  73 65 74 20 3e 20 30 20  8c 0d 02 5e 18 20 20 20  |set > 0 ...^.   |
00004740  20 50 74 72 20 3d 20 4f  66 66 73 65 74 20 2b 20  | Ptr = Offset + |
00004750  35 0d 02 5f 3c 20 20 20  20 53 63 61 6c 65 20 3d  |5.._<    Scale =|
00004760  20 a4 58 28 32 2c 30 29  2d a4 58 28 31 2c 30 29  | .X(2,0)-.X(1,0)|
00004770  20 3a 20 53 68 69 66 74  25 20 3d 20 32 2a a4 58  | : Shift% = 2*.X|
00004780  28 31 2c 30 29 2d a4 58  28 32 2c 30 29 0d 02 60  |(1,0)-.X(2,0)..`|
00004790  18 20 20 20 20 57 69 64  65 6e 25 20 3d 20 57 69  |.    Widen% = Wi|
000047a0  64 65 6e 58 25 0d 02 61  16 20 20 20 20 e3 20 62  |denX%..a.    . b|
000047b0  69 74 20 3d 20 30 20 b8  20 31 35 0d 02 62 5b 20  |it = 0 . 15..b[ |
000047c0  20 20 20 20 20 e7 20 62  69 74 20 3d 20 38 20 53  |     . bit = 8 S|
000047d0  63 61 6c 65 20 3d 20 a4  59 28 30 2c 32 29 2d a4  |cale = .Y(0,2)-.|
000047e0  59 28 30 2c 31 29 20 3a  20 53 68 69 66 74 25 20  |Y(0,1) : Shift% |
000047f0  3d 20 32 2a a4 59 28 30  2c 31 29 2d a4 59 28 30  |= 2*.Y(0,1)-.Y(0|
00004800  2c 32 29 20 3a 20 57 69  64 65 6e 25 20 3d 20 57  |,2) : Widen% = W|
00004810  69 64 65 6e 59 25 0d 02  63 26 20 20 20 20 20 20  |idenY%..c&      |
00004820  e7 20 54 61 62 6c 65 21  28 4f 66 66 73 65 74 2b  |. Table!(Offset+|
00004830  33 29 20 80 20 32 5e 62  69 74 20 8c 0d 02 64 25  |3) . 2^bit ...d%|
00004840  20 20 20 20 20 20 20 20  43 6f 6f 72 64 25 20 3d  |        Coord% =|
00004850  20 54 61 62 6c 65 21 50  74 72 20 80 20 26 46 46  | Table!Ptr . &FF|
00004860  46 0d 02 65 2a 20 20 20  20 20 20 20 20 e7 20 43  |F..e*        . C|
00004870  6f 6f 72 64 25 20 3e 20  32 30 34 37 20 43 6f 6f  |oord% > 2047 Coo|
00004880  72 64 25 20 2d 3d 20 34  30 39 36 0d 02 66 22 20  |rd% -= 4096..f" |
00004890  20 20 20 20 20 20 20 57  69 64 74 68 25 20 3d 20  |       Width% = |
000048a0  50 74 72 3f 28 54 61 62  6c 65 2b 32 29 0d 02 67  |Ptr?(Table+2)..g|
000048b0  50 20 20 20 20 20 20 20  20 52 69 67 68 74 25 20  |P        Right% |
000048c0  3d 20 53 63 61 6c 65 20  2a 20 28 43 6f 6f 72 64  |= Scale * (Coord|
000048d0  25 20 2b 20 57 69 64 74  68 25 29 20 2b 20 53 68  |% + Width%) + Sh|
000048e0  69 66 74 25 20 2b 20 30  2e 35 2a b4 28 43 6f 6f  |ift% + 0.5*.(Coo|
000048f0  72 64 25 20 2b 20 57 69  64 74 68 25 29 0d 02 68  |rd% + Width%)..h|
00004900  3a 20 20 20 20 20 20 20  20 43 6f 6f 72 64 25 20  |:        Coord% |
00004910  3d 20 53 63 61 6c 65 20  2a 20 43 6f 6f 72 64 25  |= Scale * Coord%|
00004920  20 2b 20 53 68 69 66 74  25 20 2b 20 30 2e 35 2a  | + Shift% + 0.5*|
00004930  b4 43 6f 6f 72 64 25 0d  02 69 30 20 20 20 20 20  |.Coord%..i0     |
00004940  20 20 20 e7 20 53 63 61  6c 65 20 3c 20 30 20 43  |   . Scale < 0 C|
00004950  6f 6f 72 64 25 20 2b 3d  20 53 63 61 6c 65 20 2a  |oord% += Scale *|
00004960  20 57 69 64 74 68 25 0d  02 6a 51 20 20 20 20 20  | Width%..jQ     |
00004970  20 20 20 e7 20 57 69 64  74 68 25 20 3d 20 32 35  |   . Width% = 25|
00004980  35 20 43 6f 6f 72 64 25  20 2b 3d 20 57 69 64 65  |5 Coord% += Wide|
00004990  6e 25 20 8b 20 43 6f 6f  72 64 25 20 2d 3d 20 57  |n% . Coord% -= W|
000049a0  69 64 65 6e 25 20 3a 20  52 69 67 68 74 25 20 2b  |iden% : Right% +|
000049b0  3d 20 57 69 64 65 6e 25  0d 02 6b 41 20 20 20 20  |= Widen%..kA    |
000049c0  20 20 20 20 54 61 62 6c  65 21 50 74 72 20 3d 20  |    Table!Ptr = |
000049d0  28 54 61 62 6c 65 21 50  74 72 20 80 20 26 46 46  |(Table!Ptr . &FF|
000049e0  46 46 46 30 30 30 29 20  84 20 28 43 6f 6f 72 64  |FFF000) . (Coord|
000049f0  25 20 80 20 26 46 46 46  29 0d 02 6c 1c 20 20 20  |% . &FFF)..l.   |
00004a00  20 20 20 20 20 e7 20 57  69 64 74 68 25 20 3c 20  |     . Width% < |
00004a10  32 35 34 20 8c 0d 02 6d  29 20 20 20 20 20 20 20  |254 ...m)       |
00004a20  20 20 20 57 69 64 74 68  25 20 3d 20 94 28 52 69  |   Width% = .(Ri|
00004a30  67 68 74 25 20 2d 20 43  6f 6f 72 64 25 29 0d 02  |ght% - Coord%)..|
00004a40  6e 49 20 20 20 20 20 20  20 20 20 20 e7 20 57 69  |nI          . Wi|
00004a50  64 74 68 25 20 3c 20 32  35 34 20 50 74 72 3f 28  |dth% < 254 Ptr?(|
00004a60  54 61 62 6c 65 2b 32 29  20 3d 20 57 69 64 74 68  |Table+2) = Width|
00004a70  25 20 8b 20 50 74 72 3f  28 54 61 62 6c 65 2b 32  |% . Ptr?(Table+2|
00004a80  29 20 3d 20 32 35 33 0d  02 6f 0d 20 20 20 20 20  |) = 253..o.     |
00004a90  20 20 20 cd 0d 02 70 14  20 20 20 20 20 20 20 20  |   ...p.        |
00004aa0  50 74 72 20 2b 3d 20 33  0d 02 71 0b 20 20 20 20  |Ptr += 3..q.    |
00004ab0  20 20 cd 0d 02 72 09 20  20 20 20 ed 0d 02 73 07  |  ...r.    ...s.|
00004ac0  20 20 cd 0d 02 74 05 ed  0d 02 75 05 e1 0d 02 76  |  ...t....u....v|
00004ad0  05 3a 0d 02 77 0c dd a4  58 28 58 2c 59 29 0d 02  |.:..w...X(X,Y)..|
00004ae0  78 12 59 20 3d 20 59 20  2a 20 59 53 63 61 6c 65  |x.Y = Y * YScale|
00004af0  0d 02 79 1e 58 20 3d 20  58 20 2a 20 58 53 63 61  |..y.X = X * XSca|
00004b00  6c 65 20 2b 20 59 20 2a  20 53 68 65 61 72 0d 02  |le + Y * Shear..|
00004b10  7a 27 58 20 3d 20 58 20  2a 20 43 6f 73 20 2d 20  |z'X = X * Cos - |
00004b20  59 20 2a 20 53 69 6e 20  2b 20 58 53 68 69 66 74  |Y * Sin + XShift|
00004b30  25 20 2a 20 5a 0d 02 7b  11 3d 20 58 20 2b 20 2e  |% * Z..{.= X + .|
00004b40  35 20 2a 20 b4 58 0d 02  7c 05 3a 0d 02 7d 0c dd  |5 * .X..|.:..}..|
00004b50  a4 59 28 58 2c 59 29 0d  02 7e 12 59 20 3d 20 59  |.Y(X,Y)..~.Y = Y|
00004b60  20 2a 20 59 53 63 61 6c  65 0d 02 7f 1e 58 20 3d  | * YScale....X =|
00004b70  20 58 20 2a 20 58 53 63  61 6c 65 20 2b 20 59 20  | X * XScale + Y |
00004b80  2a 20 53 68 65 61 72 0d  02 80 27 59 20 3d 20 59  |* Shear...'Y = Y|
00004b90  20 2a 20 43 6f 73 20 2b  20 58 20 2a 20 53 69 6e  | * Cos + X * Sin|
00004ba0  20 2b 20 59 53 68 69 66  74 25 20 2a 20 5a 0d 02  | + YShift% * Z..|
00004bb0  81 11 3d 20 59 20 2b 20  2e 35 20 2a 20 b4 59 0d  |..= Y + .5 * .Y.|
00004bc0  02 82 05 3a 0d 02 83 0d  dd f2 49 6e 74 4d 65 74  |...:......IntMet|
00004bd0  72 0d 02 84 26 20 20 4e  25 20 3d 20 4d 42 75 66  |r...&  N% = MBuf|
00004be0  66 65 72 3f 34 38 20 2b  20 32 35 36 2a 4d 42 75  |fer?48 + 256*MBu|
00004bf0  66 66 65 72 3f 35 31 0d  02 85 1e 20 20 e7 20 4d  |ffer?51....  . M|
00004c00  42 75 66 66 65 72 3f 35  30 20 80 20 25 31 30 30  |Buffer?50 . %100|
00004c10  30 30 30 20 8c 0d 02 86  2e 20 20 20 20 4d 61 70  |000 .....    Map|
00004c20  25 20 3d 20 4d 42 75 66  66 65 72 3f 35 32 20 2b  |% = MBuffer?52 +|
00004c30  20 32 35 36 2a 4d 42 75  66 66 65 72 3f 35 33 20  | 256*MBuffer?53 |
00004c40  2b 20 32 0d 02 87 2f 20  20 20 20 e7 20 4d 61 70  |+ 2.../    . Map|
00004c50  25 20 3d 20 32 20 6d 61  70 20 3d 20 30 20 8b 20  |% = 2 map = 0 . |
00004c60  6d 61 70 20 3d 20 4d 42  75 66 66 65 72 20 2b 20  |map = MBuffer + |
00004c70  35 34 0d 02 88 07 20 20  cc 0d 02 89 27 20 20 20  |54....  ....'   |
00004c80  20 4d 61 70 25 20 3d 20  32 35 36 20 3a 20 6d 61  | Map% = 256 : ma|
00004c90  70 20 3d 20 4d 42 75 66  66 65 72 20 2b 20 35 32  |p = MBuffer + 52|
00004ca0  0d 02 8a 07 20 20 cd 0d  02 8b 2d 20 20 e7 20 4d  |....  ....-  . M|
00004cb0  42 75 66 66 65 72 3f 35  30 20 80 20 25 31 20 42  |Buffer?50 . %1 B|
00004cc0  42 6f 78 25 20 3d 20 30  20 8b 20 42 42 6f 78 25  |Box% = 0 . BBox%|
00004cd0  20 3d 20 31 0d 02 8c 2e  20 20 74 61 62 6c 65 20  | = 1....  table |
00004ce0  3d 20 4d 42 75 66 66 65  72 20 2b 20 35 32 20 2b  |= MBuffer + 52 +|
00004cf0  20 4d 61 70 25 20 2b 20  38 2a 4e 25 2a 42 42 6f  | Map% + 8*N%*BBo|
00004d00  78 25 0d 02 8d 16 20 20  e3 20 45 6e 74 72 79 20  |x%....  . Entry |
00004d10  3d 20 30 20 b8 20 4e 25  0d 02 8e 40 20 20 20 20  |= 0 . N%...@    |
00004d20  57 20 3d 20 74 61 62 6c  65 21 28 45 6e 74 72 79  |W = table!(Entry|
00004d30  2a 32 29 20 80 20 26 46  46 46 46 20 3a 20 e7 20  |*2) . &FFFF : . |
00004d40  57 20 80 20 26 38 30 30  30 20 57 20 2b 3d 20 26  |W . &8000 W += &|
00004d50  46 46 46 46 30 30 30 30  0d 02 8f 20 20 20 20 20  |FFFF0000...     |
00004d60  57 25 20 3d 20 57 20 2a  20 58 53 63 61 6c 65 20  |W% = W * XScale |
00004d70  2b 20 54 72 61 63 6b 25  0d 02 90 46 20 20 20 20  |+ Track%...F    |
00004d80  74 61 62 6c 65 21 28 45  6e 74 72 79 2a 32 29 20  |table!(Entry*2) |
00004d90  3d 20 28 57 25 20 80 20  26 46 46 46 46 29 20 84  |= (W% . &FFFF) .|
00004da0  20 28 74 61 62 6c 65 21  28 45 6e 74 72 79 2a 32  | (table!(Entry*2|
00004db0  29 20 80 20 26 46 46 46  46 30 30 30 30 29 0d 02  |) . &FFFF0000)..|
00004dc0  91 1a 20 20 20 20 77 69  64 74 68 25 28 45 6e 74  |..    width%(Ent|
00004dd0  72 79 29 20 3d 20 57 25  0d 02 92 07 20 20 ed 0d  |ry) = W%....  ..|
00004de0  02 93 05 e1 0d 02 94 05  3a 0d 02 95 18 dd 20 f2  |........:..... .|
00004df0  4d 61 6b 65 4d 65 74 72  69 63 73 20 3a 20 ea 20  |MakeMetrics : . |
00004e00  6e 0d 02 96 27 20 20 e3  20 58 20 3d 20 30 20 b8  |n...'  . X = 0 .|
00004e10  20 33 39 20 3a 20 4d 42  75 66 66 65 72 3f 58 20  | 39 : MBuffer?X |
00004e20  3d 20 31 33 20 3a 20 ed  0d 02 97 1a 20 20 24 4d  |= 13 : .....  $M|
00004e30  42 75 66 66 65 72 20 3d  20 46 6f 6e 74 4e 61 6d  |Buffer = FontNam|
00004e40  65 24 0d 02 98 38 20 20  4d 42 75 66 66 65 72 21  |e$...8  MBuffer!|
00004e50  34 30 20 3d 20 31 36 20  3a 20 4d 42 75 66 66 65  |40 = 16 : MBuffe|
00004e60  72 21 34 34 20 3d 20 31  36 20 3a 20 4d 42 75 66  |r!44 = 16 : MBuf|
00004e70  66 65 72 3f 34 39 20 3d  20 32 0d 02 99 31 20 20  |fer?49 = 2...1  |
00004e80  e7 20 6b 65 72 6e 73 20  4d 42 75 66 66 65 72 3f  |. kerns MBuffer?|
00004e90  35 30 20 3d 20 26 32 44  20 8b 20 4d 42 75 66 66  |50 = &2D . MBuff|
00004ea0  65 72 3f 35 30 20 3d 20  26 32 35 0d 02 9a 4b 20  |er?50 = &25...K |
00004eb0  20 6e 20 3d 20 31 20 3a  20 43 68 61 72 4d 61 70  | n = 1 : CharMap|
00004ec0  20 3d 20 4d 42 75 66 66  65 72 20 2b 20 35 34 20  | = MBuffer + 54 |
00004ed0  3a 20 57 69 64 74 68 54  61 62 6c 65 20 3d 20 43  |: WidthTable = C|
00004ee0  68 61 72 4d 61 70 20 2b  20 4e 6f 4f 66 43 68 75  |harMap + NoOfChu|
00004ef0  6e 6b 73 2a 33 32 0d 02  9b 37 20 20 3f 43 68 61  |nks*32...7  ?Cha|
00004f00  72 4d 61 70 20 3d 20 30  20 3a 20 3f 57 69 64 74  |rMap = 0 : ?Widt|
00004f10  68 54 61 62 6c 65 20 3d  20 30 20 3a 20 57 69 64  |hTable = 0 : Wid|
00004f20  74 68 54 61 62 6c 65 3f  31 20 3d 20 30 0d 02 9c  |thTable?1 = 0...|
00004f30  24 20 20 e3 20 43 68 61  72 20 3d 20 31 20 b8 20  |$  . Char = 1 . |
00004f40  4e 6f 4f 66 43 68 75 6e  6b 73 2a 33 32 20 2d 20  |NoOfChunks*32 - |
00004f50  31 0d 02 9d 11 20 20 20  20 4d 61 74 63 68 20 3d  |1....    Match =|
00004f60  20 a3 0d 02 9e 18 20 20  20 20 e3 20 50 72 65 76  | .....    . Prev|
00004f70  20 3d 20 30 20 b8 20 6e  2d 31 0d 02 9f 64 20 20  | = 0 . n-1...d  |
00004f80  20 20 20 20 e7 20 28 77  69 64 74 68 25 28 43 68  |    . (width%(Ch|
00004f90  61 72 29 20 80 20 26 46  46 46 46 29 20 3d 20 28  |ar) . &FFFF) = (|
00004fa0  28 57 69 64 74 68 54 61  62 6c 65 21 28 32 2a 50  |(WidthTable!(2*P|
00004fb0  72 65 76 29 29 20 80 20  26 46 46 46 46 29 20 43  |rev)) . &FFFF) C|
00004fc0  68 61 72 4d 61 70 3f 43  68 61 72 20 3d 20 50 72  |harMap?Char = Pr|
00004fd0  65 76 20 3a 20 4d 61 74  63 68 20 3d 20 b9 0d 02  |ev : Match = ...|
00004fe0  a0 09 20 20 20 20 ed 0d  02 a1 4d 20 20 20 20 e7  |..    ....M    .|
00004ff0  20 ac 20 4d 61 74 63 68  20 43 68 61 72 4d 61 70  | . Match CharMap|
00005000  3f 43 68 61 72 20 3d 20  6e 20 3a 20 57 69 64 74  |?Char = n : Widt|
00005010  68 54 61 62 6c 65 21 28  32 2a 6e 29 20 3d 20 77  |hTable!(2*n) = w|
00005020  69 64 74 68 25 28 43 68  61 72 29 20 3a 20 6e 20  |idth%(Char) : n |
00005030  2b 3d 20 31 0d 02 a2 07  20 20 ed 0d 02 a3 11 20  |+= 1....  ..... |
00005040  20 e7 20 6e 20 3e 20 32  35 36 20 8c 0d 02 a4 5a  | . n > 256 ....Z|
00005050  20 20 20 20 4d 42 75 66  66 65 72 21 35 32 20 3d  |    MBuffer!52 =|
00005060  20 30 20 3a 20 4d 42 75  66 66 65 72 3f 34 38 20  | 0 : MBuffer?48 |
00005070  3d 20 28 4e 6f 4f 66 43  68 75 6e 6b 73 2a 33 32  |= (NoOfChunks*32|
00005080  29 20 80 20 26 46 46 20  3a 20 4d 42 75 66 66 65  |) . &FF : MBuffe|
00005090  72 3f 35 31 20 3d 20 4e  6f 4f 66 43 68 75 6e 6b  |r?51 = NoOfChunk|
000050a0  73 20 3e 3e 20 33 0d 02  a5 16 20 20 20 20 4d 50  |s >> 3....    MP|
000050b0  74 72 20 3d 20 43 68 61  72 4d 61 70 0d 02 a6 49  |tr = CharMap...I|
000050c0  20 20 20 20 e3 20 43 68  61 72 20 3d 20 30 20 b8  |    . Char = 0 .|
000050d0  20 4e 6f 4f 66 43 68 75  6e 6b 73 2a 33 32 20 2d  | NoOfChunks*32 -|
000050e0  20 31 20 3a 20 4d 50 74  72 21 28 43 68 61 72 2a  | 1 : MPtr!(Char*|
000050f0  32 29 20 3d 20 77 69 64  74 68 25 28 43 68 61 72  |2) = width%(Char|
00005100  29 20 3a 20 ed 0d 02 a7  1f 20 20 20 20 4d 50 74  |) : .....    MPt|
00005110  72 20 2b 3d 20 4e 6f 4f  66 43 68 75 6e 6b 73 2a  |r += NoOfChunks*|
00005120  33 32 2a 32 0d 02 a8 07  20 20 cc 0d 02 a9 6d 20  |32*2....  ....m |
00005130  20 20 20 4d 42 75 66 66  65 72 3f 35 32 20 3d 20  |   MBuffer?52 = |
00005140  28 4e 6f 4f 66 43 68 75  6e 6b 73 2a 33 32 29 83  |(NoOfChunks*32).|
00005150  32 35 36 20 3a 20 4d 42  75 66 66 65 72 3f 35 33  |256 : MBuffer?53|
00005160  20 3d 20 28 4e 6f 4f 66  43 68 75 6e 6b 73 2a 33  | = (NoOfChunks*3|
00005170  32 29 81 32 35 36 20 3a  20 4d 42 75 66 66 65 72  |2).256 : MBuffer|
00005180  3f 34 38 20 3d 20 6e 20  3a 20 4d 42 75 66 66 65  |?48 = n : MBuffe|
00005190  72 3f 35 31 20 3d 20 30  0d 02 aa 2c 20 20 20 20  |r?51 = 0...,    |
000051a0  4d 50 74 72 20 3d 20 43  68 61 72 4d 61 70 20 2b  |MPtr = CharMap +|
000051b0  20 4e 6f 4f 66 43 68 75  6e 6b 73 2a 33 32 20 2b  | NoOfChunks*32 +|
000051c0  20 32 2a 6e 0d 02 ab 07  20 20 cd 0d 02 ac 0f 20  | 2*n....  ..... |
000051d0  20 e7 20 6b 65 72 6e 73  20 8c 0d 02 ad 2d 20 20  | . kerns ....-  |
000051e0  20 20 e3 20 58 20 3d 20  30 20 b8 20 4b 65 72 6e  |  . X = 0 . Kern|
000051f0  45 6e 64 20 2d 20 4b 65  72 6e 53 74 61 72 74 20  |End - KernStart |
00005200  2d 20 34 20 88 20 34 0d  02 ae 29 20 20 20 20 20  |- 4 . 4...)     |
00005210  20 21 4d 50 74 72 20 3d  20 4b 65 72 6e 53 74 61  | !MPtr = KernSta|
00005220  72 74 21 58 20 3a 20 4d  50 74 72 20 2b 3d 20 34  |rt!X : MPtr += 4|
00005230  0d 02 af 09 20 20 20 20  ed 0d 02 b0 13 20 20 20  |....    .....   |
00005240  20 e3 20 58 20 3d 20 31  20 b8 20 33 0d 02 b1 23  | . X = 1 . 3...#|
00005250  20 20 20 20 20 20 e7 20  4d 50 74 72 3f 2d 31 20  |      . MPtr?-1 |
00005260  3d 20 26 46 46 20 4d 50  74 72 20 2d 3d 20 31 0d  |= &FF MPtr -= 1.|
00005270  02 b2 09 20 20 20 20 ed  0d 02 b3 07 20 20 cd 0d  |...    .....  ..|
00005280  02 b4 19 20 20 4d 45 78  74 20 3d 20 4d 50 74 72  |...  MExt = MPtr|
00005290  2d 4d 42 75 66 66 65 72  0d 02 b5 05 e1 0d 02 b6  |-MBuffer........|
000052a0  05 3a 0d 02 b7 11 dd 20  f2 44 72 61 77 54 6f 46  |.:..... .DrawToF|
000052b0  6f 6e 74 0d 02 b8 3d 20  20 6d 69 6e 58 20 3d 20  |ont...=  minX = |
000052c0  31 30 30 30 20 3a 20 6d  69 6e 59 20 3d 20 31 30  |1000 : minY = 10|
000052d0  30 30 20 3a 20 6d 61 78  58 20 3d 20 2d 31 30 30  |00 : maxX = -100|
000052e0  30 20 3a 20 6d 61 78 59  20 3d 20 2d 31 30 30 30  |0 : maxY = -1000|
000052f0  0d 02 b9 4b 20 20 44 65  73 69 67 6e 53 69 7a 65  |...K  DesignSize|
00005300  20 3d 20 35 30 30 20 3a  20 4e 6f 4f 66 43 68 75  | = 500 : NoOfChu|
00005310  6e 6b 73 20 3d 20 38 20  3a 20 46 6f 6e 74 4e 61  |nks = 8 : FontNa|
00005320  6d 65 24 20 3d 20 22 4e  65 77 46 6f 6e 74 22 20  |me$ = "NewFont" |
00005330  3a 20 6b 65 72 6e 73 20  3d 20 a3 0d 02 ba 23 20  |: kerns = ....# |
00005340  20 53 63 61 66 53 74 61  72 74 20 3d 20 30 20 3a  | ScafStart = 0 :|
00005350  20 4e 6f 4f 66 53 63 61  66 73 20 3d 20 30 0d 02  | NoOfScafs = 0..|
00005360  bb 36 20 20 70 61 74 68  70 74 72 25 28 29 20 3d  |.6  pathptr%() =|
00005370  20 30 20 3a 20 77 69 64  74 68 25 28 29 20 3d 20  | 0 : width%() = |
00005380  30 20 3a 20 69 6e 63 6c  75 73 69 6f 6e 25 28 29  |0 : inclusion%()|
00005390  20 3d 20 30 0d 02 bc 11  20 20 f2 6f 62 6a 65 63  | = 0....  .objec|
000053a0  74 73 28 31 29 0d 02 bd  23 20 20 55 6e 69 74 20  |ts(1)...#  Unit |
000053b0  3d 20 39 36 20 2a 20 44  65 73 69 67 6e 53 69 7a  |= 96 * DesignSiz|
000053c0  65 20 2f 20 31 30 30 30  0d 02 be 11 20 20 f2 6f  |e / 1000....  .o|
000053d0  62 6a 65 63 74 73 28 32  29 0d 02 bf 12 20 20 f2  |bjects(2)....  .|
000053e0  4d 61 6b 65 4d 65 74 72  69 63 73 0d 02 c0 34 20  |MakeMetrics...4 |
000053f0  20 f2 4d 61 6b 65 46 6f  6e 74 20 3a 20 53 61 76  | .MakeFont : Sav|
00005400  69 6e 67 20 3d 20 30 20  3a 20 46 45 78 74 20 3d  |ing = 0 : FExt =|
00005410  20 46 50 74 72 20 2d 20  46 42 75 66 66 65 72 0d  | FPtr - FBuffer.|
00005420  02 c1 05 e1 0d 02 c2 05  3a 0d 02 c3 11 dd 20 f2  |........:..... .|
00005430  6f 62 6a 65 63 74 73 28  6e 29 0d 02 c4 19 20 20  |objects(n)....  |
00005440  44 50 74 72 20 3d 20 44  42 75 66 66 65 72 20 2b  |DPtr = DBuffer +|
00005450  20 34 30 0d 02 c5 07 20  20 f5 0d 02 c6 12 20 20  | 40....  .....  |
00005460  20 20 c8 8e 20 21 44 50  74 72 20 ca 0d 02 c7 24  |  .. !DPtr ....$|
00005470  20 20 20 20 20 20 c9 20  31 20 3a 20 e7 20 6e 20  |      . 1 : . n |
00005480  3d 20 31 20 f2 74 65 78  74 31 28 44 50 74 72 29  |= 1 .text1(DPtr)|
00005490  0d 02 c8 27 20 20 20 20  20 20 20 20 20 20 20 20  |...'            |
000054a0  20 20 20 e7 20 6e 20 3d  20 32 20 f2 74 65 78 74  |   . n = 2 .text|
000054b0  32 28 44 50 74 72 29 0d  02 c9 21 20 20 20 20 20  |2(DPtr)...!     |
000054c0  20 20 20 20 20 20 20 20  20 20 44 50 74 72 20 2b  |          DPtr +|
000054d0  3d 20 44 50 74 72 21 34  0d 02 ca 23 20 20 20 20  |= DPtr!4...#    |
000054e0  20 20 c9 20 32 20 3a 20  e7 20 6e 20 3d 20 32 20  |  . 2 : . n = 2 |
000054f0  f2 70 61 74 68 28 44 50  74 72 29 0d 02 cb 21 20  |.path(DPtr)...! |
00005500  20 20 20 20 20 20 20 20  20 20 20 20 20 20 44 50  |              DP|
00005510  74 72 20 2b 3d 20 44 50  74 72 21 34 0d 02 cc 1a  |tr += DPtr!4....|
00005520  20 20 20 20 20 20 c9 20  36 20 3a 20 44 50 74 72  |      . 6 : DPtr|
00005530  20 2b 3d 20 33 36 0d 02  cd 1a 20 20 20 20 20 20  | += 36....      |
00005540  c9 20 37 20 3a 20 44 50  74 72 20 2b 3d 20 32 38  |. 7 : DPtr += 28|
00005550  0d 02 ce 5a 20 20 20 20  20 20 c9 20 26 36 45 37  |...Z      . &6E7|
00005560  32 36 35 34 42 20 3a 20  e7 20 6e 20 3d 20 32 20  |2654B : . n = 2 |
00005570  4b 65 72 6e 53 74 61 72  74 20 3d 20 44 50 74 72  |KernStart = DPtr|
00005580  20 2b 20 38 20 3a 20 4b  65 72 6e 45 6e 64 20 3d  | + 8 : KernEnd =|
00005590  20 44 50 74 72 20 2b 20  44 50 74 72 21 34 20 3a  | DPtr + DPtr!4 :|
000055a0  20 6b 65 72 6e 73 20 3d  20 b9 0d 02 cf 21 20 20  | kerns = ....!  |
000055b0  20 20 20 20 20 20 20 20  20 20 20 20 20 44 50 74  |             DPt|
000055c0  72 20 2b 3d 20 44 50 74  72 21 34 0d 02 d0 74 20  |r += DPtr!4...t |
000055d0  20 20 20 20 20 c9 20 26  36 36 36 31 36 33 35 33  |     . &66616353|
000055e0  20 3a 20 e7 20 6e 20 3d  20 32 20 53 63 61 66 53  | : . n = 2 ScafS|
000055f0  74 61 72 74 20 3d 20 44  50 74 72 20 2b 20 31 32  |tart = DPtr + 12|
00005600  20 3a 20 4e 6f 4f 66 53  63 61 66 73 20 3d 20 44  | : NoOfScafs = D|
00005610  50 74 72 21 38 20 3a 20  53 63 61 66 45 6e 64 20  |Ptr!8 : ScafEnd |
00005620  3d 20 44 50 74 72 20 2b  20 31 32 20 2b 20 28 44  |= DPtr + 12 + (D|
00005630  50 74 72 21 31 32 20 80  20 26 46 46 46 46 29 0d  |Ptr!12 . &FFFF).|
00005640  02 d1 21 20 20 20 20 20  20 20 20 20 20 20 20 20  |..!             |
00005650  20 20 44 50 74 72 20 2b  3d 20 44 50 74 72 21 34  |  DPtr += DPtr!4|
00005660  0d 02 d2 1c 20 20 20 20  20 20 7f 20 3a 20 44 50  |....      . : DP|
00005670  74 72 20 2b 3d 20 44 50  74 72 21 34 0d 02 d3 09  |tr += DPtr!4....|
00005680  20 20 20 20 cb 0d 02 d4  1e 20 20 fd 20 44 50 74  |    .....  . DPt|
00005690  72 20 3e 3d 20 44 45 78  74 20 2b 20 44 42 75 66  |r >= DExt + DBuf|
000056a0  66 65 72 0d 02 d5 05 e1  0d 02 d6 05 3a 0d 02 d7  |fer.........:...|
000056b0  12 dd 20 f2 74 65 78 74  31 28 44 50 74 72 29 0d  |.. .text1(DPtr).|
000056c0  02 d8 18 20 20 61 24 20  3d 20 a4 73 28 44 50 74  |...  a$ = .s(DPt|
000056d0  72 20 2b 20 35 32 29 0d  02 d9 3b 20 20 e7 20 a7  |r + 52)...;  . .|
000056e0  61 24 2c 22 4e 6f 4f 66  43 68 61 72 73 3a 20 22  |a$,"NoOfChars: "|
000056f0  29 20 4e 6f 4f 66 43 68  75 6e 6b 73 20 3d 20 bb  |) NoOfChunks = .|
00005700  28 a4 73 28 44 50 74 72  2b 36 33 29 29 20 2f 20  |(.s(DPtr+63)) / |
00005710  33 32 0d 02 da 37 20 20  e7 20 a7 61 24 2c 22 44  |32...7  . .a$,"D|
00005720  65 73 69 67 6e 53 69 7a  65 3a 20 22 29 20 44 65  |esignSize: ") De|
00005730  73 69 67 6e 53 69 7a 65  20 3d 20 bb 28 a4 73 28  |signSize = .(.s(|
00005740  44 50 74 72 2b 36 34 29  29 0d 02 db 31 20 20 e7  |DPtr+64))...1  .|
00005750  20 a7 61 24 2c 22 46 6f  6e 74 4e 61 6d 65 3a 20  | .a$,"FontName: |
00005760  22 29 20 46 6f 6e 74 4e  61 6d 65 24 20 3d 20 a4  |") FontName$ = .|
00005770  73 28 44 50 74 72 2b 36  32 29 0d 02 dc 05 e1 0d  |s(DPtr+62)......|
00005780  02 dd 05 3a 0d 02 de 12  dd 20 f2 74 65 78 74 32  |...:..... .text2|
00005790  28 44 50 74 72 29 0d 02  df 18 20 20 61 24 20 3d  |(DPtr)....  a$ =|
000057a0  20 a4 73 28 44 50 74 72  20 2b 20 35 32 29 0d 02  | .s(DPtr + 52)..|
000057b0  e0 16 20 20 e7 20 c0 61  24 2c 31 29 20 3d 20 22  |..  . .a$,1) = "|
000057c0  2e 22 20 8c 0d 02 e1 4e  20 20 20 20 78 20 3d 20  |." ....N    x = |
000057d0  44 50 74 72 21 38 20 3a  20 79 20 3d 20 44 50 74  |DPtr!8 : y = DPt|
000057e0  72 21 32 30 20 3a 20 58  20 3d 20 28 78 2f 6d 6d  |r!20 : X = (x/mm|
000057f0  20 2d 20 31 30 29 20 81  20 35 30 20 3a 20 59 20  | - 10) . 50 : Y |
00005800  3d 20 28 79 2f 6d 6d 20  2d 20 31 30 29 20 81 20  |= (y/mm - 10) . |
00005810  34 35 0d 02 e2 30 20 20  20 20 43 68 61 72 20 3d  |45...0    Char =|
00005820  20 58 20 2b 20 31 36 20  2a 20 28 4e 6f 4f 66 43  | X + 16 * (NoOfC|
00005830  68 75 6e 6b 73 20 2a 20  32 20 2d 20 59 20 2d 20  |hunks * 2 - Y - |
00005840  31 29 0d 02 e3 3c 20 20  20 20 44 50 74 72 21 32  |1)...<    DPtr!2|
00005850  34 20 3d 20 69 6e 63 6c  75 73 69 6f 6e 25 28 43  |4 = inclusion%(C|
00005860  68 61 72 29 20 3a 20 69  6e 63 6c 75 73 69 6f 6e  |har) : inclusion|
00005870  25 28 43 68 61 72 29 20  3d 20 44 50 74 72 0d 02  |%(Char) = DPtr..|
00005880  e4 07 20 20 cd 0d 02 e5  05 e1 0d 02 e6 05 3a 0d  |..  ..........:.|
00005890  02 e7 15 dd 20 f2 74 72  61 6e 73 6c 61 74 69 6f  |.... .translatio|
000058a0  6e 28 76 29 0d 02 e8 4c  20 20 78 20 3d 20 44 50  |n(v)...L  x = DP|
000058b0  74 72 21 34 34 20 3a 20  79 20 3d 20 44 50 74 72  |tr!44 : y = DPtr|
000058c0  21 34 38 20 3a 20 58 20  3d 20 28 78 2f 6d 6d 20  |!48 : X = (x/mm |
000058d0  2d 20 31 30 29 20 81 20  35 30 20 3a 20 59 20 3d  |- 10) . 50 : Y =|
000058e0  20 28 79 2f 6d 6d 20 2d  20 76 29 20 81 20 34 35  | (y/mm - v) . 45|
000058f0  0d 02 e9 33 20 20 78 30  20 3d 20 28 58 20 2a 20  |...3  x0 = (X * |
00005900  35 30 20 2b 20 32 30 29  2a 6d 6d 20 3a 20 79 30  |50 + 20)*mm : y0|
00005910  20 3d 20 28 59 20 2a 20  34 35 20 2b 20 32 35 29  | = (Y * 45 + 25)|
00005920  2a 6d 6d 0d 02 ea 05 e1  0d 02 eb 05 3a 0d 02 ec  |*mm.........:...|
00005930  22 dd 20 f2 70 61 74 68  28 44 50 74 72 29 20 3a  |". .path(DPtr) :|
00005940  20 ea 20 43 68 61 72 2c  58 2c 59 2c 78 2c 79 0d  | . Char,X,Y,x,y.|
00005950  02 ed 16 20 20 f2 74 72  61 6e 73 6c 61 74 69 6f  |...  .translatio|
00005960  6e 28 31 30 29 0d 02 ee  2e 20 20 43 68 61 72 20  |n(10)....  Char |
00005970  3d 20 58 20 2b 20 31 36  20 2a 20 28 4e 6f 4f 66  |= X + 16 * (NoOf|
00005980  43 68 75 6e 6b 73 20 2a  20 32 20 2d 20 59 20 2d  |Chunks * 2 - Y -|
00005990  20 31 29 0d 02 ef 2d 20  20 e7 20 44 50 74 72 21  | 1)...-  . DPtr!|
000059a0  32 38 20 3d 20 30 20 80  20 43 68 61 72 20 3c 20  |28 = 0 . Char < |
000059b0  34 31 36 20 f2 50 72 65  70 61 72 65 50 61 74 68  |416 .PreparePath|
000059c0  0d 02 f0 52 20 20 e7 20  44 50 74 72 21 32 38 20  |...R  . DPtr!28 |
000059d0  3d 20 26 46 46 42 42 30  30 30 30 20 77 69 64 74  |= &FFBB0000 widt|
000059e0  68 25 28 43 68 61 72 29  20 3d 20 30 2e 35 2a b4  |h%(Char) = 0.5*.|
000059f0  28 44 50 74 72 21 35 36  20 2d 20 78 29 20 2b 20  |(DPtr!56 - x) + |
00005a00  28 44 50 74 72 21 35 36  20 2d 20 78 29 2f 55 6e  |(DPtr!56 - x)/Un|
00005a10  69 74 0d 02 f1 05 e1 0d  02 f2 05 3a 0d 02 f3 12  |it.........:....|
00005a20  dd 20 f2 50 72 65 70 61  72 65 50 61 74 68 0d 02  |. .PreparePath..|
00005a30  f4 33 20 20 e7 20 28 44  50 74 72 21 38 2d 78 30  |.3  . (DPtr!8-x0|
00005a40  29 2f 39 36 20 3c 20 6d  69 6e 58 20 6d 69 6e 58  |)/96 < minX minX|
00005a50  20 3d 20 28 44 50 74 72  21 38 2d 78 30 29 2f 39  | = (DPtr!8-x0)/9|
00005a60  36 0d 02 f5 35 20 20 e7  20 28 44 50 74 72 21 31  |6...5  . (DPtr!1|
00005a70  32 2d 79 30 29 2f 39 36  20 3c 20 6d 69 6e 59 20  |2-y0)/96 < minY |
00005a80  6d 69 6e 59 20 3d 20 28  44 50 74 72 21 31 32 2d  |minY = (DPtr!12-|
00005a90  79 30 29 2f 39 36 0d 02  f6 35 20 20 e7 20 28 44  |y0)/96...5  . (D|
00005aa0  50 74 72 21 31 36 2d 78  30 29 2f 39 36 20 3e 20  |Ptr!16-x0)/96 > |
00005ab0  6d 61 78 58 20 6d 61 78  58 20 3d 20 28 44 50 74  |maxX maxX = (DPt|
00005ac0  72 21 31 36 2d 78 30 29  2f 39 36 0d 02 f7 35 20  |r!16-x0)/96...5 |
00005ad0  20 e7 20 28 44 50 74 72  21 32 30 2d 79 30 29 2f  | . (DPtr!20-y0)/|
00005ae0  39 36 20 3e 20 6d 61 78  59 20 6d 61 78 59 20 3d  |96 > maxY maxY =|
00005af0  20 28 44 50 74 72 21 32  30 2d 79 30 29 2f 39 36  | (DPtr!20-y0)/96|
00005b00  0d 02 f8 36 20 20 44 50  74 72 21 32 34 20 3d 20  |...6  DPtr!24 = |
00005b10  70 61 74 68 70 74 72 25  28 43 68 61 72 29 20 3a  |pathptr%(Char) :|
00005b20  20 70 61 74 68 70 74 72  25 28 43 68 61 72 29 20  | pathptr%(Char) |
00005b30  3d 20 44 50 74 72 0d 02  f9 05 e1 0d 02 fa 05 3a  |= DPtr.........:|
00005b40  0d 02 fb 0f dd 20 f2 4d  61 6b 65 46 6f 6e 74 0d  |..... .MakeFont.|
00005b50  02 fc 50 20 20 24 46 42  75 66 66 65 72 20 3d 20  |..P  $FBuffer = |
00005b60  22 46 4f 4e 54 22 20 3a  20 46 42 75 66 66 65 72  |"FONT" : FBuffer|
00005b70  3f 34 20 3d 20 30 20 3a  20 46 42 75 66 66 65 72  |?4 = 0 : FBuffer|
00005b80  3f 35 20 3d 20 38 20 3a  20 46 42 75 66 66 65 72  |?5 = 8 : FBuffer|
00005b90  21 36 20 3d 20 44 65 73  69 67 6e 53 69 7a 65 0d  |!6 = DesignSize.|
00005ba0  02 fd 5c 20 20 46 42 75  66 66 65 72 21 38 20 3d  |..\  FBuffer!8 =|
00005bb0  20 6d 69 6e 58 20 3a 20  46 42 75 66 66 65 72 21  | minX : FBuffer!|
00005bc0  31 30 20 3d 20 6d 69 6e  59 20 3a 20 46 42 75 66  |10 = minY : FBuf|
00005bd0  66 65 72 21 31 32 20 3d  20 6d 61 78 58 2d 6d 69  |fer!12 = maxX-mi|
00005be0  6e 58 20 3a 20 46 42 75  66 66 65 72 21 31 34 20  |nX : FBuffer!14 |
00005bf0  3d 20 6d 61 78 59 2d 6d  69 6e 59 0d 02 fe 36 20  |= maxY-minY...6 |
00005c00  20 46 42 75 66 66 65 72  21 32 30 20 3d 20 4e 6f  | FBuffer!20 = No|
00005c10  4f 66 43 68 75 6e 6b 73  20 3a 20 46 42 75 66 66  |OfChunks : FBuff|
00005c20  65 72 21 32 34 20 3d 20  4e 6f 4f 66 53 63 61 66  |er!24 = NoOfScaf|
00005c30  73 0d 02 ff 2b 20 20 e3  20 58 20 3d 20 32 38 20  |s...+  . X = 28 |
00005c40  b8 20 34 38 20 88 20 34  20 3a 20 46 42 75 66 66  |. 48 . 4 : FBuff|
00005c50  65 72 21 58 20 3d 20 30  20 3a 20 ed 0d 03 00 17  |er!X = 0 : .....|
00005c60  20 20 e7 20 53 63 61 66  53 74 61 72 74 20 3d 20  |  . ScafStart = |
00005c70  30 20 8c 0d 03 01 3d 20  20 20 20 46 42 75 66 66  |0 ....=    FBuff|
00005c80  65 72 21 32 34 20 3d 20  31 20 3a 20 46 42 75 66  |er!24 = 1 : FBuf|
00005c90  66 65 72 21 35 32 20 3d  20 33 20 3a 20 46 50 74  |fer!52 = 3 : FPt|
00005ca0  72 20 3d 20 46 42 75 66  66 65 72 20 2b 20 35 35  |r = FBuffer + 55|
00005cb0  0d 03 02 07 20 20 cc 0d  03 03 1b 20 20 20 20 46  |....  .....    F|
00005cc0  50 74 72 20 3d 20 46 42  75 66 66 65 72 20 2b 20  |Ptr = FBuffer + |
00005cd0  35 32 0d 03 04 40 20 20  20 20 e3 20 58 20 3d 20  |52...@    . X = |
00005ce0  53 63 61 66 53 74 61 72  74 20 b8 20 53 63 61 66  |ScafStart . Scaf|
00005cf0  45 6e 64 2d 31 20 3a 20  3f 46 50 74 72 20 3d 20  |End-1 : ?FPtr = |
00005d00  3f 58 20 3a 20 46 50 74  72 20 2b 3d 20 31 20 3a  |?X : FPtr += 1 :|
00005d10  20 ed 0d 03 05 07 20 20  cd 0d 03 06 3e 20 20 24  | .....  ....>  $|
00005d20  46 50 74 72 20 3d 20 46  6f 6e 74 4e 61 6d 65 24  |FPtr = FontName$|
00005d30  20 3a 20 46 50 74 72 20  2b 3d 20 a9 46 6f 6e 74  | : FPtr += .Font|
00005d40  4e 61 6d 65 24 20 2b 20  31 20 3a 20 46 50 74 72  |Name$ + 1 : FPtr|
00005d50  3f 2d 31 20 3d 20 30 0d  03 07 30 20 20 24 46 50  |?-1 = 0...0  $FP|
00005d60  74 72 20 3d 20 22 4f 75  74 6c 69 6e 65 73 22 20  |tr = "Outlines" |
00005d70  3a 20 46 50 74 72 20 2b  3d 20 38 20 3a 20 21 46  |: FPtr += 8 : !F|
00005d80  50 74 72 20 3d 20 30 0d  03 08 59 20 20 43 68 75  |Ptr = 0...Y  Chu|
00005d90  6e 6b 4f 66 66 73 65 74  54 61 62 6c 65 20 3d 20  |nkOffsetTable = |
00005da0  28 46 50 74 72 20 2b 20  34 29 20 80 20 26 46 46  |(FPtr + 4) . &FF|
00005db0  46 46 46 46 46 43 20 3a  20 46 42 75 66 66 65 72  |FFFFFC : FBuffer|
00005dc0  21 31 36 20 3d 20 43 68  75 6e 6b 4f 66 66 73 65  |!16 = ChunkOffse|
00005dd0  74 54 61 62 6c 65 20 2d  20 46 42 75 66 66 65 72  |tTable - FBuffer|
00005de0  0d 03 09 31 20 20 45 6e  64 4f 66 66 73 65 74 20  |...1  EndOffset |
00005df0  3d 20 43 68 75 6e 6b 4f  66 66 73 65 74 54 61 62  |= ChunkOffsetTab|
00005e00  6c 65 20 2b 20 34 2a 4e  6f 4f 66 43 68 75 6e 6b  |le + 4*NoOfChunk|
00005e10  73 0d 03 0a 1a 20 20 46  50 74 72 20 3d 20 45 6e  |s....  FPtr = En|
00005e20  64 4f 66 66 73 65 74 20  2b 20 34 0d 03 0b 1d 20  |dOffset + 4.... |
00005e30  20 e3 20 59 25 20 3d 20  30 20 b8 20 4e 6f 4f 66  | . Y% = 0 . NoOf|
00005e40  43 68 75 6e 6b 73 2d 31  0d 03 0c 4c 20 20 20 20  |Chunks-1...L    |
00005e50  43 68 75 6e 6b 4f 66 66  73 65 74 20 3d 20 46 50  |ChunkOffset = FP|
00005e60  74 72 20 3a 20 43 68 75  6e 6b 4f 66 66 73 65 74  |tr : ChunkOffset|
00005e70  54 61 62 6c 65 21 28 59  25 2a 34 29 20 3d 20 43  |Table!(Y%*4) = C|
00005e80  68 75 6e 6b 4f 66 66 73  65 74 20 2d 20 46 42 75  |hunkOffset - FBu|
00005e90  66 66 65 72 0d 03 0d 39  20 20 20 20 21 46 50 74  |ffer...9    !FPt|
00005ea0  72 20 3d 20 26 38 30 30  30 30 30 38 30 20 3a 20  |r = &80000080 : |
00005eb0  f4 20 74 68 69 73 20 69  73 20 74 68 65 20 43 68  |. this is the Ch|
00005ec0  75 6e 6b 20 46 6c 61 67  20 77 6f 72 64 0d 03 0e  |unk Flag word...|
00005ed0  30 20 20 20 20 43 68 61  72 4f 66 66 73 65 74 54  |0    CharOffsetT|
00005ee0  61 62 6c 65 20 3d 20 46  50 74 72 20 2b 20 34 20  |able = FPtr + 4 |
00005ef0  3a 20 46 50 74 72 20 2b  3d 20 31 33 36 0d 03 0f  |: FPtr += 136...|
00005f00  2f 20 20 20 20 44 65 70  65 6e 64 65 6e 63 79 20  |/    Dependency |
00005f10  3d 20 46 50 74 72 20 2d  20 34 20 3a 20 21 44 65  |= FPtr - 4 : !De|
00005f20  70 65 6e 64 65 6e 63 79  20 3d 20 30 0d 03 10 3f  |pendency = 0...?|
00005f30  20 20 20 20 e3 20 58 25  20 3d 20 30 20 b8 20 33  |    . X% = 0 . 3|
00005f40  31 20 3a 20 43 68 61 72  20 3d 20 58 25 20 2b 20  |1 : Char = X% + |
00005f50  59 25 2a 33 32 20 3a 20  f2 4d 61 6b 65 50 61 74  |Y%*32 : .MakePat|
00005f60  68 28 43 68 61 72 29 20  3a 20 ed 0d 03 11 07 20  |h(Char) : ..... |
00005f70  20 ed 0d 03 12 36 20 20  43 68 75 6e 6b 4f 66 66  | ....6  ChunkOff|
00005f80  73 65 74 54 61 62 6c 65  21 28 4e 6f 4f 66 43 68  |setTable!(NoOfCh|
00005f90  75 6e 6b 73 2a 34 29 20  3d 20 46 50 74 72 20 2d  |unks*4) = FPtr -|
00005fa0  20 46 42 75 66 66 65 72  0d 03 13 05 e1 0d 03 14  | FBuffer........|
00005fb0  05 3a 0d 03 15 21 dd 20  f2 4d 61 6b 65 50 61 74  |.:...!. .MakePat|
00005fc0  68 28 43 68 61 72 29 20  3a 20 ea 20 58 2c 59 2c  |h(Char) : . X,Y,|
00005fd0  78 2c 79 0d 03 16 35 20  20 44 50 74 72 20 3d 20  |x,y...5  DPtr = |
00005fe0  70 61 74 68 70 74 72 25  28 43 68 61 72 29 20 3a  |pathptr%(Char) :|
00005ff0  20 49 50 74 72 20 3d 20  69 6e 63 6c 75 73 69 6f  | IPtr = inclusio|
00006000  6e 25 28 43 68 61 72 29  0d 03 17 13 20 20 e7 20  |n%(Char)....  . |
00006010  44 50 74 72 20 3c 3e 20  30 20 8c 0d 03 18 1c 20  |DPtr <> 0 ..... |
00006020  20 20 20 f2 50 61 74 68  48 65 61 64 65 72 28 44  |   .PathHeader(D|
00006030  50 74 72 2c 31 30 29 0d  03 19 32 20 20 20 20 44  |Ptr,10)...2    D|
00006040  50 74 72 20 2b 3d 20 33  36 20 3a 20 53 61 76 65  |Ptr += 36 : Save|
00006050  44 50 74 72 20 3d 20 44  50 74 72 20 3a 20 53 74  |DPtr = DPtr : St|
00006060  72 6f 6b 65 73 20 3d 20  a3 0d 03 1a 09 20 20 20  |rokes = .....   |
00006070  20 f5 0d 03 1b 1d 20 20  20 20 20 20 4e 65 78 74  | .....      Next|
00006080  44 50 74 72 20 3d 20 44  50 74 72 21 2d 31 32 0d  |DPtr = DPtr!-12.|
00006090  03 1c 0b 20 20 20 20 20  20 f5 0d 03 1d 3c 20 20  |...      ....<  |
000060a0  20 20 20 20 20 20 e7 20  a4 63 6c 6f 73 65 64 28  |      . .closed(|
000060b0  44 50 74 72 29 20 f2 4d  61 6b 65 53 75 62 50 61  |DPtr) .MakeSubPa|
000060c0  74 68 28 44 50 74 72 29  20 8b 20 f2 53 6b 69 70  |th(DPtr) . .Skip|
000060d0  28 44 50 74 72 29 0d 03  1e 16 20 20 20 20 20 20  |(DPtr)....      |
000060e0  fd 20 44 50 74 72 21 34  20 3d 20 30 0d 03 1f 1e  |. DPtr!4 = 0....|
000060f0  20 20 20 20 20 20 44 50  74 72 20 3d 20 4e 65 78  |      DPtr = Nex|
00006100  74 44 50 74 72 20 2b 20  33 36 0d 03 20 16 20 20  |tDPtr + 36.. .  |
00006110  20 20 fd 20 4e 65 78 74  44 50 74 72 20 3d 20 30  |  . NextDPtr = 0|
00006120  0d 03 21 13 20 20 20 20  e7 20 53 74 72 6f 6b 65  |..!.    . Stroke|
00006130  73 20 8c 0d 03 22 1f 20  20 20 20 20 20 3f 46 50  |s ...".      ?FP|
00006140  74 72 20 3d 20 34 20 3a  20 46 50 74 72 20 2b 3d  |tr = 4 : FPtr +=|
00006150  20 31 0d 03 23 19 20 20  20 20 20 20 44 50 74 72  | 1..#.      DPtr|
00006160  20 3d 20 53 61 76 65 44  50 74 72 0d 03 24 0b 20  | = SaveDPtr..$. |
00006170  20 20 20 20 20 f5 0d 03  25 1f 20 20 20 20 20 20  |     ...%.      |
00006180  20 20 4e 65 78 74 44 50  74 72 20 3d 20 44 50 74  |  NextDPtr = DPt|
00006190  72 21 2d 31 32 0d 03 26  0d 20 20 20 20 20 20 20  |r!-12..&.       |
000061a0  20 f5 0d 03 27 3c 20 20  20 20 20 20 20 20 e7 20  | ...'<        . |
000061b0  a4 63 6c 6f 73 65 64 28  44 50 74 72 29 20 f2 53  |.closed(DPtr) .S|
000061c0  6b 69 70 28 44 50 74 72  29 20 8b 20 f2 4d 61 6b  |kip(DPtr) . .Mak|
000061d0  65 53 75 62 50 61 74 68  28 44 50 74 72 29 0d 03  |eSubPath(DPtr)..|
000061e0  28 18 20 20 20 20 20 20  20 20 fd 20 44 50 74 72  |(.        . DPtr|
000061f0  21 34 20 3d 20 30 0d 03  29 20 20 20 20 20 20 20  |!4 = 0..)       |
00006200  20 20 44 50 74 72 20 3d  20 4e 65 78 74 44 50 74  |  DPtr = NextDPt|
00006210  72 20 2b 20 33 36 0d 03  2a 18 20 20 20 20 20 20  |r + 36..*.      |
00006220  fd 20 4e 65 78 74 44 50  74 72 20 3d 20 30 0d 03  |. NextDPtr = 0..|
00006230  2b 09 20 20 20 20 cd 0d  03 2c 1e 20 20 20 20 e7  |+.    ...,.    .|
00006240  20 49 50 74 72 20 f2 4d  61 6b 65 49 6e 63 6c 75  | IPtr .MakeInclu|
00006250  73 69 6f 6e 73 0d 03 2d  1d 20 20 20 20 21 46 50  |sions..-.    !FP|
00006260  74 72 20 3d 20 30 20 3a  20 46 50 74 72 20 2b 3d  |tr = 0 : FPtr +=|
00006270  20 31 0d 03 2e 25 20 20  20 20 46 50 74 72 20 3d  | 1...%    FPtr =|
00006280  20 28 46 50 74 72 20 2b  20 33 29 20 80 20 26 46  | (FPtr + 3) . &F|
00006290  46 46 46 46 46 46 43 0d  03 2f 07 20 20 cc 0d 03  |FFFFFFC../.  ...|
000062a0  30 15 20 20 20 20 e7 20  49 50 74 72 20 3c 3e 20  |0.    . IPtr <> |
000062b0  30 20 8c 0d 03 31 1d 20  20 20 20 20 20 f2 50 61  |0 ...1.      .Pa|
000062c0  74 68 48 65 61 64 65 72  28 49 50 74 72 2c 35 29  |thHeader(IPtr,5)|
000062d0  0d 03 32 19 20 20 20 20  20 20 f2 4d 61 6b 65 49  |..2.      .MakeI|
000062e0  6e 63 6c 75 73 69 6f 6e  73 0d 03 33 1f 20 20 20  |nclusions..3.   |
000062f0  20 20 20 21 46 50 74 72  20 3d 20 30 20 3a 20 46  |   !FPtr = 0 : F|
00006300  50 74 72 20 2b 3d 20 31  0d 03 34 27 20 20 20 20  |Ptr += 1..4'    |
00006310  20 20 46 50 74 72 20 3d  20 28 46 50 74 72 20 2b  |  FPtr = (FPtr +|
00006320  20 33 29 20 80 20 26 46  46 46 46 46 46 46 43 0d  | 3) . &FFFFFFFC.|
00006330  03 35 09 20 20 20 20 cc  0d 03 36 24 20 20 20 20  |.5.    ...6$    |
00006340  20 20 43 68 61 72 4f 66  66 73 65 74 54 61 62 6c  |  CharOffsetTabl|
00006350  65 21 28 58 25 2a 34 29  20 3d 20 30 0d 03 37 09  |e!(X%*4) = 0..7.|
00006360  20 20 20 20 cd 0d 03 38  07 20 20 cd 0d 03 39 05  |    ...8.  ...9.|
00006370  e1 0d 03 3a 05 3a 0d 03  3b 19 dd 20 f2 50 61 74  |...:.:..;.. .Pat|
00006380  68 48 65 61 64 65 72 28  44 50 74 72 2c 76 29 0d  |hHeader(DPtr,v).|
00006390  03 3c 17 20 20 20 20 f2  74 72 61 6e 73 6c 61 74  |.<.    .translat|
000063a0  69 6f 6e 28 76 29 0d 03  3d 37 20 20 20 20 43 68  |ion(v)..=7    Ch|
000063b0  61 72 4f 66 66 73 65 74  54 61 62 6c 65 21 28 58  |arOffsetTable!(X|
000063c0  25 2a 34 29 20 3d 20 46  50 74 72 20 2d 20 43 68  |%*4) = FPtr - Ch|
000063d0  75 6e 6b 4f 66 66 73 65  74 20 2d 20 34 0d 03 3e  |unkOffset - 4..>|
000063e0  11 20 20 20 20 21 46 50  74 72 20 3d 20 39 0d 03  |.    !FPtr = 9..|
000063f0  3f 50 20 20 20 20 46 50  74 72 21 31 20 3d 20 28  |?P    FPtr!1 = (|
00006400  28 44 50 74 72 21 38 2d  78 30 29 2f 39 36 20 80  |(DPtr!8-x0)/96 .|
00006410  20 26 46 46 46 29 20 2b  20 28 28 28 28 44 50 74  | &FFF) + ((((DPt|
00006420  72 21 31 32 2d 79 30 29  2f 39 36 29 20 3c 3c 20  |r!12-y0)/96) << |
00006430  31 32 29 20 80 20 26 46  46 46 30 30 30 29 0d 03  |12) . &FFF000)..|
00006440  40 5a 20 20 20 20 46 50  74 72 21 34 20 3d 20 28  |@Z    FPtr!4 = (|
00006450  28 44 50 74 72 21 31 36  2d 44 50 74 72 21 38 29  |(DPtr!16-DPtr!8)|
00006460  2f 39 36 20 80 20 26 46  46 46 29 20 2b 20 28 28  |/96 . &FFF) + ((|
00006470  28 28 44 50 74 72 21 32  30 2d 44 50 74 72 21 31  |((DPtr!20-DPtr!1|
00006480  32 29 2f 39 36 29 20 3c  3c 20 31 32 29 20 80 20  |2)/96) << 12) . |
00006490  26 46 46 46 30 30 30 29  0d 03 41 11 20 20 20 20  |&FFF000)..A.    |
000064a0  46 50 74 72 20 2b 3d 20  37 0d 03 42 05 e1 0d 03  |FPtr += 7..B....|
000064b0  43 05 3a 0d 03 44 15 dd  20 f2 4d 61 6b 65 49 6e  |C.:..D.. .MakeIn|
000064c0  63 6c 75 73 69 6f 6e 73  0d 03 45 19 3f 46 50 74  |clusions..E.?FPt|
000064d0  72 20 3d 20 38 20 3a 20  46 50 74 72 20 2b 3d 20  |r = 8 : FPtr += |
000064e0  31 0d 03 46 05 f5 0d 03  47 4a 20 20 e7 20 49 50  |1..F....GJ  . IP|
000064f0  74 72 3f 35 34 20 3d 20  30 20 43 68 61 72 71 20  |tr?54 = 0 Charq |
00006500  3d 20 49 50 74 72 3f 35  33 20 8b 20 43 68 61 72  |= IPtr?53 . Char|
00006510  71 20 3d 20 a0 28 22 26  22 2b bd 28 49 50 74 72  |q = .("&"+.(IPtr|
00006520  3f 35 33 29 2b bd 28 49  50 74 72 3f 35 34 29 29  |?53)+.(IPtr?54))|
00006530  0d 03 48 55 20 20 3f 46  50 74 72 20 3d 20 43 68  |..HU  ?FPtr = Ch|
00006540  61 72 71 20 3a 20 43 68  75 6e 6b 71 20 3d 20 43  |arq : Chunkq = C|
00006550  68 61 72 71 20 81 20 33  32 20 3a 20 21 44 65 70  |harq . 32 : !Dep|
00006560  65 6e 64 65 6e 63 79 20  3d 20 21 44 65 70 65 6e  |endency = !Depen|
00006570  64 65 6e 63 79 20 84 20  28 31 20 3c 3c 20 43 68  |dency . (1 << Ch|
00006580  75 6e 6b 71 29 0d 03 49  42 20 20 46 50 74 72 20  |unkq)..IB  FPtr |
00006590  2b 3d 20 31 20 3a 20 44  50 74 72 20 3d 20 49 50  |+= 1 : DPtr = IP|
000065a0  74 72 20 2b 20 34 30 20  3a 20 21 46 50 74 72 20  |tr + 40 : !FPtr |
000065b0  3d 20 a4 78 79 28 44 50  74 72 29 20 3a 20 46 50  |= .xy(DPtr) : FP|
000065c0  74 72 20 2b 3d 20 33 0d  03 4a 14 20 20 49 50 74  |tr += 3..J.  IPt|
000065d0  72 20 3d 20 49 50 74 72  21 32 34 0d 03 4b 0e fd  |r = IPtr!24..K..|
000065e0  20 49 50 74 72 20 3d 20  30 0d 03 4c 05 e1 0d 03  | IPtr = 0..L....|
000065f0  4d 05 3a 0d 03 4e 17 dd  20 f2 4d 61 6b 65 53 75  |M.:..N.. .MakeSu|
00006600  62 50 61 74 68 28 f8 20  41 29 0d 03 4f 07 20 20  |bPath(. A)..O.  |
00006610  f5 0d 03 50 0e 20 20 20  20 41 20 2b 3d 20 34 0d  |...P.    A += 4.|
00006620  03 51 0f 20 20 20 20 c8  8e 20 21 41 20 ca 0d 03  |.Q.    .. !A ...|
00006630  52 42 20 20 20 20 20 20  c9 20 32 20 3a 20 3f 46  |RB      . 2 : ?F|
00006640  50 74 72 20 3d 20 31 20  3a 20 46 50 74 72 20 2b  |Ptr = 1 : FPtr +|
00006650  3d 20 31 20 3a 20 21 46  50 74 72 20 3d 20 a4 78  |= 1 : !FPtr = .x|
00006660  79 28 41 29 20 3a 20 46  50 74 72 20 2b 3d 20 33  |y(A) : FPtr += 3|
00006670  0d 03 53 42 20 20 20 20  20 20 c9 20 36 20 3a 20  |..SB      . 6 : |
00006680  3f 46 50 74 72 20 3d 20  33 20 3a 20 46 50 74 72  |?FPtr = 3 : FPtr|
00006690  20 2b 3d 20 31 20 3a 20  21 46 50 74 72 20 3d 20  | += 1 : !FPtr = |
000066a0  a4 78 79 28 41 29 20 3a  20 46 50 74 72 20 2b 3d  |.xy(A) : FPtr +=|
000066b0  20 33 0d 03 54 4a 20 20  20 20 20 20 20 20 20 20  | 3..TJ          |
000066c0  20 20 20 20 20 21 46 50  74 72 20 3d 20 a4 78 79  |     !FPtr = .xy|
000066d0  28 41 29 20 3a 20 46 50  74 72 20 2b 3d 20 33 20  |(A) : FPtr += 3 |
000066e0  3a 20 21 46 50 74 72 20  3d 20 a4 78 79 28 41 29  |: !FPtr = .xy(A)|
000066f0  20 3a 20 46 50 74 72 20  2b 3d 20 33 0d 03 55 42  | : FPtr += 3..UB|
00006700  20 20 20 20 20 20 c9 20  38 20 3a 20 3f 46 50 74  |      . 8 : ?FPt|
00006710  72 20 3d 20 32 20 3a 20  46 50 74 72 20 2b 3d 20  |r = 2 : FPtr += |
00006720  31 20 3a 20 21 46 50 74  72 20 3d 20 a4 78 79 28  |1 : !FPtr = .xy(|
00006730  41 29 20 3a 20 46 50 74  72 20 2b 3d 20 33 0d 03  |A) : FPtr += 3..|
00006740  56 09 20 20 20 20 cb 0d  03 57 17 20 20 fd 20 21  |V.    ...W.  . !|
00006750  41 20 3d 20 30 20 84 20  21 41 20 3d 20 35 0d 03  |A = 0 . !A = 5..|
00006760  58 15 20 20 e7 20 21 41  20 3d 20 30 20 41 20 2d  |X.  . !A = 0 A -|
00006770  3d 20 34 0d 03 59 05 e1  0d 03 5a 05 3a 0d 03 5b  |= 4..Y....Z.:..[|
00006780  10 dd 20 f2 53 6b 69 70  28 f8 20 41 29 0d 03 5c  |.. .Skip(. A)..\|
00006790  0c 20 20 41 20 2b 3d 20  34 0d 03 5d 07 20 20 f5  |.  A += 4..].  .|
000067a0  0d 03 5e 0f 20 20 20 20  c8 8e 20 21 41 20 ca 0d  |..^.    .. !A ..|
000067b0  03 5f 19 20 20 20 20 20  20 c9 20 32 2c 38 20 3a  |._.      . 2,8 :|
000067c0  20 41 20 2b 3d 20 31 32  0d 03 60 19 20 20 20 20  | A += 12..`.    |
000067d0  20 20 c9 20 36 20 20 20  3a 20 41 20 2b 3d 20 32  |  . 6   : A += 2|
000067e0  38 0d 03 61 09 20 20 20  20 cb 0d 03 62 17 20 20  |8..a.    ...b.  |
000067f0  fd 20 21 41 20 3d 20 30  20 84 20 21 41 20 3d 20  |. !A = 0 . !A = |
00006800  35 0d 03 63 23 20 20 e7  20 21 41 20 3d 20 30 20  |5..c#  . !A = 0 |
00006810  53 74 72 6f 6b 65 73 20  3d 20 b9 20 3a 20 41 20  |Strokes = . : A |
00006820  2d 3d 20 34 0d 03 64 05  e1 0d 03 65 05 3a 0d 03  |-= 4..d....e.:..|
00006830  66 10 dd 20 a4 63 6c 6f  73 65 64 28 41 29 0d 03  |f.. .closed(A)..|
00006840  67 0c 20 20 41 20 2b 3d  20 34 0d 03 68 07 20 20  |g.  A += 4..h.  |
00006850  f5 0d 03 69 0f 20 20 20  20 c8 8e 20 21 41 20 ca  |...i.    .. !A .|
00006860  0d 03 6a 19 20 20 20 20  20 20 c9 20 32 2c 38 20  |..j.      . 2,8 |
00006870  3a 20 41 20 2b 3d 20 31  32 0d 03 6b 19 20 20 20  |: A += 12..k.   |
00006880  20 20 20 c9 20 36 20 20  20 3a 20 41 20 2b 3d 20  |   . 6   : A += |
00006890  32 38 0d 03 6c 09 20 20  20 20 cb 0d 03 6d 17 20  |28..l.    ...m. |
000068a0  20 fd 20 21 41 20 3d 20  30 20 84 20 21 41 20 3d  | . !A = 0 . !A =|
000068b0  20 35 0d 03 6e 0e 3d 20  28 21 41 20 3d 20 35 29  | 5..n.= (!A = 5)|
000068c0  0d 03 6f 05 3a 0d 03 70  0e dd 20 a4 78 79 28 f8  |..o.:..p.. .xy(.|
000068d0  20 41 29 0d 03 71 58 78  25 20 3d 20 30 2e 35 2a  | A)..qXx% = 0.5*|
000068e0  b4 28 41 21 34 20 2d 20  78 30 29 20 2b 20 28 41  |.(A!4 - x0) + (A|
000068f0  21 34 20 2d 20 78 30 29  2f 39 36 20 3a 20 79 25  |!4 - x0)/96 : y%|
00006900  20 3d 20 30 2e 35 2a b4  28 41 21 38 20 2d 20 79  | = 0.5*.(A!8 - y|
00006910  30 29 20 2b 20 28 41 21  38 20 2d 20 79 30 29 2f  |0) + (A!8 - y0)/|
00006920  39 36 20 3a 20 41 20 2b  3d 20 38 0d 03 72 2a 3d  |96 : A += 8..r*=|
00006930  20 28 78 25 20 80 20 26  46 46 46 29 20 2b 20 28  | (x% . &FFF) + (|
00006940  28 79 25 20 3c 3c 20 31  32 29 20 80 20 26 46 46  |(y% << 12) . &FF|
00006950  46 30 30 30 29 0d 03 73  05 3a 0d ff              |F000)..s.:..|
0000695c