Table of Contents
Advertisement
Printing
With Dot Graphics
153
460 LPRINT TITLE$ TITLE.OFF$
470 LPRINT VTAB$ VTAB$ ;
480 FOR I = 0 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 "
.
560 LPRINT ESC$ "K" CHR$( 190) CHR$(0; ;
570 FOR COL% = 1 TO 190
580 PRINT#l, CHR$(BIT%(COL%,ROW%)) j : NEXT
590 PRINT#l, LF$
600
PRINT CHR$(176) CHR$(176);
610 NEXT ROW%
620 LPRINT ES@ "2" FF$
630
Em
640
'
650
'Subroutine to draw a line from X1,Yl to X2,Y2.
660
'
670 XL = X2 - Xl
: YL = Y2 - Yl
680 NX = ABS(XL*LXFAC) : NY = ABS(YL*LYFAC)
690 IFNX ( NY THEN NX = NY
700 NS% = INT(NX+l)
710 DX = XL/NS%
: DY = YL/NS%
720 FOR 1% = 1 TO NS%
730 Xl = Xl + DX
: Yl = Yl + DY
740 GOSUB 780
750 NEXT 1%
760 PRINT CHR$(29) CHR$(205) CHR$(205) CHR$(175);
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.
890 '
Advertisement
Table of Contents
