Retro1.org codex

*DECK TXINAA
PROC TXINAA;
# TITLE TXINAA - SYMPL TEXT FOR MULTI HOST A-A ROUTINES. #
# DATE  82/09/20. # 
# 
*     DATE              82/09/20. 
# 
CONTROL STEXT;
 
      BEGIN # TXINAA #
 
      COMMON NVFIN; 
      BEGIN 
 
# 
**    INREC - INCALL RECORD.
# 
 
      BASED ARRAY INREC [00:00] S(1); 
        BEGIN 
        ITEM INR$WORD   U(00,00,60);
        END 
 
# 
**    INRECL - INCALL RECORD LENGTH.
# 
 
      ITEM INRECL;
 
      END #NVFIN# 
 
 
 
      END # TEXTAA #
 TERM 
*ENDIF