5 PRINT
7 PRINT "INPUT COMPLEX NO. (A,B,CARRIAGE RETURN)"
10 INPUT A,B 
15 IF B<0 THEN 50
20 IF B>0 THEN 50
25 IF A<0 THEN 40
30 PRINT "ANS.: ";SQR(A) 
35 GOTO 5
40 PRINT "ANS.: ";SQR(-A);"I"
45 GOTO 5
50 R=SQR(A^2+B^2)
55 PRINT "ANS.: ";SQR((A+R)/2),SGN(B)*SQR((R-A)/2);"I" 
60 GOTO 5
65 END 

