atentie.prg

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

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