TEXTIO-write write(lin, h, left, 1 ); write(lin, din, right, 7); write(lin, din, left, 7); write(lin, C, left, 1): write(lin, h, left, 7); write(lin, h, left, 7); write(lin, r,left, 1F write(lin, C,left, 7); write(lin, C, left, 7); write(lin, din, right, 4); write(lin, r, left, 7) write(lin, r, left, 7); writeline(outf,lin); writeline(outf, lin); writeline(outf, lin) 0000000 00000 00000 0010000 00000 00 00000 0100000 00000 01010 00000 000101 00010 01010 0110001 00010 00010 00 00010 001100 0000001 00010 0010001•TEXTIO--write write(lin,h,left,1); write(lin,c,left,1); write(lin,r,left,1); write(lin,din,right,4); writeline(outf,lin); 0000000 0010000 0100000 0110001 0000001 0010001 write(lin,din,right,7); write(lin,h,left,7); write(lin,c,left,7); write(lin,r,left,7); writeline(outf,lin); write(lin,din,left,7); write(lin,h,left,7); write(lin,c,left,7); write(lin,r,left,7); writeline(outf,lin); 00000 0 0 00000 0 1 00000 1 0 00010 1 1 00010 0 0 00010 0 1 0000 0 0 0 0000 0 0 1 0000 0 1 0 0001 0 1 1 0001 0 0 0 0001 0 0 1