Microsoft Small Basic

Program Listing: XSP794

List Program

arrCarInfo["Fast Eddy"]["year"] = 2014
arrCarInfo["Fast Eddy"]["color"] = "Pink"
arrCarInfo["Mogs Mobile"]["year"] = 2015
arrCarInfo["Mogs Mobile"]["color"] = "Black"

numberOfCars = Array.GetItemCount(arrCarInfo)
indices = Array.GetAllIndices(arrCarInfo)

While "true"
WriteHeading()
TakeUserInput()
CheckRecords()
WriteResult()

TextWindow.Pause()
TextWindow.Clear()
EndWhile

Sub CheckRecords
flag = 0
For i = 1 To numberOfCars
If Array.ContainsValue(arrCarInfo[indices[i]], criteria) = "True" Then
flag = 1
EndIf
EndFor
EndSub

Sub WriteResult
If flag = 1 Then
TextWindow.WriteLine(criteria + " exists")
Else
TextWindow.WriteLine(criteria + " doesn't exist")
EndIf
EndSub

Sub TakeUserInput
TextWindow.Write("Enter car name, year or colour: ")
criteria = TextWindow.Read()
EndSub

Sub WriteHeading
TextWindow.WriteLine("Search Module")
TextWindow.WriteLine("")
EndSub