home *** CD-ROM | disk | FTP | other *** search
/ Between Heaven & Hell 2 / BetweenHeavenHell.cdr / 500 / 456 / testplay.pas < prev    next >
Pascal/Delphi Source File  |  1984-12-16  |  2KB  |  42 lines
  1. program TestPlay;
  2.  
  3. procedure PlayTune ; EXTERNAL 'rktytkty.trb';
  4.  
  5. begin
  6.   GotoXY(32,4);write('THE IRISH BALLAD');
  7.   GotoXY(34,5);write('by Tom Lehrer');
  8.   window(25,7,80,25);       {NOTE:  TURBO 1.0 doesn't do windows--
  9.                              if that's what you have, delete this line
  10.                              and the other window line below.}
  11.   clrScr;
  12.   WriteLn('About a maid I''ll sing a song,');
  13.   WriteLn('Rickety tickety tin.');
  14.   WriteLn('About a maid I''ll sing a song,');
  15.   WriteLn('Who didn''t have her family long--');
  16.   WriteLn('Not only did she do them wrong . . .');
  17.   WriteLn('She did every one of them in, them in,');
  18.   WriteLn('She did every one of them in.');
  19.   PlayTune;
  20.   ClrScr;
  21.   WriteLn('One day when in a fit of pique,');
  22.   WriteLn('Rickety tickety tin');
  23.   WriteLn('One day when in a fit of pique,');
  24.   WriteLn('She drowned her father in the creek.');
  25.   WriteLn('The water tasted bad for a week . . .');
  26.   WriteLn('And they had to make do with the gin, the gin,');
  27.   WriteLn('They had to make do with the gin.');
  28.   PlayTune;
  29.   ClrScr;
  30.   WriteLn('She set her sister''s hair on fire,');
  31.   WriteLn('Rickety tickety tin.');
  32.   WriteLn('She set her sister''s hair on fire,');
  33.   WriteLn('And has the flames and smoke rose higher,');
  34.   WriteLn('She danced around the fun''ral pyre . . .');
  35.   WriteLn('Playing a violin, -olin,');
  36.   WriteLn('Playing a violin.');
  37.   PlayTune;
  38.   window(1,1,80,25);         {NOTE:  TURBO 1.0 doesn't do windows--
  39.                              if that's what you have, delete this line
  40.                              and the other window line above.}
  41.   clrScr;
  42. end.