program myoptic;
 uses CRT, printer;
begin
  writeln('Resetting LaserJet II to Myoptic');
  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.22H');  (* 27.22 pitch *)
  write(lst,#27,'&a10L');
end.