From a0d4ccd465865a4b70be8f4ca254c27f1fd2aaf7 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com>
Date: Tue, 11 Oct 2016 16:22:25 -0400
Subject: Initial commit

---
 txtdir.bas | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 txtdir.bas

(limited to 'txtdir.bas')

diff --git a/txtdir.bas b/txtdir.bas
new file mode 100644
index 0000000..2ab7eb1
--- /dev/null
+++ b/txtdir.bas
@@ -0,0 +1,20 @@
+9000 REM ========================================
+9001 REM Textile-to-html dir processor
+9002 REM 
+9003 REM INPUT - TDIR$   Directory with Textile
+9004 REM         HDIR$   Directory for HTML
+9005 REM ========================================
+9010 TXTDIR$ = TDIR$
+9020 IF RIGHT$(TXTDIR$,1) <> "\" THEN TXTDIR$ = TXTDIR$ + "\"
+9030 DIREC$ = TXTDIR$ + "*.TXT"
+9040 GOSUB 15000
+9050 HTMDIR$ = HDIR$
+9060 IF RIGHT$(HTMDIR$,1) <> "\" THEN HTMDIR$ = HTMDIR$ + "\"
+9070 FOR IC = 1 TO LC
+9080     TFILE$ = TXTDIR$ + FL$(IC)
+9090     HFILE$ = HTMDIR$ + LEFT$(FL$(IC), LEN(FL$)-3) + "HTM"
+9100     GOSUB 10000
+9110 NEXT IC
+9120 RETURN
+
+
-- 
cgit v1.2.3