PRINT "string space:"; FRE("")
                           
OPEN "todbidx.txt" FOR INPUT AS #1
OPEN "c:\dbidx.txt" FOR OUTPUT AS #2
     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 - 1)
          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$
          keywords$ = image$
          image$ = ""
          LINE INPUT #1, features$
          LINE INPUT #1, image$
          LINE INPUT #1, imagecaption$
          LINE INPUT #1, imagelink$
          LINE INPUT #1, imagesize$
          LINE INPUT #1, imagealign$
          PRINT features$
          LINE INPUT #1, a$

          PRINT #2, CHR$(9) + type$ + CHR$(9) + "H" + CHR$(9) + category$ + CHR$(9) + CHR$(9) + title$ + CHR$(9) + description$ + CHR$(9) + url$ + CHR$(9) + image$ + CHR$(9) + imagecaption$ + CHR$(9) + imagelink$ + CHR$(9) + imagesize$ + CHR$(9); imagealign$ + CHR$(9) + keywords$ + CHR$(9) + CHR$(9) + author$ + CHR$(9) + CHR$(9) + CHR$(9) + features$ + CHR$(9) + "|";
          PRINT CHR$(9) + type$ + CHR$(9) + "H" + CHR$(9) + category$ + CHR$(9) + title$ + CHR$(9) + description$ + CHR$(9) + url$ + CHR$(9) + image$ + CHR$(9) + imagecaption$ + CHR$(9) + imagelink$ + CHR$(9) + imagesize$ + CHR$(9); imagealign$ + CHR$(9) + keywords$ + CHR$(9) + CHR$(9) + author$ + CHR$(9) + CHR$(9) + features$ + "|"
lloop: LOOP
        

      CLOSE
      END