Here's another way of thinking about it:
You are 10 feet away from a cliff. You flip a coin, and if it's heads you move one foot away from the cliff, but if it's tails you move one foot closer.
If you fall off the cliff you lose. You flip the coin 25 times.
Find out the probability of being alive (assuming falling off the cliff kills you) at the end by doing this experiment 100, 1000, and 10000 times (each time, you start 10 feet away)
Anyway, this should work:
0->B ‘Reset variables
For(T,1,U `100 trials
10->M `Reset amount of money
For(N,1,25 `25 coin flips
M+2*randInt(0,1)-2->M `randomly either add or subtract $1
If M>25-N `If you can’t lose (money>remaining flips), end trial
If not(M `If you have no more money, end trial
Disp T `show how many trials are completed
B+(N-26)->B `check/record whether trial was ended from losing all money or winning.
Disp B/U `show probability