15 lines
220 B
Text
15 lines
220 B
Text
PRINT "Current directory: ";CURRENT_DIR$()
|
|
PRINT
|
|
PRINT "Folders:"
|
|
PRINT
|
|
DIR "/" LIST DIRS a$,c
|
|
FOR n = 0 TO c-1
|
|
PRINT ,a$(n)
|
|
NEXT n
|
|
PRINT
|
|
PRINT "Files:"
|
|
PRINT
|
|
DIR "/" LIST FILES a$,c
|
|
FOR n = 0 TO c-1
|
|
PRINT ,a$(n)
|
|
NEXT n
|