*>
      *>
      *> Keyboard Keys Codes
      *>
      *>
       77  CBL-KEY                     PIC 9(04) VALUE ZEROS.
           88 KEY-ENTER                          VALUE 00 0013.
           88 KEY-ESC                      VALUE 01 0027 00276.
           88 KEY-F1                       VALUE 02 0265.
           88 KEY-F2                       VALUE 03 0266.
           88 KEY-F3                       VALUE 04 0267.
           88 KEY-F4                       VALUE 05 0268.
           88 KEY-F5                       VALUE 06 0269.
           88 KEY-F6                       VALUE 07 0270.
           88 KEY-F7                       VALUE 08 0271.
           88 KEY-F8                       VALUE 09 0272.
           88 KEY-F9                       VALUE 10 0273.
           88 KEY-F10                      VALUE 11 0274.
           88 KEY-32                       VALUE 32 0259.
           88 KEY-UP                       VALUE 32 0259.
           88 KEY-33                       VALUE 33 0367.
           88 KEY-DOWN                     VALUE 33 0367.
           88 KEY-FUNCAO                   VALUE 00 01 02 03 04 05 06
                                                 07 08 09 10 11 32 33
                                                 0013 0027 0265 0266
                                                 0267 0268 0269 0270
                                                 0271 0272 0273 0274
                                                 0259 0367.

      *>
      *>
      *> File Status Codes
      *>
      *>
       77  CBL-FS                      PIC X(02) VALUE SPACES.
           88 FS-OK                              VALUE "00" "02" "04"
		                                               "05".
           88 FS-EOF                             VALUE "10".
           88 FS-INVALID-START                   VALUE "46" "22".
           88 FS-DUPLICATE-KEY                   VALUE "22".
           88 FS-KEY-NOT-FOUND                   VALUE "23".
           88 FS-DISK-FULL                       VALUE "24".
           88 FS-INEXISTENT-ISAM                 VALUE "30".
           88 FS-FILE-NOT-FOUND                  VALUE "35".
           88 FS-ACCESS-DENIED                   VALUE "37" "9!".
           88 FS-FORMAT-ERROR                    VALUE "39" "44".
           88 FS-ALREADY-OPEN                    VALUE "41".
           88 FS-NOT-OPEN                        VALUE "42" "47".
           88 FS-RECORD-NOT-FOUND                VALUE "22".
           88 FS-FILE-LOCKED                     VALUE "9A".
           88 FS-RECORD-LOCKED                   VALUE "9D".
           88 FS-CORRUPT-INDEX                   VALUE "9$" "9)" "9(".

      *>
      *>
      *> Screen Save Area
      *>
      *>
       77  CBL-SCREEN-BUFFER           PIC X(8000) VALUE SPACES.