open "fplist.txt" for input as #1
open "final.bat" for output as #2
getanotha:
if eof(1) then goto byebye
line input #1,currhtml$
itemnopos=instr(currhtml$,"eBay item ")
ishtml=instr(currhtml$,".html")
iscgi=instr(currhtml$,"cgi.ebay.com")
if itemnopos=0 then goto getanotha
if ishtml=0 then goto getanotha
itemnopos=itemnopos+10
itemnoend=instr(itemnopos+1,currhtml$," ")
itemno$=mid$(currhtml$,itemnopos,(itemnoend-itemnopos))
fulpathpos=instr(currhtml$,"->")
fulpath$=left$(currhtml$,fulpathpos-1)
incment=incment+1
incrm$=ltrim$(str$(incment))
comdline$="copy "+chr$(34)+fulpath$+chr$(34)+" "+chr$(34)+"c:\extrac\"+itemno$+"-f-"+incrm$+".html"+chr$(34)
print #2,comdline$
print comdline$
goto getanotha
byebye:
close #1
close #2
end