home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / bus / pchart.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  18 lines
  1. 0 'PCHART.BA - AUTHOR UNKNOWN
  2. 1 'CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 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";
  4. 3 GOSUB 11
  5. 4 A$=INKEY$:IFA$=""THEN4:ELSE RUN
  6. 5 RAD=24:ANG=0:GOSUB16
  7. 6 GOSUB 15:ANG=ANG+.3:IF ANG<P2 THEN 6:ELSE RAD=24:ANG=0:GOSUB15:RETURN
  8. 7 X=RAD*SIN(ANG)+45:Y=RAD*COS(ANG)*.9+32:PSET(X,Y):RETURN
  9. 8 CLS:INPUT"number of entries";N:DIM DA(N):SUM=0:FOR I=1 TO N:PRINT"#";I;:INPUT DA(I):SUM=SUM+DA(I):NEXT I:PRINT "sum = ";SUM:CLS:RETURN
  10. 9 X=24*SIN(ANG)+45:Y=24*COS(ANG)*.9+32:LINE(45,32)-(X,Y):RETURN
  11. 10 A=LA+(ANG-LA)/2:LA=ANG:X=33*SIN(A)+45:Y=33*COS(A)*.9+32:PL=(Y\8)*40+(X\6):A$=CHR$(96+I):PRINT@PL,A$;:RETURN
  12. 11 PL=16:FM$="!:### ##.#%":ON ERROR GOTO 13:FOR I=1TON:W=DA(I)/SUM*100.:PRINT@PL,USING FM$;CHR$(96+I);DA(I);W;:PL=PL+12:IF I MOD 2=0 THEN PL=PL+16
  13. 12 NEXT I:RETURN
  14. 13 IF ERL=6020 THEN RESUME 4
  15. 14 ERROR ERR
  16. 15 OX=X:OY=Y:GOSUB16:LINE(OX,OY)-(X,Y):RETURN
  17. 16 X=24*SIN(ANG)+45:Y=24*COS(ANG)*.9+32:RETURN
  18.