ASM

DISK I/O

Determine a free file ID

This is what I use to find an available file number when using the OPEN statement:

CLEAR LOCAL MODE
DIM fnum
LOCAL FN FindUnusedFileRef
fnum = 1
WHILE USR _Fileaddr(fnum)
INC(fnum)
WEND
END FN = fnum