� >4bppToFont
� By Dave Lawrence
� for *info May 1995
!� � � � �,�$+" at line "+Þ:�
	�init
(� "Sprite file : 4bpp."in$
2� "Font family "fam$
<!in=�load_sprites("4bpp."+in$)
F"� font 32*1024,metrics 32*1024
P� i=0 � 32*1024-1 � 4
Z
 font!i=0
d metrics!i=0
n�
x
�info$=�name(in,1)
�xsize=�get("x",info$)
�ysize=�get("y",info$)
�point=�get("s",info$)
�depth=�get("d",info$)
�� "xsize = ";xsize
�� "ysize = ";ysize
�� "point = ";point
�� "depth = ";depth
�font_name$=fam$+"."+in$
�
��font_header
��metrics_header



� char=0 � 255

 name$=�"00"+�~char,2)+":"

"4 � char>31 � char<>127 name$+=�char � name$+="*"

, 

6( ș xspop,&128,in,name$ � ,,,w,h ; f

@ � (f � 1)=0 �

J  � h<>ysize � 1,"h<>ysize"

T  off=font_ptr-font_offset

^  � �name$,1);

h �

r  off=0

|
  � 32

� �

� 

�% font_offset?(char*2) = off � 256

�% font_offset?(char*2+1)=off � 256

� 

� � off<>0 �

�  font_ptr?0 = 0

�  font_ptr?1 = 0 : � -depth

�  font_ptr?2 = w

�#  font_ptr?3 = ysize : � -depth

�  font_ptr+=4

�  

�  � graphics...

  byte=-1
  � y=0 � h-1
   � x=0 � w-1
&*    ș spop,&129,in,name$,x,y � ,,,,,p
0    � byte<0 �
:     byte=p
D	    �
N      ?font_ptr=byte � (p<<4)
X     font_ptr+=1
b     byte=-1
l	    �
v   �
�  �
�+  � byte<>-1 ?font_ptr=byte:font_ptr+=1
�#  font_ptr=(font_ptr + 3) � � 3
� 
�&  char_map?char = entry : entry+=1
�  �em(met_boxes+0, 0)
�  �em(met_boxes+2, -depth)
�  �em(met_boxes+4, w)
�#  �em(met_boxes+6, ysize-depth)
�  met_boxes+=8
�  
�  �em(met_xoff, w)
�  met_xoff+=2
  �em(met_yoff, 0)
  met_yoff+=2
  
  �
* 
4 � (char+1) � 32 =0 �
> 
H�
R font!12= font_ptr-pixel_data
\�"CDir "+font_dir$+"."+fam$
f%�"CDir "+font_dir$+"."+font_name$
p�"CDir "+font_dir$+"."+fam$
z%�"CDir "+font_dir$+"."+font_name$
�Jș "OS_File",10,font_dir$+"."+font_name$+".x90y45",&FF6,,font,font_ptr
�Pș "OS_File",10,font_dir$+"."+font_name$+".IntMetrics",&FF6,,metrics,met_end
��
�
�
�� �font_header
�font?0 = point
�font?1 = 4
�font?2 = xdpi
�font?3 = ydpi
�font!4 = 0
�font!8 = 0 : � offset
�font!12= 0 : � length
#font!16=0 : � 1 byte terminator
pixel_data=font+20

