8416 IF AL=1 THEN X=-AL*BE*LOG(RND) : RETURN