diff options
| author | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2016-10-18 20:04:41 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2016-10-18 20:04:41 -0400 |
| commit | 2f3562beb4bfe459b14188bad1fe340ba4363cac (patch) | |
| tree | cb5becfdd01430aca7a7fdf96455daed1febc183 /files.bas | |
| parent | f2e2a83641ee0ac1c3d9ec5ef62e7779578935d6 (diff) | |
| download | gwblog-2f3562beb4bfe459b14188bad1fe340ba4363cac.tar.gz gwblog-2f3562beb4bfe459b14188bad1fe340ba4363cac.zip | |
Nearly working code after adding support for directories to file sorting and textile processing.
Diffstat (limited to 'files.bas')
| -rw-r--r-- | files.bas | 12 |
1 files changed, 12 insertions, 0 deletions
@@ -16,6 +16,8 @@ 15075 IF LC > 0 AND MID$(L$,1,1) = " " THEN GOTO 15090 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 @@ -31,3 +33,13 @@ 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 |