Module Main()
	Declare String name1, name2
	
	Display "This will compare two names and tell which comes first"
	Display "Enter your name for person 1"
	Input name1
    Display "Enter your name for person 2"
	Input name2

	// Compare name1 to name2 and print which one comes first and then the 
	// one that comes second
	If name1 < name2 Then
		Display "Name 1 comes first"
		Call showNames(name1,name2)
	Else
		Display Name 2 comes first"
		Call showNames(name2,name1)
	End If

end Module

// Shows the characters for a string
Module StringLoop( String S)
  Declare Char C
  for C in S do
		Display C, " "
end Module

// Shows the ascii values for a string
Module AsciiValueLoop(String S)
   Declare Char C
   for C in S do
		Display ord(C), " "
end Module

Module showNames(String name1, String name2 )
   Call StringLoop(name1)
   Call AsciiValueLoop(name1)
   Call StringLoop(name2)
   Call asciiValueLoop(name2)
End Module