Listing of file='40' on disk='vmedia/glbr_22.wvd.zip'
# Sector 507, program filename = '40' 0005 PRINT 0007 PRINT "INPUT COMPLEX NO. (A,B,CARRIAGE RETURN)" 0010 INPUT A,B 0015 IF B<0 THEN 50 0020 IF B>0 THEN 50 0025 IF A<0 THEN 40 0030 PRINT "ANS.: ";SQR(A) 0035 GOTO 5 0040 PRINT "ANS.: ";SQR(-A);"I" 0045 GOTO 5 0050 R=SQR(A^2+B^2) 0055 PRINT "ANS.: ";SQR((A+R)/2),SGN(B)*SQR((R-A)/2);"I" 0060 GOTO 5 0065 END