program define prob1
    version 4.0

    global stat=1
    while $stat==1{

        probab

    }

program define probab
    version 4.0


    wdctl button "Coins"        5 10 35 14 D_b1
    wdctl button "1-Die"       45 10 35 14 D_b2
    wdctl button "2-Dice"      85 10 35 14 D_b3
    wdctl button "Lottery"    125 10 35 14 D_b4
    wdctl button "Close"      165 10 35 14 D_b5
    wdctl button "Help"       205 10 35 14 D_b6

    global D_b1 "coins"
    global D_b2 "die"
    global D_b3 "dice"
    global D_b4 "lott"
    global D_b5 "exit 1234"
    global D_b6 "whelp prob"

    noi wdlg "Probability" $D_dlgx $D_dlgy 250 60

end

program define coins
    version 4.0

    
    wdctl button "Run"          5 10 35 14 D_b1
    wdctl button "Back"        45 10 35 14 D_b2

    global D_b1 "coinsdr"
    global D_b2 "exit"

    cap noi wdlg "Coins" $D_dlgx $D_dlgy 250 30

end
program define coinsdr
    version 4.0

    local i=1
    di `i'

end


program define die
    version 4.0

    
    wdctl button "Run"          5 10 35 14 D_b1
    wdctl button "Back"        45 10 35 14 D_b2

    global D_b1 "diedr"
    global D_b2 "exit"

    cap noi wdlg "Die" $D_dlgx $D_dlgy 250 30

end
program define diedr
    version 4.0

    local i=2
    di `i'

end


program define dice
    version 4.0

    
    wdctl button "Run"          5 10 35 14 D_b1
    wdctl button "Back"        45 10 35 14 D_b2

    global D_b1 "dicedr"
    global D_b2 "exit"

    cap noi wdlg "Dice" $D_dlgx $D_dlgy 250 30

end
program define dicedr
    version 4.0

    local i=3
    di `i'

end


program define lott
    version 4.0

    
    wdctl button "Run"          5 10 35 14 D_b1
    wdctl button "Back"        45 10 35 14 D_b2

    global D_b1 "lottdr"
    global D_b2 "exit"

    cap noi wdlg "Lottery" $D_dlgx $D_dlgy 250 30

end
program define lottdr
    version 4.0

    local i=4
    di `i'

end