From e69b7ccee31b9827536c320ad6c68bda98329f4a Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com>
Date: Sat, 29 Oct 2016 13:37:11 -0400
Subject: Fixed string length issues with template and textile processor
 routines.  Fixed array assignments for building page list.  Removed dead
 txtdir.bas.

---
 tmplate.bas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'tmplate.bas')

diff --git a/tmplate.bas b/tmplate.bas
index ca83c31..7f51d35 100644
--- a/tmplate.bas
+++ b/tmplate.bas
@@ -6,17 +6,17 @@
 18005 REM         REPL$ Replacements
 18006 REM         ILBL Label array
 18007 REM              length
-18008 REM OUTPUT - TTEXT$ Text with
+18008 REM         OUTFILE$ File to write
 18009 REM ============================
 18010 OPEN TMPLATE$ FOR INPUT AS #3
-18020 TTEXT$ = ""
+18020 OPEN OUTFILE$ FOR OUTPUT AS #4
 18030 WHILE NOT EOF(3)
 18040     LINE INPUT#3, L$
 18050     GOSUB 18100
-18060     TTEXT$ = TTEXT$ + CHR$(13) + CHR$(10) + L$
+18060     PRINT#4, L$
 18070 WEND
 18080 CLOSE #3
-18085 TTEXT$ = TTEXT$ + CHR$(13) + CHR$(10)
+18085 CLOSE #4
 18090 RETURN
 18100 REM Search for key
 18102 ILSTART = 1
-- 
cgit v1.2.3