31 lines
880 B
QBasic
31 lines
880 B
QBasic
' 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
|