rPLOTTER-PRINTERGRAPHIC TOOL
104
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)
To Next Page
Loading...
