program define lines
        version 4.0

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

        tempvar xp yp

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

        gph vline `yp' `xp'

end