%external %integer %function %spec Open Update(%integer s, %string(255) f)
%external %routine %spec Close Update
%external %routine %spec flush output

%constant %integer Blocksize = 512