10 PR "INPUT X,Y";
20 IN X,Y
25 IF X<0 LET X=-X
30 IF Y<0 Y=-Y
60 IF X<>0 IF Y<>0 Z=RND(X*Y)

Example 1: Tiny BASIC code.