//
proc main;
	$fp = fopen('a','w');
	print $ERROR $ERRMSG;
	$a = 'AB˜aEF';
	$b = 100;
	$c = 12.4D;
	$d = 25.3;
	$e = to_bulk($a);
	m = felwrite1($fp,$a,0,0);
	felwrite1($fp,$b,0,0);
	felwrite1($fp,$c,0,0);
	felwrite1($fp,$d,0,0);
	felwrite1($fp,$e,0,0);
	$r = fclose($fp);
	$fp = fopen('a','r');
	print $ERROR $ERRMSG;
	$aa = felread1($fp,1,m);
	$bb = felread1($fp,2);
	$cc = felread1($fp,3);
	$dd = felread1($fp,4,,0);
	$ee = felread1($fp,5,7);
	print $a $aa $b $bb $c $cc $d $dd $e $ee;
	fclose($fp);
	return $ERROR;
end proc;
