Table of Contents
Advertisement
TRS-80 Comwters
223
910 RNG = MIDANG%*6.28/360
920 X3 = INT(24*SIN(RNG)+.S) : Y3 = INT(20*COS(RNG))
930 X4 = 24 + X3 : Y4 = 42 + Y3
940 IF (MIDANGI > 70 AND MIDANGX ( 110) THEN 990
950 IF (MIDANGX > 250 AND MIDANGX ( 290) THEN 990
960 IF MIDANG%)270 OR MIDANGX(90 THEN 1010
970 MID$(TEXT$(X4), Y4-LEN(PIECETEXT$(PIECE%)))
=
.
'*
PIECETEXT$(PIECE%)
980 GOT0 1020
990 MID$(TEXT$(X4),Y4-INT(LEN(PIECETEXT$(PIECE%))/
2))=PIECETEXT$(PIECE%)
1000 GOT0 1020
1010 MID$(TEXT$(X4),Y4) = PIECETEXT$(PIECE%)
1020 PREVANG%=ANG%
1030 RETURN
1040 1
1050 'Subroutine to query user for data.
1060 '
1070 CLS: PRINT : PRINT : PRINT :
1080 PRINT "ENTER TITLE FOR CHART";
1085 INPUT CTITLE$
1090 IF LEN(CTITLE$) (= 32 THEN 1110
1100 PRINT "TITLE TOO LONG - 32. CHAR. MAX" : GOT0 1080
1110 SOFAR%= : LFT%=l@@
1120 FOR I=1 TO 24
1130 c~s
1140 PRINT "
ENTER PARAMETERS FOR PIE-CHART"
1150 PRINT "
TOTAL SO FAR :
";
1160 PRINT USING "###";SOFAR%
1170 PRINT "
TOTAL REMAINING: ";
1180 PRINT USING "###";LFT%
1190 PRINT :PRINT :PRINT :PRINT
1200 PRINT "ENTER PERCENTAGE FOR FIELD:
";
1205 INPUT PCT%(I)
1210 IF PCT%(I))LFT% OR PCT%(I)=g THEN PCT%(I)=LFT%
1220 LFT%=LFT%-PCT%(I)
1230 SOFAR%=SOFAR%+PCT%(I)
1240 PRINT :PRINT
1250 PRINT "ENTER DESCRIPTION 0F FIELD: '1;
1255 INPUT PIECETEXT$(I)
1260 IF LEN(PIECETEXT$(I))(l6 THEN 1280
1270 PRINT "FIELD TOO LONG - 15 CHAR. MAX": GOT0 1250
1280 IF LFT%=p GOT0 1300
1290 NEXT I
Advertisement
Table of Contents
