character*55c;c=repeat(" | | ---+---+---",3) do1 i=1,7;j=ichar("\x03\x1d7\x0b/3\x19"(i:))-1;c(j:j)="XOXOXOX"(i:) 1 print'(5(a11/))',(c(j:),j=1,45,11);end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page