Planet Source Code Jumbo …e CD Visual Basic 1 to 7/6_2008-2009.ISO/data/zips/a_3d_maze_212595962008.psc/3dmaze.frm

Text File | 2008-09-06 | 106KB | 2,800 lines

VERSION 5.00
Begin VB.Form frm3DMaze
   BackColor       =   &H00FFFFFF&
   Caption         =   "Ultimate Maze"
   ClientHeight    =   4560
   ClientLeft      =   1560
   ClientTop       =   1980
   ClientWidth     =   6000
   BeginProperty Font
      Name            =   "Arial"
      Size            =   8.25
      Charset         =   178
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "3dmaze.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   4560
   ScaleWidth      =   6000
   Begin VB.TextBox Text2
      Appearance      =   0  'Flat
      BorderStyle     =   0  'None
      BeginProperty Font
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   178
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   288
      Left            =   4440
      TabIndex        =   2
      Top             =   4200
      Width           =   1335
   End
   Begin VB.Timer Timer2
      Interval        =   1000
      Left            =   960
      Top             =   120
   End
   Begin VB.TextBox Text1
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'None
      BeginProperty Font
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   178
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   288
      Left            =   0
      Locked          =   -1  'True
      TabIndex        =   1
      Top             =   3720
      Width           =   3360
   End
   Begin VB.VScrollBar VScroll1
      Height          =   4212
      LargeChange     =   5
      Left            =   5760
      Max             =   60
      Min             =   30
      TabIndex        =   0
      Top             =   0
      Value           =   45
      Width           =   252
   End
   Begin VB.Timer Timer1
      Enabled         =   0   'False
      Interval        =   55
      Left            =   0
      Top             =   0
   End
   Begin VB.Menu mnuAction
      Caption         =   "&Action"
      Begin VB.Menu mnuActionItem
         Caption         =   "&New"
         Index           =   0
      End
      Begin VB.Menu mnuActionItem
         Caption         =   "&Solve"
         Enabled         =   0   'False
         Index           =   1
      End
      Begin VB.Menu mnuActionItem
         Caption         =   "&Clear"
         Enabled         =   0   'False
         Index           =   2
      End
      Begin VB.Menu mnuActionItem
         Caption         =   "-"
         Index           =   3
      End
      Begin VB.Menu mnuActionItem
         Caption         =   "E&xit"
         Index           =   4
      End
   End
   Begin VB.Menu mnuStyle
      Caption         =   "&Style"
      Begin VB.Menu mnuStyleItem
         Caption         =   "&Hexagonal rooms"
         Index           =   0
      End
      Begin VB.Menu mnuStyleItem
         Caption         =   "&Square rooms"
         Index           =   1
      End
   End
   Begin VB.Menu mnuHelp
      Caption         =   "&Help"
      Begin VB.Menu mnuHelpItem
         Caption         =   "&About..."
         Index           =   0
      End
   End
End
Attribute VB_Name = "frm3DMaze"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit

Private Type CornerRec
  X As Long
  Y As Long
End Type

Private Type VertexRec
  X As Double
  Y As Double
End Type

Private Type StackRec
  Index1 As Byte
  Index2 As Integer
End Type

Private Type PALETTEENTRY
  peRed As Byte
  peGreen As Byte
  peBlue As Byte
  peFlags As Byte
End Type

Private Type LOGPALETTE
  palVersion As Integer
  palNumEntries As Integer
  palPalEntry(16) As PALETTEENTRY
End Type

Private Declare Function CreatePalette Lib "GDI32" (LogicalPalette As LOGPALETTE) As Long
Private Declare Function CreatePen Lib "GDI32" (ByVal PenStyle As Long, ByVal Width As Long, ByVal Color As Long) As Long
Private Declare Function CreatePolygonRgn Lib "GDI32" (lpPoints As Any, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
Private Declare Function CreateSolidBrush Lib "GDI32" (ByVal rgbColor As Long) As Long
Private Declare Function DeleteObject Lib "GDI32" (ByVal hndobj As Long) As Long
Private Declare Function FillRgn Lib "GDI32" (ByVal hDC As Long, ByVal hRegion As Long, ByVal hBrush As Long) As Long
Private Declare Function GetDeviceCaps Lib "GDI32" (ByVal hDC As Long, ByVal Index As Long) As Long
Private Declare Function LineTo Lib "GDI32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function MoveToEx Lib "GDI32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, ByVal NullPtr As Long) As Long
Private Declare Function RealizePalette Lib "GDI32" (ByVal hDC As Long) As Long
Private Declare Function SelectPalette Lib "GDI32" (ByVal hDC As Long, ByVal PaletteHandle As Long, ByVal Background As Long) As Long
Private Declare Function SelectObject Lib "GDI32" (ByVal hDC As Long, ByVal ObjectHandle As Long) As Long

Const PLANES = 14
Const BITSPIXEL = 12
Const PC_NOCOLLAPSE = 4
Const COLORS = 24
Const PS_SOLID = 0

Const NumColors = 16
Const TopColor = 12: ' all but last 3 colors are gray
Const RectangleSENWColor = 10
Const TriangleSSENNWColor = 9
Const TriangleSENWColor = 8
Const RectangleWEColor = 7
Const FloorColor = 6
Const TriangleSWNEColor = 5
Const RectangleSWNEColor = 4
Const TriangleSSWNNEColor = 3
Const BackoutColor = 13
Const AdvanceColor = 14
Const SolutionColor = 15

Const RelativeWidthOfWall = 0.25: ' relative to side of hexagon or square
Const RelativeHeightOfWall = 2#: ' relative to side of hexagon or square
Const MinWallLengthInInches = 0.25

Const SecondsForMazeSelection = 0.25
Dim timetaken
Dim AlreadyPainting As Boolean
Dim BaseRectangle(5, 3) As VertexRec
Dim BaseTriangle(3, 2) As VertexRec
Dim ComputerPage() As Byte
Dim CosTilt As Double
Dim CurrentColor As Integer
Dim HexDeltaX(5, 719) As Integer
Dim HexDeltaY(5, 719) As Integer
Dim MaxX As Integer
Dim MaxY As Integer
Dim Minimized As Boolean
Dim NumColumns As Integer
Dim NumRealized As Long
Dim NumRoomsInMaze As Integer
Dim NumRows As Integer
Dim OldPaletteHandle As Long
Dim Paint As Boolean
Dim PaletteHandle As Long
Dim PixelsPerX As Double
Dim PixelsPerZ As Double
Dim Rectangle(5, 3) As VertexRec
Dim RedGreenBlue(16) As Long
Dim RelDistOfUserFromScreen As Double
Dim Resize As Boolean
Dim Seed As String
Dim SinTilt As Double
Dim SolutionDisplayed As Boolean
Dim SqrDeltaX(3, 23) As Integer
Dim SqrDeltaY(3, 23) As Integer
Dim Sqrt3 As Double
Dim Stack() As StackRec
Dim State As Byte
Dim SubstitutionHigh(99) As Byte
Dim SubstitutionLow(99) As Byte
Dim Tilt As Double
Dim UsePalette As Boolean
Dim UserHasSolved As Boolean
Dim UserPage() As Byte
Dim UserX As Integer
Dim UserXRelative As Double
Dim UserY As Integer
Dim UserYRelative As Double
Dim X As Integer
Dim XMax As Double
Dim XOffset As Double
Dim Y As Integer
Dim YMax As Double
Dim YMod4 As Byte
Dim YOffset As Double

Private Sub DrawQuadrilateral(Box() As CornerRec, ColorNum As Integer)
  Dim Brush As Long
  Dim rc As Long
  Dim Region As Long
  If UsePalette Then
    Brush = CreateSolidBrush(16777216 + ColorNum)
    If Brush Then
      Region = CreatePolygonRgn(Box(0), 4, 1)
      If Region Then
        rc = FillRgn(frm3DMaze.hDC, Region, Brush)
        rc = DeleteObject(Region)
      End If
      rc = DeleteObject(Brush)
    End If
  Else
    Brush = CreateSolidBrush(RedGreenBlue(ColorNum))
    If Brush Then
      Region = CreatePolygonRgn(Box(0), 4, 1)
      If Region Then
        rc = FillRgn(frm3DMaze.hDC, Region, Brush)
        rc = DeleteObject(Region)
      End If
      rc = DeleteObject(Brush)
    End If
  End If
End Sub

