>--------------------------
>Registros
>--------------------------
>    2412X             9909                  AA  3523650390990924ADIREC            0101        
€ 0958q [                  002759  58554901990924 0
>    2412X             9909                  AA  3523650390990927ADIREC            0101          1047Ϩ                  002762  58602001990927 0
>    /2412X             9909                  AA  3523650390990927ADIREC            0101          1059|s                  002760  58602905990927 0
>--------------------------

Oi Eduardo.. Postei a sua dificuldade no forum em inglês e obtive resposta do Dragan.. Testei aqui e funcionou bem..

a = "    /2412X             9909                  AA  3523650390990927ADIREC            0101          1059|s                  002760  58602905990927 0"
? Bcd2Num(SUBSTR(a,95,5))
**
** a resposta obtida foi -202007202
**
Func Bcd2Num
para bcd
priv x
x=''
#define tbl1 ':;<=>?'
#define tbl2 'abcdef'
for i=1 to len(bcd)
	_asc = asc(subs(bcd,i))
	x=x+chr(bitRshift(_asc,4)+48)+chr(bitand(_asc,15)+48)
endf
x=chrtran(x,tbl1,tbl2)
retu val(left(x,len(x)-1)) * iif(inlist(right(x,1),'c','f'),1,-1)