Figure 1.
* FIXDATES.PRG (for dBase3, dBase4, or dBase5)
* A program to change 2 digit years in 20th century to 4 digits
* Assumes database has a character field named "date" containing 10 spaces
*    and that 8 of them were derived from a date field
*    and that the last two spaces are blank
* Assumes that the file to be changed has been loaded as first database 

go top
do while .not. eof()
store substr(DATE,7,2) to OLDYEAR
store substr(DATE,1,6) to MONTHDAY
store MONTHDAY+"19"+OLDYEAR to NEWDATE
replace DATE with NEWDATE
skip
enddo
loop
return
end of database program.