Table of Contents
Advertisement
152
Radix
User's
Manual
20 '
30
'Initialize program constants.
40
ESC$ = CHR$(27)
: LF$ =CHR$(la)
50
FF$ = CHR$(12)
: VTAH$ = CHR$(ll)
60 REVFF$ = ES@ + FF$
70 'Emphasized & expanded modes.
80 TITLE.ON$ = ESC$ + "E" + ESC$ + "W" + CHR$(l)
90 TITLE.OFF$ = ES@ + "F" + ES@ + "W" + CHR$(pI)
l&J OPEN "LPTl:" AS #l : WIDTH #1,255
110 DIM BIT%(190,36),A$(36),PCT%(25)
120 DIM TEXT$(48),PIECETEXT$(25)
130
MASK%(l) = 64
: MASKI(4) = 8
140 MASK%(2) =
32
: MASK%(S) =
4
150
MASKI(3) = 16
: MASKS(6) = 2
160 LX = 20
: LY = 20
170 LXFAC = 19pI/LX
: LYFAC = 216/LY
180 FOR I= pl TO 48
190 TEXT!!(I) = SPACE$(79)
2&J
NEXT I
210 GOSUB 1040
220 '
230
1 Plot
curve
240 RAD = 9
250 Xl = 19'
: Yl = 10
270 FOR ANG% = 0 TO 360 STEP 12
280 RANG = ANG%*6.28/360
290
X2
= RAD*COS(RANG)+Q : Y2 = RAD*SIN(RANG)+@
300
GOSUB 640
310 NEXT A.NG%
320
FOR PIECE% = 1
~0
NHMHER.PIECES%
330 Xl = 10
: Yl = 10
340
TOTAL.PCT%=TOTAL.PCT%+PCT%(PIECE%)
350 ANG%=360*TOTAL.PCT%*.pll
360
RANG = ANG%*6.28/360
370 X2 = RAD*COS(FtANG)+l0 : Y2 = RAD*SIN(RANG)+l@
380 GOSUB 640
390 GOSUB 870
400 NEXT PIECE%
410 '
420 'Send chart title to printer.
440
LPRINT ESC$ "A" CHR$(6) REVFF$ VTAH$ ;
450
LPRINT TITLE.ON$ SPACE$(2j&LEN(TITLE$)/2)
;
Advertisement
Table of Contents
