15000 REM ==========================
15001 REM Directory listing
15002 REM
15003 REM INPUT:  DIREC$ - DIRECTORY
15004 REM                  WITH MASK
15004 REM OUTPUT: FL$ - FILE LIST
15005 REM         LC  - FILE COUNT
15006 REM Uses some more modern dir
15007 REM flags to make it work
15009 REM ==========================
15010 SHELL "DIR /B "+DIREC$+" > DIR.LST"
15020 OPEN "DIR.LST" FOR INPUT AS #10
15030 REM COUNT THE FILES FIRST
15040 LC = 0
15050 WHILE(EOF(10) = 0)
15060   LINE INPUT#10, L$
15070   LC = LC + 1
15080 WEND
15090 CLOSE #10
15093 IF C15000 = 1 THEN ERASE FL$
15097 C15000 = 1
15100 DIM FL$(LC)
15110 OPEN "DIR.LST" FOR INPUT AS #10
15120 IC = 1
15130 WHILE(IC <= LC)
15140   LINE INPUT#10, FL$(IC)
15200   IC = IC + 1
15210 WEND
15220 CLOSE #10
15230 SHELL "DEL DIR.LST"
15240 RETURN
15500 REM ==============================
15501 REM Retrieve the current directory
15502 REM OUTPUT - CURDIR$ Current dir
15503 REM ==============================
15510 SHELL "CD > DIR.LST"
15520 OPEN "DIR.LST" FOR INPUT AS #10
15530 LINE INPUT#10, CURDIR$
15540 CLOSE #10
15550 SHELL "DEL DIR.LST"
15560 RETURN