Luis46coco at 15:07, 13 October 2015

2015-10-13T15:07:15Z

← Older revision		Revision as of 11:07, 13 October 2015
Line 1:		Line 1:
	1 'UTILITY TO TRANSFER EDTASM+		1 'UTILITY TO TRANSFER EDTASM+
			2 'TEXT FILES FROM TAPE TO DISK
	2 'TEXT FILES FROM TAPE TO DISK		3 CLS
			4 PRINT"EDTASM+ SOURCE CODE"
	3 CLS		5 PRINT"FILE TRANSFER UTILITY"
			6 PRINT STRING$(32,"=")
	4 PRINT"EDTASM+ SOURCE CODE"		7 CLEAR500,16308:DEFUSR0=16310
			8 FOR X=16310 TO 16318
	5 PRINT"FILE TRANSFER UTILITY"		9 READ Y:POKE X,Y
			10 NEXT X
	6 PRINT STRING* (32, "=")		11 DATA 173,159,160,4
			12 DATA 173,159,160,6
	7 ~~CLE AR500~~ , ~~1 6308~~ : DEFUSR0= 16310		13 DATA 57
			14 PRINT"ENTER THE NAME OF THE"
	8 FOR X=16310 TO 16318		15 LINEINPUT"TAPE FILE: ";I$
			16 PRINT
	9 READ ~~YIPOKE~~ X,Y		17 PRINT"ENTER THE NAME OF THE"
			18 LINEINPUT"DISK FILE: ";O$
	10 NEXT X		19 AUDIO ON:OPEN"I",#-1,I$
			20 OPEN"0",#1,0$: GOTO 22
	11 DATA 173,159,160,4		21 X=USR(0):MOTOR OFF
			22 IF PEEK(129)>0 THEN 29
	12 DATA 173,159,160,6		23 IF PEEK(124)=255 THEN 30
			24 X*=CHR$(0):X=VARPTR(X$)
	13 DATA 57		25 POKE X,PEEK(125)
			26 POKE X+2,l:P0KE X+3,218
	14 ~~PR I NT~~ "ENTER THE NAME		27 PRINT X$;:PRINT#1,X$;
			28 GOTO 21
	15 ~~LINE INPUT~~ "TAPE FILE:		29 PRINT"?IO ERROR":GOTO 31
			30 PRINT"TRANSFER COMPLETE"
	16 PRINT		31 CLOSE:END

	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

Luis46coco: 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..."

2015-10-13T14:40:35Z

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

New page

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

Transfer EDTASM+ Tape To Disk - Revision history

Luis46coco at 15:07, 13 October 2015

Luis46coco: 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..."