include "date.oxh"
PROC main:
  LOCAL h%,buf$(15),res&,i&,tmp$(10)
  LOCAL year&,month&,day&,hour&,minute&,second&

  res&=IOOPEN(h%,"d:\date.txt",$0000)
  IF res&<0
    STOP
  ENDIF
  res&=IOREAD(h%,ADDR(buf$)+1,15)
  pokeb ADDR(buf$),res&
  IF res&<1
    STOP
  ENDIF
  tmp$=mid$(buf$,1,2)
  month&=VAL(tmp$)
 
  tmp$=mid$(buf$,3,2)
  day&=VAL(tmp$)
 
  tmp$=mid$(buf$,5,2)
  hour&=VAL(tmp$)

  tmp$=mid$(buf$,7,2)
  minute&=VAL(tmp$)

  tmp$=mid$(buf$,14,2)
  second&=VAL(tmp$)

  tmp$=mid$(buf$,9,4)
  year&=VAL(tmp$)

  res&=DTNEWDATETIME&:(year&,month&,day&,hour&,minute&,second&,0)
  DTSETHOMETIME:(res&)  
ENDP