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