Retro1.org codex

*DECK LFGWKBS 
      PROC LFGWKBS; 
      BEGIN 
# 
***   LFGWKBS - WORKING BUFFERS.
* 
*     LFGWKBS CONTAINS THE WORKING BUFFERS FOR READING
*     AND WRITING.
* 
# 
      CONTROL STEXT;
      COMMON WKBS;
        BEGIN 
        ARRAY PDATA [0:35] S(1);
          BEGIN 
          ITEM PBUF U;
          END 
        BASED ARRAY SM$NS [0:0] S(10);
          BEGIN              # NS SUPERVISORY MESSAGE FORMAT           #
*CALL SUPMSG
*CALL SMNS
          END 
        END 
      END TERM