Example in Pascal
program cpi_example;
uses printer;
const ESC = #27;
Text1 = “10 characters/inch”;
Text2 = “15 characters/inch”;
begin
writeln(lst,Esc,"[4w",Text1,ESC,"[6w",Text2,Esc,"[4w",Text1);
end.
Printout
After the program has been completed the following text appears:
10 characters/inch
15 characters/inch
10 characters/inch
BACK
QUIT
?
Reference manual
Emulations
117