; Arrays: many values under one name

PROC Main()
  BYTE ARRAY days=[31 28 31 30 31 30 31 31 30 31 30 31]
  CARD ARRAY squares(10)     ; 10 elements: squares(0) to squares(9)
  BYTE i, biggest
  CARD total

  FOR i=0 TO 9               ; fill the array in a loop
  DO
    squares(i)=i*i
  OD

  Print("Squares: ")
  FOR i=0 TO 9
  DO
    PrintC(squares(i)) Put(' )
  OD
  PutE()

  Print("Days in March: ")
  PrintBE(days(2))           ; January is days(0)

  total=0
  FOR i=0 TO 11
  DO
    total==+days(i)
  OD
  Print("Days in a year: ")
  PrintCE(total)

  days(1)=29                 ; an element can be changed
  Print("February in a leap year: ")
  PrintBE(days(1))

  biggest=0
  FOR i=0 TO 11
  DO
    IF days(i)>biggest THEN
      biggest=days(i)
    FI
  OD
  Print("The longest month has ")
  PrintB(biggest)
  PrintE(" days")
RETURN