From 79c227155bb8fda89c3cd8ff5367687b47a0f074 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Fri, 20 Jun 2025 06:32:41 -0400 Subject: 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. --- txtile.bas | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'txtile.bas') diff --git a/txtile.bas b/txtile.bas index dbc739b..966a032 100644 --- a/txtile.bas +++ b/txtile.bas @@ -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$ = "":POSTOP$="":GOTO 12200 12100 IF LASTOP$ = "##c@" THEN PREOP$ = "":POSTOP$="":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$ = "":POSTOP$="":LINK$="":GOTO 12200 +12110 IF LASTOP$ = "##c"+CHR$(34) AND LINK$ <> "" THEN PREOP$ = "":POSTOP$="":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$ = "":LINK$="":GOTO 12200 -- cgit v1.2.3