home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 464b.lha / LQFONTS / PrintFonts.rexx < prev    next >
OS/2 REXX Batch file  |  1990-12-29  |  3KB  |  113 lines
  1. /*************************************************************************/
  2. /* PRINTFONTS.REXX  will bring up a file requestor where you may choose  */
  3. /* one of the EPSON LQ font files.  This script will then download that  */
  4. /* font to the printer and print out a short (6 line) test file for you  */
  5. /* to see how the output will look.  I would suggest you download all of */
  6. /* the printer fonts so that you will have a handy hardcopy reference    */
  7. /* for future use.   12-3-90  Mike Mantino                               */
  8. /*************************************************************************/
  9.  
  10.  
  11. OPTIONS RESULTS
  12.  
  13. cdir = 'ram:'
  14. LF = '0A'X
  15. HEADDATA = '1B 78 01 1B 50 1B 3A'X
  16. NAMETEXT = '[FONT NAME]------>  '
  17. TESTTEXT = 'TESTING LQ-800 downloadable fonts:' LF LF, 
  18.          '! @ # $ % ^ & * ( ) _ + | \ - { } [ ] :  ;  < > ? , . /' LF LF ,
  19.          'ABCDEFGHIJKLMNOPQRSTUVWXYZ' LF LF ,
  20.          'abcdefghijklmnopqrstuvwxyz' LF LF ,
  21.          '1 2 3 4 5 6 7 8 9 0' LF LF LF LF LF
  22.  
  23.  
  24. call PostMsg(5,5,"Be certain that printer dip-switch\number 1-4 is
  25.  set to the OFF position\to create buffer space for the fonts.\Also
  26.  note that it takes about 5 secs.\for the font to be installed.")
  27.  
  28.  
  29. call ASKME
  30. exit 0
  31.  
  32.  
  33. ASKME:
  34.  
  35. REQPATH = getfile(340,15,cdir,,'SELECT A FONT TO TEST')
  36.  
  37. call PostMsg()
  38.  
  39. if REQPATH = "" then exit 0
  40.  
  41. FNTPATH = REQPATH
  42.  
  43. colonpos = lastpos(":",REQPATH)
  44. slashpos = lastpos("/",REQPATH)
  45.  
  46. if left(statef(REQPATH),1) = "F" then
  47.   do /*  This is a file, not just a directory  */
  48.     if slashpos > 0 then
  49.       do /*  At least one subdirectory has been given  */   
  50.         cdir = substr(REQPATH,1,slashpos-1)
  51.         REQPATH = substr(REQPATH,slashpos+1)
  52.       end
  53.       else
  54.     if colonpos > 0 then
  55.       do /*  A main directory has been given  */
  56.         cdir = substr(REQPATH,1,colonpos)
  57.         REQPATH = substr(REQPATH,colonpos+1)
  58.       end
  59.   end
  60. else
  61.   if slashpos > 0 | colonpos > 0 then
  62.   exit 0
  63.  
  64. if REQPATH = "" then exit 0
  65.  
  66. FNTNAME = REQPATH
  67.  
  68. call open(FP,FNTPATH,'Read')
  69. if readch(FP,7) ~== HEADDATA then
  70.     call NOTFONT
  71. call close(FP)
  72.  
  73. address command 'copy' FNTPATH 'par:'
  74. call open(prntr,'par:','Write')
  75. call writech(prntr,NAMETEXT || FNTNAME || LF || LF)
  76. call writech(prntr,TESTTEXT)
  77. call close(prntr)
  78. call TRYAGAIN
  79.  
  80. return 0
  81.  
  82.  
  83.  
  84. NOTFONT:
  85.  
  86. call close(FP)
  87. result = Request(150,110,'NOT AN LQ PRINTER FONT. TRY AGAIN?',,'OKAY','NOPE')
  88. if result = 'OKAY' then call ASKME
  89.      else exit 0
  90.  
  91. return 0
  92.  
  93.  
  94.  
  95. TRYAGAIN:
  96.  
  97. result = Request(150,110,'Test Another Font?',,'OKAY','NOPE')
  98. if result = 'OKAY' then call ASKME
  99.      else exit 0
  100.  
  101. return 0
  102.  
  103.  
  104.  
  105. PRINTIT:
  106.  
  107. address command type FDIR || 'fntname' par:
  108. address command type nametext || fntname par:
  109. address command copy testtext par:
  110.  
  111. return 0
  112.  
  113.