// 
proc main;
	$fp = fopen('a','wb');
	print $ERROR $ERRMSG;
	$a = 'ABCDEF';
	$b = -100;
	$c = 12.4D;
	$d = -25.3;
	$e = to_bulk($a);
	print felwrite1($fp,$b,5,1);
	print felwrite1($fp,$c,5,1);
	print felwrite1($fp,$b,5,2);
	print felwrite1($fp,$c,5,2);
	print felwrite1($fp,$b,5,4);
	print felwrite1($fp,$c,5,4);
	print felwrite1($fp,$b,5,5);
	print felwrite1($fp,$c,5,5);
	$r = fclose($fp);
	return $ERROR;
end proc;
