c2% stp 
r1=0%          stevec=0
c1% prg
b0=i0;O0=t0%   ko pritisnem i0
d0!t0=100%     se o0 prizge za 100 enot
r0!r0=r0-1%    vsakih 100 ciklov
r0:r1=r1+1;r1% se poveca in izpise
r0:r0=100%     vrednost r1
c2% stp
c3% run