:ClLCD:1üQ:1üR
:Disp "GUESS NUMBER"
:Disp "FROM   0...9"
:Lbl NOPPAMAS
:Input "NO.?=",N
:iPart 10randüM
:QüS:RüQ:MüR
:
:If M==N:Then
:Disp "WINNER",M
:Else
:Disp "LOSER",M
:End
:
:Goto NOPPAMAS
:

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

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