0 'PIE.BA Unknown 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 R%=30:OX%=120:OY%=32:C#=3.14159/100:N%=0:CLS:DIMV#(17) 3 PRINT"Enter from 2 to 16 numbers. Hit ENTER twice if less than 16 numbers entered. 4 LINEINPUTQ$:V#(N%+1)=VAL(Q$):IFV#(N%+1)>0ANDN%<16THENN%=N%+1:GOTO4 5 FORI%=1TON%:V#(0)=V#(0)+V#(I%):NEXT:DIMEA%(N%+1):EA%(0)=0:FORI%=1TON%:EA%(I%)=EA%(I%-1)+INT(200*V#(I%)/V#(0)+0.5):NEXT:CLS 6 FORI%=1TON%:GOSUB7:NEXT:PRINT"F4 - Again":PRINT"F8 - MENU":END 7 A%=EA%(I%-1):GOSUB8:LINE(OX%,OY%)-(X%,Y%):FORA%=A%TOEA%(I%):GOSUB8:PSET(X%,Y%):NEXT:LINE(OX%,OY%)-(X%,Y%):RETURN 8 A#=A%*C#:X%=OX%+INT(R%*COS(A#)+0.5):Y%=OY%+INT(R%*SIN(A#)+0.5):RETURN