LET n=8
DIM b(n+1)
LET b(n+1)=0
FOR m=0 TO 2^n-1
   LET Q$=BSTR$(m,2)      ! ２進数変換関数
   LET m2$=right$(REPEAT$("0",n-1)&Q$,n)
   PRINT USING "###":m;
   PRINT ":  ";m2$
NEXT m
END