' Install.sub for Scaling Font Service
' parameter 0 = floppy drive, e.g., [F0]
' parameter 1 = system drive, e.g., [sys]
' parameter 2 = command file, e.g., [sys]<sys>sys.cmds
COPY
[kbd]
[vid]pf
    af                                                                     aa
    af            ae  Scaling Font Service 1.0 Installation  af                aa
    af                                                                     aa
    af                                                                     aa
    af ahYou aemustah install GPS 2.4 (or later) before installing this package.af aa
    af                                                                     aa
    af This installation uses the Font Tool  editable font database       aa
    af created by the installation of GPS 2.4 or later.                    aa
    af                                                                     aa
    af                                                                     aa
    af ahPressaf aeActionFinishaf to terminate this installation if the editable  aa
    af font database is not available or ahPressaf aeGOaf to continue.             aa
    af                                                                     aa
1
pf


    af                                                                     aa
    af Enter the volume  directory in which the editable database is      aa
    af stored into the path form below and ahpressaf aeGOaf to continue.           aa
    af                                                                     aa
'
PATH
SYS
FontDB1
Screen Setup

yes'
Type
[Kbd]
CEF
    af Scaling Font Service 1.0 basic installation requires approximately  aa
    af 800 sectors on the destination volume.  Allow a minimum of 1000     aa
    af sectors for the database you will generate.                         aa
    af                                                                     aa
    af The Scaling Font Outlines require approximately 1750 sectors, but   aa
    af can be directed to another destination volume.                      aa
    af                                                                     aa
    af The Master Outlines, for nationalization, require approximately     aa
    af 2150 sectors, but can be directed to another destination volume.    aa
    af                                                                     aa
    af You may modify the Volume Status command form if you specified a    aa
    af destination volume other than [sys] in the Path command.            aa
    af                                                                     aa
    af AhPressaf AEGOAf to invoke Volume Status and note the number of unused      aa
    af sectors.  Otherwise, ahpressaf aeCancelaf then aeGOaf.                          aa
    af                                                                     aa
    Af               You MUST AhpressAF AEGOAF AGAIN to continue.                  aa
'
Volume Status
Sys11
'
LCopy
0<ct>*.port



y

n'
LCopy
0<ct>*.font



y

n'
COPY
[kbd]
[vid]pf
    af                                                                    aa
    af If a Font Service is currently installed on your workstation,      aa
    af ahpressaf aeGOaf to deinstall it.                                          aa
    af                                                                    aa
    af Otherwise, ahpressaf aeCANCELaf and then aeGOaf.                               aa
    af                                                                    aa
'
Deinstall Font Service1'
Copy
[kbd]
[Scr]<$>args.Tmp
Yes'
'[Font database ([sys]<gps>ScalingFont.dbs)]'
'[Bytes of buffer space (8192)]'
'[ of outline cache blocks @64K RAM (1)]'
'[ of scaled metrics to cache @1.5K disk (200)]'
'[Cache file ([sys]<gps>ScalingFont.metrics)]'
'[Outline directory ([sys]<sfs>)]'
Copy
[kbd]
[Scr]<$>desc.Tmp
Yes'
'Installs the Font Service which scales bitmap fonts from outlines'
New Command
'Install Scaling Font Service'
1<sys>ScalingFontService.run
@[Scr]<$>args.Tmp
@[Scr]<$>desc.Tmp
Yes
00
2'
Copy
[kbd]
[Scr]<$>desc.Tmp
Yes
'Capture scaled fonts from font service for import to font data base'
Copy
[kbd]
[Scr]<$>args.Tmp
Yes
[Families] '[Sizes (12)]' '[Device type (Video120)]' '[Prefix for uniqueness]'
New Command
'Export Raster Fonts'
1<sys>FontCapture.run
@[Scr]<$>args.Tmp
@[Scr]<$>desc.Tmp
Yes
00
2'
LCopy
ScalingFontDemo
0<ct>
1<gps>

y'
LCopy
Capture.run NatMsg.bin NatMsg.txt
0<ct>Font
1<sys>Font

y'
LCopy
0<ct>ScalingFontService*

1<sys>

y'
COPY
[kbd]
[vid]pf
    af                                                                    aa
    af The outlines (39 files) require about 1750 sectors.                aa
    af                                                                    aa
    af The final parameter below, 1<sfs>, shows the path where        aa
    af the outlines will be stored.  You may modify the command form if   aa
    af the current volume does not have enough unused sectors.            aa
    af                                                                    aa
    af The installation procedure will create the directory if it does    aa
    af not already exist.                                                 aa
    af                                                                    aa
    af                                                                    aa
    af                        ahPressaf aeGOaf to continue.                       aa
    af                                                                    aa
'
Submit
0<ct>OutlineInstall.sub
0 1 2''?22 1<sfs>1'
ble font database       aa
    af created by the installation of GPS 2.4 or later.                    aa
    af                                                                     aa
    af                                                                     aa
   