home *** CD-ROM | disk | FTP | other *** search
/ Amiga Computing 57 / ac057b.adf / Utilities / D-Sam / D-Sam-Example.AMOS / D-Sam-Example.amosSourceCode
AMOS Source Code  |  1978-01-10  |  1KB  |  46 lines
  1. 'D-Sam-Example.AMOS    
  2. 'Copyright Az Software 1992  
  3. '
  4. Led On 
  5.  Extension_15_00A8 1,Fsel$("*.*")
  6.  Extension_15_0056 32000
  7. 'Smp Dma Buffer 51200
  8.  Extension_15_00FC 1 To 3
  9.  Extension_15_028C 
  10.  Extension_15_020E 3
  11.  Extension_15_013A 3
  12. While Inkey$=""
  13.    Multi Wait 
  14. Wend 
  15.  Extension_15_014A(3)
  16. Print "smp name = "; Extension_15_030C(1)
  17. Print "smp speed             = "; Extension_15_01EA(1)
  18. Print "smp volume            = "; Extension_15_0206(1)
  19. If Extension_15_03B6(1)=True
  20.   Print "STEREO SAMPLE!!"
  21.   Print "smp left data        = "; Extension_15_038C(1)
  22.   Print "smp right data       = "; Extension_15_03A0(1)
  23.  Else 
  24.   Print "MONO SAMPLE!!"
  25. End If 
  26. 'Print "smp data             = ";Smp Data(1) 
  27. Print "smp length            = "; Extension_15_032C(1)
  28. Print "smp size              = "; Extension_15_031C(1)
  29. If Extension_15_03EA(1)=True
  30.   For I=1 To Extension_15_036C(1)
  31.     Print "smp loop start    ";I;"  = "; Extension_15_033E(1,I)
  32.     Print "smp loop end      ";I;"  = "; Extension_15_0356(1,I)
  33.   Next I
  34.  Else 
  35.   Print "NO SEQUENCE!!"
  36. End If 
  37. Print "smp info              = ";Bin$( Extension_15_03C8(1),8)
  38. Print "smp status            = ";Bin$( Extension_15_03D8(3),8)
  39. Print "smp base              = "; Extension_15_02FE 
  40. If Extension_15_03FE(1)=True
  41.   Print "FADE EXISTS!!"
  42.  Else 
  43.   Print "NO FADE EXISTS!!"
  44. End If 
  45. Print "smp disk error        = "; Extension_15_040E 
  46.  Extension_15_0006