home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / subroutines / sonicboostapd.amos / sonicboostapd.amosSourceCode < prev    next >
AMOS Source Code  |  1990-12-28  |  1KB  |  38 lines
  1. Screen Open 0,320,200,4,Lowres
  2. Screen Open 1,320,154,16,Lowres
  3. Break Off 
  4. Unpack 11 To 1
  5. Screen To Front 1
  6. F=10000
  7. Screen 0 : Paper 0 : Pen 2 : Cls 
  8. Screen 1 : Bob 1,137,104,1
  9. Screen 1 : Bob 2,158,104,1
  10. Screen 0 : Locate 0,20 : Centre "SonicBoost by Chris Hurst."
  11. Screen 0 : Locate 0,21 : Centre "SampleBank Empty." : Curs Off 
  12. Do 
  13.    If Key State(64) Then End 
  14.    If Key State(1) Then Gosub SLOAD
  15.    If Key State(2) Then Gosub SPLAY
  16.    If Key State(3) Then Clear Key : Screen 0 : Locate 0,20 : Cline : Locate 0,21 : Cline : Locate 0,20 : Input "Frequency(Hz)";F : Locate 0,20 : Cline : Locate 0,20 : Print F$ : Curs Off 
  17. Loop 
  18. SLOAD:
  19. Clear Key 
  20. F$=Fsel$("","","Choose a sample")
  21. If F$="" Then Return 
  22. Erase 10
  23. Open In 1,F$
  24. L=Lof(1)
  25. Close 1
  26. Reserve As Chip Work 10,L
  27. Bload F$,Start(10)
  28. Screen 0 : Locate 0,20 : Cline : Locate 0,21 : Cline : Locate 0,20 : Print "Sample:";F$ : Curs Off 
  29. Return 
  30. SPLAY:
  31. Screen 1 : Bob 1,137,104,1
  32. Screen 1 : Bob 2,158,104,1
  33. Channel 1 To Bob 1
  34. Channel 2 To Bob 2
  35. Anim 1,"(1,2)(2,2)(3,2)(4,2)(1,2)"
  36. Anim 2,"(1,2)(2,2)(3,2)(4,2)(1,2)"
  37. Clear Key : Sam Raw 1,Start(10),Length(10),F : Anim On : Wait 10
  38. Return