**FZPLOT**
capture program drop fzplot
program define fzplot, rclass
version 9.0
syntax namelist(max=2) [if] [, MLABel(varname)]
unab vlist : _all
local v `namelist'
local y: word 1 of `v'
local x: word 2 of `v'

qui cnfgen `x'
twoway (scatter `v', aspect(1) mlabel(`mlabel')) (function y=x, clwidth(*2.5) range(0 1))
qui keep `vlist'
end