dim Taste as string

randomize timer

do

Zahl=int(rnd*100)+1   'eine Zahl zwischen 1 und 100 wird ausgewählt

do
input "Geben Sie bitte eine Ratezahl an ", Rate
if Rate<Zahl then 
    print "Ihre Zahl ist zu klein"
elseif Rate=Zahl then
    print "Herzlichen Glückwunsch! Das war richtig!"
else print "Ihre Zahl ist zu groß"
end if
loop until Rate=Zahl

print "Möchten Sie noch einmal spielen? (j/n)"
do 
    Taste=inkey$ 
loop until Taste<>""

loop until Taste="n"