' 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
