home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug083.ark / REFC_Z.SRT < prev    next >
Encoding:
Text File  |  1984-04-29  |  304 b   |  12 lines
  1. 105.100    REM ***********REFC/Z***********
  2.     A=TEMP.MAG : B=TEMP.PHA
  3.     SR=A*COS(B/57.296)
  4.     IF SR<1E-12 THEN SR=1E-12
  5.     SI=A*SIN(B/57.296)
  6.     TEMP.REAL=1+SR : TEMP.IMAG=SI
  7.     TEMP1.REAL=1-SR : TEMP1.IMAG=-SI
  8.     GOSUB 104.100
  9.     TEMR=TEMP.REAL : TEMI=TEMP.IMAG
  10.     TEMP.REAL=50*TEMR : TEMP.IMAG=50*TEMI
  11.     RETURN
  12.