home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / SND_TOOL / HSC15ECR.ZIP / PAS_HSC.ZIP / TSTHSC.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1994-05-23  |  970 b   |  40 lines
  1. PROGRAM TestHscUnit;
  2.  
  3. (* Demo program for PLAYHSC unit by GLAMOROUS RAY^RADiCAL RHYTHMS     *)
  4. (* The enclosed songs are copyrighted. CRYSTAL2  (c) Chris Korte,     *)
  5. (* FANTASY (linked as object) (c) NEO Software                        *)
  6.  
  7. USES PLAYHSC,CRT;
  8.  
  9. VAR
  10.   Music : HSC_obj;
  11.  
  12. {$F+}                            (* Declaration                  *)
  13. {$L MUSIC.OBJ}                   (*          for                 *)
  14. PROCEDURE MUSIC_DATA; EXTERNAL;  (*             external         *)
  15. {$F-}                            (*                   sound data *)
  16.  
  17. PROCEDURE WaitKey;
  18. VAR
  19.   Dummy : CHAR;
  20. BEGIN
  21.   REPEAT UNTIL KeyPressed;
  22.   WHILE KeyPressed DO Dummy := ReadKey;
  23. END;
  24.  
  25. BEGIN
  26.   Music.Init(0);
  27.  
  28.   Music.LoadMem (@MUSIC_DATA); (* included file, using binobj.exe  *)
  29.   Music.Start;
  30.   WaitKey;
  31.  
  32.   IF Music.LoadFile ('CRYSTAL2.HSC') THEN BEGIN
  33.     Music.Start;
  34.     WaitKey;
  35.   END;
  36.  
  37.   Music.Fade;
  38.   Delay (4000);
  39.   Music.Done;
  40. END.