home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / demos / vision-41_demo.amos / vision-41_demo.amosSourceCode < prev   
AMOS Source Code  |  1991-07-10  |  2KB  |  70 lines
  1. Rem       ************************************ 
  2. Rem       *                                  * 
  3. Rem       *         Vision 41 Megademo       * 
  4. Rem       *                by                * 
  5. Rem       *            Murray Jones          * 
  6. Rem       *                                  * 
  7. Rem       ************************************ 
  8. Rem
  9. Rem       Sorry, this is only the first part of  
  10. Rem       my Demo, I hope to finish it later 
  11. Rem  
  12. Close Editor 
  13. Flash Off : Curs Off : Hide 
  14. Screen Open 0,320,470,8,Lowres
  15. Screen Display 0,128,48,320,258
  16. Music 1
  17. Unpack 8 To 0
  18. Set Rainbow 0,1,280,"","",""
  19. Rainbow 0,0,0,280
  20. Colour Back 0
  21. Restore RDATA
  22. For C=0 To 279 : Read CVA : Rain(0,C)=CVA
  23. Next C : View 
  24. SCROOLY:
  25. For Y=1 To 214 Step 1
  26. Screen Offset 0,0,Y
  27. Wait Vbl 
  28. Next 
  29. For Y=214 To 1 Step -1
  30. Screen Offset 0,0,Y
  31. Wait Vbl 
  32. Next 
  33. Goto SCROOLY
  34. RDATA:
  35. Data $0,$0,$0,$111,$222,$333,$444,$555
  36. Data $666,$777,$888,$999,$AAA,$BBB,$CCC,$DDD
  37. Data $EEE,$FFF,$FFF,$EEE,$DDD,$CCC,$BBB,$AAA
  38. Data $999,$888,$777,$666,$555,$444,$333,$222
  39. Data $111,$0,$0,$100,$200,$300,$400,$500
  40. Data $600,$700,$800,$900,$A00,$B00,$C00,$D00
  41. Data $E00,$F00,$F00,$E00,$D00,$C00,$B00,$A00
  42. Data $900,$800,$700,$600,$500,$400,$300,$200
  43. Data $100,$0,$0,$10,$20,$30,$40,$50
  44. Data $60,$70,$80,$90,$A0,$B0,$C0,$D0
  45. Data $E0,$F0,$F0,$E0,$D0,$C0,$B0,$A0
  46. Data $90,$80,$70,$60,$50,$40,$30,$20
  47. Data $0,$0,$0,$1,$2,$3,$4,$5
  48. Data $6,$7,$8,$9,$A,$B,$C,$D
  49. Data $E,$F,$F,$E,$D,$C,$B,$A
  50. Data $9,$8,$7,$6,$5,$4,$3,$2
  51. Data $1,$0,$0,$0,$0,$0,$11,$22
  52. Data $33,$44,$55,$66,$77,$88,$99,$AA
  53. Data $BB,$CC,$DD,$EE,$FF,$FF,$EE,$DD
  54. Data $CC,$BB,$AA,$99,$88,$77,$66,$55
  55. Data $44,$33,$22,$11,$0,$0,$0,$0
  56. Data $0,$0,$0,$110,$220,$330,$440,$550
  57. Data $660,$770,$880,$990,$AA0,$BB0,$CC0,$DD0
  58. Data $EE0,$FF0,$FF0,$EE0,$DD0,$CC0,$BB0,$AA0
  59. Data $990,$880,$770,$660,$550,$440,$330,$220
  60. Data $110,$0,$0,$0,$0,$0,$0,$0
  61. Data $0,$0,$101,$202,$303,$404,$505,$606
  62. Data $707,$808,$909,$A0A,$B0B,$C0C,$D0D,$E0E
  63. Data $F0F,$F0F,$E0E,$D0D,$C0C,$B0B,$A0A,$909
  64. Data $808,$707,$606,$505,$404,$303,$202,$101
  65. Data $0,$0,$0,$0,$0,$0,$0,$0
  66. Data $0,$0,$0,$0,$0,$0,$0,$0
  67. Data $0,$0,$0,$0,$0,$0,$0,$0
  68. Data $0,$0,$0,$0,$0,$0,$0,$0
  69. Data $0,$0,$0,$0,$0,$0,$0,$0
  70. Data $0,$0,$0,$0,$0,$0,$0,$0