proc Writedate()
   view "Lastuse"
   if [Today] <> today() then
      coeditkey
      [Today] = today()
      do_it!
      if month(today()) < 10 then
         Tod = " " + strval(today())
      else
         Tod = strval(today())
      endif
      view "Forms"
      scan for true
         Tabl = [Tablename]
         Frm = [Formnumber]
         menu {Forms} {change} select Tabl select Frm enter
         down
         for X from 1 to 36
            right
         endfor
         typein Tod
         do_it!
      endscan
   endif
   clearall
endproc

