code:
DO
$ = ReadLine($handle)
until not $ or LEFT($,4)= "disk"

[Big Grin]
_________________________
There are two types of vessels, submarines and targets.