//
// setupback1.vdm                                     C.Z. 07.06.1999
//
// wandelt eine VB-Setup.lst in Backup-Batch um, Teil 1/2
//

bof
while(!at_eof){
  if((cc&0xdf)==67){         // "c" or "C"
//    rc(91,1)    // Nesting error!!?!?!
    S(" : ")
    rcb(91,bol_pos,cp)
    EoL
    if(file_exist("|@(91)")){
      it("    exists:  ")
      sys('dir "|@(91)" > c:\tmp\x.tmp',DOS+SIMPLE+OK+SUPPRESS)
      ins_file("c:\tmp\x.tmp",6,6)
      del_char(2)
      s("exists:",reverse+advance)
      s("|d|d:|d|d",advance)
      dov("\NW\") dov("\NW\")
      Del_Block(cp,eol_pos) 
      dov("\PW\") dov("\PW\")
      Replace_Block("|W","  ",cp,eol_pos)
      BoL
      it(":: ! ")    
      l(1)
      it("     copy ")
      ri(91)
      it(" backup")
      in(1)
    } else {
      bol
      it(":: + ")
      l(1)
    }
  } else {
    bol
    it(":: ? ")
    l(1)
  }
}

bof
it("md backup")
in(1)
bof