Login
Back to forumSee the full topicGo to last reply

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.



Back to top


Copyright © Plus/4 World Team, 2001-2024