Dim Choice As Integer = 0
Console.WriteLine("1 - Insert New Record")
Console.WriteLine("2 - Search For A Node")
Console.WriteLine("3 - Print")
Console.WriteLine("4 - Exit")
Choice = Console.ReadLine
Console.WriteLine("Input the number you want to insert")
NewItem = Console.ReadLine()
Console.WriteLine("Input the number you want to search for")
Dim SearchItem As Integer
SearchItem = Console.ReadLine()
Console.WriteLine(FindRecord(SearchItem))
Console.WriteLine(i &" " & HashTable(i))
Dim HashTable(n) As Integer
Const NULLPOINTER As Integer = -1
HashTable(i) = NULLPOINTER
Function Hash(key) As Integer
While HashTable(Index) <> NULLPOINTER
HashTable(Index) = NewRecord
Function FindRecord(SearchKey) As Integer
While HashTable(Index) <> SearchKey AND HashTable(Index) <> NULLPOINTER
If HashTable(Index) <> NULLPOINTER Then