Sitenotice: 11/29/2018: The wiki is back. It turns out, some anti-virus product on my web server had an issue with the latest version of PHP. My server techs have resolved this issue, and things should be working again. During the investigation, I did restore to a backup from September. There is a chance that any changes done since then were lost, but I do not recall any edits. --OS-9 Al

8/30/2016: Massive re-work is being done on the InfoBox Templates. Read that page to keep up with the plan for that, and adding better keyword tags (categories) to all the pages. --OS-9 Al (talk) 15:28, 31 August 2016 (CDT)

Machine tape finder/saver

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to: navigation, 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, Facebook Group or Google+ | Contact me with updates/questions.

This page was last updated on 05/19/2019. Total Pages: 650. Total Files: 937.


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