home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / misc / piano1.zip / PLAYDEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1988-04-15  |  724b  |  29 lines
  1. PROGRAM PlayDemo;
  2. (* copyright (c) 1988 by Neil J. Rubenking *)
  3. (* Demonstration program for Turbo Pascal  *)
  4. (* 4.0 UNIT "PLAYIT".                      *)
  5.  
  6. USES Crt, PlayIt;
  7.  
  8. VAR
  9.   StopChar : Char;
  10. {$L PLAYDEM1.OBJ}
  11. PROCEDURE PlayDem1; EXTERNAL;
  12. {$L PLAYDEM2.OBJ}
  13. PROCEDURE PlayDem2; EXTERNAL;
  14.  
  15. BEGIN
  16.   ClrScr;
  17.   WriteLn('This tune will repeat until you press a key.');
  18.   StopChar := #0;
  19.   REPEAT
  20.     PlayOBJ(@PlayDem1, TRUE, StopChar);
  21.   UNTIL StopChar <> #0;
  22.   WriteLn('You stopped the tune with the "',StopChar,'" key.');
  23.   WriteLn;
  24.   WriteLn('This time the tune will play through even if you DO press a key.');
  25.   PlayOBJ(@PlayDem2, FALSE, StopChar);
  26.   WriteLn('That''s all, folks!');
  27. END.
  28.  
  29.