//
// PING.VDM                                         (C) C.Z. 10.10.1997
//                                                           13.10.1997
//
// ermittelt, ob der Eintrag der Cursorzeile in der geladenen hosts-Datei
// anpingbar ist
//

Config( S_H_CR_LINE, "Highlight cursor line (0 - 2)", 2 )
RS(99,'
bol
S("|!|W")
if (Match("|D") != 0) {
  Statline_Message(" keine Ziffer(n) gefunden!   ")
//  Config( S_H_CR_LINE, "Highlight cursor line (0 - 2)", 0 )
  return
}
bb(CP)
S("|W")
rcb(10,bb,cp)
bb(clear)
rs(10,"ping -z ",insert)
Message(" pinging, please wait ...", STATLINE)
#11=system(@10,OK)
//#11=system(@10,DOS+SIMPLE+OK+NOMSG)
#12=RV
if(#11==0) {
  RS(12, ">>> Host reached          ")
} else  {
  RS(12, ">>> Host _not_ reached    ")
}
Statline_Message("|@(12)")
//Message("|@(12)", STATLINE)
//Visual_Macro(8)
//Get_Key("",RAW+STATLINE)
//Config( S_H_CR_LINE, "Highlight cursor line (0 - 2)", 0 )
')
Key_Add("F12","[VISUAL EXIT] Call(99)",OK)

// 123.45.67 test