Retro1.org codex

*DECK AIPTXT
USETEXT AIPDEF
PROC DATLINE; 
BEGIN 
CONTROL STEXT;
      ARRAY DATLINE P(4); 
*CALL NP$DLA
END 
TERM
PROC HEADER;
BEGIN 
CONTROL STEXT;
   BASED ARRAY HEADER;
     BEGIN
*CALL HEADER
     END
      BASED ARRAY SUPMSG P(11) ;
      BEGIN 
*CALL SUPMSG
      END 
END 
TERM
USETEXT AIPDEF
PROC NP$DB; 
BEGIN 
CONTROL STEXT;
*CALL NP$DB 
END 
TERM
PROC NP$GETS; 
BEGIN 
CONTROL STEXT;
*CALL NP$GETS 
END 
TERM
USETEXT AIPDEF
PROC NP$LOF;
BEGIN 
CONTROL STEXT;
*CALL NP$LOF
END 
TERM
PROC NP$MODE; 
BEGIN 
CONTROL STEXT;
*CALL NP$MODE 
END 
TERM
PROC NP$GMB;
BEGIN 
CONTROL STEXT;
*CALL NP$GMB
END 
TERM
USETEXT AIPDEF
PROC NP$NWL;
BEGIN 
CONTROL STEXT;
*CALL NP$NWL
END 
TERM
USETEXT AIPDEF
PROC NP$NWNC; 
BEGIN 
CONTROL STEXT;
*CALL NP$NWNC 
END 
TERM
USETEXT AIPDEF
PROC NP$ONAM; 
BEGIN 
CONTROL STEXT;
*CALL NP$ONAM 
END 
TERM
PROC NP$PUTS; 
BEGIN 
CONTROL STEXT;
*CALL NP$PUTS 
END 
TERM
PROC NP$STAT; 
BEGIN 
CONTROL STEXT;
*CALL NP$STAT 
END 
TERM
PROC NP$TAA;
BEGIN 
CONTROL STEXT;
*CALL NP$TAA
END 
TERM
PROC NP$ZHDR; 
BEGIN 
CONTROL STEXT;
*CALL NP$ZHDR 
END 
TERM
*IF DEF,XFR 
USETEXT AIPDEF
PROC NX$ACBF; 
BEGIN 
CONTROL STEXT;
*CALL NX$ACBF 
END 
TERM
USETEXT AIPDEF
PROC NX$ACBX; 
BEGIN 
CONTROL STEXT;
*CALL NX$ACBX 
END 
TERM
USETEXT AIPDEF
PROC NX$MSG;
BEGIN 
CONTROL STEXT;
*CALL NX$MSG
END 
TERM
USETEXT AIPDEF
PROC NX$CHAR; 
BEGIN 
CONTROL STEXT;
*CALL NX$CHAR 
END 
TERM
*ENDIF
USETEXT AIPDEF
PROC QTRMBUF; 
BEGIN 
CONTROL STEXT;
*CALL QTRMBUF 
END 
TERM
PROC QTRMCOM; 
BEGIN 
CONTROL STEXT;
*CALL QTRMCOM 
END 
TERM
USETEXT AIPDEF
PROC QTRMNIT; 
BEGIN 
CONTROL STEXT;
*CALL QTRMNIT 
END 
TERM