Retro1.org codex

*DECK LFGWL 
      PROC LFGWL(MESSAGE,LSTNG$ID); 
      BEGIN                  # WRITE LINE                              #
*IF,DEF,IMS 
# 
**    LFGWL -- WRITE LINE 
* 
*     D.K. ENDO    81/16/12 
* 
*     THIS PROCEDURE WRITES LINE TO LISTING FILE. 
* 
*     PROC LFGWL(MESSAGE,LSTNG$ID)
* 
*     ENTRY        MESSAGE = LINE TO BE WRITTEN 
*                  LSTNG$ID = LISTING IDENTIFIER
* 
*     EXIT         NONE.
* 
*     METHOD
* 
*     IF LINE COUNT IS GREATER THAN 50, 
*       WRITE LISTING HEADER. 
*     WRITE LINE TO OUTPUT FILE.
*     INCREMENT LINE COUNT. 
* 
# 
*ENDIF
      ARRAY MESSAGE [0:0] S(1); 
        BEGIN 
        ITEM TEXT C(00,00,10);
        END 
      ITEM LSTNG$ID;         # LISTING IDENTIFIER                      #
# 
****  PROC LFGWL - XREF LIST BEGINS.
# 
      XREF
        BEGIN 
        PROC LFGLHDR;        # WRITE LISTING HEADER                    #
        ITEM OUTPUT;         # OUTPUT FILE FET                         #
        PROC WRITEC;         # WRITE LINE TO OUTPUT FILE               #
        END 
# 
****
# 
      CONTROL NOLIST;        # LFGSTAN COMMON DECK                     #
*CALL LFGSTAN 
      CONTROL LIST; 
      CONTROL EJECT;
#                                                                      #
#                            LFGWL CODE BEGINS HERE                    #
#                                                                      #
      IF LINEN GQ 50         # IF END OF PAGE                          #
      THEN
        BEGIN 
        LFGLHDR(LSTNG$ID);   # START NEW PAGE                          #
        END 
      WRITEC(OUTPUT,MESSAGE);# WRITE LINE TO OUTPUT FILE               #
      LINEN = LINEN + 1;     # INCREMENT LINE COUNT                    #
      RETURN; 
      END # LFGWL # 
      TERM