system graf global newim gr[256] exec recim drawim process recim begin :loop [gr.recgraf] 1 ->newim >loop load from (graf.myo) *gr.recgraf \ process drawim begin [gr.init] :loop newim ? ={>loop} 0 ->newim [gr.draw] >loop load from(graf.myo) *gr.draw *gr.init \