$font_ptr=pixel_data
.font!8=font_ptr-font
8
Bfont_ptr!0  = point*16*xdpi
Lfont_ptr!4  = point*16*ydpi
Vfont_ptr!8  = xdpi
`font_ptr!12 = ydpi
jfont_ptr?16 = 0
tfont_ptr?17 = 0 : � -depth
~font_ptr?18 = xsize
�!font_ptr?19 = ysize : �-depth
�font_offset = font_ptr+20
�#char_data   = font_offset + 512
�'font_ptr    = char_data : � not +4!
��
�
�
�� �metrics_header
�%$metrics=�font_name$+�80,�13),40)
�metrics!40=16
�metrics!44=16
�metrics?48=met_n � 256
metrics?49=2 : � version

metrics?50=0 : � flags
metrics?51=met_n � 256
char_map=metrics+52
(met_boxes=char_map+256
2met_xoff=met_boxes+8*met_n
<met_yoff=met_xoff+2*met_n
Fmet_end=met_yoff+2*met_n
P
entry=1-1
Z�
d
n
x� �init
�5ș "OS_SWINumberFromString",,"OS_SpriteOp" � spop
�7ș "OS_SWINumberFromString",,"XOS_SpriteOp" � xspop
�0font_dir$="ADFS::4.$.!Boot.Resources.!Fonts"
�
� buf 256
�xdpi=90
�ydpi=90
�met_n = 256
�met_m = 256
��
�
�� �leaf(a$)
�� �a$,".")=0 � =a$
�	b$=""
ȕ �a$,1)<>"."
 b$=�a$,1)+b$
 a$=�a$)
"�
,=b$
6
@� �path(a$)
J� �a$,".")=0 � =a$
T	b$=a$
^ȕ �b$,1)<>"."
h b$=�b$)
r�
|	=�b$)
�
�� �load_sprites(a$)
�in_size=�size(a$)
�� a in_size+256
�!a=in_size+256
�
a!8=16
�ș spop,&109,a
�ș spop,&10A,a,a$
�=a
�
�� �size(a$)
� ș "OS_File",5,a$ � ,,,,size
�	=size

� �name(a,n)
%ș spop,&10D,a,buf,256,n � ,,,len
&buf?len=13
0	=$buf
:
D� �get(l$,s$)
N=��s$,�s$,l$)+1)
X
b� �em(addr,val)
l"val=(1000*val*72)/(xdpi*point)
vaddr?0=(65536+val) � 256
�addr?1=(65536+val) � 256
��
�

00000000  0d 00 0a 11 f4 20 3e 34  62 70 70 54 6f 46 6f 6e  |..... >4bppToFon|
00000010  74 0d 00 0b 16 f4 20 42  79 20 44 61 76 65 20 4c  |t..... By Dave L|
00000020  61 77 72 65 6e 63 65 0d  00 0c 18 f4 20 66 6f 72  |awrence..... for|
00000030  20 2a 69 6e 66 6f 20 4d  61 79 20 31 39 39 35 0d  | *info May 1995.|
00000040  00 14 21 ee 20 85 20 85  20 a2 20 9f 2c f6 24 2b  |..!. . . . .,.$+|
00000050  22 20 61 74 20 6c 69 6e  65 20 22 2b c3 9e 3a e0  |" at line "+..:.|
00000060  0d 00 1e 09 f2 69 6e 69  74 0d 00 28 1e e8 20 22  |.....init..(.. "|
00000070  53 70 72 69 74 65 20 66  69 6c 65 20 3a 20 34 62  |Sprite file : 4b|
00000080  70 70 2e 22 69 6e 24 0d  00 32 18 e8 20 22 46 6f  |pp."in$..2.. "Fo|
00000090  6e 74 20 66 61 6d 69 6c  79 20 22 66 61 6d 24 0d  |nt family "fam$.|
000000a0  00 3c 21 69 6e 3d a4 6c  6f 61 64 5f 73 70 72 69  |.<!in=.load_spri|
000000b0  74 65 73 28 22 34 62 70  70 2e 22 2b 69 6e 24 29  |tes("4bpp."+in$)|
000000c0  0d 00 46 22 de 20 66 6f  6e 74 20 33 32 2a 31 30  |..F". font 32*10|
000000d0  32 34 2c 6d 65 74 72 69  63 73 20 33 32 2a 31 30  |24,metrics 32*10|
000000e0  32 34 0d 00 50 19 e3 20  69 3d 30 20 b8 20 33 32  |24..P.. i=0 . 32|
000000f0  2a 31 30 32 34 2d 31 20  88 20 34 0d 00 5a 0d 20  |*1024-1 . 4..Z. |
00000100  66 6f 6e 74 21 69 3d 30  0d 00 64 10 20 6d 65 74  |font!i=0..d. met|
00000110  72 69 63 73 21 69 3d 30  0d 00 6e 05 ed 0d 00 78  |rics!i=0..n....x|
00000120  04 0d 00 82 15 69 6e 66  6f 24 3d a4 6e 61 6d 65  |.....info$=.name|
00000130  28 69 6e 2c 31 29 0d 00  8c 19 78 73 69 7a 65 3d  |(in,1)....xsize=|
00000140  a4 67 65 74 28 22 78 22  2c 69 6e 66 6f 24 29 0d  |.get("x",info$).|
00000150  00 96 19 79 73 69 7a 65  3d a4 67 65 74 28 22 79  |...ysize=.get("y|
00000160  22 2c 69 6e 66 6f 24 29  0d 00 a0 19 70 6f 69 6e  |",info$)....poin|
00000170  74 3d a4 67 65 74 28 22  73 22 2c 69 6e 66 6f 24  |t=.get("s",info$|
00000180  29 0d 00 aa 19 64 65 70  74 68 3d a4 67 65 74 28  |)....depth=.get(|
00000190  22 64 22 2c 69 6e 66 6f  24 29 0d 00 b4 16 f1 20  |"d",info$)..... |
000001a0  22 78 73 69 7a 65 20 3d  20 22 3b 78 73 69 7a 65  |"xsize = ";xsize|
000001b0  0d 00 be 16 f1 20 22 79  73 69 7a 65 20 3d 20 22  |..... "ysize = "|
000001c0  3b 79 73 69 7a 65 0d 00  c8 16 f1 20 22 70 6f 69  |;ysize..... "poi|
000001d0  6e 74 20 3d 20 22 3b 70  6f 69 6e 74 0d 00 d2 16  |nt = ";point....|
000001e0  f1 20 22 64 65 70 74 68  20 3d 20 22 3b 64 65 70  |. "depth = ";dep|
000001f0  74 68 0d 00 dc 1b 66 6f  6e 74 5f 6e 61 6d 65 24  |th....font_name$|
00000200  3d 66 61 6d 24 2b 22 2e  22 2b 69 6e 24 0d 00 e6  |=fam$+"."+in$...|
00000210  04 0d 00 f0 10 f2 66 6f  6e 74 5f 68 65 61 64 65  |......font_heade|
00000220  72 0d 00 fa 13 f2 6d 65  74 72 69 63 73 5f 68 65  |r.....metrics_he|
00000230  61 64 65 72 0d 01 04 04  0d 01 0e 12 e3 20 63 68  |ader......... ch|
00000240  61 72 3d 30 20 b8 20 32  35 35 0d 01 18 1e 20 6e  |ar=0 . 255.... n|
00000250  61 6d 65 24 3d c2 22 30  30 22 2b c3 7e 63 68 61  |ame$=."00"+.~cha|
00000260  72 2c 32 29 2b 22 3a 22  0d 01 22 34 20 e7 20 63  |r,2)+":".."4 . c|
00000270  68 61 72 3e 33 31 20 80  20 63 68 61 72 3c 3e 31  |har>31 . char<>1|
00000280  32 37 20 6e 61 6d 65 24  2b 3d bd 63 68 61 72 20  |27 name$+=.char |
00000290  8b 20 6e 61 6d 65 24 2b  3d 22 2a 22 0d 01 2c 05  |. name$+="*"..,.|
000002a0  20 0d 01 36 28 20 c8 99  20 78 73 70 6f 70 2c 26  | ..6( .. xspop,&|
000002b0  31 32 38 2c 69 6e 2c 6e  61 6d 65 24 20 b8 20 2c  |128,in,name$ . ,|
000002c0  2c 2c 77 2c 68 20 3b 20  66 0d 01 40 12 20 e7 20  |,,w,h ; f..@. . |
000002d0  28 66 20 80 20 31 29 3d  30 20 8c 0d 01 4a 1f 20  |(f . 1)=0 ...J. |
000002e0  20 e7 20 68 3c 3e 79 73  69 7a 65 20 85 20 31 2c  | . h<>ysize . 1,|
000002f0  22 68 3c 3e 79 73 69 7a  65 22 0d 01 54 1e 20 20  |"h<>ysize"..T.  |
00000300  6f 66 66 3d 66 6f 6e 74  5f 70 74 72 2d 66 6f 6e  |off=font_ptr-fon|
00000310  74 5f 6f 66 66 73 65 74  0d 01 5e 12 20 20 f1 20  |t_offset..^.  . |
00000320  c2 6e 61 6d 65 24 2c 31  29 3b 0d 01 68 06 20 cc  |.name$,1);..h. .|
00000330  0d 01 72 0b 20 20 6f 66  66 3d 30 0d 01 7c 0a 20  |..r.  off=0..|. |
00000340  20 ef 20 33 32 0d 01 86  06 20 cd 0d 01 90 05 20  | . 32.... ..... |
00000350  0d 01 9a 25 20 66 6f 6e  74 5f 6f 66 66 73 65 74  |...% font_offset|
00000360  3f 28 63 68 61 72 2a 32  29 20 3d 20 6f 66 66 20  |?(char*2) = off |
00000370  83 20 32 35 36 0d 01 a4  25 20 66 6f 6e 74 5f 6f  |. 256...% font_o|
00000380  66 66 73 65 74 3f 28 63  68 61 72 2a 32 2b 31 29  |ffset?(char*2+1)|
00000390  3d 6f 66 66 20 81 20 32  35 36 0d 01 ae 05 20 0d  |=off . 256.... .|
000003a0  01 b8 0f 20 e7 20 6f 66  66 3c 3e 30 20 8c 0d 01  |... . off<>0 ...|
000003b0  c2 14 20 20 66 6f 6e 74  5f 70 74 72 3f 30 20 3d  |..  font_ptr?0 =|
000003c0  20 30 0d 01 cc 1f 20 20  66 6f 6e 74 5f 70 74 72  | 0....  font_ptr|
000003d0  3f 31 20 3d 20 30 20 3a  20 f4 20 2d 64 65 70 74  |?1 = 0 : . -dept|
000003e0  68 0d 01 d6 14 20 20 66  6f 6e 74 5f 70 74 72 3f  |h....  font_ptr?|
000003f0  32 20 3d 20 77 0d 01 e0  23 20 20 66 6f 6e 74 5f  |2 = w...#  font_|
00000400  70 74 72 3f 33 20 3d 20  79 73 69 7a 65 20 3a 20  |ptr?3 = ysize : |
00000410  f4 20 2d 64 65 70 74 68  0d 01 ea 11 20 20 66 6f  |. -depth....  fo|
00000420  6e 74 5f 70 74 72 2b 3d  34 0d 01 f4 06 20 20 0d  |nt_ptr+=4....  .|
00000430  01 fe 13 20 20 f4 20 67  72 61 70 68 69 63 73 2e  |...  . graphics.|
00000440  2e 2e 0d 02 08 0d 20 20  62 79 74 65 3d 2d 31 0d  |......  byte=-1.|
00000450  02 12 11 20 20 e3 20 79  3d 30 20 b8 20 68 2d 31  |...  . y=0 . h-1|
00000460  0d 02 1c 12 20 20 20 e3  20 78 3d 30 20 b8 20 77  |....   . x=0 . w|
00000470  2d 31 0d 02 26 2a 20 20  20 20 c8 99 20 73 70 6f  |-1..&*    .. spo|
00000480  70 2c 26 31 32 39 2c 69  6e 2c 6e 61 6d 65 24 2c  |p,&129,in,name$,|
00000490  78 2c 79 20 b8 20 2c 2c  2c 2c 2c 70 0d 02 30 12  |x,y . ,,,,,p..0.|
000004a0  20 20 20 20 e7 20 62 79  74 65 3c 30 20 8c 0d 02  |    . byte<0 ...|
000004b0  3a 0f 20 20 20 20 20 62  79 74 65 3d 70 0d 02 44  |:.     byte=p..D|
000004c0  09 20 20 20 20 cc 0d 02  4e 20 20 20 20 20 20 3f  |.    ...N      ?|
000004d0  66 6f 6e 74 5f 70 74 72  3d 62 79 74 65 20 84 20  |font_ptr=byte . |
000004e0  28 70 3c 3c 34 29 0d 02  58 14 20 20 20 20 20 66  |(p<<4)..X.     f|
000004f0  6f 6e 74 5f 70 74 72 2b  3d 31 0d 02 62 10 20 20  |ont_ptr+=1..b.  |
00000500  20 20 20 62 79 74 65 3d  2d 31 0d 02 6c 09 20 20  |   byte=-1..l.  |
00000510  20 20 cd 0d 02 76 08 20  20 20 ed 0d 02 80 07 20  |  ...v.   ..... |
00000520  20 ed 0d 02 8a 2b 20 20  e7 20 62 79 74 65 3c 3e  | ....+  . byte<>|
00000530  2d 31 20 3f 66 6f 6e 74  5f 70 74 72 3d 62 79 74  |-1 ?font_ptr=byt|
00000540  65 3a 66 6f 6e 74 5f 70  74 72 2b 3d 31 0d 02 94  |e:font_ptr+=1...|
00000550  23 20 20 66 6f 6e 74 5f  70 74 72 3d 28 66 6f 6e  |#  font_ptr=(fon|
00000560  74 5f 70 74 72 20 2b 20  33 29 20 80 20 ac 20 33  |t_ptr + 3) . . 3|
00000570  0d 02 9e 05 20 0d 02 a8  26 20 20 63 68 61 72 5f  |.... ...&  char_|
00000580  6d 61 70 3f 63 68 61 72  20 3d 20 65 6e 74 72 79  |map?char = entry|
00000590  20 3a 20 65 6e 74 72 79  2b 3d 31 0d 02 b2 19 20  | : entry+=1.... |
000005a0  20 f2 65 6d 28 6d 65 74  5f 62 6f 78 65 73 2b 30  | .em(met_boxes+0|
000005b0  2c 20 30 29 0d 02 bc 1e  20 20 f2 65 6d 28 6d 65  |, 0)....  .em(me|
000005c0  74 5f 62 6f 78 65 73 2b  32 2c 20 2d 64 65 70 74  |t_boxes+2, -dept|
000005d0  68 29 0d 02 c6 19 20 20  f2 65 6d 28 6d 65 74 5f  |h)....  .em(met_|
000005e0  62 6f 78 65 73 2b 34 2c  20 77 29 0d 02 d0 23 20  |boxes+4, w)...# |
000005f0  20 f2 65 6d 28 6d 65 74  5f 62 6f 78 65 73 2b 36  | .em(met_boxes+6|
00000600  2c 20 79 73 69 7a 65 2d  64 65 70 74 68 29 0d 02  |, ysize-depth)..|
00000610  da 12 20 20 6d 65 74 5f  62 6f 78 65 73 2b 3d 38  |..  met_boxes+=8|
00000620  0d 02 e4 06 20 20 0d 02  ee 16 20 20 f2 65 6d 28  |....  ....  .em(|
00000630  6d 65 74 5f 78 6f 66 66  2c 20 77 29 0d 02 f8 11  |met_xoff, w)....|
00000640  20 20 6d 65 74 5f 78 6f  66 66 2b 3d 32 0d 03 02  |  met_xoff+=2...|
00000650  16 20 20 f2 65 6d 28 6d  65 74 5f 79 6f 66 66 2c  |.  .em(met_yoff,|
00000660  20 30 29 0d 03 0c 11 20  20 6d 65 74 5f 79 6f 66  | 0)....  met_yof|
00000670  66 2b 3d 32 0d 03 16 06  20 20 0d 03 20 06 20 cd  |f+=2....  .. . .|
00000680  0d 03 2a 05 20 0d 03 34  19 20 e7 20 28 63 68 61  |..*. ..4. . (cha|
00000690  72 2b 31 29 20 83 20 33  32 20 3d 30 20 f1 0d 03  |r+1) . 32 =0 ...|
000006a0  3e 05 20 0d 03 48 05 ed  0d 03 52 20 66 6f 6e 74  |>. ..H....R font|
000006b0  21 31 32 3d 20 66 6f 6e  74 5f 70 74 72 2d 70 69  |!12= font_ptr-pi|
000006c0  78 65 6c 5f 64 61 74 61  0d 03 5c 1f f1 22 43 44  |xel_data..\.."CD|
000006d0  69 72 20 22 2b 66 6f 6e  74 5f 64 69 72 24 2b 22  |ir "+font_dir$+"|
000006e0  2e 22 2b 66 61 6d 24 0d  03 66 25 f1 22 43 44 69  |."+fam$..f%."CDi|
000006f0  72 20 22 2b 66 6f 6e 74  5f 64 69 72 24 2b 22 2e  |r "+font_dir$+".|
00000700  22 2b 66 6f 6e 74 5f 6e  61 6d 65 24 0d 03 70 1f  |"+font_name$..p.|
00000710  ff 22 43 44 69 72 20 22  2b 66 6f 6e 74 5f 64 69  |."CDir "+font_di|
00000720  72 24 2b 22 2e 22 2b 66  61 6d 24 0d 03 7a 25 ff  |r$+"."+fam$..z%.|
00000730  22 43 44 69 72 20 22 2b  66 6f 6e 74 5f 64 69 72  |"CDir "+font_dir|
00000740  24 2b 22 2e 22 2b 66 6f  6e 74 5f 6e 61 6d 65 24  |$+"."+font_name$|
00000750  0d 03 84 4a c8 99 20 22  4f 53 5f 46 69 6c 65 22  |...J.. "OS_File"|
00000760  2c 31 30 2c 66 6f 6e 74  5f 64 69 72 24 2b 22 2e  |,10,font_dir$+".|
00000770  22 2b 66 6f 6e 74 5f 6e  61 6d 65 24 2b 22 2e 78  |"+font_name$+".x|
00000780  39 30 79 34 35 22 2c 26  46 46 36 2c 2c 66 6f 6e  |90y45",&FF6,,fon|
00000790  74 2c 66 6f 6e 74 5f 70  74 72 0d 03 8e 50 c8 99  |t,font_ptr...P..|
000007a0  20 22 4f 53 5f 46 69 6c  65 22 2c 31 30 2c 66 6f  | "OS_File",10,fo|
000007b0  6e 74 5f 64 69 72 24 2b  22 2e 22 2b 66 6f 6e 74  |nt_dir$+"."+font|
000007c0  5f 6e 61 6d 65 24 2b 22  2e 49 6e 74 4d 65 74 72  |_name$+".IntMetr|
000007d0  69 63 73 22 2c 26 46 46  36 2c 2c 6d 65 74 72 69  |ics",&FF6,,metri|
000007e0  63 73 2c 6d 65 74 5f 65  6e 64 0d 03 98 05 e0 0d  |cs,met_end......|
000007f0  03 a2 04 0d 03 ac 04 0d  03 b6 12 dd 20 f2 66 6f  |............ .fo|
00000800  6e 74 5f 68 65 61 64 65  72 0d 03 c0 12 66 6f 6e  |nt_header....fon|
00000810  74 3f 30 20 3d 20 70 6f  69 6e 74 0d 03 ca 0e 66  |t?0 = point....f|
00000820  6f 6e 74 3f 31 20 3d 20  34 0d 03 d4 11 66 6f 6e  |ont?1 = 4....fon|
00000830  74 3f 32 20 3d 20 78 64  70 69 0d 03 de 11 66 6f  |t?2 = xdpi....fo|
00000840  6e 74 3f 33 20 3d 20 79  64 70 69 0d 03 e8 0e 66  |nt?3 = ydpi....f|
00000850  6f 6e 74 21 34 20 3d 20  30 0d 03 f2 19 66 6f 6e  |ont!4 = 0....fon|
00000860  74 21 38 20 3d 20 30 20  3a 20 f4 20 6f 66 66 73  |t!8 = 0 : . offs|
00000870  65 74 0d 03 fc 19 66 6f  6e 74 21 31 32 3d 20 30  |et....font!12= 0|
00000880  20 3a 20 f4 20 6c 65 6e  67 74 68 0d 04 06 23 66  | : . length...#f|
00000890  6f 6e 74 21 31 36 3d 30  20 3a 20 f4 20 31 20 62  |ont!16=0 : . 1 b|
000008a0  79 74 65 20 74 65 72 6d  69 6e 61 74 6f 72 0d 04  |yte terminator..|
000008b0  10 16 70 69 78 65 6c 5f  64 61 74 61 3d 66 6f 6e  |..pixel_data=fon|
000008c0  74 2b 32 30 0d 04 1a 04  0d 04 24 17 66 6f 6e 74  |t+20......$.font|
000008d0  5f 70 74 72 3d 70 69 78  65 6c 5f 64 61 74 61 0d  |_ptr=pixel_data.|
000008e0  04 2e 18 66 6f 6e 74 21  38 3d 66 6f 6e 74 5f 70  |...font!8=font_p|
000008f0  74 72 2d 66 6f 6e 74 0d  04 38 04 0d 04 42 1f 66  |tr-font..8...B.f|
00000900  6f 6e 74 5f 70 74 72 21  30 20 20 3d 20 70 6f 69  |ont_ptr!0  = poi|
00000910  6e 74 2a 31 36 2a 78 64  70 69 0d 04 4c 1f 66 6f  |nt*16*xdpi..L.fo|
00000920  6e 74 5f 70 74 72 21 34  20 20 3d 20 70 6f 69 6e  |nt_ptr!4  = poin|
00000930  74 2a 31 36 2a 79 64 70  69 0d 04 56 16 66 6f 6e  |t*16*ydpi..V.fon|
00000940  74 5f 70 74 72 21 38 20  20 3d 20 78 64 70 69 0d  |t_ptr!8  = xdpi.|
00000950  04 60 16 66 6f 6e 74 5f  70 74 72 21 31 32 20 3d  |.`.font_ptr!12 =|
00000960  20 79 64 70 69 0d 04 6a  13 66 6f 6e 74 5f 70 74  | ydpi..j.font_pt|
00000970  72 3f 31 36 20 3d 20 30  0d 04 74 1e 66 6f 6e 74  |r?16 = 0..t.font|
00000980  5f 70 74 72 3f 31 37 20  3d 20 30 20 3a 20 f4 20  |_ptr?17 = 0 : . |
00000990  2d 64 65 70 74 68 0d 04  7e 17 66 6f 6e 74 5f 70  |-depth..~.font_p|
000009a0  74 72 3f 31 38 20 3d 20  78 73 69 7a 65 0d 04 88  |tr?18 = xsize...|
000009b0  21 66 6f 6e 74 5f 70 74  72 3f 31 39 20 3d 20 79  |!font_ptr?19 = y|
000009c0  73 69 7a 65 20 3a 20 f4  2d 64 65 70 74 68 0d 04  |size : .-depth..|
000009d0  92 1d 66 6f 6e 74 5f 6f  66 66 73 65 74 20 3d 20  |..font_offset = |
000009e0  66 6f 6e 74 5f 70 74 72  2b 32 30 0d 04 9c 23 63  |font_ptr+20...#c|
000009f0  68 61 72 5f 64 61 74 61  20 20 20 3d 20 66 6f 6e  |har_data   = fon|
00000a00  74 5f 6f 66 66 73 65 74  20 2b 20 35 31 32 0d 04  |t_offset + 512..|
00000a10  a6 27 66 6f 6e 74 5f 70  74 72 20 20 20 20 3d 20  |.'font_ptr    = |
00000a20  63 68 61 72 5f 64 61 74  61 20 3a 20 f4 20 6e 6f  |char_data : . no|
00000a30  74 20 2b 34 21 0d 04 b0  05 e1 0d 04 ba 04 0d 04  |t +4!...........|
00000a40  c4 04 0d 04 ce 15 dd 20  f2 6d 65 74 72 69 63 73  |....... .metrics|
00000a50  5f 68 65 61 64 65 72 0d  04 d8 25 24 6d 65 74 72  |_header...%$metr|
00000a60  69 63 73 3d c0 66 6f 6e  74 5f 6e 61 6d 65 24 2b  |ics=.font_name$+|
00000a70  c4 38 30 2c bd 31 33 29  2c 34 30 29 0d 04 e2 11  |.80,.13),40)....|
00000a80  6d 65 74 72 69 63 73 21  34 30 3d 31 36 0d 04 ec  |metrics!40=16...|
00000a90  11 6d 65 74 72 69 63 73  21 34 34 3d 31 36 0d 04  |.metrics!44=16..|
00000aa0  f6 1a 6d 65 74 72 69 63  73 3f 34 38 3d 6d 65 74  |..metrics?48=met|
00000ab0  5f 6e 20 83 20 32 35 36  0d 05 00 1c 6d 65 74 72  |_n . 256....metr|
00000ac0  69 63 73 3f 34 39 3d 32  20 3a 20 f4 20 76 65 72  |ics?49=2 : . ver|
00000ad0  73 69 6f 6e 0d 05 0a 1a  6d 65 74 72 69 63 73 3f  |sion....metrics?|
00000ae0  35 30 3d 30 20 3a 20 f4  20 66 6c 61 67 73 0d 05  |50=0 : . flags..|
00000af0  14 1a 6d 65 74 72 69 63  73 3f 35 31 3d 6d 65 74  |..metrics?51=met|
00000b00  5f 6e 20 81 20 32 35 36  0d 05 1e 17 63 68 61 72  |_n . 256....char|
00000b10  5f 6d 61 70 3d 6d 65 74  72 69 63 73 2b 35 32 0d  |_map=metrics+52.|
00000b20  05 28 1a 6d 65 74 5f 62  6f 78 65 73 3d 63 68 61  |.(.met_boxes=cha|
00000b30  72 5f 6d 61 70 2b 32 35  36 0d 05 32 1e 6d 65 74  |r_map+256..2.met|
00000b40  5f 78 6f 66 66 3d 6d 65  74 5f 62 6f 78 65 73 2b  |_xoff=met_boxes+|
00000b50  38 2a 6d 65 74 5f 6e 0d  05 3c 1d 6d 65 74 5f 79  |8*met_n..<.met_y|
00000b60  6f 66 66 3d 6d 65 74 5f  78 6f 66 66 2b 32 2a 6d  |off=met_xoff+2*m|
00000b70  65 74 5f 6e 0d 05 46 1c  6d 65 74 5f 65 6e 64 3d  |et_n..F.met_end=|
00000b80  6d 65 74 5f 79 6f 66 66  2b 32 2a 6d 65 74 5f 6e  |met_yoff+2*met_n|
00000b90  0d 05 50 0d 65 6e 74 72  79 3d 31 2d 31 0d 05 5a  |..P.entry=1-1..Z|
00000ba0  05 e1 0d 05 64 04 0d 05  6e 04 0d 05 78 0b dd 20  |....d...n...x.. |
00000bb0  f2 69 6e 69 74 0d 05 82  35 c8 99 20 22 4f 53 5f  |.init...5.. "OS_|
00000bc0  53 57 49 4e 75 6d 62 65  72 46 72 6f 6d 53 74 72  |SWINumberFromStr|
00000bd0  69 6e 67 22 2c 2c 22 4f  53 5f 53 70 72 69 74 65  |ing",,"OS_Sprite|
00000be0  4f 70 22 20 b8 20 73 70  6f 70 0d 05 8c 37 c8 99  |Op" . spop...7..|
00000bf0  20 22 4f 53 5f 53 57 49  4e 75 6d 62 65 72 46 72  | "OS_SWINumberFr|
00000c00  6f 6d 53 74 72 69 6e 67  22 2c 2c 22 58 4f 53 5f  |omString",,"XOS_|
00000c10  53 70 72 69 74 65 4f 70  22 20 b8 20 78 73 70 6f  |SpriteOp" . xspo|
00000c20  70 0d 05 96 30 66 6f 6e  74 5f 64 69 72 24 3d 22  |p...0font_dir$="|
00000c30  41 44 46 53 3a 3a 34 2e  24 2e 21 42 6f 6f 74 2e  |ADFS::4.$.!Boot.|
00000c40  52 65 73 6f 75 72 63 65  73 2e 21 46 6f 6e 74 73  |Resources.!Fonts|
00000c50  22 0d 05 a0 0d de 20 62  75 66 20 32 35 36 0d 05  |"..... buf 256..|
00000c60  aa 0b 78 64 70 69 3d 39  30 0d 05 b4 0b 79 64 70  |..xdpi=90....ydp|
00000c70  69 3d 39 30 0d 05 be 0f  6d 65 74 5f 6e 20 3d 20  |i=90....met_n = |
00000c80  32 35 36 0d 05 c8 0f 6d  65 74 5f 6d 20 3d 20 32  |256....met_m = 2|
00000c90  35 36 0d 05 d2 05 e1 0d  05 dc 04 0d 05 e6 0f dd  |56..............|
00000ca0  20 a4 6c 65 61 66 28 61  24 29 0d 05 f0 16 e7 20  | .leaf(a$)..... |
00000cb0  a7 61 24 2c 22 2e 22 29  3d 30 20 8c 20 3d 61 24  |.a$,".")=0 . =a$|
00000cc0  0d 05 fa 09 62 24 3d 22  22 0d 06 04 12 c8 95 20  |....b$=""...... |
00000cd0  c2 61 24 2c 31 29 3c 3e  22 2e 22 0d 06 0e 11 20  |.a$,1)<>".".... |
00000ce0  62 24 3d c2 61 24 2c 31  29 2b 62 24 0d 06 18 0c  |b$=.a$,1)+b$....|
00000cf0  20 61 24 3d c0 61 24 29  0d 06 22 05 ce 0d 06 2c  | a$=.a$).."....,|
00000d00  07 3d 62 24 0d 06 36 04  0d 06 40 0f dd 20 a4 70  |.=b$..6...@.. .p|
00000d10  61 74 68 28 61 24 29 0d  06 4a 16 e7 20 a7 61 24  |ath(a$)..J.. .a$|
00000d20  2c 22 2e 22 29 3d 30 20  8c 20 3d 61 24 0d 06 54  |,".")=0 . =a$..T|
00000d30  09 62 24 3d 61 24 0d 06  5e 12 c8 95 20 c2 62 24  |.b$=a$..^... .b$|
00000d40  2c 31 29 3c 3e 22 2e 22  0d 06 68 0c 20 62 24 3d  |,1)<>"."..h. b$=|
00000d50  c0 62 24 29 0d 06 72 05  ce 0d 06 7c 09 3d c0 62  |.b$)..r....|.=.b|
00000d60  24 29 0d 06 86 04 0d 06  90 17 dd 20 a4 6c 6f 61  |$)......... .loa|
00000d70  64 5f 73 70 72 69 74 65  73 28 61 24 29 0d 06 9a  |d_sprites(a$)...|
00000d80  15 69 6e 5f 73 69 7a 65  3d a4 73 69 7a 65 28 61  |.in_size=.size(a|
00000d90  24 29 0d 06 a4 13 de 20  61 20 69 6e 5f 73 69 7a  |$)..... a in_siz|
00000da0  65 2b 32 35 36 0d 06 ae  12 21 61 3d 69 6e 5f 73  |e+256....!a=in_s|
00000db0  69 7a 65 2b 32 35 36 0d  06 b8 0a 61 21 38 3d 31  |ize+256....a!8=1|
00000dc0  36 0d 06 c2 12 c8 99 20  73 70 6f 70 2c 26 31 30  |6...... spop,&10|
00000dd0  39 2c 61 0d 06 cc 15 c8  99 20 73 70 6f 70 2c 26  |9,a...... spop,&|
00000de0  31 30 41 2c 61 2c 61 24  0d 06 d6 06 3d 61 0d 06  |10A,a,a$....=a..|
00000df0  e0 04 0d 06 ea 0f dd 20  a4 73 69 7a 65 28 61 24  |....... .size(a$|
00000e00  29 0d 06 f4 20 c8 99 20  22 4f 53 5f 46 69 6c 65  |)... .. "OS_File|
00000e10  22 2c 35 2c 61 24 20 b8  20 2c 2c 2c 2c 73 69 7a  |",5,a$ . ,,,,siz|
00000e20  65 0d 06 fe 09 3d 73 69  7a 65 0d 07 08 04 0d 07  |e....=size......|
00000e30  12 10 dd 20 a4 6e 61 6d  65 28 61 2c 6e 29 0d 07  |... .name(a,n)..|
00000e40  1c 25 c8 99 20 73 70 6f  70 2c 26 31 30 44 2c 61  |.%.. spop,&10D,a|
00000e50  2c 62 75 66 2c 32 35 36  2c 6e 20 b8 20 2c 2c 2c  |,buf,256,n . ,,,|
00000e60  6c 65 6e 0d 07 26 0e 62  75 66 3f 6c 65 6e 3d 31  |len..&.buf?len=1|
00000e70  33 0d 07 30 09 3d 24 62  75 66 0d 07 3a 04 0d 07  |3..0.=$buf..:...|
00000e80  44 11 dd 20 a4 67 65 74  28 6c 24 2c 73 24 29 0d  |D.. .get(l$,s$).|
00000e90  07 4e 14 3d bb c1 73 24  2c a7 73 24 2c 6c 24 29  |.N.=..s$,.s$,l$)|
00000ea0  2b 31 29 0d 07 58 04 0d  07 62 13 dd 20 f2 65 6d  |+1)..X...b.. .em|
00000eb0  28 61 64 64 72 2c 76 61  6c 29 0d 07 6c 22 76 61  |(addr,val)..l"va|
00000ec0  6c 3d 28 31 30 30 30 2a  76 61 6c 2a 37 32 29 2f  |l=(1000*val*72)/|
00000ed0  28 78 64 70 69 2a 70 6f  69 6e 74 29 0d 07 76 1c  |(xdpi*point)..v.|
00000ee0  61 64 64 72 3f 30 3d 28  36 35 35 33 36 2b 76 61  |addr?0=(65536+va|
00000ef0  6c 29 20 83 20 32 35 36  0d 07 80 1c 61 64 64 72  |l) . 256....addr|
00000f00  3f 31 3d 28 36 35 35 33  36 2b 76 61 6c 29 20 81  |?1=(65536+val) .|
00000f10  20 32 35 36 0d 07 8a 05  e1 0d ff                 | 256.......|
00000f1b