Código Delphi [-] VAR f : TextFile; AssignFile(f,'lpt1'); Rewrite(f); Writeln(f,#27+'p0'+#100+#0); closeFile(f);
VAR f : TextFile; AssignFile(f,'lpt1'); Rewrite(f); Writeln(f,#27+'p0'+#100+#0); closeFile(f);