7CJN ...[??? COMERR SECT CENT FGN 21 DOC
 7CSG    #MAC  COMERR
 7D#6    #STR  %A
 7DRQ    (   
 7F?B          CALL  1  MCOMERRQRT   
 7FR2                   +%A  
 7G=L    #STR  %B
 7GQ=                   +%B  
 7H9W    #STR  %B
 7HPG    #SKI
 7J96                   -1   
 7JNQ    )   
 7K8B    #STR  %A
 7KN2    #SKI
 7L7L          GEOERR   1,NOMESSIN   
 7LM=    #OPT  MCOMERRQRT=0? 
 7M6W    #SKI  MCOMERRQRT$0?<1$1 
 7MLG          COMERRX  0(1),1(1)
 7N66    #NOR