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
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 CLE AR500 , 1 6308 : DEFUSR0= 16310
8 FOR X=16310 TO 16318
9 READ YIPOKE X,Y
10 NEXT X
11 DATA 173,159,160,4
12 DATA 173,159,160,6
13 DATA 57
14 PR I NT "ENTER THE NAME
15 LINE INPUT "TAPE FILE:
16 PRINT
17 PR I NT "ENTER THE NAME
18 LINEINPUT"DISK FILE:
19 AUDIO ON: OPEN" I ",#-1.
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