home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug083.ark / Z_REFC.SRT < prev    next >
Encoding:
Text File  |  1984-04-29  |  238 b   |  9 lines
  1. 106.100    REM ***********Z/REFC***********
  2.     A=TEMP.REAL
  3.     TEMP.REAL=A-50
  4.     TEMP1.REAL=A+50 : TEMP1.IMAG=TEMP.IMAG
  5.     GOSUB 104.100
  6.     TEMP.MAG=SQR(TEMP.REAL*TEMP.REAL+TEMP.IMAG*TEMP.IMAG)
  7.     TEMP.PHA=57.296*ATN(TEMP.IMAG/TEMP.REAL)
  8.     RETURN
  9.