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.

---
 post.bas | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

(limited to 'post.bas')

diff --git a/post.bas b/post.bas
index 0464a68..f61c3c6 100644
--- a/post.bas
+++ b/post.bas
@@ -4,14 +4,15 @@
 5003 REM         TIT$ Title list
 5004 REM         LC List length
 5005 REM         FINDEX File to build
-5006 REM         HFILE$ Header template
-5007 REM         FFILE$ Footer template
-5008 REM         OUTFILE$ Output file
-5009 REM         LBL$ Template labels
-5010 REM         REPL$ Template 
-5011 REM               replacements
-5012 REM         ILBL Length of template
-5013 REM              labels
+5006 REM         DIREC$ Posts src dir
+5007 REM         HFILE$ Header template
+5008 REM         FFILE$ Footer template
+5009 REM         OUTFILE$ Output file
+5010 REM         LBL$ Template labels
+5011 REM         REPL$ Template 
+5012 REM               replacements
+5013 REM         ILBL Length of template
+5014 REM              labels
 5009 REM ===============================
 5020 OPEN OUTFILE$ FOR OUTPUT AS #13
 
@@ -30,7 +31,7 @@
 5150 PRINT#13, TTEXT$
 
 5500 REM Process textile now
-5510 TFILE$ = SFL$[FINDEX]
+5510 TFILE$ = DIREC$ + "\" + SFL$[FINDEX]
 5520 HFILE$ = "WORK.TMP"
 5530 GOSUB 10000
 5540 OPEN "WORK.TMP" FOR INPUT AS #1
-- 
cgit v1.2.3