CLS
2
s$ = COMMAND$
IF s$ <> "" THEN
  spiele = VAL(s$)
ELSE
  INPUT "Wie h„ufig soll gespielt werden?", spiele
END IF

IF spiele = 0 THEN s$ = "": GOTO 2

RANDOMIZE TIMER
DIM a(100)

DO

  FOR s = 1 TO 25
    y = 0: x = 0
    FOR t = 1 TO spiele
      ist1 = 0
      FOR i = 1 TO s
        a(i) = INT(RND * 6) + 1
      NEXT
      FOR i = 1 TO s
        IF a(i) = 1 THEN ist1 = 1
      NEXT
      FOR i = 1 TO s
        x = x + a(i)
      NEXT
      IF ist1 = 1 THEN x = 0
      y = y + x
      x = 0
    NEXT t
    PRINT y / spiele,
  NEXT s
  SLEEP: PRINT
  a$ = INKEY$
LOOP WHILE a$ <> "e"