Private Sub GetCorner(X#, Y#, Z#, PixelsPerX#, PixelsPerZ#, CosTilt#, SinTilt#, RelDistOfUserFromScreen#, XMax#, XOffset#, YMax#, Corner As CornerRec)
  Dim XAdjusted As Double
  Dim YPrime As Double
  Dim ZAdjusted As Double
  Dim ZPrime As Double

  YPrime = (YMax# - Y#) * CosTilt# - Z# * SinTilt#
  ZPrime = (YMax# - Y#) * SinTilt# + Z# * CosTilt#
  ZAdjusted = (YMax# / 2#) + RelDistOfUserFromScreen# * (ZPrime - (YMax# / 2#)) / (YPrime + RelDistOfUserFromScreen#)
  XAdjusted = (XMax# / 2#) + RelDistOfUserFromScreen# * (X# - (XMax# / 2#)) / (YPrime + RelDistOfUserFromScreen#)
  XAdjusted = XAdjusted + XOffset#
  Corner.X = Int(PixelsPerX# * XAdjusted)
  Corner.Y = (ScaleHeight - Text1.Height) - Int(PixelsPerZ# * ZAdjusted)
End Sub

Private Sub DisplayQuadrilateral(XMax#, XOffset#, YMax#, X0#, Y0#, Z0#, X1#, Y1#, Z1#, X2#, Y2#, Z2#, X3#, Y3#, Z3#, PixelsPerX#, PixelsPerZ#, CosTilt#, SinTilt#, RelDistOfUserFromScreen#, Shade%)
  Dim Quadrilateral(3) As CornerRec
  Dim TemQuad As CornerRec
  Call GetCorner(X0#, Y0#, Z0#, PixelsPerX#, PixelsPerZ#, CosTilt#, SinTilt#, RelDistOfUserFromScreen#, XMax#, XOffset#, YMax#, TemQuad)
  Quadrilateral(0).X = TemQuad.X
  Quadrilateral(0).Y = TemQuad.Y
  Call GetCorner(X1#, Y1#, Z1#, PixelsPerX#, PixelsPerZ#, CosTilt#, SinTilt#, RelDistOfUserFromScreen#, XMax#, XOffset#, YMax#, TemQuad)
  Quadrilateral(1).X = TemQuad.X
  Quadrilateral(1).Y = TemQuad.Y
  Call GetCorner(X2#, Y2#, Z2#, PixelsPerX#, PixelsPerZ#, CosTilt#, SinTilt#, RelDistOfUserFromScreen#, XMax#, XOffset#, YMax#, TemQuad)
  Quadrilateral(2).X = TemQuad.X
  Quadrilateral(2).Y = TemQuad.Y
  Call GetCorner(X3#, Y3#, Z3#, PixelsPerX#, PixelsPerZ#, CosTilt#, SinTilt#, RelDistOfUserFromScreen#, XMax#, XOffset#, YMax#, TemQuad)
  Quadrilateral(3).X = TemQuad.X
  Quadrilateral(3).Y = TemQuad.Y
  Call DrawQuadrilateral(Quadrilateral(), Shade%)
End Sub

Private Sub DrawTriangle(Box() As CornerRec, ColorNum As Integer)
  Dim Brush As Long
  Dim rc As Long
  Dim Region As Long
  If UsePalette Then
    Brush = CreateSolidBrush(16777216 + ColorNum)
    If Brush Then
      Region = CreatePolygonRgn(Box(0), 3, 1)
      If Region Then
        rc = FillRgn(frm3DMaze.hDC, Region, Brush)
        rc = DeleteObject(Region)
      End If
      rc = DeleteObject(Brush)
    End If
  Else
    Brush = CreateSolidBrush(RedGreenBlue(ColorNum))
    If Brush Then
      Region = CreatePolygonRgn(Box(0), 3, 1)
      If Region Then
        rc = FillRgn(frm3DMaze.hDC, Region, Brush)
        rc = DeleteObject(Region)
      End If
      rc = DeleteObject(Brush)
    End If
  End If
End Sub

Private Sub DisplayTriangle(XMax#, XOffset#, YMax#, X0#, Y0#, Z0#, X1#, Y1#, Z1#, X2#, Y2#, Z2#, PixelsPerX#, PixelsPerZ#, CosTilt#, SinTilt#, RelDistOfUserFromScreen#, Shade%)
  Dim Triangle(2) As CornerRec
  Dim TemTriangle As CornerRec
  Call GetCorner(X0#, Y0#, Z0#, PixelsPerX#, PixelsPerZ#, CosTilt#, SinTilt#, RelDistOfUserFromScreen#, XMax#, XOffset#, YMax#, TemTriangle)
  Triangle(0).X = TemTriangle.X
  Triangle(0).Y = TemTriangle.Y
  Call GetCorner(X1#, Y1#, Z1#, PixelsPerX#, PixelsPerZ#, CosTilt#, SinTilt#, RelDistOfUserFromScreen#, XMax#, XOffset#, YMax#, TemTriangle)
  Triangle(1).X = TemTriangle.X
  Triangle(1).Y = TemTriangle.Y
  Call GetCorner(X2#, Y2#, Z2#, PixelsPerX#, PixelsPerZ#, CosTilt#, SinTilt#, RelDistOfUserFromScreen#, XMax#, XOffset#, YMax#, TemTriangle)
  Triangle(2).X = TemTriangle.X
  Triangle(2).Y = TemTriangle.Y
  Call DrawTriangle(Triangle(), Shade%)
End Sub

Private Sub OutputTriangle(XMax#, XOffset#, YMax#, Triangle() As VertexRec, PixelsPerX#, PixelsPerZ#, CosTilt#, SinTilt#, RelDistOfUserFromScreen#, FirstPass%, FaceColor%)
  Dim X0 As Double
  Dim X1 As Double
  Dim X2 As Double
  Dim X3 As Double
  Dim Y0 As Double
  Dim Y1 As Double
  Dim Y2 As Double
  Dim Y3 As Double
  If FirstPass% Then
    If ((Triangle(1).X < XMax# / 2#) And (Triangle(1).X > Triangle(0).X)) Then
      X0 = Triangle(2).X
      Y0 = Triangle(2).Y
      X1 = Triangle(1).X
      Y1 = Triangle(1).Y
      X2 = Triangle(1).X
      Y2 = Triangle(1).Y
      X3 = Triangle(2).X
      Y3 = Triangle(2).Y
      Call DisplayQuadrilateral(XMax#, XOffset#, YMax#, X0, Y0, RelativeHeightOfWall, X1, Y1, RelativeHeightOfWall, X2, Y2, 0#, X3, Y3, 0#, PixelsPerX#, PixelsPerZ#, CosTilt#, SinTilt#, RelDistOfUserFromScreen#, TriangleSSWNNEColor)
    End If
    If ((Triangle(1).X > XMax# / 2#) And (Triangle(1).X < Triangle(2).X)) Then
      X0 = Triangle(1).X
      Y0 = Triangle(1).Y
      X1 = Triangle(0).X
      Y1 = Triangle(0).Y
      X2 = Triangle(0).X
      Y2 = Triangle(0).Y
      X3 = Triangle(1).X
      Y3 = Triangle(1).Y
      Call DisplayQuadrilateral(XMax#, XOffset#, YMax#, X0, Y0, RelativeHeightOfWall, X1, Y1, RelativeHeightOfWall, X2, Y2, 0#, X3, Y3, 0#, PixelsPerX#, PixelsPerZ#, CosTilt#, SinTilt#, RelDistOfUserFromScreen#, TriangleSSENNWColor)
    End If
  Else
    X0 = Triangle(0).X
    Y0 = Triangle(0).Y
    X1 = Triangle(2).X
    Y1 = Triangle(2).Y
    X2 = Triangle(2).X
    Y2 = Triangle(2).Y
    X3 = Triangle(0).X
    Y3 = Triangle(0).Y
    Call DisplayQuadrilateral(XMax#, XOffset#, YMax#, X0, Y0, RelativeHeightOfWall, X1, Y1, RelativeHeightOfWall, X2, Y2, 0#, X3, Y3, 0#, PixelsPerX#, PixelsPerZ#, CosTilt#, SinTilt#, RelDistOfUserFromScreen#, FaceColor%)
    X0 = Triangle(0).X
    Y0 = Triangle(0).Y
    X1 = Triangle(1).X
    Y1 = Triangle(1).Y
    X2 = Triangle(2).X
    Y2 = Triangle(2).Y
    Call DisplayTriangle(XMax#, XOffset#, YMax#, X0, Y0, RelativeHeightOfWall, X1, Y1, RelativeHeightOfWall, X2, Y2, RelativeHeightOfWall, PixelsPerX#, PixelsPerZ#, CosTilt#, SinTilt#, RelDistOfUserFromScreen#, TopColor)
  End If
End Sub

Private Sub OutputRectangle(XMax As Double, XOffset As Double, YMax As Double, Rectangle() As VertexRec, PixelsPerX As Double, PixelsPerZ As Double, CosTilt As Double, SinTilt As Double, RelDistOfUserFromScreen As Double, FaceColor As Integer)
  Dim X0 As Double
  Dim X1 As Double
  Dim X2 As Double
  Dim X3 As Double
  Dim Y0 As Double
  Dim Y1 As Double
  Dim Y2 As Double
  Dim Y3 As Double
  X0 = Rectangle(3).X
  Y0 = Rectangle(3).Y
  X1 = Rectangle(2).X
  Y1 = Rectangle(2).Y
  X2 = Rectangle(2).X
  Y2 = Rectangle(2).Y
  X3 = Rectangle(3).X
  Y3 = Rectangle(3).Y
  Call DisplayQuadrilateral(XMax, XOffset, YMax, X0, Y0, RelativeHeightOfWall, X1, Y1, RelativeHeightOfWall, X2, Y2, 0#, X3, Y3, 0#, PixelsPerX, PixelsPerZ, CosTilt, SinTilt, RelDistOfUserFromScreen, FaceColor)
  X0 = Rectangle(0).X
  Y0 = Rectangle(0).Y
  X1 = Rectangle(1).X
  Y1 = Rectangle(1).Y
  X2 = Rectangle(2).X
  Y2 = Rectangle(2).Y
  X3 = Rectangle(3).X
  Y3 = Rectangle(3).Y
  Call DisplayQuadrilateral(XMax, XOffset, YMax, X0, Y0, RelativeHeightOfWall, X1, Y1, RelativeHeightOfWall, X2, Y2, RelativeHeightOfWall, X3, Y3, RelativeHeightOfWall, PixelsPerX, PixelsPerZ, CosTilt, SinTilt, RelDistOfUserFromScreen, TopColor)
End Sub

Private Sub OutputLeftRight(XMax As Double, XOffset As Double, YMax As Double, Rectangle() As VertexRec, PixelsPerX As Double, PixelsPerZ As Double, CosTilt As Double, SinTilt As Double, RelDistOfUserFromScreen As Double)
  Dim X0 As Double
  Dim X1 As Double
  Dim X2 As Double
  Dim X3 As Double
  Dim Y0 As Double
  Dim Y1 As Double
  Dim Y2 As Double
  Dim Y3 As Double
  If 2# * Rectangle(0).X > XMax Then
    X0 = Rectangle(0).X
    Y0 = Rectangle(0).Y
    X1 = Rectangle(3).X
    Y1 = Rectangle(3).Y
    X2 = Rectangle(3).X
    Y2 = Rectangle(3).Y
    X3 = Rectangle(0).X
    Y3 = Rectangle(0).Y
    Call DisplayQuadrilateral(XMax, XOffset, YMax, X0, Y0, RelativeHeightOfWall, X1, Y1, RelativeHeightOfWall, X2, Y2, 0#, X3, Y3, 0#, PixelsPerX, PixelsPerZ, CosTilt, SinTilt, RelDistOfUserFromScreen, RectangleSENWColor)
  End If
  If 2# * Rectangle(1).X < XMax Then
    X0 = Rectangle(2).X
    Y0 = Rectangle(2).Y
    X1 = Rectangle(1).X
    Y1 = Rectangle(1).Y
    X2 = Rectangle(1).X
    Y2 = Rectangle(1).Y
    X3 = Rectangle(2).X
    Y3 = Rectangle(2).Y
    Call DisplayQuadrilateral(XMax, XOffset, YMax, X0, Y0, RelativeHeightOfWall, X1, Y1, RelativeHeightOfWall, X2, Y2, 0#, X3, Y3, 0#, PixelsPerX, PixelsPerZ, CosTilt, SinTilt, RelDistOfUserFromScreen, RectangleSWNEColor)
  End If
End Sub

Private Sub DrawLine(X1 As Double, Y1 As Double, X2 As Double, Y2 As Double, XMax As Double, XOffset As Double, YMax As Double, CosTilt As Double, SinTilt As Double, PixelsPerX As Double, PixelsPerZ As Double, RelDistOfUserFromScreen As Double)
  Dim LineX1 As Long
  Dim LineX2 As Long
  Dim LineY1 As Long
  Dim LineY2 As Long
  Dim Pen As Long
  Dim PreviousPen As Long
  Dim rc As Long
  Dim tem As CornerRec
  Call GetCorner(X1, Y1, RelativeHeightOfWall, PixelsPerX, PixelsPerZ, CosTilt, SinTilt, RelDistOfUserFromScreen, XMax, XOffset, YMax, tem)
  LineX1 = tem.X
  LineY1 = tem.Y
  Call GetCorner(X2, Y2, RelativeHeightOfWall, PixelsPerX, PixelsPerZ, CosTilt, SinTilt, RelDistOfUserFromScreen, XMax, XOffset, YMax, tem)
  LineX2 = tem.X
  LineY2 = tem.Y
  If UsePalette Then
    Pen = CreatePen(PS_SOLID, 2, 16777216 + CurrentColor)
    If Pen Then
      PreviousPen = SelectObject(frm3DMaze.hDC, Pen)
      rc = MoveToEx(frm3DMaze.hDC, LineX1, LineY1, 0)
      rc = LineTo(frm3DMaze.hDC, LineX2, LineY2)
      rc = SelectObject(frm3DMaze.hDC, PreviousPen)
      rc = DeleteObject(Pen)
    End If
  Else
    Pen = CreatePen(PS_SOLID, 2, RedGreenBlue(CurrentColor))
    If Pen Then
      PreviousPen = SelectObject(frm3DMaze.hDC, Pen)
      rc = MoveToEx(frm3DMaze.hDC, LineX1, LineY1, 0)
      rc = LineTo(frm3DMaze.hDC, LineX2, LineY2)
      rc = SelectObject(frm3DMaze.hDC, PreviousPen)
      rc = DeleteObject(Pen)
    End If
  End If
End Sub

Private Sub Hash(Counter0 As Byte, Counter1 As Byte, Counter2 As Byte, Counter3 As Byte, Counter4 As Byte, Counter5 As Byte, Counter6 As Byte, Counter7 As Byte)
  Dim Iteration As Byte
  Dim Seed0 As Byte
  Dim Seed1 As Byte
  Dim Seed2 As Byte
  Dim Seed3 As Byte
  Dim Seed4 As Byte
  Dim Seed5 As Byte
  Dim Seed6 As Byte
  Dim Seed7 As Byte
  Dim SubstitutionIndex As Byte
  Dim Tem0 As Byte
  Dim Tem1 As Byte
  Dim Tem2 As Byte
  Seed0 = Counter0
  Seed1 = Counter1
  Seed2 = Counter2
  Seed3 = Counter3
  Seed4 = Counter4
  Seed5 = Counter5
  Seed6 = Counter6
  Seed7 = Counter7
  For Iteration = 1 To 8
    SubstitutionIndex = 10 * Seed1 + Seed0
    Tem0 = SubstitutionLow(SubstitutionIndex)
    Tem1 = SubstitutionHigh(SubstitutionIndex)
    SubstitutionIndex = 10 * Seed3 + Seed2
    Seed0 = SubstitutionLow(SubstitutionIndex)
    Tem2 = SubstitutionHigh(SubstitutionIndex)
    SubstitutionIndex = 10 * Seed5 + Seed4
    Seed2 = SubstitutionLow(SubstitutionIndex)
    Seed1 = SubstitutionHigh(SubstitutionIndex)
    SubstitutionIndex = 10 * Seed7 + Seed6
    Seed5 = SubstitutionLow(SubstitutionIndex)
    Seed7 = SubstitutionHigh(SubstitutionIndex)
    Seed3 = Tem0
    Seed6 = Tem1
    Seed4 = Tem2
  Next Iteration
  Counter0 = Seed0
  Counter1 = Seed1
  Counter2 = Seed2
  Counter3 = Seed3
  Counter4 = Seed4
  Counter5 = Seed5
  Counter6 = Seed6
  Counter7 = Seed7
End Sub

Private Sub Increment(Counter0 As Byte, Counter1 As Byte, Counter2 As Byte, Counter3 As Byte, Counter4 As Byte, Counter5 As Byte, Counter6 As Byte, Counter7 As Byte)
  Dim tem As Byte
  tem = Counter0 + 1
  If tem <= 9 Then
    Counter0 = tem
  Else
    Counter0 = 0
    tem = Counter1 + 1
    If tem <= 9 Then
      Counter1 = tem
    Else
      Counter1 = 0
      tem = Counter2 + 1
      If tem <= 9 Then
        Counter2 = tem
      Else
        Counter2 = 0
        tem = Counter3 + 1
        If tem <= 9 Then
          Counter3 = tem
        Else
          Counter3 = 0
          tem = Counter4 + 1
          If tem <= 9 Then
            Counter4 = tem
          Else
            Counter4 = 0
            tem = Counter5 + 1
            If tem <= 9 Then
              Counter5 = tem
            Else
              Counter5 = 0
              tem = Counter6 + 1
              If tem <= 9 Then
                Counter6 = tem
              Else
                Counter6 = 0
                tem = Counter7 + 1
                If tem <= 9 Then
                  Counter7 = tem
                Else
                  Counter7 = 0
                End If
              End If
            End If
          End If
        End If
      End If
    End If
  End If
End Sub

Private Sub HexDisplaySolution(MaxY As Integer, Page() As Byte, XMax As Double, XOffset As Double, YMax As Double, CosTilt As Double, SinTilt As Double, PixelsPerX As Double, PixelsPerZ As Double, RelDistOfUserFromScreen As Double)
  Dim DeltaIndex As Byte
  Dim OldPaletteHandle As Long
  Dim PathFound As Integer
  Dim X As Integer
  Dim XNext As Integer
  Dim XPrevious As Integer
  Dim XRelative As Double
  Dim XRelativeNext As Double
  Dim Y As Integer
  Dim YNext As Integer
  Dim YPrevious As Integer
  Dim YRelative As Double
  Dim YRelativeNext As Double
  If UsePalette Then
    OldPaletteHandle = SelectPalette(frm3DMaze.hDC, PaletteHandle, 0)
    NumRealized = RealizePalette(frm3DMaze.hDC)
  End If
  XRelative = 1#
  YRelative = Sqrt3 / 2#
  CurrentColor = SolutionColor
  Call DrawLine(1#, 0#, XRelative, YRelative, XMax, XOffset, YMax, CosTilt, SinTilt, PixelsPerX, PixelsPerZ, RelDistOfUserFromScreen)
  XPrevious = 3
  YPrevious = -2
  X = 3
  Y = 2
  Do
    PathFound = False
    DeltaIndex = 0
    Do While (Not PathFound)
      XNext = X + HexDeltaX(DeltaIndex, 0)
      YNext = Y + HexDeltaY(DeltaIndex, 0)
      If Page(YNext, XNext) = 1 Then
        XNext = XNext + HexDeltaX(DeltaIndex, 0)
        YNext = YNext + HexDeltaY(DeltaIndex, 0)
        If (XNext <> XPrevious) Or (YNext <> YPrevious) Then
          PathFound = True
        Else
          DeltaIndex = DeltaIndex + 1
        End If
      Else
        DeltaIndex = DeltaIndex + 1
      End If
    Loop
    If YNext < MaxY Then
      Select Case YNext - Y
        Case -4
          XRelativeNext = XRelative
          YRelativeNext = YRelative - Sqrt3
        Case -2
          If XNext > X Then
            XRelativeNext = XRelative + 3# / 2#
            YRelativeNext = YRelative - Sqrt3 / 2#
          Else
            XRelativeNext = XRelative - 3# / 2#
            YRelativeNext = YRelative - Sqrt3 / 2#
          End If
        Case 2
          If XNext > X Then
            XRelativeNext = XRelative + 3# / 2#
            YRelativeNext = YRelative + Sqrt3 / 2#
          Else
            XRelativeNext = XRelative - 3# / 2#
            YRelativeNext = YRelative + Sqrt3 / 2#
          End If
        Case Else
          XRelativeNext = XRelative
          YRelativeNext = YRelative + Sqrt3
      End Select
      Call DrawLine(XRelative, YRelative, XRelativeNext, YRelativeNext, XMax, XOffset, YMax, CosTilt, SinTilt, PixelsPerX, PixelsPerZ, RelDistOfUserFromScreen)
    Else
      Call DrawLine(XRelative, YRelative, XRelative, YMax, XMax, XOffset, YMax, CosTilt, SinTilt, PixelsPerX, PixelsPerZ, RelDistOfUserFromScreen)
    End If
    XPrevious = X
    YPrevious = Y
    X = XNext
    Y = YNext
    XRelative = XRelativeNext
    YRelative = YRelativeNext
  Loop While YNext < MaxY
  If UsePalette Then
    NumRealized = SelectPalette(frm3DMaze.hDC, OldPaletteHandle, 0)
  End If
End Sub

Private Sub HexDisplayUserMoves(MaxX As Integer, MaxY As Integer, Page() As Byte, XMax As Double, XOffset As Double, YMax As Double, CosTilt As Double, SinTilt As Double, PixelsPerX As Double, PixelsPerZ As Double, RelDistOfUserFromScreen As Double)
  Dim DeltaIndex As Byte
  Dim EvenRow As Boolean
  Dim OldPaletteHandle As Long
  Dim X As Integer
  Dim XNext As Integer
  Dim XNextNext As Integer
  Dim XRelative As Double
  Dim XRelativeNext As Double
  Dim Y As Integer
  Dim YNext As Integer
  Dim YNextNext As Integer
  Dim YRelative As Double
  Dim YRelativeNext As Double
  If UsePalette Then
    OldPaletteHandle = SelectPalette(frm3DMaze.hDC, PaletteHandle, 0)
    NumRealized = RealizePalette(frm3DMaze.hDC)
  End If
  Y = 2
  YRelative = Sqrt3 / 2#
  EvenRow = False
  Do While (Y < MaxY)
    If EvenRow Then
      X = 7
      XRelative = 2.5
    Else
      X = 3
      XRelative = 1#
    End If
    Do While (X < MaxX)
      If ((Page(Y, X) = 1) Or (Page(Y, X) = 3)) Then
        For DeltaIndex = 0 To 5
          XNext = X + HexDeltaX(DeltaIndex, 0)
          YNext = Y + HexDeltaY(DeltaIndex, 0)
          If Page(YNext, XNext) <> 0 Then
            If YNext = 0 Then
              CurrentColor = AdvanceColor
              Call DrawLine(1#, 0#, XRelative, YRelative, XMax, XOffset, YMax, CosTilt, SinTilt, PixelsPerX, PixelsPerZ, RelDistOfUserFromScreen)
            Else
              If YNext = MaxY Then
                If UserHasSolved Then
                  CurrentColor = AdvanceColor
                  YRelativeNext = YRelative + Sqrt3 / 2#
                  Call DrawLine(XRelative, YRelative, XRelative, YRelativeNext, XMax, XOffset, YMax, CosTilt, SinTilt, PixelsPerX, PixelsPerZ, RelDistOfUserFromScreen)
                End If
              Else
                XNextNext = XNext + HexDeltaX(DeltaIndex, 0)
                If XNextNext > 0 Then
                  If XNextNext < MaxX Then
                    YNextNext = YNext + HexDeltaY(DeltaIndex, 0)
                    If YNextNext > 0 Then
                      If YNextNext < MaxY Then
                        If ((Page(YNextNext, XNextNext) = 1) Or (Page(YNextNext, XNextNext) = 3)) Then
                          If Page(Y, X) = Page(YNextNext, XNextNext) Then
                            If Page(Y, X) = 1 Then
                              CurrentColor = AdvanceColor
                            Else
                              CurrentColor = BackoutColor
                            End If
                          Else
                            CurrentColor = BackoutColor
                          End If
                          Select Case (YNext - Y)
                            Case -2
                              XRelativeNext = XRelative
                              YRelativeNext = YRelative - Sqrt3 / 2#
                            Case -1
                              If XNext > X Then
                                XRelativeNext = XRelative + 3# / 4#
                                YRelativeNext = YRelative - Sqrt3 / 4#
                              Else
                                XRelativeNext = XRelative - 3# / 4#
                                YRelativeNext = YRelative - Sqrt3 / 4#
                              End If
                            Case 1
                              If XNext > X Then
                                XRelativeNext = XRelative + 3# / 4#
                                YRelativeNext = YRelative + Sqrt3 / 4#
                              Else
                                XRelativeNext = XRelative - 3# / 4#
                                YRelativeNext = YRelative + Sqrt3 / 4#
                              End If
                            Case Else
                              XRelativeNext = XRelative
                              YRelativeNext = YRelative + Sqrt3 / 2#
                          End Select
                          Call DrawLine(XRelative, YRelative, XRelativeNext, YRelativeNext, XMax, XOffset, YMax, CosTilt, SinTilt, PixelsPerX, PixelsPerZ, RelDistOfUserFromScreen)
                        End If
                       End If
                    End If
                  End If
                End If
              End If
            End If
          End If
        Next DeltaIndex
      End If
      XRelative = XRelative + 3#
      X = X + 8
    Loop
    EvenRow = Not EvenRow
    YRelative = YRelative + Sqrt3 / 2#
    Y = Y + 2
  Loop
  If UsePalette Then
    NumRealized = SelectPalette(frm3DMaze.hDC, OldPaletteHandle, 0)
  End If
End Sub

Private Sub HexSolveMaze(Stack() As StackRec, Page() As Byte, NumRoomsInSolution As Integer, Adjacency As Integer, MaxX As Integer, MaxY As Integer)
  Dim DeltaIndex As Byte
  Dim PassageFound As Integer
  Dim StackHead As Integer
  Dim X As Integer
  Dim XNext As Integer
  Dim Y As Integer
  Dim YNext As Integer

  NumRoomsInSolution = 1
  Adjacency = 0
  X = 3
  Y = 2
  StackHead = -1
  Page(Y, X) = 1
  Do
    DeltaIndex = 0
    PassageFound = False
    Do
      Do While ((DeltaIndex < 6) And (Not PassageFound))
        XNext = X + HexDeltaX(DeltaIndex, 0)
        YNext = Y + HexDeltaY(DeltaIndex, 0)
        If Page(YNext, XNext) = 2 Then
          PassageFound = True
        Else
          DeltaIndex = DeltaIndex + 1
        End If
      Loop
      If Not PassageFound Then
        DeltaIndex = Stack(StackHead).Index1
        Page(Y, X) = 2
        X = X - HexDeltaX(DeltaIndex, 0)
        Y = Y - HexDeltaY(DeltaIndex, 0)
        Page(Y, X) = 2
        X = X - HexDeltaX(DeltaIndex, 0)
        Y = Y - HexDeltaY(DeltaIndex, 0)
        StackHead = StackHead - 1
        DeltaIndex = DeltaIndex + 1
      End If
    Loop While Not PassageFound
    Page(YNext, XNext) = 1
    XNext = XNext + HexDeltaX(DeltaIndex, 0)
    YNext = YNext + HexDeltaY(DeltaIndex, 0)
    If YNext <= MaxY Then
      StackHead = StackHead + 1
      Stack(StackHead).Index1 = DeltaIndex
      Page(YNext, XNext) = 1
      X = XNext
      Y = YNext
    End If
  Loop While YNext < MaxY
  X = MaxX - 3
  Y = MaxY - 2
  Adjacency = 0
  Do While (StackHead >= 0)
    For DeltaIndex = 0 To 5
      XNext = X + HexDeltaX(DeltaIndex, 0)
      YNext = Y + HexDeltaY(DeltaIndex, 0)
      If Page(YNext, XNext) <> 1 Then
        If Page(YNext, XNext) = 0 Then
          XNext = XNext + HexDeltaX(DeltaIndex, 0)
          YNext = YNext + HexDeltaY(DeltaIndex, 0)
          If XNext < 0 Then
            Adjacency = Adjacency + 1
          Else
            If XNext > MaxX Then
              Adjacency = Adjacency + 1
            Else
              If YNext < 0 Then
                Adjacency = Adjacency + 1
              Else
                If YNext > MaxY Then
                  Adjacency = Adjacency + 1
                Else
                  If Page(YNext, XNext) = 1 Then
                    Adjacency = Adjacency + 1
                  End If
                End If
              End If
            End If
          End If
        End If
      End If
    Next DeltaIndex
    X = X - 2 * HexDeltaX(Stack(StackHead).Index1, 0)
    Y = Y - 2 * HexDeltaY(Stack(StackHead).Index1, 0)
    StackHead = StackHead - 1
    NumRoomsInSolution = NumRoomsInSolution + 1
  Loop
  For DeltaIndex = 0 To 5
    XNext = X + HexDeltaX(DeltaIndex, 0)
    YNext = X + HexDeltaY(DeltaIndex, 0)
    If Page(YNext, XNext) <> 2 Then
      If Page(YNext, XNext) = 0 Then
        XNext = XNext + HexDeltaX(DeltaIndex, 0)
        YNext = YNext + HexDeltaY(DeltaIndex, 0)
        If XNext < 0 Then
          Adjacency = Adjacency + 1
        Else
          If XNext > MaxX Then
            Adjacency = Adjacency + 1
          Else
            If YNext < 0 Then
              Adjacency = Adjacency + 1
            Else
              If YNext > MaxY Then
                Adjacency = Adjacency + 1
              Else
                If Page(YNext, XNext) = 1 Then
                  Adjacency = Adjacency + 1
                End If
              End If
            End If
          End If
        End If
      End If
    End If
  Next DeltaIndex
End Sub

Private Sub HexGenerateMaze(Page() As Byte, MaxX As Integer, MaxY As Integer, Stack() As StackRec, NumColumns As Integer, NumRows As Integer, Seed() As Byte)
  Dim ColumnNum As Integer
  Dim DeltaIndex1 As Integer
  Dim DeltaIndex2 As Integer
  Dim PassageFound As Integer
  Dim RN(7) As Integer
  Dim RNIndex1 As Integer
  Dim RNIndex2 As Integer
  Dim RowNum As Integer
  Dim SearchComplete As Integer
  Dim StackHead As Integer
  Dim TemInt As Integer
  Dim X As Integer
  Dim XMod8 As Byte
  Dim XNext As Integer
  Dim Y As Integer
  Dim YMod4 As Byte
  Dim YNext As Integer

  RN(0) = Seed(0) + 1
  RN(1) = Seed(1) + 1
  RN(2) = Seed(2) + 1
  RN(3) = Seed(3) + 1
  RN(4) = Seed(4) + 1
  RN(5) = Seed(5) + 1
  RN(6) = Seed(6) + 1
  RN(7) = Seed(7) + 1
  YMod4 = 1
  For Y = 0 To MaxY
    If YMod4 = 1 Then
      XMod8 = 1
      For X = 0 To MaxX
        If (((XMod8 = 0) And (Y <> 0) And (Y <> MaxY)) Or (XMod8 = 3) Or (XMod8 = 4) Or (XMod8 = 5)) Then
          Page(Y, X) = 0
        Else
          Page(Y, X) = 2
        End If
        XMod8 = XMod8 + 1
        If XMod8 >= 8 Then XMod8 = 0
      Next X
    Else
      If YMod4 = 0 Or YMod4 = 2 Then
        XMod8 = 1
        For X = 0 To MaxX
          If (XMod8 = 2) Or (XMod8 = 6) Then
            Page(Y, X) = 0
          Else
            Page(Y, X) = 2
          End If
          XMod8 = XMod8 + 1
          If XMod8 >= 8 Then XMod8 = 0
        Next X
      Else
        XMod8 = 1
        For X = 0 To MaxX
          If (XMod8 = 0) Or (XMod8 = 1) Or (XMod8 = 4) Or (XMod8 = 7) Then
            Page(Y, X) = 0
          Else
            Page(Y, X) = 2
          End If
          XMod8 = XMod8 + 1
          If XMod8 >= 8 Then XMod8 = 0
        Next X
      End If
    End If
    YMod4 = YMod4 + 1
    If YMod4 >= 4 Then YMod4 = 0
  Next Y
  ColumnNum = RN(0)
  RNIndex1 = 0
  RNIndex2 = 1
  Do While (RNIndex2 < 8)
    TemInt = RN(RNIndex2)
    RN(RNIndex1) = TemInt
    ColumnNum = ColumnNum + TemInt
    If ColumnNum >= 727 Then ColumnNum = ColumnNum - 727
    RNIndex1 = RNIndex2
    RNIndex2 = RNIndex2 + 1
  Loop
  RN(7) = ColumnNum
  ColumnNum = ColumnNum Mod NumColumns
  X = 4 * ColumnNum + 3
  RowNum = RN(0)
  RNIndex1 = 0
  RNIndex2 = 1
  Do While (RNIndex2 < 8)
    TemInt = RN(RNIndex2)
    RN(RNIndex1) = TemInt
    RowNum = RowNum + TemInt
    If RowNum >= 727 Then RowNum = RowNum - 727
    RNIndex1 = RNIndex2
    RNIndex2 = RNIndex2 + 1
  Loop
  RN(7) = RowNum
  If ColumnNum Mod 2 Then
    RowNum = RowNum Mod (NumRows - 1)
    Y = 4 * RowNum + 4
  Else
    RowNum = RowNum Mod NumRows
    Y = 4 * RowNum + 2
  End If
  Page(Y, X) = 2
  StackHead = -1
  Do
    DeltaIndex1 = 0
    Do
      DeltaIndex2 = RN(0)
      RNIndex1 = 0
      RNIndex2 = 1
      Do While (RNIndex2 < 8)
        TemInt = RN(RNIndex2)
        RN(RNIndex1) = TemInt
        DeltaIndex2 = DeltaIndex2 + TemInt
        If DeltaIndex2 >= 727 Then DeltaIndex2 = DeltaIndex2 - 727
        RNIndex1 = RNIndex2
        RNIndex2 = RNIndex2 + 1
      Loop
      RN(7) = DeltaIndex2
    Loop While DeltaIndex2 >= 720
    PassageFound = False
    SearchComplete = False
    Do While (Not SearchComplete)
      Do While ((DeltaIndex1 < 6) And (Not PassageFound))
        XNext = X + 2 * HexDeltaX(DeltaIndex1, DeltaIndex2)
        If XNext <= 0 Then
          DeltaIndex1 = DeltaIndex1 + 1
        Else
          If XNext > MaxX Then
            DeltaIndex1 = DeltaIndex1 + 1
          Else
            YNext = Y + 2 * HexDeltaY(DeltaIndex1, DeltaIndex2)
            If YNext <= 0 Then
              DeltaIndex1 = DeltaIndex1 + 1
            Else
              If YNext > MaxY Then
                DeltaIndex1 = DeltaIndex1 + 1
              Else
                If Page(YNext, XNext) = 0 Then
                  PassageFound = True
                Else
                  DeltaIndex1 = DeltaIndex1 + 1
                End If
              End If
            End If
          End If
        End If
      Loop
      If Not PassageFound Then
        If StackHead >= 0 Then
          DeltaIndex1 = Stack(StackHead).Index1
          DeltaIndex2 = Stack(StackHead).Index2
          X = X - 2 * HexDeltaX(DeltaIndex1, DeltaIndex2)
          Y = Y - 2 * HexDeltaY(DeltaIndex1, DeltaIndex2)
          StackHead = StackHead - 1
          DeltaIndex1 = DeltaIndex1 + 1
        End If
      End If
      If ((PassageFound) Or ((StackHead = -1) And (DeltaIndex1 >= 6))) Then
        SearchComplete = True
      Else
        SearchComplete = False
      End If
    Loop
    If PassageFound Then
      StackHead = StackHead + 1
      Stack(StackHead).Index1 = DeltaIndex1
      Stack(StackHead).Index2 = DeltaIndex2
      Page(YNext, XNext) = 2
      Page((Y + YNext) \ 2, (X + XNext) \ 2) = 2
      X = XNext
      Y = YNext
    End If
  Loop While StackHead <> -1
  Page(0, 3) = 1
  Page(MaxY, MaxX - 3) = 2
End Sub

Private Sub HexSelectMaze(Seed As String, Page() As Byte, MaxX As Integer, MaxY As Integer, Stack() As StackRec, NumRoomsInMaze As Integer, NumColumns As Integer, NumRows As Integer, SecondsForMazeSelection As Double)
  Dim Adjacency As Integer
  Dim Counter0 As Byte
  Dim Counter1 As Byte
  Dim Counter2 As Byte
  Dim Counter3 As Byte
  Dim Counter4 As Byte
  Dim Counter5 As Byte
  Dim Counter6 As Byte
  Dim Counter7 As Byte
  Dim ElapsedTime As Double
  Dim MinAdjacency As Integer
  Dim NumRoomsInSolution As Integer
  Dim NumRoomsInSolutionAtMin As Integer
  Dim RN(7) As Integer
  Dim RNIndex1 As Integer
  Dim RNIndex2 As Integer
  Dim SeedByte(7) As Byte
  Dim SeedByteAtMin(7) As Byte
  Dim SeedLength As Integer
  Dim StartTime As Double

  SeedLength = Len(Seed)
  If SeedLength > 8 Then SeedLength = 8
  RNIndex1 = 0
  For RNIndex2 = 1 To SeedLength
    RN(RNIndex1) = Asc(Mid$(Seed, RNIndex2, 1)) Mod 10
    RNIndex1 = RNIndex1 + 1
  Next RNIndex2
  RNIndex2 = 7
  Do While (RNIndex1 > 0)
    RNIndex1 = RNIndex1 - 1
    RN(RNIndex2) = RN(RNIndex1)
    RNIndex2 = RNIndex2 - 1
  Loop
  Do While (RNIndex2 >= 0)
    RN(RNIndex2) = 8
    RNIndex2 = RNIndex2 - 1
  Loop
  Counter0 = RN(0)
  Counter1 = RN(1)
  Counter2 = RN(2)
  Counter3 = RN(3)
  Counter4 = RN(4)
  Counter5 = RN(5)
  Counter6 = RN(6)
  Counter7 = RN(7)
  Call Hash(Counter0, Counter1, Counter2, Counter3, Counter4, Counter5, Counter6, Counter7)
  MinAdjacency = 4 * NumRoomsInMaze + 1
  NumRoomsInSolutionAtMin = 0
  SeedByteAtMin(0) = Counter0
  SeedByteAtMin(1) = Counter1
  SeedByteAtMin(2) = Counter2
  SeedByteAtMin(3) = Counter3
  SeedByteAtMin(4) = Counter4
  SeedByteAtMin(5) = Counter5
  SeedByteAtMin(6) = Counter6
  SeedByteAtMin(7) = Counter7
  StartTime = Timer
  Do
    SeedByte(0) = Counter0
    SeedByte(1) = Counter1
    SeedByte(2) = Counter2
    SeedByte(3) = Counter3
    SeedByte(4) = Counter4
    SeedByte(5) = Counter5
    SeedByte(6) = Counter6
    SeedByte(7) = Counter7
    Call HexGenerateMaze(Page(), MaxX, MaxY, Stack(), NumColumns, NumRows, SeedByte())
    Call HexSolveMaze(Stack(), Page(), NumRoomsInSolution, Adjacency, MaxX, MaxY)
    If 3 * NumRoomsInSolution >= NumRoomsInMaze Then
      If Adjacency < MinAdjacency Then
        MinAdjacency = Adjacency
        NumRoomsInSolutionAtMin = NumRoomsInSolution
        SeedByteAtMin(0) = SeedByte(0)
        SeedByteAtMin(1) = SeedByte(1)
        SeedByteAtMin(2) = SeedByte(2)
        SeedByteAtMin(3) = SeedByte(3)
        SeedByteAtMin(4) = SeedByte(4)
        SeedByteAtMin(5) = SeedByte(5)
        SeedByteAtMin(6) = SeedByte(6)
        SeedByteAtMin(7) = SeedByte(7)
      Else
        If Adjacency = MinAdjacency Then
          If NumRoomsInSolution > NumRoomsInSolutionAtMin Then
            NumRoomsInSolutionAtMin = NumRoomsInSolution
            SeedByteAtMin(0) = SeedByte(0)
            SeedByteAtMin(1) = SeedByte(1)
            SeedByteAtMin(2) = SeedByte(2)
            SeedByteAtMin(3) = SeedByte(3)
            SeedByteAtMin(4) = SeedByte(4)
            SeedByteAtMin(5) = SeedByte(5)
            SeedByteAtMin(6) = SeedByte(6)
            SeedByteAtMin(7) = SeedByte(7)
          End If
        End If
      End If
    End If
    Call Increment(Counter0, Counter1, Counter2, Counter3, Counter4, Counter5, Counter6, Counter7)
    ElapsedTime = Timer - StartTime
  Loop While ((ElapsedTime >= 0#) And (ElapsedTime < SecondsForMazeSelection))
  Call HexGenerateMaze(Page(), MaxX, MaxY, Stack(), NumColumns, NumRows, SeedByteAtMin())
  Call HexSolveMaze(Stack(), Page(), NumRoomsInSolution, Adjacency, MaxX, MaxY)
End Sub

Private Sub HexOutputMaze()
  Dim ObjectNum As Byte
  Dim Radians As Double
  Dim RadiansPerDegree As Double
  Dim SingleRectangle(3) As VertexRec
  Dim SingleTriangle(2) As VertexRec
  Dim TemDouble1 As Double
  Dim TemDouble2 As Double
  Dim TemDouble3 As Double
  Dim TemDouble4 As Double
  Dim Triangle(3, 2) As VertexRec
  Dim VertexNum As Byte
  Dim XMod8 As Byte
  Dim X0 As Double
  Dim X1 As Double
  Dim X2 As Double
  Dim X3 As Double
  Dim Y0 As Double
  Dim Y1 As Double
  Dim Y2 As Double
  Dim Y3 As Double

  Select Case State
    Case 0
      Text1.Text = ""
      ScaleMode = 1
      If (Resize) Then
        TemDouble1 = ScaleWidth - VScroll1.Width
        TemDouble2 = MinWallLengthInInches
        TemDouble2 = 1440# * TemDouble2
        TemDouble3 = RelativeWidthOfWall
        NumColumns = Int(2# * (TemDouble1 / TemDouble2 - 2# - TemDouble3 / Sqrt3) / 3# + 1#)
        If NumColumns Mod 2 = 0 Then NumColumns = NumColumns - 1
        If NumColumns < 3 Then NumColumns = 3
        TemDouble1 = ScaleHeight - Text1.Height
        TemDouble2 = ScaleWidth - VScroll1.Width
        ScaleMode = 3
        TemDouble3 = NumColumns
        TemDouble4 = RelativeWidthOfWall
        NumRows = Int(((TemDouble1 / TemDouble2) * (3# * (TemDouble3 - 1#) / 2# + 2# + TemDouble4 / Sqrt3) - TemDouble4) / Sqrt3)
        If NumRows < 2 Then NumRows = 2
        Tilt = 90 - VScroll1.Value
        MaxX = 8 * (NumColumns \ 2) + 6
        MaxY = 4 * NumRows
        NumRoomsInMaze = NumRows * NumColumns - (NumColumns \ 2)
        ReDim ComputerPage(MaxY, MaxX)
        ReDim UserPage(MaxY, MaxX)
        ReDim Stack(NumRoomsInMaze)
        Call HexSelectMaze(Seed, ComputerPage(), MaxX, MaxY, Stack(), NumRoomsInMaze, NumColumns, NumRows, SecondsForMazeSelection)
        For UserX = 0 To MaxX
          For UserY = 0 To MaxY
            If ComputerPage(UserY, UserX) = 0 Then
              UserPage(UserY, UserX) = 0
            Else
              UserPage(UserY, UserX) = 2
            End If
          Next UserY
        Next UserX
        UserX = 3
        UserXRelative = 1#
        UserY = 2
        UserYRelative = Sqrt3 / 2#
        UserPage(UserY, UserX) = 1
        Resize = False
      End If
      If (Paint) Then
        ScaleMode = 3
        Cls
        RadiansPerDegree = Atn(1#) / 45#
        Radians = Tilt * RadiansPerDegree
        SinTilt = Sin(Radians)
        CosTilt = Cos(Radians)
        TemDouble1 = NumColumns
        XMax = 3# * (TemDouble1 - 1#) / 2# + 2# + RelativeWidthOfWall / Sqrt3
        TemDouble1 = ScaleWidth - VScroll1.Width
        PixelsPerX = (TemDouble1 - 1#) / (XMax * (XMax / (XMax - RelativeHeightOfWall)))
        XOffset = (XMax / 2#) * (RelativeHeightOfWall / (XMax - RelativeHeightOfWall))
        TemDouble1 = NumRows
        YMax = TemDouble1 * Sqrt3 + RelativeWidthOfWall
        TemDouble1 = ScaleHeight - Text1.Height
        PixelsPerZ = (TemDouble1 - 1#) / Sqr(YMax * YMax + RelativeHeightOfWall * RelativeHeightOfWall)
        If YMax > XMax Then
          RelDistOfUserFromScreen = YMax
        Else
          RelDistOfUserFromScreen = XMax
        End If
        Paint = False
      End If
      If State = 0 Then
        State = 1
        DoEvents
        If State < 5 Then
          Timer1.Enabled = True
        End If
      End If
    Case 1
      BaseTriangle(0, 0).X = 0#
      BaseTriangle(0, 0).Y = RelativeWidthOfWall + Sqrt3 / 2#
      BaseTriangle(0, 1).X = 0#
      BaseTriangle(0, 1).Y = Sqrt3 / 2#
      BaseTriangle(0, 2).X = RelativeWidthOfWall * Sqrt3 / 2#
      BaseTriangle(0, 2).Y = (RelativeWidthOfWall + Sqrt3) / 2#
      BaseTriangle(1, 0).X = (1# - RelativeWidthOfWall / Sqrt3) / 2#
      BaseTriangle(1, 0).Y = RelativeWidthOfWall / 2#
      BaseTriangle(1, 1).X = 0.5 + RelativeWidthOfWall / Sqrt3
      BaseTriangle(1, 1).Y = 0#
      BaseTriangle(1, 2).X = BaseTriangle(1, 1).X
      BaseTriangle(1, 2).Y = RelativeWidthOfWall
      BaseTriangle(2, 0).X = 1.5
      BaseTriangle(2, 0).Y = RelativeWidthOfWall
      BaseTriangle(2, 1).X = 1.5
      BaseTriangle(2, 1).Y = 0#
      BaseTriangle(2, 2).X = 1.5 * (1# + RelativeWidthOfWall / Sqrt3)
      BaseTriangle(2, 2).Y = RelativeWidthOfWall / 2#
      BaseTriangle(3, 0).X = 2# - RelativeWidthOfWall / (2# * Sqrt3)
      BaseTriangle(3, 0).Y = BaseTriangle(0, 2).Y
      BaseTriangle(3, 1).X = 2# + RelativeWidthOfWall / Sqrt3
      BaseTriangle(3, 1).Y = BaseTriangle(0, 1).Y
      BaseTriangle(3, 2).X = BaseTriangle(3, 1).X
      BaseTriangle(3, 2).Y = BaseTriangle(0, 0).Y
      BaseRectangle(0, 0).X = BaseTriangle(0, 2).X
      BaseRectangle(0, 0).Y = BaseTriangle(0, 2).Y
      BaseRectangle(0, 1).X = BaseTriangle(1, 1).X
      BaseRectangle(0, 1).Y = Sqrt3
      BaseRectangle(0, 2).X = BaseTriangle(1, 0).X
      BaseRectangle(0, 2).Y = Sqrt3 + RelativeWidthOfWall / 2#
      BaseRectangle(0, 3).X = BaseTriangle(0, 0).X
      BaseRectangle(0, 3).Y = BaseTriangle(0, 0).Y
      BaseRectangle(1, 0).X = BaseTriangle(0, 1).X
      BaseRectangle(1, 0).Y = BaseTriangle(0, 1).Y
      BaseRectangle(1, 1).X = BaseTriangle(1, 0).X
      BaseRectangle(1, 1).Y = BaseTriangle(1, 0).Y
      BaseRectangle(1, 2).X = BaseTriangle(1, 2).X
      BaseRectangle(1, 2).Y = BaseTriangle(1, 2).Y
      BaseRectangle(1, 3).X = BaseTriangle(0, 2).X
      BaseRectangle(1, 3).Y = BaseTriangle(0, 2).Y
      BaseRectangle(2, 0).X = BaseTriangle(1, 1).X
      BaseRectangle(2, 0).Y = BaseTriangle(1, 1).Y
      BaseRectangle(2, 1).X = BaseTriangle(2, 1).X
      BaseRectangle(2, 1).Y = BaseTriangle(2, 1).Y
      BaseRectangle(2, 2).X = BaseTriangle(2, 0).X
      BaseRectangle(2, 2).Y = BaseTriangle(2, 0).Y
      BaseRectangle(2, 3).X = BaseTriangle(1, 2).X
      BaseRectangle(2, 3).Y = BaseTriangle(1, 2).Y
      BaseRectangle(3, 0).X = BaseTriangle(2, 2).X
      BaseRectangle(3, 0).Y = BaseTriangle(2, 2).Y
      BaseRectangle(3, 1).X = BaseTriangle(3, 1).X
      BaseRectangle(3, 1).Y = BaseTriangle(3, 1).Y
      BaseRectangle(3, 2).X = BaseTriangle(3, 0).X
      BaseRectangle(3, 2).Y = BaseTriangle(3, 0).Y
      BaseRectangle(3, 3).X = BaseTriangle(2, 0).X
      BaseRectangle(3, 3).Y = BaseTriangle(2, 0).Y
      BaseRectangle(4, 0).X = BaseTriangle(3, 1).X
      BaseRectangle(4, 0).Y = BaseTriangle(3, 1).Y
      BaseRectangle(4, 1).X = BaseTriangle(3, 1).X + (BaseTriangle(2, 1).X - BaseTriangle(1, 1).X)
      BaseRectangle(4, 1).Y = BaseTriangle(3, 1).Y
      BaseRectangle(4, 2).X = BaseRectangle(4, 1).X
      BaseRectangle(4, 2).Y = BaseTriangle(3, 2).Y
      BaseRectangle(4, 3).X = BaseTriangle(3, 2).X
      BaseRectangle(4, 3).Y = BaseTriangle(3, 2).Y
      BaseRectangle(5, 0).X = BaseRectangle(0, 1).X + (BaseTriangle(2, 1).X - BaseTriangle(1, 1).X)
      BaseRectangle(5, 0).Y = BaseRectangle(0, 1).Y
      BaseRectangle(5, 1).X = BaseTriangle(3, 0).X
      BaseRectangle(5, 1).Y = BaseTriangle(3, 0).Y
      BaseRectangle(5, 2).X = BaseTriangle(3, 2).X
      BaseRectangle(5, 2).Y = BaseTriangle(3, 2).Y
      BaseRectangle(5, 3).X = BaseRectangle(0, 2).X + (BaseTriangle(2, 2).X - BaseTriangle(1, 0).X)
      BaseRectangle(5, 3).Y = BaseRectangle(0, 2).Y
      Rectangle(0, 0).X = BaseTriangle(1, 1).X
      Rectangle(0, 0).Y = BaseTriangle(1, 1).Y
      Rectangle(0, 1).X = XMax - BaseTriangle(1, 1).X
      Rectangle(0, 1).Y = BaseTriangle(1, 1).Y
      Rectangle(0, 2).X = XMax - BaseTriangle(1, 2).X
      Rectangle(0, 2).Y = BaseTriangle(1, 2).Y
      Rectangle(0, 3).X = BaseTriangle(1, 2).X
      Rectangle(0, 3).Y = BaseTriangle(1, 2).Y
      Rectangle(1, 0).X = BaseTriangle(0, 1).X
      Rectangle(1, 0).Y = BaseTriangle(0, 1).Y
      Rectangle(1, 1).X = XMax - BaseTriangle(0, 1).X
      Rectangle(1, 1).Y = BaseTriangle(0, 1).Y
      Rectangle(1, 2).X = XMax - BaseTriangle(1, 2).X
      Rectangle(1, 2).Y = BaseTriangle(1, 2).Y
      Rectangle(1, 3).X = BaseTriangle(1, 2).X
      Rectangle(1, 3).Y = BaseTriangle(1, 2).Y
      Rectangle(2, 0).X = BaseTriangle(0, 1).X
      Rectangle(2, 0).Y = BaseTriangle(0, 1).Y
      Rectangle(2, 1).X = XMax - BaseTriangle(0, 1).X
      Rectangle(2, 1).Y = BaseTriangle(0, 1).Y
      Rectangle(2, 2).X = XMax - BaseTriangle(0, 0).X
      Rectangle(2, 2).Y = BaseTriangle(0, 0).Y
      Rectangle(2, 3).X = BaseTriangle(0, 0).X
      Rectangle(2, 3).Y = BaseTriangle(0, 0).Y
      Rectangle(3, 0).X = BaseTriangle(0, 0).X
      Rectangle(3, 0).Y = BaseTriangle(0, 0).Y
      Rectangle(3, 1).X = XMax - BaseTriangle(0, 0).X
      Rectangle(3, 1).Y = BaseTriangle(0, 0).Y
      Rectangle(3, 2).X = XMax - BaseRectangle(0, 1).X
      Rectangle(3, 2).Y = BaseRectangle(0, 1).Y
      Rectangle(3, 3).X = BaseRectangle(0, 1).X
      Rectangle(3, 3).Y = BaseRectangle(0, 1).Y
      Y = 0
      State = 2
      DoEvents
      If State < 5 Then
        Timer1.Enabled = True
      End If
    Case 2
      If UsePalette Then
        OldPaletteHandle = SelectPalette(frm3DMaze.hDC, PaletteHandle, 0)
        NumRealized = RealizePalette(frm3DMaze.hDC)
      End If
      If (Y <= MaxY - 1) Then
        If Y > 0 Then
          X0 = Rectangle(0, 0).X
          Y0 = Rectangle(0, 0).Y
          X1 = Rectangle(0, 1).X
          Y1 = Rectangle(0, 1).Y
          X2 = Rectangle(0, 2).X
          Y2 = Rectangle(0, 2).Y
          X3 = Rectangle(0, 3).X
          Y3 = Rectangle(0, 3).Y
          Call DisplayQuadrilateral(XMax, XOffset, YMax, X0, Y0, 0#, X1, Y1, 0#, X2, Y2, 0#, X3, Y3, 0#, PixelsPerX, PixelsPerZ, CosTilt, SinTilt, RelDistOfUserFromScreen, FloorColor)
          X0 = Rectangle(1, 0).X
          Y0 = Rectangle(1, 0).Y
          X1 = Rectangle(1, 1).X
          Y1 = Rectangle(1, 1).Y
          X2 = Rectangle(1, 2).X
          Y2 = Rectangle(1, 2).Y
          X3 = Rectangle(1, 3).X
          Y3 = Rectangle(1, 3).Y
          Call DisplayQuadrilateral(XMax, XOffset, YMax, X0, Y0, 0#, X1, Y1, 0#, X2, Y2, 0#, X3, Y3, 0#, PixelsPerX, PixelsPerZ, CosTilt, SinTilt, RelDistOfUserFromScreen, FloorColor)
        End If
        X0 = Rectangle(2, 0).X
        Y0 = Rectangle(2, 0).Y
        X1 = Rectangle(2, 1).X
        Y1 = Rectangle(2, 1).Y
        X2 = Rectangle(2, 2).X
        Y2 = Rectangle(2, 2).Y
        X3 = Rectangle(2, 3).X
        Y3 = Rectangle(2, 3).Y
        Call DisplayQuadrilateral(XMax, XOffset, YMax, X0, Y0, 0#, X1, Y1, 0#, X2, Y2, 0#, X3, Y3, 0#, PixelsPerX, PixelsPerZ, CosTilt, SinTilt, RelDistOfUserFromScreen, FloorColor)
        If Y < MaxY - 4 Then
          X0 = Rectangle(3, 0).X
          Y0 = Rectangle(3, 0).Y
          X1 = Rectangle(3, 1).X
          Y1 = Rectangle(3, 1).Y
          X2 = Rectangle(3, 2).X
          Y2 = Rectangle(3, 2).Y
          X3 = Rectangle(3, 3).X
          Y3 = Rectangle(3, 3).Y
          Call DisplayQuadrilateral(XMax, XOffset, YMax, X0, Y0, 0#, X1, Y1, 0#, X2, Y2, 0#, X3, Y3, 0#, PixelsPerX, PixelsPerZ, CosTilt, SinTilt, RelDistOfUserFromScreen, FloorColor)
        End If
        For ObjectNum = 0 To 3
          For VertexNum = 0 To 3
            Rectangle(ObjectNum, VertexNum).Y = Rectangle(ObjectNum, VertexNum).Y + Sqrt3
          Next VertexNum
        Next ObjectNum
        Y = Y + 4
      Else
        Rectangle(0, 0).X = BaseTriangle(1, 0).X
        Rectangle(0, 0).Y = BaseTriangle(1, 0).Y
        Rectangle(0, 1).X = BaseTriangle(1, 1).X
        Rectangle(0, 1).Y = BaseTriangle(1, 1).Y
        Rectangle(0, 2).X = BaseTriangle(2, 1).X
        Rectangle(0, 2).Y = BaseTriangle(2, 1).Y
        Rectangle(0, 3).X = BaseTriangle(2, 2).X
        Rectangle(0, 3).Y = BaseTriangle(2, 2).Y
        Rectangle(1, 0).X = BaseTriangle(0, 1).X
        Rectangle(1, 0).Y = BaseTriangle(0, 1).Y
        Rectangle(1, 1).X = BaseTriangle(1, 0).X
        Rectangle(1, 1).Y = BaseTriangle(1, 0).Y
        Rectangle(1, 2).X = BaseTriangle(2, 2).X
        Rectangle(1, 2).Y = BaseTriangle(2, 2).Y
        Rectangle(1, 3).X = BaseTriangle(3, 1).X
        Rectangle(1, 3).Y = BaseTriangle(3, 1).Y
        Rectangle(2, 0).X = BaseTriangle(0, 0).X
        Rectangle(2, 0).Y = BaseTriangle(0, 0).Y
        Rectangle(2, 1).X = BaseTriangle(0, 1).X
        Rectangle(2, 1).Y = BaseTriangle(0, 1).Y
        Rectangle(2, 2).X = BaseTriangle(3, 1).X
        Rectangle(2, 2).Y = BaseTriangle(3, 1).Y
        Rectangle(2, 3).X = BaseTriangle(3, 2).X
        Rectangle(2, 3).Y = BaseTriangle(3, 2).Y
        X = 0
        State = 3
      End If
      If UsePalette Then
        NumRealized = SelectPalette(frm3DMaze.hDC, OldPaletteHandle, 0)
      End If
      DoEvents
      If State < 5 Then
        Timer1.Enabled = True
      End If
    Case 3
      If UsePalette Then
        OldPaletteHandle = SelectPalette(frm3DMaze.hDC, PaletteHandle, 0)
        NumRealized = RealizePalette(frm3DMaze.hDC)
      End If
      If X <= MaxX Then
        For ObjectNum = 0 To 2
          X0 = Rectangle(ObjectNum, 0).X
          Y0 = Rectangle(ObjectNum, 0).Y
          X1 = Rectangle(ObjectNum, 1).X
          Y1 = Rectangle(ObjectNum, 1).Y
          X2 = Rectangle(ObjectNum, 2).X
          Y2 = Rectangle(ObjectNum, 2).Y
          X3 = Rectangle(ObjectNum, 3).X
          Y3 = Rectangle(ObjectNum, 3).Y
          Call DisplayQuadrilateral(XMax, XOffset, YMax, X0, Y0, 0#, X1, Y1, 0#, X2, Y2, 0#, X3, Y3, 0#, PixelsPerX, PixelsPerZ, CosTilt, SinTilt, RelDistOfUserFromScreen, FloorColor)
          X0 = Rectangle(ObjectNum, 0).X
          Y0 = YMax - Rectangle(ObjectNum, 0).Y
          X1 = Rectangle(ObjectNum, 1).X
          Y1 = YMax - Rectangle(ObjectNum, 1).Y
          X2 = Rectangle(ObjectNum, 2).X
          Y2 = YMax - Rectangle(ObjectNum, 2).Y
          X3 = Rectangle(ObjectNum, 3).X
          Y3 = YMax - Rectangle(ObjectNum, 3).Y
          Call DisplayQuadrilateral(XMax, XOffset, YMax, X0, Y0, 0#, X1, Y1, 0#, X2, Y2, 0#, X3, Y3, 0#, PixelsPerX, PixelsPerZ, CosTilt, SinTilt, RelDistOfUserFromScreen, FloorColor)
          For VertexNum = 0 To 3
            Rectangle(ObjectNum, VertexNum).X = Rectangle(ObjectNum, VertexNum).X + 3#
          Next VertexNum
        Next ObjectNum
        X = X + 8
      Else
        YMod4 = 0
        YOffset = 0#
        Y = 0
        State = 4
      End If
      If UsePalette Then
        NumRealized = SelectPalette(frm3DMaze.hDC, OldPaletteHandle, 0)
      End If
      DoEvents
      If State < 5 Then
        Timer1.Enabled = True
      End If
    Case 4
      If UsePalette Then
        OldPaletteHandle = SelectPalette(frm3DMaze.hDC, PaletteHandle, 0)
        NumRealized = RealizePalette(frm3DMaze.hDC)
      End If
      If Y <= MaxY Then
        Select Case YMod4
          Case 0
            XMod8 = 0
            For ObjectNum = 1 To 2
              For VertexNum = 0 To 2
                Triangle(ObjectNum, VertexNum).X = BaseTriangle(ObjectNum, VertexNum).X
                Triangle(ObjectNum, VertexNum).Y = BaseTriangle(ObjectNum, VertexNum).Y + YOffset
              Next VertexNum
            Next ObjectNum
            For VertexNum = 0 To 3
              Rectangle(2, VertexNum).X = BaseRectangle(2, VertexNum).X
              Rectangle(2, VertexNum).Y = BaseRectangle(2, VertexNum).Y + YOffset
            Next VertexNum
            For X = 0 To MaxX
              Select Case XMod8
                Case 2
                  SingleTriangle(0).X = Triangle(1, 0).X
                  SingleTriangle(0).Y = Triangle(1, 0).Y
                  SingleTriangle(1).X = Triangle(1, 1).X
                  SingleTriangle(1).Y = Triangle(1, 1).Y
                  SingleTriangle(2).X = Triangle(1, 2).X
                  SingleTriangle(2).Y = Triangle(1, 2).Y
                  Call OutputTriangle(XMax, XOffset, YMax, SingleTriangle(), PixelsPerX, PixelsPerZ, CosTilt, SinTilt, RelDistOfUserFromScreen, True, TriangleSSWNNEColor)
                Case 4
                  SingleTriangle(0).X = Triangle(2, 0).X
                  SingleTriangle(0).Y = Triangle(2, 0).Y
                  SingleTriangle(1).X = Triangle(2, 1).X
                  SingleTriangle(1).Y = Triangle(2, 1).Y
                  SingleTriangle(2).X = Triangle(2, 2).X
                  SingleTriangle(2).Y = Triangle(2, 2).Y
                  Call OutputTriangle(XMax, XOffset, YMax, SingleTriangle(), PixelsPerX, PixelsPerZ, CosTilt, SinTilt, RelDistOfUserFromScreen, True, TriangleSSENNWColor)
                Case Else
              End Select
              XMod8 = XMod8 + 1
              If XMod8 >= 8 Then
                XMod8 = 0
                For ObjectNum = 1 To 2
                  For VertexNum = 0 To 2
                    Triangle(ObjectNum, VertexNum).X = Triangle(ObjectNum, VertexNum).X + 3#
                  Next VertexNum
                Next ObjectNum
                For VertexNum = 0 To 3
                  Rectangle(2, VertexNum).X = Rectangle(2, VertexNum).X + 3#
                Next VertexNum
              End If
            Next X
            XMod8 = 0
            For ObjectNum = 1 To 2
              For VertexNum = 0 To 2
                Triangle(ObjectNum, VertexNum).X = BaseTriangle(ObjectNum, VertexNum).X
                Triangle(ObjectNum, VertexNum).Y = BaseTriangle(ObjectNum, VertexNum).Y + YOffset
              Next VertexNum
            Next ObjectNum
            For VertexNum = 0 To 3
              Rectangle(2, VertexNum).X = BaseRectangle(2, VertexNum).X
              Rectangle(2, VertexNum).Y = BaseRectangle(2, VertexNum).Y + YOffset
            Next VertexNum
            For X = 0 To MaxX
              Select Case XMod8
                Case 2
                  SingleTriangle(0).X = Triangle(1, 0).X
                  SingleTriangle(0).Y = Triangle(1, 0).Y
                  SingleTriangle(1).X = Triangle(1, 1).X
                  SingleTriangle(1).Y = Triangle(1, 1).Y
                  SingleTriangle(2).X = Triangle(1, 2).X
                  SingleTriangle(2).Y = Triangle(1, 2).Y
                  Call OutputTriangle(XMax, XOffset, YMax, SingleTriangle(), PixelsPerX, PixelsPerZ, CosTilt, SinTilt, RelDistOfUserFromScreen, False, TriangleSENWColor)
                Case 3
                  If ComputerPage(Y, X) = 0 Then
                    SingleRectangle(0).X = Rectangle(2, 0).X
                    SingleRectangle(0).Y = Rectangle(2, 0).Y
                    SingleRectangle(1).X = Rectangle(2, 1).X
                    SingleRectangle(1).Y = Rectangle(2, 1).Y
                    SingleRectangle(2).X = Rectangle(2, 2).X
                    SingleRectangle(2).Y = Rectangle(2, 2).Y
                    SingleRectangle(3).X = Rectangle(2, 3).X
                    SingleRectangle(3).Y = Rectangle(2, 3).Y
                    Call OutputRectangle(XMax, XOffset, YMax, SingleRectangle(), PixelsPerX, PixelsPerZ, CosTilt, SinTilt, RelDistOfUserFromScreen, RectangleWEColor)
                  End If
                Case 4
                  SingleTriangle(0).X = Triangle(2, 0).X
                  SingleTriangle(0).Y = Triangle(2, 0).Y
                  SingleTriangle(1).X = Triangle(2, 1).X
                  SingleTriangle(1).Y = Triangle(2, 1).Y
                  SingleTriangle(2).X = Triangle(2, 2).X
                  SingleTriangle(2).Y = Triangle(2, 2).Y
                  Call OutputTriangle(XMax, XOffset, YMax, SingleTriangle(), PixelsPerX, PixelsPerZ, CosTilt, SinTilt, RelDistOfUserFromScreen, False, TriangleSWNEColor)
                Case Else
              End Select
              XMod8 = XMod8 + 1
              If XMod8 >= 8 Then
                XMod8 = 0
                For ObjectNum = 1 To 2
                  For VertexNum = 0 To 2
                    Triangle(ObjectNum, VertexNum).X = Triangle(ObjectNum, VertexNum).X + 3#
                  Next VertexNum
                Next ObjectNum
                For VertexNum = 0 To 3
                  Rectangle(2, VertexNum).X = Rectangle(2, VertexNum).X + 3#
                Next VertexNum
              End If
            Next X
          Case 1
            XMod8 = 0
            For ObjectNum = 1 To 3 Step 2
              For VertexNum = 0 To 3
                Rectangle(ObjectNum, VertexNum).X = BaseRectangle(ObjectNum, VertexNum).X
                Rectangle(ObjectNum, VertexNum).Y = BaseRectangle(ObjectNum, VertexNum).Y + YOffset
              Next VertexNum
            Next ObjectNum
            For X = 0 To MaxX
              Select Case XMod8
                Case 1
                  If ComputerPage(Y, X) = 0 Then
                    SingleRectangle(0).X = Rectangle(1, 0).X
                    SingleRectangle(0).Y = Rectangle(1, 0).Y
                    SingleRectangle(1).X = Rectangle(1, 1).X
                    SingleRectangle(1).Y = Rectangle(1, 1).Y
                    SingleRectangle(2).X = Rectangle(1, 2).X
                    SingleRectangle(2).Y = Rectangle(1, 2).Y
                    SingleRectangle(3).X = Rectangle(1, 3).X
                    SingleRectangle(3).Y = Rectangle(1, 3).Y
                    Call OutputRectangle(XMax, XOffset, YMax, SingleRectangle(), PixelsPerX, PixelsPerZ, CosTilt, SinTilt, RelDistOfUserFromScreen, RectangleSWNEColor)
                  End If
                Case 5
                  If ComputerPage(Y, X) = 0 Then
                    SingleRectangle(0).X = Rectangle(3, 0).X
                    SingleRectangle(0).Y = Rectangle(3, 0).Y
                    SingleRectangle(1).X = Rectangle(3, 1).X
                    SingleRectangle(1).Y = Rectangle(3, 1).Y
                    SingleRectangle(2).X = Rectangle(3, 2).X
                    SingleRectangle(2).Y = Rectangle(3, 2).Y
                    SingleRectangle(3).X = Rectangle(3, 3).X
                    SingleRectangle(3).Y = Rectangle(3, 3).Y
                    Call OutputRectangle(XMax, XOffset, YMax, SingleRectangle(), PixelsPerX, PixelsPerZ, CosTilt, SinTilt, RelDistOfUserFromScreen, RectangleSENWColor)
                  End If
                Case Else
              End Select
              XMod8 = XMod8 + 1
              If XMod8 >= 8 Then
                XMod8 = 0
                For ObjectNum = 1 To 3 Step 2
                  For VertexNum = 0 To 3
                    Rectangle(ObjectNum, VertexNum).X = Rectangle(ObjectNum, VertexNum).X + 3#
                  Next VertexNum
                Next ObjectNum
              End If
            Next X
          Case 2
            XMod8 = 0
            For ObjectNum = 0 To 3 Step 3
              For VertexNum = 0 To 2
                Triangle(ObjectNum, VertexNum).X = BaseTriangle(ObjectNum, VertexNum).X
                Triangle(ObjectNum, VertexNum).Y = BaseTriangle(ObjectNum, VertexNum).Y + YOffset
              Next VertexNum
            Next ObjectNum
            For VertexNum = 0 To 3
              Rectangle(4, VertexNum).X = BaseRectangle(4, VertexNum).X
              Rectangle(4, VertexNum).Y = BaseRectangle(4, VertexNum).Y + YOffset
            Next VertexNum
            For X = 0 To MaxX
              Select Case XMod8
                Case 0
                  SingleTriangle(0).X = Triangle(0, 0).X
                  SingleTriangle(0).Y = Triangle(0, 0).Y
                  SingleTriangle(1).X = Triangle(0, 1).X
                  SingleTriangle(1).Y = Triangle(0, 1).Y
                  SingleTriangle(2).X = Triangle(0, 2).X
                  SingleTriangle(2).Y = Triangle(0, 2).Y
                  Call OutputTriangle(XMax, XOffset, YMax, SingleTriangle(), PixelsPerX, PixelsPerZ, CosTilt, SinTilt, RelDistOfUserFromScreen, True, TriangleSSWNNEColor)
                Case 6
                  SingleTriangle(0).X = Triangle(3, 0).X
                  SingleTriangle(0).Y = Triangle(3, 0).Y
                  SingleTriangle(1).X = Triangle(3, 1).X
                  SingleTriangle(1).Y = Triangle(3, 1).Y
                  SingleTriangle(2).X = Triangle(3, 2).X
                  SingleTriangle(2).Y = Triangle(3, 2).Y
                  Call OutputTriangle(XMax, XOffset, YMax, SingleTriangle(), PixelsPerX, PixelsPerZ, CosTilt, SinTilt, RelDistOfUserFromScreen, True, TriangleSSENNWColor)
                Case Else
              End Select
              XMod8 = XMod8 + 1
              If XMod8 >= 8 Then
                XMod8 = 0
                For ObjectNum = 0 To 3 Step 3
                  For VertexNum = 0 To 2
                    Triangle(ObjectNum, VertexNum).X = Triangle(ObjectNum, VertexNum).X + 3#
                  Next VertexNum
                Next ObjectNum
                For VertexNum = 0 To 3
                  Rectangle(4, VertexNum).X = Rectangle(4, VertexNum).X + 3#
                Next VertexNum
              End If
            Next X
            XMod8 = 0
            For ObjectNum = 0 To 3 Step 3
              For VertexNum = 0 To 2
                Triangle(ObjectNum, VertexNum).X = BaseTriangle(ObjectNum, VertexNum).X
                Triangle(ObjectNum, VertexNum).Y = BaseTriangle(ObjectNum, VertexNum).Y + YOffset
              Next VertexNum
            Next ObjectNum
            For VertexNum = 0 To 3
              Rectangle(4, VertexNum).X = BaseRectangle(4, VertexNum).X
              Rectangle(4, VertexNum).Y = BaseRectangle(4, VertexNum).Y + YOffset
            Next VertexNum
            For X = 0 To MaxX
              Select Case XMod8
                Case 0
                  SingleTriangle(0).X = Triangle(0, 0).X
                  SingleTriangle(0).Y = Triangle(0, 0).Y
                  SingleTriangle(1).X = Triangle(0, 1).X
                  SingleTriangle(1).Y = Triangle(0, 1).Y
                  SingleTriangle(2).X = Triangle(0, 2).X
                  SingleTriangle(2).Y = Triangle(0, 2).Y
                  Call OutputTriangle(XMax, XOffset, YMax, SingleTriangle(), PixelsPerX, PixelsPerZ, CosTilt, SinTilt, RelDistOfUserFromScreen, False, TriangleSWNEColor)
                Case 6
                  SingleTriangle(0).X = Triangle(3, 0).X
                  SingleTriangle(0).Y = Triangle(3, 0).Y
                  SingleTriangle(1).X = Triangle(3, 1).X
                  SingleTriangle(1).Y = Triangle(3, 1).Y
                  SingleTriangle(2).X = Triangle(3, 2).X
                  SingleTriangle(2).Y = Triangle(3, 2).Y
                  Call OutputTriangle(XMax, XOffset, YMax, SingleTriangle(), PixelsPerX, PixelsPerZ, CosTilt, SinTilt, RelDistOfUserFromScreen, False, TriangleSENWColor)
                Case 7
                  If ComputerPage(Y, X) = 0 Then
                    SingleRectangle(0).X = Rectangle(4, 0).X
                    SingleRectangle(0).Y = Rectangle(4, 0).Y
                    SingleRectangle(1).X = Rectangle(4, 1).X
                    SingleRectangle(1).Y = Rectangle(4, 1).Y
                    SingleRectangle(2).X = Rectangle(4, 2).X
                    SingleRectangle(2).Y = Rectangle(4, 2).Y
                    SingleRectangle(3).X = Rectangle(4, 3).X
                    SingleRectangle(3).Y = Rectangle(4, 3).Y
                    Call OutputRectangle(XMax, XOffset, YMax, SingleRectangle(), PixelsPerX, PixelsPerZ, CosTilt, SinTilt, RelDistOfUserFromScreen, RectangleWEColor)
                  End If
                Case Else
              End Select
              XMod8 = XMod8 + 1
              If XMod8 >= 8 Then
                XMod8 = 0
                For ObjectNum = 0 To 3 Step 3
                  For VertexNum = 0 To 2
                    Triangle(ObjectNum, VertexNum).X = Triangle(ObjectNum, VertexNum).X + 3#
                  Next VertexNum
                Next ObjectNum
                For VertexNum = 0 To 3
                  Rectangle(4, VertexNum).X = Rectangle(4, VertexNum).X + 3#
                Next VertexNum
              End If
            Next X
          Case Else
            XMod8 = 0
            For ObjectNum = 0 To 5 Step 5
              For VertexNum = 0 To 3
                Rectangle(ObjectNum, VertexNum).X = BaseRectangle(ObjectNum, VertexNum).X
                Rectangle(ObjectNum, VertexNum).Y = BaseRectangle(ObjectNum, VertexNum).Y + YOffset
              Next VertexNum
            Next ObjectNum
            For X = 0 To MaxX
              Select Case XMod8
                Case 1
                  If ComputerPage(Y, X) = 0 Then
                    SingleRectangle(0).X = Rectangle(0, 0).X
                    SingleRectangle(0).Y = Rectangle(0, 0).Y
                    SingleRectangle(1).X = Rectangle(0, 1).X
                    SingleRectangle(1).Y = Rectangle(0, 1).Y
                    SingleRectangle(2).X = Rectangle(0, 2).X
                    SingleRectangle(2).Y = Rectangle(0, 2).Y
                    SingleRectangle(3).X = Rectangle(0, 3).X
                    SingleRectangle(3).Y = Rectangle(0, 3).Y
                    Call OutputRectangle(XMax, XOffset, YMax, SingleRectangle(), PixelsPerX, PixelsPerZ, CosTilt, SinTilt, RelDistOfUserFromScreen, RectangleSENWColor)
                  End If
                Case 5
                  If ComputerPage(Y, X) = 0 Then
                    SingleRectangle(0).X = Rectangle(5, 0).X
                    SingleRectangle(0).Y = Rectangle(5, 0).Y
                    SingleRectangle(1).X = Rectangle(5, 1).X
                    SingleRectangle(1).Y = Rectangle(5, 1).Y
                    SingleRectangle(2).X = Rectangle(5, 2).X
                    SingleRectangle(2).Y = Rectangle(5, 2).Y
                    SingleRectangle(3).X = Rectangle(5, 3).X
                    SingleRectangle(3).Y = Rectangle(5, 3).Y
                    Call OutputRectangle(XMax, XOffset, YMax, SingleRectangle(), PixelsPerX, PixelsPerZ, CosTilt, SinTilt, RelDistOfUserFromScreen, RectangleSWNEColor)
                  End If
                Case Else
              End Select
              XMod8 = XMod8 + 1
              If XMod8 >= 8 Then
                XMod8 = 0
                For ObjectNum = 0 To 5 Step 5
                  For VertexNum = 0 To 3
                    Rectangle(ObjectNum, VertexNum).X = Rectangle(ObjectNum, VertexNum).X + 3#
                  Next VertexNum
                Next ObjectNum
              End If
            Next X
        End Select
        YMod4 = YMod4 + 1
        If YMod4 >= 4 Then
          YMod4 = 0
          YOffset = YOffset + Sqrt3
        End If
        Y = Y + 1
      Else
        State = 5
      End If
      If UsePalette Then
        NumRealized = SelectPalette(frm3DMaze.hDC, OldPaletteHandle, 0)
      End If
      DoEvents
      If State < 5 Then
        Timer1.Enabled = True
      Else
        If State = 5 Then
          AlreadyPainting = False
          Call HexDisplayUserMoves(MaxX, MaxY, UserPage, XMax, XOffset, YMax, CosTilt, SinTilt, PixelsPerX, PixelsPerZ, RelDistOfUserFromScreen)
          If SolutionDisplayed Then
            Call HexDisplaySolution(MaxY, ComputerPage, XMax, XOffset, YMax, CosTilt, SinTilt, PixelsPerX, PixelsPerZ, RelDistOfUserFromScreen)
            Text1.Text = ""
          Else
            If UserHasSolved Then
              Text1.Text = "Congratulations! you did it in" + " " + Text2: Timer2.Enabled = False
            Else
              Text1.Text = "Use Home,Up Arrow,PgUp,End,Down Arrow,PgDn to solve."
            End If
          End If
          mnuActionItem(1).Enabled = True
          mnuActionItem(2).Enabled = True
        End If
      End If
    Case Else
      DoEvents
  End Select
End Sub

Private Sub SqrDisplaySolution(MaxY As Integer, Page() As Byte, XMax As Double, XOffset As Double, YMax As Double, CosTilt As Double, SinTilt As Double, PixelsPerX As Double, PixelsPerZ As Double, RelDistOfUserFromScreen As Double)
  Dim DeltaIndex As Byte
  Dim OldPaletteHandle As Long
  Dim PathFound As Integer
  Dim TemDouble As Double
  Dim X As Integer
  Dim XNext As Integer
  Dim XPrevious As Integer
  Dim XRelative As Double
  Dim XRelativeNext As Double
  Dim Y As Integer
  Dim YNext As Integer
  Dim YPrevious As Integer
  Dim YRelative As Double
  Dim YRelativeNext As Double
  If UsePalette Then
    OldPaletteHandle = SelectPalette(frm3DMaze.hDC, PaletteHandle, 0)
    NumRealized = RealizePalette(frm3DMaze.hDC)
  End If
  XRelative = (RelativeWidthOfWall + 1#) / 2#
  YRelative = (RelativeWidthOfWall + 1#) / 2#
  CurrentColor = SolutionColor
  Call DrawLine(XRelative, RelativeWidthOfWall / 2#, XRelative, YRelative, XMax, XOffset, YMax, CosTilt, SinTilt, PixelsPerX, PixelsPerZ, RelDistOfUserFromScreen)
  XPrevious = 1
  YPrevious = -1
  X = 1
  Y = 1
  Do
    PathFound = False
    DeltaIndex = 0
    Do While (Not PathFound)
      XNext = X + SqrDeltaX(DeltaIndex, 0)
      YNext = Y + SqrDeltaY(DeltaIndex, 0)
      If Page(YNext, XNext) = 1 Then
        XNext = XNext + SqrDeltaX(DeltaIndex, 0)
        YNext = YNext + SqrDeltaY(DeltaIndex, 0)
        If (XNext <> XPrevious) Or (YNext <> YPrevious) Then
          PathFound = True
        Else
          DeltaIndex = DeltaIndex + 1
        End If
      Else
        DeltaIndex = DeltaIndex + 1
      End If
    Loop
    If YNext < MaxY Then
      TemDouble = SqrDeltaX(DeltaIndex, 0)
      XRelativeNext = XRelative + TemDouble
      TemDouble = SqrDeltaY(DeltaIndex, 0)
      YRelativeNext = YRelative + TemDouble
      Call DrawLine(XRelative, YRelative, XRelativeNext, YRelativeNext, XMax, XOffset, YMax, CosTilt, SinTilt, PixelsPerX, PixelsPerZ, RelDistOfUserFromScreen)
    Else
      Call DrawLine(XRelative, YRelative, XRelative, YMax, XMax, XOffset, YMax, CosTilt, SinTilt, PixelsPerX, PixelsPerZ, RelDistOfUserFromScreen)
    End If
    XPrevious = X
    YPrevious = Y
    X = XNext
    Y = YNext
    XRelative = XRelativeNext
    YRelative = YRelativeNext
  Loop While YNext < MaxY
  If UsePalette Then
    NumRealized = SelectPalette(frm3DMaze.hDC, OldPaletteHandle, 0)
  End If
End Sub

Private Sub SqrDisplayUserMoves(MaxX As Integer, MaxY As Integer, Page() As Byte, XMax As Double, XOffset As Double, YMax As Double, CosTilt As Double, SinTilt As Double, PixelsPerX As Double, PixelsPerZ As Double, RelDistOfUserFromScreen As Double)
  Dim DeltaIndex As Byte
  Dim OldPaletteHandle As Long
  Dim TemDouble As Double
  Dim X As Integer
  Dim XNext As Integer
  Dim XNextNext As Integer
  Dim XRelative As Double
  Dim XRelativeNext As Double
  Dim Y As Integer
  Dim YNext As Integer
  Dim YNextNext As Integer
  Dim YRelative As Double
  Dim YRelativeNext As Double
  If UsePalette Then
    OldPaletteHandle = SelectPalette(frm3DMaze.hDC, PaletteHandle, 0)
    NumRealized = RealizePalette(frm3DMaze.hDC)
  End If
  Y = 1
  YRelative = (RelativeWidthOfWall + 1#) / 2#
  Do While (Y < MaxY)
    X = 1
    XRelative = (RelativeWidthOfWall + 1#) / 2#
    Do While (X < MaxX)
      If ((Page(Y, X) = 1) Or (Page(Y, X) = 3)) Then
        For DeltaIndex = 0 To 3
          XNext = X + SqrDeltaX(DeltaIndex, 0)
          YNext = Y + SqrDeltaY(DeltaIndex, 0)
          If Page(YNext, XNext) <> 0 Then
            If YNext = 0 Then
              CurrentColor = AdvanceColor
              Call DrawLine(XRelative, RelativeWidthOfWall / 2#, XRelative, YRelative, XMax, XOffset, YMax, CosTilt, SinTilt, PixelsPerX, PixelsPerZ, RelDistOfUserFromScreen)
            Else
              If YNext = MaxY Then
                If UserHasSolved Then
                  CurrentColor = AdvanceColor
                  Call DrawLine(XRelative, YRelative, XRelative, YMax, XMax, XOffset, YMax, CosTilt, SinTilt, PixelsPerX, PixelsPerZ, RelDistOfUserFromScreen)
                End If
              Else
                XNextNext = XNext + SqrDeltaX(DeltaIndex, 0)
                If XNextNext > 0 Then
                  If XNextNext < MaxX Then
                    YNextNext = YNext + SqrDeltaY(DeltaIndex, 0)
                    If YNextNext > 0 Then
                      If YNextNext < MaxY Then
                        If ((Page(YNextNext, XNextNext) = 1) Or (Page(YNextNext, XNextNext) = 3)) Then
                          If Page(Y, X) = Page(YNextNext, XNextNext) Then
                            If Page(Y, X) = 1 Then
                              CurrentColor = AdvanceColor
                            Else
                              CurrentColor = BackoutColor
                            End If
                          Else
                            CurrentColor = BackoutColor
                          End If
                          TemDouble = SqrDeltaX(DeltaIndex, 0)
                          XRelativeNext = XRelative + TemDouble / 2#
                          TemDouble = SqrDeltaY(DeltaIndex, 0)
                          YRelativeNext = YRelative + TemDouble / 2#
                          Call DrawLine(XRelative, YRelative, XRelativeNext, YRelativeNext, XMax, XOffset, YMax, CosTilt, SinTilt, PixelsPerX, PixelsPerZ, RelDistOfUserFromScreen)
                        End If
                       End If
                    End If
                  End If
                End If
              End If
            End If
          End If
        Next DeltaIndex
      End If
      XRelative = XRelative + 1#
      X = X + 2
    Loop
    YRelative = YRelative + 1#
    Y = Y + 2
  Loop
  If UsePalette Then
    NumRealized = SelectPalette(frm3DMaze.hDC, OldPaletteHandle, 0)
  End If
End Sub

Private Sub SqrSolveMaze(Stack() As StackRec, Page() As Byte, NumRoomsInSolution As Integer, Adjacency As Integer, MaxX As Integer, MaxY As Integer)
  Dim DeltaIndex As Byte
  Dim PassageFound As Integer
  Dim StackHead As Integer
  Dim X As Integer
  Dim XNext As Integer
  Dim Y As Integer
  Dim YNext As Integer

  NumRoomsInSolution = 1
  Adjacency = 0
  X = 1
  Y = 1
  StackHead = -1
  Page(Y, X) = 1
  Do
    DeltaIndex = 0
    PassageFound = False
    Do
      Do While ((DeltaIndex < 4) And (Not PassageFound))
        XNext = X + SqrDeltaX(DeltaIndex, 0)
        YNext = Y + SqrDeltaY(DeltaIndex, 0)
        If Page(YNext, XNext) = 2 Then
          PassageFound = True
        Else
          DeltaIndex = DeltaIndex + 1
        End If
      Loop
      If Not PassageFound Then
        DeltaIndex = Stack(StackHead).Index1
        Page(Y, X) = 2
        X = X - SqrDeltaX(DeltaIndex, 0)
        Y = Y - SqrDeltaY(DeltaIndex, 0)
        Page(Y, X) = 2
        X = X - SqrDeltaX(DeltaIndex, 0)
        Y = Y - SqrDeltaY(DeltaIndex, 0)
        StackHead = StackHead - 1
        DeltaIndex = DeltaIndex + 1
      End If
    Loop While Not PassageFound
    Page(YNext, XNext) = 1
    XNext = XNext + SqrDeltaX(DeltaIndex, 0)
    YNext = YNext + SqrDeltaY(DeltaIndex, 0)
    If YNext <= MaxY Then
      StackHead = StackHead + 1
      Stack(StackHead).Index1 = DeltaIndex
      Page(YNext, XNext) = 1
      X = XNext
      Y = YNext
    End If
  Loop While YNext < MaxY
  X = MaxX - 1
  Y = MaxY - 1
  Adjacency = 0
  Do While (StackHead >= 0)
    For DeltaIndex = 0 To 3
      XNext = X + SqrDeltaX(DeltaIndex, 0)
      YNext = Y + SqrDeltaY(DeltaIndex, 0)
      If Page(YNext, XNext) <> 1 Then
        If Page(YNext, XNext) = 0 Then
          XNext = XNext + SqrDeltaX(DeltaIndex, 0)
          YNext = YNext + SqrDeltaY(DeltaIndex, 0)
          If XNext < 0 Then
            Adjacency = Adjacency + 1
          Else
            If XNext > MaxX Then
              Adjacency = Adjacency + 1
            Else
              If YNext < 0 Then
                Adjacency = Adjacency + 1
              Else
                If YNext > MaxY Then
                  Adjacency = Adjacency + 1
                Else
                  If Page(YNext, XNext) = 1 Then
                    Adjacency = Adjacency + 1
                  End If
                End If
              End If
            End If
          End If
        End If
      End If
    Next DeltaIndex
    X = X - 2 * SqrDeltaX(Stack(StackHead).Index1, 0)
    Y = Y - 2 * SqrDeltaY(Stack(StackHead).Index1, 0)
    StackHead = StackHead - 1
    NumRoomsInSolution = NumRoomsInSolution + 1
  Loop
  For DeltaIndex = 0 To 3
    XNext = X + SqrDeltaX(DeltaIndex, 0)
    YNext = X + SqrDeltaY(DeltaIndex, 0)
    If Page(YNext, XNext) <> 2 Then
      If Page(YNext, XNext) = 0 Then
        XNext = XNext + SqrDeltaX(DeltaIndex, 0)
        YNext = YNext + SqrDeltaY(DeltaIndex, 0)
        If XNext < 0 Then
          Adjacency = Adjacency + 1
        Else
          If XNext > MaxX Then
            Adjacency = Adjacency + 1
          Else
            If YNext < 0 Then
              Adjacency = Adjacency + 1
            Else
              If YNext > MaxY Then
                Adjacency = Adjacency + 1
              Else
                If Page(YNext, XNext) = 1 Then
                  Adjacency = Adjacency + 1
                End If
              End If
            End If
          End If
        End If
      End If
    End If
  Next DeltaIndex
End Sub

Private Sub SqrGenerateMaze(Page() As Byte, MaxX As Integer, MaxY As Integer, Stack() As StackRec, NumColumns As Integer, NumRows As Integer, Seed() As Byte)
  Dim DeltaIndex1 As Byte
  Dim DeltaIndex2 As Integer
  Dim Digit As Integer
  Dim DigitNum As Byte
  Dim PassageFound As Integer
  Dim RN(7) As Integer
  Dim RNIndex1 As Integer
  Dim RNIndex2 As Integer
  Dim SearchComplete As Integer
  Dim StackHead As Integer
  Dim Sum As Integer
  Dim TemInt As Integer
  Dim X As Integer
  Dim XNext As Integer
  Dim Y As Integer
  Dim YNext As Integer

  RN(0) = Seed(0) + 1
  RN(1) = Seed(1) + 1
  RN(2) = Seed(2) + 1
  RN(3) = Seed(3) + 1
  RN(4) = Seed(4) + 1
  RN(5) = Seed(5) + 1
  RN(6) = Seed(6) + 1
  RN(7) = Seed(7) + 1
  For Y = 0 To MaxY
    For X = 0 To MaxX
      Page(Y, X) = 0
    Next X
  Next Y
  Sum = 0
  For DigitNum = 1 To 3
    Digit = RN(0)
    RNIndex1 = 0
    RNIndex2 = 1
    Do While (RNIndex2 < 8)
      TemInt = RN(RNIndex2)
      RN(RNIndex1) = TemInt
      Digit = Digit + TemInt
      If Digit >= 29 Then Digit = Digit - 29
      RNIndex1 = RNIndex2
      RNIndex2 = RNIndex2 + 1
    Loop
    RN(7) = Digit
    Sum = 29 * Sum + Digit
  Next DigitNum
  X = 2 * (Sum Mod NumColumns) + 1
  Sum = 0
  For DigitNum = 1 To 3
    Digit = RN(0)
    RNIndex1 = 0
    RNIndex2 = 1
    Do While (RNIndex2 < 8)
      TemInt = RN(RNIndex2)
      RN(RNIndex1) = TemInt
      Digit = Digit + TemInt
      If Digit >= 29 Then Digit = Digit - 29
      RNIndex1 = RNIndex2
      RNIndex2 = RNIndex2 + 1
    Loop
    RN(7) = Digit
    Sum = 29 * Sum + Digit
  Next DigitNum
  Y = 2 * (Sum Mod NumRows) + 1
  Page(Y, X) = 2
  StackHead = -1
  Do
    DeltaIndex1 = 0
    Do
      DeltaIndex2 = RN(0)
      RNIndex1 = 0
      RNIndex2 = 1
      Do While (RNIndex2 < 8)
        TemInt = RN(RNIndex2)
        RN(RNIndex1) = TemInt
        DeltaIndex2 = DeltaIndex2 + TemInt
        If DeltaIndex2 >= 29 Then DeltaIndex2 = DeltaIndex2 - 29
        RNIndex1 = RNIndex2
        RNIndex2 = RNIndex2 + 1
      Loop
      RN(7) = DeltaIndex2
    Loop While DeltaIndex2 >= 24
    PassageFound = False
    SearchComplete = False
    Do While (Not SearchComplete)
      Do While ((DeltaIndex1 < 4) And (Not PassageFound))
        XNext = X + 2 * SqrDeltaX(DeltaIndex1, DeltaIndex2)
        If XNext <= 0 Then
          DeltaIndex1 = DeltaIndex1 + 1
        Else
          If XNext > MaxX Then
            DeltaIndex1 = DeltaIndex1 + 1
          Else
            YNext = Y + 2 * SqrDeltaY(DeltaIndex1, DeltaIndex2)
            If YNext <= 0 Then
              DeltaIndex1 = DeltaIndex1 + 1
            Else
              If YNext > MaxY Then
                DeltaIndex1 = DeltaIndex1 + 1
              Else
                If Page(YNext, XNext) = 0 Then
                  PassageFound = True
                Else
                  DeltaIndex1 = DeltaIndex1 + 1
                End If
              End If
            End If
          End If
        End If
      Loop
      If Not PassageFound Then
        If StackHead >= 0 Then
          DeltaIndex1 = Stack(StackHead).Index1
          DeltaIndex2 = Stack(StackHead).Index2
          X = X - 2 * SqrDeltaX(DeltaIndex1, DeltaIndex2)
          Y = Y - 2 * SqrDeltaY(DeltaIndex1, DeltaIndex2)
          StackHead = StackHead - 1
          DeltaIndex1 = DeltaIndex1 + 1
        End If
      End If
      If ((PassageFound) Or ((StackHead = -1) And (DeltaIndex1 >= 4))) Then
        SearchComplete = True
      Else
        SearchComplete = False
      End If
    Loop
    If PassageFound Then
      StackHead = StackHead + 1
      Stack(StackHead).Index1 = DeltaIndex1
      Stack(StackHead).Index2 = DeltaIndex2
      Page(YNext, XNext) = 2
      Page((Y + YNext) \ 2, (X + XNext) \ 2) = 2
      X = XNext
      Y = YNext
    End If
  Loop While StackHead <> -1
  Page(0, 1) = 1
  Page(MaxY, MaxX - 1) = 2
End Sub

Private Sub SqrSelectMaze(Seed As String, Page() As Byte, MaxX As Integer, MaxY As Integer, Stack() As StackRec, NumRoomsInMaze As Integer, NumColumns As Integer, NumRows As Integer, SecondsForMazeSelection As Double)
  Dim Adjacency As Integer
  Dim Counter0 As Byte
  Dim Counter1 As Byte
  Dim Counter2 As Byte
  Dim Counter3 As Byte
  Dim Counter4 As Byte
  Dim Counter5 As Byte
  Dim Counter6 As Byte
  Dim Counter7 As Byte
  Dim ElapsedTime As Double
  Dim MinAdjacency As Integer
  Dim NumRoomsInSolution As Integer
  Dim NumRoomsInSolutionAtMin As Integer
  Dim RN(7) As Integer
  Dim RNIndex1 As Integer
  Dim RNIndex2 As Integer
  Dim SeedByte(7) As Byte
  Dim SeedByteAtMin(7) As Byte
  Dim SeedLength As Integer
  Dim StartTime As Double

  SeedLength = Len(Seed)
  If SeedLength > 8 Then SeedLength = 8
  RNIndex1 = 0
  For RNIndex2 = 1 To SeedLength
    RN(RNIndex1) = Asc(Mid$(Seed, RNIndex2, 1)) Mod 10
    RNIndex1 = RNIndex1 + 1
  Next RNIndex2
  RNIndex2 = 7
  Do While (RNIndex1 > 0)
    RNIndex1 = RNIndex1 - 1
    RN(RNIndex2) = RN(RNIndex1)
    RNIndex2 = RNIndex2 - 1
  Loop
  Do While (RNIndex2 >= 0)
    RN(RNIndex2) = 8
    RNIndex2 = RNIndex2 - 1
  Loop
  Counter0 = RN(0)
  Counter1 = RN(1)
  Counter2 = RN(2)
  Counter3 = RN(3)
  Counter4 = RN(4)
  Counter5 = RN(5)
  Counter6 = RN(6)
  Counter7 = RN(7)
  Call Hash(Counter0, Counter1, Counter2, Counter3, Counter4, Counter5, Counter6, Counter7)
  MinAdjacency = 2 * NumRoomsInMaze + 1
  NumRoomsInSolutionAtMin = 0
  SeedByteAtMin(0) = Counter0
  SeedByteAtMin(1) = Counter1
  SeedByteAtMin(2) = Counter2
  SeedByteAtMin(3) = Counter3
  SeedByteAtMin(4) = Counter4
  SeedByteAtMin(5) = Counter5
  SeedByteAtMin(6) = Counter6
  SeedByteAtMin(7) = Counter7
  StartTime = Timer
  Do
    SeedByte(0) = Counter0
    SeedByte(1) = Counter1
    SeedByte(2) = Counter2
    SeedByte(3) = Counter3
    SeedByte(4) = Counter4
    SeedByte(5) = Counter5
    SeedByte(6) = Counter6
    SeedByte(7) = Counter7
    Call SqrGenerateMaze(Page(), MaxX, MaxY, Stack(), NumColumns, NumRows, SeedByte())
    Call SqrSolveMaze(Stack(), Page(), NumRoomsInSolution, Adjacency, MaxX, MaxY)
    If 3 * NumRoomsInSolution >= NumRoomsInMaze Then
      If Adjacency < MinAdjacency Then
        MinAdjacency = Adjacency
        NumRoomsInSolutionAtMin = NumRoomsInSolution
        SeedByteAtMin(0) = SeedByte(0)
        SeedByteAtMin(1) = SeedByte(1)
        SeedByteAtMin(2) = SeedByte(2)
        SeedByteAtMin(3) = SeedByte(3)
        SeedByteAtMin(4) = SeedByte(4)
        SeedByteAtMin(5) = SeedByte(5)
        SeedByteAtMin(6) = SeedByte(6)
        SeedByteAtMin(7) = SeedByte(7)
      Else
        If Adjacency = MinAdjacency Then
          If NumRoomsInSolution > NumRoomsInSolutionAtMin Then
            NumRoomsInSolutionAtMin = NumRoomsInSolution
            SeedByteAtMin(0) = SeedByte(0)
            SeedByteAtMin(1) = SeedByte(1)
            SeedByteAtMin(2) = SeedByte(2)
            SeedByteAtMin(3) = SeedByte(3)
            SeedByteAtMin(4) = SeedByte(4)
            SeedByteAtMin(5) = SeedByte(5)
            SeedByteAtMin(6) = SeedByte(6)
            SeedByteAtMin(7) = SeedByte(7)
          End If
        End If
      End If
    End If
    Call Increment(Counter0, Counter1, Counter2, Counter3, Counter4, Counter5, Counter6, Counter7)
    ElapsedTime = Timer - StartTime
  Loop While ((ElapsedTime >= 0#) And (ElapsedTime < SecondsForMazeSelection))
  Call SqrGenerateMaze(Page(), MaxX, MaxY, Stack(), NumColumns, NumRows, SeedByteAtMin())
  Call SqrSolveMaze(Stack(), Page(), NumRoomsInSolution, Adjacency, MaxX, MaxY)
End Sub

Private Sub SqrOutputMaze()
  Dim ObjectNum As Byte
  Dim Radians As Double
  Dim RadiansPerDegree As Double
  Dim SingleRectangle(3) As VertexRec
  Dim SingleTriangle(2) As VertexRec
  Dim TemDouble1 As Double
  Dim TemDouble2 As Double
  Dim TemDouble3 As Double
  Dim TemDouble4 As Double
  Dim Triangle(3, 2) As VertexRec
  Dim VertexNum As Byte
  Dim XMod8 As Byte
  Dim X0 As Double
  Dim X1 As Double
  Dim X2 As Double
  Dim X3 As Double
  Dim Y0 As Double
  Dim Y1 As Double
  Dim Y2 As Double
  Dim Y3 As Double

  Select Case State
    Case 0
      Text1.Text = ""
      ScaleMode = 1
      If (Resize) Then
        Text2.Left = ScaleWidth - 1000
        TemDouble1 = ScaleWidth - VScroll1.Width
        TemDouble2 = MinWallLengthInInches
        TemDouble2 = 1440# * TemDouble2
        TemDouble3 = RelativeWidthOfWall
        NumColumns = Int(TemDouble1 / TemDouble2 - TemDouble3)
        If NumColumns < 2 Then NumColumns = 2
        TemDouble1 = ScaleHeight - Text1.Height
        TemDouble2 = ScaleWidth - VScroll1.Width
        ScaleMode = 3
        TemDouble3 = NumColumns
        NumRows = Int((TemDouble1 * TemDouble3) / TemDouble2)
        If NumRows < 2 Then NumRows = 2
        Tilt = 90 - VScroll1.Value
        MaxX = 2 * NumColumns
        MaxY = 2 * NumRows
        NumRoomsInMaze = NumRows * NumColumns
        ReDim ComputerPage(MaxY, MaxX)
        ReDim UserPage(MaxY, MaxX)
        ReDim Stack(NumRoomsInMaze)
        Call SqrSelectMaze(Seed, ComputerPage(), MaxX, MaxY, Stack(), NumRoomsInMaze, NumColumns, NumRows, SecondsForMazeSelection)
        For UserX = 0 To MaxX
          For UserY = 0 To MaxY
            If ComputerPage(UserY, UserX) = 0 Then
              UserPage(UserY, UserX) = 0
            Else
              UserPage(UserY, UserX) = 2
            End If
          Next UserY
        Next UserX
        UserX = 1
        UserXRelative = (RelativeWidthOfWall + 1#) / 2#
        UserY = 1
        UserYRelative = (RelativeWidthOfWall + 1#) / 2#
        UserPage(UserY, UserX) = 1
        Resize = False
      End If
      If (Paint) Then
        ScaleMode = 3
        Cls
        RadiansPerDegree = Atn(1#) / 45#
        Radians = Tilt * RadiansPerDegree
        SinTilt = Sin(Radians)
        CosTilt = Cos(Radians)
        TemDouble1 = PerDegree
        SinTilMaze)
        Call SqrSelectdjacency < MinAdjacency ThY0 To 5 Step 5
   E2 = PerDegreeTilt = Sin(Radians)
        CosTilt = Cos(Radians)
        TemDouble1 = PerDegree
        SinTilMaze)
        Call SqrSelectdjacency < MinAdjacency ThY0 To 5 Step 5
   E2 = PerDegreeTilt = Sin(Radians)
        CosTilier4, Counte SeedByteAt(6)
  Counter7 = RN(7)e(0  X = 2 * (Sum Mod NumColumns) + 1
  Sum = 0YhY0 To 5 Sth0 Then
 o 5 Step 5
   E2 = PerDegr To 5   X = 2 * (Sum Mod NumCol2Int(nter0 = RN(0)
  Counter1 = Rnunter1 = Rnunter1 Singlep 5
   Y)
    If 3 =         SingleTriangle(0).Y =E2 = PerDegreeTilt = Sin(Radians)
    1    CaI)
    If 3 =        2HeadbCol2Int( 3 =       Radi92 = PerDegr To 5   X = 2 * 15 Step 5
   E2 = PerDegr 062X7   E2 = PieMax, SingleRectangle()06, NumRows, SeedByteAtMin())
MinAdjacency ThY0 To 5 Step 5
   E2 = PerDegreeTilt = Sin(Radians)
        Ct PerD    e SeedByteAt(6)
  erD    e   93 =        2HeadbCol2IntbjectNum, Vertee(0  X = 2 * (Sum Mod NumColesize) Then
          PerD =e5hen
   7ntbjectNum, Vertee(0  X = 2 * (Sum Mod NumColesi= RN(0)
  Coectangle(Ye(0  X = 2 * (Sum 6n

  Coectangle(Ye(0  X  2 * (Sum Mod NumColesize) Th1.Text = ""
      ScaleMoL 45#
        Radt,   CosTilt
   Y)
    If 3 =         SingleTriangle(0).Y =ERadtfUserFromScreen, False, r1  YesTilt
   Y)
    If 3 =       Y)
    If 3 =       Y)
  Ye(0  X  2 * (2) As Ver) + 1
  Page(Y, X)eor, St2 VertexNum
     -rtsTilt
  nSolutionAtMin As 7re) Then
          PerD =e5hen
 = SeeD8oL 45#
      irD r2
 = SeeD8oL 4  Y)
    If 3 =       Y)sT Step 5
  X = 2 F1th - VScroll1.Wn nSoluTe)
    RN(RNIndex2) = 8
    RNIf 3 =       Y)sT Step 5
  X = 2 F1th - VScroll1.Wn nSolu22ectNum, Vertee(0  X =  PerD =e5h X  2 * (2) As Ver) + VScroll1.Wn5
2ll1.Wn nSolu22ectNum, Ve=  PerD =e5h X  2 ter1 Singlep 5
   irD r2
teron-en
              UserPage(UserY, UserX) = 0
            Else
              UserPage(UserY, UserX) = 2
            End If
          Next UserY
        Next UserX
        UserX = 1
        UserXRelative = (RelativeWidthOfWall + 1#) / 2#
        UserY lativeWidthOfWall + 1#)Y laep 5
   irD r2
terontRectangle(Xl1.Wn nSolu22ecFg1 S      UserXRelative = (Rel    X = 2 * 15 Stephile ((Delt2            If YNext > Max          If YNext esi= RN(0 TemDouble3 = Relll1.Wn nSolu22ectNum, V            r>ext > Max  f YNext esi= RN(0              UserPaCdS       BytttttttttDlve9S       r2
 = SeeD8oL 4  Y)
   ji       Else
            6cNai       ElH1 UserX) = 2

   j+acNai       ElH1 n1n n     UserY = 1
      NumRoomsInMaze = NumRows * NumColumns
    Rows * NumC  ElH1 UserX) = 2
  ue
       = 3
   erX) = 2    = 3
   erX) = 2  2    = 3
   er= 3
                       = 2  2    = 3
   er= 3
              er= 3
        6e(1).X =
   erX) = 2    = 3
   erX) = 2  2    = 3
   er= 3
                       age(UserYsPerDegree = Atn(1#) / 45#
        Radif
   lution > NumRoomsInSodif
   lution > Nuoomslt, PixeliiY
        TemDoubleH 2 r2
 = SeeS r2
 = SeeS r2
 = SeeS  RectreeTilt SeeS r2
 = SeeS r2eeS r2
 = SeeS r2eeS r2
 = SeeS r2eeS r2
 =e   = 2  2    = 3
   e
        UserXRel
   erX) = 2    = 3
   erX) = 2  UseeU7cSeeS r2
 = SeeS  RectreeTilt Y 3
   erX) = 2  UseeU7  TemDouble1 = PerDegreeeeD8oL 4  Y)1 = PerDegreeeeD8eU7  TemDouble1Yext = "Use Home,Up Arro0eeTilt Y2    = 3
   erX) = 2  UseeU7cSeeS r2
 = SeeS  RectreeTilt Y 3
   erX) = 2  UseeU7  TemDouble1 = PerDe)1ltaIndex, 0)
    If YNext <= MaxY Then
IxY Then
IxY Then
In
IxNeeS r2
 sInMaze, Nr Objn
IxNeeS r2
 sInMaze,   UserPage Arro0eeTiltr2
 sInMazeAaze01           For VertexNum = 0 To
   erX) = 2    = 3
   e
 sInMaze, Nr Objn
IxNeeS r2
 VertexNum = 0 To
   7azee   93 =    7erX) = 2  azee   93 =    7erX) nMaze, Nr Objn
IxNe2lN VertexNum = 0 To
   7azee
   erX) = 2jn
IxNeeS r2
 sIn 93 =    7erX) nMaze2 3
   erX) = 2  2    = 3= 3
   e
 sInMaze, Nr Objn
IxNeeS rx  = LemFor VertexNu 0 To
   erX) = 2    = 3
  To
   1)Y / 45#
        Radif
   luTilt
   Y)
    If 3 = ,3 3S Y)
    If u2egIDegreeTilt = Sin(Rad  Radif

    If u2eYRelative, Yp(r Objn0
IxNeeS r2
 sInMaze,   U = PerDegr To 5   X = 2 * 151
 sInMaze,   U6L Y 3
   erX) = 2  Usee sInMazeAaze01           Fo      Radi92 = PerDegr S  luTilt
   Y)
    If 3 =1 1)Y / 45   lt
   Y)
7 Yp(r Objn0
IxNeeS r2
 sInMazaze,   U6L 8)Y / 45   lt
   Y)
7 .sp SeeS  RectreeTilt Y 3
   erX) = 2  UseeU7  TemDous = Y
    Xdh= SeeS r2eeS r2
 =e   = 2  2   tegreeTil r2
 = SeeS  RectreeTilt Y 3
 tPage(Usep2
 sIn As Integer, Page() As Byte, XMax As e2    = = Adjacency + 1
          Else
    3
 tPage As Integer, P= SeeD8olt
   Y)
7 .sp SeeS = = Adjacenc esi= RN erX) = 2  UseeU7  T
      End If= SeeD8oL 4SolutionAtMin As ,MaxY T= YOemDoutbjectNum, Vertee(0  X = 2 *rDegr S  luTilt
   Y)
    If *rDeL71o Step 5
  X m  3
 tPage As Integer, P= SeeD8olt
   Y)
tive As Double
  D er= 3
        6e(1).X 19)Step 5
  X sgle(2).X = Tl     If YN   If 3 =   2e() As If YN   If 3 =   2e() As f YNtive   X sgle(2lt
   Y)
    If *rD Then
In
en
      r2
 VertexNum = 0 To =VertexNumY = 1
        UserYRelaA   If (RelativeWidthOfWall + A X sgl#
        UserPage(UserA / 45)
    IC=Page(UserA /  = FalsAUserA If 3 =   2esAUserA If 3 =   2esAUserA If 3 =   2esAUserA If 3 =   2esAUserA If 3 =  2 ScaleMode = 3
  (mDoutbjectNum, Vertee(  If 3 =   Arro0eeTilt Y2                         = 1
        AUserA If 3 =
        AUserA If 3 =
        AUserA If  If 3 =
        AUserA If  2x     =3 =07emDoutbjectNum, Vertee(0  X azee   93eS  Rectreet
   Y)
7 .sp S Rect SqrDeltaX(DeltaIndex, 0YYelat3 AUserA If BRect Sq tegreeelat3 AUserA If BRe1o ze,   U6L 8)Y / 45   ltreeTimDouble1 / Tem7  r2
 = SeeD8oL  .sp SeeS  RectreeTilt.sp SeeS  Rectrex, 0YYelat3 AUserA mtegreeelat3 AUserA IPage As Integer, P= Se SeeS  Rectrn P=   = 2  2   Yelat3 AUserA mteA / 45)
    IC=PP=   = 2  2 2   X sgle(2)lt Y 3
 tPa 2   X sgle(2)lt UserA If 3 =
        AUserA If 3 =

   Y)  er= 3ge As Integer, P= Se Se) 3 =VertexNum = 0 To
 i
   Y)  er= 3ge As IntegeoYNext, XNext) = 0 Then2 - TemDo3 =VertexNum = 0 To
 i
   Y)  er= 3ge As IntegeoYNext, XNext) = 0 Then2 - TemDo3 =VertexNum = 0 To
 i
   Y)  er= 3ge As IntegeoYNext, XNext) = 0 Then2 - TemDo3 =VertexNum = 0 To
 i
   Y)  er= 3ge As IntegeoYNext, XNext) = 0 Then2 - TemDo3 =nl
        Scal 1
    XNext = X    XNext = X    XNext = X    XNea3t
   TemDo3 =nl
        Sc3 =VertexNu2 * SqrDeltaY(Stack(Sxreeelat3 AUegreeTilt = Sin(Rad  Rad0-3 =nl
        Sc3)0 Then2U=nl
        Sc3)0 ThaY(Stack(Sxreeelat3 AUegr0 ThaY(Stack(Sxreeelat3 AUetack(SxreeelYlativeWidthOfWall + A Xa
   7azentiveWmDo3 =VertexNum = 0 To
 i
   Y)  er= 3ge As IntegeoYNext, XNext) = 0 Then2 - TemDo3 =VertexNum = 0 To
 i
   Y)  er= 3ge As IntegeoYNext, XNext) = 0 Then2 - TemDo3 SqrDeltaX(DeltaX(DeltaX(DeltaX(DeIndex2 + TemDo3 =Vertex2tNext) = 0 Then2 - TemDo3 S
        2 - TemDo3 S2(DeIndex2 + TemDo3 =Vertex2telat3 = 0 Then2 e1/ Tem7  r2xNum = 0 To
 pemDo3 S2(DeIndex2 +x2telat3    7ntbject1*eS r2
   7n1, 0)
    NumRealized =0)
    NumRealizedat3    7ntbject1*eS r2
   e1/ Tem7eS r2
   e1/ Te e1/ Tem7eS r2
   e
   e1/ Te e1/ Tem7eS r2
   e
   e1/ Te e1/ Tem7eS r2
    dxe As Intenl
        Sc3)0 ThaY(Stack(e1/ TS1/ Tem7eS r2
   e
  Y(Stack(e1/ TS1/ Tem7 Sc3 =Vert)exNum PteoYNext, XNeTem7eS r2
   e1/ Te e1/ Tem7ext, XNeTem7e XNeTe7ext, XNeTem7e XNeTe7ext, Nr eTem7e XNeTeDL PteoYNext7MazeAaze0XNeTeDL PteoYNext7MazeAt, Nr eTem7e XNeTeDL 1DL Pte1Aiiiii r2
   If *rD Then
In
en
      r  Sc3)0 ThaY(Stack(Sxr eTem7e XNeTeDL 1DL Pte1Aiiiii r2
   If *rD ThentreeTilt Y 3
   erX) (l3
   erX) (l3

   erX) (l3

   erX
   erX) r eTem7 r  erX) (l3

   erX
   e erX
 lr  erX) (Sd3 = Sin(RaerX) (l3
y        ).) (l3
y   ge As In-t           If UserHasSot1*eS r2
   e1/ Tem7eS r2
   e1/  e1/ Tem7eS r2
   e1/  e1/ Tem7eS tlat3 AUetack(SxreeelYlative-tSLerX) (l3m7 r  erX) (leS taNr eTem7e XNeTeDL 1DL Pte1Aii9 5
   E2 = erX) (l3aDeltaX(DeltaX(DeltaX(DeIndexeltaX(DeltRectangle(5, 1).X
                    Sinem7e XNeTeDL 1DL Pte1Aii9 5
   E2 = erX) (l3aDeltaX(DeltaX(DeltaX(DeIndexeltaX(DeltRectangle(5, 1).X
                    Sinem7e XNeTeDL 1DL Pte1Aii9 5
   E2 = erX) (l3aDeltaX(DeltaX(DeltaX(DeIndexeltaX(DeltRectangle(5, 1).X
              Y An(Rad  Rad0 erX) (l3sD =e5h X  2 ter1 Singlep 5
   iad0 erX) (l3sD =e5h  iad0 erX) (l3sD =e3sD =e5h X  2 ter1 Singld0   iad0 ere3sD =e5h X  2 ter1   TemDoubl             Sinem7e XNeTeDL 1DDDDDDDDDDDDDDDDDD3 =ubl DL 1DL Pte1Aii9 5L 1DL Pte1Ate1Aii9 5L 1DL Pt-lse
    SearchComplete = False
    Do While (Not SearchComplete)
      Do While ((DeltaIndex1 < 4) And (Not PassageFound))
        XNext = X + 2 * SqrDeltaX(DeltaIndex1, DeltaIndex2)
        If XNext <= 0 T
   e erX
 lr  erX) eg2= 0 T
   e erX
 1).X
         X
 1).Xeg2= 0 T
   e erX
 1).X
 XNext <= 0 T
   e   TemDoubl     X
  XNNNNNNNxt7Mabl     X
DDDDaaaaaaaaaaYl     X
  XNNNNNN=texNum).X + 3#
                  Next VertexNum
                Next Ol     X(
   E2 = erX) (l3aDelNext Ol     X(
   Y An(Rad  RalNext Ol     X(
   Y An(Rad  Ral9,DelNext Olm(
   Y AngleTriangle(0).Y =ERadtfUseFDoubl     X
  XNNXRelativeNex-oubl     X
  XNNX  Y An(Rad  RalNext Ol     X(
   Y An(RaY61
   e
  Y)      = 3ge As IntegeoYNext, XNext) = 0 Then2 - TemDeltaXxNumFromSC        3s6ge AxNumFromSC        3s6ge s1)2lative-tSLerX) (l3m7 r  erX) (leS taNr eTem7e XNeTeDrX) (l) 0 Then2 - TemDeltaXxNumFros I   UserPage(UserA / 45UserA If 3 =
        AUse 3ge UserA If 3 =
     e s1)2lativ 8)Y / 45   ltreeTimDouble1 / Tem7 =
     e s1)2lativ 8)Y / 45  =P83 =
        AUse 3  =P83 =
        AUse 3  =P83 =
        AUse 3 ,3    Next oIntegeoYNext, XNext) = 0 Then2 - TemDeltaXxNumFromSC        3s6ge AxNumFromSC        3s6ge s1)2lative-tSLerX) (l3m7 r  erX) (leS taNr eTem7e XNPerZ, RelDistOfUsee
    SearchComplete = FOfUsee
    Sea
   Y An(Rad  Raea
   Y 2
   e1/  e1/ Tem7eS tlatlete = FOfUsee

   7nm7 r  eoNPerZ,AUetack61PF1ext) = e

   7nm
     e s1)2lativ 8)Y / 46emDeltaXxNumFromSC        3s6ge AxNumFromSC        3s6ge s1)2lative-tSLerX) (l3m7 r  erX) (leS taNr eTem7e XNeTeDrX) (l) 0 Then2 - TeXmFromSC       )s6mFromSC        wRadif
   lution > NumRoomsInnl
  ,e 3  =P83 =
        AUseBn > NumRoo=
  7Vertee(0  T3  =P83 =7 SearchComplete)
    3NX  Y An(Rad        NexIext, XNe, Puuuuu XNe, Puuuuu XNen=
   e1/  e1/ Tem7eS tlat3 AUetack(Sxr6= Di 3NX  Y An(Rad     SqrDeltaY(Stack(Sxreeela SqrDeltaY(Stack(Sxreeela 1    X(
   E2 = erX) (l3DeltaIX(
   E2 = eectdjacency < Min16)Pte1Ate1Aii9 5L 1DL P(n1Ate1Ai1Aii9 5e) Y An(Rad   ) (l3DeltaIX<i1Aii9 5e) Y An(Rerlized = RealizePalette(frm3DMaze.hDC)
  End Ifn16)Pte1Ate1Aii9 5L 1DL P(n1Ate1Ai1Aii9 5e) Y .veWidthOfWall /5L 1DL P(n1Yn16)Pte1Ate1Aii9 5L 1DL P(n1At37S r2n nSolu22ectNum, Ve=  PerD =e5h X  2 ter1 SinglepL 1DL Pte1Aii9 5
   E2m7e XNeTeDrXlu22ectNum, Ve=  PerD =e5h X  2 ter1 SinglepL 1DL Pte1Aii9 5
   E2m7e XNeTeDrXlu22ectNum, Ve=  PerD =e5h X  2 ter1 SinglepL 1DL Pte1Aii9 5
   E2m7e XNeTeDrXlu22ectNum, Ve=  PerD =e5h X  2 ter1 SinglepL 1DL Pte1Aii9 5
   E2m7e XNeTeDrXlu22ectNum, Ve=  PerDctNum, Ve=  PerD =e5h X  2 ter1 SinglepL 1DL Pte1Aii9 5
   E2m7e XNeTeDrXlu22ectNum, Ve=  PerD =e5h X  2 ter1 SinglepL 1DL Pte1Aii9 5
   E2m7e XNeTeDrXlu22ectNum, Ve=  PerDctNum, Ve=  PerD =e5h X     Y An(Rad  RalNext Ol     X(1SeeS  RectreeTilt.sp SeeS  Rectrex, 0YYelat3 AUsesD =e52 RectreeTilt.sp SeeS L P(n1t.sp SeeS  Rectrex, 0YYelat3 AUsesD =e5)= 0 Then2 - TemDeltaXdex1 - 1
  YctreeTilt.sp SeeS L P(oYYelat3 D =e52 RectreeTilt.sp SeeS L P(n1t.sp SeeS  Rects,e5)= 0 Then2 - TemDeltaXdex1 - 1
  YctreeTilt.sp SeeS L P(oYYelat3 D =e52 RectreeTilt.sp SeeS L P(n1t.sp SeeS  Rects,e5)= 0 Then2 - TemDeltaXdex1 - 1
  YctreeTilt.sp SeeS L P(oYYelat3 D =e52 RectreeTieTilt.sp SeeS22 - TemDeltaXdex1 - 1
  Ys IntegeoYNext, XNext) = 0 Then2 - TemDeltaXxNumFromSC        3s6ge AxNumFromSC        3s6P(n1At37S r2n nSolu22ectNum, Ve=  PerD =etaXdex1 - 1
  Ys IntegeoY
  XNNNNNNNxt7Mabl     X
DDtNNxMabl   )0uA5h X  2 ter1 SinglepL 1DL Ptein SeeS L P(n1oNumR+e(0).Y =ERadtfUseFDoubl     X
  XNNXRelativeNex-oubl     X
  XNNX  Y An(Rad  RalNext Ol     X(
   Y An(RaY61
   e
  Y)      = 3ge As IntegeoYNext, XNext) = 0 Then2 - TemDeltaXxNumFromSC        3s6ge AxNumFromSC        3s6ge s1)2lative-tSLerX) (l3m7e Ve=  PerD =e5h X  2 ter1 SinglepL 1DL Pte1Aii9 5
   E2m7e XNeTeDrXlu22ectNum, Ve=  PerDctTeDrXlu22ectNum, sectNum, sectNum, sectN PerDctTeDrXlu22ec, sectN PerDctTerIserA If  2x     =3 )Pte1Ate1Aii9 5L 1DL P(1DL Pte1Aii9 5
   E2m7L 1         Sinem7e XNeTeDe1At 1DL P(1DL Pte1Aii9 5
      DrDctTerIserA If  2x     ectN PerDctTNx     ectae(1DL Pte1Aii9 5
   ae(1DL Pte1Aii9 5 sectNum, s   1DL P(1=e5PerDctTeDrXl     DrDctTerIserA If  S taNr eTem7e XNeTeDrX) (l) 0 Then2 - TemerDctTerIserA If  2x2YW0L Ptein SeeS L P(n1oNumR+e(0).Y =ERadtfUseFDoubl     X
  XNNXRelativeNex-oubl     X
  XNNX  Y An(Rad  RalNext Ol     X(
   Y An(RaY61
   e
  Y)      = 3ge As IntegeoYNext, XNext) = 0 Then2 - TemDeltaXxNumFromSC        3s6ge AxNumFromSC        3s6ge  0 Then2 NeTeDrA
   Y)  er= 3g30eDrA
   Y)  ertaXdex1 - 1

   Y)  erta&6ge  0 Then2 Ne,1erta&6ge  0 Then2 Ne,1erta&6ge  0    ae(rta&6ge  0,o6o-t      eTilt.s&6ge