110TEXT:? " Polygon:":? 
120INPUT " How many sides? "; s 
130? " I'm thinking..." 
140REM array of points 
150DIM c(s, 2) 
160 d=90: r=75 
170 sv=360/s 
180FOR p=1 TO s 
190 a=d*(3.1416/180) 
200 c(p, 1)=128+INT(COS(a)*r*.87+.5) 
210 c(p, 2)=80-INT(SIN(a)*r+.5) 
220 d=d+sv 
230NEXT p 
240 c(0, 1)=c(s, 1): c(0, 2)=c(s, 2) 
250REM set up screen 
260HGR:HCOLOR =9 
270? TAB(8); s; 
280? " Sided Figure" 
300REM draw polygon 
310FOR p=1 TO s 
320 sx=c(p, 1): sy=c(p, 2) 
330FOR v=p TO s 
340 dx=c(v, 1): dy=c(v, 2) 
350HPLOT sx, sy TO dx, dy 
360NEXT v 
370NEXT p 
380FOR t=1 TO 2000:NEXT t 
390CLEAR 
400GOTO 110 
                                              
