summaryrefslogtreecommitdiff
path: root/fonts/utilities/fontload/vms
diff options
context:
space:
mode:
Diffstat (limited to 'fonts/utilities/fontload/vms')
-rw-r--r--fonts/utilities/fontload/vms/fload.com122
-rw-r--r--fonts/utilities/fontload/vms/fontmap.t1254
-rw-r--r--fonts/utilities/fontload/vms/init.com7
-rw-r--r--fonts/utilities/fontload/vms/install.txt77
-rw-r--r--fonts/utilities/fontload/vms/make.com11
-rw-r--r--fonts/utilities/fontload/vms/subfont.exe-alphabin0 -> 48128 bytes
-rw-r--r--fonts/utilities/fontload/vms/subfont.exe-vaxbin0 -> 89600 bytes
7 files changed, 471 insertions, 0 deletions
diff --git a/fonts/utilities/fontload/vms/fload.com b/fonts/utilities/fontload/vms/fload.com
new file mode 100644
index 0000000000..6b78690d97
--- /dev/null
+++ b/fonts/utilities/fontload/vms/fload.com
@@ -0,0 +1,122 @@
+$!
+$! File: FLoad.com
+$! This VMS command file implements partial downloading
+$! of the ATM compatible PostScript Type 1 fonts which
+$! is used in specified PostScript file.
+$! This procedure is done via GhostScript & SubFont programs.
+$!
+$! Copyright (C) 1994, Basil K. Malyshev. All rights reserved.
+$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+$! Customize this variables...
+$ gs="$usr_local:[exe]gs.exe"
+$ define/nolog gs_path usr_local:[lib.gs]
+$ define/nolog font_path disk$et:[tex.newtex.xps],disk$et:[tex.newtex.ps]
+$! SubFont must be defined erlier ...
+$! subfont=="$disk$et:[texmgr.bkm.fload.src]subfont.exe"
+$! Which font set is in printer
+$ fontSet="Standard"
+$!
+$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+$ cf = F$ENV("PROCEDURE")
+$ root=f$parse(cf,,,"DEVICE") + f$parse(cf,,,"DIRECTORY")
+$ define/nolog fload_lib 'root'
+$ define/nolog fload_path fload_lib,font_path,gs_path
+$!
+$ echo="write sys$output"
+$!
+$! Recompute map on switch '-updatemap'
+$ if ( P1 .eqs. "-updatemap" .or. P1 .eqs. "-UPDATEMAP" )
+$ then
+$ open/write lun fontmap.t1
+$ write lun " "
+$ close lun
+$ list_loop:
+$ tmp = f$sear("font_path:*.*")
+$ if tmp .eqs. "" then goto list_end
+$ type = f$par(tmp,,,"TYPE")
+$ if ( type .eqs. ".PFB" .or. type .eqs. ".PFA" )
+$ then
+$ fname=f$par(tmp,,,"NAME") + type
+$ write sys$output "Process " + tmp
+$ subfont -zFontmap.t1 font_path:'fname'
+$ endif
+$ goto list_loop
+$ list_end:
+$ exit
+$ endif
+$!
+$! Check all required arguments is in command line
+$ if ( P1 .eqs. "-P" )
+$ then
+$ if ( P2 .eqs. "" )
+$ then
+$ echo "There are following font sets:"
+$ direct_dcl fload_lib:*.FS
+$ exit
+$ endif
+$ fontSet=P2
+$ ifn=P3
+$ out=P4
+$ else
+$ ifn=P1
+$ out=P2
+$ endif
+$ if ( f$sear("fload_lib:"+fontSet+".FS") .eqs. "" )
+$ then
+$ echo "? "+fontSet+" font set is not known."
+$ exit
+$ endif
+$! If input file name is not presented show usage and list of built in fonts.
+$ if "''ifn'" .eqs. "" .or. "''out'" .eqs. ""
+$ then
+ $ echo "Usage: (of the fload de Basil/VMS version)"
+ $ echo "fload [-p <fontset>] <input-ps-file> <output-ps-file>"
+ $ exit
+$ endif
+$! Check file existance, and make full file name
+$ fn = f$search(ifn)
+$ if fn .eqs. ""
+$ then
+ $ echo "? FLoad: Can not found file "+ifn
+ $ exit
+$ endif
+
+$! Interpret file via Ghostscript to determine required fonts and characters.
+$!fbase=f$parse(fn,,,"DEVICE")+f$parse(fn,,,"DIRECTORY")+f$parse(fn,,,"NAME")
+$ fbase=f$parse(out,,,"DEVICE")+f$parse(out,,,"DIRECTORY")+f$parse(out,,,"NAME")
+$ out=fbase+f$parse(out,,,"TYPE")
+$ if out .eqs. fbase+"." then $ out=fbase+".ps"
+$ fstat=fbase+".fstat"
+$ echo "Process PS file "+fn+"."
+$ echo "Write font using statistic to "+fstat
+$ if f$search(fstat) .nes. "" then $ delete_command/nolog 'fstat';*
+$ define/user gs_lib fload_path:
+$ define/user sys$output 'fbase'.flog
+$ gs "-DNODISPLAY" "-DWRITESYSTEMDICT" "-sOUTFILE=''fstat'" -
+ "-sRESIDENTFONTS=''fontSet'.FS" "-sINFILE=''fn'" psfstat.ps
+$ if f$search(fstat) .eqs. ""
+$ then
+ $ echo "? FLOAD EROOR: There is some errors in scanning PS file."
+ $ echo "! Look GhostScript log file "+fbase+".flog for more information"
+ $ echo "! Most frequently error is that some font is not anywhere."
+ $ exit
+$ else
+$ delete_dcl/nolog 'fbase'.flog;
+$ delete_dcl/nolog 'fstat';-1
+$ endif
+
+$ echo "Writing main output PS file: "+out
+$ open/write outfd 'out'
+$ write outfd "%!PS-Adobe-3.0"
+$ close outfd
+$! Make partial downloading of these fonts which is available
+$ if f$search(fbase+".undef") .nes. "" then $ delete_cmd/nolog 'fbase'.undef;*
+$ subfont -I,FONT_PATH: -u'fbase'.undef -mFLOAD_LIB:Fontmap.t1 -a'out' -f'fstat' -c 'fn'
+$ if f$search(fbase+".undef") .nes. ""
+$ then
+ $ echo "There is fonts which is not found by SubFont program."
+ $ echo "That is fonts:"
+ $ type_dcl 'fbase'.undef
+ $ echo "This list is also saved in file "+fbase+".undef"
+$ endif
+$ exit
diff --git a/fonts/utilities/fontload/vms/fontmap.t1 b/fonts/utilities/fontload/vms/fontmap.t1
new file mode 100644
index 0000000000..1c7ac09727
--- /dev/null
+++ b/fonts/utilities/fontload/vms/fontmap.t1
@@ -0,0 +1,254 @@
+
+/cmb10 (font_path:cmb10.pfb) ;
+/cmbsy10 (font_path:cmbsy10.pfb) ;
+/cmbsy6 (font_path:cmbsy6.pfb) ;
+/cmbsy7 (font_path:cmbsy7.pfb) ;
+/cmbsy8 (font_path:cmbsy8.pfb) ;
+/cmbsy9 (font_path:cmbsy9.pfb) ;
+/cmbx10 (font_path:cmbx10.pfb) ;
+/cmbx12 (font_path:cmbx12.pfb) ;
+/cmbx5 (font_path:cmbx5.pfb) ;
+/cmbx6 (font_path:cmbx6.pfb) ;
+/cmbx7 (font_path:cmbx7.pfb) ;
+/cmbx8 (font_path:cmbx8.pfb) ;
+/cmbx9 (font_path:cmbx9.pfb) ;
+/cmbxsl10 (font_path:cmbxsl10.pfb) ;
+/cmbxti10 (font_path:cmbxti10.pfb) ;
+/cmcsc10 (font_path:cmcsc10.pfb) ;
+/cmcsc8 (font_path:cmcsc8.pfb) ;
+/cmcsc9 (font_path:cmcsc9.pfb) ;
+/cmdunh10 (font_path:cmdunh10.pfb) ;
+/cmex10 (font_path:cmex10.pfb) ;
+/cmex7 (font_path:cmex7.pfb) ;
+/cmex8 (font_path:cmex8.pfb) ;
+/cmex9 (font_path:cmex9.pfb) ;
+/cmff10 (font_path:cmff10.pfb) ;
+/cmfi10 (font_path:cmfi10.pfb) ;
+/cmfib8 (font_path:cmfib8.pfb) ;
+/cminch (font_path:cminch.pfb) ;
+/cmitt10 (font_path:cmitt10.pfb) ;
+/cmmi10 (font_path:cmmi10.pfb) ;
+/cmmi12 (font_path:cmmi12.pfb) ;
+/cmmi5 (font_path:cmmi5.pfb) ;
+/cmmi6 (font_path:cmmi6.pfb) ;
+/cmmi7 (font_path:cmmi7.pfb) ;
+/cmmi8 (font_path:cmmi8.pfb) ;
+/cmmi9 (font_path:cmmi9.pfb) ;
+/cmmib10 (font_path:cmmib10.pfb) ;
+/cmmib6 (font_path:cmmib6.pfb) ;
+/cmmib7 (font_path:cmmib7.pfb) ;
+/cmmib8 (font_path:cmmib8.pfb) ;
+/cmmib9 (font_path:cmmib9.pfb) ;
+/cmr10 (font_path:cmr10.pfb) ;
+/cmr12 (font_path:cmr12.pfb) ;
+/cmr17 (font_path:cmr17.pfb) ;
+/cmr5 (font_path:cmr5.pfb) ;
+/cmr6 (font_path:cmr6.pfb) ;
+/cmr7 (font_path:cmr7.pfb) ;
+/cmr8 (font_path:cmr8.pfb) ;
+/cmr9 (font_path:cmr9.pfb) ;
+/cmsl10 (font_path:cmsl10.pfb) ;
+/cmsl12 (font_path:cmsl12.pfb) ;
+/cmsl8 (font_path:cmsl8.pfb) ;
+/cmsl9 (font_path:cmsl9.pfb) ;
+/cmsltt10 (font_path:cmsltt10.pfb) ;
+/cmss10 (font_path:cmss10.pfb) ;
+/cmss12 (font_path:cmss12.pfb) ;
+/cmss17 (font_path:cmss17.pfb) ;
+/cmss8 (font_path:cmss8.pfb) ;
+/cmss9 (font_path:cmss9.pfb) ;
+/cmssbx10 (font_path:cmssbx10.pfb) ;
+/cmssdc10 (font_path:cmssdc10.pfb) ;
+/cmssi10 (font_path:cmssi10.pfb) ;
+/cmssi12 (font_path:cmssi12.pfb) ;
+/cmssi17 (font_path:cmssi17.pfb) ;
+/cmssi8 (font_path:cmssi8.pfb) ;
+/cmssi9 (font_path:cmssi9.pfb) ;
+/cmssq8 (font_path:cmssq8.pfb) ;
+/cmssqi8 (font_path:cmssqi8.pfb) ;
+/cmsy10 (font_path:cmsy10.pfb) ;
+/cmsy5 (font_path:cmsy5.pfb) ;
+/cmsy6 (font_path:cmsy6.pfb) ;
+/cmsy7 (font_path:cmsy7.pfb) ;
+/cmsy8 (font_path:cmsy8.pfb) ;
+/cmsy9 (font_path:cmsy9.pfb) ;
+/cmtcsc10 (font_path:cmtcsc10.pfb) ;
+/cmtex10 (font_path:cmtex10.pfb) ;
+/cmtex8 (font_path:cmtex8.pfb) ;
+/cmtex9 (font_path:cmtex9.pfb) ;
+/cmti10 (font_path:cmti10.pfb) ;
+/cmti12 (font_path:cmti12.pfb) ;
+/cmti7 (font_path:cmti7.pfb) ;
+/cmti8 (font_path:cmti8.pfb) ;
+/cmti9 (font_path:cmti9.pfb) ;
+/cmtt10 (font_path:cmtt10.pfb) ;
+/cmtt12 (font_path:cmtt12.pfb) ;
+/cmtt8 (font_path:cmtt8.pfb) ;
+/cmtt9 (font_path:cmtt9.pfb) ;
+/cmu10 (font_path:cmu10.pfb) ;
+/cmvtt10 (font_path:cmvtt10.pfb) ;
+/cmb10 (font_path:cmb10.pfa) ;
+/cmbsy10 (font_path:cmbsy10.pfa) ;
+/cmbx10 (font_path:cmbx10.pfa) ;
+/cmbx12 (font_path:cmbx12.pfa) ;
+/cmbx5 (font_path:cmbx5.pfa) ;
+/cmbx6 (font_path:cmbx6.pfa) ;
+/cmbx7 (font_path:cmbx7.pfa) ;
+/cmbx8 (font_path:cmbx8.pfa) ;
+/cmbx9 (font_path:cmbx9.pfa) ;
+/cmbxsl10 (font_path:cmbxsl10.pfa) ;
+/cmbxti10 (font_path:cmbxti10.pfa) ;
+/cmcb10 (font_path:cmcb10.pfa) ;
+/cmcbx10 (font_path:cmcbx10.pfa) ;
+/cmcbx12 (font_path:cmcbx12.pfa) ;
+/cmcbx5 (font_path:cmcbx5.pfa) ;
+/cmcbx6 (font_path:cmcbx6.pfa) ;
+/cmcbx7 (font_path:cmcbx7.pfa) ;
+/cmcbx8 (font_path:cmcbx8.pfa) ;
+/cmcbx9 (font_path:cmcbx9.pfa) ;
+/cmcbxsl10 (font_path:cmcbxsl1.pfa) ;
+/cmcbxti10 (font_path:cmcbxti1.pfa) ;
+/cmccsc10 (font_path:cmccsc10.pfa) ;
+/cmccsc8 (font_path:cmccsc8.pfa) ;
+/cmccsc9 (font_path:cmccsc9.pfa) ;
+/cmcitt10 (font_path:cmcitt10.pfa) ;
+/cmcsc10 (font_path:cmcsc10.pfa) ;
+/cmcsc8 (font_path:cmcsc8.pfa) ;
+/cmcsc9 (font_path:cmcsc9.pfa) ;
+/cmcsl10 (font_path:cmcsl10.pfa) ;
+/cmcsl12 (font_path:cmcsl12.pfa) ;
+/cmcsl8 (font_path:cmcsl8.pfa) ;
+/cmcsl9 (font_path:cmcsl9.pfa) ;
+/cmcsltt10 (font_path:cmcsltt1.pfa) ;
+/cmcss10 (font_path:cmcss10.pfa) ;
+/cmcss12 (font_path:cmcss12.pfa) ;
+/cmcss17 (font_path:cmcss17.pfa) ;
+/cmcss8 (font_path:cmcss8.pfa) ;
+/cmcss9 (font_path:cmcss9.pfa) ;
+/cmcssbx10 (font_path:cmcssbx1.pfa) ;
+/cmcssdc10 (font_path:cmcssdc1.pfa) ;
+/cmcssi10 (font_path:cmcssi10.pfa) ;
+/cmcssi12 (font_path:cmcssi12.pfa) ;
+/cmcssi17 (font_path:cmcssi17.pfa) ;
+/cmcssi8 (font_path:cmcssi8.pfa) ;
+/cmcssi9 (font_path:cmcssi9.pfa) ;
+/cmcssq8 (font_path:cmcssq8.pfa) ;
+/cmcssqi8 (font_path:cmcssqi8.pfa) ;
+/cmcti10 (font_path:cmcti10.pfa) ;
+/cmcti12 (font_path:cmcti12.pfa) ;
+/cmcti7 (font_path:cmcti7.pfa) ;
+/cmcti8 (font_path:cmcti8.pfa) ;
+/cmcti9 (font_path:cmcti9.pfa) ;
+/cmctt10 (font_path:cmctt10.pfa) ;
+/cmctt12 (font_path:cmctt12.pfa) ;
+/cmctt8 (font_path:cmctt8.pfa) ;
+/cmctt9 (font_path:cmctt9.pfa) ;
+/cmcu10 (font_path:cmcu10.pfa) ;
+/cmcyr10 (font_path:cmcyr10.pfa) ;
+/cmcyr12 (font_path:cmcyr12.pfa) ;
+/cmcyr17 (font_path:cmcyr17.pfa) ;
+/cmcyr5 (font_path:cmcyr5.pfa) ;
+/cmcyr6 (font_path:cmcyr6.pfa) ;
+/cmcyr7 (font_path:cmcyr7.pfa) ;
+/cmcyr8 (font_path:cmcyr8.pfa) ;
+/cmcyr9 (font_path:cmcyr9.pfa) ;
+/cmdunh10 (font_path:cmdunh10.pfa) ;
+/cmex10 (font_path:cmex10.pfa) ;
+/cmff10 (font_path:cmff10.pfa) ;
+/cmfi10 (font_path:cmfi10.pfa) ;
+/cmfib8 (font_path:cmfib8.pfa) ;
+/cminch (font_path:cminch.pfa) ;
+/cmitt10 (font_path:cmitt10.pfa) ;
+/cmmi10 (font_path:cmmi10.pfa) ;
+/cmmi12 (font_path:cmmi12.pfa) ;
+/cmmi5 (font_path:cmmi5.pfa) ;
+/cmmi6 (font_path:cmmi6.pfa) ;
+/cmmi7 (font_path:cmmi7.pfa) ;
+/cmmi8 (font_path:cmmi8.pfa) ;
+/cmmi9 (font_path:cmmi9.pfa) ;
+/cmmib10 (font_path:cmmib10.pfa) ;
+/cmr10 (font_path:cmr10.pfa) ;
+/cmr12 (font_path:cmr12.pfa) ;
+/cmr17 (font_path:cmr17.pfa) ;
+/cmr5 (font_path:cmr5.pfa) ;
+/cmr6 (font_path:cmr6.pfa) ;
+/cmr7 (font_path:cmr7.pfa) ;
+/cmr8 (font_path:cmr8.pfa) ;
+/cmr9 (font_path:cmr9.pfa) ;
+/cmsl10 (font_path:cmsl10.pfa) ;
+/cmsl12 (font_path:cmsl12.pfa) ;
+/cmsl8 (font_path:cmsl8.pfa) ;
+/cmsl9 (font_path:cmsl9.pfa) ;
+/cmsltt10 (font_path:cmsltt10.pfa) ;
+/cmss10 (font_path:cmss10.pfa) ;
+/cmss12 (font_path:cmss12.pfa) ;
+/cmss17 (font_path:cmss17.pfa) ;
+/cmss8 (font_path:cmss8.pfa) ;
+/cmss9 (font_path:cmss9.pfa) ;
+/cmssbx10 (font_path:cmssbx10.pfa) ;
+/cmssdc10 (font_path:cmssdc10.pfa) ;
+/cmssi10 (font_path:cmssi10.pfa) ;
+/cmssi12 (font_path:cmssi12.pfa) ;
+/cmssi17 (font_path:cmssi17.pfa) ;
+/cmssi8 (font_path:cmssi8.pfa) ;
+/cmssi9 (font_path:cmssi9.pfa) ;
+/cmssq8 (font_path:cmssq8.pfa) ;
+/cmssqi8 (font_path:cmssqi8.pfa) ;
+/cmsy10 (font_path:cmsy10.pfa) ;
+/cmsy5 (font_path:cmsy5.pfa) ;
+/cmsy6 (font_path:cmsy6.pfa) ;
+/cmsy7 (font_path:cmsy7.pfa) ;
+/cmsy8 (font_path:cmsy8.pfa) ;
+/cmsy9 (font_path:cmsy9.pfa) ;
+/cmtcsc10 (font_path:cmtcsc10.pfa) ;
+/cmtex10 (font_path:cmtex10.pfa) ;
+/cmtex8 (font_path:cmtex8.pfa) ;
+/cmtex9 (font_path:cmtex9.pfa) ;
+/cmti10 (font_path:cmti10.pfa) ;
+/cmti12 (font_path:cmti12.pfa) ;
+/cmti7 (font_path:cmti7.pfa) ;
+/cmti8 (font_path:cmti8.pfa) ;
+/cmti9 (font_path:cmti9.pfa) ;
+/cmtt10 (font_path:cmtt10.pfa) ;
+/cmtt12 (font_path:cmtt12.pfa) ;
+/cmtt8 (font_path:cmtt8.pfa) ;
+/cmtt9 (font_path:cmtt9.pfa) ;
+/cmu10 (font_path:cmu10.pfa) ;
+/cmvtt10 (font_path:cmvtt10.pfa) ;
+/euex10 (font_path:euex10.pfa) ;
+/eufb10 (font_path:eufb10.pfa) ;
+/eufb5 (font_path:eufb5.pfa) ;
+/eufb7 (font_path:eufb7.pfa) ;
+/eufm10 (font_path:eufm10.pfa) ;
+/eufm5 (font_path:eufm5.pfa) ;
+/eufm7 (font_path:eufm7.pfa) ;
+/eurb10 (font_path:eurb10.pfa) ;
+/eurb5 (font_path:eurb5.pfa) ;
+/eurb7 (font_path:eurb7.pfa) ;
+/eurm10 (font_path:eurm10.pfa) ;
+/eurm5 (font_path:eurm5.pfa) ;
+/eurm7 (font_path:eurm7.pfa) ;
+/eusb10 (font_path:eusb10.pfa) ;
+/eusb5 (font_path:eusb5.pfa) ;
+/eusb7 (font_path:eusb7.pfa) ;
+/eusm10 (font_path:eusm10.pfa) ;
+/eusm5 (font_path:eusm5.pfa) ;
+/eusm7 (font_path:eusm7.pfa) ;
+/lasy10 (font_path:lasy10.pfa) ;
+/lasy5 (font_path:lasy5.pfa) ;
+/lasy6 (font_path:lasy6.pfa) ;
+/lasy7 (font_path:lasy7.pfa) ;
+/lasy8 (font_path:lasy8.pfa) ;
+/lasy9 (font_path:lasy9.pfa) ;
+/lasyb10 (font_path:lasyb10.pfa) ;
+/lcircle10 (font_path:lcircle1.pfa) ;
+/lcirclew10 (font_path:lcirclew.pfa) ;
+/line10 (font_path:line10.pfa) ;
+/linew10 (font_path:linew10.pfa) ;
+/logo10 (font_path:logo10.pfa) ;
+/logo8 (font_path:logo8.pfa) ;
+/logo9 (font_path:logo9.pfa) ;
+/logobf10 (font_path:logobf10.pfa) ;
+/logosl10 (font_path:logosl10.pfa) ;
+/msam10 (font_path:msam10.pfa) ;
+/msbm10 (font_path:msbm10.pfa) ;
diff --git a/fonts/utilities/fontload/vms/init.com b/fonts/utilities/fontload/vms/init.com
new file mode 100644
index 0000000000..53208b4209
--- /dev/null
+++ b/fonts/utilities/fontload/vms/init.com
@@ -0,0 +1,7 @@
+$!
+$! Determine directory in which all programs are ...
+$ cf = F$ENV("PROCEDURE")
+$ root=f$parse(cf,,,"DEVICE") + f$parse(cf,,,"DIRECTORY")
+$ fload == "@" + root + "fload.com"
+$ subfont == "$" + root + "subfont.exe-" + f$getsy("ARCH_NAME")
+$ exit
diff --git a/fonts/utilities/fontload/vms/install.txt b/fonts/utilities/fontload/vms/install.txt
new file mode 100644
index 0000000000..53e72c7d5b
--- /dev/null
+++ b/fonts/utilities/fontload/vms/install.txt
@@ -0,0 +1,77 @@
+
+To install Partial font downloading utility for VMS make following:
+
+1. Copy system independent file from distribution subdirectory 'lib'
+ into any one directory (For example USER$PLUS:[MINUS]).
+
+2. Copy system dependent files from distribution subdirectory 'vms'
+ into the same directory.
+
+3. Edit head of the file fload.com.
+ Have attension for following items:
+
+ $ gs="$usr_local:[exe]gs.exe"
+ It symbol which must call ghostscript interpreter.
+ Not command file, which call interpreter !
+
+ $ define/nolog gs_path usr_local:[lib.gs]
+ This logical name must refer to directory with standard
+ GhostScript library files.
+
+ $ define/nolog font_path disk$et:[tex.newtex.xps],disk$et:[tex.newtex.ps]
+ This logical name must contains list of directories with
+ fonts which are required by your documents.
+
+ Note, that variable 'fload_lib' is determined automatically.
+ However old versions of VMS system do not supports F$ENV("PROCEDURE")
+ call. In this case you must correct definition of the 'fload_lib'
+ variable.
+
+4. SET DEFAULT USER$PLUS:[MINUS]
+
+5. Issue command
+ $ @INIT.COM
+ This command will define symbols for calling commands 'fload' & 'subfont'
+
+6. Issue command
+ $ FLOAD -updatefontmap
+ This command will scans all fonts in 'font_path' and build map.
+ Map will be saved in file 'Fontmap.t1'.
+
+Currently installation is completed.
+
+System command 'DIR' must shows following :
+
+Directory USER$PLUS:[MINUS]
+
+35.FS;1 2/4 27-JAN-1995 15:16:29.56 (RWED,RWED,RE,RE)
+CVTMAP.PS;1 1/4 27-JAN-1995 15:16:33.52 (RWED,RWED,RE,RE)
+FLOAD.COM;6 9/12 27-JAN-1995 16:37:13.91 (RWED,RWED,RE,RE)
+FONTMAP.T1;2 18/20 27-JAN-1995 16:37:22.75 (RWED,RWED,RE,RE)
+INIT.COM;2 1/4 27-JAN-1995 15:29:28.43 (RWED,RWED,RE,RE)
+INSTALL.TXT;1 6/8 27-JAN-1995 16:43:02.32 (RWED,RWED,RE,RE)
+MAKE.COM;4 1/4 27-JAN-1995 15:39:38.98 (RWED,RWED,RE,RE)
+PSFSTAT.PS;3 26/28 27-JAN-1995 16:18:38.18 (RWED,RWED,RE,RE)
+STANDARD.FS;1 1/4 27-JAN-1995 15:16:32.87 (RWED,RWED,RE,RE)
+SUBFONT.EXE-ALPHA;2
+ 94/96 27-JAN-1995 15:39:58.43 (RWED,RWED,RE,RE)
+SUBFONT.EXE-VAX;2 175/176 27-JAN-1995 15:41:01.54 (RWED,RWED,RE,RE)
+
+Total of 11 files, 333/360 blocks.
+
+To use program one must:
+
+1. issue command
+ $ @USER$PLUS:[MINUS]INIT.COM
+ At start of him session.
+ It will be more conviniently to add this line into user's 'LOGIN.COM'.
+
+2. Issue command
+ fload <source-PS-file> <destination-PS-file>
+ To make PS file with partially preloaded Type1 fonts.
+
+NOTE: Program will preloads only those fonts which are not in your source
+ PS file. So, you must configurate your software so that it will
+ write PS files without font preloading.
+
+Basil K. Malyshev, 27-Jan-1995.
diff --git a/fonts/utilities/fontload/vms/make.com b/fonts/utilities/fontload/vms/make.com
new file mode 100644
index 0000000000..5162ef2837
--- /dev/null
+++ b/fonts/utilities/fontload/vms/make.com
@@ -0,0 +1,11 @@
+$! This file compiles SUBFONT program on VMS system.
+$ arch = f$getsy("ARCH_NAME")
+$ if ( arch .eqs. "Alpha" )
+$ then
+$ cc subfont
+$ link/exe=subfont.exe-Alpha subfont
+$ else
+$ cc subfont
+$ link/exe=subfont.exe-vax subfont,sys$library:vaxcrtl/lib
+$ endif
+$ exit
diff --git a/fonts/utilities/fontload/vms/subfont.exe-alpha b/fonts/utilities/fontload/vms/subfont.exe-alpha
new file mode 100644
index 0000000000..03cc848756
--- /dev/null
+++ b/fonts/utilities/fontload/vms/subfont.exe-alpha
Binary files differ
diff --git a/fonts/utilities/fontload/vms/subfont.exe-vax b/fonts/utilities/fontload/vms/subfont.exe-vax
new file mode 100644
index 0000000000..19f6382972
--- /dev/null
+++ b/fonts/utilities/fontload/vms/subfont.exe-vax
Binary files differ