Gussin game

[Crazya]

%Aaron Hazley

var b : int
var a : int
put " Please enter any number in the world and i will guess it "
put " NOW DO IT!"
get b
cls

a := 57
a := a + 1
View.Set ("graphics")

colorback (black)
cls
Text.Color (Rand.Int (1, 200))


put "Guessing"
loop

Text.Color (Rand.Int (1, 200))



Draw.Box (583, 385, 57, 400, Rand.Int (1, 200))

delay (10)
a := a + 1

Draw.FillBox (57, 385, a, 400, Rand.Int (1, 200))
exit when a > 582
end loop
Text.Color (Rand.Int (1, 100))

put " your number is ", b
put " Dam Right BOI!!!!"