\START85\
\COMMENT=Program file dated 04/26/96, 21:05
\NAME=NumGame
\FILE=NUMGAME.85P
:0\->\V
:0\->\Z
:Lbl Y
:ClLCD
:iPart (rand*1000+1)\->\A
:1\->\C
:Lbl S
:Outpt(4,11,C)
:Input "Your Guess: ",G
:iPart ((G-1)/62.5+2)\->\B
:ClLCD
:Outpt(8,1,1)
:Outpt(8,18,1000)
:If G<1 or G>1000 or iPart G\<>\G
:Goto S
:If G>A
:Outpt(8,B,"<")
:If G<A
:Outpt(8,B,">")
:If G==A
:Then
:ClLCD
:V+1\->\V
:Outpt(3,8,"Winner!")
:Outpt(4,11,C)
:Outpt(8,1,1)
:Outpt(8,18,1000)
:Outpt(8,B,"*")
:Pause 
:Goto W
:End
:IS>(C,10)
:Goto S
:iPart (A/62.5+2)\->\B
:ClLCD
:Z+1\->\Z
:Outpt(3,8,"Sorry!")
:Outpt(7,10,A)
:Outpt(8,1,1)
:Outpt(8,18,1000)
:Outpt(8,B,"X")
:Pause 
:Lbl W
:ClLCD
:Outpt(5,6,"Play Again?")
:Outpt(2,3,"Wins:")
:Outpt(2,9,V)
:Outpt(3,1,"Losses:")
:Outpt(3,9,Z)
:Menu(1,"YES",Y,5,"NO",NO)
:Lbl NO
:Stop
\STOP85\