PROGRAM PlayDemo;
(* copyright (c) 1988 by Neil J. Rubenking *)
(* Demonstration program for Turbo Pascal  *)
(* 4.0 UNIT "PLAYIT".                      *)

USES Crt, PlayIt;

VAR
  StopChar : Char;
{$L PLAYDEM1.OBJ}
PROCEDURE PlayDem1; EXTERNAL;
{$L PLAYDEM2.OBJ}
PROCEDURE PlayDem2; EXTERNAL;

BEGIN
  ClrScr;
  WriteLn('This tune will repeat until you press a key.');
  StopChar := #0;
  REPEAT
    PlayOBJ(@PlayDem1, TRUE, StopChar);
  UNTIL StopChar <> #0;
  WriteLn('You stopped the tune with the "',StopChar,'" key.');
  WriteLn;
  WriteLn('This time the tune will play through even if you DO press a key.');
  PlayOBJ(@PlayDem2, FALSE, StopChar);
  WriteLn('That''s all, folks!');
END.