program-id. entry-field-with-proposals. working-storage section. copy "isfonts.def". 77 ks is special-names crt status pic 999. 77 var-value pic 9(10). 77 prop pic x(10). screen section. 01 mask. 03 ef1 entry-field proposal-delay 200 visible-proposal-count 4 line 3 col 3 size 20 max-text 10 background-color rgb 12237527 font small-font . procedure division. main. display standard graphical window background-low lines 5 size 40. display mask. modify ef1 proposal ( "abb" "abc" "aca" "acb" "acc" "baa" "bab" "bac" "bba" "bbb" "bbc" "bca" "bcb" "bcc" "caa" "cab" "cac" "cba" "cbb" "cbc" "cca" "ccb" "ccc" "aaa" "aab" "aac" "aba" ). perform until ks = 27 accept mask on exception continue end-accept end-perform.