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
Jump to navigation
Jump to search
Luis46coco (talk | contribs) (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