Table of Contents
Advertisement
236
Radix User's Manual
1690 FOR H = 1 TO 11 : MM(H) = 0 : NEXT H
1700 GOSUB 370 : RETURN
1710 '
1720 'Subroutine to perform a ROM copy.
1730 LPRINT CHR$(27) "*" CHR$(pI) j : RETURN
1740 '
1750 'Subroutine to erase query message.
1760 PRINT FNL$(23,5) STRING$(70," "> ;
1770 RETURN
1780 '
1790 'Subroutine to build command string.
1800 RJX$ = CHR$(27) + "*" + CHR$(l)
1810 REC$ = REC$ + CHR$(AS) + CHR$(DESC*l6 + PROWID)
1820 FOR I = 1 TO 11 : REC$ = REC$ + CHR$(MM(I)) : NEXT
I
1830 RETURN
Piechart progmm
p 'Program to print a piechart on the RADIX.
20
'
30 'Initialize program constants.
40 ESC$ = CHR$(27)
: LF$ =CHR$(l@)
50
FF$ = CHR$(12)
: VTAB$ = CHR$(ll)
60 REVFF$ = ESC$ + FF$
70 'Emphasized & expanded modes.
80 TITLE.ON$ = ES@ + "E" + ES@ + "W" + CHR$(l)
90 TITLE.OFF$ = ES@ + "F" + ESC$ + "W" + CHR$(g)
100 '
110 DIM BIT%(l90,36),@(36),PCT%(25)
120 DIM TEXT$(48),PIECETEXT$(25)
130 MASK%(l) = 128
: MASK%(4) = 16
140 MASKX(2) = 64
: MASK%(5) = 8
150 MASKI(3) = 32
: MASK%(6) = 4
160 LX = 20
: LY = 20
170 LXFAC = 190/LX
: LYFAC = 216/LY
180 FOR I= pl TO 48
190 TEXT$(I) = SPACE$(79)
200 NEXT I
210 GOSUB l@pI
220 '
230
1
Plot
curve
2.40 FtAD = 9
250 Xl = 19
: Yl = 10
270 FOR ANGX = 0 TO 360 STEP 12
Advertisement
Table of Contents
