[ 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