{ The command FF n resets the printer and issues n form feeds.

{ The command FF n resets the printer and issues n form feeds.
This program is written for the I.D.S. 460G "Paper Tiger" printer. }

{ Author: Peter Grogono }

program FF;

var
printer : text;
n, nff : 0..255;

begin
read(nff);
rewrite('LST:',printer);
write(printer,chr(17)); { Select printer }
write(printer,chr(2)); { Normal mode }
write(printer,chr(6)); { Fixed spacing }
write(printer,chr(5)); { No justification }
write(printer,chr(30)); { 12 c.p.i. }
write(printer,chr(27),'B8'); { 8/48" = 6 l.p.i. }
write(printer,chr(13)); { CR }
for n := 1 to nff do
write(printer,chr(12)) { Form feeds }
end. { FF }