//zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
Sub Present_Score()
Dim LastLOWScore As Word
EE.Read(1,LastLOWScore) //read the eeprom
If Prev_score < LastLOWscore Then //COMPARE LOW AND PRESENT SCORE ON EEPROM
EE.Write(1,Prev_score)
cls //write previous lowscore to eeprom
writeat(1,1,"last score",Prev_score) //susposed to show what Prev_score is (write to eeprom
delayms(2000)
EndIf
End Sub
//read eeprom for lastLOWscore
//if Prev_score is lower than lastLOWscore then Prev_score needs to become lastLOWscore written to eeprom
Sub ReadScore()
Dim tmpByte As Byte
Dim LastLOWScore As Word
EE.Read(0,tmpByte)
If tmpByte = $77 Then
EE.Read(1,LastLOWScore) //READ LASTLOWSCORE ON EEPROM
cls
WriteAt(1,1,"YOUR SCORE")
WriteAt(2,1,"SECONDS ",s," " ) //showscore(LastLOWScore)ON LCD
delayms(2000)
Else
LastlowScore = 0
EE.Write(0,$77,LastLOWScore)
WriteAt(1,1,"lOWEST SCORE")
WriteAt(2,1,DecToStr(Prev_score)) //showscore(LastLOWScore)
EndIf
End Sub