&barva1
&barvan
&barva1p
&barvap
&barvam
do obr&cis&y
&barvaz
&barva1
&barvan
if between (col, &ww)   
&barvam
do obr&cis&y
if between (col, &ww)   
INVAL1
INVAL2
POZICE
TIMELIMIT
POZICE
R:\FXP\O\
MODDP.FXP
R:\FXP\O\MODDP.PRG