File lesen - und prüfen

Hab ich mal irgendwo aus ner Newsgroup rauskopiert ...

Quote

You might want to try something like the following. Replace {filename}

with the file you're checking for, naturally.

1 open 15,8,15

2 print#15,"r0:{filename}={filename}"

3 input#15,e,e$,t,s

4 if e=62 then print "file does not exist"

5 if e=63 then print "file already exists"

6 close 15

Display More

Aber die Experten schlagen sicher auch gleich noch hier auf

Huch, Kategorie ignoriert, sorry

Quote from Jhonny_Noname

auf was muss nach dem OPEN prüfen?

Du musst nach dem OPEN noch versuchen die Datei zu lesen.

ldx $b8

jsr $ffc6

jsr $ffa5

Danach kannst du das Statusregister $90 überprüfen.

Es enthält $42 bei einem Lesefehler. Also quasi "Datei nicht vorhanden!"

Im "Kernal-ROM" wird es auch so gemacht.