PROC Time:
LOCAL ax%,bx%,cx%,dx%,a&,d&,t&
d&=DAYS(DAY,MONTH,YEAR)
t&=DATETOSECS(1970,1,1,HOUR,MINUTE,SECOND)
dINIT "Edit time and date"
dTIME t&,"Time",1,0,DATETOSECS(1970,1,1,23,59,59)
dDATE d&,"Date",d&,DAYS(31,12,2049)
IF DIALOG=0
STOP
ENDIF
a&=86400.0*(d&-25567.0)+t&
cx%=peekw(addr(a&)+2)
dx%=peekw(addr(a&))
ax%=$0300
os($89,addr(ax%))
ENDP