� � � 12:�:� �:�
	�INIT
�QUESTIONS
�
#�******************************
� �MAIN
�
� STAT=0 � STAT=1 �LEFT
	� STAT=0 � STAT=2 �RIGHT

%y=T:�logs:startfont=N+1:SCREEN+=1
� N=fontcount%
�

2� �0,0) "All fonts found have been displayed."
�
�LOGPRINT:� � �ERROR
7�"ChangeDynamicArea -FontSize "+�(oldfontcache)+"K"
X�:� "N.B. The Font Cache has been restored to it's original size - ";oldfontcache"k"
R�:� "Normally each 'screenfull' of fonts would have been saved as a sprite in"
H� "the directory - !RISCutils.User_Area.Programs.WSYfont.Font-Lists"
7�:� "As vewing of Font-Lists is quicker and easier"
5� "using the sprites, rather than this program. "
7�:� "This is an Unregistered version of RISCutils,"
0� "therfore this feature has been disabled."
C�:� "See the Help-Files to Register and obtain a full version."
+ș "XFont_LoseFont",font$(fontcount%):�
4�***********************************************
� �logs
\� P=1 � N<>fontcount% � �0,0)"Press any key or mouse button to display the next screen."
� N=fontcount% �
2� P=1 �:ȗ X,O,I:ș&6,121,0 �,K:� I>0 � K<>255
'ȓ Ȑ 0,0,screenx%+100,screeny%+100
 �
