proc main
   integer iDay, iMonth, iYear, iHour, iMin, iSec
   string sFileName
   
   ltimeints $LTIME iYear iMonth iDay iHour iMin iSec
   
   strfmt sFileName "%d%02d%02d" iYear iMonth iDay
   strcat sFileName ".TXT"
endproc