program TestPlay;

procedure PlayTune ; EXTERNAL 'rktytkty.trb';

begin
  GotoXY(32,4);write('THE IRISH BALLAD');
  GotoXY(34,5);write('by Tom Lehrer');
  window(25,7,80,25);       {NOTE:  TURBO 1.0 doesn't do windows--
                             if that's what you have, delete this line
                             and the other window line below.}
  clrScr;
  WriteLn('About a maid I''ll sing a song,');
  WriteLn('Rickety tickety tin.');
  WriteLn('About a maid I''ll sing a song,');
  WriteLn('Who didn''t have her family long--');
  WriteLn('Not only did she do them wrong . . .');
  WriteLn('She did every one of them in, them in,');
  WriteLn('She did every one of them in.');
  PlayTune;
  ClrScr;
  WriteLn('One day when in a fit of pique,');
  WriteLn('Rickety tickety tin');
  WriteLn('One day when in a fit of pique,');
  WriteLn('She drowned her father in the creek.');
  WriteLn('The water tasted bad for a week . . .');
  WriteLn('And they had to make do with the gin, the gin,');
  WriteLn('They had to make do with the gin.');
  PlayTune;
  ClrScr;
  WriteLn('She set her sister''s hair on fire,');
  WriteLn('Rickety tickety tin.');
  WriteLn('She set her sister''s hair on fire,');
  WriteLn('And has the flames and smoke rose higher,');
  WriteLn('She danced around the fun''ral pyre . . .');
  WriteLn('Playing a violin, -olin,');
  WriteLn('Playing a violin.');
  PlayTune;
  window(1,1,80,25);         {NOTE:  TURBO 1.0 doesn't do windows--
                             if that's what you have, delete this line
                             and the other window line above.}
  clrScr;
end.ocess