$ZABS(n)
READ "Input a number: ",num SET abs=$ZABS(num) WRITE "The absolute value of ",num," is ",abs