character*9c;do1 i=0,11;read*,c;1 print'(aa4) ',trim(c),"eat boo"(and(i,4):);end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page