home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / demos / next.amos / next.amosSourceCode
AMOS Source Code  |  1978-01-16  |  2KB  |  58 lines
  1. Screen Open 0,320,32,2,Lowres : Flash Off : Curs Off : Hide : Cls 0 : Colour 1,$FFF : Double Buffer : Autoback OFF : Bob Update Off 
  2. Screen Open 1,350,32,2,Lowres : Flash Off : Curs Off : Hide : Cls 0
  3. Screen Open 2,350,32,2,Lowres : Flash Off : Curs Off : Hide : Cls 0
  4. Screen Open 3,350,32,2,Lowres : Flash Off : Curs Off : Hide : Cls 0
  5. Screen Open 4,320,90,32,Lowres : Curs Off : Flash Off : Hide : Cls 0 : Load Iff "ROBO"
  6. Screen Open 5,320,180,2,Lowres : Curs Off : Flash Off : Hide : Cls 0
  7. Load "musak11.abk"
  8. Set Rainbow 0,1,113,"","",""
  9. Rainbow 0,0,139,113
  10. For C=0 To 112 : Read CVA : Rain(0,C)=CVA
  11. Next C
  12. Data $2CF,$3DF,$4EF,$5EF,$7EF,$8EF,$AEF,$9EF
  13. Data $AF,$11F,$11F,$11F,$11F,$11F,$11F,$11F
  14. Data $11F,$E,$F,$E,$F,$E,$E,$E
  15. Data $E,$D,$E,$D,$E,$D,$D,$D
  16. Data $D,$C,$D,$C,$D,$C,$C,$C
  17. Data $C,$B,$B,$C,$B,$C,$B,$B
  18. Data $B,$A,$B,$A,$B,$A,$A,$A
  19. Data $A,$9,$9,$A,$9,$A,$9,$9
  20. Data $9,$8,$9,$8,$8,$9,$8,$8
  21. Data $8,$7,$8,$7,$8,$7,$7,$7
  22. Data $7,$6,$7,$6,$7,$6,$6,$6
  23. Data $6,$5,$6,$5,$5,$6,$5,$5
  24. Data $5,$4,$4,$5,$4,$5,$4,$4
  25. Data $2CF,$3DF,$4EF,$5EF,$7EF,$8EF,$AEF,$9EF
  26. Data $AF,$11F,$11F,$11F,$11F,$11F,$11F,$11F
  27. Data $11F,$E,$F,$E,$F,$E,$E,$E
  28. Locate 0,0 : Centre "THE MEGADEMO HAS COME TO AN END" : Print 
  29. Centre "AND NOW IT IS TIME TO LOOK" : Print 
  30. Centre "TO THE FUTURE" : Print 
  31. Print : Centre "SO THIS IS A TASTE OF OUR" : Print : Centre "NEXT DEMO"
  32. Print : Centre "IT SHALL BE THE FIRST ONE THE BEST" : Print : Centre "AMIGA ARTIST IN THE WORLD"
  33. Print : Centre "WORKS ON" : Print : Print : Centre "NO THEIVING THIS PICTURE FOR YOUR" : Print 
  34. Centre "OWN STUFF BECAUSE WE ALL KNOW" : Print : Centre "WHERE IT HAS COME FROM"
  35. Print : Centre "SEE YOU ALL NEXT TIME IT SHALL BE WICKED"
  36. Screen Display 5,128,140,320,180
  37. For Z=0 To 3 : Screen Display Z,128,254,320,64 : Next Z
  38. Screen To Front 0
  39. Screen 1
  40. For Z=1 To 30
  41. Plot Rnd(320),Rnd(32)
  42. Next Z
  43. Screen 2
  44. For Z=1 To 25
  45. Plot Rnd(320),Rnd(32)
  46. Next Z
  47. Screen 3
  48. For Z=1 To 20
  49. Plot Rnd(320),Rnd(32)
  50. Next Z
  51. Screen 0
  52. Music 1 : Tempo $11
  53. Do 
  54. Screen Copy 1,0,0,1,32 To 1,320,0 : Screen Copy 1,0,0,350,32 To 1,-1,0
  55. Screen Copy 2,0,0,2,32 To 2,320,0 : Screen Copy 2,0,0,350,32 To 2,-2,0 : Screen Copy 3,0,0,4,32 To 3,320,0 : Screen Copy 3,0,0,350,32 To 3,-4,0
  56. Screen Copy 1,0,0,320,32 To Logic(0),0,0,239 : Screen Copy 2,0,0,320,32 To Logic(0),0,0,239 : Screen Copy 3,0,0,320,32 To Logic(0),0,0,239
  57. Screen Swap 0 : Wait Vbl : Cls 0
  58. Loop