If a data key has been set up to act as a function key, it terminates the ACCEPT operation when pressed, and key-status is set up as follows:
* Set up the characters "A" through "Z" to terminate the
* ACCEPT operation
move 1 to data-key-setting
move "A" to first-data-key
move 26 to number-of-data-keys
call x"AF" using set-bit-pairs
data-key-control
accept data-item at 0101
if key-type = "3"
evaluate key-code-1
when 65 display "A pressed"
when 66 display "B pressed"
when 90 display "Z pressed"
end-evaluate
end-if
.