nomainwin
WindowHeight = 312
Windowwidth = 145
statictext #hilo.instruct, "Enter you guess here", 14,16,176,20
textbox #hilo.guessField, 14,41,216,25
button #hilo.guessNow,"Guess",[guessNow],UL,238,41,50,25
statictext #hilo.status, "???", 14,81,176,20

open "Fabulous hilo game" for window as #hilo



[start]
target = int(rnd(1)*100)+1
count=0
wait

[guessNow]
print #hilo.guessField,"!contents? guess"
count= count+1
if guess=target then [win]
if guess<target then status$="guess higher"
if guess>target then status$="guess lower"
print #hilo.status, status$;" "; count;" guesses"
wait

[win]
close #hilo