home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / subroutines / sonicblastapd.amos / sonicblastapd.amosSourceCode < prev    next >
AMOS Source Code  |  1990-12-28  |  2KB  |  65 lines
  1. Screen Open 0,320,200,16,Lowres
  2. Break Off 
  3. Hide 
  4. Erase 3
  5. Unpack 10 To 0
  6. Screen Open 1,320,200,16,Lowres
  7. Flash Off 
  8. Curs Off 
  9. Cls 0 : Hide 
  10. Screen To Front 0
  11. A1$="Let A=17;A: If V(0)=0 Jump A; Anim 1,(1,3)(2,3)(3,3)(4,3)(5,3);Jump A;"
  12. A2$="Let A=17;A: If V(1)=0 Jump A; Anim 1,(1,3)(2,3)(3,3)(4,3)(5,3);Jump A;"
  13. A3$="Let A=17;A: If V(2)=0 Jump A; Anim 1,(1,3)(2,3)(3,3)(4,3)(5,3);Jump A;"
  14. A4$="Let A=17;A: If V(3)=0 Jump A; Anim 1,(1,3)(2,3)(3,3)(4,3)(5,3);Jump A;"
  15. Screen 0 : Bob 1,90,17,1
  16. Screen 0 : Bob 2,105,17,1
  17. Screen 0 : Bob 3,120,17,1
  18. Screen 0 : Bob 4,135,17,1
  19. Channel 1 To Bob 1
  20. Channel 2 To Bob 2
  21. Channel 3 To Bob 3
  22. Channel 4 To Bob 4
  23. Amal 1,A1$
  24. Amal 2,A2$
  25. Amal 3,A3$
  26. Amal 4,A4$
  27. Amal On 
  28. Screen 0 : Double Buffer 
  29. Screen 1
  30. Pen 2 : Paper 0
  31. Screen 1 : Locate 0,22 : Print "Tempo: ";T : Curs Off 
  32. TITLE:
  33. Do 
  34. Clear Key 
  35. If Mouse Key=3 Then Music Off : End 
  36. If Key State(64) Then End 
  37. If Mouse Key=1 Then Goto BANKTHATMUSIC
  38. If Mouse Key=2 Then Goto SETTEMPO
  39. Loop 
  40. BANKTHATMUSIC:
  41. F$=""
  42. Clear Key 
  43. Show On 
  44. F$=Fsel$("df0:","","Pick Music")
  45. If F$="" Then Goto TITLE
  46. Load F$
  47. Screen 0 : Bob 1,90,17,1
  48. Screen 0 : Bob 2,105,17,1
  49. Screen 0 : Bob 3,120,17,1
  50. Screen 0 : Bob 4,135,17,1
  51. Screen 1
  52. Pen 2 : Paper 0
  53. Locate 0,20 : Cline : Print F$+"" : Curs Off 
  54. Hide 
  55. Music 1 : Tempo 17 : T=17 : Locate 0,22 : Print "Tempo: ";T;"       "
  56. Goto TITLE
  57. SETTEMPO:
  58. Screen 1
  59. Pen 2 : Paper 0
  60. Locate 0,22 : Input "       Tempo:";T
  61. Locate 0,22 : Print "                     "
  62. Tempo T : Locate 0,22 : Print "Tempo: ";T;"             "
  63. OKAY:
  64. Curs Off 
  65. Goto TITLE