culegd.prg

System "somaj" for city Beius

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