diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2025-06-20 08:21:28 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2025-06-20 08:21:28 -0400 |
| commit | 83561b1acfb603967f0f598adb6f315db0608c33 (patch) | |
| tree | 504d112a9d8c06df8e5631a19299e34e093ff667 /config.bas | |
| parent | 79c227155bb8fda89c3cd8ff5367687b47a0f074 (diff) | |
| download | gwblog-83561b1acfb603967f0f598adb6f315db0608c33.tar.gz gwblog-83561b1acfb603967f0f598adb6f315db0608c33.zip | |
Added convenience routine for looking up a label-replacement pair that remains unused. Fixed the RSS feed a bit for conformance. Added batch commands on windows to strip BASIC EOF character from files after building during the lowercasing step.
Diffstat (limited to 'config.bas')
| -rw-r--r-- | config.bas | 18 |
1 files changed, 17 insertions, 1 deletions
@@ -39,4 +39,20 @@ 24210 WEND 24220 CLOSE #9 24230 RETURN - +24300 REM ============================= +24301 REM Retrieve one config string +24302 REM index +24303 REM +24304 REM INPUT - LBL$ List of labels +24305 REM ILBL # of labels +24306 REM already set +24307 REM SEARCH$ Label to +24308 REM find +24309 REM OUTPUT - IFOUND Index of +24310 REM label or -1 +24311 REM ============================= +24320 FOR IFOUND=1 TO ILBL +24330 IF LBL$(IFOUND) = SEARCH$ THEN GOTO 24360 +24340 NEXT IFOUND +24350 IFOUND = -1 +24360 RETURN |