Program AEGiS_HSC_INTERFACE_DEMO;
Uses AGSHSC,CRT;
Var PO:CHAR;
BEGIN
CLRSCR;
WRITELN('Little demo of the AEGiS HSC iNTERFACE 1.0');
WRITELN('Enjoy tha muzik! :)');
WRITELN;
If LOADFILE('SKYWALK.HSP') THEN BEGIN  {Great HSC file by $PLEEN}
WRITELN('Press a key to quit...');
PLAYMUSIC;
WHILE NOT KEYPRESSED DO;
WHILE KEYPRESSED DO PO := READKEY;
FADEMUSiC;
DELAY(2000);
END ELSE BEGiN
WRITELN('ERROR: Can not find SKYWALK.HSP');
HALT(1);
END;
STOPMUSIC;
FREEMUSIC;
WRITELN('All done!');
END.