!"�*****************************
"� �ERROR
#A� ��$,"No suitable font data for")>0 logs+=1:logs$(logs)=�$:�
$]ș "XFont_LoseFont",font$(fontcount%):�"ChangeDynamicArea -FontSize "+�(oldfontcache)+"K"
%� �=17 �"DESKTOP":�
&I� �$ " at line ";�". Error Type=" � :�:� "font$= " font$(N):� "N="N:�
'�
((�***********************************
)� �LEFT
*
STAT=1
+&ȕ y-Height>Bottom � N<>fontcount%
,N+=1:y-=Height
-XCZ=� ��(N))/2
.� XCZ=� XCZ � D$="Y" �
/�� D$="Y" text$=font$(N):�print_words("Homerton.Medium",�(N)+" "+font$(N),25,y,fsize%,0,0,0) � � LEFT<>7 �TEXT:�print_words(LEFTFONT$,LEFTNUM$+" "+LEFTTEXT$,25,y,fsize%,R,G,B)
0�
1�
2N=startfont-1:y=T:STAT=0
3�
4!�****************************
5� �RIGHT
6� STAT=0 �
7=� D$="Y" ȓ Ȑ 585,0,900,T � � RIGHT<>7 ȓ Ȑ 585,0,900,T
8�
9
STAT=2
:&ȕ y-Height>Bottom � N<>fontcount%
;N+=1:y-=Height
<XCZ=� ��(N))/2
=� XCZ=� XCZ �
>�� D$="Y" text$=font$(N):�print_words(font$(N),text$,600,y,fsize%,0,0,0) � � RIGHT<>7 �TEXT:�print_words(RIGHTFONT$,RIGHTNUM$+"  "+RIGHTTEXT$,600,y,fsize%,R,G,B)
?�
@�
A
STAT=0
B�
C"�*****************************
D� �TEXT
E� NUM=1 LEFTNUM$=�(N)
F� NUM=2 RIGHTNUM$=�(N)
G1� LEFT=1 � LEFT=2 � LEFT=3 LEFTTEXT$=font$(N)
H:� LEFT=3 � LEFT=4 � LEFT=5 � LEFT=6 LEFTFONT$=font$(N)
I5� RIGHT=1 � RIGHT=2 � RIGHT=3 RIGHTTEXT$=font$(N)
J?� RIGHT=3 � RIGHT=4 � RIGHT=5 � RIGHT=6 RIGHTFONT$=font$(N)
K�
L"�*****************************
M� �QUESTIONS
N/� " - WSYfont - Demonstration Version 1.01"
OL�:� "Purpose : This program provides the user with a WYSWIG font list :"
PI�:� "Font-names are displayed in the standard Homerton.Medium font -"
Q%� "And in their own font styles."
RR� "E.g. The name of the font NewHall.Bold would be displayed in NewHall.Bold":
S�
TT� "Why use a WSYWIG Font-List? When searching through your fonts deciding which"
UR� "to use in a document, picture etc. you can see in a matter of seconds what"
VM� "any of your fonts look like, and which best suits your current needs."
WQ� "As opposed to using non-WSYWIG Font-Lists (produced by almost all RISC OS"
XX� "applications) E.g. Edit, Paint, and Draw - Which can often take over 30 minutes!"
Y�
ZV�"It has various other facilities - E.g. The ability to display user defined text"
[W� "in each available font, instead of the font name. Useful for posters etc. where"
\P� "you want to'quickly' see which font a particular sentence looks best in."
]�
^T� "Compiling the Font-List can be time-consuming if there is little free memory"
_Q� "available. If you have not already done so please quit this program, quit"
`R� "all unessacary applications to 'Free up' maximum memory, and then Run this"
aV� "program again before going any further. To exit this program now press Escape."
b�
cX� "The program compiles the font-list on screen and then saves each 'screenfull' as"
dU� "a sprite in the directory '!RISCutils.User_area.Programs.WSYfont.Font-Lists'."
eX� "Font-List viewing is quicker and easier using sprites, rather than this program."
f
g�E=0:� � � �=17 �:� � � �=493 E=1:�:�"Mode '";MO"' is not available":� � � �=26 E=1:�:� "Screen mode must be numeric only":� � � �=4 �15:�:�"Mode '";MO"' is text only - please choose another.":� � �ERROR
h
iX� "Please choose a screen mode (numeric only, 15 or 28 is normal) for these sprites"
j� "to be saved in. "
kL� "The higher the mode number the better resolution Font-List produced."
lQ� "The lower the mode number the less memory (RAM & Disc-Space) needed : "MO$
mMO=� MO$
n!� MO$="0" � 0 � � MO=0 � SDFG
o� MO$<>"0" � MO
p!�255:� 1,1,1,1:� �1,1)=-1 FGF
q
rE=0:� � E=1
s� E=0 � SDFSD
tE=0:� � �ERROR
u� 15
v%� �0,0) "Number of fonts found: "
w�findfonts
x� Find Font Cache.
y*ș "OS_ReadDynamicArea",4 � ,FontSize%
zFontSize%=FontSize%/1024
{4� Find Free+Next slots. Total free mem=free+next
|)ș "Wimp_SlotSize",-1,-1 � ,next,free
}!next=next/1024:free=free/1024
~oldfontcache=FontSize%
oldnext=next
�
�W� �0,0) "Number of fonts found: " ;fontcount% "  Current Font Cache: ";FontSize%"k"
�@� �0,2) "Attempting to allocate all memory to Font Cache - "
�
��FONTCACHE
��
� �***************************
�� �QUESTIONS2
�� � �ERROR
�:�"---------------------------------------------------"
�6� "Press Escape at any time to exit this program."
�>�:� "The default settings for running the program are :- "
�2�:�:� "Text Size=16pts - Text Colour=Black ":�
�!� "Backround Colour=White ":�
�8� "On the left hand side of the screen, the name of"
�>� "each font is displayed in the 'Homerton.Medium' font":�
�>� "On the right hand side of the screen, the font name is"
�D� "printed using the font itself, as an example of font usage":�
�I� "The font number is displayed on the leftmost area of the screen":�
�>� "On the right hand side of the screen, the font name is"
�C� "printed using the font itself, as an example of font usage "
�?�:� "---------------------------------------------------":�
��
�;� "Please state now (using a Y for Yes, or a N for No)"
�K� "whether you would like to run the program with these settings : " D$
�'� D$="Y" � D$="y" � D$="n" � D$="N"
��
��
�@� "Would you like the program to pause after compiling each"
�F� "'screenfull' of fonts (using a Y for Yes, or a N for No) : " P$
�'� P$="Y" � P$="y" � P$="n" � P$="N"
�� P$="Y" � P$="y" P=1 � P=0
�
�� D$="Y" � D$="y" �
�>�"Preparing to display WSYWIG font list.":fsize%=16:D$="Y"
�� � �ERROR:�MAIN
�TIM=�:�=0:�15
�o� �0,8) "N.B. As this is a Demonstration version, only every other font is displayed.":� 2:� 0,730,1220,730
�
�:� �=300
�	�=TIM
�� MO
�%ș"OS_ReadModeVariable",-1,4�,,Z%
�:ș"OS_ReadModeVariable",-1,11�,,x%:screenx%=(x%<<Z%)+1
�%ș"OS_ReadModeVariable",-1,5�,,Z%
�:ș"OS_ReadModeVariable",-1,12�,,y%:screeny%=(y%<<Z%)+1
�K� Z:ȓ Ȑ 0,0,screenx%+100,screeny%+100:T=950:V=1:N=0:x=50:y=T:LAST$=""
�?STAT=0:KJH=1:Bottom=10:Height=fsize%*3:SCREEN=1:startfont=1
��
��
�� D$="Y" � D$="y" �MAIN
��
��
�V� "Please enter the size of text to be used (numeric only, 1 or higher) : " fsize%
�� fsize%>0
��
��
��
�9� "Enter '1' to use Black text on a White backround,"
�=� "Enter '2' to use White text on a Black backround : "TC
�� TC=1 � TC=2
�� TC=1 R=0:G=0:B=0:Z=255
� � TC=2 R=255:G=255:B=255:Z=0
��
�� "Text settings are : "
�D� "1 =  the name of each font is displayed in 'Homerton.Medium'"
�G� "2 =  the name of each font is displayed in a user-defined-font."
�=� "3 =  the name of each font is displayed in that font."
�X� "4 =  THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG (&?!) is displayed in the font."
�i� "5 =  the quick brown fox jumps over the lazy dog :;~<<>> 1234567890 is displayed     in the font."
�F� "6 =  a sentence of user defined text is displayed in the font."
�� "7 =  none."
��
�2� "Note : settings 4 and 5 are useful as they"
�1� "display most of the characters in a font."
��
��
�8� "Please enter a number setting (1-7) for the text"
�<� "displayed on the left hand side of the screen : "LEFT
�� LEFT>0 � LEFT<8
�(� LEFT=1 LEFTFONT$="Homerton.Medium"
�
�+E=0:� � �:� �=523 E=1:� �$:� � �ERROR:�
��
�� LEFT=2 �
�T� "Please enter the name of the font to be used (case-insensitive) : " LEFTFONT$
�3�print_words(LEFTFONT$,"�",-100,-100,2,0,0,0):�
�"�"Font tested - OK for use.":�
��
�E=0
�
�� LEFT<>2 � E=0
�
�J� LEFT=4 LEFTTEXT$="THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG (&?!)"
�W� LEFT=5 LEFTTEXT$="the quick brown fox jumps over the lazy dog :;~<<>> 1234567890"
�A� LEFT=6 � "Please enter the sentence to be used - "LEFTTEXT$
��
��
�8� "Please enter a number setting (1-7) for the text"
�>� "displayed on the right hand side of the screen : "RIGHT
�� RIGHT>0 � RIGHT<8
��
�*� RIGHT=1 RIGHTFONT$="Homerton.Medium"
�
�+E=0:� � �:� �=523 E=1:� �$:� � �ERROR:�
��
�� RIGHT=2 �
�U� "Please enter the name of the font to be used (case-insensitive) : " RIGHTFONT$
�4�print_words(RIGHTFONT$,"�",-100,-100,2,0,0,0):�
�"�"Font tested - OK for use.":�
��
�E=0
�
�L� RIGHT=4 RIGHTTEXT$="THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG (&?!)"
�Y� RIGHT=5 RIGHTTEXT$="the quick brown fox jumps over the lazy dog :;~<<>> 1234567890"
�C� RIGHT=6 � "Please enter the sentence to be used - "RIGHTTEXT$
�
��
�3� "Would you like the font number displayed - "
�/� "1: on the leftmost area of the screen. "
�,� "2: in between the two text columns. "
�� "3: not at all. "
�� "? " NUM
�
�_� NUM<>1 � NUM<>2 � NUM<>3 �:� "Please enter a number setting (1-3) : "NUM :� NUM>0 � NUM<4
�� NUM=1 RIGHTNUM$=""
�� NUM=2 LEFTNUM$=""
�$� NUM=3 LEFTNUM$="":RIGHTNUM$=""
�

-�"Preparing to display WSYWIG font list."


� � �ERROR:�MAIN

TIM=�:�=0:�15

o� �0,8) "N.B. As this is a Demonstration version, only every other font is displayed.":� 2:� 0,730,1220,730


�:� �=300

	�=TIM

� MO

%ș"OS_ReadModeVariable",-1,4�,,Z%

:ș"OS_ReadModeVariable",-1,11�,,x%:screenx%=(x%<<Z%)+1

	%ș"OS_ReadModeVariable",-1,5�,,Z%


:ș"OS_ReadModeVariable",-1,12�,,y%:screeny%=(y%<<Z%)+1

L� Z:ȓ Ȑ 0,0,screenx%+100,screeny%+100::T=950:V=1:N=0:x=50:y=T:LAST$=""

?STAT=0:KJH=1:Bottom=10:Height=fsize%*3:SCREEN=1:startfont=1


�

	�MAIN

$�*******************************

� �MEMERROR

�

\� "Attempt to allocate all memory to Font Cache partially failed, or failed completly! "

*ș "OS_ReadDynamicArea",4 � ,FontSize%

FontSize%=FontSize%/1024

)ș "Wimp_SlotSize",-1,-1 � ,next,free

!next=next/1024:free=free/1024

,�:� "Current Font Cache : ";FontSize%"k"

+� "Current Free memory : ";next+free"k"

�

G� "The sensible minimum Font Cache size for this program is 200k":�

�� FontSize%<200 � "It is advised that you now Quit WSYfont and manually enlarge the Font Cache.":� "Then run WSYFONT again (Press Escape to Quit now)"

�� FontSize%<200 �:�"WSYfont will attempt to compile a Font-List if you continue,":�"but will be very slow and may crash due to the small Font Cache.":� "- You have been warned!"

�� FontSize%>200 � "WSYfont will now compile a Font-List.":�"Please note the compiling speed is dependant on the Font Cache size.":�

�� FontSize%>200 � "If there is significant Free memory, it may be worth quiting WSYfont and manually enlarging the Font Cache. Then run WSYFONT again (Press Escape to Quit now)":�"If not, then continue."



 4�:� "Press any key or mouse button to continue."

!,�:ȗ X,O,I:ș&6,121,0 �,K:� I>0 � K<>255

"�

#$�*******************************

$� �MEMOK

%Cș "OS_ReadDynamicArea",4 � ,FontSize%:FontSize%=FontSize%/1024

&_�:� �0,2) "Attempting to allocate all memory to Font Cache - New Font Cache: ";FontSize%"k"

'W�:� "N.B. Original Font Cache size is restored after compilation of the Font-List."

(�

)$�*******************************

*� �FONTCACHE

+FED=FontSize%+next+free

,Z� � � �=450 FED-=10 � � �=4 � FontSize%>200 �MEMOK:�QUESTIONS2 � �MEMERROR:�QUESTIONS2

-/� "CHANGEDYNAMICAREA -FONTSIZE "+�(FED)+"k"

.SDF

/�

0)�************************************

1� �LOGPRINT

2	� � �

3J� logs>0 � "Please note, these problems occurred with the Font-List -"

4� A=1 � logs

5%� logs$(A)<>logs$(A+1) � logs$(A)

6� A

7� logs>0 �

8�

9"�*****************************

::� �print_words(font$,text$,xx%,yy%,fsize%,rr%,gg%,bb%)

;=ș "Font_FindFont",,font$,fsize%*16,fsize%*16,0,0 � font%

<Oș "ColourTrans_SetFontColours",font%,0,(rr%<<8) + (gg%<<16) + (bb%<<24),14

=+ș "Font_Paint",font%,text$,784,xx%,yy%

>ș "Font_LoseFont",font%

?�

@!�****************************

A� �findfonts

B� c%

Cfontcount%=0

Dc%=0

E�

Ffontcount%+=1

G>ș "Font_ListFonts",,fontid,c%,256 � ,font$(fontcount%),c%

H� c%=-1

I�

J!�****************************

K� �INIT

L�� � *ERROR RISCutils hasn't been Filer_Booted / Filer_Run, or its file-structure is incorrect. Do not tamper with RISCutils, & do not move WSYfont from it's directory. WSYfont won't run until a 'complete' copy of RISCutils is 'Run' or 'Booted' .

M.� "STAMP <RISCutils$Path>.NON_USER.NORMAL"

N#� "STAMP <RISCutils$Path>.!Run"

OG� "STAMP <RISCutils$Path>.User_Area.Programs.WSYfont.!WSYfont.!Run"

P!R=0:G=0:B=0:Z=255:logs=0:� 15

Q� � �ERROR

R�*COPY <RISCutils$Path>.User_Area.Programs.WSYfont.!WSYfont.Fontlists <RISCutils$Path>.User_Area.Programs.WSYfont.Font-Lists ~C ~V

SPș "Font_CacheAddr" � version%:� version% < 300 � � 0,"Font Manager too old"

T� fontid 256

U� font$(1000)

V� logs$(200)

W� fontmatrix% 32

X�

Y"�*****************************
�

00000000  0d 00 01 14 ee 20 85 20  eb 20 31 32 3a f6 3a f1  |..... . . 12:.:.|
00000010  20 9e 3a e0 0d 00 02 09  f2 49 4e 49 54 0d 00 03  | .:......INIT...|
00000020  0e f2 51 55 45 53 54 49  4f 4e 53 0d 00 04 05 e0  |..QUESTIONS.....|
00000030  0d 00 05 23 f4 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |...#.***********|
00000040  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000050  2a 2a 2a 0d 00 06 0b dd  20 f2 4d 41 49 4e 0d 00  |***..... .MAIN..|
00000060  07 05 f5 0d 00 08 1b e7  20 53 54 41 54 3d 30 20  |........ STAT=0 |
00000070  84 20 53 54 41 54 3d 31  20 f2 4c 45 46 54 0d 00  |. STAT=1 .LEFT..|
00000080  09 1c e7 20 53 54 41 54  3d 30 20 84 20 53 54 41  |... STAT=0 . STA|
00000090  54 3d 32 20 f2 52 49 47  48 54 0d 00 0a 25 79 3d  |T=2 .RIGHT...%y=|
000000a0  54 3a f2 6c 6f 67 73 3a  73 74 61 72 74 66 6f 6e  |T:.logs:startfon|
000000b0  74 3d 4e 2b 31 3a 53 43  52 45 45 4e 2b 3d 31 0d  |t=N+1:SCREEN+=1.|
000000c0  00 0b 12 fd 20 4e 3d 66  6f 6e 74 63 6f 75 6e 74  |.... N=fontcount|
000000d0  25 0d 00 0c 05 f1 0d 00  0d 32 f1 20 8a 30 2c 30  |%........2. .0,0|
000000e0  29 20 22 41 6c 6c 20 66  6f 6e 74 73 20 66 6f 75  |) "All fonts fou|
000000f0  6e 64 20 68 61 76 65 20  62 65 65 6e 20 64 69 73  |nd have been dis|
00000100  70 6c 61 79 65 64 2e 22  0d 00 0e 05 f1 0d 00 0f  |played."........|
00000110  18 f2 4c 4f 47 50 52 49  4e 54 3a ee 20 85 20 f2  |..LOGPRINT:. . .|
00000120  45 52 52 4f 52 0d 00 10  37 ff 22 43 68 61 6e 67  |ERROR...7."Chang|
00000130  65 44 79 6e 61 6d 69 63  41 72 65 61 20 2d 46 6f  |eDynamicArea -Fo|
00000140  6e 74 53 69 7a 65 20 22  2b c3 28 6f 6c 64 66 6f  |ntSize "+.(oldfo|
00000150  6e 74 63 61 63 68 65 29  2b 22 4b 22 0d 00 11 58  |ntcache)+"K"...X|
00000160  ee 3a f1 20 22 4e 2e 42  2e 20 54 68 65 20 46 6f  |.:. "N.B. The Fo|
00000170  6e 74 20 43 61 63 68 65  20 68 61 73 20 62 65 65  |nt Cache has bee|
00000180  6e 20 72 65 73 74 6f 72  65 64 20 74 6f 20 69 74  |n restored to it|
00000190  27 73 20 6f 72 69 67 69  6e 61 6c 20 73 69 7a 65  |'s original size|
000001a0  20 2d 20 22 3b 6f 6c 64  66 6f 6e 74 63 61 63 68  | - ";oldfontcach|
000001b0  65 22 6b 22 0d 00 12 52  f1 3a f1 20 22 4e 6f 72  |e"k"...R.:. "Nor|
000001c0  6d 61 6c 6c 79 20 65 61  63 68 20 27 73 63 72 65  |mally each 'scre|
000001d0  65 6e 66 75 6c 6c 27 20  6f 66 20 66 6f 6e 74 73  |enfull' of fonts|
000001e0  20 77 6f 75 6c 64 20 68  61 76 65 20 62 65 65 6e  | would have been|
000001f0  20 73 61 76 65 64 20 61  73 20 61 20 73 70 72 69  | saved as a spri|
00000200  74 65 20 69 6e 22 0d 00  13 48 f1 20 22 74 68 65  |te in"...H. "the|
00000210  20 64 69 72 65 63 74 6f  72 79 20 2d 20 21 52 49  | directory - !RI|
00000220  53 43 75 74 69 6c 73 2e  55 73 65 72 5f 41 72 65  |SCutils.User_Are|
00000230  61 2e 50 72 6f 67 72 61  6d 73 2e 57 53 59 66 6f  |a.Programs.WSYfo|
00000240  6e 74 2e 46 6f 6e 74 2d  4c 69 73 74 73 22 0d 00  |nt.Font-Lists"..|
00000250  14 37 f1 3a f1 20 22 41  73 20 76 65 77 69 6e 67  |.7.:. "As vewing|
00000260  20 6f 66 20 46 6f 6e 74  2d 4c 69 73 74 73 20 69  | of Font-Lists i|
00000270  73 20 71 75 69 63 6b 65  72 20 61 6e 64 20 65 61  |s quicker and ea|
00000280  73 69 65 72 22 0d 00 15  35 f1 20 22 75 73 69 6e  |sier"...5. "usin|
00000290  67 20 74 68 65 20 73 70  72 69 74 65 73 2c 20 72  |g the sprites, r|
000002a0  61 74 68 65 72 20 74 68  61 6e 20 74 68 69 73 20  |ather than this |
000002b0  70 72 6f 67 72 61 6d 2e  20 22 0d 00 16 37 f1 3a  |program. "...7.:|
000002c0  f1 20 22 54 68 69 73 20  69 73 20 61 6e 20 55 6e  |. "This is an Un|
000002d0  72 65 67 69 73 74 65 72  65 64 20 76 65 72 73 69  |registered versi|
000002e0  6f 6e 20 6f 66 20 52 49  53 43 75 74 69 6c 73 2c  |on of RISCutils,|
000002f0  22 0d 00 17 30 f1 20 22  74 68 65 72 66 6f 72 65  |"...0. "therfore|
00000300  20 74 68 69 73 20 66 65  61 74 75 72 65 20 68 61  | this feature ha|
00000310  73 20 62 65 65 6e 20 64  69 73 61 62 6c 65 64 2e  |s been disabled.|
00000320  22 0d 00 18 43 f1 3a f1  20 22 53 65 65 20 74 68  |"...C.:. "See th|
00000330  65 20 48 65 6c 70 2d 46  69 6c 65 73 20 74 6f 20  |e Help-Files to |
00000340  52 65 67 69 73 74 65 72  20 61 6e 64 20 6f 62 74  |Register and obt|
00000350  61 69 6e 20 61 20 66 75  6c 6c 20 76 65 72 73 69  |ain a full versi|
00000360  6f 6e 2e 22 0d 00 19 2b  c8 99 20 22 58 46 6f 6e  |on."...+.. "XFon|
00000370  74 5f 4c 6f 73 65 46 6f  6e 74 22 2c 66 6f 6e 74  |t_LoseFont",font|
00000380  24 28 66 6f 6e 74 63 6f  75 6e 74 25 29 3a e0 0d  |$(fontcount%):..|
00000390  00 1a 34 f4 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |..4.************|
000003a0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000003c0  2a 2a 2a 0d 00 1b 0b dd  20 f2 6c 6f 67 73 0d 00  |***..... .logs..|
000003d0  1c 5c e7 20 50 3d 31 20  80 20 4e 3c 3e 66 6f 6e  |.\. P=1 . N<>fon|
000003e0  74 63 6f 75 6e 74 25 20  f1 20 8a 30 2c 30 29 22  |tcount% . .0,0)"|
000003f0  50 72 65 73 73 20 61 6e  79 20 6b 65 79 20 6f 72  |Press any key or|
00000400  20 6d 6f 75 73 65 20 62  75 74 74 6f 6e 20 74 6f  | mouse button to|
00000410  20 64 69 73 70 6c 61 79  20 74 68 65 20 6e 65 78  | display the nex|
00000420  74 20 73 63 72 65 65 6e  2e 22 0d 00 1d 14 e7 20  |t screen."..... |
00000430  4e 3d 66 6f 6e 74 63 6f  75 6e 74 25 20 e1 0d 00  |N=fontcount% ...|
00000440  1e 32 e7 20 50 3d 31 20  f5 3a c8 97 20 58 2c 4f  |.2. P=1 .:.. X,O|
00000450  2c 49 3a c8 99 26 36 2c  31 32 31 2c 30 20 b8 2c  |,I:..&6,121,0 .,|
00000460  4b 3a fd 20 49 3e 30 20  84 20 4b 3c 3e 32 35 35  |K:. I>0 . K<>255|
00000470  0d 00 1f 27 c8 93 20 c8  90 20 30 2c 30 2c 73 63  |...'.. .. 0,0,sc|
00000480  72 65 65 6e 78 25 2b 31  30 30 2c 73 63 72 65 65  |reenx%+100,scree|
00000490  6e 79 25 2b 31 30 30 0d  00 20 05 e1 0d 00 21 22  |ny%+100.. ....!"|
000004a0  f4 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.***************|
000004b0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 00  |**************..|
000004c0  22 0c dd 20 f2 45 52 52  4f 52 0d 00 23 41 e7 20  |".. .ERROR..#A. |
000004d0  a7 f6 24 2c 22 4e 6f 20  73 75 69 74 61 62 6c 65  |..$,"No suitable|
000004e0  20 66 6f 6e 74 20 64 61  74 61 20 66 6f 72 22 29  | font data for")|
000004f0  3e 30 20 6c 6f 67 73 2b  3d 31 3a 6c 6f 67 73 24  |>0 logs+=1:logs$|
00000500  28 6c 6f 67 73 29 3d f6  24 3a e1 0d 00 24 5d c8  |(logs)=.$:...$].|
00000510  99 20 22 58 46 6f 6e 74  5f 4c 6f 73 65 46 6f 6e  |. "XFont_LoseFon|
00000520  74 22 2c 66 6f 6e 74 24  28 66 6f 6e 74 63 6f 75  |t",font$(fontcou|
00000530  6e 74 25 29 3a ff 22 43  68 61 6e 67 65 44 79 6e  |nt%):."ChangeDyn|
00000540  61 6d 69 63 41 72 65 61  20 2d 46 6f 6e 74 53 69  |amicArea -FontSi|
00000550  7a 65 20 22 2b c3 28 6f  6c 64 66 6f 6e 74 63 61  |ze "+.(oldfontca|
00000560  63 68 65 29 2b 22 4b 22  0d 00 25 17 e7 20 9f 3d  |che)+"K"..%.. .=|
00000570  31 37 20 ff 22 44 45 53  4b 54 4f 50 22 3a e0 0d  |17 ."DESKTOP":..|
00000580  00 26 49 f1 20 f6 24 20  22 20 61 74 20 6c 69 6e  |.&I. .$ " at lin|
00000590  65 20 22 3b 9e 22 2e 20  45 72 72 6f 72 20 54 79  |e ";.". Error Ty|
000005a0  70 65 3d 22 20 9f 20 3a  e0 3a f1 20 22 66 6f 6e  |pe=" . :.:. "fon|
000005b0  74 24 3d 20 22 20 66 6f  6e 74 24 28 4e 29 3a f1  |t$= " font$(N):.|
000005c0  20 22 4e 3d 22 4e 3a e0  0d 00 27 05 e0 0d 00 28  | "N="N:...'....(|
000005d0  28 f4 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |(.**************|
000005e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000005f0  2a 2a 2a 2a 2a 0d 00 29  0b dd 20 f2 4c 45 46 54  |*****..).. .LEFT|
00000600  0d 00 2a 0a 53 54 41 54  3d 31 0d 00 2b 26 c8 95  |..*.STAT=1..+&..|
00000610  20 79 2d 48 65 69 67 68  74 3e 42 6f 74 74 6f 6d  | y-Height>Bottom|
00000620  20 80 20 4e 3c 3e 66 6f  6e 74 63 6f 75 6e 74 25  | . N<>fontcount%|
00000630  0d 00 2c 12 4e 2b 3d 31  3a 79 2d 3d 48 65 69 67  |..,.N+=1:y-=Heig|
00000640  68 74 0d 00 2d 12 58 43  5a 3d bb 20 c2 c3 28 4e  |ht..-.XCZ=. ..(N|
00000650  29 29 2f 32 0d 00 2e 1a  e7 20 58 43 5a 3d a8 20  |))/2..... XCZ=. |
00000660  58 43 5a 20 84 20 44 24  3d 22 59 22 20 8c 0d 00  |XCZ . D$="Y" ...|
00000670  2f b2 e7 20 44 24 3d 22  59 22 20 74 65 78 74 24  |/.. D$="Y" text$|
00000680  3d 66 6f 6e 74 24 28 4e  29 3a f2 70 72 69 6e 74  |=font$(N):.print|
00000690  5f 77 6f 72 64 73 28 22  48 6f 6d 65 72 74 6f 6e  |_words("Homerton|
000006a0  2e 4d 65 64 69 75 6d 22  2c c3 28 4e 29 2b 22 20  |.Medium",.(N)+" |
000006b0  22 2b 66 6f 6e 74 24 28  4e 29 2c 32 35 2c 79 2c  |"+font$(N),25,y,|
000006c0  66 73 69 7a 65 25 2c 30  2c 30 2c 30 29 20 8b 20  |fsize%,0,0,0) . |
000006d0  e7 20 4c 45 46 54 3c 3e  37 20 f2 54 45 58 54 3a  |. LEFT<>7 .TEXT:|
000006e0  f2 70 72 69 6e 74 5f 77  6f 72 64 73 28 4c 45 46  |.print_words(LEF|
000006f0  54 46 4f 4e 54 24 2c 4c  45 46 54 4e 55 4d 24 2b  |TFONT$,LEFTNUM$+|
00000700  22 20 22 2b 4c 45 46 54  54 45 58 54 24 2c 32 35  |" "+LEFTTEXT$,25|
00000710  2c 79 2c 66 73 69 7a 65  25 2c 52 2c 47 2c 42 29  |,y,fsize%,R,G,B)|
00000720  0d 00 30 05 cd 0d 00 31  05 ce 0d 00 32 1c 4e 3d  |..0....1....2.N=|
00000730  73 74 61 72 74 66 6f 6e  74 2d 31 3a 79 3d 54 3a  |startfont-1:y=T:|
00000740  53 54 41 54 3d 30 0d 00  33 05 e1 0d 00 34 21 f4  |STAT=0..3....4!.|
00000750  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000760  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 00 35 0c  |************..5.|
00000770  dd 20 f2 52 49 47 48 54  0d 00 36 0e e7 20 53 54  |. .RIGHT..6.. ST|
00000780  41 54 3d 30 20 8c 0d 00  37 3d e7 20 44 24 3d 22  |AT=0 ...7=. D$="|
00000790  59 22 20 c8 93 20 c8 90  20 35 38 35 2c 30 2c 39  |Y" .. .. 585,0,9|
000007a0  30 30 2c 54 20 8b 20 e7  20 52 49 47 48 54 3c 3e  |00,T . . RIGHT<>|
000007b0  37 20 c8 93 20 c8 90 20  35 38 35 2c 30 2c 39 30  |7 .. .. 585,0,90|
000007c0  30 2c 54 0d 00 38 05 cd  0d 00 39 0a 53 54 41 54  |0,T..8....9.STAT|
000007d0  3d 32 0d 00 3a 26 c8 95  20 79 2d 48 65 69 67 68  |=2..:&.. y-Heigh|
000007e0  74 3e 42 6f 74 74 6f 6d  20 80 20 4e 3c 3e 66 6f  |t>Bottom . N<>fo|
000007f0  6e 74 63 6f 75 6e 74 25  0d 00 3b 12 4e 2b 3d 31  |ntcount%..;.N+=1|
00000800  3a 79 2d 3d 48 65 69 67  68 74 0d 00 3c 12 58 43  |:y-=Height..<.XC|
00000810  5a 3d bb 20 c2 c3 28 4e  29 29 2f 32 0d 00 3d 11  |Z=. ..(N))/2..=.|
00000820  e7 20 58 43 5a 3d a8 20  58 43 5a 20 8c 0d 00 3e  |. XCZ=. XCZ ...>|
00000830  a4 e7 20 44 24 3d 22 59  22 20 74 65 78 74 24 3d  |.. D$="Y" text$=|
00000840  66 6f 6e 74 24 28 4e 29  3a f2 70 72 69 6e 74 5f  |font$(N):.print_|
00000850  77 6f 72 64 73 28 66 6f  6e 74 24 28 4e 29 2c 74  |words(font$(N),t|
00000860  65 78 74 24 2c 36 30 30  2c 79 2c 66 73 69 7a 65  |ext$,600,y,fsize|
00000870  25 2c 30 2c 30 2c 30 29  20 8b 20 e7 20 52 49 47  |%,0,0,0) . . RIG|
00000880  48 54 3c 3e 37 20 f2 54  45 58 54 3a f2 70 72 69  |HT<>7 .TEXT:.pri|
00000890  6e 74 5f 77 6f 72 64 73  28 52 49 47 48 54 46 4f  |nt_words(RIGHTFO|
000008a0  4e 54 24 2c 52 49 47 48  54 4e 55 4d 24 2b 22 20  |NT$,RIGHTNUM$+" |
000008b0  20 22 2b 52 49 47 48 54  54 45 58 54 24 2c 36 30  | "+RIGHTTEXT$,60|
000008c0  30 2c 79 2c 66 73 69 7a  65 25 2c 52 2c 47 2c 42  |0,y,fsize%,R,G,B|
000008d0  29 0d 00 3f 05 cd 0d 00  40 05 ce 0d 00 41 0a 53  |)..?....@....A.S|
000008e0  54 41 54 3d 30 0d 00 42  05 e1 0d 00 43 22 f4 2a  |TAT=0..B....C".*|
000008f0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000900  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 00 44 0b  |************..D.|
00000910  dd 20 f2 54 45 58 54 0d  00 45 19 e7 20 4e 55 4d  |. .TEXT..E.. NUM|
00000920  3d 31 20 4c 45 46 54 4e  55 4d 24 3d c3 28 4e 29  |=1 LEFTNUM$=.(N)|
00000930  0d 00 46 1a e7 20 4e 55  4d 3d 32 20 52 49 47 48  |..F.. NUM=2 RIGH|
00000940  54 4e 55 4d 24 3d c3 28  4e 29 0d 00 47 31 e7 20  |TNUM$=.(N)..G1. |
00000950  4c 45 46 54 3d 31 20 84  20 4c 45 46 54 3d 32 20  |LEFT=1 . LEFT=2 |
00000960  84 20 4c 45 46 54 3d 33  20 4c 45 46 54 54 45 58  |. LEFT=3 LEFTTEX|
00000970  54 24 3d 66 6f 6e 74 24  28 4e 29 0d 00 48 3a e7  |T$=font$(N)..H:.|
00000980  20 4c 45 46 54 3d 33 20  84 20 4c 45 46 54 3d 34  | LEFT=3 . LEFT=4|
00000990  20 84 20 4c 45 46 54 3d  35 20 84 20 4c 45 46 54  | . LEFT=5 . LEFT|
000009a0  3d 36 20 4c 45 46 54 46  4f 4e 54 24 3d 66 6f 6e  |=6 LEFTFONT$=fon|
000009b0  74 24 28 4e 29 0d 00 49  35 e7 20 52 49 47 48 54  |t$(N)..I5. RIGHT|
000009c0  3d 31 20 84 20 52 49 47  48 54 3d 32 20 84 20 52  |=1 . RIGHT=2 . R|
000009d0  49 47 48 54 3d 33 20 52  49 47 48 54 54 45 58 54  |IGHT=3 RIGHTTEXT|
000009e0  24 3d 66 6f 6e 74 24 28  4e 29 0d 00 4a 3f e7 20  |$=font$(N)..J?. |
000009f0  52 49 47 48 54 3d 33 20  84 20 52 49 47 48 54 3d  |RIGHT=3 . RIGHT=|
00000a00  34 20 84 20 52 49 47 48  54 3d 35 20 84 20 52 49  |4 . RIGHT=5 . RI|
00000a10  47 48 54 3d 36 20 52 49  47 48 54 46 4f 4e 54 24  |GHT=6 RIGHTFONT$|
00000a20  3d 66 6f 6e 74 24 28 4e  29 0d 00 4b 05 e1 0d 00  |=font$(N)..K....|
00000a30  4c 22 f4 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |L".*************|
00000a40  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000a50  0d 00 4d 10 dd 20 f2 51  55 45 53 54 49 4f 4e 53  |..M.. .QUESTIONS|
00000a60  0d 00 4e 2f f1 20 22 20  2d 20 57 53 59 66 6f 6e  |..N/. " - WSYfon|
00000a70  74 20 2d 20 44 65 6d 6f  6e 73 74 72 61 74 69 6f  |t - Demonstratio|
00000a80  6e 20 56 65 72 73 69 6f  6e 20 31 2e 30 31 22 0d  |n Version 1.01".|
00000a90  00 4f 4c f1 3a f1 20 22  50 75 72 70 6f 73 65 20  |.OL.:. "Purpose |
00000aa0  3a 20 54 68 69 73 20 70  72 6f 67 72 61 6d 20 70  |: This program p|
00000ab0  72 6f 76 69 64 65 73 20  74 68 65 20 75 73 65 72  |rovides the user|
00000ac0  20 77 69 74 68 20 61 20  57 59 53 57 49 47 20 66  | with a WYSWIG f|
00000ad0  6f 6e 74 20 6c 69 73 74  20 3a 22 0d 00 50 49 f1  |ont list :"..PI.|
00000ae0  3a f1 20 22 46 6f 6e 74  2d 6e 61 6d 65 73 20 61  |:. "Font-names a|
00000af0  72 65 20 64 69 73 70 6c  61 79 65 64 20 69 6e 20  |re displayed in |
00000b00  74 68 65 20 73 74 61 6e  64 61 72 64 20 48 6f 6d  |the standard Hom|
00000b10  65 72 74 6f 6e 2e 4d 65  64 69 75 6d 20 66 6f 6e  |erton.Medium fon|
00000b20  74 20 2d 22 0d 00 51 25  f1 20 22 41 6e 64 20 69  |t -"..Q%. "And i|
00000b30  6e 20 74 68 65 69 72 20  6f 77 6e 20 66 6f 6e 74  |n their own font|
00000b40  20 73 74 79 6c 65 73 2e  22 0d 00 52 52 f1 20 22  | styles."..RR. "|
00000b50  45 2e 67 2e 20 54 68 65  20 6e 61 6d 65 20 6f 66  |E.g. The name of|
00000b60  20 74 68 65 20 66 6f 6e  74 20 4e 65 77 48 61 6c  | the font NewHal|
00000b70  6c 2e 42 6f 6c 64 20 77  6f 75 6c 64 20 62 65 20  |l.Bold would be |
00000b80  64 69 73 70 6c 61 79 65  64 20 69 6e 20 4e 65 77  |displayed in New|
00000b90  48 61 6c 6c 2e 42 6f 6c  64 22 3a 0d 00 53 05 f1  |Hall.Bold":..S..|
00000ba0  0d 00 54 54 f1 20 22 57  68 79 20 75 73 65 20 61  |..TT. "Why use a|
00000bb0  20 57 53 59 57 49 47 20  46 6f 6e 74 2d 4c 69 73  | WSYWIG Font-Lis|
00000bc0  74 3f 20 57 68 65 6e 20  73 65 61 72 63 68 69 6e  |t? When searchin|
00000bd0  67 20 74 68 72 6f 75 67  68 20 79 6f 75 72 20 66  |g through your f|
00000be0  6f 6e 74 73 20 64 65 63  69 64 69 6e 67 20 77 68  |onts deciding wh|
00000bf0  69 63 68 22 0d 00 55 52  f1 20 22 74 6f 20 75 73  |ich"..UR. "to us|
00000c00  65 20 69 6e 20 61 20 64  6f 63 75 6d 65 6e 74 2c  |e in a document,|
00000c10  20 70 69 63 74 75 72 65  20 65 74 63 2e 20 79 6f  | picture etc. yo|
00000c20  75 20 63 61 6e 20 73 65  65 20 69 6e 20 61 20 6d  |u can see in a m|
00000c30  61 74 74 65 72 20 6f 66  20 73 65 63 6f 6e 64 73  |atter of seconds|
00000c40  20 77 68 61 74 22 0d 00  56 4d f1 20 22 61 6e 79  | what"..VM. "any|
00000c50  20 6f 66 20 79 6f 75 72  20 66 6f 6e 74 73 20 6c  | of your fonts l|
00000c60  6f 6f 6b 20 6c 69 6b 65  2c 20 61 6e 64 20 77 68  |ook like, and wh|
00000c70  69 63 68 20 62 65 73 74  20 73 75 69 74 73 20 79  |ich best suits y|
00000c80  6f 75 72 20 63 75 72 72  65 6e 74 20 6e 65 65 64  |our current need|
00000c90  73 2e 22 0d 00 57 51 f1  20 22 41 73 20 6f 70 70  |s."..WQ. "As opp|
00000ca0  6f 73 65 64 20 74 6f 20  75 73 69 6e 67 20 6e 6f  |osed to using no|
00000cb0  6e 2d 57 53 59 57 49 47  20 46 6f 6e 74 2d 4c 69  |n-WSYWIG Font-Li|
00000cc0  73 74 73 20 28 70 72 6f  64 75 63 65 64 20 62 79  |sts (produced by|
00000cd0  20 61 6c 6d 6f 73 74 20  61 6c 6c 20 52 49 53 43  | almost all RISC|
00000ce0  20 4f 53 22 0d 00 58 58  f1 20 22 61 70 70 6c 69  | OS"..XX. "appli|
00000cf0  63 61 74 69 6f 6e 73 29  20 45 2e 67 2e 20 45 64  |cations) E.g. Ed|
00000d00  69 74 2c 20 50 61 69 6e  74 2c 20 61 6e 64 20 44  |it, Paint, and D|
00000d10  72 61 77 20 2d 20 57 68  69 63 68 20 63 61 6e 20  |raw - Which can |
00000d20  6f 66 74 65 6e 20 74 61  6b 65 20 6f 76 65 72 20  |often take over |
00000d30  33 30 20 6d 69 6e 75 74  65 73 21 22 0d 00 59 05  |30 minutes!"..Y.|
00000d40  f1 0d 00 5a 56 f1 22 49  74 20 68 61 73 20 76 61  |...ZV."It has va|
00000d50  72 69 6f 75 73 20 6f 74  68 65 72 20 66 61 63 69  |rious other faci|
00000d60  6c 69 74 69 65 73 20 2d  20 45 2e 67 2e 20 54 68  |lities - E.g. Th|
00000d70  65 20 61 62 69 6c 69 74  79 20 74 6f 20 64 69 73  |e ability to dis|
00000d80  70 6c 61 79 20 75 73 65  72 20 64 65 66 69 6e 65  |play user define|
00000d90  64 20 74 65 78 74 22 0d  00 5b 57 f1 20 22 69 6e  |d text"..[W. "in|
00000da0  20 65 61 63 68 20 61 76  61 69 6c 61 62 6c 65 20  | each available |
00000db0  66 6f 6e 74 2c 20 69 6e  73 74 65 61 64 20 6f 66  |font, instead of|
00000dc0  20 74 68 65 20 66 6f 6e  74 20 6e 61 6d 65 2e 20  | the font name. |
00000dd0  55 73 65 66 75 6c 20 66  6f 72 20 70 6f 73 74 65  |Useful for poste|
00000de0  72 73 20 65 74 63 2e 20  77 68 65 72 65 22 0d 00  |rs etc. where"..|
00000df0  5c 50 f1 20 22 79 6f 75  20 77 61 6e 74 20 74 6f  |\P. "you want to|
00000e00  27 71 75 69 63 6b 6c 79  27 20 73 65 65 20 77 68  |'quickly' see wh|
00000e10  69 63 68 20 66 6f 6e 74  20 61 20 70 61 72 74 69  |ich font a parti|
00000e20  63 75 6c 61 72 20 73 65  6e 74 65 6e 63 65 20 6c  |cular sentence l|
00000e30  6f 6f 6b 73 20 62 65 73  74 20 69 6e 2e 22 0d 00  |ooks best in."..|
00000e40  5d 05 f1 0d 00 5e 54 f1  20 22 43 6f 6d 70 69 6c  |]....^T. "Compil|
00000e50  69 6e 67 20 74 68 65 20  46 6f 6e 74 2d 4c 69 73  |ing the Font-Lis|
00000e60  74 20 63 61 6e 20 62 65  20 74 69 6d 65 2d 63 6f  |t can be time-co|
00000e70  6e 73 75 6d 69 6e 67 20  69 66 20 74 68 65 72 65  |nsuming if there|
00000e80  20 69 73 20 6c 69 74 74  6c 65 20 66 72 65 65 20  | is little free |
00000e90  6d 65 6d 6f 72 79 22 0d  00 5f 51 f1 20 22 61 76  |memory".._Q. "av|
00000ea0  61 69 6c 61 62 6c 65 2e  20 49 66 20 79 6f 75 20  |ailable. If you |
00000eb0  68 61 76 65 20 6e 6f 74  20 61 6c 72 65 61 64 79  |have not already|
00000ec0  20 64 6f 6e 65 20 73 6f  20 70 6c 65 61 73 65 20  | done so please |
00000ed0  71 75 69 74 20 74 68 69  73 20 70 72 6f 67 72 61  |quit this progra|
00000ee0  6d 2c 20 71 75 69 74 22  0d 00 60 52 f1 20 22 61  |m, quit"..`R. "a|
00000ef0  6c 6c 20 75 6e 65 73 73  61 63 61 72 79 20 61 70  |ll unessacary ap|
00000f00  70 6c 69 63 61 74 69 6f  6e 73 20 74 6f 20 27 46  |plications to 'F|
00000f10  72 65 65 20 75 70 27 20  6d 61 78 69 6d 75 6d 20  |ree up' maximum |
00000f20  6d 65 6d 6f 72 79 2c 20  61 6e 64 20 74 68 65 6e  |memory, and then|
00000f30  20 52 75 6e 20 74 68 69  73 22 0d 00 61 56 f1 20  | Run this"..aV. |
00000f40  22 70 72 6f 67 72 61 6d  20 61 67 61 69 6e 20 62  |"program again b|
00000f50  65 66 6f 72 65 20 67 6f  69 6e 67 20 61 6e 79 20  |efore going any |
00000f60  66 75 72 74 68 65 72 2e  20 54 6f 20 65 78 69 74  |further. To exit|
00000f70  20 74 68 69 73 20 70 72  6f 67 72 61 6d 20 6e 6f  | this program no|
00000f80  77 20 70 72 65 73 73 20  45 73 63 61 70 65 2e 22  |w press Escape."|
00000f90  0d 00 62 05 f1 0d 00 63  58 f1 20 22 54 68 65 20  |..b....cX. "The |
00000fa0  70 72 6f 67 72 61 6d 20  63 6f 6d 70 69 6c 65 73  |program compiles|
00000fb0  20 74 68 65 20 66 6f 6e  74 2d 6c 69 73 74 20 6f  | the font-list o|
00000fc0  6e 20 73 63 72 65 65 6e  20 61 6e 64 20 74 68 65  |n screen and the|
00000fd0  6e 20 73 61 76 65 73 20  65 61 63 68 20 27 73 63  |n saves each 'sc|
00000fe0  72 65 65 6e 66 75 6c 6c  27 20 61 73 22 0d 00 64  |reenfull' as"..d|
00000ff0  55 f1 20 22 61 20 73 70  72 69 74 65 20 69 6e 20  |U. "a sprite in |
00001000  74 68 65 20 64 69 72 65  63 74 6f 72 79 20 27 21  |the directory '!|
00001010  52 49 53 43 75 74 69 6c  73 2e 55 73 65 72 5f 61  |RISCutils.User_a|
00001020  72 65 61 2e 50 72 6f 67  72 61 6d 73 2e 57 53 59  |rea.Programs.WSY|
00001030  66 6f 6e 74 2e 46 6f 6e  74 2d 4c 69 73 74 73 27  |font.Font-Lists'|
00001040  2e 22 0d 00 65 58 f1 20  22 46 6f 6e 74 2d 4c 69  |."..eX. "Font-Li|
00001050  73 74 20 76 69 65 77 69  6e 67 20 69 73 20 71 75  |st viewing is qu|
00001060  69 63 6b 65 72 20 61 6e  64 20 65 61 73 69 65 72  |icker and easier|
00001070  20 75 73 69 6e 67 20 73  70 72 69 74 65 73 2c 20  | using sprites, |
00001080  72 61 74 68 65 72 20 74  68 61 6e 20 74 68 69 73  |rather than this|
00001090  20 70 72 6f 67 72 61 6d  2e 22 0d 00 66 04 0d 00  | program."..f...|
000010a0  67 ce 45 3d 30 3a ee 20  85 20 e7 20 9f 3d 31 37  |g.E=0:. . . .=17|
000010b0  20 f1 3a e0 20 8b 20 e7  20 9f 3d 34 39 33 20 45  | .:. . . .=493 E|
000010c0  3d 31 3a f1 3a f1 22 4d  6f 64 65 20 27 22 3b 4d  |=1:.:."Mode '";M|
000010d0  4f 22 27 20 69 73 20 6e  6f 74 20 61 76 61 69 6c  |O"' is not avail|
000010e0  61 62 6c 65 22 3a f1 20  8b 20 e7 20 9f 3d 32 36  |able":. . . .=26|
000010f0  20 45 3d 31 3a f1 3a f1  20 22 53 63 72 65 65 6e  | E=1:.:. "Screen|
00001100  20 6d 6f 64 65 20 6d 75  73 74 20 62 65 20 6e 75  | mode must be nu|
00001110  6d 65 72 69 63 20 6f 6e  6c 79 22 3a f1 20 8b 20  |meric only":. . |
00001120  e7 20 9f 3d 34 20 eb 31  35 3a f1 3a f1 22 4d 6f  |. .=4 .15:.:."Mo|
00001130  64 65 20 27 22 3b 4d 4f  22 27 20 69 73 20 74 65  |de '";MO"' is te|
00001140  78 74 20 6f 6e 6c 79 20  2d 20 70 6c 65 61 73 65  |xt only - please|
00001150  20 63 68 6f 6f 73 65 20  61 6e 6f 74 68 65 72 2e  | choose another.|
00001160  22 3a f1 20 8b 20 f2 45  52 52 4f 52 0d 00 68 04  |":. . .ERROR..h.|
00001170  0d 00 69 58 f1 20 22 50  6c 65 61 73 65 20 63 68  |..iX. "Please ch|
00001180  6f 6f 73 65 20 61 20 73  63 72 65 65 6e 20 6d 6f  |oose a screen mo|
00001190  64 65 20 28 6e 75 6d 65  72 69 63 20 6f 6e 6c 79  |de (numeric only|
000011a0  2c 20 31 35 20 6f 72 20  32 38 20 69 73 20 6e 6f  |, 15 or 28 is no|
000011b0  72 6d 61 6c 29 20 66 6f  72 20 74 68 65 73 65 20  |rmal) for these |
000011c0  73 70 72 69 74 65 73 22  0d 00 6a 18 f1 20 22 74  |sprites"..j.. "t|
000011d0  6f 20 62 65 20 73 61 76  65 64 20 69 6e 2e 20 22  |o be saved in. "|
000011e0  0d 00 6b 4c f1 20 22 54  68 65 20 68 69 67 68 65  |..kL. "The highe|
000011f0  72 20 74 68 65 20 6d 6f  64 65 20 6e 75 6d 62 65  |r the mode numbe|
00001200  72 20 74 68 65 20 62 65  74 74 65 72 20 72 65 73  |r the better res|
00001210  6f 6c 75 74 69 6f 6e 20  46 6f 6e 74 2d 4c 69 73  |olution Font-Lis|
00001220  74 20 70 72 6f 64 75 63  65 64 2e 22 0d 00 6c 51  |t produced."..lQ|
00001230  e8 20 22 54 68 65 20 6c  6f 77 65 72 20 74 68 65  |. "The lower the|
00001240  20 6d 6f 64 65 20 6e 75  6d 62 65 72 20 74 68 65  | mode number the|
00001250  20 6c 65 73 73 20 6d 65  6d 6f 72 79 20 28 52 41  | less memory (RA|
00001260  4d 20 26 20 44 69 73 63  2d 53 70 61 63 65 29 20  |M & Disc-Space) |
00001270  6e 65 65 64 65 64 20 3a  20 22 4d 4f 24 0d 00 6d  |needed : "MO$..m|
00001280  0c 4d 4f 3d bb 20 4d 4f  24 0d 00 6e 21 e7 20 4d  |.MO=. MO$..n!. M|
00001290  4f 24 3d 22 30 22 20 eb  20 30 20 8b 20 e7 20 4d  |O$="0" . 0 . . M|
000012a0  4f 3d 30 20 e7 20 53 44  46 47 0d 00 6f 13 e7 20  |O=0 . SDFG..o.. |
000012b0  4d 4f 24 3c 3e 22 30 22  20 eb 20 4d 4f 0d 00 70  |MO$<>"0" . MO..p|
000012c0  21 e6 32 35 35 3a 86 20  31 2c 31 2c 31 2c 31 3a  |!.255:. 1,1,1,1:|
000012d0  e7 20 b0 31 2c 31 29 3d  2d 31 20 46 47 46 0d 00  |. .1,1)=-1 FGF..|
000012e0  71 04 0d 00 72 0f 45 3d  30 3a ee 20 85 20 45 3d  |q...r.E=0:. . E=|
000012f0  31 0d 00 73 11 e7 20 45  3d 30 20 e7 20 53 44 46  |1..s.. E=0 . SDF|
00001300  53 44 0d 00 74 12 45 3d  30 3a ee 20 85 20 f2 45  |SD..t.E=0:. . .E|
00001310  52 52 4f 52 0d 00 75 08  eb 20 31 35 0d 00 76 25  |RROR..u.. 15..v%|
00001320  f1 20 8a 30 2c 30 29 20  22 4e 75 6d 62 65 72 20  |. .0,0) "Number |
00001330  6f 66 20 66 6f 6e 74 73  20 66 6f 75 6e 64 3a 20  |of fonts found: |
00001340  22 0d 00 77 0e f2 66 69  6e 64 66 6f 6e 74 73 0d  |"..w..findfonts.|
00001350  00 78 16 f4 20 46 69 6e  64 20 46 6f 6e 74 20 43  |.x.. Find Font C|
00001360  61 63 68 65 2e 0d 00 79  2a c8 99 20 22 4f 53 5f  |ache...y*.. "OS_|
00001370  52 65 61 64 44 79 6e 61  6d 69 63 41 72 65 61 22  |ReadDynamicArea"|
00001380  2c 34 20 b8 20 2c 46 6f  6e 74 53 69 7a 65 25 0d  |,4 . ,FontSize%.|
00001390  00 7a 1c 46 6f 6e 74 53  69 7a 65 25 3d 46 6f 6e  |.z.FontSize%=Fon|
000013a0  74 53 69 7a 65 25 2f 31  30 32 34 0d 00 7b 34 f4  |tSize%/1024..{4.|
000013b0  20 46 69 6e 64 20 46 72  65 65 2b 4e 65 78 74 20  | Find Free+Next |
000013c0  73 6c 6f 74 73 2e 20 54  6f 74 61 6c 20 66 72 65  |slots. Total fre|
000013d0  65 20 6d 65 6d 3d 66 72  65 65 2b 6e 65 78 74 0d  |e mem=free+next.|
000013e0  00 7c 29 c8 99 20 22 57  69 6d 70 5f 53 6c 6f 74  |.|).. "Wimp_Slot|
000013f0  53 69 7a 65 22 2c 2d 31  2c 2d 31 20 b8 20 2c 6e  |Size",-1,-1 . ,n|
00001400  65 78 74 2c 66 72 65 65  0d 00 7d 21 6e 65 78 74  |ext,free..}!next|
00001410  3d 6e 65 78 74 2f 31 30  32 34 3a 66 72 65 65 3d  |=next/1024:free=|
00001420  66 72 65 65 2f 31 30 32  34 0d 00 7e 1a 6f 6c 64  |free/1024..~.old|
00001430  66 6f 6e 74 63 61 63 68  65 3d 46 6f 6e 74 53 69  |fontcache=FontSi|
00001440  7a 65 25 0d 00 7f 10 6f  6c 64 6e 65 78 74 3d 6e  |ze%....oldnext=n|
00001450  65 78 74 0d 00 80 04 0d  00 81 57 f1 20 8a 30 2c  |ext.......W. .0,|
00001460  30 29 20 22 4e 75 6d 62  65 72 20 6f 66 20 66 6f  |0) "Number of fo|
00001470  6e 74 73 20 66 6f 75 6e  64 3a 20 22 20 3b 66 6f  |nts found: " ;fo|
00001480  6e 74 63 6f 75 6e 74 25  20 22 20 20 43 75 72 72  |ntcount% "  Curr|
00001490  65 6e 74 20 46 6f 6e 74  20 43 61 63 68 65 3a 20  |ent Font Cache: |
000014a0  22 3b 46 6f 6e 74 53 69  7a 65 25 22 6b 22 0d 00  |";FontSize%"k"..|
000014b0  82 40 f1 20 8a 30 2c 32  29 20 22 41 74 74 65 6d  |.@. .0,2) "Attem|
000014c0  70 74 69 6e 67 20 74 6f  20 61 6c 6c 6f 63 61 74  |pting to allocat|
000014d0  65 20 61 6c 6c 20 6d 65  6d 6f 72 79 20 74 6f 20  |e all memory to |
000014e0  46 6f 6e 74 20 43 61 63  68 65 20 2d 20 22 0d 00  |Font Cache - "..|
000014f0  83 04 0d 00 84 0e f2 46  4f 4e 54 43 41 43 48 45  |.......FONTCACHE|
00001500  0d 00 85 05 e1 0d 00 86  20 f4 2a 2a 2a 2a 2a 2a  |........ .******|
00001510  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00001520  2a 2a 2a 2a 2a 0d 00 87  11 dd 20 f2 51 55 45 53  |*****..... .QUES|
00001530  54 49 4f 4e 53 32 0d 00  88 0e ee 20 85 20 f2 45  |TIONS2..... . .E|
00001540  52 52 4f 52 0d 00 89 3a  f1 22 2d 2d 2d 2d 2d 2d  |RROR...:."------|
00001550  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001570  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 22 0d 00  |-------------"..|
00001580  8a 36 f1 20 22 50 72 65  73 73 20 45 73 63 61 70  |.6. "Press Escap|
00001590  65 20 61 74 20 61 6e 79  20 74 69 6d 65 20 74 6f  |e at any time to|
000015a0  20 65 78 69 74 20 74 68  69 73 20 70 72 6f 67 72  | exit this progr|
000015b0  61 6d 2e 22 0d 00 8b 3e  f1 3a f1 20 22 54 68 65  |am."...>.:. "The|
000015c0  20 64 65 66 61 75 6c 74  20 73 65 74 74 69 6e 67  | default setting|
000015d0  73 20 66 6f 72 20 72 75  6e 6e 69 6e 67 20 74 68  |s for running th|
000015e0  65 20 70 72 6f 67 72 61  6d 20 61 72 65 20 3a 2d  |e program are :-|
000015f0  20 22 0d 00 8c 32 f1 3a  f1 3a f1 20 22 54 65 78  | "...2.:.:. "Tex|
00001600  74 20 53 69 7a 65 3d 31  36 70 74 73 20 2d 20 54  |t Size=16pts - T|
00001610  65 78 74 20 43 6f 6c 6f  75 72 3d 42 6c 61 63 6b  |ext Colour=Black|
00001620  20 22 3a f1 0d 00 8d 21  f1 20 22 42 61 63 6b 72  | ":....!. "Backr|
00001630  6f 75 6e 64 20 43 6f 6c  6f 75 72 3d 57 68 69 74  |ound Colour=Whit|
00001640  65 20 22 3a f1 0d 00 8e  38 f1 20 22 4f 6e 20 74  |e ":....8. "On t|
00001650  68 65 20 6c 65 66 74 20  68 61 6e 64 20 73 69 64  |he left hand sid|
00001660  65 20 6f 66 20 74 68 65  20 73 63 72 65 65 6e 2c  |e of the screen,|
00001670  20 74 68 65 20 6e 61 6d  65 20 6f 66 22 0d 00 8f  | the name of"...|
00001680  3e f1 20 22 65 61 63 68  20 66 6f 6e 74 20 69 73  |>. "each font is|
00001690  20 64 69 73 70 6c 61 79  65 64 20 69 6e 20 74 68  | displayed in th|
000016a0  65 20 27 48 6f 6d 65 72  74 6f 6e 2e 4d 65 64 69  |e 'Homerton.Medi|
000016b0  75 6d 27 20 66 6f 6e 74  22 3a f1 0d 00 90 3e f1  |um' font":....>.|
000016c0  20 22 4f 6e 20 74 68 65  20 72 69 67 68 74 20 68  | "On the right h|
000016d0  61 6e 64 20 73 69 64 65  20 6f 66 20 74 68 65 20  |and side of the |
000016e0  73 63 72 65 65 6e 2c 20  74 68 65 20 66 6f 6e 74  |screen, the font|
000016f0  20 6e 61 6d 65 20 69 73  22 0d 00 91 44 f1 20 22  | name is"...D. "|
00001700  70 72 69 6e 74 65 64 20  75 73 69 6e 67 20 74 68  |printed using th|
00001710  65 20 66 6f 6e 74 20 69  74 73 65 6c 66 2c 20 61  |e font itself, a|
00001720  73 20 61 6e 20 65 78 61  6d 70 6c 65 20 6f 66 20  |s an example of |
00001730  66 6f 6e 74 20 75 73 61  67 65 22 3a f1 0d 00 92  |font usage":....|
00001740  49 f1 20 22 54 68 65 20  66 6f 6e 74 20 6e 75 6d  |I. "The font num|
00001750  62 65 72 20 69 73 20 64  69 73 70 6c 61 79 65 64  |ber is displayed|
00001760  20 6f 6e 20 74 68 65 20  6c 65 66 74 6d 6f 73 74  | on the leftmost|
00001770  20 61 72 65 61 20 6f 66  20 74 68 65 20 73 63 72  | area of the scr|
00001780  65 65 6e 22 3a f1 0d 00  93 3e f1 20 22 4f 6e 20  |een":....>. "On |
00001790  74 68 65 20 72 69 67 68  74 20 68 61 6e 64 20 73  |the right hand s|
000017a0  69 64 65 20 6f 66 20 74  68 65 20 73 63 72 65 65  |ide of the scree|
000017b0  6e 2c 20 74 68 65 20 66  6f 6e 74 20 6e 61 6d 65  |n, the font name|
000017c0  20 69 73 22 0d 00 94 43  f1 20 22 70 72 69 6e 74  | is"...C. "print|
000017d0  65 64 20 75 73 69 6e 67  20 74 68 65 20 66 6f 6e  |ed using the fon|
000017e0  74 20 69 74 73 65 6c 66  2c 20 61 73 20 61 6e 20  |t itself, as an |
000017f0  65 78 61 6d 70 6c 65 20  6f 66 20 66 6f 6e 74 20  |example of font |
00001800  75 73 61 67 65 20 22 0d  00 95 3f f1 3a f1 20 22  |usage "...?.:. "|
00001810  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001840  2d 2d 2d 22 3a f1 0d 00  96 05 f5 0d 00 97 3b f1  |---":.........;.|
00001850  20 22 50 6c 65 61 73 65  20 73 74 61 74 65 20 6e  | "Please state n|
00001860  6f 77 20 28 75 73 69 6e  67 20 61 20 59 20 66 6f  |ow (using a Y fo|
00001870  72 20 59 65 73 2c 20 6f  72 20 61 20 4e 20 66 6f  |r Yes, or a N fo|
00001880  72 20 4e 6f 29 22 0d 00  98 4b e8 20 22 77 68 65  |r No)"...K. "whe|
00001890  74 68 65 72 20 79 6f 75  20 77 6f 75 6c 64 20 6c  |ther you would l|
000018a0  69 6b 65 20 74 6f 20 72  75 6e 20 74 68 65 20 70  |ike to run the p|
000018b0  72 6f 67 72 61 6d 20 77  69 74 68 20 74 68 65 73  |rogram with thes|
000018c0  65 20 73 65 74 74 69 6e  67 73 20 3a 20 22 20 44  |e settings : " D|
000018d0  24 0d 00 99 27 fd 20 44  24 3d 22 59 22 20 84 20  |$...'. D$="Y" . |
000018e0  44 24 3d 22 79 22 20 84  20 44 24 3d 22 6e 22 20  |D$="y" . D$="n" |
000018f0  84 20 44 24 3d 22 4e 22  0d 00 9a 05 f1 0d 00 9b  |. D$="N"........|
00001900  05 f5 0d 00 9c 40 f1 20  22 57 6f 75 6c 64 20 79  |.....@. "Would y|
00001910  6f 75 20 6c 69 6b 65 20  74 68 65 20 70 72 6f 67  |ou like the prog|
00001920  72 61 6d 20 74 6f 20 70  61 75 73 65 20 61 66 74  |ram to pause aft|
00001930  65 72 20 63 6f 6d 70 69  6c 69 6e 67 20 65 61 63  |er compiling eac|
00001940  68 22 0d 00 9d 46 e8 20  22 27 73 63 72 65 65 6e  |h"...F. "'screen|
00001950  66 75 6c 6c 27 20 6f 66  20 66 6f 6e 74 73 20 28  |full' of fonts (|
00001960  75 73 69 6e 67 20 61 20  59 20 66 6f 72 20 59 65  |using a Y for Ye|
00001970  73 2c 20 6f 72 20 61 20  4e 20 66 6f 72 20 4e 6f  |s, or a N for No|
00001980  29 20 3a 20 22 20 50 24  0d 00 9e 27 fd 20 50 24  |) : " P$...'. P$|
00001990  3d 22 59 22 20 84 20 50  24 3d 22 79 22 20 84 20  |="Y" . P$="y" . |
000019a0  50 24 3d 22 6e 22 20 84  20 50 24 3d 22 4e 22 0d  |P$="n" . P$="N".|
000019b0  00 9f 1f e7 20 50 24 3d  22 59 22 20 84 20 50 24  |.... P$="Y" . P$|
000019c0  3d 22 79 22 20 50 3d 31  20 8b 20 50 3d 30 0d 00  |="y" P=1 . P=0..|
000019d0  a0 04 0d 00 a1 17 e7 20  44 24 3d 22 59 22 20 84  |....... D$="Y" .|
000019e0  20 44 24 3d 22 79 22 20  8c 0d 00 a2 3e f1 22 50  | D$="y" ....>."P|
000019f0  72 65 70 61 72 69 6e 67  20 74 6f 20 64 69 73 70  |reparing to disp|
00001a00  6c 61 79 20 57 53 59 57  49 47 20 66 6f 6e 74 20  |lay WSYWIG font |
00001a10  6c 69 73 74 2e 22 3a 66  73 69 7a 65 25 3d 31 36  |list.":fsize%=16|
00001a20  3a 44 24 3d 22 59 22 0d  00 a3 14 ee 20 85 20 f2  |:D$="Y"..... . .|
00001a30  45 52 52 4f 52 3a f2 4d  41 49 4e 0d 00 a4 11 54  |ERROR:.MAIN....T|
00001a40  49 4d 3d 91 3a d1 3d 30  3a eb 31 35 0d 00 a5 6f  |IM=.:.=0:.15...o|
00001a50  f1 20 8a 30 2c 38 29 20  22 4e 2e 42 2e 20 41 73  |. .0,8) "N.B. As|
00001a60  20 74 68 69 73 20 69 73  20 61 20 44 65 6d 6f 6e  | this is a Demon|
00001a70  73 74 72 61 74 69 6f 6e  20 76 65 72 73 69 6f 6e  |stration version|
00001a80  2c 20 6f 6e 6c 79 20 65  76 65 72 79 20 6f 74 68  |, only every oth|
00001a90  65 72 20 66 6f 6e 74 20  69 73 20 64 69 73 70 6c  |er font is displ|
00001aa0  61 79 65 64 2e 22 3a e6  20 32 3a 86 20 30 2c 37  |ayed.":. 2:. 0,7|
00001ab0  33 30 2c 31 32 32 30 2c  37 33 30 0d 00 a6 0d f5  |30,1220,730.....|
00001ac0  3a fd 20 91 3d 33 30 30  0d 00 a7 09 d1 3d 54 49  |:. .=300.....=TI|
00001ad0  4d 0d 00 a8 08 eb 20 4d  4f 0d 00 a9 25 c8 99 22  |M..... MO...%.."|
00001ae0  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
00001af0  62 6c 65 22 2c 2d 31 2c  34 b8 2c 2c 5a 25 0d 00  |ble",-1,4.,,Z%..|
00001b00  aa 3a c8 99 22 4f 53 5f  52 65 61 64 4d 6f 64 65  |.:.."OS_ReadMode|
00001b10  56 61 72 69 61 62 6c 65  22 2c 2d 31 2c 31 31 b8  |Variable",-1,11.|
00001b20  2c 2c 78 25 3a 73 63 72  65 65 6e 78 25 3d 28 78  |,,x%:screenx%=(x|
00001b30  25 3c 3c 5a 25 29 2b 31  0d 00 ab 25 c8 99 22 4f  |%<<Z%)+1...%.."O|
00001b40  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
00001b50  6c 65 22 2c 2d 31 2c 35  b8 2c 2c 5a 25 0d 00 ac  |le",-1,5.,,Z%...|
00001b60  3a c8 99 22 4f 53 5f 52  65 61 64 4d 6f 64 65 56  |:.."OS_ReadModeV|
00001b70  61 72 69 61 62 6c 65 22  2c 2d 31 2c 31 32 b8 2c  |ariable",-1,12.,|
00001b80  2c 79 25 3a 73 63 72 65  65 6e 79 25 3d 28 79 25  |,y%:screeny%=(y%|
00001b90  3c 3c 5a 25 29 2b 31 0d  00 ad 4b e6 20 5a 3a c8  |<<Z%)+1...K. Z:.|
00001ba0  93 20 c8 90 20 30 2c 30  2c 73 63 72 65 65 6e 78  |. .. 0,0,screenx|
00001bb0  25 2b 31 30 30 2c 73 63  72 65 65 6e 79 25 2b 31  |%+100,screeny%+1|
00001bc0  30 30 3a 54 3d 39 35 30  3a 56 3d 31 3a 4e 3d 30  |00:T=950:V=1:N=0|
00001bd0  3a 78 3d 35 30 3a 79 3d  54 3a 4c 41 53 54 24 3d  |:x=50:y=T:LAST$=|
00001be0  22 22 0d 00 ae 3f 53 54  41 54 3d 30 3a 4b 4a 48  |""...?STAT=0:KJH|
00001bf0  3d 31 3a 42 6f 74 74 6f  6d 3d 31 30 3a 48 65 69  |=1:Bottom=10:Hei|
00001c00  67 68 74 3d 66 73 69 7a  65 25 2a 33 3a 53 43 52  |ght=fsize%*3:SCR|
00001c10  45 45 4e 3d 31 3a 73 74  61 72 74 66 6f 6e 74 3d  |EEN=1:startfont=|
00001c20  31 0d 00 af 05 87 0d 00  b0 05 cd 0d 00 b1 1b e7  |1...............|
00001c30  20 44 24 3d 22 59 22 20  84 20 44 24 3d 22 79 22  | D$="Y" . D$="y"|
00001c40  20 f2 4d 41 49 4e 0d 00  b2 05 f1 0d 00 b3 05 f5  | .MAIN..........|
00001c50  0d 00 b4 56 e8 20 22 50  6c 65 61 73 65 20 65 6e  |...V. "Please en|
00001c60  74 65 72 20 74 68 65 20  73 69 7a 65 20 6f 66 20  |ter the size of |
00001c70  74 65 78 74 20 74 6f 20  62 65 20 75 73 65 64 20  |text to be used |
00001c80  28 6e 75 6d 65 72 69 63  20 6f 6e 6c 79 2c 20 31  |(numeric only, 1|
00001c90  20 6f 72 20 68 69 67 68  65 72 29 20 3a 20 22 20  | or higher) : " |
00001ca0  66 73 69 7a 65 25 0d 00  b5 0e fd 20 66 73 69 7a  |fsize%..... fsiz|
00001cb0  65 25 3e 30 0d 00 b6 05  f5 0d 00 b7 05 f1 0d 00  |e%>0............|
00001cc0  b8 05 f5 0d 00 b9 39 f1  20 22 45 6e 74 65 72 20  |......9. "Enter |
00001cd0  27 31 27 20 74 6f 20 75  73 65 20 42 6c 61 63 6b  |'1' to use Black|
00001ce0  20 74 65 78 74 20 6f 6e  20 61 20 57 68 69 74 65  | text on a White|
00001cf0  20 62 61 63 6b 72 6f 75  6e 64 2c 22 0d 00 ba 3d  | backround,"...=|
00001d00  e8 20 22 45 6e 74 65 72  20 27 32 27 20 74 6f 20  |. "Enter '2' to |
00001d10  75 73 65 20 57 68 69 74  65 20 74 65 78 74 20 6f  |use White text o|
00001d20  6e 20 61 20 42 6c 61 63  6b 20 62 61 63 6b 72 6f  |n a Black backro|
00001d30  75 6e 64 20 3a 20 22 54  43 0d 00 bb 11 fd 20 54  |und : "TC..... T|
00001d40  43 3d 31 20 84 20 54 43  3d 32 0d 00 bc 1c e7 20  |C=1 . TC=2..... |
00001d50  54 43 3d 31 20 52 3d 30  3a 47 3d 30 3a 42 3d 30  |TC=1 R=0:G=0:B=0|
00001d60  3a 5a 3d 32 35 35 0d 00  bd 20 e7 20 54 43 3d 32  |:Z=255... . TC=2|
00001d70  20 52 3d 32 35 35 3a 47  3d 32 35 35 3a 42 3d 32  | R=255:G=255:B=2|
00001d80  35 35 3a 5a 3d 30 0d 00  be 05 f1 0d 00 bf 1c f1  |55:Z=0..........|
00001d90  20 22 54 65 78 74 20 73  65 74 74 69 6e 67 73 20  | "Text settings |
00001da0  61 72 65 20 3a 20 22 0d  00 c0 44 f1 20 22 31 20  |are : "...D. "1 |
00001db0  3d 20 20 74 68 65 20 6e  61 6d 65 20 6f 66 20 65  |=  the name of e|
00001dc0  61 63 68 20 66 6f 6e 74  20 69 73 20 64 69 73 70  |ach font is disp|
00001dd0  6c 61 79 65 64 20 69 6e  20 27 48 6f 6d 65 72 74  |layed in 'Homert|
00001de0  6f 6e 2e 4d 65 64 69 75  6d 27 22 0d 00 c1 47 f1  |on.Medium'"...G.|
00001df0  20 22 32 20 3d 20 20 74  68 65 20 6e 61 6d 65 20  | "2 =  the name |
00001e00  6f 66 20 65 61 63 68 20  66 6f 6e 74 20 69 73 20  |of each font is |
00001e10  64 69 73 70 6c 61 79 65  64 20 69 6e 20 61 20 75  |displayed in a u|
00001e20  73 65 72 2d 64 65 66 69  6e 65 64 2d 66 6f 6e 74  |ser-defined-font|
00001e30  2e 22 0d 00 c2 3d f1 20  22 33 20 3d 20 20 74 68  |."...=. "3 =  th|
00001e40  65 20 6e 61 6d 65 20 6f  66 20 65 61 63 68 20 66  |e name of each f|
00001e50  6f 6e 74 20 69 73 20 64  69 73 70 6c 61 79 65 64  |ont is displayed|
00001e60  20 69 6e 20 74 68 61 74  20 66 6f 6e 74 2e 22 0d  | in that font.".|
00001e70  00 c3 58 f1 20 22 34 20  3d 20 20 54 48 45 20 51  |..X. "4 =  THE Q|
00001e80  55 49 43 4b 20 42 52 4f  57 4e 20 46 4f 58 20 4a  |UICK BROWN FOX J|
00001e90  55 4d 50 53 20 4f 56 45  52 20 54 48 45 20 4c 41  |UMPS OVER THE LA|
00001ea0  5a 59 20 44 4f 47 20 28  26 3f 21 29 20 69 73 20  |ZY DOG (&?!) is |
00001eb0  64 69 73 70 6c 61 79 65  64 20 69 6e 20 74 68 65  |displayed in the|
00001ec0  20 66 6f 6e 74 2e 22 0d  00 c4 69 f1 20 22 35 20  | font."...i. "5 |
00001ed0  3d 20 20 74 68 65 20 71  75 69 63 6b 20 62 72 6f  |=  the quick bro|
00001ee0  77 6e 20 66 6f 78 20 6a  75 6d 70 73 20 6f 76 65  |wn fox jumps ove|
00001ef0  72 20 74 68 65 20 6c 61  7a 79 20 64 6f 67 20 3a  |r the lazy dog :|
00001f00  3b 7e 3c 3c 3e 3e 20 31  32 33 34 35 36 37 38 39  |;~<<>> 123456789|
00001f10  30 20 69 73 20 64 69 73  70 6c 61 79 65 64 20 20  |0 is displayed  |
00001f20  20 20 20 69 6e 20 74 68  65 20 66 6f 6e 74 2e 22  |   in the font."|
00001f30  0d 00 c5 46 f1 20 22 36  20 3d 20 20 61 20 73 65  |...F. "6 =  a se|
00001f40  6e 74 65 6e 63 65 20 6f  66 20 75 73 65 72 20 64  |ntence of user d|
00001f50  65 66 69 6e 65 64 20 74  65 78 74 20 69 73 20 64  |efined text is d|
00001f60  69 73 70 6c 61 79 65 64  20 69 6e 20 74 68 65 20  |isplayed in the |
00001f70  66 6f 6e 74 2e 22 0d 00  c6 12 f1 20 22 37 20 3d  |font."..... "7 =|
00001f80  20 20 6e 6f 6e 65 2e 22  0d 00 c7 05 f1 0d 00 c8  |  none."........|
00001f90  32 f1 20 22 4e 6f 74 65  20 3a 20 73 65 74 74 69  |2. "Note : setti|
00001fa0  6e 67 73 20 34 20 61 6e  64 20 35 20 61 72 65 20  |ngs 4 and 5 are |
00001fb0  75 73 65 66 75 6c 20 61  73 20 74 68 65 79 22 0d  |useful as they".|
00001fc0  00 c9 31 f1 20 22 64 69  73 70 6c 61 79 20 6d 6f  |..1. "display mo|
00001fd0  73 74 20 6f 66 20 74 68  65 20 63 68 61 72 61 63  |st of the charac|
00001fe0  74 65 72 73 20 69 6e 20  61 20 66 6f 6e 74 2e 22  |ters in a font."|
00001ff0  0d 00 ca 05 f1 0d 00 cb  05 f5 0d 00 cc 38 f1 20  |.............8. |
00002000  22 50 6c 65 61 73 65 20  65 6e 74 65 72 20 61 20  |"Please enter a |
00002010  6e 75 6d 62 65 72 20 73  65 74 74 69 6e 67 20 28  |number setting (|
00002020  31 2d 37 29 20 66 6f 72  20 74 68 65 20 74 65 78  |1-7) for the tex|
00002030  74 22 0d 00 cd 3c e8 20  22 64 69 73 70 6c 61 79  |t"...<. "display|
00002040  65 64 20 6f 6e 20 74 68  65 20 6c 65 66 74 20 68  |ed on the left h|
00002050  61 6e 64 20 73 69 64 65  20 6f 66 20 74 68 65 20  |and side of the |
00002060  73 63 72 65 65 6e 20 3a  20 22 4c 45 46 54 0d 00  |screen : "LEFT..|
00002070  ce 15 fd 20 4c 45 46 54  3e 30 20 80 20 4c 45 46  |... LEFT>0 . LEF|
00002080  54 3c 38 0d 00 cf 28 e7  20 4c 45 46 54 3d 31 20  |T<8...(. LEFT=1 |
00002090  4c 45 46 54 46 4f 4e 54  24 3d 22 48 6f 6d 65 72  |LEFTFONT$="Homer|
000020a0  74 6f 6e 2e 4d 65 64 69  75 6d 22 0d 00 d0 04 0d  |ton.Medium".....|
000020b0  00 d1 2b 45 3d 30 3a ee  20 85 20 f1 3a e7 20 9f  |..+E=0:. . .:. .|
000020c0  3d 35 32 33 20 45 3d 31  3a f1 20 f6 24 3a f1 20  |=523 E=1:. .$:. |
000020d0  8b 20 f2 45 52 52 4f 52  3a e0 0d 00 d2 05 f5 0d  |. .ERROR:.......|
000020e0  00 d3 0e e7 20 4c 45 46  54 3d 32 20 8c 0d 00 d4  |.... LEFT=2 ....|
000020f0  54 e8 20 22 50 6c 65 61  73 65 20 65 6e 74 65 72  |T. "Please enter|
00002100  20 74 68 65 20 6e 61 6d  65 20 6f 66 20 74 68 65  | the name of the|
00002110  20 66 6f 6e 74 20 74 6f  20 62 65 20 75 73 65 64  | font to be used|
00002120  20 28 63 61 73 65 2d 69  6e 73 65 6e 73 69 74 69  | (case-insensiti|
00002130  76 65 29 20 3a 20 22 20  4c 45 46 54 46 4f 4e 54  |ve) : " LEFTFONT|
00002140  24 0d 00 d5 33 f2 70 72  69 6e 74 5f 77 6f 72 64  |$...3.print_word|
00002150  73 28 4c 45 46 54 46 4f  4e 54 24 2c 22 a0 22 2c  |s(LEFTFONT$,".",|
00002160  2d 31 30 30 2c 2d 31 30  30 2c 32 2c 30 2c 30 2c  |-100,-100,2,0,0,|
00002170  30 29 3a f1 0d 00 d6 22  f1 22 46 6f 6e 74 20 74  |0):...."."Font t|
00002180  65 73 74 65 64 20 2d 20  4f 4b 20 66 6f 72 20 75  |ested - OK for u|
00002190  73 65 2e 22 3a f1 0d 00  d7 05 cd 0d 00 d8 07 45  |se.":..........E|
000021a0  3d 30 0d 00 d9 04 0d 00  da 13 fd 20 4c 45 46 54  |=0......... LEFT|
000021b0  3c 3e 32 20 84 20 45 3d  30 0d 00 db 04 0d 00 dc  |<>2 . E=0.......|
000021c0  4a e7 20 4c 45 46 54 3d  34 20 4c 45 46 54 54 45  |J. LEFT=4 LEFTTE|
000021d0  58 54 24 3d 22 54 48 45  20 51 55 49 43 4b 20 42  |XT$="THE QUICK B|
000021e0  52 4f 57 4e 20 46 4f 58  20 4a 55 4d 50 53 20 4f  |ROWN FOX JUMPS O|
000021f0  56 45 52 20 54 48 45 20  4c 41 5a 59 20 44 4f 47  |VER THE LAZY DOG|
00002200  20 28 26 3f 21 29 22 0d  00 dd 57 e7 20 4c 45 46  | (&?!)"...W. LEF|
00002210  54 3d 35 20 4c 45 46 54  54 45 58 54 24 3d 22 74  |T=5 LEFTTEXT$="t|
00002220  68 65 20 71 75 69 63 6b  20 62 72 6f 77 6e 20 66  |he quick brown f|
00002230  6f 78 20 6a 75 6d 70 73  20 6f 76 65 72 20 74 68  |ox jumps over th|
00002240  65 20 6c 61 7a 79 20 64  6f 67 20 3a 3b 7e 3c 3c  |e lazy dog :;~<<|
00002250  3e 3e 20 31 32 33 34 35  36 37 38 39 30 22 0d 00  |>> 1234567890"..|
00002260  de 41 e7 20 4c 45 46 54  3d 36 20 e8 20 22 50 6c  |.A. LEFT=6 . "Pl|
00002270  65 61 73 65 20 65 6e 74  65 72 20 74 68 65 20 73  |ease enter the s|
00002280  65 6e 74 65 6e 63 65 20  74 6f 20 62 65 20 75 73  |entence to be us|
00002290  65 64 20 2d 20 22 4c 45  46 54 54 45 58 54 24 0d  |ed - "LEFTTEXT$.|
000022a0  00 df 05 f1 0d 00 e0 05  f5 0d 00 e1 38 f1 20 22  |............8. "|
000022b0  50 6c 65 61 73 65 20 65  6e 74 65 72 20 61 20 6e  |Please enter a n|
000022c0  75 6d 62 65 72 20 73 65  74 74 69 6e 67 20 28 31  |umber setting (1|
000022d0  2d 37 29 20 66 6f 72 20  74 68 65 20 74 65 78 74  |-7) for the text|
000022e0  22 0d 00 e2 3e e8 20 22  64 69 73 70 6c 61 79 65  |"...>. "displaye|
000022f0  64 20 6f 6e 20 74 68 65  20 72 69 67 68 74 20 68  |d on the right h|
00002300  61 6e 64 20 73 69 64 65  20 6f 66 20 74 68 65 20  |and side of the |
00002310  73 63 72 65 65 6e 20 3a  20 22 52 49 47 48 54 0d  |screen : "RIGHT.|
00002320  00 e3 17 fd 20 52 49 47  48 54 3e 30 20 80 20 52  |.... RIGHT>0 . R|
00002330  49 47 48 54 3c 38 0d 00  e4 05 f1 0d 00 e5 2a e7  |IGHT<8........*.|
00002340  20 52 49 47 48 54 3d 31  20 52 49 47 48 54 46 4f  | RIGHT=1 RIGHTFO|
00002350  4e 54 24 3d 22 48 6f 6d  65 72 74 6f 6e 2e 4d 65  |NT$="Homerton.Me|
00002360  64 69 75 6d 22 0d 00 e6  04 0d 00 e7 2b 45 3d 30  |dium".......+E=0|
00002370  3a ee 20 85 20 f1 3a e7  20 9f 3d 35 32 33 20 45  |:. . .:. .=523 E|
00002380  3d 31 3a f1 20 f6 24 3a  f1 20 8b 20 f2 45 52 52  |=1:. .$:. . .ERR|
00002390  4f 52 3a e0 0d 00 e8 05  f5 0d 00 e9 0f e7 20 52  |OR:........... R|
000023a0  49 47 48 54 3d 32 20 8c  0d 00 ea 55 e8 20 22 50  |IGHT=2 ....U. "P|
000023b0  6c 65 61 73 65 20 65 6e  74 65 72 20 74 68 65 20  |lease enter the |
000023c0  6e 61 6d 65 20 6f 66 20  74 68 65 20 66 6f 6e 74  |name of the font|
000023d0  20 74 6f 20 62 65 20 75  73 65 64 20 28 63 61 73  | to be used (cas|
000023e0  65 2d 69 6e 73 65 6e 73  69 74 69 76 65 29 20 3a  |e-insensitive) :|
000023f0  20 22 20 52 49 47 48 54  46 4f 4e 54 24 0d 00 eb  | " RIGHTFONT$...|
00002400  34 f2 70 72 69 6e 74 5f  77 6f 72 64 73 28 52 49  |4.print_words(RI|
00002410  47 48 54 46 4f 4e 54 24  2c 22 a0 22 2c 2d 31 30  |GHTFONT$,".",-10|
00002420  30 2c 2d 31 30 30 2c 32  2c 30 2c 30 2c 30 29 3a  |0,-100,2,0,0,0):|
00002430  f1 0d 00 ec 22 f1 22 46  6f 6e 74 20 74 65 73 74  |...."."Font test|
00002440  65 64 20 2d 20 4f 4b 20  66 6f 72 20 75 73 65 2e  |ed - OK for use.|
00002450  22 3a f1 0d 00 ed 05 cd  0d 00 ee 07 45 3d 30 0d  |":..........E=0.|
00002460  00 ef 04 0d 00 f0 4c e7  20 52 49 47 48 54 3d 34  |......L. RIGHT=4|
00002470  20 52 49 47 48 54 54 45  58 54 24 3d 22 54 48 45  | RIGHTTEXT$="THE|
00002480  20 51 55 49 43 4b 20 42  52 4f 57 4e 20 46 4f 58  | QUICK BROWN FOX|
00002490  20 4a 55 4d 50 53 20 4f  56 45 52 20 54 48 45 20  | JUMPS OVER THE |
000024a0  4c 41 5a 59 20 44 4f 47  20 28 26 3f 21 29 22 0d  |LAZY DOG (&?!)".|
000024b0  00 f1 59 e7 20 52 49 47  48 54 3d 35 20 52 49 47  |..Y. RIGHT=5 RIG|
000024c0  48 54 54 45 58 54 24 3d  22 74 68 65 20 71 75 69  |HTTEXT$="the qui|
000024d0  63 6b 20 62 72 6f 77 6e  20 66 6f 78 20 6a 75 6d  |ck brown fox jum|
000024e0  70 73 20 6f 76 65 72 20  74 68 65 20 6c 61 7a 79  |ps over the lazy|
000024f0  20 64 6f 67 20 3a 3b 7e  3c 3c 3e 3e 20 31 32 33  | dog :;~<<>> 123|
00002500  34 35 36 37 38 39 30 22  0d 00 f2 43 e7 20 52 49  |4567890"...C. RI|
00002510  47 48 54 3d 36 20 e8 20  22 50 6c 65 61 73 65 20  |GHT=6 . "Please |
00002520  65 6e 74 65 72 20 74 68  65 20 73 65 6e 74 65 6e  |enter the senten|
00002530  63 65 20 74 6f 20 62 65  20 75 73 65 64 20 2d 20  |ce to be used - |
00002540  22 52 49 47 48 54 54 45  58 54 24 0d 00 f3 04 0d  |"RIGHTTEXT$.....|
00002550  00 f4 05 f1 0d 00 f5 33  f1 20 22 57 6f 75 6c 64  |.......3. "Would|
00002560  20 79 6f 75 20 6c 69 6b  65 20 74 68 65 20 66 6f  | you like the fo|
00002570  6e 74 20 6e 75 6d 62 65  72 20 64 69 73 70 6c 61  |nt number displa|
00002580  79 65 64 20 2d 20 22 0d  00 f6 2f f1 20 22 31 3a  |yed - ".../. "1:|
00002590  20 6f 6e 20 74 68 65 20  6c 65 66 74 6d 6f 73 74  | on the leftmost|
000025a0  20 61 72 65 61 20 6f 66  20 74 68 65 20 73 63 72  | area of the scr|
000025b0  65 65 6e 2e 20 22 0d 00  f7 2c f1 20 22 32 3a 20  |een. "...,. "2: |
000025c0  69 6e 20 62 65 74 77 65  65 6e 20 74 68 65 20 74  |in between the t|
000025d0  77 6f 20 74 65 78 74 20  63 6f 6c 75 6d 6e 73 2e  |wo text columns.|
000025e0  20 22 0d 00 f8 17 f1 20  22 33 3a 20 6e 6f 74 20  | "..... "3: not |
000025f0  61 74 20 61 6c 6c 2e 20  22 0d 00 f9 0e e8 20 22  |at all. "..... "|
00002600  3f 20 22 20 4e 55 4d 0d  00 fa 04 0d 00 fb 5f e7  |? " NUM......._.|
00002610  20 4e 55 4d 3c 3e 31 20  80 20 4e 55 4d 3c 3e 32  | NUM<>1 . NUM<>2|
00002620  20 80 20 4e 55 4d 3c 3e  33 20 f5 3a e8 20 22 50  | . NUM<>3 .:. "P|
00002630  6c 65 61 73 65 20 65 6e  74 65 72 20 61 20 6e 75  |lease enter a nu|
00002640  6d 62 65 72 20 73 65 74  74 69 6e 67 20 28 31 2d  |mber setting (1-|
00002650  33 29 20 3a 20 22 4e 55  4d 20 3a fd 20 4e 55 4d  |3) : "NUM :. NUM|
00002660  3e 30 20 80 20 4e 55 4d  3c 34 0d 00 fc 18 e7 20  |>0 . NUM<4..... |
00002670  4e 55 4d 3d 31 20 52 49  47 48 54 4e 55 4d 24 3d  |NUM=1 RIGHTNUM$=|
00002680  22 22 0d 00 fd 17 e7 20  4e 55 4d 3d 32 20 4c 45  |""..... NUM=2 LE|
00002690  46 54 4e 55 4d 24 3d 22  22 0d 00 fe 24 e7 20 4e  |FTNUM$=""...$. N|
000026a0  55 4d 3d 33 20 4c 45 46  54 4e 55 4d 24 3d 22 22  |UM=3 LEFTNUM$=""|
000026b0  3a 52 49 47 48 54 4e 55  4d 24 3d 22 22 0d 00 ff  |:RIGHTNUM$=""...|
000026c0  04 0d 01 00 2d f1 22 50  72 65 70 61 72 69 6e 67  |....-."Preparing|
000026d0  20 74 6f 20 64 69 73 70  6c 61 79 20 57 53 59 57  | to display WSYW|
000026e0  49 47 20 66 6f 6e 74 20  6c 69 73 74 2e 22 0d 01  |IG font list."..|
000026f0  01 14 ee 20 85 20 f2 45  52 52 4f 52 3a f2 4d 41  |... . .ERROR:.MA|
00002700  49 4e 0d 01 02 11 54 49  4d 3d 91 3a d1 3d 30 3a  |IN....TIM=.:.=0:|
00002710  eb 31 35 0d 01 03 6f f1  20 8a 30 2c 38 29 20 22  |.15...o. .0,8) "|
00002720  4e 2e 42 2e 20 41 73 20  74 68 69 73 20 69 73 20  |N.B. As this is |
00002730  61 20 44 65 6d 6f 6e 73  74 72 61 74 69 6f 6e 20  |a Demonstration |
00002740  76 65 72 73 69 6f 6e 2c  20 6f 6e 6c 79 20 65 76  |version, only ev|
00002750  65 72 79 20 6f 74 68 65  72 20 66 6f 6e 74 20 69  |ery other font i|
00002760  73 20 64 69 73 70 6c 61  79 65 64 2e 22 3a e6 20  |s displayed.":. |
00002770  32 3a 86 20 30 2c 37 33  30 2c 31 32 32 30 2c 37  |2:. 0,730,1220,7|
00002780  33 30 0d 01 04 0d f5 3a  fd 20 91 3d 33 30 30 0d  |30.....:. .=300.|
00002790  01 05 09 d1 3d 54 49 4d  0d 01 06 08 eb 20 4d 4f  |....=TIM..... MO|
000027a0  0d 01 07 25 c8 99 22 4f  53 5f 52 65 61 64 4d 6f  |...%.."OS_ReadMo|
000027b0  64 65 56 61 72 69 61 62  6c 65 22 2c 2d 31 2c 34  |deVariable",-1,4|
000027c0  b8 2c 2c 5a 25 0d 01 08  3a c8 99 22 4f 53 5f 52  |.,,Z%...:.."OS_R|
000027d0  65 61 64 4d 6f 64 65 56  61 72 69 61 62 6c 65 22  |eadModeVariable"|
000027e0  2c 2d 31 2c 31 31 b8 2c  2c 78 25 3a 73 63 72 65  |,-1,11.,,x%:scre|
000027f0  65 6e 78 25 3d 28 78 25  3c 3c 5a 25 29 2b 31 0d  |enx%=(x%<<Z%)+1.|
00002800  01 09 25 c8 99 22 4f 53  5f 52 65 61 64 4d 6f 64  |..%.."OS_ReadMod|
00002810  65 56 61 72 69 61 62 6c  65 22 2c 2d 31 2c 35 b8  |eVariable",-1,5.|
00002820  2c 2c 5a 25 0d 01 0a 3a  c8 99 22 4f 53 5f 52 65  |,,Z%...:.."OS_Re|
00002830  61 64 4d 6f 64 65 56 61  72 69 61 62 6c 65 22 2c  |adModeVariable",|
00002840  2d 31 2c 31 32 b8 2c 2c  79 25 3a 73 63 72 65 65  |-1,12.,,y%:scree|
00002850  6e 79 25 3d 28 79 25 3c  3c 5a 25 29 2b 31 0d 01  |ny%=(y%<<Z%)+1..|
00002860  0b 4c e6 20 5a 3a c8 93  20 c8 90 20 30 2c 30 2c  |.L. Z:.. .. 0,0,|
00002870  73 63 72 65 65 6e 78 25  2b 31 30 30 2c 73 63 72  |screenx%+100,scr|
00002880  65 65 6e 79 25 2b 31 30  30 3a 3a 54 3d 39 35 30  |eeny%+100::T=950|
00002890  3a 56 3d 31 3a 4e 3d 30  3a 78 3d 35 30 3a 79 3d  |:V=1:N=0:x=50:y=|
000028a0  54 3a 4c 41 53 54 24 3d  22 22 0d 01 0c 3f 53 54  |T:LAST$=""...?ST|
000028b0  41 54 3d 30 3a 4b 4a 48  3d 31 3a 42 6f 74 74 6f  |AT=0:KJH=1:Botto|
000028c0  6d 3d 31 30 3a 48 65 69  67 68 74 3d 66 73 69 7a  |m=10:Height=fsiz|
000028d0  65 25 2a 33 3a 53 43 52  45 45 4e 3d 31 3a 73 74  |e%*3:SCREEN=1:st|
000028e0  61 72 74 66 6f 6e 74 3d  31 0d 01 0d 05 87 0d 01  |artfont=1.......|
000028f0  0e 09 f2 4d 41 49 4e 0d  01 0f 24 f4 2a 2a 2a 2a  |...MAIN...$.****|
00002900  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00002910  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 01 10 0f dd  |***********.....|
00002920  20 f2 4d 45 4d 45 52 52  4f 52 0d 01 11 05 f1 0d  | .MEMERROR......|
00002930  01 12 5c f1 20 22 41 74  74 65 6d 70 74 20 74 6f  |..\. "Attempt to|
00002940  20 61 6c 6c 6f 63 61 74  65 20 61 6c 6c 20 6d 65  | allocate all me|
00002950  6d 6f 72 79 20 74 6f 20  46 6f 6e 74 20 43 61 63  |mory to Font Cac|
00002960  68 65 20 70 61 72 74 69  61 6c 6c 79 20 66 61 69  |he partially fai|
00002970  6c 65 64 2c 20 6f 72 20  66 61 69 6c 65 64 20 63  |led, or failed c|
00002980  6f 6d 70 6c 65 74 6c 79  21 20 22 0d 01 13 2a c8  |ompletly! "...*.|
00002990  99 20 22 4f 53 5f 52 65  61 64 44 79 6e 61 6d 69  |. "OS_ReadDynami|
000029a0  63 41 72 65 61 22 2c 34  20 b8 20 2c 46 6f 6e 74  |cArea",4 . ,Font|
000029b0  53 69 7a 65 25 0d 01 14  1c 46 6f 6e 74 53 69 7a  |Size%....FontSiz|
000029c0  65 25 3d 46 6f 6e 74 53  69 7a 65 25 2f 31 30 32  |e%=FontSize%/102|
000029d0  34 0d 01 15 29 c8 99 20  22 57 69 6d 70 5f 53 6c  |4...).. "Wimp_Sl|
000029e0  6f 74 53 69 7a 65 22 2c  2d 31 2c 2d 31 20 b8 20  |otSize",-1,-1 . |
000029f0  2c 6e 65 78 74 2c 66 72  65 65 0d 01 16 21 6e 65  |,next,free...!ne|
00002a00  78 74 3d 6e 65 78 74 2f  31 30 32 34 3a 66 72 65  |xt=next/1024:fre|
00002a10  65 3d 66 72 65 65 2f 31  30 32 34 0d 01 17 2c f1  |e=free/1024...,.|
00002a20  3a f1 20 22 43 75 72 72  65 6e 74 20 46 6f 6e 74  |:. "Current Font|
00002a30  20 43 61 63 68 65 20 3a  20 22 3b 46 6f 6e 74 53  | Cache : ";FontS|
00002a40  69 7a 65 25 22 6b 22 0d  01 18 2b f1 20 22 43 75  |ize%"k"...+. "Cu|
00002a50  72 72 65 6e 74 20 46 72  65 65 20 6d 65 6d 6f 72  |rrent Free memor|
00002a60  79 20 3a 20 22 3b 6e 65  78 74 2b 66 72 65 65 22  |y : ";next+free"|
00002a70  6b 22 0d 01 19 05 f1 0d  01 1a 47 f1 20 22 54 68  |k"........G. "Th|
00002a80  65 20 73 65 6e 73 69 62  6c 65 20 6d 69 6e 69 6d  |e sensible minim|
00002a90  75 6d 20 46 6f 6e 74 20  43 61 63 68 65 20 73 69  |um Font Cache si|
00002aa0  7a 65 20 66 6f 72 20 74  68 69 73 20 70 72 6f 67  |ze for this prog|
00002ab0  72 61 6d 20 69 73 20 32  30 30 6b 22 3a f1 0d 01  |ram is 200k":...|
00002ac0  1b 9a e7 20 46 6f 6e 74  53 69 7a 65 25 3c 32 30  |... FontSize%<20|
00002ad0  30 20 f1 20 22 49 74 20  69 73 20 61 64 76 69 73  |0 . "It is advis|
00002ae0  65 64 20 74 68 61 74 20  79 6f 75 20 6e 6f 77 20  |ed that you now |
00002af0  51 75 69 74 20 57 53 59  66 6f 6e 74 20 61 6e 64  |Quit WSYfont and|
00002b00  20 6d 61 6e 75 61 6c 6c  79 20 65 6e 6c 61 72 67  | manually enlarg|
00002b10  65 20 74 68 65 20 46 6f  6e 74 20 43 61 63 68 65  |e the Font Cache|
00002b20  2e 22 3a f1 20 22 54 68  65 6e 20 72 75 6e 20 57  |.":. "Then run W|
00002b30  53 59 46 4f 4e 54 20 61  67 61 69 6e 20 28 50 72  |SYFONT again (Pr|
00002b40  65 73 73 20 45 73 63 61  70 65 20 74 6f 20 51 75  |ess Escape to Qu|
00002b50  69 74 20 6e 6f 77 29 22  0d 01 1c b5 e7 20 46 6f  |it now)"..... Fo|
00002b60  6e 74 53 69 7a 65 25 3c  32 30 30 20 f1 3a f1 22  |ntSize%<200 .:."|
00002b70  57 53 59 66 6f 6e 74 20  77 69 6c 6c 20 61 74 74  |WSYfont will att|
00002b80  65 6d 70 74 20 74 6f 20  63 6f 6d 70 69 6c 65 20  |empt to compile |
00002b90  61 20 46 6f 6e 74 2d 4c  69 73 74 20 69 66 20 79  |a Font-List if y|
00002ba0  6f 75 20 63 6f 6e 74 69  6e 75 65 2c 22 3a f1 22  |ou continue,":."|
00002bb0  62 75 74 20 77 69 6c 6c  20 62 65 20 76 65 72 79  |but will be very|
00002bc0  20 73 6c 6f 77 20 61 6e  64 20 6d 61 79 20 63 72  | slow and may cr|
00002bd0  61 73 68 20 64 75 65 20  74 6f 20 74 68 65 20 73  |ash due to the s|
00002be0  6d 61 6c 6c 20 46 6f 6e  74 20 43 61 63 68 65 2e  |mall Font Cache.|
00002bf0  22 3a f1 20 22 2d 20 59  6f 75 20 68 61 76 65 20  |":. "- You have |
00002c00  62 65 65 6e 20 77 61 72  6e 65 64 21 22 0d 01 1d  |been warned!"...|
00002c10  87 e7 20 46 6f 6e 74 53  69 7a 65 25 3e 32 30 30  |.. FontSize%>200|
00002c20  20 f1 20 22 57 53 59 66  6f 6e 74 20 77 69 6c 6c  | . "WSYfont will|
00002c30  20 6e 6f 77 20 63 6f 6d  70 69 6c 65 20 61 20 46  | now compile a F|
00002c40  6f 6e 74 2d 4c 69 73 74  2e 22 3a f1 22 50 6c 65  |ont-List.":."Ple|
00002c50  61 73 65 20 6e 6f 74 65  20 74 68 65 20 63 6f 6d  |ase note the com|
00002c60  70 69 6c 69 6e 67 20 73  70 65 65 64 20 69 73 20  |piling speed is |
00002c70  64 65 70 65 6e 64 61 6e  74 20 6f 6e 20 74 68 65  |dependant on the|
00002c80  20 46 6f 6e 74 20 43 61  63 68 65 20 73 69 7a 65  | Font Cache size|
00002c90  2e 22 3a f1 0d 01 1e cf  e7 20 46 6f 6e 74 53 69  |.":...... FontSi|
00002ca0  7a 65 25 3e 32 30 30 20  f1 20 22 49 66 20 74 68  |ze%>200 . "If th|
00002cb0  65 72 65 20 69 73 20 73  69 67 6e 69 66 69 63 61  |ere is significa|
00002cc0  6e 74 20 46 72 65 65 20  6d 65 6d 6f 72 79 2c 20  |nt Free memory, |
00002cd0  69 74 20 6d 61 79 20 62  65 20 77 6f 72 74 68 20  |it may be worth |
00002ce0  71 75 69 74 69 6e 67 20  57 53 59 66 6f 6e 74 20  |quiting WSYfont |
00002cf0  61 6e 64 20 6d 61 6e 75  61 6c 6c 79 20 65 6e 6c  |and manually enl|
00002d00  61 72 67 69 6e 67 20 74  68 65 20 46 6f 6e 74 20  |arging the Font |
00002d10  43 61 63 68 65 2e 20 54  68 65 6e 20 72 75 6e 20  |Cache. Then run |
00002d20  57 53 59 46 4f 4e 54 20  61 67 61 69 6e 20 28 50  |WSYFONT again (P|
00002d30  72 65 73 73 20 45 73 63  61 70 65 20 74 6f 20 51  |ress Escape to Q|
00002d40  75 69 74 20 6e 6f 77 29  22 3a f1 22 49 66 20 6e  |uit now)":."If n|
00002d50  6f 74 2c 20 74 68 65 6e  20 63 6f 6e 74 69 6e 75  |ot, then continu|
00002d60  65 2e 22 0d 01 1f 04 0d  01 20 34 f1 3a f1 20 22  |e."...... 4.:. "|
00002d70  50 72 65 73 73 20 61 6e  79 20 6b 65 79 20 6f 72  |Press any key or|
00002d80  20 6d 6f 75 73 65 20 62  75 74 74 6f 6e 20 74 6f  | mouse button to|
00002d90  20 63 6f 6e 74 69 6e 75  65 2e 22 0d 01 21 2c f5  | continue."..!,.|
00002da0  3a c8 97 20 58 2c 4f 2c  49 3a c8 99 26 36 2c 31  |:.. X,O,I:..&6,1|
00002db0  32 31 2c 30 20 b8 2c 4b  3a fd 20 49 3e 30 20 84  |21,0 .,K:. I>0 .|
00002dc0  20 4b 3c 3e 32 35 35 0d  01 22 05 e1 0d 01 23 24  | K<>255.."....#$|
00002dd0  f4 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.***************|
00002de0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00002df0  0d 01 24 0c dd 20 f2 4d  45 4d 4f 4b 0d 01 25 43  |..$.. .MEMOK..%C|
00002e00  c8 99 20 22 4f 53 5f 52  65 61 64 44 79 6e 61 6d  |.. "OS_ReadDynam|
00002e10  69 63 41 72 65 61 22 2c  34 20 b8 20 2c 46 6f 6e  |icArea",4 . ,Fon|
00002e20  74 53 69 7a 65 25 3a 46  6f 6e 74 53 69 7a 65 25  |tSize%:FontSize%|
00002e30  3d 46 6f 6e 74 53 69 7a  65 25 2f 31 30 32 34 0d  |=FontSize%/1024.|
00002e40  01 26 5f f1 3a f1 20 8a  30 2c 32 29 20 22 41 74  |.&_.:. .0,2) "At|
00002e50  74 65 6d 70 74 69 6e 67  20 74 6f 20 61 6c 6c 6f  |tempting to allo|
00002e60  63 61 74 65 20 61 6c 6c  20 6d 65 6d 6f 72 79 20  |cate all memory |
00002e70  74 6f 20 46 6f 6e 74 20  43 61 63 68 65 20 2d 20  |to Font Cache - |
00002e80  4e 65 77 20 46 6f 6e 74  20 43 61 63 68 65 3a 20  |New Font Cache: |
00002e90  22 3b 46 6f 6e 74 53 69  7a 65 25 22 6b 22 0d 01  |";FontSize%"k"..|
00002ea0  27 57 f1 3a f1 20 22 4e  2e 42 2e 20 4f 72 69 67  |'W.:. "N.B. Orig|
00002eb0  69 6e 61 6c 20 46 6f 6e  74 20 43 61 63 68 65 20  |inal Font Cache |
00002ec0  73 69 7a 65 20 69 73 20  72 65 73 74 6f 72 65 64  |size is restored|
00002ed0  20 61 66 74 65 72 20 63  6f 6d 70 69 6c 61 74 69  | after compilati|
00002ee0  6f 6e 20 6f 66 20 74 68  65 20 46 6f 6e 74 2d 4c  |on of the Font-L|
00002ef0  69 73 74 2e 22 0d 01 28  05 e1 0d 01 29 24 f4 2a  |ist."..(....)$.*|
00002f00  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00002f10  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 01  |**************..|
00002f20  2a 10 dd 20 f2 46 4f 4e  54 43 41 43 48 45 0d 01  |*.. .FONTCACHE..|
00002f30  2b 1b 46 45 44 3d 46 6f  6e 74 53 69 7a 65 25 2b  |+.FED=FontSize%+|
00002f40  6e 65 78 74 2b 66 72 65  65 0d 01 2c 5a ee 20 85  |next+free..,Z. .|
00002f50  20 e7 20 9f 3d 34 35 30  20 46 45 44 2d 3d 31 30  | . .=450 FED-=10|
00002f60  20 8b 20 e7 20 9f 3d 34  20 84 20 46 6f 6e 74 53  | . . .=4 . FontS|
00002f70  69 7a 65 25 3e 32 30 30  20 f2 4d 45 4d 4f 4b 3a  |ize%>200 .MEMOK:|
00002f80  f2 51 55 45 53 54 49 4f  4e 53 32 20 8b 20 f2 4d  |.QUESTIONS2 . .M|
00002f90  45 4d 45 52 52 4f 52 3a  f2 51 55 45 53 54 49 4f  |EMERROR:.QUESTIO|
00002fa0  4e 53 32 0d 01 2d 2f ff  20 22 43 48 41 4e 47 45  |NS2..-/. "CHANGE|
00002fb0  44 59 4e 41 4d 49 43 41  52 45 41 20 2d 46 4f 4e  |DYNAMICAREA -FON|
00002fc0  54 53 49 5a 45 20 22 2b  c3 28 46 45 44 29 2b 22  |TSIZE "+.(FED)+"|
00002fd0  6b 22 0d 01 2e 07 53 44  46 0d 01 2f 05 e1 0d 01  |k"....SDF../....|
00002fe0  30 29 f4 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |0).*************|
00002ff0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00003000  2a 2a 2a 2a 2a 2a 2a 0d  01 31 0f dd 20 f2 4c 4f  |*******..1.. .LO|
00003010  47 50 52 49 4e 54 0d 01  32 09 ee 20 85 20 e1 0d  |GPRINT..2.. . ..|
00003020  01 33 4a e7 20 6c 6f 67  73 3e 30 20 f1 20 22 50  |.3J. logs>0 . "P|
00003030  6c 65 61 73 65 20 6e 6f  74 65 2c 20 74 68 65 73  |lease note, thes|
00003040  65 20 70 72 6f 62 6c 65  6d 73 20 6f 63 63 75 72  |e problems occur|
00003050  72 65 64 20 77 69 74 68  20 74 68 65 20 46 6f 6e  |red with the Fon|
00003060  74 2d 4c 69 73 74 20 2d  22 0d 01 34 10 e3 20 41  |t-List -"..4.. A|
00003070  3d 31 20 b8 20 6c 6f 67  73 0d 01 35 25 e7 20 6c  |=1 . logs..5%. l|
00003080  6f 67 73 24 28 41 29 3c  3e 6c 6f 67 73 24 28 41  |ogs$(A)<>logs$(A|
00003090  2b 31 29 20 f1 20 6c 6f  67 73 24 28 41 29 0d 01  |+1) . logs$(A)..|
000030a0  36 07 ed 20 41 0d 01 37  0e e7 20 6c 6f 67 73 3e  |6.. A..7.. logs>|
000030b0  30 20 f1 0d 01 38 05 e1  0d 01 39 22 f4 2a 2a 2a  |0 ...8....9".***|
000030c0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000030d0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 0d 01 3a 3a dd 20  |**********..::. |
000030e0  f2 70 72 69 6e 74 5f 77  6f 72 64 73 28 66 6f 6e  |.print_words(fon|
000030f0  74 24 2c 74 65 78 74 24  2c 78 78 25 2c 79 79 25  |t$,text$,xx%,yy%|
00003100  2c 66 73 69 7a 65 25 2c  72 72 25 2c 67 67 25 2c  |,fsize%,rr%,gg%,|
00003110  62 62 25 29 0d 01 3b 3d  c8 99 20 22 46 6f 6e 74  |bb%)..;=.. "Font|
00003120  5f 46 69 6e 64 46 6f 6e  74 22 2c 2c 66 6f 6e 74  |_FindFont",,font|
00003130  24 2c 66 73 69 7a 65 25  2a 31 36 2c 66 73 69 7a  |$,fsize%*16,fsiz|
00003140  65 25 2a 31 36 2c 30 2c  30 20 b8 20 66 6f 6e 74  |e%*16,0,0 . font|
00003150  25 0d 01 3c 4f c8 99 20  22 43 6f 6c 6f 75 72 54  |%..<O.. "ColourT|
00003160  72 61 6e 73 5f 53 65 74  46 6f 6e 74 43 6f 6c 6f  |rans_SetFontColo|
00003170  75 72 73 22 2c 66 6f 6e  74 25 2c 30 2c 28 72 72  |urs",font%,0,(rr|
00003180  25 3c 3c 38 29 20 2b 20  28 67 67 25 3c 3c 31 36  |%<<8) + (gg%<<16|
00003190  29 20 2b 20 28 62 62 25  3c 3c 32 34 29 2c 31 34  |) + (bb%<<24),14|
000031a0  0d 01 3d 2b c8 99 20 22  46 6f 6e 74 5f 50 61 69  |..=+.. "Font_Pai|
000031b0  6e 74 22 2c 66 6f 6e 74  25 2c 74 65 78 74 24 2c  |nt",font%,text$,|
000031c0  37 38 34 2c 78 78 25 2c  79 79 25 0d 01 3e 1c c8  |784,xx%,yy%..>..|
000031d0  99 20 22 46 6f 6e 74 5f  4c 6f 73 65 46 6f 6e 74  |. "Font_LoseFont|
000031e0  22 2c 66 6f 6e 74 25 0d  01 3f 05 e1 0d 01 40 21  |",font%..?....@!|
000031f0  f4 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.***************|
00003200  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 01 41  |*************..A|
00003210  10 dd 20 f2 66 69 6e 64  66 6f 6e 74 73 0d 01 42  |.. .findfonts..B|
00003220  08 ea 20 63 25 0d 01 43  10 66 6f 6e 74 63 6f 75  |.. c%..C.fontcou|
00003230  6e 74 25 3d 30 0d 01 44  08 63 25 3d 30 0d 01 45  |nt%=0..D.c%=0..E|
00003240  05 f5 0d 01 46 11 66 6f  6e 74 63 6f 75 6e 74 25  |....F.fontcount%|
00003250  2b 3d 31 0d 01 47 3e c8  99 20 22 46 6f 6e 74 5f  |+=1..G>.. "Font_|
00003260  4c 69 73 74 46 6f 6e 74  73 22 2c 2c 66 6f 6e 74  |ListFonts",,font|
00003270  69 64 2c 63 25 2c 32 35  36 20 b8 20 2c 66 6f 6e  |id,c%,256 . ,fon|
00003280  74 24 28 66 6f 6e 74 63  6f 75 6e 74 25 29 2c 63  |t$(fontcount%),c|
00003290  25 0d 01 48 0b fd 20 63  25 3d 2d 31 0d 01 49 05  |%..H.. c%=-1..I.|
000032a0  e1 0d 01 4a 21 f4 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |...J!.**********|
000032b0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000032c0  2a 2a 0d 01 4b 0b dd 20  f2 49 4e 49 54 0d 01 4c  |**..K.. .INIT..L|
000032d0  f9 ee 20 85 20 2a 45 52  52 4f 52 20 52 49 53 43  |.. . *ERROR RISC|
000032e0  75 74 69 6c 73 20 68 61  73 6e 27 74 20 62 65 65  |utils hasn't bee|
000032f0  6e 20 46 69 6c 65 72 5f  42 6f 6f 74 65 64 20 2f  |n Filer_Booted /|
00003300  20 46 69 6c 65 72 5f 52  75 6e 2c 20 6f 72 20 69  | Filer_Run, or i|
00003310  74 73 20 66 69 6c 65 2d  73 74 72 75 63 74 75 72  |ts file-structur|
00003320  65 20 69 73 20 69 6e 63  6f 72 72 65 63 74 2e 20  |e is incorrect. |
00003330  44 6f 20 6e 6f 74 20 74  61 6d 70 65 72 20 77 69  |Do not tamper wi|
00003340  74 68 20 52 49 53 43 75  74 69 6c 73 2c 20 26 20  |th RISCutils, & |
00003350  64 6f 20 6e 6f 74 20 6d  6f 76 65 20 57 53 59 66  |do not move WSYf|
00003360  6f 6e 74 20 66 72 6f 6d  20 69 74 27 73 20 64 69  |ont from it's di|
00003370  72 65 63 74 6f 72 79 2e  20 57 53 59 66 6f 6e 74  |rectory. WSYfont|
00003380  20 77 6f 6e 27 74 20 72  75 6e 20 75 6e 74 69 6c  | won't run until|
00003390  20 61 20 27 63 6f 6d 70  6c 65 74 65 27 20 63 6f  | a 'complete' co|
000033a0  70 79 20 6f 66 20 52 49  53 43 75 74 69 6c 73 20  |py of RISCutils |
000033b0  69 73 20 27 52 75 6e 27  20 6f 72 20 27 42 6f 6f  |is 'Run' or 'Boo|
000033c0  74 65 64 27 20 2e 0d 01  4d 2e ff 20 22 53 54 41  |ted' ...M.. "STA|
000033d0  4d 50 20 3c 52 49 53 43  75 74 69 6c 73 24 50 61  |MP <RISCutils$Pa|
000033e0  74 68 3e 2e 4e 4f 4e 5f  55 53 45 52 2e 4e 4f 52  |th>.NON_USER.NOR|
000033f0  4d 41 4c 22 0d 01 4e 23  ff 20 22 53 54 41 4d 50  |MAL"..N#. "STAMP|
00003400  20 3c 52 49 53 43 75 74  69 6c 73 24 50 61 74 68  | <RISCutils$Path|
00003410  3e 2e 21 52 75 6e 22 0d  01 4f 47 ff 20 22 53 54  |>.!Run"..OG. "ST|
00003420  41 4d 50 20 3c 52 49 53  43 75 74 69 6c 73 24 50  |AMP <RISCutils$P|
00003430  61 74 68 3e 2e 55 73 65  72 5f 41 72 65 61 2e 50  |ath>.User_Area.P|
00003440  72 6f 67 72 61 6d 73 2e  57 53 59 66 6f 6e 74 2e  |rograms.WSYfont.|
00003450  21 57 53 59 66 6f 6e 74  2e 21 52 75 6e 22 0d 01  |!WSYfont.!Run"..|
00003460  50 21 52 3d 30 3a 47 3d  30 3a 42 3d 30 3a 5a 3d  |P!R=0:G=0:B=0:Z=|
00003470  32 35 35 3a 6c 6f 67 73  3d 30 3a eb 20 31 35 0d  |255:logs=0:. 15.|
00003480  01 51 0e ee 20 85 20 f2  45 52 52 4f 52 0d 01 52  |.Q.. . .ERROR..R|
00003490  85 2a 43 4f 50 59 20 3c  52 49 53 43 75 74 69 6c  |.*COPY <RISCutil|
000034a0  73 24 50 61 74 68 3e 2e  55 73 65 72 5f 41 72 65  |s$Path>.User_Are|
000034b0  61 2e 50 72 6f 67 72 61  6d 73 2e 57 53 59 66 6f  |a.Programs.WSYfo|
000034c0  6e 74 2e 21 57 53 59 66  6f 6e 74 2e 46 6f 6e 74  |nt.!WSYfont.Font|
000034d0  6c 69 73 74 73 20 3c 52  49 53 43 75 74 69 6c 73  |lists <RISCutils|
000034e0  24 50 61 74 68 3e 2e 55  73 65 72 5f 41 72 65 61  |$Path>.User_Area|
000034f0  2e 50 72 6f 67 72 61 6d  73 2e 57 53 59 66 6f 6e  |.Programs.WSYfon|
00003500  74 2e 46 6f 6e 74 2d 4c  69 73 74 73 20 7e 43 20  |t.Font-Lists ~C |
00003510  7e 56 0d 01 53 50 c8 99  20 22 46 6f 6e 74 5f 43  |~V..SP.. "Font_C|
00003520  61 63 68 65 41 64 64 72  22 20 b8 20 76 65 72 73  |acheAddr" . vers|
00003530  69 6f 6e 25 3a e7 20 76  65 72 73 69 6f 6e 25 20  |ion%:. version% |
00003540  3c 20 33 30 30 20 8c 20  85 20 30 2c 22 46 6f 6e  |< 300 . . 0,"Fon|
00003550  74 20 4d 61 6e 61 67 65  72 20 74 6f 6f 20 6f 6c  |t Manager too ol|
00003560  64 22 0d 01 54 10 de 20  66 6f 6e 74 69 64 20 32  |d"..T.. fontid 2|
00003570  35 36 0d 01 55 11 de 20  66 6f 6e 74 24 28 31 30  |56..U.. font$(10|
00003580  30 30 29 0d 01 56 10 de  20 6c 6f 67 73 24 28 32  |00)..V.. logs$(2|
00003590  30 30 29 0d 01 57 14 de  20 66 6f 6e 74 6d 61 74  |00)..W.. fontmat|
000035a0  72 69 78 25 20 33 32 0d  01 58 05 e1 0d 01 59 22  |rix% 32..X....Y"|
000035b0  f4 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.***************|
000035c0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d ff  |**************..|
000035d0