*DECK AIPDEF
PROC AIPDEF;
BEGIN 
CONTROL STEXT;
*CALL ASCIIDEF
*CALL SMDEF 
*CALL SMPFC 
*CALL SMAPPFC 
*CALL SMAPDEF 
*CALL CYBERDEFS 
*CALL MISCOM
*CALL NP$CODE 
*IF DEF,XFR 
*CALL NX$ADEF 
*ENDIF
END 
TERM