140 "D" INPUT "x1=";X#,"y1=";Y#,"x2=";Z#,"y2=";W#
  141 PRINT "Z1/Z2=";(X#*Z#+Y#*W#)/( SQU Z#+ SQU W#): PRINT "+/-j*";(Z#*Y#-X#*W#)/( SQU Z#+ SQU W#)
  142 PRINT "Z1*Z2=";(X#*Z#-Y#*W#): PRINT "+/-J*";(X#*W#+Z#*Y#)
  143 A$="-": IF Y#>0 LET A$="+"
  144 PRINT "ûZ1=+/-("; û (( û ( SQU X#+ SQU Y#)+X#)/2): PRINT A$+"j*"; û (( û ( SQU X#+ SQU Y#)-X#)/2);")"
  145 A$="-": IF W#>0 LET A$="+"
  146 PRINT "ûZ2=+/-("; û (( û ( SQU Z#+ SQU W#)+Z#)/2): PRINT A$+"j*"; û (( û ( SQU Z#+ SQU W#)-Z#)/2);")": END