Well I don't know why you are setting a varible to equal the value it already equals...
Read DATA_BLOCK
BALLOCK2.BLOCK = New BLOCK
If DATA_BLOCK=0 Then Data_BLOCK=0
If DATA_BLOCK=1 Then Data_BLOCK=1
; If DATA_BLOCK=2 Then Data_BLOCK=2
Read DATA_BLOCK
BALLOCK2.BLOCK = New BLOCK
If DATA_BLOCK=0 Then Data_BLOCK=0
If DATA_BLOCK=1 Then Data_BLOCK=1
; If DATA_BLOCK=2 Then Data_BLOCK=2