Just a little something, I doubt you'll find much use for it <grin>:

SCREEN 13
CLS
DO
INPUT "sides:", s%
LOOP UNTIL s% < 32000 AND s% > 0
st = 360 / s%
LINE (160 + (SIN(.0174) * 30), (COS(.0174) * 30) + 100)-(160 + (SIN(.0174) * 30), (COS(.0174) * 30) + 100)
FOR y = 0 TO 360 STEP st
x = y * .017453
LINE -(160 + (SIN(x) * 30), (COS(x) * 30) + 100)
NEXT y
LINE -(160 + (SIN(0) * 30), (COS(0) * 30) + 100)

Cheers,
--
Peter Cooper