| MediaWiki:Sitenotice |
|---|
| 2026-03-12: Cocopedia.com is now using a new caching system that should make things faster. Please let me know if you encounter any new issues.
2026-03-15: MediaWiki has been reinstalled and the old database and files restored. It was pretty clogged up from being upgraded so many times since 2004. I am also testing out Cloudflare to see if it can prevent the 'bot assaults that took the site down last year. 2026-03-16: Special thanks to Don Barber for hosting a backup mirror of CoCopedia: https://cocopedia.dgb3.net |
Transfer EDTASM+ Tape To Disk: Difference between revisions
From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to navigationJump 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 11: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
