nume.prg

System "somaj" for city Beius

PROCEDURE nume

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;
   SIZE 1,32;
   DEFAULT " ";
   PICTURE "@!xxxxxxxxxxxxxxxxxxxxxxx"
READ
DEACTIVATE WINDOW culeg
RETURN