10 lines
301 B
Plaintext
10 lines
301 B
Plaintext
hello|
|
|
$do random<1;128;> -> n|
|
|
$0 -> guess|
|
|
until variable guess = variable n [
|
|
$do input<'guess: ';> -> guess|
|
|
do print<'too high';> if variable guess > variable n|
|
|
do print<'too low';> if variable guess < variable n|
|
|
do print<'correct!';> if variable guess = variable n|
|
|
]|
|
|
goodbye| |