If I do the following in BASIC:
Code: Select all
10 OPEN2,8,2,"DOESNTEXIST,S,R"
20 GET#2,A$
30 PRINTASC(A$)
40 CLOSE2
Moderator: Moderators
Code: Select all
10 OPEN2,8,2,"DOESNTEXIST,S,R"
20 GET#2,A$
30 PRINTASC(A$)
40 CLOSE2
Code: Select all
10 OPEN2,8,2,"DOESNTEXIST,S,R"
20 GET#2,A$
30 IF (ST AND 64) <> 0 THEN GOSUB 1000
40 CLOSE 2
50 END
1000 PRINT "DOESN'T EXIST"
1010 RETURN
Code: Select all
10 DN=PEEK(186):INPUT"FILE";N$
15 OPEN15,DN,15,"R0:"+N$+"="+N$:DS$=""
20 GET#15,A$:DS$=DS$+A$:IFST=0THEN20
25 CLOSE15:PRINTDS$