| MediaWiki:Sitenotice |
|---|
| 2026-03-12: Cocopedia.com is now using a new caching system that should make things faster. Please let me know if you encounter any new issues.
2026-03-15: MediaWiki has been reinstalled and the old database and files restored. It was pretty clogged up from being upgraded so many times since 2004. I am also testing out Cloudflare to see if it can prevent the 'bot assaults that took the site down last year. 2026-03-16: Special thanks to Don Barber for hosting a backup mirror of CoCopedia: https://cocopedia.dgb3.net |
SAVESC
From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to navigationJump to search
DIM A(255)
SAVESC 10000 REM SCREEN TO CASSETTE SUBROUTINE 10010 FOR I=1024 TO 1534 STEP 2 10020 J=(I-1024)/2 10030 A(J)=PEEK(I)*256+PEEK(I+1) 10040 NEXT I 10050 OPEN"O",-1,"DISPLAY" 10060 FOR I=0 TO 255 10070 PRINT#-1,A(I) 10080 NEXT I 10090 CLOSE-1 10100 RETURN 11000 REM CASSETTE TO SCREEN SUBROUTINE 11010 OPEN"I",-1 ,"DISPLAY" 11020 FOR I=0 TO 255 11030 INPUT#-1,A(I) 11040 NEXT I 11050 CLOSE-1 11060 FOR I=1024 TO 1534 STEP 2 11070 J=(I-1024)/2 11120 B=INT(A(J)/(256)) 11130 POKE I,B:A(J)=A(J)-B*256 11140 POKE I+1,A(J) 11150 NEXT I 11160 RETURN
SAVESCMC 10000 REM SCREEN TO CASSETTE SUBROUTINE 10010 FOR I=16384 TO 16894 STEP 2 10020 J=(I-16384)/2 10030 A(J)PEEK(I)*256+PEEK(I+1) 10040 NEXT I 10050 CSAVE*A,"DISPLAY" 10060 RETURN 11000 REM CASSETTE TO SCREEN SUBROUTINE 11010 CLOAD*A,"DISPLAY" 11020 FOR I=16384 TO 16894 STEP 2 11030 J=(I-16384)/2 11040 B=INT(A(J)/(256)) 11050 POKE I,B:A(J)=A(J)-B*256 11060 POKE I+1,A(J) 11070 NEXT I 11080 RETURN
