conversion from picbasic to picbasic pro

[winjohan]

Hello,

i was wondering if somone could help me with this code:

OntvangBitAantal: ;Vul het ontvangstbyte met het opgegeven aantal bits in BCD mode
OntvangByte = 0
FOR BD1 = 0 TO BitAantal - 1
GOSUB OntvangEenBit
'IF OntvangBit = 1 THEN SETBIT OntvangByte,BD1
IF OntvangBit = 1 THEN OntvangByte,0(BD1)=1
endif
NEXT
OntvangByte = ((OntvangByte >> 4) * 10) + (OntvangByte & 15) ;BCD (Binary-Coded Decimal) naar byte conversie
RETURN


OntvangEenBit: ;Ontvang een bit en bewaar dit in OntvangBit

WHILE DCF_Signaal = 0
wend
ontvangbit=bitwaarde
dcf_signaal = 0
return



the problem is this line:

'IF OntvangBit = 1 THEN SETBIT OntvangByte,BD1
it is for picbasic and not picbasic pro
what function do i need in picbasic pro
include "bs1defs.bas" i allready done

note this is a routine for putting bits in a byte that are recieved from an antenna, one bit every second

all help is welcome

[HenrikOlsson]

Hi,
If OntvangByte is a byte (or word or long) you access its indivudal bits using the dot notation, like:

OntvangenByte.0 = 1 'Set bit 0
OntvangenByte.7 = 0 'Set bit 7

If Ontvangbit = 1 THEN ' If bit is set
OntvangByte.0 = 1 ' Set lowest significant bit in BYTE
ENDIF

/Henrik.

[winjohan]

Henrik,

many Thanks

Problem solved ! i used the , instead of the .


IF OntvangBit = 1 THEN OntvangByte.0(bd1)=1

thanks again