;	Alarm 2002 v2.0 for Donna 

wait OFF
$HELP=notepad

; this includes play time... 20 to 90 seems good
SET $SNOOZE=60

:2
label Alarm - Ringing

set WAVEFILE=ENIGMA.WAV

:2a
play ..\waves\%WAVEFILE%
choice `,$A,#%$SNOOZE%   G'morn :^D \n   ( Click here, then Press a key )
if errorlevel 2 GOTO x

; nota bene "reverse" order of playlist 
; also we can write in lower case, but the files must be named in all upper case

if %WAVEFILE%==ahoo.wav GOTO waiter

if %WAVEFILE%==goodmo1.wav set WAVEFILE=ahoo.wav
if %WAVEFILE%==TOTOIV.WAV set WAVEFILE=goodmo1.wav
if %WAVEFILE%==BLUESBRO.WAV set WAVEFILE=TOTOIV.WAV
if %WAVEFILE%==YSOLID.WAV set WAVEFILE=BLUESBRO.WAV
if %WAVEFILE%==ENIGMA.WAV set WAVEFILE=YSOLID.WAV

GOTO 2a

:waiter
play ..\waves\WHISTLE.WAV

; reset to first track on playlist
set WAVEFILE=ENIGMA.WAV

wait 3
GOTO 2a

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