Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Path: utzoo!linus!philabs!cmcl2!seismo!topaz!ll-xn!nike!ucbcad!ucbvax!DECWRL.DEC.COM!reid From: reid@DECWRL.DEC.COM (Brian Reid) Newsgroups: mod.computers.laser-printers Subject: Re: Special Form with Transcript Message-ID: <8607030535.AA12487@saturn.DEC.COM> Date: Thu, 3-Jul-86 01:35:00 EDT Article-I.D.: saturn.8607030535.AA12487 Posted: Thu Jul 3 01:35:00 1986 Date-Received: Sat, 5-Jul-86 06:54:43 EDT References: , <8607030234.AA0621 Sender: daemon@ucbvax.BERKELEY.EDU Organization: The ARPA Internet Lines: 49 Approved: laser-lovers@washington.arpa Here are two files. If you print file "A", it will print a piece of paper asking that slide material be put into the laserwriter, and then pause until operator response. If you print file "B", it will print a piece of slide material asking that paper be put into the laserwriter, and then pause until operator response. You should be able to generalize. On my system I call these files "toslides.ps" and "topaper.ps"; if I want to print something on slides, i say this: lpr toslides.ps file-to-print topaper.ps The "operator response" consists of taking the sheet of paper that was printed asking for the change, and feed it through the laserwriter's single-sheet feed slot. It will get the words "thank you" added to it, and then the whole operation will be done. File A: (toslides.ps) %! /Helvetica findfont 50 scalefont setfont -90 rotate -808 0 translate 50 400 moveto (Please switch to transparencies) show 50 350 moveto (then feed this sheet through) show 50 300 moveto (the single-sheet feeder) show showpage /Helvetica-Bold findfont 45 scalefont setfont -90 rotate -808 0 translate 150 200 moveto (Thank you!) show statusdict begin /manualfeed true def /manualfeedtimeout 900 def end showpage File B: (topaper.ps) %! /Helvetica findfont 50 scalefont setfont -90 rotate -808 0 translate 50 400 moveto (Please switch to paper) show 50 350 moveto (then feed this sheet through) show 50 300 moveto (the single-sheet feeder) show showpage /Helvetica-Bold findfont 45 scalefont setfont -90 rotate -808 0 translate 150 200 moveto (Thank you!) show statusdict begin /manualfeed true def /manualfeedtimeout 900 def end showpage