diff options
| author | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2016-10-29 13:37:11 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2016-10-29 13:37:11 -0400 |
| commit | e69b7ccee31b9827536c320ad6c68bda98329f4a (patch) | |
| tree | 6febad7198a7f5b5ca7e913fcfef2b217d1a3824 /txtdir.bas | |
| parent | ef4863661495fd5c8a570b3233eb7581040e69cb (diff) | |
| download | gwblog-e69b7ccee31b9827536c320ad6c68bda98329f4a.tar.gz gwblog-e69b7ccee31b9827536c320ad6c68bda98329f4a.zip | |
Fixed string length issues with template and textile processor routines. Fixed array assignments for building page list. Removed dead txtdir.bas.
Diffstat (limited to 'txtdir.bas')
| -rw-r--r-- | txtdir.bas | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/txtdir.bas b/txtdir.bas deleted file mode 100644 index 2ab7eb1..0000000 --- a/txtdir.bas +++ /dev/null @@ -1,20 +0,0 @@ -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 - - |