10 E=1.0E-06
100 FOR I=1 TO 8
110 READ X,Y,R
120 RAD
130 A=SIN(X):IF ABS(A-R)>E THEN STOP
140 A=SIN(-X):IF ABS(A+R)>E THEN STOP
150 DEG
160 A=SIN(Y):IF ABS(A-R)>E THEN STOP
170 A=SIN(-Y):IF ABS(A+R)>E THEN STOP
180 NEXT I

200 FOR I=1 TO 8
210 READ X,Y,R
220 RAD
230 A=COS(X):IF ABS(A-R)>E THEN STOP
240 A=COS(-X):IF ABS(A-R)>E THEN STOP
250 DEG
260 A=COS(Y):IF ABS(A-R)>E THEN STOP
270 A=COS(-Y):IF ABS(A-R)>E THEN STOP
280 NEXT I

300 FOR I=1 TO 7
310 READ R,X,Y
320 RAD
330 A=ATN(R):IF ABS(A-X)>E THEN STOP
340 A=ATN(-R):IF ABS(A+X)>E THEN STOP
350 DEG
360 A=ATN(R):IF ABS(A-Y)>E THEN STOP
370 A=ATN(-R):IF ABS(A+Y)>E THEN STOP
380 NEXT I

500 PRINT "PASS":END

1000 REM SIN(X) TEST DATA
1010 DATA 0,0,0
1020 DATA 0.7853981634,45,0.7071067812
1030 DATA 1.57079633,90,1
1040 DATA 2.35619449,135,0.7071067812
1050 DATA 3.14159265,180,0
1060 DATA 6.28318531,360,0
1070 DATA 14.13716694,810,1
1080 DATA 100,5729.577951,-0.5063656411

2000 REM COS(X) TEST DATA
2010 DATA 0,0,1
2020 DATA 0.7853981634,45,0.7071067812
2030 DATA 1.57079633,90,0
2040 DATA 2.35619449,135,-0.7071067812
2050 DATA 3.14159265,180,-1
2060 DATA 6.28318531,360,1
2070 DATA 14.13716694,810,0
2080 DATA 100,5729.577951,0.8623188723

3000 REM ATN(X) TEST DATA
3010 DATA 0,0,0
3020 DATA 0.5,0.4636476090,26.56505118
3030 DATA 1,0.7853981634,45
3040 DATA 1.5,0.9827937232,56.30993247
3050 DATA 2,1.10714872,63.43494882
3060 DATA 100,1.56079666,89.42706130
3070 DATA 1E+10,1.57079633,89.99999999
