vir.prg

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

PROCEDURE vir
PARAMETER answer,mess1
DEFINE WINDOW culeg FROM 13,4 TO 19,73 ;
COLOR w+/gr SHADOw

ACTIVATE WINDOW culeg

@1,0 SAY PADC(mess1,WCOLS())
@3,17 GET answer;
   messa 'Varsta persoanei cautate (1..120)';
   SIZE 1,32;
   DEFAULT " ";
   PICTURE "9999"
READ
DEACTIVATE WINDOW culeg
RETURN