From 2f3562beb4bfe459b14188bad1fe340ba4363cac Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com>
Date: Tue, 18 Oct 2016 20:04:41 -0400
Subject: Nearly working code after adding support for directories to file
 sorting and textile processing.

---
 files.bas | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'files.bas')

diff --git a/files.bas b/files.bas
index 698a725..d6ee3b7 100644
--- a/files.bas
+++ b/files.bas
@@ -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
-- 
cgit v1.2.3