READ "Input a number: ",num
WRITE !,"the tangent is: ",$ZTAN(num)
QUIT
WRITE !,"the tangent is: ",$ZTAN(0.0)
WRITE !,"the tangent is: ",$ZTAN($DOUBLE(0.0))
WRITE !,"the tangent is: ",$ZTAN($ZPI)
WRITE !,"the tangent is: ",$ZTAN($DOUBLE($ZPI))
WRITE !,"the tangent is: ",$ZTAN(1.0)
WRITE !,"the tangent is: ",$ZTAN($DOUBLE(1.0))