/* Remove extra lines from WD LC output */
Parse Arg F
Started=0
Do While Lines(F)>0
   a=Linein(F)
   Parse Var a First Second Rest
   First=Strip(First)
   Second=Strip(Second)
   If First="JD" & Second<>"start" then Do
      Started=1
      Iterate
   End
   If a="" & Started=1 then Leave
   If Started=1 then Say a
End
Exit