program define texts
        version 4.0

        local x = "`1'"
        local y = "`2'"
        local z = "`3'"

        tempvar xp yp 

        gen `xp' = $AX * `x' + $BX
        gen `yp' = $AY * `y' + $BY

        gph vtext `yp' `xp' `z'

end