Transformación código de barrar 2 de 5

Se requiere la fuente 2 de 5.

procedure pcb25
parameter cadena
* esta genera el codigo de barra que se imprime
* recibe el numero a imprimir y los transforma a los caracteres correspondientes para
* el codigo de barra
codbar='('
for i = 1 to len(allt(cadena)) step 2
digitos=val(subs(cadena,i,2))
if digitos<50
letra=chr(digitos+48)
else
letra=chr(digitos+142)
endif
codbar=codbar+letra
endfor
codbar=codbar+')'
return codbar