9000 REM ***** SQUARZ ***** MATHEMATICS PROGRAM ***** 9010 REM ***** VERSION 1 ***** 7/31/69 ***** 9015 REM ***** REVISED MARCH 1972----ANDY ROTH C.C.G. 9020 REM ***** SQUARE ROOT OF A COMPLEX NUMBER ***** 9025 PRINT "THIS PROGRAM FINDS THE SQUARE ROOTS OF COMPLEX NUMBERS" 9027 ON ERROR GO TO 9410 9030 PRINT "INPUT THE REAL AND IMAGINARY PARTS OF Z." 9040 INPUT"RE(Z)=";R2 9060 INPUT "IM(Z)=";I2 9080 R1=SQR((R2+SQR(R2^2+I2^2))/2) 9090 I1=SGN(I2)*SQR((-R2+SQR(R2^2+I2^2))/2) 9100 PRINT "Z: RE=";R2,"IM=";I2 9200 PRINT"SQUARE ROOT OF Z HAS: RE=";R1,"IM=";I1 9399 GO TO 9500 9410 PRINT"YOU HAVE MADE A MISTAKE SOMEWHERE, PLEASE REENTER":RESUME9040 9500 INPUT"DO YOU WISH TO RUN AGAIN";R$ 9510 IF R$="YES" THEN 9040 9999 END