CBNQ    [??? TMENDIT SECT DIAG FGN 552 DOC  
 CC8B    #MAC  TMENDIT                      [M.C.D. MANN 
 CCN2    [   
 CD7L    [   
 CDM=    [     ************* 
 CF6W    [     *  TMENDIT  * 
 CFLG    [     ************* 
 CG66    [   
 CGKQ    [   
 CH5B    #DEF  31?=1?                       [REMEMBER THE LISTING LEVEL  
 CHK2    #STR  %A                           [FLAG AN ERROR IF FILE NAME OMITTED  
 CJ4L    #SKI
 CJJ=    (   
 CK3W    !     FILE NAME OMITTED  :  TMENDIT IGNORED     !   
 CKHG    #LIS  31?   
 CL36    #EXI
 CLGQ    )   
 CM2B    #STR  :,%A  
 CMG2    (   
 CM^L    #STR  *,%A  
 CNF=    (   
 CNYW    #LIS  %E+0  
 CPDG          MD    %A,%B,%C,%D,%E,%F,,TAPE 
 CPY6    #LIS  31?   
 CQCQ    #EXI
 CQXB    )   
 CRC2    )   
 CRWL    !     * AND : NOT ALLOWED IN TMENDIT     !  
 CSB=    #LIS  31?   
 CSTW    #NOR