program tiny;
 uses CRT, printer;
begin
  writeln('Resetting LaserJet II to use MYOPIA font');
  writeln('27.2 char/inch mode, 12 lines/inch.');
  write(lst,#27,'&l12D'); (* line spacing at 12 lines/inch *)
  write(lst,#27,'&l0O'); (* port *)
  write(lst,#27,'(s27.2H');  (* 27.22 pitch *)
  write(lst,#27,'&a10L');    (* set left margin to col 10 *)
end.