Golf answer:
code:
DO
  IF LEFT($f,4)= "disk"
    $p=$f
    ? $p
  ENDIF
  $f = ReadLine($handle)
until @error
_________________________
There are two types of vessels, submarines and targets.