`' Stations/Straight Losses`

' 7/58, 10/35?,11/40, 12/31, 13/28, 14/20, 15/20, 16/19, 17/27, 18/11

5 DIM so(500)

7 INPUT "# of stations"; s

10 RANDOMIZE TIMER

20 rs = INT(RND * 37): sp = sp + 1

30 IF rs < s THEN so(sl) = so(sl) + 1: sl = 0: GOTO 70 'output

40 'loss

50 sl = sl + 1: IF sl > ml THEN ml = sl

60 ' output

70 'CLS: PRINT "Spins:"; sp

80 'PRINT "Losses:"; ml

90 IF sp = 16000000 THEN 120

101 a$ = INKEY$: IF a$ = "q" OR a$ = "Q" THEN END

110 GOTO 20

120 cr = cr + 1

130 CLS: PRINT "Completed Results:"; cr

135 IF ml >= oml THEN oml = ml

140 PRINT "Max Loss:"; oml

142 PRINT: GOSUB 200

150 sp = 0: GOTO 20

200 FOR i = 1 TO 58

210 PRINT so(i);: so(i) = 0: NEXT i

220 RETURN

This will output the maximum number of straight losses per inside betting station you specify. I think its a great demonstration about the "mean" and how roulette is an extremely balanced & reliable game.