10000 REM ARCCOS ROUTINE, PLACE VALUE IN AC1
10010 REM AND CALL THIS ROUTINE; RETURNS VALUE IN
10020 REM AC1 IN RADIANS  (Bob Scott  APR 83)
10030 AC2=ABS(AC1)
10040 IF (AC2<>1) THEN GOTO 10060
10050 IF (AC1<0) THEN AC1=3.1415927# ELSE AC1=0
10055 RETURN
10060 IF (AC2>1) THEN PRINT "ARCCOS ERROR=";AC1:STOP
10070 IF (AC2=0) THEN AC1=1.5707963#:RETURN
10080 AC3=ATN(SQR(1-AC2*AC2)/AC2)
10090 IF (AC1<0) THEN AC1=3.1415927#-AC3 ELSE AC1=AC3
10100 RETURN
10200 REM ARCSIN ROUTINE...SAME STUFF SINE GOES IN 
10210 REM AS1 AND VALUE IS RETURNED THERE IN RADS
10220 AS2=ABS(AS1)
10230 IF (AS2=1)  THEN AS1=SGN(AS1)*1.5707963#:RETURN
10240 IF (AS2>1) THEN PRINT "ARCSIN ERROR=";AS1:STOP
10250 AS1=ATN(AS2/SQR(1-AS2*AS2))*SGN(AS1)
10260 RETURN
07963#:RETU