home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug083.ark / YZZY.SRT < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.0 KB  |  32 lines
  1. 110.100    REM ***********YZZY***********
  2.     TEMP.REAL=TEMPA.REAL : TEMP.IMAG=TEMPA.IMAG
  3.     TEMP1.REAL=TEMPD.REAL : TEMP1.IMAG=TEMPD.IMAG
  4.     GOSUB 103.100
  5.     Q1R=TEMP.REAL : Q1I=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.     Q2R=TEMP.REAL : Q2I=TEMP.IMAG
  10.     Q3R=Q1R-Q2R : Q3I=Q1I-Q2I
  11.     TEM1R=TEMPA.REAL : TEM1I=TEMPA.IMAG
  12.     TEM2R=-TEMPB.REAL : TEM2I=-TEMPB.IMAG
  13.     TEM3R=-TEMPC.REAL : TEM3I=-TEMPC.IMAG
  14.     TEM4R=TEMPD.REAL : TEM4I=TEMPD.IMAG
  15.     TEMP.REAL=TEM4R : TEMP.IMAG=TEM4I
  16.     TEMP1.REAL=Q3R : TEMP1.IMAG=Q3I
  17.     GOSUB 104.100
  18.     TEMPA.REAL=TEMP.REAL : TEMPA.IMAG=TEMP.IMAG
  19.     TEMP.REAL=TEM3R : TEMP.IMAG=TEM3I
  20.     TEMP1.REAL=Q3R : TEMP1.IMAG=Q3I
  21.     GOSUB 104.100
  22.     TEMPC.REAL=TEMP.REAL : TEMPC.IMAG=TEMP.IMAG
  23.     TEMP.REAL=TEM2R : TEMP.IMAG=TEM2I
  24.     TEMP1.REAL=Q3R : TEMP1.IMAG=Q3I
  25.     GOSUB 104.100
  26.     TEMPB.REAL=TEMP.REAL : TEMPB.IMAG=TEMP.IMAG
  27.     TEMP.REAL=TEM1R : TEMP.IMAG=TEM1I
  28.     TEMP1.REAL=Q3R : TEMP1.IMAG=Q3I
  29.     GOSUB 104.100
  30.     TEMPD.REAL=TEMP.REAL : TEMPD.IMAG=TEMP.IMAG
  31.     RETURN
  32.