! NUBASE ! -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.! 0JZKERJALEXEC:ASBNUM.TECA0JZXUZK0JZKERJALEXEC:NUMASB.TECA0JZXVZK10%60JZKERIN2RE1.TTTA0JX4MU(Q5)UG0JZKERIN3RE1.TTTA0JX4MU(Q5)UH0JZKERIN4RE1.TTTA0JX4MU(Q5)UN0JZKERIN5RE1.TTTA0JX4MU(Q5)UM0JZKERIN6RE1.TTTA0JX4MU(Q5)UJ0JZKERIN7RE1.TTTA0JX4MU(Q5)UK0JZKERIN8RE1.TTTA0JX4MU(Q5)U6(QN-QM)"L@O/OK0/'(QN-QM)"E@O/OK0/' !BADD! ^A The User Has Entered A Bad Input ??? "n" = QN="m" = QM= The Following Relationships Must Hold: IN NUMBERING COULMN n THRU COLUMN m ON FILE "A" TO COULMN j THRU COLUMN k ON FILE "B" m > or = n k > or = j EG!OK0! QG"L1UG'QG"E1UG'QG"L10UG'QG"E10UG'QH"L1UH'QH"E1UH'QJ"L1UJ' QJ"E1UJ'QK"L1UK'QK"E1UK'0JHK0JZKERIN1RE1.TTTA0JXAZK0JHK0JZKGA0J0JIEBZJ27I27I0JXDZKMD The User Has Entered The Following Inputs: File :GA Starting Number = QG=Starting Number base = Q6=Numbering interval = QH= Numbering On Columns n Thru m "n" = QN="m" = QM= Starting Line # = QJ=Line Frequency = QK= Please Be Patient As This May Take A While. QJ-1"E@O/TOP/'(QJ-1):A0J0,ZPWZK!TOP! (QK):AZU2Q2"E@O/DONE1/'0UO(QM-Q2)"L@O/OK00/'@O/SLLL/ !OK00! (QN-1)C0XD0K(QM-QN+1)C0XB0KZXWZK(QG)U5MVG40J I ZJ(QN-QM-1)CZXF0JZKQH%GGDGFGWZV0J0,ZPWZK@O/TOP/ !DONE1! QO-3"L1%O@O/TOP/'EG@ZZZZZZ.ZZZ!SLLL!  1234567890 2345678901 3456789012 4567890123 5678901234 6789012345 7890123456 "n" = QN="m" = QM="j" = QJ="k" = QK=(Q2-2)U2 This Line Length In Characters = Q2= The Current Line Is Too Short For the Specified Numbering 0JZTEG ! NUBASE ! ! NUBASE ! ! THIS COMMAND LINE WILL ALLOW THE USER TO NUMBER ! ! THE LINES OF A FILE IN ANY BASE. THE USER SPECIFIES: ! ! .THE STARTING NUMBER ! ! .THE BASE OF THE STARTING NUMBER ! ! .THE NUMBER INTERVAL ! ! .THE COLUMN IN WHICH TO BEGIN THE NUMBERING "n" ! ! .THE COLUMN IN WHICH TO END THE NUMBERING "m" ! ! .THE LINE NUMBER WHICH TO BEGIN THE NUMBERING ON ! ! .THE LINE FREQUENCY IN WHICH TO NUMBER IE: ! ! 1 MEANS EVERY LINE ! ! 2 MEANS EVERY OTHER LINE ETC. ! ! ! ! NOTE: IF INSUFFICIENT COLUMNS ARE SPECIFIED TO HOLD ! ! ALL THE NUMBERS THAT ARE GENERATED THE EXEC ! ! WILL TRUNCATE THE MOST SIGNIFICANT PORTION ! ! OF THE GENERATED NUMBER AND PLACE THE PORTION ! ! THAT IS LEFT OVER IN THE COLUMN(S) SPECIFIED. ! ! ! ! NOTE: IT IS SUGESTED THAT THE USER FIRST RUN "FIXIT" ! ! AND/OR "INSERT" FIRST BECAUSE THIS EXEC ! ! OVERLAYS THE COLUMNS SPECIFIED ABOVE WITH THE ! ! NUMBERING SYSTEM ! ! ! ! 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 ANY BASE 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:ASBNUM.TECA0JZXUZK ! GET THE MACRO FOR DOING THE TECO NUMBER ANY BASE 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:NUMASB.TECA0JZXVZK ! FOR NOW DEFAULT THE BASE TO DECIMAL ! 10%6 0JZKERIN2RE1.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 0JZKERIN3RE1.TTT! GET THE NUMBERING INTERVAL THE USER DESIRES TO USE ! ! ELIMINATE ANY CARRIAGE RETURNS! A ! CONVERT THE NUMBER FROM ASCII TO THE TECO EQIVALENT ! 0JX4MU! LOAD BUFFER "H" WITH THE VALUE OF THE CHARACTER ! (Q5)UH 0JZKERIN4RE1.TTT! GET "n" THE USER DESIRES TO USE ! ! ELIMINATE ANY CARRIAGE RETURNS! A ! CONVERT THE NUMBER FROM ASCII TO THE TECO EQIVALENT ! 0JX4MU! LOAD BUFFER "N" WITH THE VALUE OF THE CHARACTER ! (Q5)UN 0JZKERIN5RE1.TTT! GET "m" THE USER DESIRES TO USE ! ! ELIMINATE ANY CARRIAGE RETURNS! A ! CONVERT THE NUMBER FROM ASCII TO THE TECO EQIVALENT ! 0JX4MU! LOAD BUFFER "M" WITH THE VALUE OF THE CHARACTER ! (Q5)UM 0JZKERIN6RE1.TTT! GET THE STARTING LINE NUMBER THE ! ! USER DESIRES TO USE ! ! ELIMINATE ANY CARRIAGE RETURNS! A ! CONVERT THE NUMBER FROM ASCII TO THE TECO EQIVALENT ! 0JX4MU! LOAD BUFFER "J" WITH THE VALUE OF THE CHARACTER ! (Q5)UJ 0JZKERIN7RE1.TTT! GET LINE FREQUENCY THE USER DESIRES TO USE ! ! ELIMINATE ANY CARRIAGE RETURNS! A ! CONVERT THE NUMBER FROM ASCII TO THE TECO EQIVALENT ! 0JX4MU! LOAD BUFFER "K" WITH THE VALUE OF THE CHARACTER ! (Q5)UK 0JZKERIN8RE1.TTT! GET THE BASE OF 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 "6" WITH THE VALUE OF THE CHARACTER ! (Q5)U6 ! PERFORM A TEST SO THE FOLLOWING COMDITIONS ARE MET ! ! NUMBER COULMN n THRU COLUMN m TO COLUMN p ON ALL LINES ! ! m > or = n ! (QN-QM)"L@O/OK0/' (QN-QM)"E@O/OK0/' ! HERE IF ITS BAD ! !BADD! ^A The User Has Entered A Bad Input ??? "n" = QN="m" = QM= The Following Relationships Must Hold: IN NUMBERING COULMN n THRU COLUMN m ON FILE "A" TO COULMN j THRU COLUMN k ON FILE "B" m > or = n k > or = j EG! JUST KILL THE WHOLE MACRO HERE FOR NOW ! !OK0! ! DEFAULT THE STARTING NUMBER IF ITS NEGATIVE OR = ZERO TO 1 ! QG"L1UG' QG"E1UG' ! DEFAULT THE STARTING NUMBER BASE IF ITS NEGATIVE OR = ZERO TO 10 ! QG"L10UG' QG"E10UG' ! DEFAULT THE NUMBERING INTERVAL IF ITS NEGATIVE OR = ZERO TO 1 ! QH"L1UH' QH"E1UH' ! DEFAULT THE STARTING LINE NUMBER IF ITS NEGATIVE OR = ZERO TO 1 ! QJ"L1UJ' QJ"E1UJ' ! DEFAULT THE LINE FREQUENCY IF ITS NEGATIVE OR = ZERO TO 1 ! QK"L1UK' QK"E1UK' 0JHK 0JZKERIN1RE1.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=Starting Number base = Q6=Numbering interval = QH= Numbering On Columns n Thru m "n" = QN="m" = QM= Starting Line # = QJ=Line Frequency = QK= Please Be Patient As This May Take A While.  ! IF STARTING AT THE TOP GO RIGHT TO TOP ! QJ-1"E@O/TOP/' ! GET A (STARTING LINE'S - 1) WORTH OF LINES ! (QJ-1):A! WRITE OUT THIS PAGES WORTH & GET MORE ! 0J0,ZPWZK !TOP! ! INITALIZE REGS ! ! GET A LINE FREQUENCY'S WORTH OF LINES ! (QK):A !PUT BUFFER LENGTH IN BUFFER 2 ! ZU2 Q2"E@O/DONE1/' 0UO ! FIRST A TEST ! (QM-Q2)"L@O/OK00/'@O/SLLL/ !OK00! ! OPERATE ONLY ON THE FIRST LINE ! ! SAVE FRONT OF LINE IN "D" ! (QN-1)C0XD0K ! SAVE N-> PART IN BUFFER "B" ! (QM-QN+1)C0XB0K ! SAVE THE REST OF THE BUFFER IN "W" ! ZXW ZK ! NOW GET THE LAST CALCULATED NUMBER ! ! CONVERT IT TO ASCII WITH THE PROPER BASE! (QG)U5MV ! CONVERT THE FORMATED NUMBER ! G40J ! FORMAT THE CONVERTED ASCII NUMBER WITH THE PROPER BASE ! I ZJ ! GET m-n ' s WORTH OF THE NUMBER ! (QN-QM-1)C! SAVE IT AWAY IN BUFFER "F" ! ZXF0JZK ! INCREMENT THE NUMBER BUFFER BY THE NUMBERING INTERVAL ! QH%G ! NOW GET ALL THE PIECES & PUT HUMPTY DUMPTY BACK TOGETHER ! GDGFGW ! 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!SLLL!  1234567890 2345678901 3456789012 4567890123 5678901234 6789012345 7890123456 "n" = QN="m" = QM="j" = QJ="k" = QK=(Q2-2)U2 This Line Length In Characters = Q2= The Current Line Is Too Short For the Specified Numbering 0JZT ! ORIGIONAL NUBASE ! 0JZKERJALEXEC:ASBNUM.TECA0JZXUZK0JZKERJALEXEC:NUMASB.TECA0JZXVZK10%60JZKERIN2.A 0JX4MU(Q5)UG0JZKERIN3.A 0JX4MU(Q5)UH0JZKERIN4.A 0JX4MU(Q5)UN0JZKERIN5.A 0JX4MU(Q5)UM0JZKERIN6.A 0JX4MU(Q5)UJ0JZKERIN7.A 0JX4MU(Q5)UK0JZKERIN8.A 0JX4MU(Q5)U6(QN-QM)"L@O/OK0/' (QN-QM)"E@O/OK0/' !BADD! ^A The User Has Entered A Bad Input ??? "n" = QN="m" = QM= The Following Relationships Must Hold: IN NUMBERING COULMN n THRU COLUMN m ON FILE "A" TO COULMN j THRU COLUMN k ON FILE "B" m > or = n k > or = j !OK0! QG"L1UG' QG"E1UG' QG"L10UG' QG"E10UG' QH"L1UH' QH"E1UH' QJ"L1UJ' QJ"E1UJ' QK"L1UK' QK"E1UK' 0JHK0JZKERIN1.A 0JXAZK0JHK0JZKGA0J 0JIEBZJ27I27I0JXDZKMD The User Has Entered The Following Inputs: File :GA Starting Number = QG=Starting Number base = Q6=Numbering interval = QH= Numbering On Columns n Thru m "n" = QN="m" = QM= Starting Line # = QJ=Line Frequency = QK= Please Be Patient As This May Take A While.  QJ-1"E@O/TOP/' (QJ-1):A0J0,ZPWZK!TOP! (QK):AZU2 Q2"E@O/DONE1/' 0UO (QM-Q2)"L@O/OK00/'@O/SLLL/ !OK00! (QN-1)C0XD0K (QM-QN+1)C0XB0K ZXW ZK (QG)U5MV G40J I ZJ (QN-QM-1)CZXF0JZK QH%GGDGFGW ZV 0J0,ZPWZK@O/TOP/ !DONE1! QO-3"L1%O@O/TOP/' EG@ZZZZZZ.ZZZ!SLLL!  1234567890 2345678901 3456789012 4567890123 5678901234 6789012345 7890123456 "n" = QN="m" = QM="j" = QJ="k" = QK=(Q2-2)U2 This Line Length In Characters = Q2= The Current Line Is Too Short For the Specified Numbering 0JZTEG