//
proc main;
	fputline($STDOUT,'aaaaaa',123d0);
	$fp = fopen('a','wb');
	print $ERROR $ERRMSG;
	$a = 100;
	$b = 25.3;
	$c = 'ABCDEF';
	$r = felwrite($fp,$a,$b,$c);
//	felwrite($fp,$b);
	$r = fclose($fp);
	$fp = fopen('a','rb');
	print $ERROR $ERRMSG;
	$x = felread1($fp,2);
	$y = felread1($fp,4,3,1);
	$z = felread1($fp,1,6);
	print $a $x $b $y $c $z;
//	print $b $y;
/*	$r = */fclose($fp);
	return $ERROR;
end proc;
