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
Revision as of 15:07, 13 October 2015 by Luis46coco (talk | contribs)
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