MediaWiki:Sitenotice:
2025-12-29: I have restored the wiki to a backup from the end of November. Starting in September 2025, accesses went form the 800MB-1.2GB range per month to 26GB in September, 42GB in October, and 70GB in November with most accesses originating from China. As soon as I realized what was causing all the access problems in November, I shut it down (it had reached 36GB by then) behind a password/login screen. The database had gotten corrupted, and I tried a restore from just before the spike in access but that didn't work. Thus, end of November. I still have the other daily backups so if there were any important additions in December, let me know and maybe they can be recovered. - Allen H.

Graphics printer (Rainbow 1981-09)

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Revision as of 08:05, 31 March 2019 by Luis46coco (talk | contribs) (Created page with "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...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigation Jump to search

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