;	Alarm 2004 v2.0 for http://mo.snille.com

wait OFF
$HELP=notepad
SET $SNOOZE=60

:2
label Alarm - Ringing

:2a
play ..\waves\ENIGMA.WAV 
choice `,$A,#%$SNOOZE%    Ah, you're up. \n   ( Click here, then Press a key )
if errorlevel 2 GOTO x
; play ..\waves\TOTOIV.WAV
play ..\waves\BLUESBRO.WAV
; play ..\waves\YSOLID.WAV
choice `,$A,#%$SNOOZE%    G'morn. \n   ( Click here, then Press a key )
if errorlevel 2 GOTO x
play ..\waves\ahoo.wav
choice `,$A,#%$SNOOZE%    Ahoo! \n   ( Click here, then Press a key )
if errorlevel 2 GOTO x
play ..\waves\WHISTLE.WAV
wait 3
GOTO 2a

:x
SET $WAKE=
SET $SNOOZE=
SET $loop=
SET $CLSN=
wait 1
play ../WAVES/CHIMES.WAV
exit