19 lines
394 B
Plaintext
19 lines
394 B
Plaintext
' Emulate ls
|
|
cnt% = 0
|
|
files$ = ""
|
|
OPEN CURDIR$ FOR DIRECTORY AS mydir
|
|
GETFILE myfile$ FROM mydir
|
|
WHILE ISTRUE(LEN(myfile$))
|
|
IF LEFT$(myfile$, 1) != "." THEN
|
|
INCR cnt%
|
|
files$ = APPEND$(files$, cnt%, UNFLATTEN$(myfile$))
|
|
ENDIF
|
|
GETFILE myfile$ FROM mydir
|
|
WEND
|
|
CLOSE DIRECTORY mydir
|
|
IF cnt% > 0 THEN
|
|
FOR f$ IN SORT$(files$)
|
|
PRINT FLATTEN$(f$)
|
|
NEXT
|
|
ENDIF
|