atentie.prg

System "somaj" for city Beius

PROCEDURE atentie

PARAMETER MESS
=SYS(2002)
DEFINE WINDOW alert FROM 13,4 TO 17,73 ;
COLOR w+/r SHADOw

ACTIVATE WINDOW alert

@1,1 SAY PADC(MESS,WCOLS());
   PICTURE "@I"
WAIT ""
DEACTIVATE WINDOW alert
=SYS(2002,1)
RETURN