Import JJIO

Class ManyMax
-- Name A Non Amous
-- Does Shows definition and use of methods


   Routine bigMax (none) is private

      Boxes a,b,c,d,e,f,g ofType int

   -- Does compute the max of 4 ints

   Start

      Outputln "Enter 4 values "

      Input  a
      Outputln a

      Input  b
      Outputln b

      Input  c
      Outputln c

      Input  d 
      Outputln d
      
      Set e = max2 (a,b)
      Set f = max2 (c,d) 
      Set g = max2 (e,f)  

  --  Set g = max2 ( max2 (a,b), max2 (c,d) )

      Outputln "The max is "
      Output g
      Outputln " "
   EndRoutine bigMax


   Function max2 (x,y) ofType int is public
      Slot x ofType int
      Slot y ofType int
      Box result ofType int
   -- Does return maximum of any 2 ints x,y

      If (x < y) then
         Set result = y
      Else 
         Set result = x
      EndIf
      
   EndFunction max2

EndClass ManyMax