// 
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,9,1);
	print felwrite1($fp,$c,9,1);
	print felwrite1($fp,$b,9,2);
	print felwrite1($fp,$c,9,2);
	print felwrite1($fp,$b,9,4);
	print felwrite1($fp,$c,9,4);
	print felwrite1($fp,$b,9,8);
	print felwrite1($fp,$c,9,8);
	print felwrite1($fp,$b,9,9);
	print felwrite1($fp,$c,9,9);
	$r = fclose($fp);
	return $ERROR;
end proc;
