Program Count(sin:string; szer,oc:real; sout:string) [FORMAT];
{writes sequence numbers to displayed/printed records}
{ use: &count('') in format exit                     }

Var
 ss:string;
Begin
if Val(Keydef(103))=0 then
begin
 sout:='1';
 Defkey(103,'1')
end
else
begin
 ss:=Encint(Val(Keydef(103))+1,1);
 sout:=ss;
 Defkey(103,ss)
end
End.