:Disp "cranwell@yahoo.com"
:iPart 1106randüNW:NWürand
:For(W,1,5):Disp "":End:1üP
:Disp "GUESS NUMBER":Disp "":5üL
:Menu(1,"NEW",HA,4,"    ",LV,5,"LAST",LT)
:Lbl LV:Input "LEVEL=",L
:Lbl HA:0üX:19üR:Outpt(7,1,"LEVEL"):Outpt(7,7,L)
:If L==1:Outpt(7,7,"IDIOT")
:If L==14:Outpt(7,7,"GENIUS")
:{1,L}üdim U:{1,L}üdim T:0üD
:Repeat D==L:D+1üD:iPart 10randüT(1,D):End
:Lbl A:0üZ:For(I,4,L+3):Outpt(8,I,"?"):End
:Prompt Q:QüP:X+1üX:19üK:LüD
:Repeat D==0:.1QüQ
:If P<1:PüQ:(fPart Q)*10üU(1,D):iPart QüQ
:If T(1,D)==U(1,D):Z+1üZ:Outpt(7,3+D," "):Outpt(7,K,U(1,D))
:If P==401:Outpt(7,K,T(1,D)):D-1üD:K-1üK:End
:Outpt(7,1,"Q="):"CORRECT"üE
:Outpt(8,10,Z):Outpt(8,13,E):Disp "":Outpt(1,1,NW)
:If Z==L:Then:Outpt(8,8,"WINNER"):Disp ""
:Outpt(8,6,X):Outpt(8,11,"GUESSES"):Disp "",""
:If X>(5+L*3):L-1üL:If X<(4+L*3):L+1üL
:If L<1:1üL:If L>14:14üL:Goto HA:End
:TüTNW:LüLNW:UüUNW:XüXNW:Goto A
:Lbl LT:TNWüT:LNWüL:UNWüU:XNWüX:Goto A
:

    Source: geocities.com/paris/arc/1927/ti85

               ( geocities.com/paris/arc/1927)                   ( geocities.com/paris/arc)                   ( geocities.com/paris)