var i,j:byte;begin for i:=13to 23do for j:=0to i-13do write(copy(" = "+chr(j+64)+"AA",1shr j*4+1,4),i*5-j*5,^j:ord(j=i-13))end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page