program tiny; uses CRT, printer; begin writeln('Resetting LaserJet II to Landscape mode'); writeln('10 char/inch mode, 6 lines/inch.'); write(lst,#27,'&l1O'); (* landscape *) write(lst,#27,'&l6D'); (* line spacing at 8 lines/inch *) write(lst,#27,'(s10.00H'); (* 10 pitch *) write(lst,#27,'&a8L'); (* skip 10 spaces *) end.