/* This ARexx program was automatically created by NUWEB from
   the master source file `callmf.w'.  Do not edit by hand! */
Address COMMAND
MAKETEXFONT = "MakeTeXFont.rexx"

Parse Arg FONTNAME DPI HBASE MODE .

If "?" = FONTNAME Then
  Do
    Say "rx MakeTeXPK FONTNAME DPI HBASE [MODE]"
    Exit 5
  End
  

If "" = MODE Then
  Select
    When 100 = HBASE Then MODE = "amiga"
    When 101 = HBASE Then MODE = "nullmode"
    When 120 = HBASE Then MODE = "epsdraft"
    When 180 = HBASE Then MODE = "nec"
    When 240 = HBASE Then MODE = "epson"
    When 300 = HBASE Then MODE = "deskjet"
    When 360 = HBASE Then MODE = "nechi"
    When 600 = HBASE Then MODE = "ljfour"
    Otherwise Do
                Say "rx MakeTeXPK FONTNAME DPI HBASE [MODE]"
                Exit 5
              End
              
  End
  

If "TFM" = Upper(Right(FONTNAME,3)) Then
  FONTNAME = DelStr(FONTNAME,LastPos(".",FONTNAME))

VBASE = HBASE
DRIVER = MODE
DUMMY = "dummy"

"rx" MAKETEXFONT FONTNAME DPI HBASE VBASE DRIVER DUMMY "/"MODE"/"

Exit 0