0 'BALLS.BA author unknown
1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
5 CLEAR500:DEFSTRA:DEFINTI-N
10 CLS:PRINT"Input # of points: ";:LINEINPUTA
15 N=VAL(A):IFN=OTHENMENUELSEIFN<4ORN>32THEN10
20 DIMX(33),Y(33)
25 R=30:Z=360/57.2958/N:CLS
30 FORI=1TON:X(I)=R*COS(Z*(I-1)):Y(I)=R*SIN(Z*(I-1)):NEXTI:X(N+1)=X(1):Y(N+1)=Y(1)
145 FORI=1TON:FORJ=I+1TON
160 X1=X(I)+120:Y1=32-Y(I):X2=X(J)+120:Y2=32-Y(J)
165 LINE(X1,Y1)-(X2,Y2)
170 NEXTJ:NEXTI
200 A=INPUT$(1):RUN