100 C=180/PI
120 FOR I=0 TO 29
130 R1=12*I/C
140 X1=70+40*COS(R1)
150 Y1=50+40*SIN(R1)
160 FOR J=I+1 TO 30
170 R2=12*J/C
180 X2=70+40*COS(R2)
190 Y2=50+40*SIN(R2)
200 MOVE X1, Y1
210 DRAW X2, Y2
220 NEXT J
230 NEXT I