home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / demos / pd_04.amos / pd_04.amosSourceCode < prev    next >
AMOS Source Code  |  1978-03-03  |  2KB  |  39 lines
  1. Screen Open 0,640,100,4,Lowres : Flash Off : Curs Off : Hide : Cls 0 : Screen Display 0,140,,320,99 : Screen Offset 0,0,1
  2. Screen Open 1,320,136,8,Lowres : Flash Off : Curs Off : Hide : Screen 1 : Cls 0 : Screen Display 1,,110,320,155
  3. Screen 0 : Get Sprite Palette : Screen 1 : Get Palette(0) : For A=4 To 7 : Colour A,$0 : Next A : Screen 0
  4. Paste Bob 1,1,1 : Paste Bob 330,1,2
  5. Screen 1
  6. Palette ,,,,,,,,,,,,,,,,$0,$F00,$B00,$800,$0,$F00,$B00,$800,$0,$F00,$B00,$800,$0,$F00,$B00,$800 : Paper 0
  7. Screen 0 : Colour 1,$AAA : Colour 2,$F0 : Colour 3,$A0 : Screen 1
  8. Ink 4 : Bar 0,1 To 320,11
  9. Ink 5 : Bar 0,14 To 320,24
  10. Ink 6 : Bar 0,27 To 320,37
  11. Ink 7 : Bar 0,40 To 320,50
  12. Load "PD4Musak.abk" : SET_UP2 : Music 1 : Tempo $11 : Mvolume 63
  13. Screen To Front 1
  14. Repeat 
  15. COUNT#=COUNT#+0.015555
  16. X#=Sin(COUNT#)
  17. Screen Offset 0,X#*160+160,0
  18. A=Vumeter(0) : If A>=A1 Then Colour 4,A/4 : A1=A-1
  19. If A<A1 Then Colour 4,A1/4 : Dec A1
  20. B=Vumeter(1) : If B>=B1 Then Colour 5,B/4 : B1=B-1
  21. If B<B1 Then Colour 5,B1/4 : Dec B1
  22. C=Vumeter(2) : If C>=C1 Then Colour 6,C/4 : C1=C-1
  23. If C<C1 Then Colour 6,C1/4 : Dec C1
  24. D=Vumeter(3) : If D>=D1 Then Colour 7,D/4 : D1=D-1
  25. If D<D1 Then Colour 7,D1/4 : Dec D1
  26. Until Mouse Key=1
  27. For Z=1 To 0 Step -1 : Screen Close Z : Next Z : For Z=63 To 0 Step -1 : Wait Vbl : Mvolume Z : Next Z : Music Off : Sprite Off : Mvolume 63 : Run "mcpd2.amos"
  28. Procedure SET_UP2
  29. B$="S: M 0,-20,2 ; M 0,-16,2 ; M 0,-11,2 ; M 0,-7,2 ; M 0,-4,2 ; M 0,-2,2 ; M 0,-1,1 ; P ;"
  30. B$=B$+" M 0,1,1 ; M 0,2,2 ; M 0,4,2 ; M 0,7,2 ; M 0,11,2 ; M 0,16,2 ; M 0,20,2 ; P ; J S"
  31. For X=0 To 7
  32. Sprite X,167+(X*30),230,3
  33. Channel X+2 To Sprite X
  34. Amal X+2,B$
  35. Amal On X+2
  36. Wait 7
  37. Next X
  38. Amal On 1
  39. End Proc