[ Media ] alarme: [ Nombre ] attends: [ Nombre ]

var media := Media nouveau.
 var i := 0.
 media quand: ['commencer'] faire: {
 Stdout écrire: ['commencer'], stop.
 media alarme: 1 attends: 12.
 }.
 media quand: ['pas'] faire: {
 Stdout écrire: i, stop.
 i additionner: 1.
 }.
 media quand: ['alarme:'] faire: { :t
 Stdout écrire: ['alarme:'] + t, stop.
 media fin.
 }.
 media affichage: ['canvas.png'].

commencer
alarme:1