0 'PCHART.BA - AUTHOR UNKNOWN 1 'CLUB 100 LIBRARY - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 DEFSNG A-Z:CLS:P2=3.1416*2:GOSUB 8:GOSUB 5:ANG=0:GOSUB 9:LA=0:FORI=1TON-1:ANG=ANG+P2*DA(I)/SUM:GOSUB9:GOSUB10:NEXTI:ANG=P2:GOSUB10:REM PRINT@287,"Pie Chart"; 3 GOSUB 11 4 A$=INKEY$:IFA$=""THEN4:ELSE RUN 5 RAD=24:ANG=0:GOSUB16 6 GOSUB 15:ANG=ANG+.3:IF ANG