Program HSCExample;

Uses Crt,ADVHSC;

var song:string;

Begin
song:=paramstr(1);
LOADSONG(song);  { Loading the Song Into Memory }

SetMode(1,1);  { Turn Polling Mode And Call Of Old Int 1Ch On }
PLAYSONG; { Play The Song }

PollMusic;  { Call The Player To Do Some Music }
            { Must Be At Least 18x By Second }

End.