diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2025-06-20 06:32:41 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2025-06-20 06:32:41 -0400 |
| commit | 79c227155bb8fda89c3cd8ff5367687b47a0f074 (patch) | |
| tree | cb731df52c743c0129cec404cd358a71a63ca039 /txtile.bas | |
| parent | 2eef1bf3e30b7d1205afd83c31d103f900b35467 (diff) | |
| download | gwblog-79c227155bb8fda89c3cd8ff5367687b47a0f074.tar.gz gwblog-79c227155bb8fda89c3cd8ff5367687b47a0f074.zip | |
Added batch file and files routines for running on modern Windows under PC-Basic. Added textile workaround for PC-Basic bug. Added ability to use long filenames, specifically using html as an extension, if LFN=1 is set, though PC-Basic doesn't allow it anyways.
Diffstat (limited to 'txtile.bas')
| -rw-r--r-- | txtile.bas | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -90,8 +90,9 @@ 11209 REM First search for a match... 11210 FOR LASTI = STKPOS TO 1 STEP -1 11215 IF LEN(STK$(LASTI)) > 3 AND MID$(STK$(LASTI),1,2) = "##" THEN LASTOP$ = STK$(LASTI) ELSE GOTO 11230 -11217 PRINT STK$(LASTI);" VS. ";LCOPT$ -11220 IF LCOPT$ = STK$(LASTI) THEN PRINT"MATCHING ";LASTOP$:RETURN ELSE LASTOP$ = "" +11217 REM PRINT STK$(LASTI);" VS. ";LCOPT$ +11218 REM If below is true, then PRINT"MATCHING ";LASTOP$ +11220 IF LCOPT$ = STK$(LASTI) THEN RETURN ELSE LASTOP$ = "" 11230 NEXT LASTI 11239 REM Just look for the last operator instead 11240 FOR LASTI = STKPOS TO 1 STEP -1 @@ -155,7 +156,7 @@ 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 +12110 IF LASTOP$ = "##c"+CHR$(34) AND LINK$ <> "" 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 |