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