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
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