Im a beginning programmer, and i came here to expand my knowledge. My best program is probably as follows: simple, but fun.
:ClrHome
:randInt(1-100)(sto)A
:Disp "guess a number"
:Disp "1-100"
:0(sto)X
:Lbl 1
:Input B
:If A>B
:Then
:Goto 2
:Else
:If A<B
:Then
:Goto 3
:Else
:If A=B
:Goto 4
:Lbl 2
:1+X(sto)X
:Disp "higher"
:Goto 1
:Lbl 3
:1+X(sto)X
:Disp "Lower"
:Goto 1
:Lbl 4
:ClrHome
:1+X(sto)X
:Output(3,5,"correct"
:Output(5,8,X
:Output(7,6,"turns"
:Pause
:ClrHome"Oh it seems that upstream I keep rowing,
Still got such a long way to go"