?login_element?

Subversion Repositories NedoOS

Rev

Rev 411 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
411 alone 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