Star Micronics Radix User Manual page 253

Kaypro,Osborne&OtherCP/MComputers
239
280 RANG = ANG%*6.28/360
290 X2 = RAD*COS(RANG)+l0 : Y2 = RAD*SIN(RANG)+l@
300 GOSUB 640
310 NEXT ANGI
320 FOR PIECE% = 1 ~0 NUKBER.PIECES%
330 X1 = 10
: Yl = 10
340 TOTAL.PCT%=TOTAL.PCT%+PCT%(PIECE%)
350 ANG%=36g*TOTAL.PCT%*.pll
360 HANG = ANG%*6.28/360
370 X2 = RAD*COS(RANG)+l@ : Y2 = RAD*SIN(RANG)+lg
1 ;
j, GOSUB
640
390 GOSUB 870
400 NEXT PIECE%
410
'
420 'Send chart title to printer.
440 LPRINT ESC$ "A" CHR$(6) REVFF$ VTAB$ i
450 LPRINT TITLE.ON$ SPACE$(20-LEN(TITLE$)/2
460 LPRINT TITLE$ TITLE.OFF$
470 LPRINT VTAB$ VTAB$ ;
480 FOR I = pl TO 48
490 LPRINT TEXT$(I) : NEXT I
500
'
510 'Send bit image map to printer.
520 LPRINT REVFF$ VTAB$ VTAB$ VTAB$ ;
530 LPRINT LF$ LF$ LF$ LF$ LF$ LF$
540 FOR ROW% = 0 TO 35
550 LPRINT " CRR$(P; .
560 LPRINT ES@ "K" CHR$(l9g)
;
570 FOR COL% = 1 TO 190
580 LPRINT CHR$(BIT%(COL%,ROW%)) ; : NEXT
590 LPRINT
600 PRINT CHR$(l27) CHR$(127);
610 NEXT ROW%
620 LPRINT ESC$ "2" FF$
630
END
640 '
650 'Subroutine to draw a line from Xl,Yl to X2,Y2.
660 '
670 XL = X2 - Xl
: YL = Y2 - Yl
680 NX = ABS(XL*LXFAC) : NY = ABS(YL*LYFAC)
690 IF NX( NY THENNX = NY
700 NS% = INT(NX+l)
710 DX = XL/NS% : DY = YL/NS%
720 FOR 1% = 1 TO NS%