home *** CD-ROM | disk | FTP | other *** search
- % File: STARTUP.PS - UltraScript startup file, as of Mar 19, 1990 (v1.1)
- % To be used for ALL Apple LaserWriter™ drivers!
- % (c) 1989 by Hubert Nooijen
- %
- % Note: PostScript files may not have linefeeds!
- % And for use with Macintosh PS files only!
- %
- % Performs negative AND positive range checks for those programs which go
- % beyond the limits, like MacWrite II, FreeHand 2.0 and ReadySetGo 4.5,
- % while retaining compatibility with MonoType PS fonts™
-
- % Intercepts printer-specific PostScript commands
- statusdict begin
- /sendpcmd {pop} def
- /tonerlight {pop} def
- /setrealdevice {exec 31 sendpcmd 4 eq tonerlight} def
- /execjob {31 sendpcmd 4 eq tonerlight} def
- /setsccinteractive {pop pop pop} def
- end
-
- % UltraScript thinks it's a LaserWriter
- statusdict /product (LaserWriter) put
- statusdict /version 47.0 put
-
- % Remedies a problem with some applications which go beyond UltraScript's range
- systemdict begin
- /setcachedevice {4 {pop} repeat setcharwidth} bind def
- /usmv /moveto load def
- /usrp {pop -1000} def
- /moveto {exch dup -30000 le {usrp}{dup 32000 ge {usrp}if} ifelse exch dup -30000 le {usrp}{dup 32000 ge {usrp}if} ifelse usmv} bind def
- end
-
- (%%[ Macintosh STARTUP v1.1 running... ]%%\n) print flush
-
-