! HEADER ! 0JZKERJALEXEC:ASCNUM.TECA0JZXUZK0JZKERJALEXEC:NUMASC.TECA0JZXVZK0JZKER IN2HE.TTTA0JX4MU(Q5)UFQF"L50UF'QF"E50UF'0JHK0JZK ER IN4HE.TTTA0JX4MU(Q5)U5Q5"L1U5'0JHK0JZKER IN1HE.TTTA0JXAZK0JHK0JZKER IN3HE.TTTA0JXBZK0JHK0JZKGB0J0JIERZJ27I27I0JXEZKMEA0JZXHZV-1U00JZK0JZKGA0J0JIEBZJ27I27I0JXDZKMD The User Has Entered The Following Inputs: File :GA Starting Number = QG= HEADER.TEC - Please Be Patient As This May Take A While. !TOP!(QF):AZU2Q2"E@O/DONE1/'0UO0J12IGHQ0"L@O/GOON/' MV0JS~-DG41%5!GOON!ZV0J0,ZPW ZK@O/TOP/!DONE1!QO-3"L1%O@O/TOP/'EG@ZZZZZZ.ZZZ ! HEADER ! ! THIS COMMAND LINE WILL ALLOW THE USER TO INSERT A HEADER WITH ! ! FORM FEED EVERY "n" ! ! LINES OF A FILE. THE USER SPECIFIES: 1 ! .THE NUMBER "n" OF LINES AFTER WHICH TO PLACE A FORM ! ! FEED ! ! .THE FILE NAME OF THE SOURCE & HEADER ! ! ! ! IT ALSO PUTS A FORM FEED AT THE FROMT OF THE FILE ! ! ! ! THE ORIGIONAL FILE('S) WILL BE RENAMED "FILENAME.BAK" ! ! THE RESULTING FILE('S) WILL BE NAMED "FILENAME.FILETYPE" ! ! ! -1EU !SET FLAG TO ACCEPT LOWER CASE! 22ET !SET TERM. TO SCOPE, SET LOWER CASE, CANCEL CONTROL O ON TYPEOUT! 3EH !SET HELP LEVEL FLAG TO MOST HELP! -1ES !SET SEARCH VERIFICATION FLAG TO TYPE LINE WHEN MATCH FOUND.! ! 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 ! GET THE MACRO FOR DOING THE TECO NUMBER TO ASCII NUMBER CONVERSION ! ! PUT IT IN BUFFER "V" ! ! THE NUMBER IT CONVERTS TO IS IN BUFFER "4" ! ! THE NUMBER IT CONVERTS FROM IS IN BUFFER "5" ! 0JZKERJALEXEC:NUMASC.TECA0JZXVZK 0JZKER IN2HE.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 "F" WITH THE VALUE OF THE CHARACTER ! (Q5)UF ! DEFAULT THE STARTING NUMBER IF ITS NEGATIVE OR = ZERO TO 50 ! QF"L50UF' QF"E50UF' 0JHK0JZKER IN4HE.TTT! GET THE STARTING NUMBER THE USER DESIRES TO USE TO NUMBER THE PAGES WITH ! ! ELIMINATE ANY CARRIAGE RETURNS! A ! CONVERT THE NUMBER FROM ASCII TO THE TECO EQIVALENT ! 0JX4MU! LOAD BUFFER "5" WITH THE VALUE OF THE CHARACTER ! (Q5)U5 ! DEFAULT THE STARTING NUMBER IF ITS NEGATIVE TO 1 ! Q5"L1U5' 0JHK 0JZKER IN1HE.TTT! GET THE FILENAME "A" THE USER DESIRES TO PREPROCESS ! ! ELIMINATE ANY CARRIAGE RETURNS! A ! SAVE IT IN "A" BUFFER! 0JXAZK 0JHK 0JZKER IN3HE.TTT! GET THE FILENAME "B" THE USER DESIRES TO USE AS A HEADER ! ! ELIMINATE ANY CARRIAGE RETURNS! A ! SAVE IT IN "B" BUFFER! 0JXBZK 0JHK ! NOW SET UP ALL THE INPUT AND OUTPUT FILES ! ! READ THE HEADER FILE "A" FROM BUFFER "E" ! 0JZKGB0J 0JIERZJ27I27I0JXEZKME ! GET THE HEADER & SAVE IT IN BUFFER "H" ! A0JZXH ! SHOW THE USER THE HEADER FILE ! ZV ! SEE IF THE USER DESIRES TO NUMBER THE PAGES ! ! DEFAULT TO NO NUMBERING OF THE PAGES ! -1U0 0JZK ! READ THE INPUT FILE "A" FROM BUFFER "D" ! 0JZKGA0J 0JIEBZJ27I27I0JXDZKMD The User Has Entered The Following Inputs: File :GA Starting Number = QG= HEADER.TEC - Please Be Patient As This May Take A While.  !TOP! ! INITALIZE REGS ! ! GET "n" WORTH OF LINES ! (QF):A !PUT BUFFER LENGTH IN BUFFER 2 ! ZU2 Q2"E@O/DONE1/' 0UO 0J ! INSERT THE FORM FEED ! 12I ! GET THE HEADER ! GH ! IF NO NUMBER JUST PRESS ON ! Q0"L@O/GOON/' ! NUMBER THE PAGES ! ! NOW GET THE LAST CALCULATED NUMBER ! ! CONVERT IT TO ASCII ! MV ! FIND WHERE TO PUT IT ! 0JS~-DG4 ! INCREMENT THE NUMBER BUFFER BY THE NUMBERING INTERVAL "1" ! 1%5 ! SHOW THE USER WHAT HE GOT ! !GOON! ! 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