{ Type agrege de stockage des informations     }
{ relatives a un temps code sous la forme      }
{ heure, minute, seconde                       }

structure temps
  entier h <- 0
  entier mn <- 0
  entier s  <- 0
fin structure

{ Programme principal                          }

action principale()
  temps t
  entier nbs
  afficherln("SVP, t (h, mn & s)?")
  t.h <- saisir()
  t.mn <- saisir()
  t.s <- saisir()
  afficherln("SVP, increment?")
  nbs <- saisir()
  si nbs >= 0 alors
    t.s <- t.s+nbs
    sinon
    t.s <- t.s+nbs+86400*(-nbs/86400)+86400
  fsi
  si t.s >= 60 alors
    t.mn <- t.mn+(t.s/60)
    t.s <- t.s modulo 60
    si t.mn >= 60 alors
      t.h <- (t.h+(t.mn/60))%24
      t.mn <- t.mn modulo 60
    fsi
  fsi
  afficherln("[",t.h,":",t.mn,":",t.s,"]")
fin action