diff options
Diffstat (limited to 'macros/text1/compugraphics_8600/fonttex.exec')
-rw-r--r-- | macros/text1/compugraphics_8600/fonttex.exec | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/macros/text1/compugraphics_8600/fonttex.exec b/macros/text1/compugraphics_8600/fonttex.exec new file mode 100644 index 0000000000..5bc405cefa --- /dev/null +++ b/macros/text1/compugraphics_8600/fonttex.exec @@ -0,0 +1,23 @@ +/* FONTTEX EXEC + Note: This REXX exec is used to run the FontTeX driver program. + This exec will prompt the user for a filename if none was entered with + the call to the exec. +*/ + +Address 'COMMAND'; +Trace value 'n' +Parse Upper Arg inFn; +if inFn=' ' +then do + say 'Please enter filename of fontinfo file.' + pull inFn . +end +state inFn 'FONTINFO *' + if RC<>0 then do + say inFn 'FONTINFO file not found.' + exit + end +'FONTTEX' inFn +'REBLOCK' inFn 'TFM'; +'ERASE' inFn 'PRTFM'; +exit |