home *** CD-ROM | disk | FTP | other *** search
/ Sound Sensations! / sound_sensations.iso / miscprog / melody16 / plarray.pas < prev    next >
Pascal/Delphi Source File  |  1991-04-13  |  256b  |  16 lines
  1. { Procedure PlayArray plays melody from constant array.
  2.   MAX is the size of the array.}
  3.  
  4. procedure PlayArray;
  5. var
  6.   i : integer;
  7. begin
  8.   for i := 1 to MAX do
  9.   begin
  10.     sound(melody[i,1]);
  11.     delay(melody[i,2]);
  12.     nosound;
  13.   end;
  14. end;
  15.  
  16.