READ "Input a number: ",num
IF num=0 { WRITE !,"ILLEGAL VALUE: zero not permitted" }
ELSE {
WRITE !,"the cosecant is: ",$ZCSC(num)
}
QUIT
WRITE !,"the cosecant is: ",$ZCSC($ZPI)
WRITE !,"the cosecant is: ",$ZCSC($DOUBLE($ZPI))
WRITE !,"the cosecant is: ",$ZCSC($ZPI/2)
WRITE !,"the cosecant is: ",$ZCSC($DOUBLE($ZPI)/2)
WRITE !,"the cosecant is: ",$ZCSC($DOUBLE($ZPI/2))