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

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Revision as of 14:40, 13 October 2015 by 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...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
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 CLE AR500 , 1 6308 : DEFUSR0= 16310

8 FOR X=16310 TO 16318

9 READ YIPOKE X,Y

10 NEXT X

11 DATA 173,159,160,4

12 DATA 173,159,160,6

13 DATA 57

14 PR I NT "ENTER THE NAME

15 LINE INPUT "TAPE FILE:

16 PRINT

17 PR I NT "ENTER THE NAME

18 LINEINPUT"DISK FILE:

19 AUDIO ON: OPEN" I ",#-1.

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