* program to set up ttd.dbf 
cls
crea ttd.dbf from ttd.ctt
inde on rate$ to ttd.ndx
appe blan
let 1:memo$="Y DDRAIG GOCH"
let 1:rate$="a"
let 1:date$=date()
use
do ttd.prg