DIM Link$
DIM File$


Link$ = "http://groups.yahoo.com/group/BCX/message/"

FOR INTEGER i = 32401 to 32403'2386
  File$ = Link$ + TRIM$(STR$(i))
  If DOWNLOAD (File$, APPEXEPATH$ & TRIM$(STR$(i))+".htm") then
    PRINT TRIM$(STR$(i)) & " DONE"
  ELSE
    PRINT TRIM$(STR$(i)) & " NOT Successful"
  END IF
  sleep (4000)
NEXT

'************************************************
'THEN, after you have the files, here's a hack to quickly
'convert the Yahoo htm files to plain TEXT files
'**********************************************************************


DIM F$
DIM A$ * 1
DIM B$ * 1
DIM C$ * 1

F$ = FINDFIRST$(APPEXEPATH$ & "*.htm")

WHILE F$ > ""

  REDIM A$ * LOF(F$)
  REDIM B$ * 100000
  REDIM C$ * 100000
  DIM x,y


  OPEN F$ FOR BINARY AS FP1
  GET$ FP1, A$, LOF(F$)
  CLOSE FP1

  x = instr(A$, "Subject:")
  y = instr(A$, "Up Thread", x)

  B$ = MID$(A$,x,y-x)

  REMOVE "</a>"          FROM B$
  REMOVE "<br>"          FROM B$

  REMOVE "</tt>"         FROM B$
  REMOVE "<tt>"          FROM B$
  REMOVE "<tr>"          FROM B$
  REMOVE "<td>"          FROM B$
  REMOVE "</em>"         FROM B$
  REMOVE "</span>"       FROM B$
  REMOVE "</td>"         FROM B$
  REMOVE "</div>"        FROM B$
  REMOVE "<td class="    FROM B$
  REMOVE ENC$("info")    FROM B$
  REMOVE "</tr>"         FROM B$
  REMOVE "</table>"      FROM B$
  REMOVE "<table class=" FROM B$
  REMOVE ENC$("wide")    FROM B$
  REMOVE "cellspacing="  FROM B$
  REMOVE ENC$("0")       FROM B$
  REMOVE "cellpadding="  FROM B$
  REMOVE "<div class="   FROM B$
  REMOVE ENC$("msgarea") FROM B$


  x = INSTR(B$,"<span")
  y = INSTR(B$,"user")

  C$ = MID$(B$,x,y-x)

  REMOVE C$ FROM B$
  REMOVE "class=" FROM B$
  REMOVE "action ygrp-nowrap" FROM B$
  REPLACE "&nbsp;" WITH " " IN B$
  REPLACE "%40" WITH "@" IN B$
  REMOVE "Remove Author" FROM B$
  REMOVE "/group/BCX/ban_members?user=" FROM B$
  REMOVE "| <a href=" FROM B$
  REMOVE "/group/BCX/ban_members?From:" FROM B$
  REMOVE "Ban Author" FROM B$
  REMOVE CHR$(34,34,62) FROM B$

  REPLACE "user=" WITH "From:" in B$
  REPLACE "&lt;"  WITH "<" IN B$
  REPLACE "&gt;"  WITH ">" IN B$
  REPLACE "&quot" WITH CHR$(34) IN B$
  REPLACE "&amp;" WITH "&" IN B$


  x=INSTR(B$,"To unsubscribe")
  C$ = MID$(B$,x,10000)
  REMOVE C$ FROM B$


  FOR INTEGER z = 1 to 5
    x = INSTR(B$, "<a href")
    IF x > 0 THEN
      WHILE B[x] <> 62
        B[x] = 32
        x++
      WEND
    END IF
  NEXT


  x = INSTR(B$,"form-")
  C$ = MID$(B$,x,10000)
  REMOVE C$ FROM B$

  REPLACE "                       " WITH "" IN B$
  REPLACE "   " WITH "" IN B$
  REPLACE " >"  WITH "" IN B$
  REPLACE "In <>" WITH "In " IN B$

  REPLACE SPACE$(80) WITH "" IN B$

  REPLACE ("Subject:" + LF$) WITH "Subject:" in B$

  REPLACE (LF$ + LF$ + LF$) WITH LF$ in B$
  REPLACE (LF$ + LF$ + LF$) WITH LF$ in B$
  REPLACE (LF$ + ">" + LF$ + "From") WITH "From" in B$
  REPLACE (LF$ + ">" + LF$) WITH LF$ IN B$

  B$ = MID$(B$,1,LEN(B$)-2)

  F$ = EXTRACT$(F$,".") + ".txt"

  OPEN F$ FOR OUTPUT AS FP1
  FPRINT FP1, B$
  CLOSE FP1

  F$ = FINDNEXT$

WEND