-- Name: Anonymous
-- Does Plot days in any month

Function daysInMonth (mon) ofType int
   Slot mon ofType int
-- Does compute days in any month
EndFunction daysInMonth 

   Routine outRow( times )
      Slot times ofType  int
   -- Slot mark  ofClass Str
      Box count ofType int
   -- Does: print mark any number of times
      Set count = 1
      Repeat
      ExitOn (count > times)
         Output count % 10 ----
         Inc count by 1
      EndRepeat
      Outputln " "
   EndRoutine outRow

Routine mainRun (none)
   Box m ofType int
   Box dim ofType int[]
-- Does 
Start
   NewArray dim ofType int[13]
   Set m = 1
   Repeat
   ExitOn (m > 12)
      Set dim[m] = daysInMonth(m) 
      Inc m by 1
   EndRepeat

   Outputln "m           1         2         3  "
   Set m = 1
   Repeat
   ExitOn (m > 12)
      Output m
      Output " " 
      If (m < 10) then
         Output " "
      EndIf
      Call outRow with (daysInMonth(m))
      Inc m by 1
   EndRepeat
EndRoutine mainRun