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.
Transfer EDTASM+ Tape To Disk
Jump to navigation
Jump to search
1 'UTILITY TO TRANSFER EDTASM+ 2 'TEXT FILES FROM TAPE TO DISK 3 CLS 4 PRINT"EDTASM+ SOURCE CODE" 5 PRINT"FILE TRANSFER UTILITY" 6 PRINT STRING$(32,"=") 7 CLEAR500,16308:DEFUSR0=16310 8 FOR X=16310 TO 16318 9 READ Y:POKE X,Y 10 NEXT X 11 DATA 173,159,160,4 12 DATA 173,159,160,6 13 DATA 57 14 PRINT"ENTER THE NAME OF THE" 15 LINEINPUT"TAPE FILE: ";I$ 16 PRINT 17 PRINT"ENTER THE NAME OF THE" 18 LINEINPUT"DISK FILE: ";O$ 19 AUDIO ON:OPEN"I",#-1,I$ 20 OPEN"0",#1,0$: GOTO 22 21 X=USR(0):MOTOR OFF 22 IF PEEK(129)>0 THEN 29 23 IF PEEK(124)=255 THEN 30 24 X*=CHR$(0):X=VARPTR(X$) 25 POKE X,PEEK(125) 26 POKE X+2,l:P0KE X+3,218 27 PRINT X$;:PRINT#1,X$; 28 GOTO 21 29 PRINT"?IO ERROR":GOTO 31 30 PRINT"TRANSFER COMPLETE" 31 CLOSE:END