do?chr$(c);:if!mod(c+1,4)?
c=peek(0)loop