Retro1.org codex

*DECK FERR$NS 
PROC FERR$NS; 
# TITLE FERR$NS - FILE ERROR TEXT.                                     #
 
      BEGIN    # FERR$NS #
# 
**    FERR$NS - FILE ERROR TEXT.
* 
*     J.C. LEE    1981
* 
*     THIS SYMPL TEXT CONTAINS A STATUS LIST FOR
*     FILE ERROR. 
* 
# 
      CONTROL STEXT;
      STATUS FERR$EC
        OK,                  # 0 NO ERROR                              #
        INVHDR,              # 1 INVALID HEADER RECORD                 #
        NOTRNDM,             # 2 NOT A RANDOM ACCESS FILE              #
        BADOPLD,             # 3 BAD OPLD                              #
        NXRM,                # 4 NPUXREF RECORD MISSING                #
        NXBAD,               # 5 BAD NPUXREF RECORD                    #
        PHRM,                # 6 PHYLINK RECORD MISSING                #
        PHBAD,               # 7 BAD PHYLINK RECORD                    #
        NCBRM,               # 8 NCB RECORD MISSING                    #
        ; 
      END TERM