Soroban Fixed by *yuko*

character*99c
read*,c
n=len_trim(c)
do1 j=-1,8
do2 i=1,n
k=ichar(c(i:))
m=0**mod(n-i,4)*2+6
if(j<2)m=(j-k/53)**2*3
if(j>2)m=0**mod(k-j,5)*3
if(j<0.or.j>7)m=6
2 print'(a3$)<',"-> | ===*="(m:)
1 print*
end

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page