01  CONTROL-KEY.
    05 FILLER PIC X.
    05 CK2 PIC XX.
       88 NORMAL-INPUT VALUE SPACES.
       88 PF1 VALUE "P".
       88 PF2 VALUE "Q".
       88 PF3 VALUE "R".
       88 PF4 VALUE "S".
       88 UP-ARROW VALUE "A".
       88 DOWN-ARROW VALUE "B".
       88 RIGHT-ARROW VALUE "C".
       88 LEFT-ARROW VALUE "D".
       88 CLEAR-HOME-KEY VALUE "H".
       88 FUNC-FIND VALUE "1~".
       88 FUNC-INS VALUE "2~".
       88 FUNC-REM VALUE "3~".
       88 FUNC-SEL VALUE "4~".
       88 FUNC-PREV VALUE "5~".
       88 FUNC-NEXT VALUE "6~".
       88 FUNC7 VALUE "18".
       88 FUNC8 VALUE "19".
       88 FUNC9 VALUE "20".
       88 FUNC10 VALUE "21".
       88 FUNC11 VALUE "23".
       88 FUNC12 VALUE "24".
       88 FUNC13 VALUE "25".
       88 FUNC14 VALUE "26".
       88 FUNC-HELP VALUE "28".
       88 FUNC-DO VALUE "29".
       88 FUNC17 VALUE "31".
       88 FUNC18 VALUE "32".
       88 FUNC19 VALUE "33".
       88 FUNC20 VALUE "34".
    05 CK4 PIC X.
       88 FUNC-TOP VALUE "~".