**TI92**mainProgram: 02\02\1997 10:14:20 AMRrouletteg¥Z () Prgm 100n 0wins 0losses For i,1,n 10w While w>0 and w<20 If rand()<18/38 Then w+1w Else w-1w EndIf EndWhile If w=20 Then wins+1wins Else losses+1losses EndIf EndFor Disp "wins = " Disp wins Disp "losses = " Disp losses EndPrgm äåÜM