home *** CD-ROM | disk | FTP | other *** search
/ Sound Sensations! / sound_sensations.iso / misc / creator1 / testwow.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-04-15  |  1.2 KB  |  42 lines
  1. program TestWOW;
  2. (* TestWOW - Demonstration für die Benutzung von WOWTPU.TPU             *)
  3. (* Copyright (c) 1991  Jan Ole Suhr                                     *)
  4. uses WOWTPU
  5.  
  6. var
  7.    SBPort : word;
  8.  
  9.  
  10. (* Während der Abspielphase sollten, wenn möglich, auf bestimmte        *)
  11. (* TurboPascal Routinen verzichtet werden. So z.B. die CRT-Procedure    *)
  12. (* KeyPressed, da sie offensichtlich für bestimmte Zeiten die           *)
  13. (* sperrt und sich daraus ein fürchterliches Leiern ergibt.             *)
  14. function KeyPressed : boolean;
  15. var flag : boolean;
  16. begin
  17.   asm
  18.     mov  Flag,0
  19.     in   al,$60
  20.     test al,128
  21.     jne  @@KeineTaste
  22.     mov  Flag,1
  23.   @@KeineTaste:
  24.   end;
  25.   KeyPressed:=Flag;
  26. end;
  27.  
  28. begin
  29.   (* Test, ob eine Soundblaster im System vorhanden ist *)
  30.   SBPort:=IdentifySB;
  31.   if SBPort=0 then begin   (* bei IdentifySB=0 -> Keine Soundblaster *)
  32.     SBPort:=$42;           (* Lautsprecherausgabe *)
  33.   end;
  34.   (* Start der Ausgaberoutine *)
  35.   doit('c:\sound\mods\africa.mod',SBPort,0,17000);
  36.   (* Nun wird im Hintergrund ausgegeben *)
  37.   repeat
  38.     (* Abbruch, wenn Taste gedrückt oder das Stück zu Ende ist *)
  39.   until (KeyPressed) or (pattern>lastpattern);
  40.   (* Beenden ! Sehr sehr wichtig !!! *)
  41.   endit;
  42. end.