IDENTIFICATION DIVISION.
       PROGRAM-ID. main.
       WORKING-STORAGE SECTION.
       77  key-status is special-names crt status pic 9(4) value 0.
           88 exit-pushed value 27.
       77  window-handle handle of window.
       77  cb1-handle handle of combo-box.

       SCREEN SECTION.
       01  screen-1.
           03 CB1
              Combo-box
              line     3
              column   4
              size     25 cells 
              lines    14 cells 
              unsorted
              .
           03 PB1
              Push-Button
              line     6
              column   4
              size     25 cells 
              lines    2 cells 
              title    "Accept"
              .

       PROCEDURE DIVISION.

       MAIN.
           display standard graphical window 
                   background-low
                   screen line 41
                   screen column 91
                   size 32
                   lines 8
                   label-offset 20
                   color 257
                   modeless
                   title-bar
                   no wrap
                   title "Screen"
                   handle window-handle

           display screen-1.

           set cb1-handle to handle of cb1.
           call "filldays" using cb1-handle.
           
           perform until exit-pushed
              accept screen-1
                 on exception
                    continue
              end-accept
           end-perform.

           destroy window-handle.
           goback.