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.
Machine tape finder/saver
| 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: 747. Total Files: 997.
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