24000 REM ============================
24001 REM Config Entry Counter
24002 REM
24003 REM INPUT - CURDIR$ dir of blog
24003 REM OUTPUT - CFGCNT # of config
24004 REM                 entries
24005 REM ===========================
24010 ON ERROR GOTO 24040
24015 CFGCNT = 0
24020 OPEN CURDIR$+"\config.ini" FOR INPUT AS #9
24030 GOTO 24050
24040 GOTO 24098
24050 WHILE(NOT EOF(9))
24060    LINE INPUT #9, CFGLINE$
24070    IF LEN(CFGLINE$) = 0 OR MID$(CFGLINE$,1,1) = "#" THEN GOTO 24090
24080    CFGCNT = CFGCNT + 1
24090 WEND
24095 CLOSE #9
24098 ON ERROR GOTO 0
24099 RETURN
24100 REM =============================
24101 REM Config file parser
24102 REM
24103 REM INPUT - LBL$ List of labels
24104 REM         REPL$ List of values
24105 REM         ILBL # of labels
24106 REM              already set
24107 REM         CURDIR$ dir of blog
24108 REM =============================
24110 CFGIDX = ILBL
24120 OPEN CURDIR$+"\config.ini" FOR INPUT AS #9
24130 WHILE(NOT EOF(9))
24140    LINE INPUT #9, CFGLINE$
24150    IF LEN(CFGLINE$) = 0 OR MID$(CFGLINE$,1,1) = "#" THEN GOTO 24210
24160    CFGIDX = CFGIDX + 1
24170    EQSIGN = 1:WHILE(MID$(CFGLINE$,EQSIGN,1) <> "="):EQSIGN = EQSIGN + 1:WEND
24180    LBL$[CFGIDX] = MID$(CFGLINE$, 1, EQSIGN-1)
24190    REPL$[CFGIDX] = MID$(CFGLINE$, EQSIGN+1, LEN(CFGLINE$)-EQSIGN)
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