PROC Alarm:
LOCAL H%,A&(2),A$(64)
LOCAL D&,T&,A%,R%,S%
R%=IOOPEN(H%,"ALM:",0)
IF R%<0
RAISE R%
ENDIF
D&=DAYS(DAY,MONTH,YEAR)
T&=DATETOSECS(1970,1,1,HOUR,MINUTE,0)
dINIT "Set Alarm"
dTIME T&,"Time",0,0,DATETOSECS(1970,1,1,23,59,59)
dDATE D&,"Date",D&,DAYS(31,12,2049)
dEDIT A$,"Message",15
IF DIALOG=0
STOP
ENDIF
A&(2)=86400*(D&-25567)+T&
A&(1)=A&(2)
A$=A$+CHR$(0)
A%=ADDR(A$)
R%=IOA(H%,2,S%,A&(),#A%+1)
IF R%<0
RAISE R%
ENDIF
R%=IOCLOSE(H%)
IF R%<0
RAISE R%
ENDIF
ENDP