home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 4 / AUCD4.iso / acornuser / 1998 / jul1998 / regulars / StarInfo / Stoner / SunRays (.txt) < prev   
RISC OS BBC BASIC V Source  |  1998-04-30  |  235b  |  19 lines
  1.  Colour cell growth
  2.  x%=0
  3. x%,255-x%*15,255-x%*15,128+x%*7:
  4.  x%=0 
  5.  1276 
  6. (15):
  7. 69,x%,0:
  8. (15):
  9. 69,0,x%:
  10.  y%=4 
  11.  1020 
  12.  x%=4 
  13.  1276 
  14.  4:c%=((
  15. x%,y%-4)+
  16. x%-2,y%-7))/1.8)
  17. 69,x%,y%:
  18.  x%,y%:g$=
  19.