home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / various / hearitv1-0.amos / hearitv1-0.amosSourceCode
AMOS Source Code  |  1993-01-08  |  2KB  |  53 lines
  1. Screen Open 0,320,256,16,Lowres
  2. ' ** Hear IT V1.0 **     
  3. ' ** Programmed By Raptor & Zex **     
  4. ' ** Graphix By Zex ** 
  5. Break Off 
  6. Unpack 9 To 1
  7. Reserve Zone 12
  8. Set Zone 1,285,249 To 306,262
  9. Set Zone 2,308,249 To 329,262
  10. Set Zone 3,215,249 To 236,262
  11. Set Zone 4,261,249 To 282,262
  12. Set Zone 5,208,144 To 229,155
  13. Set Zone 6,331,249 To 352,262
  14. Set Zone 7,238,249 To 259,262
  15. Set Zone 8,208,157 To 229,168
  16. Set Zone 9,208,170 To 229,181
  17. ST: Show On 
  18. C1=0 : C2=0 : C3=0 : C4=0
  19. View 
  20. Gosub RB
  21. Limit Mouse 
  22. Repeat 
  23.    Z=Zone(1,X Mouse,Y Mouse) : K=Mouse Key
  24.    If K=1 Then If Z=1 Then Music 1
  25.    If K=1 Then If Z=2 Then Music Off 
  26.    If K=1 Then If Z=3 Then Mvolume 0 : Tempo 0
  27.    If K=1 Then If Z=4 Then Mvolume 50 : Tempo 17
  28.    If K=1 Then If Z=5 Then Music Off : Edit 
  29.    If K=1 Then If Z=6 Then F$=Fsel$("*.Abk","","Load Music ABK") : If F$="" Then K=0 Else Load F$
  30.    If K=1 Then If Z=7 Then Mvolume 0 : Tempo 25
  31.    If K=1 Then If Z=8 Then Led On 
  32.    If K=1 Then If Z=9 Then Led Off 
  33.    V1=Int(Vumeter(0)/5) : V2=Int(Vumeter(1)/5) : V3=Int(Vumeter(2)/5) : V4=Int(Vumeter(3)/5)
  34.    If V1>C1 Then C1=V1
  35.    If V1<C1 and C1>0 Then Dec C1
  36.    If V2>C2 Then C2=V2
  37.    If V2<C2 and C2>0 Then Dec C2
  38.    If V3>C3 Then C3=V3
  39.    If V3<C3 and C3>0 Then Dec C3
  40.    If V4>C4 Then C4=V4
  41.    If V4<C4 and C4>0 Then Dec C4
  42.    Bob 1,82,156,C1 : Bob 2,94,156,C2 : Bob 3,209,156,C3 : Bob 4,221,156,C4
  43. Wait Vbl 
  44. Until False
  45. RB:
  46. '
  47. Set Rainbow 0,1,45,"","","" : Rainbow 0,0,195,45 : Colour Back 0 : Restore RDATA7
  48. For C=0 To 44 : Read CVA : Rain(0,C)=CVA
  49. Next C : View : Return 
  50. RDATA7:
  51. Data $F00,$F00,$F00,$F00,$F00,$F00,$F00,$F00,$F00,$F00,$F00,$F00
  52. Data $FF0,$FF0,$FF0,$FF0,$FF0,$FF0,$FF0,$FF0,$F0,$F0,$F0,$F0,$F0,$F0,$F0
  53. Data $F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0