Posted By
JamesC on 2003-10-28
| Re: 64HDD bug
In this case some additional code may be required:
1000 INPUT FILENAME$ : FILENAME$=LEFT$(FILENAME$,16) + ",S,R" 1010 DISK=DS : REM ASSIGN DS TO A NEW VARIABLE FOR LATER TESTING 1020 OPEN8,8,8,(FN$) 1030 DISK=DS : REM IF FILE EXISTS THEN DISK = 0, OTHERWISE FILE NOT FOUND 1040 CLOSE 8 1050 IF DISK = 0 THEN PRINT "FILE EXISTS" : GOTO 1000 1060 RETURN (to where the program saves the file)
I am assuming that ST and DS are updated properly when a file is opened for reading.
|