! TRAN.TEC ! 0JZKERJALEXEC:NUMASC.TECA0JZXVZK0JZKERJALEXEC:ASCNUM.TECA0JZXUZK 0JZKERIN2TR.TTTA0JXB0JZKGB0J0JIERZJ27IIAAA27I27I0JXDZKMD^A TRANO.TEC - Please Be Patient The Translation Macro Will Take A Little While to Build. 0J0JI!T!ZU2IZU2.U327II(Q2-Q3-1)"L@O/E/'27II0AU027I I.,.+1X827II:G827IZJIC@O/T/!E!27I27I0JZXT 0JHK0JZKERIN1TR.TTTA0JXAZK0JZKGA0J0JIEBZJ27I27I0JXDZKMD0UJ0UH !TOP!1%JP0JZU2Q2-0"E@O/DONE0/'0U1^A TRANO.TEC - Please Be Patient As This May Take A While. File :GA Page No. QH= MT@O/TOP/ !DONE0!QH-3"L1%H@O/TOP/'EG@ZZZZZZ.ZZZ ! TRAN.TEC ! 0JZKERJALEXEC:NUMASC.TECA0JZXVZK 0JZKERJALEXEC:ASCNUM.TECA0JZXUZK 0JZKERIN2TR.TTT A  0JXB 0JZKGB0J 0JIERZJ27IIAAA27I27I0JXDZKMD ^A TRANO.TEC - Please Be Patient The Translation Macro Will Take A Little While to Build.  0J 0JI!T!ZU2 IZU2.U327II(Q2-Q3-1)"L@O/E/'27I I0AU027I I.,.+1X827II:G827I ZJIC@O/T/!E! 27I27I0JZXT 0JHK 0JZKERIN1TR.TTT A  0JXAZK 0JZKGA0J 0JIEBZJ27I27I0JXDZKMD 0UJ 0UH !TOP! 1%J P 0J !PUT BUFFER LENGTH IN BUFFER 2 ! ZU2 Q2-0"E@O/DONE0/' 0U1 ^A TRANO.TEC - Please Be Patient As This May Take A While. File :GA Page No. QH= ! OK TO PROCESS THIS PAGE ! MT @O/TOP/ !DONE0! QH-3"L1%H@O/TOP/' EG@ZZZZZZ.ZZZ ! TRAN.TEC ! ! THIS COMMAND LINE WILL TRANSLATE ONE SET OF PRINTABLE ASCII ! ! CHARACTERS INTO ANOTHER SET OF PRINTABLE ASCII CHARACTERS. ! ! BASED UPON A TRANSLATION TABLE PROVIDED BY THE USER ! ! AN EXAMPLE TRANSLATION TABLE "XLATON.TXT" EXISTS THAT THE USER MAY COPY ! ! AND MODIFY TO SUIT HIS NEEDS. "XLATON.TXT" IF USED AS IS WOULD AFFECT NO ! ! CHANGE TO THE USERS FILE. ! ! THE FIRST CHARACTER IN THE LINE OF THE FILE "XLATON.TXT" REPRESENTS ! ! THE ORIGIONAL ASCII CHARACTER THE SECOND CHARACTER THE TRANSLATION CHARACTER! ! NOTE: IT IS SUGGESTED THAT THE USER NOT TRANSLATE TWO CHARACTERS INTO THE ! ! SAME CHARACTER OR IT WILL BE IMPOSSIBLE TO TRANSLATE THE TEXT BACK INTO ! ! THE ORIGIONAL. NORMALLY IF THE USER DESIRES TO TRANSLATE BACK INTO THE ! ! ORIGIONAL THEY MAY USE THE EXEC "COLUMN.DOC" TO EXCHANGE COLUMNS 1 & 2 OF ! ! THE TRANSLATION TABLE AND RUN "TRAN.DOC" AGAIN ETC. ! ! ! ! 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 "V" ! ! THIS WILL CONVERT ANY TECO NUMBER INTO AN ASCII NUMBER ! ! THE USER PLACES THE TECO NUMBER IN BUFFER "5" BY nU5 OR n%5 ETC. ! ! AND THE RESULTS ARE FOUND IN BUFFER "4" IN ASCII ! 0JZKERJALEXEC:NUMASC.TECA0JZXVZK ! GET THE MACRO FOR DOING THE TECO NUMBER TO ASCII NUMBER CONVERSION ! ! PUT IT IN BUFFER "V" ! ! THE TECO NUMBER IT CONVERTS TO IS IN BUFFER "5" ! ! THE ASCII NUMBER IT CONVERTS FROM IS IN BUFFER "4" ! 0JZKERJALEXEC:ASCNUM.TECA0JZXUZK 0JZKERIN2TR.TTT ! GET THE TRANSLATION FILE NAME THE USER DESIRES ! ! ELIMINATE ANY CARRIAGE RETURNS! A  ! SAVE IT IN "B" BUFFER! 0JXB ! READ THE INPUT XLATION FILE FROM BUFFER "B" ! 0JZKGB0J 0JIERZJ27IIAAA27I27I0JXDZKMD ! CONVERT THE TRANSLATION FILE INTO A UASBLE TRANSLATION MACRO ! ^A TRANO.TEC - Please Be Patient The Translation Macro Will Take A Little While to Build.  0J ! THE USER PLACES THE TECO NUMBER IN BUFFER "5" BY nU5 OR n%5 ETC. ! ! AND THE RESULTS ARE FOUND IN BUFFER "4" IN ASCII ! 0JI!T!ZU2 IZU2.U327II(Q2-Q3-1)"L@O/E/'27I I0AU027I I.,.+1X827II:G827I ZJIC@O/T/!E! 27I27I0JZXT 0JHK 0JZKERIN1TR.TTT ! GET THE FILENAME THE USER DESIRES TO PREPROCESS ! ! ELIMINATE ANY CARRIAGE RETURNS! A  ! SAVE IT IN "A" BUFFER! 0JXAZK ! READ THE INPUT FILE FROM BUFFER "D" ! 0JZKGA0J 0JIEBZJ27I27I0JXDZKMD ! NOW GET A PAGE AT A TIME AND CONVERT THE TABS INTO THE APPROPRIATE ! ! NUMBER OF SPACES TO THE COLUMNS STILL LINE UP ! ! INITALIZE REGS ! 0UJ 0UH !TOP! 1%J P 0J !PUT BUFFER LENGTH IN BUFFER 2 ! ZU2 Q2-0"E@O/DONE0/' 0U1 ^A TRANO.TEC - Please Be Patient As This May Take A While. File :GA Page No. QH= ! OK TO PROCESS THIS PAGE ! MT @O/TOP/ ! ALL DONE CONVERTING FILE THIS COPY ! !DONE0! ! NOT 3 EMPTY BUFFERS YET SO NOT DONE ! QH-3"L1%H@O/TOP/' EG@ZZZZZZ.ZZZ