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

OPEN "todb1.txt" FOR INPUT AS #1
OPEN "c:\db.txt" FOR OUTPUT AS #2
INPUT "how many records to process?", recs

     DO UNTIL EOF(1)
          
          LINE INPUT #1, a$
          IF INSTR("LRA", a$) = 0 THEN STOP
          type$ = a$
          LINE INPUT #1, ddate$
          LINE INPUT #1, category$
          LINE INPUT #1, author$
REM          IF type$ <> "L" THEN LINE INPUT #1, author$
REM          IF type$ = "L" THEN author$ = "Srila Prabhupada"
          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
          OPEN "c:\windows\desktop\krishna.org\" + ourl$ FOR INPUT AS #3
          
        DO UNTIL EOF(3)
          LINE INPUT #3, a$
          IF INSTR(a$, "dockeywords") THEN
            LINE INPUT #3, a$
            IF RIGHT$(a$, 2) <> CHR$(34) + ">" THEN STOP
            p = INSTR(a$, "content=")
            IF p = 0 THEN STOP
            keywords$ = MID$(a$, p + 9)
            keywords$ = LEFT$(keywords$, LEN(keywords$) - 2)
          END IF
          IF INSTR(a$, "/cgi/menu.cgi") THEN
          DO UNTIL INSTR(a$, "#EndEditable")
            LINE INPUT #3, a$

            IF INSTR(LCASE$(a$), "img src=") THEN
              p = INSTR(LCASE$(a$), "img src=")
              s1 = INSTR(a$, "width=")
              s2 = INSTR(a$, "height=")
              s3 = INSTR(s2, a$, " ")
              IF (s1 = 0) OR (s2 = 0) OR (s3 = 0) THEN STOP
              imagesize$ = MID$(a$, s1, s3 - s1)
 REM          PRINT url$, imagesize$
              
              image$ = MID$(a$, p + 9)
              p = INSTR(image$, CHR$(34))
              image$ = LEFT$(image$, p - 1)
              p = INSTR(a$, "align=")
              IF p <> 0 THEN
                a$ = MID$(a$, p + 6)
                p = INSTR(a$, ">")
                t$ = LCASE$(LEFT$(a$, p))
                imagealign$ = ""
                IF INSTR(t$, "left") THEN imagealign$ = "left"
                IF INSTR(t$, "center") THEN imagealign$ = "center"
                IF INSTR(t$, "right") THEN imagealign$ = "right"
                IF INSTR(t$, "top") THEN imagealign$ = "top"

                IF imagealign$ = "" THEN STOP
              END IF
            END IF

            IF INSTR(a$, "/RealAudio/") THEN
              p = INSTR(a$, "/RealAudio/")
              realaudio$ = MID$(a$, p)
              p = INSTR(realaudio$, CHR$(34))
              IF p = 0 THEN STOP
              realaudio$ = LEFT$(realaudio$, p - 1)
            END IF

          LOOP
          GOTO getout
          END IF
        LOOP

getout:   IF INSTR(a$, "Text" + CHR$(34) + " -->") = 0 THEN
            LINE INPUT #3, a$
            GOTO getout
          END IF
            p = INSTR(a$, "Text" + CHR$(34) + " -->")
            a$ = MID$(a$, p + 9)
            IF LTRIM$(a$) = "" THEN LINE INPUT #3, a$

            IF INSTR(LCASE$(a$), "img src=") THEN
              p = INSTR(LCASE$(a$), "img src=")
              chop = p
              
              s1 = INSTR(a$, "width=")
              s2 = INSTR(a$, "height=")
              s3 = INSTR(s2, a$, " ")
              s4 = INSTR(s2, a$, ">")
              IF (s1 = 0) OR (s2 = 0) THEN STOP
              IF (s4 < s3) OR (s3 = 0) THEN s3 = s4
              imagesize$ = MID$(a$, s1, s3 - s1)
REM           PRINT url$, imagesize$
              image$ = MID$(a$, p + 9)
              p = INSTR(image$, CHR$(34))
              image$ = LEFT$(image$, p - 1)
              p = INSTR(a$, "align=")
              IF p <> 0 THEN
                a$ = MID$(a$, p + 6)
                p = INSTR(a$, ">")
                t$ = LCASE$(LEFT$(a$, p))
                imagealign$ = ""
                IF INSTR(t$, "left") THEN imagealign$ = "left"
                IF INSTR(t$, "center") THEN imagealign$ = "center"
                IF INSTR(t$, "right") THEN imagealign$ = "right"
                IF INSTR(t$, "top") THEN imagealign$ = "top"

                IF imagealign$ = "" THEN STOP
              END IF
              IF INSTR(a$, "img src") THEN
                p = INSTR(a$, "img src")
                a$ = MID$(a$, p)
              END IF
              p = INSTR(a$, ">")
              IF p = 0 THEN STOP
              a$ = MID$(a$, p + 1)
            END IF


REM         author$ = ""
            IF INSTR(a$, "<strong> by ") THEN
             p = INSTR(a$, "<strong> by ")
              a$ = MID$(a$, p + 12)
              p = INSTR(a$, "</strong></font></p>")
              IF p = 0 THEN STOP
REM           author$ = LEFT$(a$, p - 1)
              a$ = MID$(a$, p + 20)
           
            END IF
          
           

            PRINT #2, CHR$(9) + type$ + CHR$(9) + "D" + CHR$(9) + category$ + CHR$(9) + "50" + CHR$(9) + title$ + CHR$(9) + description$ + CHR$(9) + url$ + CHR$(9) + image$ + CHR$(9) + CHR$(9) + CHR$(9) + imagesize$ + CHR$(9) + imagealign$ + CHR$(9) + keywords$ + CHR$(9);
            keyword$ = ""
            description$ = ""
            title$ = ""
            PRINT #2, a$;
            DO UNTIL EOF(3)
              LINE INPUT #3, a$
              REM IF INSTR(url$, "00026") THEN PRINT a$
              IF INSTR(a$, "#EndEditable") THEN
                p = INSTR(a$, "#EndEditable")
                a$ = LEFT$(a$, p - 6)
                PRINT #2, a$;
                PRINT #2, CHR$(9);
                dateorder$ = "50"
                IF type$ = "R" THEN dateorder$ = "40"
                IF type$ = "L" THEN dateorder$ = "30"
                PRINT #2, author$ + CHR$(9) + ddate$ + CHR$(9) + dateorder$ + CHR$(9) + realaudio$ + CHR$(9) + "|";
                reccnt = reccnt + 1
             
                realaudio$ = ""
              
                  PRINT url$, dateorder$, description$
                   IF reccnt >= recs THEN GOTO fin
                CLOSE #3
                GOTO lloop
              END IF
              
              PRINT #2, a$
            LOOP
         
lloop: LOOP
        

fin: CLOSE
      END