Add proper WM and Remove old source

Added a proper, working WM. I also got rid of the old source as we could
just make a new repo for that.

1 files changed, 0 insertions, 1720 deletions

diff --git a/ShiftOS/Knowledge Input.vb b/ShiftOS/Knowledge Input.vb
deleted file mode 100644
index b9bede4..0000000
--- a/ShiftOS/Knowledge Input.vb
+++ /dev/null
@@ -1,1720 +0,0 @@
-Public Class Knowledge_Input
-    Public rolldownsize As Integer
-    Public oldbordersize As Integer
-    Public oldtitlebarheight As Integer
-    Public justopened As Boolean = False
-    Public needtorollback As Boolean = False
-    Public minimumsizewidth As Integer = 0
-    Public minimumsizeheight As Integer = 0
-    Public ShiftOSPath As String = "C:\ShiftOS"
-
-    Dim guessalreadydone As Boolean
-    Dim guesscorrect As Boolean
-    Dim levelup As Boolean
-    Dim rewardbase As Integer
-    Dim savecontent() As String
-
-    Dim totalguessed As Integer
-    Dim level As Integer
-    Dim tillnextlevel As Integer
-
-    Dim animalslist(226) As String
-    Dim fruitslist(75) As String
-    Dim countrieslist(204) As String
-    Dim carbrandslist(328) As String
-    Dim gameconsoleslist(124) As String
-    Dim elementslist(117) As String
-
-
-#Region "Template Code"
-
-    Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        justopened = True
-        Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
-        Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
-        setupall()
-
-        pnlintro.Show()
-        pnlintro.BringToFront()
-        pnlcategorydisplay.Hide()
-        makeanimallist()
-        makecarbrandslist()
-        makecountrieslist()
-        makeelementslist()
-        makefruitlist()
-        makegameconsoleslist()
-        If ShiftOSDesktop.boughtkicarbrands = True Then
-            If ListBox1.Items.Contains("Car Brands") Then
-            Else
-                ListBox1.Items.Add("Car Brands")
-            End If
-        End If
-
-        If ShiftOSDesktop.boughtkigameconsoles = True Then
-            If ListBox1.Items.Contains("Game Consoles") Then
-            Else
-                ListBox1.Items.Add("Game Consoles")
-            End If
-        End If
-
-        If ShiftOSDesktop.boughtkielements = True Then
-            If ListBox1.Items.Contains("Elements") Then
-            Else
-                ListBox1.Items.Add("Elements")
-            End If
-        End If
-        If ShiftOSDesktop.KnowledgeInputCorrupted Then Me.Close() : infobox.showinfo("The Plague.", Me.Name & "has been corrupted by The Plague.")
-
-        If ShiftOSDesktop.boughtgray4 = True And ShiftOSDesktop.boughtshiftnet = False Then tmrstoryline.Start()
-
-        ShiftOSDesktop.pnlpanelbuttonknowledgeinput.SendToBack() 'CHANGE NAME
-        ShiftOSDesktop.setuppanelbuttons()
-        ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonknowledgeinput, ShiftOSDesktop.tbknowledgeinputicon, ShiftOSDesktop.tbknowledgeinputtext, True) 'modify to proper name
-        ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
-    End Sub
-
-    Public Sub setupall()
-        setuptitlebar()
-        setupborders()
-        setskin()
-    End Sub
-
-    Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
-        'Make terminal appear
-        If e.KeyCode = Keys.T AndAlso e.Control Then
-            Terminal.Show()
-            Terminal.Visible = True
-            Terminal.BringToFront()
-        End If
-
-        'Movable Windows
-        If ShiftOSDesktop.boughtmovablewindows = True Then
-            If e.KeyCode = Keys.A AndAlso e.Control Then
-                e.Handled = True
-                Me.Location = New Point(Me.Location.X - ShiftOSDesktop.movablewindownumber, Me.Location.Y)
-            End If
-            If e.KeyCode = Keys.D AndAlso e.Control Then
-                e.Handled = True
-                Me.Location = New Point(Me.Location.X + ShiftOSDesktop.movablewindownumber, Me.Location.Y)
-            End If
-            If e.KeyCode = Keys.W AndAlso e.Control Then
-                e.Handled = True
-                Me.Location = New Point(Me.Location.X, Me.Location.Y - ShiftOSDesktop.movablewindownumber)
-            End If
-            If e.KeyCode = Keys.S AndAlso e.Control Then
-                e.Handled = True
-                Me.Location = New Point(Me.Location.X, Me.Location.Y + ShiftOSDesktop.movablewindownumber)
-            End If
-            ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User moved " & Me.Name & " to " & Me.Location.ToString & " with " & e.KeyCode.ToString & Environment.NewLine
-        End If
-    End Sub
-
-    Private Sub titlebar_MouseDown(sender As Object, e As MouseEventArgs) Handles titlebar.MouseDown, lbtitletext.MouseDown, pnlicon.MouseDown, pgtoplcorner.MouseDown, pgtoprcorner.MouseDown
-        ' Handle Draggable Windows
-        If ShiftOSDesktop.boughtdraggablewindows = True Then
-            If e.Button = MouseButtons.Left Then
-                titlebar.Capture = False
-                lbtitletext.Capture = False
-                pnlicon.Capture = False
-                pgtoplcorner.Capture = False
-                pgtoprcorner.Capture = False
-                Const WM_NCLBUTTONDOWN As Integer = &HA1S
-                Const HTCAPTION As Integer = 2
-                Dim msg As Message = _
-                    Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _
-                        New IntPtr(HTCAPTION), IntPtr.Zero)
-                Me.DefWndProc(msg)
-            End If
-            ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User dragged " & Me.Name & " to " & Me.Location.ToString & Environment.NewLine
-        End If
-    End Sub
-
-    Public Sub setupborders()
-        If ShiftOSDesktop.boughtwindowborders = False Then
-            pgleft.Hide()
-            pgbottom.Hide()
-            pgright.Hide()
-            Me.Size = New Size(Me.Width - pgleft.Width - pgright.Width, Me.Height - pgbottom.Height)
-        End If
-    End Sub
-
-    Private Sub closebutton_Click(sender As Object, e As EventArgs) Handles closebutton.Click
-        Me.Close()
-    End Sub
-
-    Private Sub closebutton_MouseEnter(sender As Object, e As EventArgs) Handles closebutton.MouseEnter, closebutton.MouseUp
-        closebutton.BackgroundImage = Skins.closebtnhover
-    End Sub
-
-    Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
-        closebutton.BackgroundImage = Skins.closebtn
-    End Sub
-
-    Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
-        closebutton.BackgroundImage = Skins.closebtnclick
-    End Sub
-
-    Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
-        ShiftOSDesktop.minimizeprogram(Me, False)
-    End Sub
-
-    'Old skinning system - No idea what this does
-    ''Private Sub titlebar_MouseEnter(sender As Object, e As EventArgs) Handles titlebar.MouseEnter, titlebar.MouseUp, lbtitletext.MouseEnter, pnlicon.MouseEnter, closebutton.MouseEnter, rollupbutton.MouseEnter
-    ''    If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then  Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(1)
-    ''End Sub
-
-    'Private Sub titlebar_MouseLeave(sender As Object, e As EventArgs) Handles titlebar.MouseLeave, lbtitletext.MouseLeave, pnlicon.MouseLeave, closebutton.MouseLeave, rollupbutton.MouseLeave
-    '    If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then  Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0)
-    'End Sub
-
-    Private Sub rollupbutton_Click(sender As Object, e As EventArgs) Handles rollupbutton.Click
-        rollupanddown()
-    End Sub
-
-    Private Sub rollupbutton_MouseEnter(sender As Object, e As EventArgs) Handles rollupbutton.MouseEnter, rollupbutton.MouseUp
-        rollupbutton.BackgroundImage = Skins.rollbtnhover
-    End Sub
-
-    Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
-        rollupbutton.BackgroundImage = Skins.rollbtn
-    End Sub
-
-    Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
-        rollupbutton.BackgroundImage = Skins.rollbtnclick
-    End Sub
-
-    Public Sub setuptitlebar()
-
-        setupborders()
-
-        If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
-        pgleft.Width = Skins.borderwidth
-        pgright.Width = Skins.borderwidth
-        pgbottom.Height = Skins.borderwidth
-        titlebar.Height = Skins.titlebarheight
-
-        If justopened = True Then
-            Me.Size = New Size(673, 304) 'put the default size of your window here
-            Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
-            Me.Size = New Size(Me.Width + Skins.borderwidth + Skins.borderwidth, Me.Height + Skins.borderwidth)
-            oldbordersize = Skins.borderwidth
-            oldtitlebarheight = Skins.titlebarheight
-            justopened = False
-        Else
-            If Me.Visible = True Then
-                'Me.Hide()
-                Me.Size = New Size(Me.Width - (2 * oldbordersize) + (2 * Skins.borderwidth), (Me.Height - oldtitlebarheight - oldbordersize) + Skins.titlebarheight + Skins.borderwidth)
-                'Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize) 'Just put a little algebra in the first size setting and comment out the mess
-                oldbordersize = Skins.borderwidth
-                oldtitlebarheight = Skins.titlebarheight
-                'Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
-                'Me.Size = New Size(Me.Width + Skins. borderwidth + Skins. borderwidth, Me.Height + Skins. borderwidth)
-                'rolldownsize = Me.Height
-                If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
-                'Me.Show()
-            End If
-        End If
-
-        If Skins.enablecorners = True Then
-            pgtoplcorner.Show()
-            pgtoprcorner.Show()
-            pgtoprcorner.Width = Skins.titlebarcornerwidth
-            pgtoplcorner.Width = Skins.titlebarcornerwidth
-        Else
-            pgtoplcorner.Hide()
-            pgtoprcorner.Hide()
-        End If
-
-        If ShiftOSDesktop.boughttitlebar = False Then
-            titlebar.Hide()
-            Me.Size = New Size(Me.Width, Me.Size.Height - titlebar.Height)
-        End If
-
-        If ShiftOSDesktop.boughttitletext = False Then
-            lbtitletext.Hide()
-        Else
-            lbtitletext.Font = New Font(Skins.titletextfontfamily, Skins.titletextfontsize, Skins.titletextfontstyle, GraphicsUnit.Point)
-            lbtitletext.Text = ShiftOSDesktop.knowledgeinputname 'Remember to change to name of program!!!!
-            lbtitletext.Show()
-        End If
-
-        If ShiftOSDesktop.boughtclosebutton = False Then
-            closebutton.Hide()
-        Else
-            closebutton.BackColor = Skins.closebtncolour
-            closebutton.Size = Skins.closebtnsize
-            closebutton.Show()
-        End If
-
-        If ShiftOSDesktop.boughtrollupbutton = False Then
-            rollupbutton.Hide()
-        Else
-            rollupbutton.BackColor = Skins.rollbtncolour
-            rollupbutton.Size = Skins.rollbtnsize
-            rollupbutton.Show()
-        End If
-
-        If ShiftOSDesktop.boughtminimizebutton = False Then
-            minimizebutton.Hide()
-        Else
-            minimizebutton.BackColor = Skins.minbtncolour
-            minimizebutton.Size = Skins.minbtnsize
-            minimizebutton.Show()
-        End If
-
-        If ShiftOSDesktop.boughtwindowborders = True Then
-            closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
-            rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
-            minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
-            Select Case Skins.titletextpos
-                Case "Left"
-                    lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
-                Case "Centre"
-                    lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
-            End Select
-            lbtitletext.ForeColor = Skins.titletextcolour
-        Else
-            closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
-            rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
-            minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
-            Select Case Skins.titletextpos
-                Case "Left"
-                    lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
-                Case "Centre"
-                    lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
-            End Select
-            lbtitletext.ForeColor = Skins.titletextcolour
-        End If
-
-        'Change when Icon skinning complete
-        If ShiftOSDesktop.boughtknowledgeinputicon = True Then ' Change to program's icon
-            pnlicon.Visible = True
-            pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop)
-            pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize)
-            pnlicon.Image = ShiftOSDesktop.knowledgeinputicontitlebar  'Replace with the correct icon for the program.
-        End If
-
-    End Sub
-
-    Public Sub rollupanddown()
-        If Me.Height = Me.titlebar.Height Then
-            pgleft.Show()
-            pgbottom.Show()
-            pgright.Show()
-            Me.Height = rolldownsize
-            Me.MinimumSize = New Size(minimumsizewidth, minimumsizeheight)
-        Else
-            Me.MinimumSize = New Size(0, 0)
-            pgleft.Hide()
-            pgbottom.Hide()
-            pgright.Hide()
-            rolldownsize = Me.Height
-            Me.Height = Me.titlebar.Height
-        End If
-    End Sub
-
-    Public Sub resettitlebar()
-        If ShiftOSDesktop.boughtwindowborders = True Then
-            closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
-            rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
-            minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
-            Select Case Skins.titletextpos
-                Case "Left"
-                    lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
-                Case "Centre"
-                    lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
-            End Select
-            lbtitletext.ForeColor = Skins.titletextcolour
-        Else
-            closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
-            rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
-            minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
-            Select Case Skins.titletextpos
-                Case "Left"
-                    lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
-                Case "Centre"
-                    lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
-            End Select
-            lbtitletext.ForeColor = Skins.titletextcolour
-        End If
-    End Sub
-
-    Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter
-        If ShiftOSDesktop.boughtresizablewindows = True Then
-            Cursor = Cursors.SizeWE
-        End If
-    End Sub
-
-    Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter
-        If ShiftOSDesktop.boughtresizablewindows = True Then
-            Cursor = Cursors.SizeNS
-        End If
-    End Sub
-
-    Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter
-        If ShiftOSDesktop.boughtresizablewindows = True Then
-            Cursor = Cursors.SizeNWSE
-        End If
-    End Sub
-
-    Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave
-        If ShiftOSDesktop.boughtresizablewindows = True Then
-            Cursor = Cursors.Default
-        End If
-    End Sub
-
-    Public Sub setskin()
-        'disposals
-        closebutton.BackgroundImage = Nothing
-        titlebar.BackgroundImage = Nothing
-        rollupbutton.BackgroundImage = Nothing
-        pgtoplcorner.BackgroundImage = Nothing
-        pgtoprcorner.BackgroundImage = Nothing
-        minimizebutton.BackgroundImage = Nothing
-        'apply new skin
-        If Skins.closebtn Is Nothing Then closebutton.BackColor = Skins.closebtncolour Else closebutton.BackgroundImage = Skins.closebtn
-        closebutton.BackgroundImageLayout = Skins.closebtnlayout
-        If Skins.titlebar Is Nothing Then titlebar.BackColor = Skins.titlebarcolour Else titlebar.BackgroundImage = Skins.titlebar
-        titlebar.BackgroundImageLayout = Skins.titlebarlayout
-        If Skins.rollbtn Is Nothing Then rollupbutton.BackColor = Skins.rollbtncolour Else rollupbutton.BackgroundImage = Skins.rollbtn
-        rollupbutton.BackgroundImageLayout = Skins.rollbtnlayout
-        If Skins.leftcorner Is Nothing Then pgtoplcorner.BackColor = Skins.leftcornercolour Else pgtoplcorner.BackgroundImage = Skins.leftcorner
-        pgtoplcorner.BackgroundImageLayout = Skins.leftcornerlayout
-        If Skins.rightcorner Is Nothing Then pgtoprcorner.BackColor = Skins.rightcornercolour Else pgtoprcorner.BackgroundImage = Skins.rightcorner
-        pgtoprcorner.BackgroundImageLayout = Skins.rightcornerlayout
-        If Skins.minbtn Is Nothing Then minimizebutton.BackColor = Skins.minbtncolour Else minimizebutton.BackgroundImage = Skins.minbtn
-        minimizebutton.BackgroundImageLayout = Skins.minbtnlayout
-        If Skins.borderleft Is Nothing Then pgleft.BackColor = Skins.borderleftcolour Else pgleft.BackgroundImage = Skins.borderleft
-        pgleft.BackgroundImageLayout = Skins.borderleftlayout
-        If Skins.borderright Is Nothing Then pgright.BackColor = Skins.borderrightcolour Else pgright.BackgroundImage = Skins.borderright
-        pgleft.BackgroundImageLayout = Skins.borderrightlayout
-        If Skins.borderbottom Is Nothing Then pgbottom.BackColor = Skins.borderbottomcolour Else pgbottom.BackgroundImage = Skins.borderbottom
-        pgbottom.BackgroundImageLayout = Skins.borderbottomlayout
-        If enablebordercorners = True Then
-            If Skins.bottomleftcorner Is Nothing Then pgbottomlcorner.BackColor = Skins.bottomleftcornercolour Else pgbottomlcorner.BackgroundImage = Skins.bottomleftcorner
-            pgbottomlcorner.BackgroundImageLayout = Skins.bottomleftcornerlayout
-            If Skins.bottomrightcorner Is Nothing Then pgbottomrcorner.BackColor = Skins.bottomrightcornercolour Else pgbottomrcorner.BackgroundImage = Skins.bottomrightcorner
-            pgbottomrcorner.BackgroundImageLayout = Skins.bottomrightcornerlayout
-        Else
-            pgbottomlcorner.BackColor = Skins.borderrightcolour
-            pgbottomrcorner.BackColor = Skins.borderrightcolour
-            pgbottomlcorner.BackgroundImage = Nothing
-            pgbottomrcorner.BackgroundImage = Nothing
-        End If
-
-        'set bottom border corner size
-        pgbottomlcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
-        pgbottomrcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
-        pgbottomlcorner.Location = New Point(0, Me.Height - Skins.borderwidth)
-        pgbottomrcorner.Location = New Point(Me.Width, Me.Height - Skins.borderwidth)
-
-        Me.TransparencyKey = ShiftOSDesktop.globaltransparencycolour
-    End Sub
-
-    Private Sub Clock_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
-        ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen - 1
-        Me.Hide()
-        ShiftOSDesktop.setuppanelbuttons()
-    End Sub
-
-    'end of general setup
-#End Region
-
-    Private Sub ListBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem
-        e.DrawBackground()
-        If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
-            e.Graphics.FillRectangle(Brushes.Black, e.Bounds)
-        End If
-        Dim sf As New StringFormat
-        sf.Alignment = StringAlignment.Center
-        Using b As New SolidBrush(e.ForeColor)
-            e.Graphics.DrawString(ListBox1.GetItemText(ListBox1.Items(e.Index)), e.Font, b, e.Bounds, sf)
-        End Using
-        e.DrawFocusRectangle()
-    End Sub
-
-    Private Sub listblistedstuff_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles listblistedstuff.DrawItem
-        e.DrawBackground()
-        If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
-            e.Graphics.FillRectangle(Brushes.Black, e.Bounds)
-        End If
-
-        Using b As New SolidBrush(e.ForeColor)
-            e.Graphics.DrawString(listblistedstuff.GetItemText(listblistedstuff.Items(e.Index)), e.Font, b, e.Bounds)
-        End Using
-        e.DrawFocusRectangle()
-    End Sub
-
-
-    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
-
-        On Error Resume Next
-        pnlcategorydisplay.Show()
-        'Remember to create the files for each category in the hijack screen and add the category in the design view and make the countries list in this load event
-        Select Case ListBox1.SelectedItem.ToString
-            Case "Animals"
-                loadsavepoint("Animals", 10, ShiftOSDesktop.ShiftOSPath + "SoftwareData\KnowledgeInput\Animals.lst", "There are many animals out there! Can you list them all?" & Environment.NewLine & "Note that you get points for listing animals... not animal breeds!", animalslist)
-
-            Case "Fruits"
-                loadsavepoint("Fruits", 10, ShiftOSDesktop.ShiftOSPath + "SoftwareData\KnowledgeInput\Fruits.lst", "Do you get your daily serving of fruit each day?" & Environment.NewLine & "Really...? See if you can list them then ;)", fruitslist)
-
-            Case "Countries"
-                loadsavepoint("Countries", 10, ShiftOSDesktop.ShiftOSPath + "SoftwareData\KnowledgeInput\Countries.lst", "Ever wanted to travel the entire world?" & Environment.NewLine & "Well before you do see if you can list every country in the world!", countrieslist)
-
-            Case "Car Brands"
-                loadsavepoint("Car Brands", 10, ShiftOSDesktop.ShiftOSPath + "SoftwareData\KnowledgeInput\Car Brands.lst", "Can you list every single car brand?" & Environment.NewLine & "Don't use words like automobiles, motors or cars!", carbrandslist)
-
-            Case "Game Consoles"
-                loadsavepoint("Game Consoles", 10, ShiftOSDesktop.ShiftOSPath + "SoftwareData\KnowledgeInput\Game Consoles.lst", "Do you call yourself a gamer?" & Environment.NewLine & "Earn that title by listing non-handheld game consoles!", gameconsoleslist)
-
-            Case "Elements"
-                loadsavepoint("Elements", 10, ShiftOSDesktop.ShiftOSPath + "SoftwareData\KnowledgeInput\Elements.lst", "Have you memorized the periodic table of elements?" & Environment.NewLine & "No? Well don't even attempt trying to guess them all here!", elementslist)
-        End Select
-
-    End Sub
-
-    Private Sub handleword()
-
-        Select Case ListBox1.SelectedItem.ToString
-            Case "Animals"
-                handlewordtype(animalslist, ShiftOSDesktop.ShiftOSPath + "SoftwareData\KnowledgeInput\Animals.lst")
-            Case "Fruits"
-                handlewordtype(fruitslist, ShiftOSDesktop.ShiftOSPath + "SoftwareData\KnowledgeInput\Fruits.lst")
-            Case "Countries"
-                handlewordtype(countrieslist, ShiftOSDesktop.ShiftOSPath + "SoftwareData\KnowledgeInput\Countries.lst")
-            Case "Car Brands"
-                handlewordtype(carbrandslist, ShiftOSDesktop.ShiftOSPath + "SoftwareData\KnowledgeInput\Car Brands.lst")
-            Case "Game Consoles"
-                handlewordtype(gameconsoleslist, ShiftOSDesktop.ShiftOSPath + "SoftwareData\KnowledgeInput\Game Consoles.lst")
-            Case "Elements"
-                handlewordtype(elementslist, ShiftOSDesktop.ShiftOSPath + "SoftwareData\KnowledgeInput\Elements.lst")
-        End Select
-
-        guessbox.Text = ""
-        listblistedstuff.TopIndex = listblistedstuff.Items.Count - 1
-    End Sub
-
-    Private Sub btnquit_Click(sender As Object, e As EventArgs)
-        Me.Close()
-    End Sub
-
-    Private Sub btnstart_Click(sender As Object, e As EventArgs) Handles btnstart.Click
-        handleword()
-    End Sub
-
-    Private Sub guessbox_click(sender As Object, e As EventArgs) Handles guessbox.MouseClick
-        guessbox.Text = ""
-    End Sub
-
-    Private Sub guessbox_keydown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles guessbox.KeyDown
-        If e.KeyCode = Keys.Enter Then
-            e.SuppressKeyPress = True
-            handleword()
-        End If
-    End Sub
-
-    Private Sub decider_Tick(sender As Object, e As EventArgs) Handles decider.Tick
-        lblcurrentlevel.Text = "Current Level: " & level
-        lblnextreward.Text = "Reward for completing level " & level & " : " & rewardbase * level & "CP"
-        guessalreadydone = False
-        guesscorrect = False
-        levelup = False
-        decider.Interval = 500
-        decider.Stop()
-    End Sub
-
-    Private Sub loadsavepoint(ByVal title As String, ByVal reward As Integer, ByVal loadpath As String, ByVal info As String, ByVal listtype() As String)
-        lblcategory.Text = title
-        rewardbase = reward
-        listblistedstuff.Items.Clear()
-        listblistedstuff.Items.AddRange(IO.File.ReadAllLines(loadpath))
-        totalguessed = listblistedstuff.Items.Count
-        level = Math.Ceiling((totalguessed / 10))
-        tillnextlevel = Math.Abs(totalguessed - (level * 10))
-
-        If tillnextlevel = 0 Then
-            level = level + 1
-            tillnextlevel = 10
-        End If
-
-        lblcatedescription.Text = info
-        pnlcategorydisplay.Show()
-        lbltillnextlevel.Text = "Words Until Next Level: " & tillnextlevel
-        lblcurrentlevel.Text = "Current Level: " & level
-        lbltotal.Text = "Guessed: " & totalguessed & "/" & listtype.Length
-        lblnextreward.Text = "Reward for completing level " & level & " : " & rewardbase * level & "CP"
-    End Sub
-
-    Private Sub handlewordtype(ByVal listtype() As String, ByVal savepath As String)
-
-        Dim userguess As String = guessbox.Text
-        userguess = userguess.ToLower
-        For Each Str As String In listtype
-            If Str = userguess Then
-                If listblistedstuff.Items.Contains(userguess) Then
-                    guessalreadydone = True
-                    ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " Knowledge Input Already Did " & ListBox1.SelectedItem.ToString & ": " & userguess & Environment.NewLine
-                Else
-                    guesscorrect = True
-                    listblistedstuff.Items.Add(userguess)
-                    ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " Knowledge Input Guessed " & ListBox1.SelectedItem.ToString & ": " & userguess & Environment.NewLine
-                    tillnextlevel = tillnextlevel - 1
-                    totalguessed = totalguessed + 1
-                    IO.File.WriteAllLines(savepath, listblistedstuff.Items.Cast(Of String).ToArray)
-
-                    If tillnextlevel = 0 Then
-                        levelup = True
-                        tillnextlevel = 10
-                        ShiftOSDesktop.codepoints = ShiftOSDesktop.codepoints + rewardbase * level
-                        Dim objWriter As New System.IO.StreamWriter("C:/ShiftOS/Shiftum42/SKernal.sft", False)
-                        objWriter.Write(ShiftOSDesktop.codepoints)
-                        objWriter.Close()
-                        level = level + 1
-                        ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " Reached " & ListBox1.SelectedItem.ToString & " Level: " & level & Environment.NewLine
-                    End If
-                End If
-            End If
-        Next
-        lbltillnextlevel.Text = "Words Until Next Level: " & tillnextlevel
-        lblcurrentlevel.Text = "Current Level: " & level
-        lbltotal.Text = "Guessed: " & totalguessed & "/" & listtype.Length
-        lblnextreward.Text = "Reward for completing level " & level & " : " & rewardbase * level & "CP"
-
-        If levelup = True Then
-            decider.Interval = 2000
-            lblcurrentlevel.Text = "Level Up!"
-            lblnextreward.Text = "You have earned " & rewardbase * (level - 1) & " Code Points!"
-            ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User has " & ShiftOSDesktop.codepoints & " Code Points!" & Environment.NewLine
-            decider.Start()
-        Else
-            If guessalreadydone = True Then
-                lblcurrentlevel.Text = "Already Guessed"
-                decider.Start()
-            Else
-                If guesscorrect = True Then
-                    lblcurrentlevel.Text = "Correct :)"
-                    decider.Start()
-                Else
-                    lblcurrentlevel.Text = "Wrong :("
-                    ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " Knowledge Input Wrong " & ListBox1.SelectedItem.ToString & ": " & userguess & Environment.NewLine
-                    decider.Start()
-                End If
-            End If
-        End If
-    End Sub
-
-    Dim chance As Integer = 101
-    Private Sub tmrstoryline_Tick(sender As Object, e As EventArgs) Handles tmrstoryline.Tick
-        ' Random chance of showing getshiftnet storyline
-            chance = chance - 1
-            If chance < 25 Then
-                chance = 25
-            End If
-            Dim i As Integer = Math.Ceiling(Rnd() * chance)
-            If i = 1 Then
-                Terminal.Show()
-                Terminal.BringToFront()
-                Terminal.storyline = "getshiftnet"
-                Terminal.tmrstorylineupdate.Start()
-                tmrstoryline.Stop()
-            End If
-    End Sub
-
-    Private Sub me_closing() Handles Me.FormClosing
-        tmrstoryline.Stop()
-    End Sub
-
-    Private Sub makeanimallist()
-        animalslist(0) = "aardvark"
-        animalslist(1) = "albatross"
-        animalslist(2) = "alligator"
-        animalslist(3) = "alpaca"
-        animalslist(4) = "ant"
-        animalslist(5) = "anteater"
-        animalslist(6) = "antelope"
-        animalslist(7) = "ape"
-        animalslist(8) = "armadillo"
-        animalslist(9) = "ass"
-        animalslist(10) = "baboon"
-        animalslist(11) = "badger"
-        animalslist(12) = "barracuda"
-        animalslist(13) = "bat"
-        animalslist(14) = "bear"
-        animalslist(15) = "beaver"
-        animalslist(16) = "bee"
-        animalslist(17) = "bison"
-        animalslist(18) = "boar"
-        animalslist(19) = "buffalo"
-        animalslist(20) = "butterfly"
-        animalslist(21) = "camel"
-        animalslist(22) = "caribou"
-        animalslist(23) = "cat"
-        animalslist(24) = "caterpillar"
-        animalslist(25) = "cow"
-        animalslist(26) = "chamois"
-        animalslist(27) = "cheetah"
-        animalslist(28) = "chicken"
-        animalslist(29) = "chimpanzee"
-        animalslist(30) = "chinchilla"
-        animalslist(31) = "chough"
-        animalslist(32) = "clam"
-        animalslist(33) = "cobra"
-        animalslist(34) = "cockroach"
-        animalslist(35) = "cod"
-        animalslist(36) = "cormorant"
-        animalslist(37) = "coyote"
-        animalslist(38) = "crab"
-        animalslist(39) = "crane"
-        animalslist(40) = "crocodile"
-        animalslist(41) = "crow"
-        animalslist(42) = "curlew"
-        animalslist(43) = "deer"
-        animalslist(44) = "dinosaur"
-        animalslist(45) = "dog"
-        animalslist(46) = "dogfish"
-        animalslist(47) = "dolphin"
-        animalslist(48) = "donkey"
-        animalslist(49) = "dotterel"
-        animalslist(50) = "dove"
-        animalslist(51) = "dragonfly"
-        animalslist(52) = "duck"
-        animalslist(53) = "dugong"
-        animalslist(54) = "dunlin"
-        animalslist(55) = "eagle"
-        animalslist(56) = "echidna"
-        animalslist(57) = "eel"
-        animalslist(58) = "eland"
-        animalslist(59) = "elephant"
-        animalslist(60) = "elephant seal"
-        animalslist(61) = "elk"
-        animalslist(62) = "emu"
-        animalslist(63) = "falcon"
-        animalslist(64) = "ferret"
-        animalslist(65) = "finch"
-        animalslist(66) = "fish"
-        animalslist(67) = "flamingo"
-        animalslist(68) = "fly"
-        animalslist(69) = "fox"
-        animalslist(70) = "frog"
-        animalslist(71) = "galago"
-        animalslist(72) = "gaur"
-        animalslist(73) = "gazelle"
-        animalslist(74) = "gerbil"
-        animalslist(75) = "giant panda"
-        animalslist(76) = "giraffe"
-        animalslist(77) = "gnat"
-        animalslist(78) = "gnu"
-        animalslist(79) = "goat"
-        animalslist(80) = "goldfinch"
-        animalslist(81) = "goldfish"
-        animalslist(82) = "goose"
-        animalslist(83) = "gorilla"
-        animalslist(84) = "goshawk"
-        animalslist(85) = "grasshopper"
-        animalslist(86) = "grouse"
-        animalslist(87) = "guanaco"
-        animalslist(88) = "guineafowl"
-        animalslist(89) = "guinea pig"
-        animalslist(90) = "gull"
-        animalslist(91) = "hamster"
-        animalslist(92) = "hare"
-        animalslist(93) = "hawk"
-        animalslist(94) = "hedgehog"
-        animalslist(95) = "heron"
-        animalslist(96) = "herring"
-        animalslist(97) = "hippopotamus"
-        animalslist(98) = "hornet"
-        animalslist(99) = "horse"
-        animalslist(100) = "human"
-        animalslist(101) = "humming bird"
-        animalslist(102) = "hyena"
-        animalslist(103) = "jackal"
-        animalslist(104) = "jaguar"
-        animalslist(105) = "jay"
-        animalslist(106) = "jellyfish"
-        animalslist(107) = "kangaroo"
-        animalslist(108) = "koala"
-        animalslist(109) = "komodo dragon"
-        animalslist(110) = "kouprey"
-        animalslist(111) = "kudu"
-        animalslist(112) = "lizard"
-        animalslist(113) = "lark"
-        animalslist(114) = "lemur"
-        animalslist(115) = "leopard"
-        animalslist(116) = "lion"
-        animalslist(117) = "llama"
-        animalslist(118) = "lobster"
-        animalslist(119) = "locust"
-        animalslist(120) = "loris"
-        animalslist(121) = "louse"
-        animalslist(122) = "lyrebird"
-        animalslist(123) = "magpie"
-        animalslist(124) = "mallard"
-        animalslist(125) = "manatee"
-        animalslist(126) = "marten"
-        animalslist(127) = "meerkat"
-        animalslist(128) = "mink"
-        animalslist(129) = "mole"
-        animalslist(130) = "monkey"
-        animalslist(131) = "moose"
-        animalslist(132) = "mosquito"
-        animalslist(133) = "mouse"
-        animalslist(134) = "mule"
-        animalslist(135) = "narwhal"
-        animalslist(136) = "newt"
-        animalslist(137) = "nightingale"
-        animalslist(138) = "octopus"
-        animalslist(139) = "okapi"
-        animalslist(140) = "opossum"
-        animalslist(141) = "oryx"
-        animalslist(142) = "ostrich"
-        animalslist(143) = "otter"
-        animalslist(144) = "owl"
-        animalslist(145) = "ox"
-        animalslist(146) = "oyster"
-        animalslist(147) = "panther"
-        animalslist(148) = "parrot"
-        animalslist(149) = "partridge"
-        animalslist(150) = "peafowl"
-        animalslist(151) = "pelican"
-        animalslist(152) = "penguin"
-        animalslist(153) = "pheasant"
-        animalslist(154) = "pig"
-        animalslist(155) = "pigeon"
-        animalslist(156) = "pony"
-        animalslist(157) = "porcupine"
-        animalslist(158) = "porpoise"
-        animalslist(159) = "prairie dog"
-        animalslist(160) = "quail"
-        animalslist(161) = "quelea"
-        animalslist(162) = "rabbit"
-        animalslist(163) = "raccoon"
-        animalslist(164) = "rail"
-        animalslist(165) = "ram"
-        animalslist(166) = "rat"
-        animalslist(167) = "raven"
-        animalslist(168) = "red deer"
-        animalslist(169) = "red panda"
-        animalslist(170) = "reindeer"
-        animalslist(171) = "rhinoceros"
-        animalslist(172) = "rook"
-        animalslist(173) = "ruff"
-        animalslist(174) = "salamander"
-        animalslist(175) = "salmon"
-        animalslist(176) = "sand dollar"
-        animalslist(177) = "sandpiper"
-        animalslist(178) = "sardine"
-        animalslist(179) = "scorpion"
-        animalslist(180) = "sea lion"
-        animalslist(181) = "sea urchin"
-        animalslist(182) = "seahorse"
-        animalslist(183) = "seal"
-        animalslist(184) = "shark"
-        animalslist(185) = "sheep"
-        animalslist(186) = "shrew"
-        animalslist(187) = "shrimp"
-        animalslist(188) = "skunk"
-        animalslist(189) = "snail"
-        animalslist(190) = "snake"
-        animalslist(191) = "spider"
-        animalslist(192) = "squid"
-        animalslist(193) = "squirrel"
-        animalslist(194) = "starling"
-        animalslist(195) = "stingray"
-        animalslist(196) = "stink bug"
-        animalslist(197) = "stork"
-        animalslist(198) = "swallow"
-        animalslist(199) = "swan"
-        animalslist(200) = "tapir"
-        animalslist(201) = "tarsier"
-        animalslist(202) = "termite"
-        animalslist(203) = "tiger"
-        animalslist(204) = "toad"
-        animalslist(205) = "trout"
-        animalslist(206) = "turkey"
-        animalslist(207) = "turtle"
-        animalslist(208) = "vicuña"
-        animalslist(209) = "viper"
-        animalslist(210) = "vulture"
-        animalslist(211) = "wallaby"
-        animalslist(212) = "walrus"
-        animalslist(213) = "wasp"
-        animalslist(214) = "water buffalo"
-        animalslist(215) = "weasel"
-        animalslist(216) = "whale"
-        animalslist(217) = "wolf"
-        animalslist(218) = "wolverine"
-        animalslist(219) = "wombat"
-        animalslist(220) = "woodcock"
-        animalslist(221) = "woodpecker"
-        animalslist(222) = "worm"
-        animalslist(223) = "wren"
-        animalslist(224) = "yak"
-        animalslist(225) = "zebra"
-        animalslist(226) = "bird"
-    End Sub
-
-    Private Sub makefruitlist()
-        fruitslist(0) = "apple"
-        fruitslist(1) = "apricot"
-        fruitslist(2) = "avocado"
-        fruitslist(3) = "banana"
-        fruitslist(4) = "breadfruit"
-        fruitslist(5) = "bilberry"
-        fruitslist(6) = "blackberry"
-        fruitslist(7) = "blackcurrant"
-        fruitslist(8) = "blueberry"
-        fruitslist(9) = "boysenberry"
-        fruitslist(10) = "cantaloupe"
-        fruitslist(11) = "currant"
-        fruitslist(12) = "cherry"
-        fruitslist(13) = "cherimoya"
-        fruitslist(14) = "chili"
-        fruitslist(15) = "cloudberry"
-        fruitslist(16) = "coconut"
-        fruitslist(17) = "damson"
-        fruitslist(18) = "date"
-        fruitslist(19) = "dragonfruit"
-        fruitslist(20) = "durian"
-        fruitslist(21) = "elderberry"
-        fruitslist(22) = "feijoa"
-        fruitslist(23) = "fig"
-        fruitslist(24) = "gooseberry"
-        fruitslist(25) = "grape"
-        fruitslist(26) = "grapefruit"
-        fruitslist(27) = "guava"
-        fruitslist(28) = "huckleberry"
-        fruitslist(29) = "honeydew"
-        fruitslist(30) = "jackfruit"
-        fruitslist(31) = "jambul"
-        fruitslist(32) = "jujube"
-        fruitslist(33) = "kiwi fruit"
-        fruitslist(34) = "kumquat"
-        fruitslist(35) = "legume"
-        fruitslist(36) = "lemon"
-        fruitslist(37) = "lime"
-        fruitslist(38) = "loquat"
-        fruitslist(39) = "lychee"
-        fruitslist(40) = "mango"
-        fruitslist(41) = "melon"
-        fruitslist(42) = "canary melon"
-        fruitslist(43) = "cantaloupe"
-        fruitslist(44) = "honeydew"
-        fruitslist(45) = "watermelon"
-        fruitslist(46) = "rock melon"
-        fruitslist(47) = "nectarine"
-        fruitslist(48) = "nut"
-        fruitslist(49) = "orange"
-        fruitslist(50) = "clementine"
-        fruitslist(51) = "mandarine"
-        fruitslist(52) = "tangerine"
-        fruitslist(53) = "papaya"
-        fruitslist(54) = "passionfruit"
-        fruitslist(55) = "peach"
-        fruitslist(56) = "bell pepper"
-        fruitslist(57) = "pear"
-        fruitslist(58) = "persimmon"
-        fruitslist(59) = "physalis"
-        fruitslist(60) = "plum"
-        fruitslist(61) = "pineapple"
-        fruitslist(62) = "pomegranate"
-        fruitslist(63) = "pomelo"
-        fruitslist(64) = "purple mangosteen"
-        fruitslist(65) = "quince"
-        fruitslist(66) = "raspberry"
-        fruitslist(67) = "rambutan"
-        fruitslist(68) = "redcurrant"
-        fruitslist(69) = "salal berry"
-        fruitslist(70) = "satsuma"
-        fruitslist(71) = "star fruit"
-        fruitslist(72) = "strawberry"
-        fruitslist(73) = "tamarillo"
-        fruitslist(74) = "tomato"
-        fruitslist(75) = "ugli fruit"
-    End Sub
-
-    Private Sub makecountrieslist() 'Based off United Nations member list with additions such as Vatican City - see this video about what a coutry is: https://www.youtube.com/watch?v=4AivEQmfPpk
-        countrieslist(0) = "afghanistan"
-        countrieslist(1) = "albania"
-        countrieslist(2) = "algeria"
-        countrieslist(3) = "antigua and barbuda"
-        countrieslist(4) = "andorra"
-        countrieslist(5) = "angola"
-        countrieslist(8) = "argentina"
-        countrieslist(9) = "armenia"
-        countrieslist(10) = "australia"
-        countrieslist(12) = "austria"
-        countrieslist(14) = "azerbaijan"
-        countrieslist(15) = "bahamas"
-        countrieslist(16) = "bahrain"
-        countrieslist(17) = "bangladesh"
-        countrieslist(18) = "barbados"
-        countrieslist(19) = "belarus"
-        countrieslist(20) = "belgium"
-        countrieslist(21) = "belize"
-        countrieslist(22) = "benin"
-        countrieslist(23) = "bhutan"
-        countrieslist(24) = "bolivia"
-        countrieslist(25) = "bosnia"
-        countrieslist(26) = "botswana"
-        countrieslist(27) = "brunei darussalam"
-        countrieslist(28) = "brazil"
-        countrieslist(29) = "cabo verde"
-        countrieslist(30) = "bulgaria"
-        countrieslist(31) = "burkina faso"
-        countrieslist(32) = "burundi"
-        countrieslist(33) = "cambodia"
-        countrieslist(34) = "cameroon"
-        countrieslist(35) = "canada"
-        countrieslist(36) = "central african republic"
-        countrieslist(37) = "chad"
-        countrieslist(38) = "chile"
-        countrieslist(39) = "china"
-        countrieslist(40) = "democratic people's republic of korea"
-        countrieslist(41) = "colombia"
-        countrieslist(42) = "comoros"
-        countrieslist(43) = "congo"
-        countrieslist(44) = "côte d'ivoire"
-        countrieslist(45) = "cook islands"
-        countrieslist(46) = "costa rica"
-        countrieslist(47) = "croatia"
-        countrieslist(48) = "cuba"
-        countrieslist(49) = "cyprus"
-        countrieslist(50) = "czech republic"
-        countrieslist(51) = "denmark"
-        countrieslist(52) = "djibouti"
-        countrieslist(53) = "dominica"
-        countrieslist(54) = "dominican republic"
-        countrieslist(55) = "ecuador"
-        countrieslist(56) = "egypt"
-        countrieslist(57) = "el salvador"
-        countrieslist(58) = "equatorial guinea"
-        countrieslist(59) = "eritrea"
-        countrieslist(60) = "estonia"
-        countrieslist(62) = "ethiopia"
-        countrieslist(63) = "fiji"
-        countrieslist(64) = "finland"
-        countrieslist(65) = "france"
-        countrieslist(66) = "gabon"
-        countrieslist(67) = "gambia"
-        countrieslist(68) = "georgia"
-        countrieslist(69) = "germany"
-        countrieslist(70) = "ghana"
-        countrieslist(71) = "greece"
-        countrieslist(72) = "greenland"
-        countrieslist(73) = "grenada"
-        countrieslist(74) = "guatemala"
-        countrieslist(75) = "guinea"
-        countrieslist(76) = "guinea bissau"
-        countrieslist(77) = "guyana"
-        countrieslist(78) = "haiti"
-        countrieslist(79) = "vatican city"
-        countrieslist(80) = "honduras"
-        countrieslist(81) = "hungary"
-        countrieslist(82) = "iceland"
-        countrieslist(83) = "india"
-        countrieslist(84) = "indonesia"
-        countrieslist(85) = "iran"
-        countrieslist(86) = "iraq"
-        countrieslist(87) = "ireland"
-        countrieslist(88) = "israel"
-        countrieslist(89) = "italy"
-        countrieslist(90) = "jamaica"
-        countrieslist(91) = "japan"
-        countrieslist(92) = "jordan"
-        countrieslist(93) = "kazakhstan"
-        countrieslist(94) = "kenya"
-        countrieslist(95) = "kiribati"
-        countrieslist(96) = "kuwait"
-        countrieslist(97) = "kyrgyzstan"
-        countrieslist(98) = "lao people's democratic republic"
-        countrieslist(99) = "latvia"
-        countrieslist(100) = "lebanon"
-        countrieslist(101) = "lesotho"
-        countrieslist(102) = "liberia"
-        countrieslist(103) = "libya"
-        countrieslist(104) = "liechtenstein"
-        countrieslist(105) = "lithuania"
-        countrieslist(106) = "luxembourg"
-        countrieslist(107) = "madagascar"
-        countrieslist(108) = "malawi"
-        countrieslist(109) = "malaysia"
-        countrieslist(110) = "maldives"
-        countrieslist(111) = "mali"
-        countrieslist(112) = "malta"
-        countrieslist(113) = "marshall islands"
-        countrieslist(114) = "mauritania"
-        countrieslist(115) = "mauritius"
-        countrieslist(116) = "mexico"
-        countrieslist(117) = "micronesia"
-        countrieslist(118) = "monaco"
-        countrieslist(119) = "mongolia"
-        countrieslist(120) = "montenegro"
-        countrieslist(121) = "morocco"
-        countrieslist(122) = "mozambique"
-        countrieslist(123) = "myanmar"
-        countrieslist(124) = "namibia"
-        countrieslist(125) = "nauru"
-        countrieslist(126) = "nepal"
-        countrieslist(127) = "netherlands"
-        countrieslist(128) = "new zealand"
-        countrieslist(129) = "nicaragua"
-        countrieslist(130) = "niger"
-        countrieslist(131) = "nigeria"
-        countrieslist(132) = "north korea"
-        countrieslist(133) = "norway"
-        countrieslist(134) = "oman"
-        countrieslist(135) = "pakistan"
-        countrieslist(136) = "palau"
-        countrieslist(137) = "panama"
-        countrieslist(138) = "papua new guinea"
-        countrieslist(139) = "paraguay"
-        countrieslist(140) = "peru"
-        countrieslist(141) = "philippines"
-        countrieslist(142) = "republic of moldova"
-        countrieslist(143) = "poland"
-        countrieslist(144) = "polynesia"
-        countrieslist(145) = "portugal"
-        countrieslist(146) = "republic of korea"
-        countrieslist(147) = "romania"
-        countrieslist(148) = "russia"
-        countrieslist(149) = "rwanda"
-        countrieslist(150) = "saint kitts and nevis"
-        countrieslist(151) = "saint lucia"
-        countrieslist(152) = "saint pierre and miquelon"
-        countrieslist(153) = "saint vincent and grenadines"
-        countrieslist(154) = "samoa"
-        countrieslist(155) = "san marino"
-        countrieslist(156) = "sao tome and principe"
-        countrieslist(157) = "saudi arabia"
-        countrieslist(158) = "senegal"
-        countrieslist(159) = "serbia"
-        countrieslist(160) = "seychelles"
-        countrieslist(161) = "sierra leone"
-        countrieslist(162) = "singapore"
-        countrieslist(163) = "slovakia"
-        countrieslist(164) = "slovenia"
-        countrieslist(165) = "solomon islands"
-        countrieslist(166) = "somalia"
-        countrieslist(167) = "south africa"
-        countrieslist(168) = "south korea"
-        countrieslist(169) = "south sudan"
-        countrieslist(170) = "spain"
-        countrieslist(171) = "sri lanka"
-        countrieslist(172) = "sudan"
-        countrieslist(173) = "suriname"
-        countrieslist(174) = "syrian arab republic"
-        countrieslist(175) = "swaziland"
-        countrieslist(176) = "sweden"
-        countrieslist(177) = "switzerland"
-        countrieslist(178) = "syria"
-        countrieslist(179) = "taiwan"
-        countrieslist(180) = "tajikistan"
-        countrieslist(181) = "thailand"
-        countrieslist(182) = "east timor"
-        countrieslist(183) = "togo"
-        countrieslist(184) = "tonga"
-        countrieslist(185) = "trinidad and tobago"
-        countrieslist(186) = "tunisia"
-        countrieslist(187) = "turkey"
-        countrieslist(188) = "turkmenistan"
-        countrieslist(189) = "united republic of tanzania"
-        countrieslist(190) = "tuvalu"
-        countrieslist(191) = "uganda"
-        countrieslist(192) = "ukraine"
-        countrieslist(193) = "united arab emirates"
-        countrieslist(194) = "united kingdom" '(of Great Britian and Northern Ireland)
-        countrieslist(195) = "united states"
-        countrieslist(196) = "uruguay"
-        countrieslist(197) = "uzbekistan"
-        countrieslist(198) = "vanuatu"
-        countrieslist(199) = "venezuela"
-        countrieslist(200) = "vietnam"
-        countrieslist(201) = "palestine"
-        countrieslist(202) = "yemen"
-        countrieslist(203) = "zambia"
-        countrieslist(204) = "zimbabwe"
-    End Sub
-
-    Public Sub makecarbrandslist()
-        carbrandslist(0) = "8 chinkara"
-        carbrandslist(1) = "aba"
-        carbrandslist(2) = "abarth"
-        carbrandslist(3) = "ac"
-        carbrandslist(4) = "ac schnitzer"
-        carbrandslist(5) = "acura"
-        carbrandslist(6) = "adam"
-        carbrandslist(7) = "adams-farwell"
-        carbrandslist(8) = "adler"
-        carbrandslist(9) = "aero"
-        carbrandslist(10) = "aga"
-        carbrandslist(11) = "agrale"
-        carbrandslist(12) = "aixam"
-        carbrandslist(13) = "alfa romeo"
-        carbrandslist(14) = "allard"
-        carbrandslist(15) = "alpine"
-        carbrandslist(16) = "alvis"
-        carbrandslist(17) = "anadol"
-        carbrandslist(18) = "anasagasti"
-        carbrandslist(19) = "angkor"
-        carbrandslist(20) = "apollo"
-        carbrandslist(21) = "armstrong siddeley"
-        carbrandslist(22) = "aro"
-        carbrandslist(23) = "ascari"
-        carbrandslist(24) = "ashok leyland"
-        carbrandslist(25) = "aston martin"
-        carbrandslist(26) = "auburn"
-        carbrandslist(27) = "audi"
-        carbrandslist(28) = "austin"
-        carbrandslist(29) = "austin-healey"
-        carbrandslist(30) = "auto-mixte"
-        carbrandslist(31) = "autobianchi"
-        carbrandslist(32) = "automobile dacia"
-        carbrandslist(33) = "avia"
-        carbrandslist(34) = "avtoframos"
-        carbrandslist(35) = "awz"
-        carbrandslist(36) = "bahman"
-        carbrandslist(37) = "bajaj"
-        carbrandslist(38) = "barkas"
-        carbrandslist(39) = "bate"
-        carbrandslist(40) = "bentley"
-        carbrandslist(41) = "bharath benz"
-        carbrandslist(42) = "bitter"
-        carbrandslist(43) = "bmc"
-        carbrandslist(44) = "bmw"
-        carbrandslist(45) = "bollore"
-        carbrandslist(46) = "borgward"
-        carbrandslist(47) = "bricklin"
-        carbrandslist(48) = "bristol"
-        carbrandslist(49) = "british leyland"
-        carbrandslist(50) = "bufori"
-        carbrandslist(51) = "bugatti"
-        carbrandslist(52) = "buick"
-        carbrandslist(53) = "bussing"
-        carbrandslist(54) = "c-fee"
-        carbrandslist(55) = "cadillac"
-        carbrandslist(56) = "callaway"
-        carbrandslist(57) = "caterham"
-        carbrandslist(58) = "cherdchai"
-        carbrandslist(59) = "chevrolet"
-        carbrandslist(60) = "chrysler"
-        carbrandslist(61) = "citroen"
-        carbrandslist(62) = "cizeta"
-        carbrandslist(63) = "coda"
-        carbrandslist(64) = "cord"
-        carbrandslist(65) = "crespi"
-        carbrandslist(66) = "crobus"
-        carbrandslist(67) = "daf"
-        carbrandslist(68) = "daihatsu"
-        carbrandslist(69) = "daimler"
-        carbrandslist(70) = "datsun"
-        carbrandslist(71) = "davis"
-        carbrandslist(72) = "dc design"
-        carbrandslist(73) = "de tomaso"
-        carbrandslist(74) = "delorean"
-        carbrandslist(75) = "derby"
-        carbrandslist(76) = "dina"
-        carbrandslist(77) = "dkw"
-        carbrandslist(78) = "knowledgeinput"
-        carbrandslist(79) = "dok-ing"
-        carbrandslist(80) = "dok-ing xd"
-        carbrandslist(81) = "dome"
-        carbrandslist(82) = "donkervoort"
-        carbrandslist(83) = "dr"
-        carbrandslist(84) = "duesenberg"
-        carbrandslist(85) = "e-z-go"
-        carbrandslist(86) = "eagle"
-        carbrandslist(87) = "edsel"
-        carbrandslist(88) = "eicher"
-        carbrandslist(89) = "elfin"
-        carbrandslist(90) = "elva"
-        carbrandslist(91) = "enzmann"
-        carbrandslist(92) = "essex"
-        carbrandslist(93) = "esther"
-        carbrandslist(94) = "exagon"
-        carbrandslist(95) = "falcon"
-        carbrandslist(96) = "fap"
-        carbrandslist(97) = "ferrari"
-        carbrandslist(98) = "fiat"
-        carbrandslist(99) = "fisker"
-        carbrandslist(100) = "force"
-        carbrandslist(101) = "ford"
-        carbrandslist(102) = "fpv"
-        carbrandslist(103) = "gaz"
-        carbrandslist(104) = "gengatharan"
-        carbrandslist(105) = "geo"
-        carbrandslist(106) = "ghandhara"
-        carbrandslist(107) = "ghandhara nissan"
-        carbrandslist(108) = "gillet"
-        carbrandslist(109) = "ginetta"
-        carbrandslist(110) = "gkd"
-        carbrandslist(111) = "glas"
-        carbrandslist(112) = "global electric"
-        carbrandslist(113) = "gm daewoo"
-        carbrandslist(114) = "gm uzbekistan"
-        carbrandslist(115) = "gmc"
-        carbrandslist(116) = "goliath"
-        carbrandslist(117) = "gordon keeble"
-        carbrandslist(118) = "graham-paige"
-        carbrandslist(119) = "guleryuz karoseri"
-        carbrandslist(120) = "gumpert"
-        carbrandslist(121) = "gurgel"
-        carbrandslist(122) = "hansa"
-        carbrandslist(123) = "hattat"
-        carbrandslist(124) = "heinkel"
-        carbrandslist(125) = "hennessey"
-        carbrandslist(126) = "hero"
-        carbrandslist(127) = "hillman"
-        carbrandslist(128) = "hindustan"
-        carbrandslist(129) = "hino"
-        carbrandslist(130) = "hinopak"
-        carbrandslist(131) = "hispano-argentina"
-        carbrandslist(132) = "holden"
-        carbrandslist(133) = "hommell"
-        carbrandslist(134) = "honda"
-        carbrandslist(135) = "honda atlas"
-        carbrandslist(136) = "horch"
-        carbrandslist(137) = "hsv"
-        carbrandslist(138) = "huet brothers"
-        carbrandslist(139) = "humber"
-        carbrandslist(140) = "hummer"
-        carbrandslist(141) = "hupmobile"
-        carbrandslist(142) = "hyundai"
-        carbrandslist(143) = "iame"
-        carbrandslist(144) = "icml"
-        carbrandslist(145) = "ida-opel"
-        carbrandslist(146) = "ika"
-        carbrandslist(147) = "ikarbus"
-        carbrandslist(148) = "ikco"
-        carbrandslist(149) = "indus"
-        carbrandslist(150) = "infiniti"
-        carbrandslist(151) = "inokom"
-        carbrandslist(152) = "intermeccanica"
-        carbrandslist(153) = "international harvester"
-        carbrandslist(154) = "isuzu"
-        carbrandslist(155) = "isuzu anadolu"
-        carbrandslist(156) = "italika"
-        carbrandslist(157) = "izh"
-        carbrandslist(158) = "jaguar cars"
-        carbrandslist(159) = "jeep"
-        carbrandslist(160) = "jensen"
-        carbrandslist(161) = "josse"
-        carbrandslist(162) = "jowett"
-        carbrandslist(163) = "jv man"
-        carbrandslist(164) = "kaipan"
-        carbrandslist(165) = "kaiser"
-        carbrandslist(166) = "karsan"
-        carbrandslist(167) = "kerman"
-        carbrandslist(168) = "kia"
-        carbrandslist(169) = "kia"
-        carbrandslist(170) = "kish khodro"
-        carbrandslist(171) = "kissel"
-        carbrandslist(172) = "koenigsegg"
-        carbrandslist(173) = "lada"
-        carbrandslist(174) = "laforza"
-        carbrandslist(175) = "lamborghini"
-        carbrandslist(176) = "lanchester"
-        carbrandslist(177) = "lancia"
-        carbrandslist(178) = "land rover"
-        carbrandslist(179) = "lasalle"
-        carbrandslist(180) = "lexus"
-        carbrandslist(181) = "ligier"
-        carbrandslist(182) = "lincoln"
-        carbrandslist(183) = "lister"
-        carbrandslist(184) = "lloyd"
-        carbrandslist(185) = "lobini"
-        carbrandslist(186) = "locomobile"
-        carbrandslist(187) = "lotus"
-        carbrandslist(188) = "mahindra"
-        carbrandslist(189) = "man"
-        carbrandslist(190) = "mansory"
-        carbrandslist(191) = "marcos"
-        carbrandslist(192) = "marmon"
-        carbrandslist(193) = "marussia"
-        carbrandslist(194) = "maruti suzuki"
-        carbrandslist(195) = "maserati"
-        carbrandslist(196) = "master"
-        carbrandslist(197) = "mastretta"
-        carbrandslist(198) = "matra"
-        carbrandslist(199) = "maybach"
-        carbrandslist(200) = "mazda"
-        carbrandslist(201) = "mclaren"
-        carbrandslist(202) = "mdi"
-        carbrandslist(203) = "mercedes"
-        carbrandslist(204) = "mercury"
-        carbrandslist(205) = "micro"
-        carbrandslist(206) = "microcar"
-        carbrandslist(207) = "mini"
-        carbrandslist(208) = "mini cooper"
-        carbrandslist(209) = "mitsubishi"
-        carbrandslist(210) = "mitsuoka"
-        carbrandslist(211) = "morgan"
-        carbrandslist(212) = "morris"
-        carbrandslist(213) = "moskvitch"
-        carbrandslist(214) = "mosler"
-        carbrandslist(215) = "multicar"
-        carbrandslist(216) = "mvm"
-        carbrandslist(217) = "nag"
-        carbrandslist(218) = "nagant"
-        carbrandslist(219) = "nash"
-        carbrandslist(220) = "navistar"
-        carbrandslist(221) = "naza"
-        carbrandslist(222) = "neobus"
-        carbrandslist(223) = "neoplan"
-        carbrandslist(224) = "nissan"
-        carbrandslist(225) = "noble"
-        carbrandslist(226) = "nsu"
-        carbrandslist(227) = "oldsmobile"
-        carbrandslist(228) = "oltcit"
-        carbrandslist(229) = "opel"
-        carbrandslist(230) = "orient"
-        carbrandslist(231) = "otokar"
-        carbrandslist(232) = "otosan"
-        carbrandslist(233) = "oyak"
-        carbrandslist(234) = "p.a.r.s moto"
-        carbrandslist(235) = "packard"
-        carbrandslist(236) = "pagani"
-        carbrandslist(237) = "pak suzuki"
-        carbrandslist(238) = "panoz"
-        carbrandslist(239) = "pars khodro"
-        carbrandslist(240) = "perodua"
-        carbrandslist(241) = "peugeot"
-        carbrandslist(242) = "pgo"
-        carbrandslist(243) = "pieper"
-        carbrandslist(244) = "pierce-arrow"
-        carbrandslist(245) = "plymouth"
-        carbrandslist(246) = "pontiac"
-        carbrandslist(247) = "porsche"
-        carbrandslist(248) = "praga"
-        carbrandslist(249) = "premier"
-        carbrandslist(250) = "proto"
-        carbrandslist(251) = "proton"
-        carbrandslist(252) = "puma"
-        carbrandslist(253) = "ram"
-        carbrandslist(254) = "ramirez"
-        carbrandslist(255) = "regal"
-        carbrandslist(256) = "renault"
-        carbrandslist(257) = "renault samsung"
-        carbrandslist(258) = "reo"
-        carbrandslist(259) = "riley"
-        carbrandslist(260) = "rimac"
-        carbrandslist(261) = "robur"
-        carbrandslist(262) = "rolls royce"
-        carbrandslist(263) = "rover"
-        carbrandslist(264) = "ruf"
-        carbrandslist(265) = "russo-balt"
-        carbrandslist(266) = "saab"
-        carbrandslist(267) = "saipa"
-        carbrandslist(268) = "saleen"
-        carbrandslist(269) = "samavto"
-        carbrandslist(270) = "saturn"
-        carbrandslist(271) = "sbarro"
-        carbrandslist(272) = "scania"
-        carbrandslist(273) = "scion"
-        carbrandslist(274) = "shane moto"
-        carbrandslist(275) = "siam v.m.c."
-        carbrandslist(276) = "siata"
-        carbrandslist(277) = "simson"
-        carbrandslist(278) = "singer"
-        carbrandslist(279) = "skoda"
-        carbrandslist(280) = "sound"
-        carbrandslist(281) = "spyker"
-        carbrandslist(282) = "ssangyong"
-        carbrandslist(283) = "standard"
-        carbrandslist(284) = "stealth"
-        carbrandslist(285) = "sterling"
-        carbrandslist(286) = "studebaker"
-        carbrandslist(287) = "subaru"
-        carbrandslist(288) = "sunbeam"
-        carbrandslist(289) = "suzuki"
-        carbrandslist(290) = "tac"
-        carbrandslist(291) = "tafe"
-        carbrandslist(292) = "tata"
-        carbrandslist(293) = "tatra"
-        carbrandslist(294) = "td2000"
-        carbrandslist(295) = "temsa"
-        carbrandslist(296) = "tesla"
-        carbrandslist(297) = "th!nk"
-        carbrandslist(298) = "thai rung"
-        carbrandslist(299) = "the jamie stahley car"
-        carbrandslist(300) = "tickford"
-        carbrandslist(301) = "toyota"
-        carbrandslist(302) = "trabant"
-        carbrandslist(303) = "tranvias-cimex"
-        carbrandslist(304) = "triumph"
-        carbrandslist(305) = "trojan"
-        carbrandslist(306) = "troller"
-        carbrandslist(307) = "tucker"
-        carbrandslist(308) = "turk traktor"
-        carbrandslist(309) = "tvr"
-        carbrandslist(310) = "tvs"
-        carbrandslist(311) = "uaz"
-        carbrandslist(312) = "vam sa"
-        carbrandslist(313) = "vauxhall"
-        carbrandslist(314) = "venturi"
-        carbrandslist(315) = "vignale"
-        carbrandslist(316) = "volkswagen"
-        carbrandslist(317) = "volvo"
-        carbrandslist(318) = "wanderer"
-        carbrandslist(319) = "wartburg"
-        carbrandslist(320) = "wiesmann"
-        carbrandslist(321) = "willys"
-        carbrandslist(322) = "wolseley"
-        carbrandslist(323) = "yamaha"
-        carbrandslist(324) = "yo-mobile"
-        carbrandslist(325) = "zastava"
-        carbrandslist(326) = "zenvo"
-        carbrandslist(327) = "zil"
-        carbrandslist(328) = "zoragy"
-    End Sub
-
-    Public Sub makegameconsoleslist()
-        gameconsoleslist(0) = "magnavox odyssey"
-        gameconsoleslist(1) = "ping-o-tronic"
-        gameconsoleslist(2) = "telstar"
-        gameconsoleslist(3) = "apf tv fun"
-        gameconsoleslist(4) = "philips odyssey"
-        gameconsoleslist(5) = "radio shack tv scoreboard"
-        gameconsoleslist(6) = "binatone tv master mk iv"
-        gameconsoleslist(7) = "color tv game 6"
-        gameconsoleslist(8) = "color tv game 15"
-        gameconsoleslist(9) = "color tv racing 112"
-        gameconsoleslist(10) = "color tv game block breaker"
-        gameconsoleslist(11) = "computer tv game"
-        gameconsoleslist(12) = "bss 01"
-        gameconsoleslist(13) = "fairchild channel f"
-        gameconsoleslist(14) = "fairchild channel f system ii"
-        gameconsoleslist(15) = "rca studio ii"
-        gameconsoleslist(16) = "atari 2600"
-        gameconsoleslist(17) = "atari 2600 jr"
-        gameconsoleslist(18) = "atari 2800"
-        gameconsoleslist(19) = "coleco gemini"
-        gameconsoleslist(20) = "bally astrocade"
-        gameconsoleslist(21) = "vc 4000"
-        gameconsoleslist(22) = "magnavox odyssey 2"
-        gameconsoleslist(23) = "apf imagination machine"
-        gameconsoleslist(24) = "intellivision"
-        gameconsoleslist(25) = "playcable"
-        gameconsoleslist(26) = "bandai super vision 8000"
-        gameconsoleslist(27) = "intellivision ii"
-        gameconsoleslist(28) = "vtech creativision"
-        gameconsoleslist(29) = "epoch cassette vision"
-        gameconsoleslist(30) = "super cassette vision"
-        gameconsoleslist(31) = "arcadia 2001"
-        gameconsoleslist(32) = "atari 5200"
-        gameconsoleslist(33) = "atari 5100"
-        gameconsoleslist(34) = "colecovision"
-        gameconsoleslist(35) = "entex adventure vision"
-        gameconsoleslist(36) = "vectrex"
-        gameconsoleslist(37) = "rdi halcyon"
-        gameconsoleslist(38) = "pv-1000"
-        gameconsoleslist(39) = "commodore 64 games system"
-        gameconsoleslist(40) = "amstrad gx4000"
-        gameconsoleslist(41) = "atari 7800"
-        gameconsoleslist(42) = "atari xegs"
-        gameconsoleslist(43) = "sega sg-1000"
-        gameconsoleslist(44) = "sega master system"
-        gameconsoleslist(45) = "nintendo entertainment system"
-        gameconsoleslist(46) = "sharp nintendo television"
-        gameconsoleslist(47) = "nes-101"
-        gameconsoleslist(48) = "family computer disk system"
-        gameconsoleslist(49) = "zemmix"
-        gameconsoleslist(50) = "action max"
-        gameconsoleslist(51) = "sega genesis"
-        gameconsoleslist(52) = "sega pico"
-        gameconsoleslist(53) = "pc engine"
-        gameconsoleslist(54) = "konix multisystem"
-        gameconsoleslist(55) = "neo-geo"
-        gameconsoleslist(56) = "neo-geo cd"
-        gameconsoleslist(57) = "neo-geo cdz"
-        gameconsoleslist(58) = "commodore cdtv"
-        gameconsoleslist(59) = "memorex vis"
-        gameconsoleslist(60) = "super nintendo entertainment system"
-        gameconsoleslist(61) = "sf-1 snes tv"
-        gameconsoleslist(62) = "snes 2"
-        gameconsoleslist(63) = "snes-cd"
-        gameconsoleslist(64) = "satellaview"
-        gameconsoleslist(65) = "cd-i"
-        gameconsoleslist(66) = "turboduo"
-        gameconsoleslist(67) = "super a'can"
-        gameconsoleslist(68) = "pioneer laseractive"
-        gameconsoleslist(69) = "fm towns marty"
-        gameconsoleslist(70) = "apple bandai pippin"
-        gameconsoleslist(71) = "pc-fx"
-        gameconsoleslist(72) = "atari panther"
-        gameconsoleslist(73) = "atari jaguar"
-        gameconsoleslist(74) = "atari jaguar cd"
-        gameconsoleslist(75) = "playstation"
-        gameconsoleslist(76) = "net yaroze"
-        gameconsoleslist(77) = "sega saturn"
-        gameconsoleslist(78) = "3do interactive multiplayer"
-        gameconsoleslist(79) = "amiga cd32"
-        gameconsoleslist(80) = "casio loopy"
-        gameconsoleslist(81) = "playdia"
-        gameconsoleslist(82) = "nintendo 64"
-        gameconsoleslist(83) = "nintendo 64dd"
-        gameconsoleslist(84) = "sega neptune"
-        gameconsoleslist(85) = "apextreme"
-        gameconsoleslist(86) = "atari flashback"
-        gameconsoleslist(87) = "atari jaguar ii"
-        gameconsoleslist(88) = "dreamcast"
-        gameconsoleslist(89) = "l600"
-        gameconsoleslist(90) = "gamecube"
-        gameconsoleslist(91) = "nuon"
-        gameconsoleslist(92) = "ique player"
-        gameconsoleslist(93) = "panasonic m2"
-        gameconsoleslist(94) = "panasonic q"
-        gameconsoleslist(95) = "playstation 2"
-        gameconsoleslist(96) = "psx"
-        gameconsoleslist(97) = "v.smile"
-        gameconsoleslist(98) = "xavixport gaming console"
-        gameconsoleslist(99) = "xbox"
-        gameconsoleslist(100) = "atari flashback 2"
-        gameconsoleslist(101) = "atari flashback 3"
-        gameconsoleslist(102) = "atari flashback 4"
-        gameconsoleslist(103) = "evo smart console"
-        gameconsoleslist(104) = "retro duo"
-        gameconsoleslist(105) = "game wave"
-        gameconsoleslist(106) = "mattel hyperscan"
-        gameconsoleslist(107) = "onlive"
-        gameconsoleslist(108) = "phantom"
-        gameconsoleslist(109) = "playstation 3"
-        gameconsoleslist(110) = "wii"
-        gameconsoleslist(111) = "xbox 360"
-        gameconsoleslist(112) = "sega firecore"
-        gameconsoleslist(113) = "zeebo"
-        gameconsoleslist(114) = "sega zone"
-        gameconsoleslist(115) = "eedoo ct510"
-        gameconsoleslist(116) = "wii u"
-        gameconsoleslist(117) = "ouya"
-        gameconsoleslist(118) = "gamestick"
-        gameconsoleslist(119) = "mojo"
-        gameconsoleslist(120) = "gamepop"
-        gameconsoleslist(121) = "playstation 4"
-        gameconsoleslist(122) = "steam machine"
-        gameconsoleslist(123) = "xbox one"
-        gameconsoleslist(124) = "xi3 piston"
-
-    End Sub
-
-    Public Sub makeelementslist()
-        elementslist(0) = "hydrogen"
-        elementslist(1) = "helium"
-        elementslist(2) = "lithium"
-        elementslist(3) = "beryllium"
-        elementslist(4) = "boron"
-        elementslist(5) = "carbon"
-        elementslist(6) = "nitrogen"
-        elementslist(7) = "oxygen"
-        elementslist(8) = "fluorine"
-        elementslist(9) = "neon"
-        elementslist(10) = "sodium"
-        elementslist(11) = "magnesium"
-        elementslist(12) = "aluminium"
-        elementslist(13) = "silicon"
-        elementslist(14) = "phosphorus"
-        elementslist(15) = "sulfur"
-        elementslist(16) = "chlorine"
-        elementslist(17) = "argon"
-        elementslist(18) = "potassium"
-        elementslist(19) = "calcium"
-        elementslist(20) = "scandium"
-        elementslist(21) = "titanium"
-        elementslist(22) = "vanadium"
-        elementslist(23) = "chromium"
-        elementslist(24) = "manganese"
-        elementslist(25) = "iron"
-        elementslist(26) = "cobalt"
-        elementslist(27) = "nickel"
-        elementslist(28) = "copper"
-        elementslist(29) = "zinc"
-        elementslist(30) = "gallium"
-        elementslist(31) = "germanium"
-        elementslist(32) = "arsenic"
-        elementslist(33) = "selenium"
-        elementslist(34) = "bromine"
-        elementslist(35) = "krypton"
-        elementslist(36) = "rubidium"
-        elementslist(37) = "strontium"
-        elementslist(38) = "yttrium"
-        elementslist(39) = "zirconium"
-        elementslist(40) = "niobium"
-        elementslist(41) = "molybdenum"
-        elementslist(42) = "technetium"
-        elementslist(43) = "ruthenium"
-        elementslist(44) = "rhodium"
-        elementslist(45) = "palladium"
-        elementslist(46) = "silver"
-        elementslist(47) = "cadmium"
-        elementslist(48) = "indium"
-        elementslist(49) = "tin"
-        elementslist(50) = "antimony"
-        elementslist(51) = "tellurium"
-        elementslist(52) = "iodine"
-        elementslist(53) = "xenon"
-        elementslist(54) = "caesium"
-        elementslist(55) = "barium"
-        elementslist(56) = "lanthanum"
-        elementslist(57) = "cerium"
-        elementslist(58) = "praseodymium"
-        elementslist(59) = "neodymium"
-        elementslist(60) = "promethium"
-        elementslist(61) = "samarium"
-        elementslist(62) = "europium"
-        elementslist(63) = "gadolinium"
-        elementslist(64) = "terbium"
-        elementslist(65) = "dysprosium"
-        elementslist(66) = "holmium"
-        elementslist(67) = "erbium"
-        elementslist(68) = "thulium"
-        elementslist(69) = "ytterbium"
-        elementslist(70) = "lutetium"
-        elementslist(71) = "hafnium"
-        elementslist(72) = "tantalum"
-        elementslist(73) = "tungsten"
-        elementslist(74) = "rhenium"
-        elementslist(75) = "osmium"
-        elementslist(76) = "iridium"
-        elementslist(77) = "platinum"
-        elementslist(78) = "gold"
-        elementslist(79) = "mercury"
-        elementslist(80) = "thallium"
-        elementslist(81) = "lead"
-        elementslist(82) = "bismuth"
-        elementslist(83) = "polonium"
-        elementslist(84) = "astatine"
-        elementslist(85) = "radon"
-        elementslist(86) = "francium"
-        elementslist(87) = "radium"
-        elementslist(88) = "actinium"
-        elementslist(89) = "thorium"
-        elementslist(90) = "protactinium"
-        elementslist(91) = "uranium"
-        elementslist(92) = "neptunium"
-        elementslist(93) = "plutonium"
-        elementslist(94) = "americium"
-        elementslist(95) = "curium"
-        elementslist(96) = "berkelium"
-        elementslist(97) = "californium"
-        elementslist(98) = "einsteinium"
-        elementslist(99) = "fermium"
-        elementslist(100) = "mendelevium"
-        elementslist(101) = "nobelium"
-        elementslist(102) = "lawrencium"
-        elementslist(103) = "rutherfordium"
-        elementslist(104) = "dubnium"
-        elementslist(105) = "seaborgium"
-        elementslist(106) = "bohrium"
-        elementslist(107) = "hassium"
-        elementslist(108) = "meitnerium"
-        elementslist(109) = "darmstadtium"
-        elementslist(110) = "roentgenium"
-        elementslist(111) = "copernicium"
-        elementslist(112) = "ununtrium"
-        elementslist(113) = "flerovium"
-        elementslist(114) = "ununpentium"
-        elementslist(115) = "livermorium"
-        elementslist(116) = "ununseptium"
-        elementslist(117) = "ununoctium"
-    End Sub
-End Class
\ No newline at end of file