REM MULTIGONALS
SCREEN 12:CLS
B=9
DIM F(100),X(100),Y(100)
PI=4*ATN(1)
XC=320:YC=240:KY=(800/(3*640))*(480/200):PAINT(XC,YC),0
R=240
FOR N=1 TO 12
 PRINT "N=";N
  FOR I=1 TO N
    F(I)=2*PI*(I-1)/N
  NEXT I
   FOR I=1 TO N
    GOSUB 2000
  NEXT I
   FOR I=1 TO N
     PSET(X(I),Y(I)),9
   NEXT I
   FOR K=1 TO (N-1)
     FOR M=(K+1) TO N
       LINE(X(M),Y(M))-(X(K),Y(K)),9
     NEXT M
    NEXT K
    SOUND 2000,.2
    LOCATE 22,1:PRINT "PRESS ENTER":LINE INPUT A$
    CLS:PAINT(1,1),0
NEXT N
STOP
2000 X(I)=XC+R*COS(F(I)):Y(I)=YC+KY*R*SIN(F(I)):RETURN