Advertisement
rPLOTTER-PRINTERGRAPHIC TOOL
550 '========Printout
560 CLS:PRINT"
**
";SE$(SE>;" **":PRINT:PRINT
T$:PRINT "File NO.
";FO
570 PRINT "record NO.";RS;:IF RI=l THEN PRINT ELS
E PRINT ""'";RE
580 PRINT "item No.
";IS;: IF RI=l THEN PRINT
IE ELSE PRINT
590 ON SE GOTO 600,800,1000,1200
600 '======== PIE Chart
610 GOSUB 1600:ANGLE O:GOSUB 1700
620 LPRINT "050,-45":LPRINT "C0,0,40"
630 A=O:AI=90:J=O
640 FOR I=XS TO XE:R=H<I>*3.6:AB=A:A=A+R
II""'
ti •
'
650 C1=40:C2=90:C3=AB:GOSUB 700:X1=CX:Yl=CY:C2=90
.4:C3=A:GOSUB 700:X2=CX:Y2=CY:C1=35:C2=90:C3=(A-A8)
/2+A8:GOSUB 700:XM=CX:YM=CY
660 LPRINT "J";J MOD 4:LPFdNT "D";Xl;",";Yt:",O,O
, "; X
2; ", " ;
Y2: LF'R I NT "CO, 0, 39, "; 90-A; ", " ; A I
2)
670 LPRINT "M";XM;",";YM:LF'RINT "P";MID$(STR$(I),
680 AI=90-A:J=J+l
690 NEXT !:GOTO
1400
700
710 CX=ROUND(Cl*COS(C2-C3),-3):CY=ROUND<Cl*SIN(C2
-C3),-3):RETURN
800 , _______ _
810 GOSUB 1600:GOSUB 1700:LPRINT "00,-10"
E.120
LPRINT "M0,1.2":LPRINT "PO":LPRINT "M85.2,1.2
":LF'RINT "PlOOi:
11
830 LPRINT "D0.8,0,90.8,0,90.8,-30,,0.8,-30,0.8,0"
840 A=O:J=O:C=0.9
850 FOR I=JS TO XE:S0=1.2:S1=2.4:ZS=MJD$(STR$CI>,
2i
:L=LEN(Z$)
860
Xl=A*C+0.8:A=A+HCI>:X2=A*C+0.6:IF X2-Xl<L•S1
THEN SC=SO ELSE SC=S1
870
XM=!X2-Xl)/2-L/=*SC+Xl:IF L MOD 2<>0 THEN XM=
XM+SC/2
880
IF
I=XE THEN X2=90.8
890 LPRINT "J";,J MOD 4:LPRINT "D";Xl;",-0.2,";X2;
"'.'-(>.2'.' ",;x2; "~-29.CJ'.' "; Xl; "'.'-29.8'.'
11
;X1;
"'.'-().2"
900 LF'RINT "M";XM;",-10":LF'RINT "P";Z$
'rlO J=J+l
920 NEXT l:GOTO 1400
1000
'========
BAR Graph
1010 GOSUB
1 700: GllSUB
HJUO: C=E30/ (
XE->:S+l)
Advertisement
