home *** CD-ROM | disk | FTP | other *** search
/ Intermedia 1998 January / inter1_98.iso / www / rozi / MOD2.ZIP / VPLAY.PAS < prev    next >
Pascal/Delphi Source File  |  1995-05-20  |  1KB  |  73 lines
  1.  
  2.  Uses VOCs, XMSDrv, Crt;
  3.  
  4.  Var
  5.   Test1, Test2: VOCDataRec;
  6.  
  7.  Begin
  8.   If StatusWord = $8000 Then Halt(1);
  9.  
  10.   WriteLn;
  11.   WriteLn('Demonstration for VOCS.TPU');
  12.   WriteLn;
  13.  
  14.   If (MemAvail < 114000) OR (XMSAddr = NIL) OR (EMBAvail < 246) Then
  15.   Begin
  16.    WriteLn('Not enough memory.');
  17.    WriteLn('Needed: 114 kB base mem, 246 kB XMS');
  18.    WriteLn;
  19.    Halt(1);
  20.   End;
  21.  
  22.   WriteLn('Memory data: base -> ', MemAvail, ' Bytes, XMS -> ', EMBAvail, ' kB.');
  23.   WriteLn;
  24.  
  25.   Write('Loading TEST1.VOC: ');
  26.   If LoadVOC('VPLAY.DAT', 0, RAM, Test1) <> 0 Then
  27.   Begin
  28.    WriteLn('Failed!');
  29.    Halt(1);
  30.   End;
  31.   WriteLn('Done!');
  32.  
  33.   Write('Loading TEST2.VOC: ');
  34.   If LoadVOC('VPLAY.DAT', 47724, XMS, Test2) <> 0 Then
  35.   Begin
  36.    WriteLn('Failed!');
  37.    FreeVOC(Test1);
  38.    Halt(1);
  39.   End;
  40.   WriteLn('Done!');
  41.  
  42.   WriteLn;
  43.   Write('Playing TEST1.VOC from base mem...');
  44.  
  45.   Speaker(ON);
  46.  
  47.   PlayVOC(Test1);
  48.   Repeat Until StatusWord = 0;
  49.   WriteLn('Done!');
  50.  
  51.   Write('Playing TEST2.VOC from XMS...');
  52.   PlayVOC(Test2);
  53.  
  54.   Delay(5000);
  55.  
  56.   BreakVOC;
  57.   Write('Ooops, a little break. Press a key...');
  58.   ReadKey;
  59.   ContiVOC;
  60.  
  61.   Repeat Until StatusWord = 0;
  62.   WriteLn('Done!');
  63.   WriteLn;
  64.  
  65.   Speaker(OFF);
  66.   ResetDrv;
  67.  
  68.   FreeVOC(Test1); FreeVOC(Test2);
  69.  
  70.   WriteLn('Memory data: base -> ', MemAvail, ' Bytes, XMS -> ', EMBAvail, ' kB.');
  71.   WriteLn;
  72.  End.
  73.