home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug083.ark / DIVCOM.SRT < prev    next >
Encoding:
Text File  |  1984-04-29  |  195 b   |  9 lines
  1. 104.100 REM ***********DIVCOM***********
  2.     A=TEMP.REAL : B=TEMP.IMAG
  3.     C=TEMP1.REAL : D=TEMP1.IMAG
  4.     E=C*C+D*D
  5.     IF E<1E-12 THEN E=1E-12
  6.     TEMP.REAL=(A*C+B*D)/E
  7.     TEMP.IMAG=(B*C-A*D)/E
  8.     RETURN
  9.