//
// check-if-on-cd.vdm                             C.Z. 13.10.2002
//
// up to now only for NT/2000/XP
//

#103=Buf_Num
if(Get_Filename(103,"|(CUR_DIR)\*.*")==0){      // bug? pfad wird nicht immer beachtet!?!?!
  return  // o.k.???
}
Buf_Switch(Buf_Free(EXTRA))
Reg_Ins(103)
Search("\",REVERSE+NOERR)
Reg_Copy_Block(104, 0, Cur_Pos)
Buf_Quit(OK)
Chdir(@104)

// read the directory listing into current buffer
// Out_Ins()
// Dir(NOMSG+SUPPRESS)
// Out_Ins(CLEAR)

if (Is_WinNT) {
    System('"DIR > |(VEDIT_TEMP)/VEDIT|(PID).txt"', DOS+SIMPLE+OK+SUPPRESS)
} else {
    System("DIR > |(VEDIT_TEMP)/VEDIT|(PID).txt", DOS+SIMPLE+OK+SUPPRESS)
}

File_Open("|(VEDIT_TEMP)/VEDIT|(PID).txt")
Replace("|<|[|W]|N","", BEGIN+ALL+NOERR)
Replace("|<|*<DIR>|*|N","", BEGIN+ALL+NOERR)
Replace("|<|W|*|N","", BEGIN+ALL+NOERR)

// read all CD-directory-files into following buffers
File_Open("D:\xxx\!CDs\*.txt")

Buf_Switch(1)
BoF

while(! At_EoF){

  Update

  Reg_Copy_Block(99, Cur_Pos, EoL_Pos)
  //M(@99)
  for(#99=2 ; #99<Buf_Free ; #99++){
    Buf_Switch(#99)
    Search("|@(99)", BEGIN+ALL+NOERR)  // ???
    if(!EM){
      Reg_Set(98, FILENAME)
      Buf_Switch(1)
      EoL
      Ins_Text(" ::  ")
      Reg_Ins(98)
    }
  }
  Buf_Switch(1)
  Line(1, NOERR)

}