Triangular Text by uru

var n,m,b:word;c:char;begin
repeat
read(c);b:=ord(c>^`);write(c:b);n:=n+b;if n>m then begin
writeln;n:=0;inc(m)end;until 1=0end.

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page