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