home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 101-125 / apd107 / rainbow.asc < prev    next >
Text File  |  1991-02-14  |  2KB  |  54 lines
  1. Rem
  2. Rem  * Created with RAINBOW WARRIOR - Amos Copper Generator *
  3. Rem  *  Yup, you can blame good ol' Spadge for this one...  *
  4. Rem
  5. Set Rainbow 0,0, 280,"","",""
  6. Rainbow 0,0, 0, 280 
  7. Colour Back 0
  8. Restore RDATA
  9. For C=0 To  279 : Read CVA : Rain(0,C)=CVA
  10. Next C : View
  11. RDATA:
  12. Data $0,$0,$0,$111,$222,$333,$444,$555
  13. Data $666,$777,$888,$999,$AAA,$BBB,$CCC,$DDD
  14. Data $EEE,$FFF,$FFF,$EEE,$DDD,$CCC,$BBB,$AAA
  15. Data $999,$888,$777,$666,$555,$444,$333,$222
  16. Data $300,$200,$300,$400,$500,$600,$700,$800
  17. Data $900,$A00,$B00,$C00,$D00,$E00,$F00,$F00
  18. Data $E00,$D00,$C00,$B00,$A00,$900,$800,$700
  19. Data $600,$500,$400,$300,$200,$20,$30,$40
  20. Data $50,$60,$70,$80,$90,$A0,$B0,$C0
  21. Data $D0,$E0,$F0,$F0,$E0,$D0,$C0,$B0
  22. Data $A0,$90,$80,$70,$60,$50,$40,$30
  23. Data $30,$0,$1,$2,$3,$4,$5,$6
  24. Data $7,$8,$9,$A,$B,$C,$D,$E
  25. Data $F,$F,$E,$D,$C,$B,$A,$9
  26. Data $8,$7,$6,$5,$4,$3,$2,$1
  27. Data $0,$0,$22,$33,$44,$55,$66,$77
  28. Data $88,$99,$AA,$BB,$CC,$DD,$EE,$FF
  29. Data $FF,$EE,$DD,$CC,$BB,$AA,$99,$88
  30. Data $77,$66,$55,$44,$33,$22,$110,$220
  31. Data $330,$440,$550,$660,$770,$880,$990,$AA0
  32. Data $BB0,$CC0,$DD0,$EE0,$FF0,$FF0,$EE0,$DD0
  33. Data $CC0,$BB0,$AA0,$990,$880,$770,$660,$550
  34. Data $440,$330,$220,$101,$202,$303,$404,$505
  35. Data $606,$707,$808,$909,$A0A,$B0B,$C0C,$D0D
  36. Data $E0E,$F0F,$F0F,$E0E,$D0D,$C0C,$B0B,$A0A
  37. Data $909,$808,$707,$606,$505,$404,$303,$202
  38. Data $111,$222,$333,$444,$555,$666,$777,$888
  39. Data $999,$AAA,$BBB,$CCC,$DDD,$EEE,$FFF,$FFF
  40. Data $EEE,$DDD,$CCC,$BBB,$AAA,$999,$888,$777
  41. Data $666,$555,$444,$333,$222,$300,$200,$300
  42. Data $400,$500,$600,$700,$800,$900,$A00,$B00
  43. Data $C00,$D00,$E00,$F00,$F00,$E00,$D00,$C00
  44. Data $B00,$A00,$900,$800,$700,$600,$500,$400
  45. Data $300,$200,$20,$30,$40,$50,$60,$70
  46. Data $80,$90,$A0,$B0,$C0,$D0,$E0,$F0
  47. Data $F0,$0,$0,$0,$0,$0,$0,$0
  48. Rem
  49. Rem  * Alter the values in the RAINBOW and SET RAINBOW *
  50. Rem  * to position and control the rainbows. See the   *
  51. Rem  * manual to check on Y positioning, Length and    *
  52. Rem  * which colour it is to effect.. Have fun!        *
  53.  
  54.