📄 xena.prg
字号:
PROCEDURE xena
PARAMETER intreb,mess1
DEFINE WINDOW day FROM 13,8 TO 18,69 ;
COLOR w+/gr SHADOw
ACTIVATE WINDOW day
@0,1 SAY PADC(mess1,WCOLS());
PICTURE "@I"
@1,17 GET intreb;
PICTURE "@*HT < \<Da >;< \<Nu >";
SIZE 1,10,5;
MESSAGE " "
READ
intreb=SUBSTR(intreb,4,1)
DEACTIVATE WINDOW day
RETURN
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -