; (c) 2000 Bengt Werstén and Jefa from Transmission Productions
;
;"->" is the STO>-button
;
Prgm1:GUESS
:ClrHome
:0->W
:Disp ""
:Disp "  GUESSING 81"
:Disp ""
:Disp "  BY BENGT W"
:Disp ""
:Disp "  AND JEFA"
:Pause
:ClrHome
:Disp "SELECT MAXIMUM"
:Input A
:Int RandA->T
:Goto A
:Lbl A
:ClrHome
:Disp "GUESS"
:W+1->W
:Input G
:If G=T
:Goto V
:If G>T
:Goto M
:If G<T
:Goto S
:Lbl M
:Disp "IT IS LOWER"
:Pause
:Goto A
:Lbl S
:Disp "IT IS BIGGER"
:Pause
:Goto A
:Lbl V
:ClrHome
:Disp "HURRAY"
:Disp "CORRECT ANSWER"
:Disp T
:Disp "TRIES"
:Disp W
:Disp "MAX WAS"
:Disp A
:Stop