Hello,

i was wondering if somone could help me with this code:
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:
Code:
'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