fred = today
output <access overwrite> fametest
display fred
exit