Hakemisto: QBasic: Tiedostot: FREEFILE

FREEFILE

'haetaan vapaa tiedostonumero muuttujaan tn
DIM tn AS INTEGER
tn = FREEFILE
PRINT "Tiedoston numero:"; tn
'avataan ja suljetaan tiedosto numeroa käyttäen
OPEN "testi.tmp" FOR BINARY AS #tn
CLOSE #tn