9000 REM  *****  SQR(Z)  *****  MATHEMATICS PROGRAM  *****
9001 REM  *****  VERSION 1  *****  7/31/69
9002 REM  SQUARE ROOT OF A COMPLEX NUMBER
9003 PRINT'INPUT THE REAL AND IMAGINARY PARTS OF Z.'
9004 PRINT'RE(Z)=';
9005 INPUT R2
9006 PRINT'IM(Z)=';
9007 INPUT I2
9008 R1=SQR((R2+SQR(R2^2+I2^2))/2)
9009 I1=SGN(I2)*SQR((-R2+SQR(R2^2+I2^2))/2)
9010 PRINT 'Z:   RE=';R2,'IM=';I2
9011 PRINT'SQUARE ROOT OF Z HAS:   RE=';R1,'IM=';I1
9999 END