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 /tmplate.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 'tmplate.bas')
| -rw-r--r-- | tmplate.bas | 8 |
1 files changed, 4 insertions, 4 deletions
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 |