Videoprinter

WELCOME
Looking for CoCo help? If you are trying to do something with your old Color Computer, read this quick reference. Want to contribute to this wiki? Be sure to read this first. This CoCo wiki project was started on October 29, 2004. --OS-9 Al

See Recent Changes. | About this site. | Join the E-Mail List or Facebook Group. | Contact me with updates/questions.

This page was last updated on 05/17/2019. Total Pages: 744. Total Files: 994.

---

Home / Publications / Rainbow / Rainbow 1981 / Rainbow 1981-10 - Videoprinter

---

AND THEY SAID IT COULDN'T BE DONE!

We confess that we asked a lot of people about hard copy out of VIDEOTEX, all the BBS' and whatever other place good ideas and programs might reside.

Radio Shack Computer Center: "We've really asked. You can't do it. You know that both the printer and the modem come out of the same port, anyway, so I just guess it’s one of those things you can't do."

CompuServe: "We've asked. Frankly, a whole lot of people want to be able to get hard copy from their COLOR Computer. But Tandy says there's just no way."

Radio Shack Customer Service: "No, you Can't do that with a COLOR Computer."

Jorge Mir of New Berlin, WS and Al J. Morgan of Pittsfield, MA both found a way. Since there are advantages to both programs, both are reproduced below as separate articles. And, by the way, next month we'll show you how to get the programs you see listed into memory -- without typing them in.

VIDEOPRINTER BY MORGAN

We understand Al Morgan of Pittsfield, MA, has a LP VII for a left hand and an EPSON 80 F/T for a right. At any rate, he's been most interested in getting the most out of the interaction between a COLOR Computer and a printer.

Elsewhere in this issue of the RAINBOW is a print monitor from AI. This time he takes his hand to a VIDEOTEX screen dump.

Writes AI: "For downloading. Jorge Mir's VIDFIX is excellent. but I think his VIDPRINT seemed a little slow compared to what I came up with. Of course, it does have additional capabilities. Maybe the readers could decide."

OK readers. Here is VIDPRINT by Al Morgan. You decide which is best for YOUR application.

The Listing:

1 REM VIDPRINT
2 REM BY AL MORGAN
10 Y=1536:CLS
20 FOR X=2560 TO 16383
30 POKE X-Y,PEEK(X)
40 IF X-Y<>1535 THEN 90
50 Y=Y+512
60 I$=INKEY$: IF I$="" THEN 60
70 IF I$="P" GOSUB 100
80 CLS
90 NEXT X: END
100 L=0:FOR P=1024 TO 1535
110 A=PEEK(P)
120 IF A>90 THEN A=A-64
130 A$=A$+CHR$(A):L=L+1:IF L<>32 THEN 160
140 PRINT#-2,CHR$(16);"23";A$
150 L=0:A$=""
160 NEXT P
170 RETURN

To make this work, you:

First, load VIDEOTEX, but do not EXEC.

Second, type in the command mode: FOR X=2102 TO 2110: POKE X,18: NEXT. This allows the reset key to be pushed to get you back to Basic.

Then, EXEC VIDEOTEX.

Log on, do whatever it is you want, and then go offline. Once your session has ended, press the RESET button on the back of the COLOR Computer. This returns you to Basic.

In command mode, type in PCLEAR1 POKE25,6

You can now use the up and down arrows to "scroll" through the pages in the normal way. When you find a page, you wish to print out, press the "P" key. The page will be copied on the printer.

VIDEOPRINTER BY MIR

Are you one of those people who have been frustrated by not being able to use your printer with the VIDEOTEX program?

Certainly, you can save pages, go offline, and copy everything down. At least that doesn't cost you any CompuServe time charge. But you still have to copy the whole thing by hand -- and sometimes the messages are long.

Jorge Mir contributes the following program which will allow you to print VIDEOTEX.

First, load VIDEOTEX and, before you EXEC it, type in POKE 2103,255 directly from the keyboard. ENTER, that command.

