From 806192fe26b3bc69601c0bc1eeca96a0a9cbf901 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com>
Date: Fri, 21 Oct 2016 15:02:57 -0400
Subject: Added fixes for txtile.bas to properly handle exclamation points

---
 txtile.bas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'txtile.bas')

diff --git a/txtile.bas b/txtile.bas
index cf545a2..0ca914d 100644
--- a/txtile.bas
+++ b/txtile.bas
@@ -46,7 +46,7 @@
 10550     POPSTOP = 0
 
 10600     REM Process the text itself
-10610     LI = 1:LSTART = 1
+10610     LI = 1:LSTART = 1:LASTC$ = " "
 10620     WHILE(LI <= LEN(LTXT$))
 10630         LC$ = MID$(LTXT$, LI, 1)
 10640         IF LC$="_" OR LC$="*" OR LC$=CHR$(34) OR LC$="^" OR LC$="~" OR LC$="@" OR LC$="!" THEN GOTO 10650 ELSE GOTO 10800
@@ -54,11 +54,14 @@
 10660         GOSUB 11200
 10664         REM If we're in a link, suppress any character processing
 10665         IF LCOPT$ <> LASTOP$ AND LASTOP$ = "##c!" THEN GOTO 10800
+10667         REM Links must have a space preceding the !
+10668         IF LC$ = "!" AND LASTC$ <> " " THEN GOTO 10800
 10670         PUSHTXT$ = MID$(LTXT$, LSTART, LI-LSTART):GOSUB 11300
 10680         LSTART=LI+1
 10690         IF LCOPT$ = LASTOP$ AND (LCOPT$ = "##c"+CHR$(34) OR LCOPT$="##c!") AND MID$(LTXT$, LI+1, 1) = ":" THEN GOSUB 11400 ELSE LINK$ = ""
 10700         IF LCOPT$ = LASTOP$ THEN CLEARALL=0:GOSUB 11000 ELSE PUSHTXT$ = LCOPT$:GOSUB 11300
 10800         LI = LI + 1
+10805         LASTC$ = LC$
 10810     WEND
 10820     IF LSTART < LEN(LTXT$) THEN PUSHTXT$=MID$(LTXT$, LSTART):GOSUB 11300
 10830 WEND
@@ -143,8 +146,10 @@
 12080 IF LASTOP$ = "##c^" THEN PREOP$ = "<sup>":POSTOP$="</sup>":GOTO 12200
 12090 IF LASTOP$ = "##c~" THEN PREOP$ = "<sub>":POSTOP$="</sub>":GOTO 12200
 12100 IF LASTOP$ = "##c@" THEN PREOP$ = "<code>":POSTOP$="</code>":GOTO 12200
+12105 IF LASTOP$ = "##c"+CHR$(34) AND CLEARALL=1 THEN PREOP$=CHR$(34):POSTOP$="":GOTO 12200
 12110 IF LASTOP$ = "##c"+CHR$(34) AND LEN(LINK$) > 0 THEN PREOP$ = "<a href='"+LINK$+"'>":POSTOP$="</a>":LINK$="":GOTO 12200
 12120 IF LASTOP$ = "##c"+CHR$(34) THEN PREOP$ = CHR$(34):POSTOP$=CHR$(34):GOTO 12200
+12125 IF LASTOP$ = "##c!" AND CLEARALL=1 THEN PREOP$="!":POSTOP$="":GOTO 12200
 12130 IF LASTOP$ = "##c!" AND LEN(LINK$) > 0 THEN PREOP$ = "<a href='"+LINK$+"'><img src='":POSTOP$="'/></a>":LINK$="":GOTO 12200
 12140 IF LASTOP$ = "##c!" THEN PREOP$ = "<img src='":POSTOP$="'/>":GOTO 12200
 12200 STKPOS = BACKSTK
-- 
cgit v1.2.3