modification of picorirt.c