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)

SAVESC

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Revision as of 21:28, 10 September 2015 by Polluks (talk | contribs) (Category)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigation Jump 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