do1;read*,n;m=log(n**.1443);if(m<1)print'(i0)',n;1 if(m>0)print'(f0.2xa1hB)',n/1023.**m,m*2+73;end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page