Declare Function GetPrivateProfileInt Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer
Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
Declare Function WritePrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lplFileName As String) As Integer
Sub InitField ()
'Tell user to wait
MyMemory.MousePointer = HOURGLASS
'Reset status variables
CurrentSquare = 0
CurrentSquare1 = 0
CurrentMoves = 0
CurrentSolved = 0
'Enter Scene pointers, 2 each on the field
' also Reset squares to closed
Scene% = 0
For X% = 0 To (NumberXSquares - 1)
For Y% = 0 To (NumberYSquares - 1)
'Reset square to closed
SquareStatusArray(X%, Y%) = SquareClosed
'Set scene value
SquareSceneArray(X%, Y%) = Scene%
'If half way thru array, repeat scenes
If Scene% < ((NumberXSquares * NumberYSquares) / 2 - 1) Then