alfa.prg

System "somaj" for city Beius

procedure alfa
PARAMETER alfa,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 alfa;
   SIZE 1,1;
   DEFAULT " ";
   PICTURE "@!x"
READ
DEACTIVATE WINDOW culeg
RETURN