MediaWiki:Sitenotice:
2025-12-29: I have restored the wiki to a backup from the end of November. Starting in September 2025, accesses went form the 800MB-1.2GB range per month to 26GB in September, 42GB in October, and 70GB in November with most accesses originating from China. As soon as I realized what was causing all the access problems in November, I shut it down (it had reached 36GB by then) behind a password/login screen. The database had gotten corrupted, and I tried a restore from just before the spike in access but that didn't work. Thus, end of November. I still have the other daily backups so if there were any important additions in December, let me know and maybe they can be recovered. - Allen H.
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