program define trypoint
    version 4.0

    preserve 
    clear

    gph open
    gph pen 1

    gph point 10000 10000 1000 1

    set obs 100
    gen x=uniform()
    gen y=uniform()

    graph y x, xlab ylab
    gphconv

*    drpoint .5 .5 10000

    gph close

    restore

end
exit