Now, EXEC VIDEOTEX and run it in the normal way. When you are finished with VIDEOTEX and are offline, press the RESET button. This will return you to Basic.

Now, type POKE 25,6 and ENTER it. This will cause Basic to be loaded at HEX location 0601 (and will give you 1.5K more memory if you are using Extended Color Basic). This also reserves a place to load Basic where none of the pages from VIDEOTEX are stored.

Load the Basic program listed below (VIDPRINT). Type RUN and the first page stored from the VIDEOTEX program will appear on the screen. Now you can:

• Type P -- The program will ask for a page number. Type in any number between 6 and 31.A page of that number will appear on the screen.
• Type X -- The page you are viewing will be printed on the printer.
• Type <SPACE> -- The next page will be displayed.
• Type B -- The program goes back to the previous page for display.

If there is "garbage" on the screen, that is the end of saved pages. Just go (B)ack to the previous page.

In order to go back to VIDEOTEX, you will have to reload the program.

PROGRAM LISTING:

1 REM VIDPRINT
2 REM BY JORGE MIR
3 REM
10 PAGE=6:GOTO80
20 A$=INKEY$:IF A$="" THEN 20
30 IF A$=" " THEN PAGE=PAGE+l
40 IF A$="B" THEN PAGE=PAGE-l
50 IF A$="X" THEN 250
60 IF A$="P" THEN INPUT "PAGE";PAGE
70 IF PAGE>31 THEN PAGE=0:GOTO 20
80 FOR F=0 TO 1
90 FOR E=0 TO 1
100 FOR D=0 TO 1
110 FOR C=0 TO 1
120 FOR B=0 TO 1
130 FOR A=0 TO 1
140 IF PAGE=A*32+B*16+C*8+D*4+E*2+F
THEN 160
150 NEXT A,B,C,D,E,F
160 FOR X=65478 TO 65488 STEP 2
170 POKE X,200:NEXT X
180 IF F=1 THEN POKE 65479,100
190 IF E=1 THEN POKE 65481,100
200 IF D=1 THEN POKE 65483,100
210 IF C=l THEN POKE 65485,100
220 IF B=1 THEN POKE 65487,100
230 IF A=1 THEN POKE 65489,100
240 GOTO 20
250 L=0:A$="":P=PAGE*512
260 FOR X=P TO P+511
270 A=PEEK(X)
280 IF A>90 THENA$=A$+CHR$(A): L=L+1:IF L<>32 THEN 320
300 PRINT#-2,A$
310 L=0:A$=""
320 NEXT X:GOTO20

If you have 32K, you can increase the number of pages you can store. Just POKE 2112,58. As Jorge says, "That's all there is to it!"

If you have both 32K and Extended Color Basic, you will be able to store 53 pages total; reenter VIDEOTEX "at any time; and make extra copies of the new VIDEOTEX program.

VIDEOFIX

This is done by running the program called VIDFIX below. First, load VIDEOTEX. Then load VIDFIX. Put a blank tape in the tape recorder and press both "play" and "record" buttons.

Type RUN. When the tape is done you will have five copies of the new program. If you want more or fewer copies, simply make the necessary change in line 70.

VIDFIX moves the VIDEOTEX program into high RAM. You can run VIDEOTEX, use the RESET to return to Basic, and then reenter VIDEOTEX by typing EXEC 30208. That is the new VIDEOTEX address.

PROGRAM LISTING:

1 REM VIDFIX
2 REM BY JORGE MIR
10 A=30208
20 POKE 2103,255
30 POKE 2112,53
40 FOR X=1728 TO 3839
50 POKE A,PEEK(X)
55 PRINT CHR$(PEEK(X));
60 A=A+l:NEXT X
70 FOR X=1 TO 5
80 CSAVEM"VIDEOTEX",30200,32319, 30208
90 MOTOR ON:FOR Z=1 TO:NEXT Z
100 MOTOR OFF:NEXT X:END

Links

See this article as it appeared in the magazine, in Archive.org