! GOHEAD ! 0JZKERJALEXEC:ASCNUM.TECA0JZXUZK0JZKER IN2GO1.TTTA0JX4MU(Q5)UGQG"L1UG'0JHK0JZKER IN1GO1.TTTA0JXAZK0JHK0JZKGA0J0JIEBZJ27I27I0JXDZKMD The User Has Entered The Following Inputs: File :GA Starting Number = QG= GOHEAD.TEC - Please Be Patient As This May Take A While. !TOP!A0JZU2Q2"E@O/DONE1/'0UO(QG)KZV0J0,ZPWZK@O/TOP/!DONE1!QO-3"L1%O@O/TOP/'EG@ZZZZZZ.ZZZ ! GOHEAD ! ! THIS COMMAND LINE WILL ALLOW THE USER TO FIND A FORM FEED & DELETE IT & ! ! "n" LINES OF A FILE. THE USER SPECIFIES: ! ! .THE NUMBER "n" OF LINES TO DELETE AFTER 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" ! 0JZKERJALEXEC:ASCNUM.TECA0JZXUZK 0JZKER IN2GO1.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 TO 1 ! QG"L1UG' 0JHK 0JZKER IN1GO1.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 Starting Number = QG= GOHEAD.TEC - Please Be Patient As This May Take A While.  !TOP! ! INITALIZE REGS ! ! GET A PAGE ! A0J !PUT BUFFER LENGTH IN BUFFER 2 ! ZU2 Q2"E@O/DONE1/' 0UO ! DELETE "n" NUMBER OF LINES ! (QG)K ! 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