C9JN ...[??? FORBID SECT CENT FGN 21 DOC
 C9SG    #MAC  FORBID   [FORBID COMMAND %A IN CONTEXTS %B,%C,%D,%E,%F,%G,%H,%I,%J
 C=#6    #MEN VERBCLAS   
 C=RQ     4H%A   
 C??B    #DEF 0?=0   
 C?R2    #DEF 20?=34?+0?+0]&#37777777       [CONVERT %A TO BINARY
 C#=L     8HVERBCLAS 
 C#Q=    #SKI  20?/#1000000<14-14
 C*9W    #DEF  0?=20?/#1000000+34?+K90VERBCLAS-1]
 C*PG    #SKI  20?/#1000000>13-13
 CB96    (   
 CBNQ    #END
 CC8B    #MEND VCLASTWO  
 CCN2    #DEF  0?=20?/#1000000+34?+K90VCLASTWO-14]   
 CD7L    )   
 CDM= ... XFBDSKPA %A,FORBID 
 CF6W    #SKI 21?
 CFLG    (   
 CG66    #STR #,%B   
 CGKQ    #DEF 20?=CTX%B+CTX%C+CTX%D+CTX%E+CTX%F+CTX%G+CTX%H+CTX%I+CTX%J+CTX%K
 CH5B    #STR #,%B   
 CHK2    #STR
 CJ4L    #DEF 20?=%B 
 CJJ=    #DEF 0?=0?+4
 CK3W    #DEF MFORBID=34?+0?+0]^20?  
 CKHG     +MFORBID   
 CL36    #FRE MFORBID
 CLGQ    )   
 CM2B    #END
 CMG2    #NOR