character*99a,b,c;do1;read*,a,b;do1 i=1,8;print'(aa1$)',trim(a),32-i/8*22;c=trim(b)//a;a=b;1 b=c;end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page