home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Audio Version 4.94
/
audioversion4.94knowledgemediaresourcelibraryoctober1994.iso
/
msdos
/
music
/
filstruc
/
playdemo.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-04-15
|
724b
|
29 lines
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.