chrsaw( ) 函数示例

在下面的示例中，系统显示一个窗口，包含 ＠ ... get 命令创建的一个输入字段，并且等待键盘输入 5 秒钟。若在这段时间内未按下一个键，则 chrsaw( ) 返回“假”(.f.)，并且终止程序。

set talk off
define window wenter from 7,10 to 13,70 panel
activate window wenter
@ 1,3 say 'customer: ' 输入 gccustomer 默认值 space(40)
@ 3,3 say 'address: ' 输入 gcaddress 默认值 space(40)
wait window 'waiting for input' nowait
if not chrsaw(5) 
   deactivate window wenter
   clear gets
else
   read
   deactivate window wenter
endif
release window wenter
wait 
clear