From ef4863661495fd5c8a570b3233eb7581040e69cb Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com>
Date: Sat, 22 Oct 2016 13:20:24 -0400
Subject: Added list of all posts and fixed bugs in link list generation. 
 Added creation of an index file.

---
 post.bas | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)

(limited to 'post.bas')

diff --git a/post.bas b/post.bas
index d4edeeb..2f1ca82 100644
--- a/post.bas
+++ b/post.bas
@@ -93,3 +93,40 @@
 6250 REM And close our post!
 6260 CLOSE #13
 6270 RETURN
+
+6500 REM ===============================
+6501 REM Build a regular page with
+6502 REM known text
+6503 REM INPUT - HTMLTEXT$ Page content
+6504 REM         PTITL$ Page title
+6505 REM         HDRFILE$ Header template
+6506 REM         FTRFILE$ Footer template
+6507 REM         OUTFILE$ Output file
+6508 REM         LBL$ Template labels
+6509 REM         REPL$ Template 
+6510 REM               replacements
+6511 REM         ILBL Length of template
+6512 REM              labels
+6513 REM ===============================
+6520 OPEN OUTFILE$ FOR OUTPUT AS #13
+
+6530 REM Header template right now
+6540 TMPLATE$ = HDRFILE$
+6550 FOR I = 1 TO ILBL
+6560     IF LBL$[I] = "title" THEN REPL$[I] = PTITL$
+6562     IF LBL$[I] = "next" THEN REPL$[I] = ""
+6565     IF LBL$[I] = "previous" THEN REPL$[I] = ""
+6570 NEXT I
+6580 GOSUB 18000
+6590 PRINT#13, TTEXT$
+
+6600 PRINT#13, HTMLTEXT$
+
+6605 REM Process the footer
+6610 TMPLATE$ = FTRFILE$
+6620 GOSUB 18000
+6630 PRINT#13, TTEXT$
+
+6650 REM And close 
+6660 CLOSE #13
+6670 RETURN
-- 
cgit v1.2.3