Visor LCD

[Tecnic2]

procedure imprimehola
var F: Textfile;
begin
assign(F,'com1');
rewrite(F);
writeln(F,'HOLA VISOR');
closefile(F);
end;