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