home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / e / eaudio.lha / eaudio_demo.e < prev    next >
Text File  |  1997-01-05  |  493b  |  29 lines
  1. /* E-Audio demo
  2.    By Peter Gordon
  3.  
  4.    This is pish!!
  5.    
  6.    To test it out, just compile this and type:
  7.    
  8.    eaudio <filename>
  9.    
  10.    And any mousebutton exits :)
  11.    
  12.    Byee!
  13. */
  14.  
  15. MODULE  'eaudio'
  16.  
  17. PROC main()
  18.   DEF sample,samplen
  19.   sample, samplen:=loadRaw(arg)
  20.   IF(sample)
  21.     playData(sample,samplen,13964,CHAN_LEFT1+CHAN_RIGHT1,64)
  22.     WaitTOF()
  23.     exitLoop(CHAN_LEFT1+CHAN_RIGHT1)
  24.     REPEAT;UNTIL Mouse()
  25.     stopChannels(CHAN_LEFT1+CHAN_RIGHT1)
  26.     Dispose(sample)
  27.   ENDIF
  28. ENDPROC
  29.