#Commodore VIC-20/VC-20/C64 - <strike>95</strike> <strike>69</strike> 68 tokenized BASIC bytes used (obfuscated and minimized)

    0dEfnb(x)=sgn(xandb):fOi=0to10:b=8:fOj=0to3:?rI(stR(fnb(i)),1);:b=b/2:nEj:?:nE

Copy and paste the above text into WinVice, for instance. Just about fits onto 80 characters on a Commodore 64.

Here's the original symbolic listing:

    0 DEF FN B(X)=SGN(X AND B)
    1 FOR I=0 TO 10:B=8
    2 FOR J=0 TO 3:PRINT RIGHT$(STR$(FN B(I)),1);:B=B/2:NEXT J
    3 PRINT:NEXT I

Of course this may be minimised and further obfuscated. I'll update with an explanation later.