dataev.prg

System "somaj" for city Beius

PROCEDURE dataev

PARAMETER answer,mess1
DEFINE WINDOW culeg FROM 11,4 TO 19,73 ;
coloR w+/gr SHADO
ACTIVATE WINDOW culeg
set color to w+/gr

@1,0 SAY PADC(mess1,WCOLS())
@2,7 say''+numele+prenume
@4,30 GET data_evide pict '99/99/99' ;
  COLOR w+/r, w/r;   
       message'Data in forma ZZ/LL/AA  !';
       SIZE 1,8

set talk on
 de=dtoc(date())
 di=ctod(de)
read
set talk off
DEACTIVATE WINDOW culeg