' H T M L 2 P M L . B A S
        'a program to convert an HTML file to Palm Markup Language


        OPEN "lb2.pml" FOR INPUT AS 1
        OPEN "lb3.pml" FOR OUTPUT AS 2

        CRLF$ = CHR$(13) + CHR$(10): Q$ = CHR$(34)
       
        DATA 6,</FONT></P>,</P>,<p>,#,<UL>,</UL>
        READ Z
        FOR I = 1 TO Z: READ S$(I): NEXT I

        PRINT #2, "/vTITLE: " + Q$; "Little Brother"; Q$
        PRINT #2, "COPYRIGHT="; Q$; "Creative Commons"; Q$
        PRINT #2, "AUTHOR="; Q$; "Cory Doctrow"; Q$
        PRINT #2,


NextLine:

        LINE INPUT #1, A$
       
       
        IF A$ = "</HTML>" THEN PRINT #2, A$: GOTO EndProg

        FOR I = 1 TO Z
        IF INSTR(A$, S$(I)) THEN GOSUB CutHTML:
        NEXT I



        IF LEN(A$) = 0 THEN PRINT #2, : GOTO NextLine

        PRINT "*"; : PRINT #2, A$; " "; : A = A + 1: GOTO NextLine

       
        IF NOT EOF(1) THEN GOTO NextLine

EndProg:

        CLOSE : PRINT A
        END


CutHTML:

        IF RIGHT$(A$, 11) = S$(1) THEN A$ = LEFT$(A$, LEN(A$) - 11) + CRLF$: PRINT "1";
        IF RIGHT$(A$, 4) = S$(2) THEN A$ = LEFT$(A$, LEN(A$) - 4) + CRLF$: PRINT "2";
        IF LEFT$(A$, 3) = S$(3) THEN A$ = RIGHT$(A$, LEN(A$) - 3): PRINT "3";
        IF INSTR(A$, S$(4)) THEN PRINT A$: A$ = "\w=" + Q$ + "50%" + Q$ + CRLF$: PRINT A$; ":"; A; ":": STOP: PRINT "4";
        IF INSTR(A$, S$(5)) THEN A$ = CRLF$: PRINT A$; ":"; A; ":": PRINT "4";
        IF INSTR(A$, S$(6)) THEN A$ = CRLF$: PRINT A$; ":"; A; ":": PRINT "4";



        RETURN