9000 REM ========================================
9001 REM Textile-to-html dir processor
9002 REM 
9003 REM INPUT - TDIR$   Directory with Textile
9004 REM         HDIR$   Directory for HTML
9005 REM ========================================
9010 TXTDIR$ = TDIR$
9020 IF RIGHT$(TXTDIR$,1) <> "\" THEN TXTDIR$ = TXTDIR$ + "\"
9030 DIREC$ = TXTDIR$ + "*.TXT"
9040 GOSUB 15000
9050 HTMDIR$ = HDIR$
9060 IF RIGHT$(HTMDIR$,1) <> "\" THEN HTMDIR$ = HTMDIR$ + "\"
9070 FOR IC = 1 TO LC
9080     TFILE$ = TXTDIR$ + FL$(IC)
9090     HFILE$ = HTMDIR$ + LEFT$(FL$(IC), LEN(FL$)-3) + "HTM"
9100     GOSUB 10000
9110 NEXT IC
9120 RETURN