home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / demos / pd_03.amos / pd_03.amosSourceCode < prev    next >
AMOS Source Code  |  1978-01-16  |  2KB  |  46 lines
  1. Sprite Off 
  2. Screen Open 0,360,256,4,Lowres : Flash Off : Curs Off : Hide : Palette $0,$CCC,$0,$F0 : Cls 2 : Double Buffer : Autoback 0 : COPPERLIST : Screen Swap 0 : Wait Vbl : COPPERLIST
  3. Screen Open 3,370,50,2,Lowres : Flash Off : Curs Off : Hide : Cls 0 : Colour 1,$FFF : Ink 0 : Screen Hide 3 : Screen Display 3,,300,,
  4. Screen Open 4,370,50,2,Lowres : Flash Off : Curs Off : Hide : Cls 0 : Colour 1,$FFF : Ink 0 : Screen Hide 4 : Screen Display 4,,300,,
  5. Screen Open 5,370,50,2,Lowres : Flash Off : Curs Off : Hide : Cls 0 : Colour 1,$FFF : Colour 0,$0 : Ink 0 : Screen Hide 5 : Screen Display 5,,300,,
  6. Screen Open 6,370,50,2,Lowres : Flash Off : Curs Off : Hide : Cls 0 : Colour 1,$FFF : Ink 0 : Screen Hide 6 : Screen Display 6,,300,,
  7. SPOTS : Screen 0 : Screen To Front 0 : Randomize Timer : Flash 1,"(888,5)(999,5)(AAA,5)(BBB,5)(AAA,5)(999,5)"
  8. Load "PD3Musak.abk" : Music 1 : Tempo $11 : Mvolume 63
  9. Repeat 
  10. Screen Copy 3,0,0,360,50 To Logic(0),0,30,239 : Screen Copy 3,0,0,2,50 To 3,360,0 : Screen Copy 3,0,0,370,50 To 3,-2,0
  11. Screen Copy 4,0,0,360,50 To Logic(0),0,30,239 : Screen Copy 4,0,0,3,50 To 4,360,0 : Screen Copy 4,0,0,370,50 To 4,-3,0
  12. Screen Copy 5,10,0,370,50 To Logic(0),0,165,239 : Screen Copy 3,0,0,2,50 To 5,8,0 : Screen Copy 5,0,0,370,50 To 5,2,0
  13. Screen Copy 6,10,0,370,50 To Logic(0),0,165,239 : Screen Copy 4,0,0,3,50 To 6,7,0 : Screen Copy 6,0,0,370,50 To 6,3,0
  14. Paste Bob 25,100,1
  15. Screen 0 : Screen Swap : Wait Vbl : Cls 2
  16. Until Mouse Key=1
  17. Copper Off : For Z=6 To 3 Step -1 : Screen Close Z : Next Z : Screen Close 0 : For Z=63 To 0 Step -1 : Wait Vbl : Mvolume Z : Next Z : Music Off : Mvolume 63 : Set Rainbow 1,1,16,"","","" : View : Copper On : Run "vucircle.amos"
  18. Procedure COPPERLIST
  19. Set Rainbow 1,2,4096,"","",""
  20. Open In 1,"VUCopper"
  21. Input #1,D
  22. Rain(1,1)=$0 : Rain(1,2)=$0
  23. For Z=1 To 15
  24. Input #1,D : Input #1,D : Input #1,A
  25. Rain(1,Z+15)=A
  26. Rain(1,Z+225)=A
  27. Next Z
  28. For A=1 To 25 : Input #1,D : Next A
  29. For Z=1 To 15
  30. Input #1,D : Input #1,D : Input #1,A
  31. Rain(1,Z+85)=A
  32. Rain(1,Z+150)=A
  33. Next Z
  34. Rainbow 1,2,1,256
  35. Close 1
  36. End Proc
  37. Procedure SPOTS
  38. For A=3 To 6
  39. Screen A
  40. Ink 1
  41. For B=1 To 55
  42. Plot Rnd(359)+11,Rnd(50)
  43. Next B
  44. Next A
  45. Ink 0
  46. End Proc