home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
logo
/
winlogo
/
lib
/
poly.bak
< prev
next >
Wrap
Text File
|
1990-06-11
|
140b
|
9 lines
to poly :circumf :sides
make "incr 360 / :sides
make "ctr 0
10 fd :circumf
lt :incr
make "ctr :ctr + 1
if :ctr < :sides [go 10]
end