Concatenation

[Jerson]

If PortB.0 = 1 Then 'monitor PortE.2 for beam break
   DataIn2 = DataIn2<<1 'Move bit one place to left to concatinate variable
   DataIn2 = DataIn2 + 1 'something blocking beam, write a 1 to DataIn2 variable
Else 
   DataIn2 = DataIn2<<1
   DataIn2 = DataIn2 + 0 'Beam clear, write a 0 to DataIn2 variable
EndIf

How about doing it this way?

[HenrikOlsson]

Hi,
Adding to (or removing from actually...) Jersons example, this should let you get rid of the IF/THEN construct as well

DataIn2 = (DataIn2 << 1) + PortB.0   ' Move bits one step to the left and add state of PortB.0 to the least significant bit.

/Henrik.

[galliumman]

Many thanks Jerson, just swapping the lines over did the trick. I really sacrificed at the alter of stupidity this week!
HenrikOlsson, i did not know you could do this. Should save some space and speed things up.
Many thanks to both of you for your time, really saved my sanity.

[Jerson]

You're welcome. We have all been there(the altar of stupidity) at some time in our lives, haven't we?

[galliumman]

Hi Jerson / HenrikOlsson,

Not sure what happened to my spelling this week either. 'alter' - what is wrong with me! Maybe i should get checked for early onset Alzheimers - ah, maybe not, i can spell Alzheimers!
Having looked through my code, I've realised (English spelling), that concatenation is spelled incorrectly as well, argghhh! Maybe it's the wine - surely not - it can't be the wine - oh god , not the wine!!

P.S. HenrikOlsson, thanks again, that one line of code is beautiful - did i spell that correctly, phew!