do input""s$:i=val(s$):j=val(mid$(s$,log(i,10)+3)) 1k=k+i:if mod(k,j)goto 1 ?k/j;:if k>i?"/",k/i; ?:k=0^!k/i=207loop
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page