下例在箭头被按下时显示一条信息。
set talk off
clear
on key label rightarrow ? 'right arrow'
on key label leftarrow ? 'left arrow'
on key label uparrow ? 'up arrow'
on key label dnarrow ? 'down arrow'
set escape on
store .f. to glexit
on escape store .t. to glexit
store 0 to temp
@ 2,0 say 'press an arrow key to test on key label, <esc> to exit'
define window wenter from 10,20 to 14,60 double
activate window wenter
do while not glexit
enddo
deactivate window wenter
on key