CLS FOR sstr = 0 TO 7 scent$ = "" acc = sstr + 1 PRINT "acc="; acc FOR i = 2 TO 0 STEP -1 PRINT "check="; (acc - 2 ^ i) IF (acc - 2 ^ i) <= 0 THEN scent$ = scent$ + "0" ELSE scent$ = scent$ + "1" acc = acc - 2 ^ i END IF NEXT i PRINT "string for"; sstr; " ="; scent$ NEXT sstr