program settabs;
{ sets standard tabs for the Toshiba 13xx printers }
const
  ESC = #$1B;

begin
  writeln;
  writeln('Setting printer tabs for 1,9,17,25,...');
  writeln;
  write(lst,ESC,'2'); { clear old tabs }
  write(lst,ESC,'(01,09,17,25,33,43,51,59,67,75,83,91,99,A7,B5,C3,D1.');
  end.