Graphics printer (Rainbow 1981-09)

As part of our continuity efforts to help with printer utilities, here is a screen printer for low-res graphics using the COLOR Computer and the LP VII.

This same logic will work with other printers, too. It is a little complicated with the LP VII because of the dot matrix graphics, a$ opposed to plain graphics characters.

If you want a fatter or thinner single graphics "block," just change the first CHR$(3) in Line 12 to another number. This number controls the number of times the dot-line is repeated. You will also have to change the record CHR$(3) in the same line to the value of the first so that the spaces and "blocks" match.

Here is the short program:

10 FOR X=0 TO 127
11 FOR Y=0 TO 63
12 IF POINT(Y,X) TNEN PRIHT#-2,CHR$(18)CHR$(28)CHR$(3)CHR$(255);ELSE PRINT#-2,CHR$(18)CHR$(28)CHR$(3)CHR$(128);
13 NEXT Y
14 PRINT#-2,CHR$(18)
15 NEXTX