Sitenotice:
2020: NameSpaces are going to be implemented this year to better separate content. OS-9 Al (talk) 11:18, 15 April 2020 (CDT)
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

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
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