1k=peek(0):if k<0k=58
if k-58t$=chr$(k)+"."+t$
if k=58s$=left$(t$+"0.0.0.0.",8)+s$:t$=""
if len(s$)<64goto 1
?s$,"ip6.arpa."