@themartian Si pones CW podemos optar por no expandir el toot. Otra opción es usar un hashtag (eg, #mycode) y los que no quieran ver esos toots, que silencien el hashtag...
BOOLIO
MAIN
DEC(c)
DEC(d=0)
DEC(e)
DEC(i=0)
CLR
PUTS("type your story here <-|")
c=CH
CLR
IF(c!='\n')
PUT(c)
END
WHILE(true)
c=CHE
IF((c=='\n')&&(d=='\n'))
BREAK
END
d=c;
IF(c=='\n')
PUT('\b')
e=true;
ELSE
e=false;
END
IF(e&&(i!=0))
PUTS(" (yes)\n")
ELIF(e)
PUTS(" (no)\n")
END
i=((i==2)?0:(i+1));
END
RET
END