:GUESS2:
ClrHome
Output(4,3,"THE GUESSING")
Output(5,6,"GAME2!")
Pause 
Lbl 1
5üC
Real
Fix 0
randInt(1,25)üB
Lbl 2
ClrHome
Disp "GUESS A NUMBER"
Disp "BETWEEN 1ú25"
Disp "YOU HAVE"
Output(3,10,C)
Disp "CHANCES"
Prompt N
NüA

If A=B
Then
Goto 4
Else
Goto 3
Lbl 3
ClrHome
Disp "INCORRECT"
C-1üC
If C<1
Then
Goto 7
Else
If A>B
Then
Disp "THE NUMBER IS"
Disp "SMALLER THAN"
Output(3,14,A)
Else
Disp "THE NUMBER IS"
Disp "LARGER THAN"
Output(3,13,A)
Output(6,1,"PRESS ENTER")
Pause 
Goto 2
Lbl 4
ClrHome
Disp "CORRECT!"
Pause 
Lbl 5
Menu("PLAY AGAIN?","YES",1,"NO",6
Lbl 6
Float
Goto 8
Lbl 7
ClrHome
Disp "YOU LOSE"
Disp "THE NUMBER WAS"
Output(3,1,B)
Pause 
Goto 5
Lbl 8
ClrHome
Disp "THANKS FOR"
Disp "PLAYING"
Disp "MADE BY:"
Output(6,4,"JON AXFORD")
End

Note ü is for store