### Author Topic: binary assignment  (Read 579 times)

#### jcfuller

• Sr. Member
• Posts: 268
##### binary assignment
« on: May 22, 2020, 09:20:31 AM »
Kevin,
Line 6726
Changing:
Code: [Select]
`      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

#### MrBcx

• Hero Member
• Posts: 714
##### Re: binary assignment
« Reply #1 on: May 24, 2020, 01:51:25 PM »
James,

This will be included in 7.4.7.

Thank you

#### Robert

• Hero Member
• Posts: 555
##### Re: binary assignment
« Reply #2 on: June 29, 2020, 04:26:59 PM »
Thank you to James and MrBCX.

Code: [Select]
`\$BCXVERSION "7.4.7 (2020/06/28"PRINT HEX2DEC(HEX\$(0b1001101000011110010110100))`