;HW1: Guess My Number
x=fix(randomu(seed)*100)+1
b=0
a=0
while a ne x do begin
   read,'Guess My Number (1-100)? ',a
   b=b+1
   if x gt a then print,'Higher.'
   if x lt a then print,'Lower.'
endwhile
print,'Correct!  '+strcompress(b)+' tries.'
end