blob: 2ab7eb1ccd5323dd5176060d92759ad2834c2bfe (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
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
|
