jens, if the rules haven't changed, I'll improve your code...
btw, think that pc_g0d is correct on this one...

code:
DO
  IF LEFT($,4)= "disk"
    $p=$
    ? $p
  ENDIF
  $ = ReadLine($handle)
until @error
_________________________
!

download KiXnet