ClrHome
Lbl ZZ
Menu("Welk doeleinde?","Texel Monopoly",A,"Dobbelen",B,"DnD",C,"Sluiten",Z
Lbl Z
Stop
Lbl A
Menu("Extra steen?","Ja",ES,"Nee",AB
Lbl ES
Menu("Al langs start?","Ja",AA,"Nee",AB,"Terug",ZZ
Lbl AB
randInt(1,6,2
Disp Ans,sum(Ans
Stop
Lbl AA
randInt(1,6,2
Disp Ans,sum(Ans
randInt(1,3)+sum(Ans
If int(2rand
sub("MMB",randInt(1,3),1
Disp Ans
Stop
Lbl B
Disp "Hoeveel stenen?
Input A
ClrHome
Disp randInt(1,6,A
Stop
Lbl C
Disp "D-hoeveel?","Hoeveel rolls?
Prompt D,R
ClrHome
Disp randInt(1,D,R
Stop