APDWR(M,I,b,n) [Algebraic point, decimal write. M,I, and b constitute the representation of an algebraic point in r-dimensional Euclidean space for some r>=1. n is a nonnegative integer. For each coordinate @b sub i@ of b, @b sub i@ is represented by a rational number @R sub i@ with inaccuracy of approximation at most @10 sup -(n+1)@. Then @R sub i@ is approximated by a decimal fraction @D sub i@ with n decimal digits following the decimal point, and @D sub i@ is written in the output stream. The inaccuracy of the approximation of @D sub i@ to @R sub i@ is at most (1/2) @10 sup -n@.] (1) b'=b; CWRIT2('(',' '); while b'~=() do { ADV(b';b1,b'); ANFAF(M,I,b1;N,J); ANDWR(N,J,n); if b'~=() then CLOUT(" , ") }; CWRIT2(' ',')'); return.. #Jf9