!* Machine: PDP-11/70 System: IAS V3.0 Date: 06-August-80 Residence: [?,?]STRIPPER.TES Version: V1 Language: TECO V34 Usage: PDS> MUNG [?,?]STRIPPER.TES,=/ST:x/EN:y Effect: Each record in is stripped of all characters except those between (and including) x and y. The flag /ST: indicates start position, /EN: indicates the end position. The first byte of each record is position 1. Note: This macro requires that all records in be at least y characters long. Also, no test is made to ensure that x LE y. Text Reqisters: Qf = command to open files and load start and end positions Numeric Registers: Qx = start position of new record Qy = end position of new record *! !* 1. open files, load Qx and Qy with start and end *! j iew !* outfile open command *! @fs/=/ er/ @fs\/\ \ !* infile open command *! .ua sST: qa,.d !* remove ST: *! @fs\/en:\ux \ !* Qx load command *! zj @i/uy / !* Qy load command *! hxf hk mf !* load Qf with this string, then execute it *! <.-z "E ^N "N oend ' P j ' .,.+Qx-1d Qy-Qx+1c k 13i 10i > !end! ex