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