\START85\
\COMMENT=Program file dated 01/10/96, 18:19
\NAME=Lot
\FILE=LOT.85P
:Float
:6\->\dimL GUESS
:6\->\dimL LOT
:Float
:ClLCD
:1\->\X
:Lbl OH
:int (47*(rand))+1\->\Y
:0\->\H
:For(Z,1,6)
:If Y==LOT(Z)
:H+1\->\H
:End
:If H==0
:Then
:Y\->\LOT(X)
:Else
:Goto OH
:End
:IS>(X,6)
:Goto OH
:1\->\X
:Lbl PH
:Input "Number: ",Y
:If Y<1 or Y>47 or Y\<>\(iPart Y)
:Goto PH
:0\->\H
:For(Z,1,X-1)
:If Y==GUESS(Z)
:H+1\->\H
:End
:If H==0
:Then
:Y\->\GUESS(X)
:Else
:Goto PH
:End
:IS>(X,6)
:Goto PH
:ClLCD
:0\->\I
:For(G,1,6)
:If GUESS(G)<10
:I+1\->\I
:End
:2+iPart (I/2)\->\I
:Outpt(1,1,"---------------------"
:Outpt(2,8,"LOTTERY")
:Outpt(3,8,"PICK 6!")
:Outpt(5,I,GUESS)
:Outpt(7,7,"NO KICKER"
:Outpt(8,1,"---------------------"
:Pause 
:ClLCD
:Outpt(1,1,"AND TONIGHT'S WINNINGPICK 6 #'S ARE:"
:Outpt(3,2,LOT)
:0\->\VV
:For(C,1,6)
:For(D,1,6)
:If GUESS(C)==LOT(D)
:VV+1\->\VV
:End
:End
:Outpt(5,1,"YOU GOT")
:Outpt(5,9,VV)
:Outpt(5,11,"RIGHT WITH")
:Outpt(6,1,GUESS)
:Pause 
:ClLCD
\STOP85\