OpenSpec-Review dokumentieren und ISAM-Vertragsabweichungen beheben

tests/compat/isamdateinummern.bas

@@ -0,0 +1,30 @@
+' tb-screen: 80x25
+' tb-tempdir
+' Alle Zugriffsarten teilen dieselben Nummern, auch nach CLOSE und RESET.
+TYPE R
+    Nr AS INTEGER
+END TYPE
+ON ERROR GOTO Handler
+OPEN "nummern.isam" FOR ISAM R "R" AS #1
+PRINT "ISAM="; LTRIM$(STR$(FREEFILE))
+OPEN "ausgabe.txt" FOR OUTPUT AS #2
+OPEN "random.dat" FOR RANDOM AS #3 LEN = 8
+OPEN "binary.dat" FOR BINARY AS #4
+OPEN "ausgabe.txt" FOR INPUT AS #5
+PRINT "gemischt="; LTRIM$(STR$(FREEFILE))
+OPEN "doppelt.txt" FOR OUTPUT AS #1
+OPEN "nummern.isam" FOR ISAM R "R" AS #2
+CLOSE #3
+PRINT "Luecke="; LTRIM$(STR$(FREEFILE))
+OPEN "nummern.isam" FOR ISAM R "R" AS #3
+PRINT "wiederbelegt="; LTRIM$(STR$(FREEFILE))
+CLOSE #1
+PRINT "ISAM frei="; LTRIM$(STR$(FREEFILE))
+OPEN "binary.dat" FOR BINARY AS #1
+PRINT "wiederbelegt="; LTRIM$(STR$(FREEFILE))
+RESET
+PRINT "RESET="; LTRIM$(STR$(FREEFILE))
+END
+Handler:
+PRINT "ERR="; LTRIM$(STR$(ERR))
+RESUME NEXT