Kevin,

Line 6726

Changing:

` IF *Stk[Tmp] = ASC("0") AND NOT iMatchWrd(MID$(Stk$[Tmp],2,1),"x") AND NOT iMatchWrd(MID$(Stk$[Tmp],2,1),".") AND NOT iMatchWrd(MID$(Stk$[Tmp],2,1),"l") THEN`

Stk$[Tmp] = LTRIM$(Stk$[Tmp],48) 'allow leading zero's in numbers

IF Stk$[Tmp] = "" THEN Stk$[Tmp] = "0"

END IF

[\code]

TO

[code]

IF *Stk[Tmp] = ASC("0") AND NOT iMatchWrd(MID$(Stk$[Tmp],2,1),"b") AND NOT iMatchWrd(MID$(Stk$[Tmp],2,1),"x") AND NOT iMatchWrd(MID$(Stk$[Tmp],2,1),".") AND NOT iMatchWrd(MID$(Stk$[Tmp],2,1),"l") THEN

Stk$[Tmp] = LTRIM$(Stk$[Tmp],48) 'allow leading zero's in numbers

IF Stk$[Tmp] = "" THEN Stk$[Tmp] = "0"

END IF

Allows binary assinment:

Dim As Integer Index

Index = 0b00000000000000000000000001000000

James