e0dcfa0c55
* Remove multiple newlines at the end of file * Remove the white space from the end of line
7 lines
160 B
QBasic
7 lines
160 B
QBasic
10 for i=-8 to 8
|
|
20 x=1+1/3 : y=1 : j=i
|
|
30 for j=i to -1 : x=x/10 : y=y/10 : next
|
|
40 for j=i to 1 step -1 : x=x*10 : y=y*10 : next
|
|
50 print x,y
|
|
60 next
|