IF Open(1,...
$x = WriteLine( 3 ,...
Close(1)


there is your error.
if you don't still see it, say so and someone will explain.
_________________________
!

download KiXnet