lnChange = 0 lnNotChange = 0 Do While Inkey() == 0 * This door contains the boat lnDoor = Int(Rand()*3)+1 * This is your selected door lnChoice = Int(Rand()*3)+1 * These doors are available after you made a choice lcAvailable = ChrTran("123",Str(lnChoice,1),"") * Trim out the right one. Remains the door that is opened by Monty lcAvailable = ChrTran(lcAvailable,Str(lnDoor,1),"") * You picked the wrong one. You win when you change If Len(lcAvailable) == 1 lnChange = lnChange + 1 * You picked the right one. You win when you don't change Else lnNotChange = lnNotChange + 1 Endif @ 1,0 Say "Win when change:"+Str(lnChange) @ 2,0 Say "Win when don't change:"+Str(lnNotChange) EnddoChristof