image of READY prompt

Wang2200.org

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