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

If A=B
Then
Goto 4
Else
Goto 3
Lbl 3
Disp "INCORRECT"
Pause 
C-1üC
If C=0
Then
Goto 7
Else
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 that ü means store