10REM POLYGON
   20REM JOHN A COLL
   30REM VERSION 1 / 16 NOV 81
   40MODE5
   50VDU 19,1,1,0,0,0
   60VDU 19,2,4,0,0,0
   70VDU 19,3,3,0,0,0
   80DIM X(10)
   90DIM Y(10)
  110FOR C=1 TO 2500
  120xorigin=RND(1200)
  130yorigin=RND(1000)
  140VDU29,xorigin;yorigin;
  150radius=RND(300)+50
  160sides=RND(8)+2
  170MOVE radius, 0
  180MOVE 10,10
  200GCOL 0,0
  210FOR SIDE=1 TO sides
  220angle=(SIDE-1)*2*PI/sides
  230X(SIDE)=radius*COS(angle)
  240Y(SIDE)=radius*SIN(angle)
  250MOVE0,0
  260PLOT 85,X(SIDE), Y(SIDE)
  270NEXT SIDE
  280MOVE0,0
  290PLOT 85,radius,0
  310GCOL 0,RND(3)
  320FOR SIDE=1 TO sides
  330FOR line=SIDE TO sides
  340MOVE X(SIDE), Y(SIDE)
  350DRAW X(line), Y(line)
  360NEXT line
  370NEXT SIDE
  380NEXT C