PGRM:GUESS ClrHome 0 ->A (Int(Rand*100)) ->X Lbl 1 Disp "GUESS NUM? (1-100)" Input Y A+1 -> A If Y=X Goto 9 If Y< X Goto 3 Lbl2 Disp "LOWER" Goto 1 Lbl 3 Disp "HIGHER" Goto 1 Lbl 9 Disp "CORRECT!" Disp "IT TOOK " Disp A Disp "GUESSES"