public void Write(string Str, int x0, int y0, CInscript Ins)
        {
            int i, len = Str.Length, rv = x0;

            for (i = 0; i < len; i++) //===============================================
            {
                switch (Str[i])
                {
                case '-': rv = Ins.Minus(rv, y0); break;

                case '+': rv = Ins.Plus(rv, y0); break;

                case '=': rv = Ins.Equal(rv, y0); break;

                case '.': rv = Ins.Stop(rv, y0); break;

                case '0': rv = Ins.Null(rv, y0); break;

                case '1': rv = Ins.F1(rv, y0); break;

                case '2': rv = Ins.F2(rv, y0); break;

                case '3': rv = Ins.F3(rv, y0); break;

                case '4': rv = Ins.F4(rv, y0); break;

                case '5': rv = Ins.F5(rv, y0); break;

                case '6': rv = Ins.F6(rv, y0); break;

                case '7': rv = Ins.F7(rv, y0); break;

                case '8': rv = Ins.F8(rv, y0); break;

                case '9': rv = Ins.F9(rv, y0); break;

                case 'a':
                case 'A': rv = Ins.A(rv, y0); break;

                case 'b':
                case 'B': rv = Ins.B(rv, y0); break;

                case 'c':
                case 'C': rv = Ins.C(rv, y0); break;

                case 'e':
                case 'E': rv = Ins.E(rv, y0); break;

                case 'i':
                case 'I': rv = Ins.I(rv, y0); break;

                case 'k':
                case 'K': rv = Ins.K(rv, y0); break;

                case 'l':
                case 'L': rv = Ins.L(rv, y0); break;

                case 'm':
                case 'M': rv = Ins.M(rv, y0); break;

                case 'n':
                case 'N': rv = Ins.N(rv, y0); break;

                case 'r':
                case 'R': rv = Ins.R(rv, y0); break;

                case 't':
                case 'T': rv = Ins.T(rv, y0); break;

                case 'u':
                case 'U': rv = Ins.U(rv, y0); break;

                case 'w':
                case 'W': rv = Ins.W(rv, y0); break;
                } //::::::::::::::::::::::: end switch :::::::::::::::::::::::::::::::::::
            }     //========================= end for (i ... =================================
        }         //*************************** end write ****************************************