TIFILES Ç┤P ╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S** BATCH PROGRAM FOR* PRINTING MULTIPLE PAGES* WITH PAGE PRO 99** BY ED JOHNSON
* 12/10/89*&* PLEASE DISTRIBUTE FREELY TO USERS OF* PAGE PRO 99 AND BATCH-IT.*(* NOTE THAT THIS BATCH PROGRAM IS SET UP#* TO PRINT 16 PAGES, BUT THE NUMBER )* COULD EASILY BE INCREASED OR DECREASED.*DEFINE PROGRAM-PATH,30+DEFINE PAGE1,25,"WDS1.TIPS.PAGES1.C1AZ-PG1"+DEFINE PAGE2,25,"WDS1.TIPS.PAGES1.C1AZ-PG2"+DEFINE PAGE3,25,"WDS1.TIPS.PAGES1.C1AZ-PG3"+DEFINE PAGE4,25,"WDS1.TIPS.PAGES1.C1AZ-PG4" +DEFINE PAGE5,25,"WDS1.TIPS.PAGES1.C2AZ-PG1"+DEFINE PAGE6,25,"WDS1.TIPS.PAGES1.C2AZ-PG2"+DEFINE PAGE7,25,"WDS1.TIPS.PAGES1.C2AZ-PG3"+DEFINE PAGE8,25,"WDS1.TIPS.PAGES1.C2AZ-PG4"+DEFINE PAGE9,25,"WDS1.TIPS.PAGES1.C3AZ-PG1" .TIPS.PAGES1.C1AZ-PG4" ,DEFINE PAGE10,25,"WDS1.TIPS.PAGES1.C3AZ-PG2",DEFINE PAGE11,25,"WDS1.TIPS.PAGES1.C3AZ-PG3",DEFINE PAGE12,25,"WDS1.TIPS.PAGES1.C3AZ-PG4",DEFINE PAGE13,25,"WDS1.TIPS.PAGES1.C4AZ-PG1",DEFINE PAGE14,25,"WDS1.TIPS.PAGES1.C4AZ-PG2" .PAGES1.C1AZ-PG4" ,DEFINE PAGE15,25,"WDS1.TIPS.PAGES1.C4AZ-PG3",DEFINE PAGE16,25,"WDS1.TIPS.PAGES1.C4AZ-PG4"*** PAGE PRO 99 USES PASCAL KEYSCAN (MODE 4)*+* THESE ARE SOME KEY VALUES WE'LL BE USING:** CTRL-O 15* CTRL-F 6* CTRL-P 16* FCTN-3 135 * ENTER 13** DENSITY SELECT* DEFINE DENSITY,1,"1"** LOAD AND RUN PAGE PRO 99*LOAD "DSK5.PP"ONERROR ABORTRUN*RUN-PAGE_PRO KEYMODE 4** PRESS ANY KEY TO BEGIN* AND FORCE PICS OFF* CHAR 13 CHAR 15* 6* FCTN-3 135 %* SET UP A LOOP TO CHECK FOR A CTRL-B*5* IF CTRL-B IS PRESSED BY THE USER, EXECUTE THE BATCH* MAIN-LOOP ONKEY 190,DO-BATCH GOTO MAIN-LOOP *( * SUBROUTINE TO SET THE LOAD PATH *$ * SET-LOAD ENTRY LABEL N-3 135 * CHAR 6 CTRL-F" * KEY "1" LOAD PAGE, * CHAR 135 ERASE INPUT DEFAULT( * RETURN EXIT SUBROUTINE * SET-LOAD CHAR 6 KEY "1" CHAR 135 LABEL N-3 135 RETURN * * SUBROUTINE TO PRINT *$ * PRINT-IT ENTRY LABEL * CHAR 16 CTRL-P0 * CHAR 13 ENTER (ACCEPT "PIO.CR")' * KEY DENSITY DENSITY SELECT CHAR 135 LABEL N-3 135 % * KEY "Y" TURN PICS ON- * CHAR 13 PRESS ENTER TO PRINT+ * CHAR 15 TURN PICS BACK OFF( * RETURN EXIT SUBROUTINE * PRINT-IT CHAR 16 CHAR 13 135 LABEL N-3 135 KEY DENSITY KEY "Y" CHAR 13 CHAR 15 RETURN*#* MAIN BATCH AREA - PRINT THE PAGES*=* THE NEXT 3 LINES HAVE TO BE REPEATED FOR EACH PAGE TO PRINT*DO-BATCH GOSUB SET-LOAD ENTER PAGE1 N-3 135 GOSUB PRINT-IT*0* JUST CHANGE THE PAGE NUMBER IN EACH REPETITION* GOSUB SET-LOAD ENTER PAGE2 GOSUB PRINT-IT GOSUB SET-LOAD ENTER PAGE3 GOSUB PRINT-IT GOSUB SET-LOAD ENTER PAGE4 GOSUB PRINT-IT GOSUB SET-LOAD ENTER PAGE5 N-3 135 GOSUB PRINT-IT GOSUB SET-LOAD ENTER PAGE6 GOSUB PRINT-IT GOSUB SET-LOAD ENTER PAGE7 GOSUB PRINT-IT GOSUB SET-LOAD ENTER PAGE8 GOSUB PRINT-IT GOSUB SET-LOAD ENTER PAGE9 GOSUB PRINT-IT GOSUB SET-LOAD ENTER PAGE10 GE5 N-3 135 GOSUB PRINT-IT GOSUB SET-LOAD ENTER PAGE11 GOSUB PRINT-IT GOSUB SET-LOAD ENTER PAGE12 GOSUB PRINT-IT GOSUB SET-LOAD ENTER PAGE13 GOSUB PRINT-IT GOSUB SET-LOAD ENTER PAGE14 GOSUB PRINT-IT GOSUB SET-LOAD ENTER PAGE15 N-3 135 GOSUB PRINT-IT GOSUB SET-LOAD ENTER PAGE16 GOSUB PRINT-IT*** WHEW! 16 PAGES PRINTED. NO FUSS, NO MUSS*5* GO BACK TO THE MAIN BATCH LOOP (OR END IF YOU WISH)*GOTO MAIN-LOOP*!* ERROR TRAPPING FOR PROGRAM LOAD*ABORTCLEAR 0,0,768 15 N-3 135 %PRINT 3,1,"Error Loading Page Pro 99")PRINT 5,1,"Enter Page Pro PATH.FILENAME:"INPUT 7,1,PROGRAM-PATHLOAD PROGRAM-PATHONERROR ABORTRUNGOTO RUN-PAGE_PRO** END OF BATCH*END OOP*!* ERROR TRAPPING FOR PROGRAM LOAD*ABORTCLEAR 0,0,768 15 N-3 135