Sitenotice:
2020: NameSpaces are going to be implemented this year to better separate content. OS-9 Al (talk) 11:18, 15 April 2020 (CDT)
2020-05-17: If a page gives you an error about some revision not being found, just EDIT the page and the old page should appear in the editor. If it does, just SAVE that and the page should be restored. OS-9 Al (talk) 12:22, 17 May 2020 (CDT)

Machine tape finder/saver

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to navigation Jump to search
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/19/2019. Total Pages: 680. Total Files: 952.


Home / Publications / Rainbow / Rainbow 1981 / Rainbow 1981-12 - Machine tape finder/saver


The short, simple program listed below will allow you to copy machine language programs onto a cassette tape.

10 REM *** FINDER ***
20 CLS
30 PRINT "PROGRAM:"
40 FOR X=474 TO 481
50 Y=PEEK(X):IF Y=32 THEN Y=143
60 POKE X+559,Y
70 NEXT X
80 A=PEEK(487)*256+PEEK(488)
90 I=PEEK(126)*256+PEEK(127)-1
100 C=PEEK(157)*256+PEEK(158)
110 PRINT"       DECIMAL","  HEX"
120 PRINT"       ------","  ---"
130 PRINT"START: "A,"  "HEX$(A)
140 PRINT"  END: "B,"  "HEX$(B)
150 PRINT"ENTRY: "C,"  "HEX$(C)
160 PRINT:INPUT "HOW MANY COPIES OF THIS PROGRAM DO YOU WISH TO MAKE";N
170 IF N=0 THEN END
180 PRINT:INPUT "WAT IS THE TITLE YOU WISH TO  USE FOR THIS PROGRAM";A$
190 A$=LEFTS(AS,8)
200 FOR X=1 TO N
210 CSAVEM A$,A,B,C
220 PRINT@416,"COPY"X"COMPLETE"
230 MOTOR ON
240 FOR Y=l TO 1000:NEXT Y
250 MOTOR OFF
260 NEXT X
270 END

Links

See this article as it appeared in the Rainbow Magazine 1981-12 Pag 12, in archive.org