OpenEuphoria

2. Re: CD-Wakeup 1.0

• Posted by Frank Atry <suprsngr at EARTHLINK.NET> Jun 03, 1998
• 687 views

Guys (and Gals):
Just wanted to congratulate you all on an having established an excellent
network of computer lovers.  Alan's e-mail demonstrates the incredible extent
of unity, dedication, and collaboration among this *FINE* group of
programmers, and I would just like to say my hat's off to you.
As you know, I'm *very* new to this forum, and don't even know a single
programming language yet, but I do hope to learn very soon and to start
contributing to these discussions (after asking you guys a thousand and one
questions first :P  )
Any way, keep up the good work EVERYONE!
Frank

Alan Tu wrote:

> 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 = gets(0)
> if find(':',tyme) = tyme[2] then tyme = '0' & tyme -- look for colon
> position
> end if
> puts(1,"\n")
> integer i
> i = input("Enter track to play: ")
> --
> sequence d
> sequence value_return
> integer hour, minutes
> value_return = value(tyme[1..2])
> hour = value_return[2]
> value_return = value(tyme[4..5])
> minutes = value_return[2]
> --
> puts(1,"\n")
> puts(1,"CD ALARM NOW SET")
> --
> atom h,m
> h = 0
> m = 0
> while h = 0 or m = 0 do
> d = date()
> h = d[4] = hour
> m = d[5] = minutes
> end while
> clear_screen()
> PlayAudio('D', i)