Commodore 64/VIC-20 Decimal to Binary in BASIC

REM TESTED AND CORRECTED VERSION
REM FOR MY CODE GOLF CHALLENGE HERE:
REM http://codegolf.stackexchange.com/questions/110166/counting-in-binary-nybbles
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