ASNH Example

10    COMPLEX C
20    C=CMPLX(4,7)
30    CLEAR SCREEN
40    X=ASNH(C)             !Takes the hyperbolic arcsine of complex number C.
50    Y=LOG(C+SQR(C^2+1))   !Uses the mathematical approach to the hyperbolic arcsine.
60    PRINT X;"=";Y;"?"
70    IF X=Y THEN           !Compare X and Y to verify ASNH.
80      PRINT "True"
90      STOP
100   ELSE
110     PRINT "False"
120   END IF
130   END