128 bits by scottg

program f;var i : Byte;s:String="\x90\x9f\x88@\xb9.\xc7\xda\x1b\x82j\xa3\xc6j\x11\x03";t:array[0..1] of String=(""," ");Begin
for i:=8to 135do Write(Byte(s[i div 8])shr(i mod 8)and 1,t[byte((i+1)mod 8=0)]);
End.

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page