' HDInstall.sub for Scaling Font Nationalization Tool
' parameter 0 = floppy drive, e.g., [F0]
' parameter 1 = system drive, e.g., [sys]
' parameter 2 = command file, e.g., [sys]<sys>sys.cmds
' parameter 3 = directory to store outlines, e.g., [sys]<sfs>
COPY
[kbd]
[vid]pf
    af                                                                    aa
    af   Installation of Scaling Font Service 1.0 Nationalization Tool    aa
    af                                                                    aa
'
Copy
[kbd]
[Scr]<$>desc.Tmp
Yes
'Condense font files for Scaling Font Service to characters used'
New Command
'Nationalize Scaling Fonts'
1<sys>FontNationalize.run
[Families] '[Device type (Video120)]'
@[Scr]<$>desc.Tmp
Yes
00
2'
?3
LCopy
Nationalize.run
0<ct>Font
1<sys>Font

y'
Create Directory
3

150'
LCopy
0<ct>FONT*.SPD

3

y'
COPY
[kbd]
[vid]pf
   af                                                                    aa
   af           Mount disk 4 of 5 and ahpressaf aeGOaf to continue.              aa
   af                                                                    aa
'
1LCopy
0<ct>FONT*.SPD

3

y'
COPY
[kbd]
[vid]pf
   af                                                                    aa
   af           Mount disk 5 of 5 and ahpressaf aeGOaf to continue.              aa
   af                                                                    aa
'
1LCopy
0<ct>FONT*.SPD

3

y'
af an additional 1750 sectors will be required 