OpenEuphoria

CD-Wakeup 1.0

• Posted by Alan Tu <ATU5713 at COMPUSERVE.COM> Jun 02, 1998
• 687 views

Hi all,

Below is a rather elementary program that plays a CD track at a specified=

time.  Those of you who have seen this program before will notice that I
use internal routines to play the CD.

This program is FREEWARE.

Requirements:

1.  MSCDEX
2.  compatible sound card
3.  Irv's input.e
4.  Jacques' CDAUDIO.ZIP
5.  Jacques' SB.ZIP (Sound Effects 2.0)

All these items are available on the Web, or drop me a line, I'd be happy=

to send them to you.

-----begin wakeup.e-----

include input.e
include cdaudio.e
clear_screen()
sequence tyme  -- can't use the word 'time' as a var.
puts(1,"Enter time to play CD: ")
tyme =3D gets(0)
if find(':',tyme) =3D tyme[2] then tyme =3D '0' & tyme -- look for colon
position
end if
puts(1,"\n")
integer i
i =3D input("Enter track to play: ")
--
sequence d
sequence value_return
integer hour, minutes
value_return =3D value(tyme[1..2])
hour =3D value_return[2]
value_return =3D value(tyme[4..5])
minutes =3D value_return[2]
--
puts(1,"\n")
puts(1,"CD ALARM NOW SET")
--
atom h,m
h =3D 0
m =3D 0
while h =3D 0 or m =3D 0 do
d =3D date()
h =3D d[4] =3D hour
m =3D d[5] =3D minutes
end while
clear_screen()
PlayAudio('D', i)
 =