{ settabs -- set initial tab stops }
procedure settabs (var tabstops: tabtype);
const
    TABSPACE = 4;    { 4 spaces per tab }
var
    i: integer;
begin
for i:=1 to MAXLINE do
   tabstops[i]:= (i mod TABSPACE = 1)
end;
