home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Intermedia 1998 January
/
inter1_98.iso
/
www
/
rozi
/
HSC.ZIP
/
EXAMPLE.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-06-20
|
529b
|
25 lines
Program HSCExample1;
{ Little Example To Show The Use Of The Antares HSC Player }
{ Coded By Access/ADV - 05/94 }
{ Modified By Access/ADV - 06/94 }
Uses Crt,ADVHSC;
Var i:WORD;
Begin
LOADSONG('MUSIC.HSC'); { Loading the Song Into Memory }
PLAYSONG; { Play The Song }
Repeat
Inc(i);
Write(i,' ');
Until KeyPressed;
FADESONG; { Fade Out The Volume }
Delay(2000); { Wait For 2 Seconds To Allow The Fade To Complete }
STOPSONG; { Stop The Replay }
CLEARMEM; { Free Memory Allocated By LOADSONG }
End.