Added list of all posts and fixed bugs in link list generation. Added creation of an index file.

1 files changed, 37 insertions, 0 deletions

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