IDENTIFICATION DIVISION.
       PROGRAM-ID.  FNKEYS.    

      * This is the screen demo modified to demonstrate function keys

       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SPECIAL-NAMES.
           CRT STATUS IS CRT-STAT
           CURSOR IS CURSOR-POSITION.

       DATA DIVISION.
       WORKING-STORAGE SECTION.

       01  CURSOR-POSITION.
           02  CURSOR-LINE         PIC 99.
           02  CURSOR-COL          PIC 99.

       01  CRT-STAT                PIC 9999.

      * Areas to contain data from forms on the screen.

       01  GO-ON.
           02  GO-MESSAGE          PIC X(55) VALUE
           "Press a function key? (Press Fkey or press n to finish)".
           02  FILLER              PIC X. 
       01  GO-ON-RED. 
           02  FILLER              PIC X(55).
           02  GO-ON-REPLY         PIC X.

       SCREEN SECTION.

       01  FKEY-FORM.
           03  BLANK SCREEN.
           03  LINE 1 COLUMN 35 VALUE "Function Key".

       PROCEDURE DIVISION.

       INITIALISE-FORM. 
           MOVE SPACES TO CURSOR-POSITION. 
           DISPLAY FKEY-FORM.

       NEXT-FKEY.
           MOVE SPACES TO GO-ON-REPLY.
           DISPLAY GO-ON AT 2401.
           ACCEPT GO-ON-RED AT 2401
               ON EXCEPTION PERFORM CRT-EXCEPTION
           END-ACCEPT. 
           IF GO-ON-REPLY = "y" OR "Y" GO TO INITIALISE-FORM.
           IF GO-ON-REPLY = "n" OR "N" STOP RUN. 
           GO TO NEXT-FKEY. 

       CRT-EXCEPTION. 
           DISPLAY CRT-STAT AT 0170.
           MOVE SPACE TO GO-ON-REPLY.