SET CENTURY OFF SET CENTURY TO 19 ROLLOVER 30 bdate={ / / } @ 10, 10 say 'Date in ' get bdate PICT '99/99/9999' size 1,10 read ? bdate