home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / graphics / rainbow.amos / rainbow.amosSourceCode
AMOS Source Code  |  1993-08-02  |  1KB  |  60 lines
  1. Rem close screen 0 
  2. Screen Close 0
  3. Rem channel amal 0 to our rainbow
  4. Channel 0 To Rainbow 0
  5. Rem cycle through the rainbow using amal 
  6. REIN$="L: For R0 = 0 To 160 ; Let X=R0 ; Next R0 ; Jump L"
  7. Rem assign amal channel 0 to the control string
  8. Amal 0,REIN$
  9. Rem turn amal on 
  10. Amal On 
  11. Rem reserve a rainbow
  12. Set Rainbow 0,0,160,"","",""
  13. Rem build the rainbow - how it is done appears in at least another 2 
  14. Rem files so I won't bother typing it all in again.
  15. OFFSET=0
  16. CL=$0
  17. For A=0 To 15
  18.    Rain(0,OFFSET)=CL
  19.    Inc OFFSET
  20.    Rain(0,OFFSET)=CL
  21.    Inc OFFSET
  22.    CL=CL+$1
  23. Next 
  24. CL=$F
  25. For A=0 To 15
  26.    Rain(0,OFFSET)=CL
  27.    Inc OFFSET
  28.    Rain(0,OFFSET)=CL
  29.    Inc OFFSET
  30.    CL=CL+$100
  31. Next 
  32. CL=$F0F
  33. For A=0 To 15
  34.    Rain(0,OFFSET)=CL
  35.    Inc OFFSET
  36.    Rain(0,OFFSET)=CL
  37.    Inc OFFSET
  38.    CL=CL-$1
  39. Next 
  40. CL=$F00
  41. For A=0 To 15
  42.    Rain(0,OFFSET)=CL
  43.    Inc OFFSET
  44.    Rain(0,OFFSET)=CL
  45.    Inc OFFSET
  46.    CL=CL+$10
  47. Next 
  48. CL=$FF0
  49. For A=0 To 15
  50.    Rain(0,OFFSET)=CL
  51.    Inc OFFSET
  52.    Rain(0,OFFSET)=CL
  53.    Inc OFFSET
  54.    CL=CL-$110
  55. Next 
  56. Rem display our cycling rainbow
  57. Rainbow 0,0,40,256
  58. Rem make a noise and wait for a keypress 
  59. Boom 
  60. Wait Key