static void ConvertBarcode(Args _args)
{
    /*
    Jesper Se, 11.07.2006 Convert 13 int barcode to use with ean13.ttf font from grandzebu.net
    Feel free to use it
    */

    str     _barcode;
    str     _encoded;
    int     i;
    int     lenght;
    str     first = substr(_barcode,1,1);
    str     char;
    str     _typeA;
    str     _typeB;

    _barcode = '5707610000448';    // Insert your own barcode here
    first = substr(_barcode,1,1);
    lenght = strlen(_barcode);

    Switch(true)
    {
     Case first == "0": _typeA = "1 2 3 4 5 6 7"; _typeB = ""; Break;
     Case first == "1": _typeA = "1 2 3 5"; _typeB = "4 6 7"; Break;
     Case first == "2": _typeA = "1 2 3 6"; _typeB = "4 5 7"; Break;
     Case first == "3": _typeA = "1 2 3 7"; _typeB = "4 5 6"; Break;
     Case first == "4": _typeA = "1 2 4 5"; _typeB = "3 6 7"; Break;
     Case first == "5": _typeA = "1 2 5 6"; _typeB = "3 4 7"; Break;
     Case first == "6": _typeA = "1 2 6 7"; _typeB = "3 4 5"; Break;
     Case first == "7": _typeA = "1 2 4 6"; _typeB = "3 5 7"; Break;
     Case first == "8": _typeA = "1 2 4 7"; _typeB = "3 5 6"; Break;
     Case first == "9": _typeA = "1 2 5 7"; _typeB = "3 4 6"; Break;
    }

    i=1;
    while (i <= lenght)
    {
        char = substr(_barcode,i,1);
        Switch(true)
        {
            Case i <= 7 && (strfind(int2str(i),_typeA,0,14)) == true :
            {
                Switch(true)
                {
                    Case char == "0": char = "A"; break;
                    Case char == "1": char = "B"; break;
                    Case char == "2": char = "C"; break;
                    Case char == "3": char = "D"; break;
                    Case char == "4": char = "E"; break;
                    Case char == "5": char = "F"; break;
                    Case char == "6": char = "G"; break;
                    Case char == "7": char = "H"; break;
                    Case char == "8": char = "I"; break;
                    Case char == "9": char = "J"; break;
                }
            }
            break;
            Case i <= 7 && (strfind(int2str(i),_typeB,0,14)) == true :
            {
                Switch(true)
                {
                    Case char == "0": char = "K"; break;
                    Case char == "1": char = "L"; break;
                    Case char == "2": char = "M"; break;
                    Case char == "3": char = "N"; break;
                    Case char == "4": char = "O"; break;
                    Case char == "5": char = "P"; break;
                    Case char == "6": char = "Q"; break;
                    Case char == "7": char = "R"; break;
                    Case char == "8": char = "R"; break;
                    Case char == "9": char = "S"; break;
                }
            }
            break;
            Case i > 7 :
            {
                Switch(true)
                {
                    Case char == "0": char = "a"; break;
                    Case char == "1": char = "b"; break;
                    Case char == "2": char = "c"; break;
                    Case char == "3": char = "d"; break;
                    Case char == "4": char = "e"; break;
                    Case char == "5": char = "f"; break;
                    Case char == "6": char = "g"; break;
                    Case char == "7": char = "h"; break;
                    Case char == "8": char = "i"; break;
                    Case char == "9": char = "j"; break;
                }
            }

        }
        _encoded += char;
        i++;
    }
    _barcode = first+substr(_encoded,2,6)+"*"+substr(_encoded,8,6)+"+";
    print "Barc: " +_barcode;
    pause;

}