[ Media ] alarm: [ Číslo ] čekat: [ Číslo ]

var media := Media nový.
 var i := 0.
 media na: ['start'] udělat: {
 Stdout psát: ['start'], stop.
 media alarm: 1 čekat: 12.
 }.
 media na: ['krok'] udělat: {
 Stdout psát: i, stop.
 i přičíst: 1.
 }.
 media na: ['alarm:'] udělat: { :t
 Stdout psát: ['alarm:'] + t, stop.
 media konec.
 }.
 media obrazovka: ['canvas.png'].

start
0
1
alarm:1
2