program define testgph
    version 4.0

    preserve
    clear

    gph open
    gph pen 1

    set obs 100

    gen x=uniform()

    graph x,xlab ylab

    gph close
    gph open
    gph pen 1

    graph x, xlab ylab

    gph close

    restore

end
exit