OpenEuphoria

1. No-Frill CD Player

• Posted by Alan Tu <ATU5713 at COMPUSERVE.COM> Oct 03, 1998
• 764 views

Below is a _simple, simple!_ CD player that uses Jacques Deschenes
invaluable CDAUDIO.E library.  However, by the trasitive property, CD Aud=
io
uses Jacques also invaluable Sound Blaster library, which in turn uses
PORTS.E.  Either type:

ex cd 2 to play track 2

or ex cd and it will ask you for the track.

-----begin cd.ex-----
include get.e
include cdaudio.e
sequence cmd
object track

procedure play(integer track)
    StopAudio('D')
    if track !=3D 0 then
        PlayAudio('D',track)
    end if
end procedure

procedure prompt()
    sequence got
    integer track
    clear_screen()
    puts(1,"Enter track to play: ")
    got =3D get(0)
    track =3D got[2]
    play(track)
end procedure

cmd =3D command_line()
if length(cmd) < 3 then
    prompt()
else
    track =3D value(cmd[3])
    play(track[2])
end if
-----end cd.ex-----

Alan
  =