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