// in reg 105 muss beim Aufruf die FC-Nummer stehen!

CallF(103, "HTML2TXT.VDM")

Reg_Set(103, FILE_ONLY)   // "index"

BoF
Search("Last modified", NOERR)
if (! Error_Match) {
  Line(1)
  Del_Block(0,Cur_Pos)
}
Search("|<Apache", NOERR)
if (! Error_Match) {
  Del_Line(1)
}
Replace("|<|[|W]|N","", BEGIN+ALL+NOERR)
Replace("|<|[|W]","", BEGIN+ALL+NOERR)
Replace("|<|*/ |*|N","", BEGIN+ALL+NOERR)

BoF
Search("|D|D-|A|A|A-|D|D|D|D", NOERR)
if (! Error_Match) {
  #103=Cur_Pos
  #104=Cur_Col
  Replace_Block("Jan", "01", #103, File_Size, BEGIN+ALL+NOERR+COLSET, #104, #104+7)
  Replace_Block("Feb", "02", #103, File_Size, BEGIN+ALL+NOERR+COLSET, #104, #104+7)
  Replace_Block("Mar", "03", #103, File_Size, BEGIN+ALL+NOERR+COLSET, #104, #104+7)
  Replace_Block("Apr", "04", #103, File_Size, BEGIN+ALL+NOERR+COLSET, #104, #104+7)
  Replace_Block("May", "05", #103, File_Size, BEGIN+ALL+NOERR+COLSET, #104, #104+7)
  Replace_Block("Jun", "06", #103, File_Size, BEGIN+ALL+NOERR+COLSET, #104, #104+7)
  Replace_Block("Jul", "07", #103, File_Size, BEGIN+ALL+NOERR+COLSET, #104, #104+7)
  Replace_Block("Aug", "08", #103, File_Size, BEGIN+ALL+NOERR+COLSET, #104, #104+7)
  Replace_Block("Sep", "09", #103, File_Size, BEGIN+ALL+NOERR+COLSET, #104, #104+7)
  Replace_Block("Oct", "10", #103, File_Size, BEGIN+ALL+NOERR+COLSET, #104, #104+7)
  Replace_Block("Nov", "11", #103, File_Size, BEGIN+ALL+NOERR+COLSET, #104, #104+7)
  Replace_Block("Dec", "12", #103, File_Size, BEGIN+ALL+NOERR+COLSET, #104, #104+7)

  Goto_Pos(#103)
  Sort_Merge("#103+6,#103+10;#103+3,#103+5;#103,#103+2", Cur_Pos, File_Size)
}
BoF           
Update

File_Save(NOMSG)    // index.txt

if (File_Exist("|@(103)-choice-last.txt")) {
  #105=Buf_Num
  File_Open("|@(103)-choice-last.txt")
  EoF
  repeat(ALL) {
    Line(-1, NOERR+ERRBREAK)
    if (! At_EoL) {
      break
    }
  }
  Reg_Copy(104,1)
  Buf_Quit(OK)
  Buf_Switch(#105)
  if (Reg_Size(104) > 0 ) {
    Search("|@(104)", NOERR+ADVANCE)
  }
  Update
}

Dialog_Input_1(1,"`Info`, 
`The cursor is placed after the last downloaded file (if possible).
Please now delete all unwanted lines and 
then return to command mode with Ctrl-E.

(No other intermediate macros, please!)`", 
APP+CENTER,0,0) 
Visual(0)
File_Save_AS("|@(103)-choice.txt", NOMSG+OK)


Replace(" |*|>","", BEGIN+ALL+NOERR)
BoF
while (! At_EoF) {
  IT("http://ftp-stud.fht-esslingen.de/pub/Mirrors/fedora.redhat.com/linux/core/updates/")
  Reg_Ins(105) 
  IT("/i386/")
  Line(1, NOERR)
}             
File_Save_AS("|@(103)-wget.txt", NOMSG+OK)
//Reg_Empty(103)
//Reg_Empty(104)

XALL