home *** CD-ROM | disk | FTP | other *** search
/ Intermedia 1998 January / inter1_98.iso / www / rozi / VOC2.ZIP / DEMO.PAS next >
Pascal/Delphi Source File  |  1997-01-18  |  608b  |  29 lines
  1. uses crt, play;
  2. var voc  : pointer;
  3.     name : string;
  4. begin
  5.  getmem(voc, 65535);
  6.  if paramcount = 1 then
  7.   name := paramstr(1)
  8.  else
  9.   begin
  10.    write('Play voc file (size < 65535!): ');
  11.    readln(name);
  12.   end;
  13.  play_voc(name, voc);
  14.  writeln;
  15.  writeln('Playing, press "P" to pause...');
  16.  repeat
  17.   if keypressed then if (upcase(readkey) = 'P') then
  18.    begin
  19.     dma_pause;
  20.     writeln('Press "C" to continue...');
  21.     repeat
  22.     until upcase(readkey) = 'C';
  23.     writeln('Continuing...');
  24.     dma_continue;
  25.    end;
  26.  until playing_voc;
  27.  writeln('Done...');
  28.  freemem(voc, 65535);
  29. end.