Dim available(6), selection, cost(5), hours as integer
carpark(1)= "Abbey Foregate"
carpark(2)= "Bridgestreet"
carpark(4)= "Raven Meadows"
carpark(5)= "St Julian Friars"
Console.WriteLine( "Parking spaces available in ")
Console.WriteLine( i & "- " & carpark(i) & ": " & available(i))
Console.WriteLine("Press Enter to continue")
Enter= Console.ReadLine()
Console.WriteLine("Select a car park (1-6):")
Selection= Console.ReadLine()
Loop Until Selection>=1 and Selection<=6
If available(selection)>= 1 then
available(selection)= available(selection) - 1
Console.WriteLine(" You may proceed to " & carpark(selection) )
Console.WriteLine(" Updated number of spaces: ")
Console.WriteLine( i & "- " & carpark(i) & ": " & available(i))
Elseif available(selection)<= 0 then
Console.WriteLine(" No spaces available, please select another carpark: ")
Console.WriteLine("Select a car park:")
Selection= Console.ReadLine()
Loop Until Selection>=1 and Selection<=6
available(selection)= available(selection) - 1
Console.WriteLine(" You may proceed to " & carpark(selection) )
Console.WriteLine(" Updated number of spaces: ")
Console.WriteLine( i & "- " & carpark(i) & ": " & available(i))
Loop Until available(selection)>=1
Console.WriteLine("Press Enter for your receipt")
Enter= Console.ReadLine()
Console.WriteLine(" Charges for your length of stay: ")
Console.WriteLine( i & "- up to " & i & " hours: £" & cost(i) )
Console.WriteLine("5- over 4 hours: £" & cost(5) )
Console.WriteLine(" For how long will you be staying? (Select 1-5)")
hours= Console.ReadLine()
Loop Until hours>=1 and hours<=5
Console.WriteLine("Amount due:")
Console.WriteLine( "£" & Cost(hours))