�     >FontDemo
� By  E P Tozer
� (c) AU May 1994
(
2ș"Hourglass_On"
<:
F� font_list 20000
P� font$(2000)
Zscaler=46080
dscaler=46080/25.4
npt_size=20
xpt_space=24
�page_top=270
�page_bottom=10
�:
��font_reader
�ș"Hourglass_LEDs",&01
��create_font_array
��create_text_string
�ș"Hourglass_LEDs",&02
��create_DDF__file
�ș"Hourglass_LEDs",&03
��create_Draw_file
�:
�ș"Hourglass_Off"

:

�



"

,��create_Draw_file

6:

@:

Jpage_size$="A4 portrait"

Tdraw_file=0

^:

h=fonts_per_page=�((page_top-page_bottom)*72/25.4/pt_space)

r2draw_pages=�(1+number_of_fonts/fonts_per_page)

|�file_no=1 � draw_pages

�J�open_file(draw_file,"<obey$dir>.^.FontDraw"+�(�(file_no)),"DrawFile")

��headergen

��fonttable(font$())

��draw_text_info

��close_file(draw_file)

��

�:

��

�

�

���draw_text_info

�:

�:
B�text(10,285,5,pt_size,1,"font demonstrator - E.P.Tozer 1993")
:
H� font_to_file=(file_no-1)*fonts_per_page+1 � file_no*fonts_per_page
&:
08� font_to_file <= number_of_fonts � font_to_file>0 �
:8font_to_page=font_to_file-(file_no-1)*fonts_per_page
D6draw_string$=font$(font_to_file)+"  "+text_string$
NX�text(10,page_top-25.4*pt_space*font_to_page/72,font_to_file,pt_size,1,draw_string$)
X�
b:
l�
v:
��
�
�
���pad_string(B$,extras)
�:
�:
��string_print(B$)
��#draw_file,0
�Z%=(�B$)+1+extras
�Z%=Z%�4
�:
��Q%=1 � 4-Z%
��#draw_file,0
�
:
�
 
*
49��text(xpos,ypos,font_no,font_size,font_colour,text$)
>:
H:
R)size=13*4+�(text$)+1+(4-(�text$+1)�4)
\:
f�fourbyte_print(1)
p�fourbyte_print(size)
z�fourbyte_print(0)
��fourbyte_print(0)
��fourbyte_print(100000)
��fourbyte_print(100000)
�:
� �fourbyte_print(font_colour)
��fourbyte_print(0)
��fourbyte_print(font_no)
�"�fourbyte_print(font_size*640)
�"�fourbyte_print(font_size*640)
� �fourbyte_print(scaler*xpos)
� �fourbyte_print(scaler*ypos)
��pad_string(text$,0)
�:
�


$��onebyte(X%)
.:
8:
B8� X%>255 �"you cant print bytes > 255!":�("close"):�
L�#draw_file,X%
V:
`�
j
t
~��fourbyte_print(X%)
�:
�:
�Z%=X% � 256
��#draw_file,Z%
�Z%=X%>>8 � 256
��#draw_file,Z%
�Z%=X%>>16 � 256
��#draw_file,Z%
�Z%=X%>>24 � 256
��#draw_file,Z%
�:
��



��draw_string_print(A$)
:
(:
2�Q%=1 � �A$
<�#draw_file,�(�A$,Q%,1))
F�
P:
Z�
d
n
x��fonttable(font$())
�:
�:
�no_of_fonts=�(font$(0))
�:
��Q%=1 � no_of_fonts
�font$(Q%)+=�(0)
��
�:
� total_length_of_font_names=0
��fonts=1�no_of_fonts
�1total_length_of_font_names+=�(font$(fonts))+1
��
�:
�fourbyte_print(0)
.header_size=2*4+total_length_of_font_names
pad=4-header_size �4
"$�fourbyte_print(header_size+pad)
,:
6�font=1 � no_of_fonts
@�onebyte(font)
J#�draw_string_print(font$(font))
T�
^:
h�Q%=1 � no_of_fonts
rR%=0
|�
�	R%+=1
���font$(Q%),R%,1)=�(0)
�font$(Q%)=�font$(Q%),R%-1)
��
�:
��Q%=1 � pad
��onebyte(0)
��
�:
��
�
�
���headergen
:
:
�draw_string_print("Draw")
&�fourbyte_print(201)
0�fourbyte_print(0)
:&�draw_string_print("EPTozer v1.0")
D�fourbyte_print(0)
N�fourbyte_print(0)
X:
b � page_size$="A4 portrait" �
l�fourbyte_print(380976)
v�fourbyte_print(538809)
��
�:
��
�
�
���create_DDF__file
�:
�:
�text_file=0
�:�open_file(text_file,"<obey$dir>.^.Font_Imprn","text")
�:
�@�string_print("Font Demonstrator - E.P.Tozer 1993 {cr}{cr}")
� �counter=1 � number_of_fonts
2�string_print("{font """+font$(counter)+"""}")
)�string_print(font$(counter)+"{tab}")
&�string_print(text_string$+"{cr}")
 �
*:
4�close_file(text_file)
>:
H�
R
\
f��string_print(string$)
p:
z:
��string_posn=1��(string$)
�*�#text_file,�(�string$,string_posn,1))
��
�:
��
�
�
�2��open_file(� file_name,file_name$,file_type$)
�:
�:
�file_name=�(file_name$)
�+�("settype "+file_name$+" "+file_type$)
�:
	�
	
	
	$��close_file(file_name)
	.:
	8:
	B�#file_name
	L:
	V�
	`
	j
	t��create_font_array
	~:
	�:
	�n=0
	�font_ptr=font_list
	��
	�n+=1
	�font$=$font_ptr
	�font_ptr+=�(font$)+1
	�font$(n)=font$
	��$font_ptr=""
	�number_of_fonts=n
	�font$(0)=�(n)
	�:
�



