*DECK TBASCTB 
      PROC TBASCTB; 
      BEGIN 
      CONTROL STEXT;
#----------------------------------------------------------------------# BASICTB
#     S T A R T   O F   B A S I C T A B L                              # BASICTB
                                                                         BASICTB
                                                                         BASICTB
#     CODES FOR INSTRUCTIONS IN BASICTABLE (BASCODE)                   # BASICTB
                                                                         BASICTB
      DEF ENDCODE          # 0#;        #END OF TABLE                  # BASICTB
      DEF DISPCODE         # 1#;        #DISPLAY                       # BASICTB
      DEF DELTCODE         # 2#;        #DELETE                        # BASICTB
      DEF DELUCODE         # 3#;        #DELETE USING                  # BASICTB
      DEF INSTCODE         # 4#;        #INSERT                        # BASICTB
      DEF INSUCODE         # 5#;        #INSERT USING                  # BASICTB
      DEF UPDCODE          # 6#;        #UPDATE                        # BASICTB
      DEF UPDUCODE         # 7#;        #UPDATE USING                  # BASICTB
      DEF STOPCODE         # 8#;        #STOP                          # BASICTB
      DEF MOVECODE         # 9#;        #MOVE                          # BASICTB
      DEF EVALCODE         #10#;        #EVALUATE                      # BASICTB
      DEF IFCODE           #11#;        #IF                            # BASICTB
      DEF EXTRCODE         #12#;        #EXTRACT                       # BASICTB
      DEF STORCODE         #13#;        #STORE                         #
      DEF STRSCODE         #14#;        #STORE SETTING                 #
      DEF CONTCODE         #15#;        #CONTINUATION TO NEW TABLE     # BASICTB
      DEF MODCODE          #16#;        #MODIFY                        #
      DEF MODUCODE         #17#;        #MODIFY USING                  #
      DEF REMCODE          #18#;        #REMOVE                        #
      DEF REMUCODE         #19#;        #REMOVE USING                  #
                                                                         BASICTB
                                                                         BASICTB
#     THIS COMDECK DESCRIBES THE BASICTABLE                            # BASICTB
                                                                         BASICTB
      BASED ARRAY BASICTABLE S(2);                                       BASICTB
        BEGIN                                                            BASICTB
        ITEM BASCODE       U(00,00,06); #DIRECTIVE CODE                #
        ITEM BASCVETO      B(00,06,01); #TRUE IF -VETO- SPECIFIED      #
        ITEM BASCPASS      B(00,07,01); #TRUE IF -PASS- SPECIFIED      #
        ITEM BASCUSING     B(00,08,01); #TRUE IF -USING- SPECIFIED     #
        ITEM BASCFROM      B(00,09,01); #TRUE IF -FROM- SPECIFIED      #
        ITEM BASCREC       B(00,10,01); #TRUE IF -OF RECORDNAME-       #
        ITEM BASCUPON      B(00,11,01); #TRUE IF -UPON- SPECIFIED      #
        ITEM BASCKEY1      B(00,12,01); #TRUE IF KEY-LITERAL SPECIFIED #
        ITEM BASCKEY2      B(00,13,01); #TRUE IF KEY-DATANAME SPECIFIED#
        ITEM BASCKEY3      B(00,14,01); #TRUE IF KEY-IN SPECIFIED      #
        ITEM BASCTEMP      B(00,15,01); #TRUE IF ONLY USING TEMP ITEMS #
        ITEM BASCUPDALT    B(00,16,01); #TRUE IF UPD ON ALTERNATE KEY  #
        ITEM BASCSET       B(00,17,01); #TRUE IF -SETTING- SPECIFIED   #
        ITEM BASCMODKEY    B(00,18,01); #TRUE IF PRIM KEY WILL BE MODIF#
        ITEM BASC$GROUPID  I( 0,24,18); #GROUP ID OF ASSOCIATED MEMORY # BASICTB
        ITEM BASCMOVADDR   I(00,42,18); #ADDR OF STORE/MOD -MOVE- TABLE#
        ITEM BASCLAST      I( 0,42,18); #LWA OF MEMORY FOR TABLES      # BASICTB
        ITEM BASFITFROM    I( 1, 0,18); #FIT ADDRESS FOR -FROM- FILE   # BASICTB
        ITEM BASFITUPON    I( 1,18,18); #FIT ADDRESS FOR -UPON- FILE   # BASICTB
        ITEM BASRECNAM     I( 1,24,18); #DIR WORD ADDR OF RECORD       # BASICTB
        ITEM BASCADDR      I( 1,42,18); #PTR TO TABLES FOR MORE INFO   # BASICTB
        ITEM BASCWD1       I( 0, 0,60); #WHOLE WORD OVERLAY FOR WORD 1 # BASICTB
        ITEM BASCWD2       I( 1, 0,60); #WHOLE WORD OVERLAY FOR WORD 2 # BASICTB
        END                                                              BASICTB
                                                                         BASICTB
#     E N D   O F   B A S I C T A B L                                  # BASICTB
#----------------------------------------------------------------------# BASICTB
      END 
      TERM
