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