\start83P\
\comment=Program file dated 04/09/00, 10:00
\protected=TRUE
\name=GUESS
\file=F:\PROGRA~1\TIEDUC~1\TI-GRA~2\FILES\BASIC\GUESS_~1.TXT
ClrHome
Disp "STARTING UP..."
Full
UnArchive \L\GUESS

ClrHome
Disp "     GUESS?"
Pause 
ClrHome
Disp "BY:","","KIROS LIONHEART"
Pause 
ClrHome
Lbl M
ClrHome
Menu("GUESS?","START GUESSING",1,"VIEW RECORD",R,"CLEAR RECORD",C,"INFO",I,"QUIT",Q)
Lbl I
ClrHome
Disp "     GUESS?","   RELEASE 2"
Pause 
Goto M
Lbl 1
ClrHome
Normal
Float
Real
0\->\Y
0\->\T
randInt(1,10)\->\X
While Y\!=\X
ClrHome
Disp "I'M THINK OF","A NUMBER BETWEEN","1 AND 10"
Input "WHAT IS IT? ",Y
T+1\->\T
End
ClrHome
Disp X,"YOU GOT IT!","IT TOOK YOU",T,"TRIES"
Pause 
ClrHome
Disp "UPDATING RECORD"
\L\GUESS(1)+1\->\\L\GUESS(1)
\L\GUESS(2)+T\->\\L\GUESS(2)
ClrHome
Disp "PLAY AGAIN?"
Input "YES=1- ",P
If P=1
Then
Goto 1
Else
Goto Q
End
Lbl Q
ClrHome
Disp "ARE YOU SURE YOU","WANT TO QUIT?"
Input "YES=1- ",Q
If Q=1
Then
ClrHome
Archive \L\GUESS
Stop
Else
Goto M
End
Lbl C
ClrHome
Disp "ARE YOU SURE YOU","WANT TO CLEAR","YOUR RECORD?"
Input "YES=1- ",C
If C\!=\1
Then
Goto M
Else
{0,0}\->\\L\GUESS
ClrHome
Disp "RECORD CLEARED"
Pause 
Goto M
End
Lbl R
ClrHome
Disp "SCORE:",\L\GUESS(2),"GAMES PLAYED",\L\GUESS(1),"","LOWER SCORE IS","BETTER"
Pause 
Goto M
\stop83P\