home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug083.ark / ZXXZ.SRT < prev   
Encoding:
Text File  |  1984-04-29  |  991 b   |  29 lines
  1. 109.100    REM ***********ZXXZ***********
  2.     TEMP.REAL=TEMPA.REAL : TEMP.IMAG=TEMPA.IMAG
  3.     TEMP1.REAL=TEMPD.REAL : TEMP1.IMAG=TEMPD.IMAG
  4.     GOSUB 103.100
  5.     TEM1R=TEMP.REAL : TEM1I=TEMP.IMAG
  6.     TEMP.REAL=TEMPB.REAL : TEMP.IMAG=TEMPB.IMAG
  7.     TEMP1.REAL=TEMPC.REAL : TEMP1.IMAG=TEMPC.IMAG
  8.     GOSUB 103.100
  9.     TEM2R=TEMP.REAL : TEM2I=TEMP.IMAG
  10.     DELR=TEM1R-TEM2R : DELI=TEM1I-TEM2I
  11.     TEMP.REAL=TEMPA.REAL : TEMP.IMAG=TEMPA.IMAG
  12.     TEMP1.REAL=TEMPC.REAL : TEMP1.IMAG=TEMPC.IMAG
  13.     GOSUB 104.100
  14.     TEMPA.REAL=TEMP.REAL : TEMPA.IMAG=TEMP.IMAG
  15.     TEMP.REAL=DELR : TEMP.IMAG=DELI
  16.     TEMP1.REAL=TEMPC.REAL : TEMP1.IMAG=TEMPC.IMAG
  17.     GOSUB 104.100
  18.     TEMPB.REAL=TEMP.REAL : TEMPB.IMAG=TEMP.IMAG
  19.     TEM3R=TEMPC.REAL : TEM3I=TEMPC.IMAG
  20.     TEMP.REAL=1 : TEMP.IMAG=0
  21.     TEMP1.REAL=TEM3R : TEMP1.IMAG=TEM3I
  22.     GOSUB 104.100
  23.     TEMPC.REAL=TEMP.REAL : TEMPC.IMAG=TEMP.IMAG
  24.     TEMP.REAL=TEMPD.REAL : TEMP.IMAG=TEMPD.IMAG
  25.     TEMP1.REAL=TEM3R : TEMP1.IMAG=TEM3I
  26.     GOSUB 104.100
  27.     TEMPD.REAL=TEMP.REAL : TEMPD.IMAG=TEMP.IMAG
  28.     RETURN
  29.