!* Machine: PDP-11/70 System: IAS V3.0 Author: John Guidi Date: 20-July-79 Residence: [?,?]TABREP.TES Version: V1 Language: TECO V34 Useage: MUNG [?,?]TABREP,filespec Abstract: All tabs in the file specified will be replaced with spaces. Tab stops are assumed to be at every 8 spaces. *!  ******************************************************** This macro will read the file and transform all characters into the appropriate number of chars. Note that tab stops are assumed to be at every 8 spaces. ********************************************************  ^UFEB !* set F up with EB command *! H:XF !* append filespec to F *! @:^UF/ / !* append to F *! HK !* clear text buffer *! MF !* execute F. Open input and output files *! Y !* pull first page into text buffer *! < :N  "EOEXIT ' !* colon-modified search for *! !* if no , then goto EXIT *! .UB !* put current pointer in B *! 0L .UA !* put pointer to begining of line in A *! QB-QAUC !* find out how many characters up to TAB *! !* and put this in C *! !* subtract 8 until QC is less than 9 *! !SUBTRACT! QC-9 "L OREPLACE | -8%C OSUBTRACT ' !REPLACE! 9-QCUD !* put number of spaces into D *! S  -D QD > !EXIT! EX !* close files *!