&ACCESS RVP
&REL 1
&PARAM TEMPLATE = C:\KRC\Roboter\Template\vorgabe
&PARAM EDITMASK = *
DEF G1()
DECL REAL kola
CONTINUE
kola=$VEL_ACT
CONTINUE
slimak=kola*PARAMETR*850
CONTINUE
$OUT_C[1]=TRUE
END