PRINT "string space:"; FRE("")

OPEN "todb1.txt" FOR INPUT AS #1

     DO UNTIL EOF(1)
          LINE INPUT #1, a$
          IF INSTR("LRA", a$) = 0 THEN STOP
          type$ = a$
          LINE INPUT #1, category$
          LINE INPUT #1, a$
          p = INSTR(a$, "><!--")
          IF p = 0 THEN STOP
          a$ = MID$(a$, p + 5)
          p = INSTR(a$, "--")
          number$ = LEFT$(a$, p - 1)
          p = INSTR(a$, "=" + CHR$(34))
          IF p = 0 THEN STOP
          a$ = MID$(a$, p + 2)
          p = INSTR(a$, CHR$(34) + ">")
          IF p = 0 THEN STOP
          url$ = LEFT$(a$, p - 2)
          p = INSTR(a$, "<strong>")
         
          IF p = 0 THEN STOP
          title$ = MID$(a$, p + 8)
          
          LINE INPUT #1, a$
          LINE INPUT #1, description$
          IF RIGHT$(description$, 11) <> "</font></p>" THEN STOP
          description$ = LEFT$(description$, LEN(description$) - 11)
          LINE INPUT #1, image$
          IF image$ <> "" THEN
            LINE INPUT #1, a$
          END IF
          image$ = ""

          p = INSTR(url$, ".htm")
          ourl$ = LEFT$(url$, p - 1) + "~1.htm"
          url$ = url$ + "l"
          IF url$ = "" THEN STOP
          PRINT url$, ourl$;
          INPUT c$
          OPEN "c:\sites\krishna.org\" + ourl$ FOR OUTPUT AS #3
          OPEN "c:\sites\krishna.org\articles\article.htm" FOR INPUT AS #2
          DO UNTIL EOF(2)
            LINE INPUT #2, a$
            PRINT #3, a$
          LOOP
          CLOSE 3, 2
     LOOP
     CLOSE
     END