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