//
// PINGCHECK.VDM         
//                                                           11.02.2003
//
// ermittelt, ob der Eintrag der Cursorzeile anpingbar ist
//

Config( S_H_CR_LINE, "Highlight cursor line (0 - 2)", 2 )
RS(99,^
bol

if(Match("|D")!=0){
  Statline_Message(" kein Drucker-Eintrag!   ")
  return
}
bb(CP)
S('|W')
rcb(10,bb,cp)
bb(clear)
File_Delete("|(VEDIT_TEMP)\ping.tmp", OK+NOERR)
Message(" pinging, please wait ...", STATLINE)
system("ping |@(10) > |(VEDIT_TEMP)\ping.tmp",DOS+SIMPLE+OK)
File_Open("|(VEDIT_TEMP)\ping.tmp")
Search("|{Antwort von,unbekannt,erreichbar,Zeit|Aberschreitung}", BEGIN+NOERR)
if(!EM){
  if(MI==1){
    RS(12, "|@(10) reached          ")
  }else{
    if(MI==2){
      RS(12, "|@(10) unknown          ")
    }else{
      RS(12, "|@(10) NOT reached      ")
    }
  }
}else{
  RS(12, ">>> unknown error      ")
}

Buf_Quit(OK)
Statline_Message("|@(12)")
^)
Key_Add("F12","[VISUAL EXIT] Call(99)",OK)

// 123.45.67 test