+C* EXPTAB  MACRO  FIELD . expand tabs for ascii files
     C*-------------------------------------------------------------------
     C* Parm 1 is an 80 character ascii record ending with CR,LF
     C*-------------------------------------------------------------------
    +C* DO    80 TIMES USING XXX#CT 2.0
    +C*       MOVEL &1 TO XXX#C1 1
    +C*       IF    XXX#C1 EQ X'09
    +C*             XXX#CT ADD 8 XXX#WK 2.0
    +C*             MOVE   XXX#WK TO XXX#C1
    +C*             BITOF  '567'     XXX#C1
    +C*             MOVE   XXX#C1 TO XXX#WK
    +C*             SUB    XXX#CT    XXX#WK
    +C*             MLLZO  0      TO XXX#WK
    +C*             DO    XXX#WK TIMES
    +C*                   ADD   1  TO XXX#CT
    +C*                   MOVE  &1 TO XXX#79 79
    +C*                   MOVEL XXX#79 TO &1
    +C*                   MOVE  ' '    TO &1
    +C*             ENDDO
    +C*       ELSE  MOVE  &1 TO XXX#79 79
    +C*             MOVEL XXX#79 TO &1
    +C*             MOVE  XXX#C1 TO &1
    +C*       ENDIF
    +C* ENDDO
    +C*...