📄 push.prg
字号:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -