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)

SAVESC

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
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