FUNCTION vote (IN io_video AS VIDEOOBJECT, OUT eo_vote AS THUMBOBJ)
IF io_video~rec_type = const~filmedfromscreen OR
io_video~rec_type = const~vvs THEN
eo_vote~decission = const~redthumb.
ELSE.
CALL FUNCTION determine_funniness(eo_vote).
ENDIF.
ENDFUNCTION.