[ Media ] zegar: [ Numer ] po: [ Numer ]

var media := Media nowy.
var i := 0.
media on: ['start'] do: {
Stdout pisać: ['start'], zatrzymać.
media zegar: 1 po: 12.
}.
media on: ['krok'] do: {
Stdout pisać: i, zatrzymać.
i dodaj: 1.
}.
media on: ['alarm:'] do: { :t
Stdout pisać: ['alarm:'] + t, zatrzymać.
media koniec.
}.
media ekran: ['canvas.png'].
start
0
1
alarm:1
2