��create_text_string
(:
2:
<text_string$=""
F�char=33�126
Ptext_string$+=�(char)
Z�
d1text_string$="Tozer ABCDE abcde 12345  !@#$%"
n:
x�
�
�
���font_reader
�:
�:
�
font_no=0
�font_ptr=font_list
�finished=�
�:
��
�9ș"Font_ListFonts",,font_ptr,font_no,-1 � ,,last_font
�� � last_font �
�font_no+=1
font_ptr+=�($font_ptr)+1
�
finished=�
"�
,� finished
6:
@?font_ptr=13
J:
T�
^
h
r��list_reader
|:
�:
�font_ptr=font_list
��
�font$=$font_ptr
�font_ptr+=�(font$)+1
��$font_ptr=""
�:
��
�

00000000  0d 00 0a 13 f4 20 20 20  20 20 3e 46 6f 6e 74 44  |.....     >FontD|
00000010  65 6d 6f 0d 00 14 13 f4  20 42 79 20 20 45 20 50  |emo..... By  E P|
00000020  20 54 6f 7a 65 72 0d 00  1e 15 f4 20 28 63 29 20  | Tozer..... (c) |
00000030  41 55 20 4d 61 79 20 31  39 39 34 0d 00 28 04 0d  |AU May 1994..(..|
00000040  00 32 14 c8 99 22 48 6f  75 72 67 6c 61 73 73 5f  |.2..."Hourglass_|
00000050  4f 6e 22 0d 00 3c 05 3a  0d 00 46 15 de 20 66 6f  |On"..<.:..F.. fo|
00000060  6e 74 5f 6c 69 73 74 20  32 30 30 30 30 0d 00 50  |nt_list 20000..P|
00000070  11 de 20 66 6f 6e 74 24  28 32 30 30 30 29 0d 00  |.. font$(2000)..|
00000080  5a 10 73 63 61 6c 65 72  3d 34 36 30 38 30 0d 00  |Z.scaler=46080..|
00000090  64 15 73 63 61 6c 65 72  3d 34 36 30 38 30 2f 32  |d.scaler=46080/2|
000000a0  35 2e 34 0d 00 6e 0e 70  74 5f 73 69 7a 65 3d 32  |5.4..n.pt_size=2|
000000b0  30 0d 00 78 0f 70 74 5f  73 70 61 63 65 3d 32 34  |0..x.pt_space=24|
000000c0  0d 00 82 10 70 61 67 65  5f 74 6f 70 3d 32 37 30  |....page_top=270|
000000d0  0d 00 8c 12 70 61 67 65  5f 62 6f 74 74 6f 6d 3d  |....page_bottom=|
000000e0  31 30 0d 00 96 05 3a 0d  00 a0 10 f2 66 6f 6e 74  |10....:.....font|
000000f0  5f 72 65 61 64 65 72 0d  00 aa 1a c8 99 22 48 6f  |_reader......"Ho|
00000100  75 72 67 6c 61 73 73 5f  4c 45 44 73 22 2c 26 30  |urglass_LEDs",&0|
00000110  31 0d 00 b4 16 f2 63 72  65 61 74 65 5f 66 6f 6e  |1.....create_fon|
00000120  74 5f 61 72 72 61 79 0d  00 be 17 f2 63 72 65 61  |t_array.....crea|
00000130  74 65 5f 74 65 78 74 5f  73 74 72 69 6e 67 0d 00  |te_text_string..|
00000140  c8 1a c8 99 22 48 6f 75  72 67 6c 61 73 73 5f 4c  |...."Hourglass_L|
00000150  45 44 73 22 2c 26 30 32  0d 00 d2 15 f2 63 72 65  |EDs",&02.....cre|
00000160  61 74 65 5f 44 44 46 5f  5f 66 69 6c 65 0d 00 dc  |ate_DDF__file...|
00000170  1a c8 99 22 48 6f 75 72  67 6c 61 73 73 5f 4c 45  |..."Hourglass_LE|
00000180  44 73 22 2c 26 30 33 0d  00 e6 15 f2 63 72 65 61  |Ds",&03.....crea|
00000190  74 65 5f 44 72 61 77 5f  66 69 6c 65 0d 00 f0 05  |te_Draw_file....|
000001a0  3a 0d 00 fa 15 c8 99 22  48 6f 75 72 67 6c 61 73  |:......"Hourglas|
000001b0  73 5f 4f 66 66 22 0d 01  04 05 3a 0d 01 0e 05 e0  |s_Off"....:.....|
000001c0  0d 01 18 04 0d 01 22 04  0d 01 2c 16 dd f2 63 72  |......"...,...cr|
000001d0  65 61 74 65 5f 44 72 61  77 5f 66 69 6c 65 0d 01  |eate_Draw_file..|
000001e0  36 05 3a 0d 01 40 05 3a  0d 01 4a 1c 70 61 67 65  |6.:..@.:..J.page|
000001f0  5f 73 69 7a 65 24 3d 22  41 34 20 70 6f 72 74 72  |_size$="A4 portr|
00000200  61 69 74 22 0d 01 54 0f  64 72 61 77 5f 66 69 6c  |ait"..T.draw_fil|
00000210  65 3d 30 0d 01 5e 05 3a  0d 01 68 3d 66 6f 6e 74  |e=0..^.:..h=font|
00000220  73 5f 70 65 72 5f 70 61  67 65 3d a8 28 28 70 61  |s_per_page=.((pa|
00000230  67 65 5f 74 6f 70 2d 70  61 67 65 5f 62 6f 74 74  |ge_top-page_bott|
00000240  6f 6d 29 2a 37 32 2f 32  35 2e 34 2f 70 74 5f 73  |om)*72/25.4/pt_s|
00000250  70 61 63 65 29 0d 01 72  32 64 72 61 77 5f 70 61  |pace)..r2draw_pa|
00000260  67 65 73 3d a8 28 31 2b  6e 75 6d 62 65 72 5f 6f  |ges=.(1+number_o|
00000270  66 5f 66 6f 6e 74 73 2f  66 6f 6e 74 73 5f 70 65  |f_fonts/fonts_pe|
00000280  72 5f 70 61 67 65 29 0d  01 7c 1b e3 66 69 6c 65  |r_page)..|..file|
00000290  5f 6e 6f 3d 31 20 b8 20  64 72 61 77 5f 70 61 67  |_no=1 . draw_pag|
000002a0  65 73 0d 01 86 4a f2 6f  70 65 6e 5f 66 69 6c 65  |es...J.open_file|
000002b0  28 64 72 61 77 5f 66 69  6c 65 2c 22 3c 6f 62 65  |(draw_file,"<obe|
000002c0  79 24 64 69 72 3e 2e 5e  2e 46 6f 6e 74 44 72 61  |y$dir>.^.FontDra|
000002d0  77 22 2b c3 28 a8 28 66  69 6c 65 5f 6e 6f 29 29  |w"+.(.(file_no))|
000002e0  2c 22 44 72 61 77 46 69  6c 65 22 29 0d 01 90 0e  |,"DrawFile")....|
000002f0  f2 68 65 61 64 65 72 67  65 6e 0d 01 9a 17 f2 66  |.headergen.....f|
00000300  6f 6e 74 74 61 62 6c 65  28 66 6f 6e 74 24 28 29  |onttable(font$()|
00000310  29 0d 01 a4 13 f2 64 72  61 77 5f 74 65 78 74 5f  |).....draw_text_|
00000320  69 6e 66 6f 0d 01 ae 1a  f2 63 6c 6f 73 65 5f 66  |info.....close_f|
00000330  69 6c 65 28 64 72 61 77  5f 66 69 6c 65 29 0d 01  |ile(draw_file)..|
00000340  b8 05 ed 0d 01 c2 05 3a  0d 01 cc 05 e1 0d 01 d6  |.......:........|
00000350  04 0d 01 e0 04 0d 01 ea  14 dd f2 64 72 61 77 5f  |...........draw_|
00000360  74 65 78 74 5f 69 6e 66  6f 0d 01 f4 05 3a 0d 01  |text_info....:..|
00000370  fe 05 3a 0d 02 08 42 f2  74 65 78 74 28 31 30 2c  |..:...B.text(10,|
00000380  32 38 35 2c 35 2c 70 74  5f 73 69 7a 65 2c 31 2c  |285,5,pt_size,1,|
00000390  22 66 6f 6e 74 20 64 65  6d 6f 6e 73 74 72 61 74  |"font demonstrat|
000003a0  6f 72 20 2d 20 45 2e 50  2e 54 6f 7a 65 72 20 31  |or - E.P.Tozer 1|
000003b0  39 39 33 22 29 0d 02 12  05 3a 0d 02 1c 48 e3 20  |993")....:...H. |
000003c0  66 6f 6e 74 5f 74 6f 5f  66 69 6c 65 3d 28 66 69  |font_to_file=(fi|
000003d0  6c 65 5f 6e 6f 2d 31 29  2a 66 6f 6e 74 73 5f 70  |le_no-1)*fonts_p|
000003e0  65 72 5f 70 61 67 65 2b  31 20 b8 20 66 69 6c 65  |er_page+1 . file|
000003f0  5f 6e 6f 2a 66 6f 6e 74  73 5f 70 65 72 5f 70 61  |_no*fonts_per_pa|
00000400  67 65 0d 02 26 05 3a 0d  02 30 38 e7 20 66 6f 6e  |ge..&.:..08. fon|
00000410  74 5f 74 6f 5f 66 69 6c  65 20 3c 3d 20 6e 75 6d  |t_to_file <= num|
00000420  62 65 72 5f 6f 66 5f 66  6f 6e 74 73 20 80 20 66  |ber_of_fonts . f|
00000430  6f 6e 74 5f 74 6f 5f 66  69 6c 65 3e 30 20 8c 0d  |ont_to_file>0 ..|
00000440  02 3a 38 66 6f 6e 74 5f  74 6f 5f 70 61 67 65 3d  |.:8font_to_page=|
00000450  66 6f 6e 74 5f 74 6f 5f  66 69 6c 65 2d 28 66 69  |font_to_file-(fi|
00000460  6c 65 5f 6e 6f 2d 31 29  2a 66 6f 6e 74 73 5f 70  |le_no-1)*fonts_p|
00000470  65 72 5f 70 61 67 65 0d  02 44 36 64 72 61 77 5f  |er_page..D6draw_|
00000480  73 74 72 69 6e 67 24 3d  66 6f 6e 74 24 28 66 6f  |string$=font$(fo|
00000490  6e 74 5f 74 6f 5f 66 69  6c 65 29 2b 22 20 20 22  |nt_to_file)+"  "|
000004a0  2b 74 65 78 74 5f 73 74  72 69 6e 67 24 0d 02 4e  |+text_string$..N|
000004b0  58 f2 74 65 78 74 28 31  30 2c 70 61 67 65 5f 74  |X.text(10,page_t|
000004c0  6f 70 2d 32 35 2e 34 2a  70 74 5f 73 70 61 63 65  |op-25.4*pt_space|
000004d0  2a 66 6f 6e 74 5f 74 6f  5f 70 61 67 65 2f 37 32  |*font_to_page/72|
000004e0  2c 66 6f 6e 74 5f 74 6f  5f 66 69 6c 65 2c 70 74  |,font_to_file,pt|
000004f0  5f 73 69 7a 65 2c 31 2c  64 72 61 77 5f 73 74 72  |_size,1,draw_str|
00000500  69 6e 67 24 29 0d 02 58  05 cd 0d 02 62 05 3a 0d  |ing$)..X....b.:.|
00000510  02 6c 05 ed 0d 02 76 05  3a 0d 02 80 05 e1 0d 02  |.l....v.:.......|
00000520  8a 04 0d 02 94 04 0d 02  9e 1b dd f2 70 61 64 5f  |............pad_|
00000530  73 74 72 69 6e 67 28 42  24 2c 65 78 74 72 61 73  |string(B$,extras|
00000540  29 0d 02 a8 05 3a 0d 02  b2 05 3a 0d 02 bc 15 f2  |)....:....:.....|
00000550  73 74 72 69 6e 67 5f 70  72 69 6e 74 28 42 24 29  |string_print(B$)|
00000560  0d 02 c6 11 d5 23 64 72  61 77 5f 66 69 6c 65 2c  |.....#draw_file,|
00000570  30 0d 02 d0 15 5a 25 3d  28 a9 42 24 29 2b 31 2b  |0....Z%=(.B$)+1+|
00000580  65 78 74 72 61 73 0d 02  da 0b 5a 25 3d 5a 25 83  |extras....Z%=Z%.|
00000590  34 0d 02 e4 05 3a 0d 02  ee 10 e3 51 25 3d 31 20  |4....:.....Q%=1 |
000005a0  b8 20 34 2d 5a 25 0d 02  f8 11 d5 23 64 72 61 77  |. 4-Z%.....#draw|
000005b0  5f 66 69 6c 65 2c 30 0d  03 02 05 ed 0d 03 0c 05  |_file,0.........|
000005c0  3a 0d 03 16 05 e1 0d 03  20 04 0d 03 2a 04 0d 03  |:....... ...*...|
000005d0  34 39 dd f2 74 65 78 74  28 78 70 6f 73 2c 79 70  |49..text(xpos,yp|
000005e0  6f 73 2c 66 6f 6e 74 5f  6e 6f 2c 66 6f 6e 74 5f  |os,font_no,font_|
000005f0  73 69 7a 65 2c 66 6f 6e  74 5f 63 6f 6c 6f 75 72  |size,font_colour|
00000600  2c 74 65 78 74 24 29 0d  03 3e 05 3a 0d 03 48 05  |,text$)..>.:..H.|
00000610  3a 0d 03 52 29 73 69 7a  65 3d 31 33 2a 34 2b a9  |:..R)size=13*4+.|
00000620  28 74 65 78 74 24 29 2b  31 2b 28 34 2d 28 a9 74  |(text$)+1+(4-(.t|
00000630  65 78 74 24 2b 31 29 83  34 29 0d 03 5c 05 3a 0d  |ext$+1).4)..\.:.|
00000640  03 66 16 f2 66 6f 75 72  62 79 74 65 5f 70 72 69  |.f..fourbyte_pri|
00000650  6e 74 28 31 29 0d 03 70  19 f2 66 6f 75 72 62 79  |nt(1)..p..fourby|
00000660  74 65 5f 70 72 69 6e 74  28 73 69 7a 65 29 0d 03  |te_print(size)..|
00000670  7a 16 f2 66 6f 75 72 62  79 74 65 5f 70 72 69 6e  |z..fourbyte_prin|
00000680  74 28 30 29 0d 03 84 16  f2 66 6f 75 72 62 79 74  |t(0).....fourbyt|
00000690  65 5f 70 72 69 6e 74 28  30 29 0d 03 8e 1b f2 66  |e_print(0).....f|
000006a0  6f 75 72 62 79 74 65 5f  70 72 69 6e 74 28 31 30  |ourbyte_print(10|
000006b0  30 30 30 30 29 0d 03 98  1b f2 66 6f 75 72 62 79  |0000).....fourby|
000006c0  74 65 5f 70 72 69 6e 74  28 31 30 30 30 30 30 29  |te_print(100000)|
000006d0  0d 03 a2 05 3a 0d 03 ac  20 f2 66 6f 75 72 62 79  |....:... .fourby|
000006e0  74 65 5f 70 72 69 6e 74  28 66 6f 6e 74 5f 63 6f  |te_print(font_co|
000006f0  6c 6f 75 72 29 0d 03 b6  16 f2 66 6f 75 72 62 79  |lour).....fourby|
00000700  74 65 5f 70 72 69 6e 74  28 30 29 0d 03 c0 1c f2  |te_print(0).....|
00000710  66 6f 75 72 62 79 74 65  5f 70 72 69 6e 74 28 66  |fourbyte_print(f|
00000720  6f 6e 74 5f 6e 6f 29 0d  03 ca 22 f2 66 6f 75 72  |ont_no)...".four|
00000730  62 79 74 65 5f 70 72 69  6e 74 28 66 6f 6e 74 5f  |byte_print(font_|
00000740  73 69 7a 65 2a 36 34 30  29 0d 03 d4 22 f2 66 6f  |size*640)...".fo|
00000750  75 72 62 79 74 65 5f 70  72 69 6e 74 28 66 6f 6e  |urbyte_print(fon|
00000760  74 5f 73 69 7a 65 2a 36  34 30 29 0d 03 de 20 f2  |t_size*640)... .|
00000770  66 6f 75 72 62 79 74 65  5f 70 72 69 6e 74 28 73  |fourbyte_print(s|
00000780  63 61 6c 65 72 2a 78 70  6f 73 29 0d 03 e8 20 f2  |caler*xpos)... .|
00000790  66 6f 75 72 62 79 74 65  5f 70 72 69 6e 74 28 73  |fourbyte_print(s|
000007a0  63 61 6c 65 72 2a 79 70  6f 73 29 0d 03 f2 18 f2  |caler*ypos).....|
000007b0  70 61 64 5f 73 74 72 69  6e 67 28 74 65 78 74 24  |pad_string(text$|
000007c0  2c 30 29 0d 03 fc 05 3a  0d 04 06 05 e1 0d 04 10  |,0)....:........|
000007d0  04 0d 04 1a 04 0d 04 24  11 dd f2 6f 6e 65 62 79  |.......$...oneby|
000007e0  74 65 28 58 25 29 0d 04  2e 05 3a 0d 04 38 05 3a  |te(X%)....:..8.:|
000007f0  0d 04 42 38 e7 20 58 25  3e 32 35 35 20 f1 22 79  |..B8. X%>255 ."y|
00000800  6f 75 20 63 61 6e 74 20  70 72 69 6e 74 20 62 79  |ou cant print by|
00000810  74 65 73 20 3e 20 32 35  35 21 22 3a ff 28 22 63  |tes > 255!":.("c|
00000820  6c 6f 73 65 22 29 3a fa  0d 04 4c 12 d5 23 64 72  |lose"):...L..#dr|
00000830  61 77 5f 66 69 6c 65 2c  58 25 0d 04 56 05 3a 0d  |aw_file,X%..V.:.|
00000840  04 60 05 e1 0d 04 6a 04  0d 04 74 04 0d 04 7e 18  |.`....j...t...~.|
00000850  dd f2 66 6f 75 72 62 79  74 65 5f 70 72 69 6e 74  |..fourbyte_print|
00000860  28 58 25 29 0d 04 88 05  3a 0d 04 92 05 3a 0d 04  |(X%)....:....:..|
00000870  9c 0f 5a 25 3d 58 25 20  83 20 32 35 36 0d 04 a6  |..Z%=X% . 256...|
00000880  12 d5 23 64 72 61 77 5f  66 69 6c 65 2c 5a 25 0d  |..#draw_file,Z%.|
00000890  04 b0 12 5a 25 3d 58 25  3e 3e 38 20 83 20 32 35  |...Z%=X%>>8 . 25|
000008a0  36 0d 04 ba 12 d5 23 64  72 61 77 5f 66 69 6c 65  |6.....#draw_file|
000008b0  2c 5a 25 0d 04 c4 13 5a  25 3d 58 25 3e 3e 31 36  |,Z%....Z%=X%>>16|
000008c0  20 83 20 32 35 36 0d 04  ce 12 d5 23 64 72 61 77  | . 256.....#draw|
000008d0  5f 66 69 6c 65 2c 5a 25  0d 04 d8 13 5a 25 3d 58  |_file,Z%....Z%=X|
000008e0  25 3e 3e 32 34 20 83 20  32 35 36 0d 04 e2 12 d5  |%>>24 . 256.....|
000008f0  23 64 72 61 77 5f 66 69  6c 65 2c 5a 25 0d 04 ec  |#draw_file,Z%...|
00000900  05 3a 0d 04 f6 05 e1 0d  05 00 04 0d 05 0a 04 0d  |.:..............|
00000910  05 14 1b dd f2 64 72 61  77 5f 73 74 72 69 6e 67  |.....draw_string|
00000920  5f 70 72 69 6e 74 28 41  24 29 0d 05 1e 05 3a 0d  |_print(A$)....:.|
00000930  05 28 05 3a 0d 05 32 0f  e3 51 25 3d 31 20 b8 20  |.(.:..2..Q%=1 . |
00000940  a9 41 24 0d 05 3c 1c d5  23 64 72 61 77 5f 66 69  |.A$..<..#draw_fi|
00000950  6c 65 2c 97 28 c1 41 24  2c 51 25 2c 31 29 29 0d  |le,.(.A$,Q%,1)).|
00000960  05 46 05 ed 0d 05 50 05  3a 0d 05 5a 05 e1 0d 05  |.F....P.:..Z....|
00000970  64 04 0d 05 6e 04 0d 05  78 18 dd f2 66 6f 6e 74  |d...n...x...font|
00000980  74 61 62 6c 65 28 66 6f  6e 74 24 28 29 29 0d 05  |table(font$())..|
00000990  82 05 3a 0d 05 8c 05 3a  0d 05 96 1b 6e 6f 5f 6f  |..:....:....no_o|
000009a0  66 5f 66 6f 6e 74 73 3d  a0 28 66 6f 6e 74 24 28  |f_fonts=.(font$(|
000009b0  30 29 29 0d 05 a0 05 3a  0d 05 aa 17 e3 51 25 3d  |0))....:.....Q%=|
000009c0  31 20 b8 20 6e 6f 5f 6f  66 5f 66 6f 6e 74 73 0d  |1 . no_of_fonts.|
000009d0  05 b4 13 66 6f 6e 74 24  28 51 25 29 2b 3d bd 28  |...font$(Q%)+=.(|
000009e0  30 29 0d 05 be 05 ed 0d  05 c8 05 3a 0d 05 d2 20  |0).........:... |
000009f0  74 6f 74 61 6c 5f 6c 65  6e 67 74 68 5f 6f 66 5f  |total_length_of_|
00000a00  66 6f 6e 74 5f 6e 61 6d  65 73 3d 30 0d 05 dc 18  |font_names=0....|
00000a10  e3 66 6f 6e 74 73 3d 31  b8 6e 6f 5f 6f 66 5f 66  |.fonts=1.no_of_f|
00000a20  6f 6e 74 73 0d 05 e6 31  74 6f 74 61 6c 5f 6c 65  |onts...1total_le|
00000a30  6e 67 74 68 5f 6f 66 5f  66 6f 6e 74 5f 6e 61 6d  |ngth_of_font_nam|
00000a40  65 73 2b 3d a9 28 66 6f  6e 74 24 28 66 6f 6e 74  |es+=.(font$(font|
00000a50  73 29 29 2b 31 0d 05 f0  05 ed 0d 05 fa 05 3a 0d  |s))+1.........:.|
00000a60  06 04 16 f2 66 6f 75 72  62 79 74 65 5f 70 72 69  |....fourbyte_pri|
00000a70  6e 74 28 30 29 0d 06 0e  2e 68 65 61 64 65 72 5f  |nt(0)....header_|
00000a80  73 69 7a 65 3d 32 2a 34  2b 74 6f 74 61 6c 5f 6c  |size=2*4+total_l|
00000a90  65 6e 67 74 68 5f 6f 66  5f 66 6f 6e 74 5f 6e 61  |ength_of_font_na|
00000aa0  6d 65 73 0d 06 18 18 70  61 64 3d 34 2d 68 65 61  |mes....pad=4-hea|
00000ab0  64 65 72 5f 73 69 7a 65  20 83 34 0d 06 22 24 f2  |der_size .4.."$.|
00000ac0  66 6f 75 72 62 79 74 65  5f 70 72 69 6e 74 28 68  |fourbyte_print(h|
00000ad0  65 61 64 65 72 5f 73 69  7a 65 2b 70 61 64 29 0d  |eader_size+pad).|
00000ae0  06 2c 05 3a 0d 06 36 19  e3 66 6f 6e 74 3d 31 20  |.,.:..6..font=1 |
00000af0  b8 20 6e 6f 5f 6f 66 5f  66 6f 6e 74 73 0d 06 40  |. no_of_fonts..@|
00000b00  12 f2 6f 6e 65 62 79 74  65 28 66 6f 6e 74 29 0d  |..onebyte(font).|
00000b10  06 4a 23 f2 64 72 61 77  5f 73 74 72 69 6e 67 5f  |.J#.draw_string_|
00000b20  70 72 69 6e 74 28 66 6f  6e 74 24 28 66 6f 6e 74  |print(font$(font|
00000b30  29 29 0d 06 54 05 ed 0d  06 5e 05 3a 0d 06 68 17  |))..T....^.:..h.|
00000b40  e3 51 25 3d 31 20 b8 20  6e 6f 5f 6f 66 5f 66 6f  |.Q%=1 . no_of_fo|
00000b50  6e 74 73 0d 06 72 08 52  25 3d 30 0d 06 7c 05 f5  |nts..r.R%=0..|..|
00000b60  0d 06 86 09 52 25 2b 3d  31 0d 06 90 1a fd c1 66  |....R%+=1......f|
00000b70  6f 6e 74 24 28 51 25 29  2c 52 25 2c 31 29 3d bd  |ont$(Q%),R%,1)=.|
00000b80  28 30 29 0d 06 9a 1e 66  6f 6e 74 24 28 51 25 29  |(0)....font$(Q%)|
00000b90  3d c0 66 6f 6e 74 24 28  51 25 29 2c 52 25 2d 31  |=.font$(Q%),R%-1|
00000ba0  29 0d 06 a4 05 ed 0d 06  ae 05 3a 0d 06 b8 0f e3  |).........:.....|
00000bb0  51 25 3d 31 20 b8 20 70  61 64 0d 06 c2 0f f2 6f  |Q%=1 . pad.....o|
00000bc0  6e 65 62 79 74 65 28 30  29 0d 06 cc 05 ed 0d 06  |nebyte(0).......|
00000bd0  d6 05 3a 0d 06 e0 05 e1  0d 06 ea 04 0d 06 f4 04  |..:.............|
00000be0  0d 06 fe 0f dd f2 68 65  61 64 65 72 67 65 6e 0d  |......headergen.|
00000bf0  07 08 05 3a 0d 07 12 05  3a 0d 07 1c 1e f2 64 72  |...:....:.....dr|
00000c00  61 77 5f 73 74 72 69 6e  67 5f 70 72 69 6e 74 28  |aw_string_print(|
00000c10  22 44 72 61 77 22 29 0d  07 26 18 f2 66 6f 75 72  |"Draw")..&..four|
00000c20  62 79 74 65 5f 70 72 69  6e 74 28 32 30 31 29 0d  |byte_print(201).|
00000c30  07 30 16 f2 66 6f 75 72  62 79 74 65 5f 70 72 69  |.0..fourbyte_pri|
00000c40  6e 74 28 30 29 0d 07 3a  26 f2 64 72 61 77 5f 73  |nt(0)..:&.draw_s|
00000c50  74 72 69 6e 67 5f 70 72  69 6e 74 28 22 45 50 54  |tring_print("EPT|
00000c60  6f 7a 65 72 20 76 31 2e  30 22 29 0d 07 44 16 f2  |ozer v1.0")..D..|
00000c70  66 6f 75 72 62 79 74 65  5f 70 72 69 6e 74 28 30  |fourbyte_print(0|
00000c80  29 0d 07 4e 16 f2 66 6f  75 72 62 79 74 65 5f 70  |)..N..fourbyte_p|
00000c90  72 69 6e 74 28 30 29 0d  07 58 05 3a 0d 07 62 20  |rint(0)..X.:..b |
00000ca0  e7 20 70 61 67 65 5f 73  69 7a 65 24 3d 22 41 34  |. page_size$="A4|
00000cb0  20 70 6f 72 74 72 61 69  74 22 20 8c 0d 07 6c 1b  | portrait" ...l.|
00000cc0  f2 66 6f 75 72 62 79 74  65 5f 70 72 69 6e 74 28  |.fourbyte_print(|
00000cd0  33 38 30 39 37 36 29 0d  07 76 1b f2 66 6f 75 72  |380976)..v..four|
00000ce0  62 79 74 65 5f 70 72 69  6e 74 28 35 33 38 38 30  |byte_print(53880|
00000cf0  39 29 0d 07 80 05 cd 0d  07 8a 05 3a 0d 07 94 05  |9).........:....|
00000d00  e1 0d 07 9e 04 0d 07 a8  04 0d 07 b2 16 dd f2 63  |...............c|
00000d10  72 65 61 74 65 5f 44 44  46 5f 5f 66 69 6c 65 0d  |reate_DDF__file.|
00000d20  07 bc 05 3a 0d 07 c6 05  3a 0d 07 d0 0f 74 65 78  |...:....:....tex|
00000d30  74 5f 66 69 6c 65 3d 30  0d 07 da 3a f2 6f 70 65  |t_file=0...:.ope|
00000d40  6e 5f 66 69 6c 65 28 74  65 78 74 5f 66 69 6c 65  |n_file(text_file|
00000d50  2c 22 3c 6f 62 65 79 24  64 69 72 3e 2e 5e 2e 46  |,"<obey$dir>.^.F|
00000d60  6f 6e 74 5f 49 6d 70 72  6e 22 2c 22 74 65 78 74  |ont_Imprn","text|
00000d70  22 29 0d 07 e4 05 3a 0d  07 ee 40 f2 73 74 72 69  |")....:...@.stri|
00000d80  6e 67 5f 70 72 69 6e 74  28 22 46 6f 6e 74 20 44  |ng_print("Font D|
00000d90  65 6d 6f 6e 73 74 72 61  74 6f 72 20 2d 20 45 2e  |emonstrator - E.|
00000da0  50 2e 54 6f 7a 65 72 20  31 39 39 33 20 7b 63 72  |P.Tozer 1993 {cr|
00000db0  7d 7b 63 72 7d 22 29 0d  07 f8 20 e3 63 6f 75 6e  |}{cr}")... .coun|
00000dc0  74 65 72 3d 31 20 b8 20  6e 75 6d 62 65 72 5f 6f  |ter=1 . number_o|
00000dd0  66 5f 66 6f 6e 74 73 0d  08 02 32 f2 73 74 72 69  |f_fonts...2.stri|
00000de0  6e 67 5f 70 72 69 6e 74  28 22 7b 66 6f 6e 74 20  |ng_print("{font |
00000df0  22 22 22 2b 66 6f 6e 74  24 28 63 6f 75 6e 74 65  |"""+font$(counte|
00000e00  72 29 2b 22 22 22 7d 22  29 0d 08 0c 29 f2 73 74  |r)+"""}")...).st|
00000e10  72 69 6e 67 5f 70 72 69  6e 74 28 66 6f 6e 74 24  |ring_print(font$|
00000e20  28 63 6f 75 6e 74 65 72  29 2b 22 7b 74 61 62 7d  |(counter)+"{tab}|
00000e30  22 29 0d 08 16 26 f2 73  74 72 69 6e 67 5f 70 72  |")...&.string_pr|
00000e40  69 6e 74 28 74 65 78 74  5f 73 74 72 69 6e 67 24  |int(text_string$|
00000e50  2b 22 7b 63 72 7d 22 29  0d 08 20 05 ed 0d 08 2a  |+"{cr}").. ....*|
00000e60  05 3a 0d 08 34 1a f2 63  6c 6f 73 65 5f 66 69 6c  |.:..4..close_fil|
00000e70  65 28 74 65 78 74 5f 66  69 6c 65 29 0d 08 3e 05  |e(text_file)..>.|
00000e80  3a 0d 08 48 05 e1 0d 08  52 04 0d 08 5c 04 0d 08  |:..H....R...\...|
00000e90  66 1b dd f2 73 74 72 69  6e 67 5f 70 72 69 6e 74  |f...string_print|
00000ea0  28 73 74 72 69 6e 67 24  29 0d 08 70 05 3a 0d 08  |(string$)..p.:..|
00000eb0  7a 05 3a 0d 08 84 1d e3  73 74 72 69 6e 67 5f 70  |z.:.....string_p|
00000ec0  6f 73 6e 3d 31 b8 a9 28  73 74 72 69 6e 67 24 29  |osn=1..(string$)|
00000ed0  0d 08 8e 2a d5 23 74 65  78 74 5f 66 69 6c 65 2c  |...*.#text_file,|
00000ee0  97 28 c1 73 74 72 69 6e  67 24 2c 73 74 72 69 6e  |.(.string$,strin|
00000ef0  67 5f 70 6f 73 6e 2c 31  29 29 0d 08 98 05 ed 0d  |g_posn,1))......|
00000f00  08 a2 05 3a 0d 08 ac 05  e1 0d 08 b6 04 0d 08 c0  |...:............|
00000f10  04 0d 08 ca 32 dd f2 6f  70 65 6e 5f 66 69 6c 65  |....2..open_file|
00000f20  28 f8 20 66 69 6c 65 5f  6e 61 6d 65 2c 66 69 6c  |(. file_name,fil|
00000f30  65 5f 6e 61 6d 65 24 2c  66 69 6c 65 5f 74 79 70  |e_name$,file_typ|
00000f40  65 24 29 0d 08 d4 05 3a  0d 08 de 05 3a 0d 08 e8  |e$)....:....:...|
00000f50  1b 66 69 6c 65 5f 6e 61  6d 65 3d ae 28 66 69 6c  |.file_name=.(fil|
00000f60  65 5f 6e 61 6d 65 24 29  0d 08 f2 2b ff 28 22 73  |e_name$)...+.("s|
00000f70  65 74 74 79 70 65 20 22  2b 66 69 6c 65 5f 6e 61  |ettype "+file_na|
00000f80  6d 65 24 2b 22 20 22 2b  66 69 6c 65 5f 74 79 70  |me$+" "+file_typ|
00000f90  65 24 29 0d 08 fc 05 3a  0d 09 06 05 e1 0d 09 10  |e$)....:........|
00000fa0  04 0d 09 1a 04 0d 09 24  1b dd f2 63 6c 6f 73 65  |.......$...close|
00000fb0  5f 66 69 6c 65 28 66 69  6c 65 5f 6e 61 6d 65 29  |_file(file_name)|
00000fc0  0d 09 2e 05 3a 0d 09 38  05 3a 0d 09 42 0f d9 23  |....:..8.:..B..#|
00000fd0  66 69 6c 65 5f 6e 61 6d  65 0d 09 4c 05 3a 0d 09  |file_name..L.:..|
00000fe0  56 05 e1 0d 09 60 04 0d  09 6a 04 0d 09 74 17 dd  |V....`...j...t..|
00000ff0  f2 63 72 65 61 74 65 5f  66 6f 6e 74 5f 61 72 72  |.create_font_arr|
00001000  61 79 0d 09 7e 05 3a 0d  09 88 05 3a 0d 09 92 07  |ay..~.:....:....|
00001010  6e 3d 30 0d 09 9c 16 66  6f 6e 74 5f 70 74 72 3d  |n=0....font_ptr=|
00001020  66 6f 6e 74 5f 6c 69 73  74 0d 09 a6 05 f5 0d 09  |font_list.......|
00001030  b0 08 6e 2b 3d 31 0d 09  ba 13 66 6f 6e 74 24 3d  |..n+=1....font$=|
00001040  24 66 6f 6e 74 5f 70 74  72 0d 09 c4 18 66 6f 6e  |$font_ptr....fon|
00001050  74 5f 70 74 72 2b 3d a9  28 66 6f 6e 74 24 29 2b  |t_ptr+=.(font$)+|
00001060  31 0d 09 ce 12 66 6f 6e  74 24 28 6e 29 3d 66 6f  |1....font$(n)=fo|
00001070  6e 74 24 0d 09 d8 11 fd  24 66 6f 6e 74 5f 70 74  |nt$.....$font_pt|
00001080  72 3d 22 22 0d 09 e2 15  6e 75 6d 62 65 72 5f 6f  |r=""....number_o|
00001090  66 5f 66 6f 6e 74 73 3d  6e 0d 09 ec 11 66 6f 6e  |f_fonts=n....fon|
000010a0  74 24 28 30 29 3d c3 28  6e 29 0d 09 f6 05 3a 0d  |t$(0)=.(n)....:.|
000010b0  0a 00 05 e1 0d 0a 0a 04  0d 0a 14 04 0d 0a 1e 18  |................|
000010c0  dd f2 63 72 65 61 74 65  5f 74 65 78 74 5f 73 74  |..create_text_st|
000010d0  72 69 6e 67 0d 0a 28 05  3a 0d 0a 32 05 3a 0d 0a  |ring..(.:..2.:..|
000010e0  3c 13 74 65 78 74 5f 73  74 72 69 6e 67 24 3d 22  |<.text_string$="|
000010f0  22 0d 0a 46 10 e3 63 68  61 72 3d 33 33 b8 31 32  |"..F..char=33.12|
00001100  36 0d 0a 50 19 74 65 78  74 5f 73 74 72 69 6e 67  |6..P.text_string|
00001110  24 2b 3d bd 28 63 68 61  72 29 0d 0a 5a 05 ed 0d  |$+=.(char)..Z...|
00001120  0a 64 31 74 65 78 74 5f  73 74 72 69 6e 67 24 3d  |.d1text_string$=|
00001130  22 54 6f 7a 65 72 20 41  42 43 44 45 20 61 62 63  |"Tozer ABCDE abc|
00001140  64 65 20 31 32 33 34 35  20 20 21 40 23 24 25 22  |de 12345  !@#$%"|
00001150  0d 0a 6e 05 3a 0d 0a 78  05 e1 0d 0a 82 04 0d 0a  |..n.:..x........|
00001160  8c 04 0d 0a 96 11 dd f2  66 6f 6e 74 5f 72 65 61  |........font_rea|
00001170  64 65 72 0d 0a a0 05 3a  0d 0a aa 05 3a 0d 0a b4  |der....:....:...|
00001180  0d 66 6f 6e 74 5f 6e 6f  3d 30 0d 0a be 16 66 6f  |.font_no=0....fo|
00001190  6e 74 5f 70 74 72 3d 66  6f 6e 74 5f 6c 69 73 74  |nt_ptr=font_list|
000011a0  0d 0a c8 0e 66 69 6e 69  73 68 65 64 3d a3 0d 0a  |....finished=...|
000011b0  d2 05 3a 0d 0a dc 05 f5  0d 0a e6 39 c8 99 22 46  |..:........9.."F|
000011c0  6f 6e 74 5f 4c 69 73 74  46 6f 6e 74 73 22 2c 2c  |ont_ListFonts",,|
000011d0  66 6f 6e 74 5f 70 74 72  2c 66 6f 6e 74 5f 6e 6f  |font_ptr,font_no|
000011e0  2c 2d 31 20 b8 20 2c 2c  6c 61 73 74 5f 66 6f 6e  |,-1 . ,,last_fon|
000011f0  74 0d 0a f0 13 e7 20 ac  20 6c 61 73 74 5f 66 6f  |t..... . last_fo|
00001200  6e 74 20 8c 0d 0a fa 0e  66 6f 6e 74 5f 6e 6f 2b  |nt .....font_no+|
00001210  3d 31 0d 0b 04 1c 66 6f  6e 74 5f 70 74 72 2b 3d  |=1....font_ptr+=|
00001220  a9 28 24 66 6f 6e 74 5f  70 74 72 29 2b 31 0d 0b  |.($font_ptr)+1..|
00001230  0e 05 cc 0d 0b 18 0e 66  69 6e 69 73 68 65 64 3d  |.......finished=|
00001240  b9 0d 0b 22 05 cd 0d 0b  2c 0e fd 20 66 69 6e 69  |..."....,.. fini|
00001250  73 68 65 64 0d 0b 36 05  3a 0d 0b 40 10 3f 66 6f  |shed..6.:..@.?fo|
00001260  6e 74 5f 70 74 72 3d 31  33 0d 0b 4a 05 3a 0d 0b  |nt_ptr=13..J.:..|
00001270  54 05 e1 0d 0b 5e 04 0d  0b 68 04 0d 0b 72 11 dd  |T....^...h...r..|
00001280  f2 6c 69 73 74 5f 72 65  61 64 65 72 0d 0b 7c 05  |.list_reader..|.|
00001290  3a 0d 0b 86 05 3a 0d 0b  90 16 66 6f 6e 74 5f 70  |:....:....font_p|
000012a0  74 72 3d 66 6f 6e 74 5f  6c 69 73 74 0d 0b 9a 05  |tr=font_list....|
000012b0  f5 0d 0b a4 13 66 6f 6e  74 24 3d 24 66 6f 6e 74  |.....font$=$font|
000012c0  5f 70 74 72 0d 0b ae 18  66 6f 6e 74 5f 70 74 72  |_ptr....font_ptr|
000012d0  2b 3d a9 28 66 6f 6e 74  24 29 2b 31 0d 0b b8 11  |+=.(font$)+1....|
000012e0  fd 24 66 6f 6e 74 5f 70  74 72 3d 22 22 0d 0b c2  |.$font_ptr=""...|
000012f0  05 3a 0d 0b cc 05 e1 0d  ff                       |.:.......|
000012f9