REM Testing BASIC compiler
PRINT "==============================="
PRINT "Test 13: Testing OPEN DIRECTORY"
PRINT "==============================="
PRINT

OPEN "." FOR DIRECTORY AS mydir

REPEAT
    GETFILE f$ FROM mydir
    IF ISTRUE(LEN(f$)) THEN
        PRINT f$
    END IF
UNTIL ISFALSE(LEN(f$))

CLOSE DIRECTORY mydir