clear set talk off for i=1 to 9 for j=1 to i s=str(i*j,6) @ row(),col() say s next j ? next i for i=1 to 9 for j=1 to i ?? i*j next j ? next i return *********************************** clear set talk off a=3 b=4 h=5 area=f(a,b,h) ? area return function f(a,b,h) f=0.5*(a+b)*h return(f)