*DECK TXTAFET 
USETEXT COMCBEG 
USETEXT COMADEF 
PROC COMAFET; 
CONTROL STEXT;
BEGIN 
*CALL COMAFET 
END 
TERM
