! FORM ! 0JZKERJAL:ASCNUM.TECA0JZXUZK0JZKER I2FO.TTTA0JX4MU(Q5)UGQG"L50UG'QG"E50UG'0JHK0JZKER I1FO.TTTA0JXAZK0JHK0JZKGA0J0JIEBZJ27I27I0JXDZKMD The User Has Entered The Following Inputs: File :GA Number of lines per page = QG= FORM.TEC - Please Be Patient As This May Take A While. !TOP!(QG):AZU2Q2"E@O/DONE1/'0UO12IZV0J0,ZPWZK@O/TOP/!DONE1!QO-3"L1%O@O/TOP/'EG@ZZZZZZ.ZZZ ! FORM ! ! THIS COMMAND LINE WILL ALLOW THE USER TO INSERT A FORM FEED EVERY "n" ! ! LINES OF A FILE. THE USER SPECIFIES: ! ! .THE NUMBER "n" OF LINES AFTER WHICH TO PLACE A FORM ! ! FEED ! ! ! ! THE ORIGIONAL FILE('S) WILL BE RENAMED "FILENAME.BAK" ! ! THE RESULTING FILE('S) WILL BE NAMED "FILENAME.FILETYPE" ! ! ! ! GET THE MACRO FOR DOING THE ASCII NUMBER TO TECO NUMBER CONVERSION ! ! PUT IT IN BUFFER "U" ! ! THE NUMBER IT CONVERTS TO IS IN BUFFER "5" ! ! THE NUMBER IT CONVERTS FROM IS IN BUFFER "4" ! 0JZKERJAL:ASCNUM.TECA0JZXUZK 0JZKER I2FO.TTT! GET THE STARTING NUMBER THE USER DESIRES TO USE ! ! ELIMINATE ANY CARRIAGE RETURNS! A ! CONVERT THE NUMBER FROM ASCII TO THE TECO EQIVALENT ! 0JX4MU! LOAD BUFFER "G" WITH THE VALUE OF THE CHARACTER ! (Q5)UG ! DEFAULT THE STARTING NUMBER IF ITS NEGATIVE OR = ZERO TO 50 ! QG"L50UG' QG"E50UG' 0JHK 0JZKER I1FO.TTT! GET THE FILENAME "A" THE USER DESIRES TO PREPROCESS ! ! ELIMINATE ANY CARRIAGE RETURNS! A ! SAVE IT IN "A" BUFFER! 0JXAZK 0JHK ! NOW SET UP ALL THE INPUT AND OUTPUT FILES ! ! READ THE INPUT FILE "A" FROM BUFFER "D" ! 0JZKGA0J 0JIEBZJ27I27I0JXDZKMD The User Has Entered The Following Inputs: File :GA Number of lines per page = QG= FORM.TEC - Please Be Patient As This May Take A While.  !TOP! ! INITALIZE REGS ! ! GET "n" WORTH OF LINES ! (QG):A !PUT BUFFER LENGTH IN BUFFER 2 ! ZU2 Q2"E@O/DONE1/' 0UO ! INSERT THE FORM FEED ! 12I! SHOW THE USER WHAT HE GOT ! ZV ! WRITE OUT THIS PAGES WORTH & GET MORE ! 0J0,ZPWZK@O/TOP/ ! ALL DONE CONVERTING FILE THIS COPY ! !DONE1! ! NOT 3 EMPTY BUFFERS YET SO NOT DONE ! QO-3"L1%O@O/TOP/' EG@ZZZZZZ.ZZZ