home *** CD-ROM | disk | FTP | other *** search
/ Intermedia 1998 January / inter1_98.iso / www / rozi / HSC.ZIP / R.PAS < prev    next >
Pascal/Delphi Source File  |  1997-01-17  |  195b  |  16 lines
  1. Uses Crt,ADVHSC;
  2. Var i,j:Byte;
  3. {$F+}
  4. {$L MUSIC.OBJ}
  5. Procedure MUSICDATA; External;
  6. {$F-}
  7. Begin
  8. ClrScr;
  9. PLAYSONGMEMORY(@MUSICDATA);
  10.  
  11. toggleraster;
  12. readkey;
  13. STOPSONG;
  14. CLEARMEM;
  15.  
  16. End.