' Zahlenratespiel

RANDOMIZE TIMER

CLS
zz% = 1 + CINT(INT(50! * RND))

versuch% = 0
DO
  versuch% = versuch% + 1
  PRINT "Versuch"; versuch%
  DO
    INPUT "Zahl von 1-50"; Zahl%
  LOOP UNTIL Zahl% >= 1 AND Zahl% <= 50
  IF Zahl% < zz% THEN
    PRINT "zu niedrig"
  ELSEIF Zahl% > zz% THEN
    PRINT "zu hoch"
  END IF
LOOP UNTIL Zahl% = zz%

PRINT "Richtig! In"; versuch%; "Versuchen erraten"