summaryrefslogtreecommitdiff
path: root/macros/text1/compugraphics_8600/fonttex.exec
diff options
context:
space:
mode:
Diffstat (limited to 'macros/text1/compugraphics_8600/fonttex.exec')
-rw-r--r--macros/text1/compugraphics_8600/fonttex.exec23
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