home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 11 / 11.iso / n / n007 / 15.ddi / HIDE.PS < prev    next >
Encoding:
Text File  |  1991-11-27  |  870 b   |  32 lines
  1. %!PS-Adobe-
  2. %
  3. %  HIDE.PS                        11/27/91
  4. %
  5. %    change the LaserWriter's persistent NBP type to "LaserShared"
  6. %    depends on *undocumented* feature of Apple LaserWriters
  7. %    Novell is NOT responsible for results if used on other printers
  8. %    reverse by using ATPSSHOW command
  9. %
  10. %    If used on LaserWriter compatible and it fails, reverse results
  11. %    with the printer NAMER.
  12. %
  13. serverdict begin 0 exitserver
  14. /name 64 string def
  15. statusdict begin
  16.     name printername (:LaserShared)
  17.     dup type 2 index type 2 copy ne {
  18.         pop pop
  19.         errordict begin (concatenate) typecheck end
  20.     }{
  21.         /stringtype ne exch /arraytype ne and {
  22.             errordict begin (concatenate) typecheck end
  23.         } if
  24.     } ifelse
  25.     dup length 2 index length add 1 index type
  26.     /arraytype eq{array}{string}ifelse
  27.     dup 0 4 index putinterval
  28.     dup 4 -1 roll length 4 -1 roll putinterval
  29.     setprintername
  30. end
  31. %%EOF
  32.