do
if!s c=peek(0)
s=sig(c-o)+0^c
o=o+s
?chr$(44-s+2*!s);loop