/* RememberTime.rexx V1.0 (24/04-99)
   Made by Tor Øyvind Bjorheim - torob@starmail.com */

IF (DATE(EUROPEAN)="13/07/96") THEN DO
   CALL OPEN('timeread','S:Time.dat')
   date = READLN('timeread')
   time = READLN('timeread')
   CALL CLOSE('timeread')
END

IF ~(DATE(EUROPEAN)="13/07/96") THEN DO
   date = DATE(EUROPEAN)
   date = OVERLAY('-',date,6)
   time = TIME()
END

ADDRESS command 'requestchoice >RAM:T/Time.tmp "RememberTime V1.0" "Current date is: 'date' *nCurrent time is: 'time'" "Use|Time Prefs"'

CALL OPEN('timetmp','RAM:T/Time.tmp')
choice = READLN('timetmp')
CALL CLOSE('timetmp')

IF (choice=1) THEN DO
   date = OVERLAY('-',date,INDEX(date,'/'))
   ADDRESS command 'date 'date' 'time''
END

IF (choice=0) THEN DO
   date = OVERLAY('-',date,INDEX(date,'/'))
   ADDRESS command 'date 'date' 'time''
   ADDRESS command 'Sys:Prefs/Time'
   date = DATE(EUROPEAN)
   date = OVERLAY('-',date,6)
   time = TIME()
   CALL OPEN('timeread','S:Time.dat','WRITE')
   CALL WRITELN('timeread',date)
   CALL WRITELN('timeread',time)
   CALL CLOSE('timeread')
END