do1;read*,n;x=500;m=0;2 i=m<n;m=m+i*2*x-x+.5;i=m<n;j=m>n;print'(i0xa1)',m,61-i+j;x=x/2;goto(2)i+j;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