home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume15 / tpscript / part01 / pscript / a4.ps next >
Encoding:
Text File  |  1988-05-25  |  417 b   |  16 lines
  1. /a4
  2.     [
  3.         [ 300 72 div 0 0 -300 72 div -72 3436 ]
  4.         292 3365
  5.         {statusdict /jobstate (printing) put 0 setblink
  6.         margins exch 142 add exch 256 add 8 div round cvi frametoroket
  7.         statusdict /jobstate (busy) put
  8.         1 setblink }
  9.         /framedevice load
  10.         60 45 {dup mul exch dup mul add 1.0 exch sub } /setscreen load
  11.         {} /settransfer load
  12.         /initgraphics load
  13.         /erasepage load
  14.     ] cvx
  15. statusdict begin bind end readonly def
  16.