culegd.prg

来自「System "somaj" for city Beius」· PRG 代码 · 共 16 行

PROCEDURE culegd

PARAMETER answer,mess1
DEFINE WINDOW culeg FROM 13,4 TO 19,73 STYLE 'BI';
COLOR w+/b SHADO
ACTIVATE WINDOW culeg
set color to w+/b,g+/b
@1,0 SAY PADC(mess1,WCOLS())
@3,30 GET answer;
   SIZE 1,8
READ
DEACTIVATE WINDOW culeg
RETURN