MediaWiki:Sitenotice:
2024-03-02: The wiki ran out of disk space, so things were not working. This has been resolved by adding another 5GB of quota ;-) Thanks to Tim Lindner for reporting the issues.
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
| 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: 744. Total Files: 994.
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