'USING FLOATING INPUTS, SAMPLE X2 ADCS AND CHECK THE LSB OF EACH SAMPLE.
'IF LSBS ARE THE SAME - REJECT THEM. IF DIFFERENT, USE LSB1 (ARBITARY)
'0-4 = 0, 5-9 = 1

SAMPLES = 16
Dim FLOAT SAMP1(SAMPLES-1)
Dim FLOAT SAMP2(SAMPLES-1)
Dim BIT8(7)
NO_BITS=50 ' EACH RANDOM SEQUENCE HAS 50 BITS
NO_STREAMS = 10

ADC OPEN 1000,2

For Z = 0 To NO_STREAMS

BITSTREAM$=""

I=0

Do

ADC START SAMP1(), SAMP2()

'GRAB SAMPLES - 16 SHOULD BE ENOUGH
For Y = 0 To (SAMPLES)-1)
 YT1$ = Str$(SAMP1(Y))
 YT2$ = Str$(SAMP2(Y))

'EVALUATE THE LSB - SHOULD BE 12 DIGITS
'IF 12, SELECT IT.  IF LESS THAT 12
'IT WAS 0, SO SET TO ZERO.
'0-4 = 0, 5-9 = 1

 Select Case Len(YT1$)
Case 12
 LSB1=Val(Right$(YT1$,1))
 If LSB1 >4 Then
LSB1 = 1
 Else
LSB1 = 0
 EndIf
Case Else
 LSB1=0
 End Select

 Select Case Len(YT2$)
Case 12
 LSB2 = Val(Right$(YT2$,1))
 If LSB2 >4 Then
LSB2= 1
 Else
LSB2=0
 EndIf
Case Else
 LSB2=0
 End Select

'IF THE LSBS ARE THE SAME - DO NOTHING
'IF LSBS ARE DIFFERENT, USE THE LSB1
'INCREMENT THE COUNTER

 If LSB1 <>  LSB2 Then
Inc BITSTREAM$, Str$(LSB1)
I = I + 1
 EndIf

Next Y 'MOVE TO NEXT SAMPLES

'WE DONT KNOW THE EXACT LENGTH I FROM EACH LOOP

Loop Until I > NO_BITS 'STOP WHEN MORE THAN ENOUGH BITS

Print (Left$(BITSTREAM$,NO_BITS))  ' PRINT THE BITSTREAM

Next Z