home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / demos / amos_xmasdemo.amos / amos_xmasdemo.amosSourceCode next >
AMOS Source Code  |  1990-08-11  |  1KB  |  42 lines
  1. Rem ***************************************************************  
  2. '   *                                                             *  
  3. '   *  WE ARE SORRY TO HALF MEG USERS BUT DUE TO THE SIZE OF THE  *
  4. '   *  MODULE THIS DEMO WILL NOT RUN ON A UNEXPANDED AMIGA.       *  
  5. '   *  THIS DEMO IS P.D AND CAN BE FREELY DISTRIBUTED PROVIDING   *
  6. '   *  IT REMAINS COMPLETELY INTACT AND UNALTERED.                *
  7. '   *  THANKS TO FRANCOIS LIONET FOR THIS GREAT PROGRAM.          *
  8. '   *                                                             *
  9. '   ***************************************************************
  10. Hide On : Curs Off : Flash Off : Cls 0
  11. Screen Open 0,320,256,32,Lowres
  12. Unpack 5 To 1
  13. Screen 0 : Screen To Front 0 : Get Palette(1)
  14. Flash Off 
  15. Cls 0
  16. Screen 0
  17. Appear 1 To 0,1199
  18. Wait 200
  19. Fade 15 : Wait 225
  20. Screen Open 1,320,256,32,Lowres
  21. Cls 0 : Flash Off 
  22. Unpack 6 To 1
  23. Music 1 : Led Off 
  24. Double Buffer 
  25. Dim Y(4)
  26. Bob 5,110,25,2
  27. Channel 5 To Bob 5
  28. C$="R:M 25,10,25;M 25,-10,25"
  29. C$=C$+"M 25,10,25;M 25,-10,25"
  30. C$=C$+"M-25,10,25;M-25,-10,25"
  31. C$=C$+"M-25,10,25;M-25,-10,25;Jump R:"
  32. Amal 5,C$
  33. Amal On 5
  34. Repeat 
  35. For N=0 To 3
  36. Add Y(N),Vumeter(N)
  37. If Y(N)>64 Then Y(N)=64
  38. If Y(N)>0 Then Add Y(N),-3
  39. If Y(N)<0 Then Y(N)=0
  40. Bob 1+N,68+(N)*64,198-Y(N),$8000+1
  41. Next 
  42. Until Mouse Key