//
//   MULTI-SRZ.VDM         Ch. Ziemski 10.10.2001
//                                     11.10.2001


Num_Push(96,99)           // save values
Reg_Push(96,99)

//Reg_Set(99, " ")

repeat(ALL){              // endless loop until [Done]
  #98=DI1(96,"'Multi-SR','
    Enter as many Search & Replace Strings as you want.
    Then press [Done] to do the replace(s).
    
    Or press <ESC> to leave the macro without any action.',
    '|@(99)',
    `??&Search string:  `,
    `??&Replace string:`,
    `[&Next]`,`[&Done]`",
    SCREEN+CENTER+SET,0,0)

  if(#98==0){ Reg_Pop(96,99) Num_Pop(96,99) return }    // if ESC pressed exit without action

  Reg_Set(99, 'Replace("', APPEND)
  Reg_Set(99, @96, APPEND)
  Reg_Set(99, '","', APPEND)
  Reg_Set(99, @97, APPEND)
  Reg_Set(99, '", BEGIN+ALL+NOERR)', APPEND)
  Reg_Set(99,'
', APPEND)

  if(#98==2){ break }                                   // if [Done] clicked end loop
}

Call(99)                   // do the replace(s)

Reg_Pop(96,99)             // restore old values
Num_Pop(96,99)

Return()