Const LEVELNR% = 11
Dim points(LEVELNR)
Points_Init()

Points_Set(1,87)
Points_Set(2,32)
Points_Set(3,56)

Local PunkteAnzeige% = Points_GetTotal()

Repeat
Cls
   Text 10,10,PunkteAnzeige
Flip
Until KeyHit(1)
End



Function Points_Set(level%,p%)
   points(level) = crypt(p)
End Function

Function Points_Get%(level%)
   Return uncrypt(points(level))
End Function

Function Points_Init()
   For i=0 To LEVELNR-1
      Points_Set(i,0)
   Next
End Function

Function Points_GetTotal%()
   Local p = 0
   For i=0 To LEVELNR-1
      p = p + Points_Get(i)
   Next
   Return p
End Function


Function crypt(val%)
   Return (val+1) Xor 3218923
End Function

Function uncrypt(val%)
   Return (val Xor 3218923) - 1
End Function