; Alarm
; -----
; Implements a simple alarm by popping up a message box
; time and date are entered when program first starts,
; then sits in the background till alarm time reached

:start
timebox Alarm,Enter the alarm time,A,,100|80
ifmsg 2,exit
ifnvar A,,getdate
msgbox Oops!!,Alarm time must be entered,49
ifmsg 2,exit
goto start

:getdate
datebox Alarm,Enter date or OK for today,B,,100|80
ifmsg 2,exit
ifnvar B,,setIt
suspend %A
goto beepIt

:setIt
suspend %A,%B

:beepIt
setvar C,alarmbeep.wav
open wav,%C
play wav
:aloop
getmedia wav,B,s
ifvar B,playing,aloop
stop wav
msgbox Alarm,%A has arrived,0
:exit