*! version 1.0.0 STB-34 gr20
program define plotrds2
        version 5.0

        preserve
        clear

        use census90

        gph open, saving(plotrds2.gph,replace)
        graph x y/* [weight=kids]*/, s(.) xlab(-96,-95.6,-95.2,-94.8) /*
            */  ylab(29.5,29.6,29.7,29.8,29.9,30,30.1,30.2) /*
            */  bbox(3000,0,23000,30000,850,400,0)
        gphsave

        gph text 1000 16000 0 0 1990 Census Tracts in Harris County, Texas

        gphdt vline lttude lgtude in 1/47
        gphdt vline lttude lgtude in 48/58
        gphdt vline lttude lgtude in 59/71
        gphdt vline lttude lgtude in 72/82
        gphdt vline lttude lgtude in 83/90
        gphdt vline lttude lgtude in 91/96
        gphdt vline lttude lgtude in 97/107
        gphdt vline lttude lgtude in 108/147
        gphdt vline lttude lgtude in 148/153

        gph close

        restore
end