[comp.sys.apple] AppleWriter MultiCopy Printing

BRESNAHA@BCVAX3.BITNET.UUCP (02/22/87)

To AppleWriter //e users:
 
        Someone asked about printing multiple copies of a given
AppleWriter file.  I *only* use AppleWriter (Veto Apple'slow'Works)
and know how much of a pain it is to type [p] NP over and over again.
The solution:  a quick 28 line WPL program.
 
 
MULTI           PND
                PPR [L]
                PPR MULTIPRINT by Brez
                PPR
                PIN Print program currently in memory? (y/n) =$a
                PCS /$a/y/
                PGO NUMBER
FILE            PIN Filename to print =$a
                PCS/$a//
                PQT
                PCS /$a/?/
                PGO CATALOG
                NY
                L$a
NUMBER          PIN Number of copies  =$b
                PSX 1
LOOP            PPR Printing copy # (X)
                PNP
                PAS(X)=$a
                PSX +1
                PCS /$a/$b/
                PQT
                PGO LOOP
CATALOG         Enter slot, Drive (Example S6,D1):=$a
                OA$a
                P
                P
                PGO FILE
 
        There it is!  Just capture it as text on your favorite telecom
package, or type it in!  Then, just DO it!!  When it asks for filename,
(if the file isn't already in memory) you may hit the ? to get a catalog
after you enter the slot and drive.  The rest is automatic!
 
--Scott Bresnahan
  (BRESNAHA @ BCVAX3  via Bitnet)