IF A2DV = 0 THEN Potpos = 1

a small scale translating attempt to avoid value "0" ... probably !


... I know ... he could have written

POTPOS = A2DV MAX 1 ...

Alain