home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / PPE / AEGIS / AGSHI10.ZIP / EXAMPLE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-03-02  |  487 b   |  21 lines
  1. Program AEGiS_HSC_INTERFACE_DEMO;
  2. Uses AGSHSC,CRT;
  3. Var PO:CHAR;
  4. BEGIN
  5. CLRSCR;
  6. WRITELN('Little demo of the AEGiS HSC iNTERFACE 1.0');
  7. WRITELN('Enjoy tha muzik! :)');
  8. WRITELN;
  9. If LOADFILE('SKYWALK.HSP') THEN BEGIN  {Great HSC file by $PLEEN}
  10. WRITELN('Press a key to quit...');
  11. PLAYMUSIC;
  12. WHILE NOT KEYPRESSED DO;
  13. WHILE KEYPRESSED DO PO := READKEY;
  14. END ELSE BEGiN
  15. WRITELN('ERROR: Can not find SKYWALK.HSP');
  16. HALT(1);
  17. END;
  18. STOPMUSIC;
  19. FREEMUSIC;
  20. WRITELN('All done!');
  21. END.