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: Difference between revisions

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to navigation Jump to search
(Created page with " 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...")
 
(Category)
 
Line 1: Line 1:
  DIM A(255)
  DIM A(255)
 
  SAVESC
  SAVESC
  10000 REM SCREEN TO CASSETTE SUBROUTINE
  10000 REM SCREEN TO CASSETTE SUBROUTINE
Line 26: Line 26:
  11150 NEXT I
  11150 NEXT I
  11160 RETURN
  11160 RETURN
 
  SAVESCMC
  SAVESCMC
  10000 REM SCREEN TO CASSETTE SUBROUTINE
  10000 REM SCREEN TO CASSETTE SUBROUTINE
Line 44: Line 44:
  11070 NEXT I
  11070 NEXT I
  11080 RETURN
  11080 RETURN
[[Category:BASIC]]

Latest revision as of 21:28, 10 September 2015

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