Subversion Repositories NedoOS

Rev

Rev 411 | Blame | Compare with Previous | Last modification | View Log | Download

  1. 10 gfx 0
  2. 20 cls
  3. 30 let x=10000
  4. 40 let y=0
  5. 50 let c=1
  6. 100 plot 160+x/256,100+y/256,4
  7. 250 let u=x
  8. 260 let v=y
  9. 270 let x=-(u+v/3)
  10. 280 let y=-(v-u/5)
  11. 290 line 160+x/256,100+y/256,c
  12. 291 let c=c+1
  13. 292 if c>15 let c=1
  14. 300 goto 200
  15.