/* SageUhrzeit ©'97 TNE) 
   Uhrzeit ansagen (Deutsche Samples) */


/*----------------------- Personal Settings ----------------------*/

Klaenge = 'Audio:SayTime/Klang'
play_8svx = 'Audio:bin/dsound'

/*----------------------------------------------------------------*/

Zeit = Time(n)
Zeit = RIGHT(Zeit, 8)
MinSec = Right(Zeit, 5)

Secs = Right(Zeit, 2)
Mins = Left(MinSec, 2)
Hrs  = Left(Zeit,2)

/* Test
 Hrs = 11
 Mins = 02
*/

IF (Hrs < 10) THEN
	Hrs = Right(Hrs,1)

IF (Mins < 10) THEN
	Mins = RIGHT(Mins,1)

Mins10 = LEFT(Mins, 1) * 10
Mins1  = RIGHT(Mins,1)



/* SAY hrs mins secs */

IF (Mins = 0) THEN
 DO
  ADDRESS COMMAND
	play_8svx '-w' Klaenge'/Es_ist_jetzt.IFF'
	play_8svx '-w' Klaenge'/'Hrs'.IFF'
	play_8svx '-w' Klaenge'/Uhr_.IFF'

  EXIT 0
 END


ADDRESS COMMAND
	play_8svx '-w' Klaenge'/Es_ist_jetzt.IFF'
	play_8svx '-w' Klaenge'/'Hrs'.IFF'
	play_8svx '-w' Klaenge'/Uhr.IFF'

IF( ((Mins > 1) & (MINS <= 59)) ) THEN
 DO
  ADDRESS COMMAND
	play_8svx '-w' Klaenge'/und.IFF'
	play_8svx '-w' Klaenge'/'Mins'.IFF'
	play_8svx '-w' Klaenge'/Minuten.IFF'
	EXIT 0
 END

IF(Mins = 1) THEN
 DO
  ADDRESS COMMAND
	play_8svx '-w' Klaenge'/und.IFF'
	play_8svx '-w' Klaenge'/1e.IFF'
	play_8svx '-w' Klaenge'/Minute.IFF'
	EXIT 0
 END

ADDRESS COMMAND
	play_8svx '-w' Klaenge'/und.IFF'
	play_8svx '-w' Klaenge'/'Mins1'.IFF'
	play_8svx '-w' Klaenge'/und.IFF'
	play_8svx '-w' Klaenge'/'Mins10'.IFF'
	play_8svx '-w' Klaenge'/Minuten.IFF'

 EXIT 0

/*---------------------------------------------------------------------------*/