Table of Contents
Advertisement
240
Radix User's Manual
730
Xl = Xl + DX
: Yl = Yl + DY
740 GOSUB 780
750 NEXT 1%
760 PRINT CHR$(8) "==)";
770 RETURN
780 '
790 'Subroutine to plot a point at Xl,Yl.
800
'
810 XX = Xl * LXFAC
: YY = Yl * LYFAC
820 COLI = INT(XX) + 1
830 ROW% = INT(YY/6)
840 XIT% = INT(YY - ROW% * 6)+1
850 BIT%(COL%,ROW%) = BIT%(COL%,ROW%) OR MASK%(XIT%)
-
860 RETURN
870 '
880 'Subroutine to arrange field descriptions.
;;; ;IDANG%=(ANG%+PREVANG%),2
910 RANG = MIDANG%*6.28/360
920 X3 = INT(24*SIN(RANG)+.5) : Y3 = INT(20*COS(RANG))
930 X4 = 24 + X3
: Y4 = 42 + Y3
940 IF (MIDANGX > 70 AND MIDANGI ( 110) THEN 990
950 IF (MIDANGZ > 250 AND MIDANG% ( 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-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 PRINT CHR$(26) : 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%=0
: AMT.LEFT%=100
1120 FOR I=1 TO 24
1130 PRINT cfwfi(26);
-
Advertisement
Table of Contents
