home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / ATMFINST.CMD < prev    next >
OS/2 REXX Batch file  |  1992-01-28  |  408b  |  11 lines
  1. /* ATM Font Installer for 6.167 */
  2. /* Chuck Badrow                       */
  3. say "Enter ATM font name to be installed: "
  4. fontname=linein()
  5. "COPY A:"fontname".AFM C:\OS2APPL\ATMFONTS"
  6. "COPY A:"fontname".PFB C:\OS2APPL\ATMFONTS"
  7. call RxFuncAdd 'SysLoadFuncs' , 'RexxUtil' , 'SysLoadFuncs'
  8. call SysLoadFuncs
  9. call SysIni "USER" , "PM_Fonts" , fontname".AFM" , "\OS2APPL\ATMFONTS\"fontname".AFM "
  10. "EXIT"
  11.