home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
bus
/
pchart.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
1KB
|
18 lines
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<P2 THEN 6:ELSE RAD=24:ANG=0:GOSUB15:RETURN
7 X=RAD*SIN(ANG)+45:Y=RAD*COS(ANG)*.9+32:PSET(X,Y):RETURN
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
9 X=24*SIN(ANG)+45:Y=24*COS(ANG)*.9+32:LINE(45,32)-(X,Y):RETURN
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
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
12 NEXT I:RETURN
13 IF ERL=6020 THEN RESUME 4
14 ERROR ERR
15 OX=X:OY=Y:GOSUB16:LINE(OX,OY)-(X,Y):RETURN
16 X=24*SIN(ANG)+45:Y=24*COS(ANG)*.9+32:RETURN