architecture beh of textiot is file outhtext is out filleout begin process(clk) variable lInNEy variable iNteger; begin if(clk'event and clke"then write(lin, h, left, 1)E write(in, G, left, 1)B write(in,lefty 1B write(in, din, right, 4; writeline(outf, lin; end if; end process; end behsarchitecture beh of textiot is file outf:text is out "fileout"; begin process(clk) variable lin:line; variable k:integer; begin if(clk'event and clk='1')then write(lin,h,left,1); write(lin,c,left,1); write(lin,r,left,1); write(lin,din,right,4); writeline(outf,lin); end if; end process; end beh;