10 IF 0^0<>1 THEN STOP 
20 IF 0^1<>0 THEN STOP 
30 IF 0^2<>0 THEN STOP 
40 IF 1^1<>1 THEN STOP 
50 IF 1^-1<>1 THEN STOP 
60 IF 1^0<>1 THEN STOP 
70 IF 2^0<>1 THEN STOP 
80 IF 2^1<>2 THEN STOP 
90 IF 2^2<>4 THEN STOP 
100 IF ABS(2^0.5-1.414)>1.0E-03 THEN STOP 
110 IF ABS(2^-1-0.5)>1.0E-03 THEN STOP 
120 IF -2^0<>1 THEN STOP 
130 IF -2^1<>-2 THEN STOP 
140 IF -2^2<>4 THEN STOP 
150 IF -2^3<>-8 THEN STOP 
160 IF -1^0<>1 THEN STOP 
170 IF -1^1<>-1 THEN STOP 
180 IF -1^2<>1 THEN STOP 
190 IF -1^3<>-1 THEN STOP 
200 IF -1^-1<>-1 THEN STOP 
500 NONE=32768
510 TRAP 520:X=-1^0.5
520 TRAP 530:X=-1^-0.5
530 TRAP 540:X=0^-1
540 REM 
1000 PRINT "PASS"
