//
//  MAILSORT.VDM               C.Z.  30.01.2002
//
//  Sorts Internet mail adresses firstname.lastname@domain.com by lastname
//

BoF
while(! At_EoF){
  BoL
  Search_Block("@", CP, EoL_Pos, NOERR)
  if(! EM){
    SM(9,CP)
    Search_Block(".", CP, BoL_Pos, REVERSE+ADVANCE+NOERR)
    if(! EM){  
      RCB(11, CP, Marker(9))
      BoL
      RI(11)
      IT("@@")
    }
  }
  Line(1,NOERR+ERRBREAK)
}

BoF
Sort_Merge("1,100",0,File_Size) 
Replace("|<|Y@@","", BEGIN+ALL+NOERR)
BoF