10 PRINT "Calculate the arcsine(x)"
15 DEFDBL A-Z
20 INPUT "Input x"; x
30 IF x > 1 OR x < -1 THEN GOTO 200
70 a = 2 * (ATN(x / ((1 + ((1 - (x ^ 2)) ^ (1 / 2))))))
80 PRINT "The arcsine("; x; ")="; a
90 SYSTEM
200 b = x + (((x ^ 2) - 1) ^ (1 / 2))
210 c = LOG(ABS(b))
220 f = 3.141592653589793# / 2
230 IF x < 0 THEN f = -f
240 PRINT "The arcsine("; x; ")=("; f; ","; -c; ")"
250 SYSTEM