push.prg

来自「本工资管理系统由foxpro编写,可在VF下运行」· PRG 代码 · 共 21 行

set talk off
clear
no=space(4)
name=space(10)
@10,10 say "编号:" get no
@11,10 say "姓名:" get name
@13,10 get push function "*nh \<C继续 ;\<E 结束;\\Double";
 default 1 valid init() color,,,,,w+/b,r/b,gr+/b,w/b
read cycle
return

function init
do case
case push=1
  no=space(4)
  name=space(10)
case push=2
  clear read
endcase
  show gets
  return 2