Table of Contents
Advertisement
154
Radix User's Manual
900
MIDANG%=(ANG%+PREvANG%)/~
910 RANG = MIDANG%*6.28/360
920 X3 = INT(24*SIN(RANG)+.S) : Y3 = INT(20*COS(RANG))
930 X4 = 24 + X3
: Y4 = 42 + Y3
940 IF (MIDANGJ > 70 AND MIDANGX ( 110) THEN 990
950 IF (MIDANG% > 250 AND MIDANGI ( 290) THEN 990
960 IF MIDANG%)270 OR MIDANGI(90 THEN 1010
970 MID$(TEXT$(X4),Y&LEN(PIECETEXT$(PIECE%)))
=PIECETEXT$(PIECE%)
980 GOT0 1020
990 MID$(TEXT$( X4) ,Y4-LEN(PIECETEXT$(PIECE%))/2)
=PIECETEXT$(PIECE%)
1000 GOT0 1020
1010 MID$(TEXT$(X4),Y4) = PIECETEXT$(PIECE%)
1020 PREVANG%=ANG%
1030 RETURN
1040 I
lja5p! 'Subroutine to query user for data.
1060 '
1070 CLS: PRINT : PRINT : PRINT :
1080 INPUT "ENTER TITLE FOR CHART: ",TITLE$
1090 IF LEN(TITLE$) (= 40 THEN 1110
1100 PRINT "TITLE TOO LONG - 40 CHAR. MAX" : GOT0 1080
1110 AMT.SOFAR%=@
: AMT.LEFT%=l&J
1120 FOR I=1 TO 24
1130
c~s
1140
PRINT "
ENTER PARAMETERS FOR
PIECHART"
1150 PRINT "
TOTAL SO FAR :
";
1160 PRINT USING "###";AMT.SOFAR%
1170 PRINT "
TOTAL REMAINING: ";
1180 PRINT USING "###";AMT.LEFT%
1190 PRINT :PRINT :PRINT :PRINT
1200 INPUT "ENTER PERCENTAGE FOR FIELD:
",PCT%(I)
1210 IF PCT%(I))AMT.LEFT% OR PCT%(I)=@ THEN
PCT%(I)=AMT.LEFT%
1220 AMT.LEFT%=AMT.LEFT%-PCT%(I)
1230 AMT.SOFAR%=AMT.SOFAR%+PCT%(I)
1240 PRINT :PRINT
1250 INPUT "ENTER DESCRIPTION
OF
FIELD:
",PIECETEXT$(I)
1260 IF LEN(PIECETEXT$(I))(16 THEN 1280
1270 PRINT "FIELD TOO LONG - 15 CHAR. MAX": GOT0 1250
1280 IF AMT.LEFT%=@ THEN 13jiJ0
Advertisement
Table of Contents
