character c do1 i=1,3e3;call fget(c);n=0 do2 j=0,7;2 n=n*2+ibits(ichar(c),j,1) 1 print'(a1$)',n;end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page