program define two
    version 4.0 

        wdctl button "menu1"   15 90 25 12 HJN_B1
        wdctl button "menu2"   45 90 25 12 HJN_B2
        wdctl button "stop"    75 90 25 12 HJN_B3
        
        global HJN_B1 "two1dr"
        global HJN_B2 "two2dr"
        global HJN_B3 "exit 1234"

        set more 1        
        cap noi wdlg "Scatterplots"  5 5 130 132 
        set more 0

end

program define two1dr
    version 4.0 

        wdctl button "Work"   15 90 25 12 HJN_B1
        wdctl button "Main"   45 90 25 12 HJN_B2
        wdctl button "stop"   75 90 25 12 HJN_B3
        
        global HJN_B1 "two1"
        global HJN_B2 "two"
        global HJN_B3 "exit 1234"
        
        cap noi wdlg "Two1dr"  5 5 130 132 

end

program define two2dr
    version 4.0 

        wdctl button "Work"   15 90 25 12 HJN_B1
        wdctl button "Main"   45 90 25 12 HJN_B2
        wdctl button "stop"   75 90 25 12 HJN_B3
        
        global HJN_B1 "two2"
        global HJN_B2 "two"
        global HJN_B3 "exit 1234"
        
        cap noi wdlg "Two2dr"  5 5 130 132 

end