AppleWriter WPL: Multi-Copy Printout Program

Listed below is an AppleWriter WPL Multi-Copy Printout Program.
START   NY
       PND
       PPR
       PPR
       PPR
       PPR               MULTI-COPY  PRINTOUT  PROGRAM
       PPR
       PPR     When you use continuous pin-feed paper, your
       PPR     document must end with ".ff". Be certain
       PPR     the ".ff" is not followed by a RETURN.
       PPR
       PPR
       PPR     When you use single sheet paper, select the
       PPR     Single Page option (SP1) in the  Print/Program
       PPR     Commands menu.
       PPR
       PPR
CHECK   PIN     Are you certain this has been done? =$A
       PCS/$A/y/
       PGO MORE
       PCS/$A/Y/
       PGO MORE
       PCS/$A/n/
       PQT
       PCS/$A/N/
       PQT
       PGO CHECK
MORE    PPR
       PPR     Enter the device or volume location of your
       PPR     document and the file name. (ie ".D2/CONTRACT",
       PIN     or "/AWFILES/CONTRACT"): =$B
       L $B
FOUND   PPR
       PIN     How many copies would you like? =$C
       PSX $C
       PAS (X) =$C
       PAS 0 =$A
       PCS/$C/$A/

       PGO END
       PGO PRINT
PRINT   PPR
       PNP
       PSX -1
       PGO PRINT
END     PPR
       PPR
       PPR
       PPR
       PIN     Would you like another multiple printout? =$A
       PCS/$A/Y/
       PGO START
       PCS/$A/y/
       PGO START
       PCS/$A/n/
       PQT
       PCS/$A/N/
       PQT
       PGO END

Published Date: Feb 18, 2012