home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 87.img / CURRENT4.ZIP / A4TRAY.TXT next >
Text File  |  1989-03-13  |  944b  |  32 lines
  1. %        This file may be sent to an old LaserWriter (ie, with version 23
  2. %        ROMS) to define a new "a4" operator.  The printer may then be used
  3. %        like a later-version LaserWriter or LaserWriter Plus to print on
  4. %        A4 paper. The operator will remain defined until the printer is 
  5. %        turned off.
  6. %
  7. %         $Revision:   1.2  $
  8. %         $Date:   12 May 1988 15:32:30  $
  9.  
  10. serverdict begin 0 exitserver
  11. userdict /a4 known not 
  12.     statusdict /product known {statusdict /product get} {()} ifelse
  13.     (LaserWriter) eq and
  14. {
  15.     statusdict begin userdict begin 
  16.     /a4 
  17.     {
  18.         [300 72 div 0  0 -300 72 div  -72 3448]
  19.             292 3365 
  20.             {    0 setblink statusdict /jobstate (printing) put
  21.                 margins exch 141 add exch 256 add 8 div round cvi frametoroket
  22.                 statusdict /jobstate (busy) put 1 setblink
  23.             } 
  24.             framedevice
  25.         60 45 {dup mul exch dup mul add 1.0 exch sub} setscreen
  26.         {} settransfer
  27.         initgraphics 
  28.         erasepage
  29.     } bind def 
  30.     end end
  31. } if
  32.