home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Intermedia 1998 January
/
inter1_98.iso
/
www
/
rozi
/
HSC.ZIP
/
EXAMPLE2.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-06-20
|
611b
|
26 lines
Program HSCExample;
{ Little Example To Show The Use Of The Antares HSC Player }
{ Coded By Access/ADV - 05/94 }
{ Modified By Access/ADV - 06/94 }
{ Polling Version }
Uses Crt,ADVHSC;
Begin
LOADSONG('MUSIC.HSC'); { Loading the Song Into Memory }
SetMode(1,1); { Turn Polling Mode On And Tell HSC To Call The Old Interrupt }
PLAYSONG; { Play The Song }
Repeat
POLLMUSIC; { Call The Player To Do Some Music }
{ Must Be Called At Least 18x By Second }
Write('Press A Key... ');
Delay(10);
Until KeyPressed;
STOPSONG; { Stop The Player }
CLEARMEM; { Free Memory }
End.