16 lines
220 B
Text
16 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
|