home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1989-07-20 | 3.2 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 10%
| dexvert
| Truevision Targa Graphic (image/tga)
| magic
| Supported |
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 f4 3e 46 73 | 74 46 6f 75 72 69 65 72 |.....>Fs|tFourier|
|00000010| 0d 00 14 1f f4 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.....***|********|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|00000030| 00 1e 1f f4 2a 20 46 61 | 73 74 20 46 6f 75 72 69 |....* Fa|st Fouri|
|00000040| 65 72 20 54 72 61 6e 73 | 66 6f 72 6d 20 2a 0d 00 |er Trans|form *..|
|00000050| 28 1f f4 2a 20 20 20 20 | 20 20 4a 6f 68 6e 20 47 |(..* | John G|
|00000060| 72 65 65 6e 69 6e 67 20 | 20 20 20 20 2a 0d 00 32 |reening | *..2|
|00000070| 1f f4 2a 20 20 20 20 20 | 20 20 20 45 64 69 6e 62 |..* | Edinb|
|00000080| 75 72 67 68 20 20 20 20 | 20 20 20 2a 0d 00 3c 1f |urgh | *..<.|
|00000090| f4 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.*******|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0d 00 46 1b f4 |********|***..F..|
|000000b0| 20 53 65 74 20 75 70 20 | 66 6f 72 20 35 31 32 20 | Set up |for 512 |
|000000c0| 70 6f 69 6e 74 73 0d 00 | 50 07 eb 20 31 0d 00 5a |points..|P.. 1..Z|
|000000d0| 0f ee 20 85 20 d9 23 30 | 3a f6 3a e0 0d 00 64 2f |.. . .#0|:.:...d/|
|000000e0| de 20 74 65 6d 70 28 32 | 29 2c 73 69 67 6e 61 6c |. temp(2|),signal|
|000000f0| 28 35 31 32 2c 32 29 2c | 63 6f 6d 70 6c 65 78 63 |(512,2),|complexc|
|00000100| 6f 6e 73 74 28 32 35 36 | 2c 32 29 0d 00 6e 22 e8 |onst(256|,2)..n".|
|00000110| 22 54 72 61 63 65 20 6f | 6e 20 28 59 2f 4e 29 22 |"Trace o|n (Y/N)"|
|00000120| 2c 74 72 61 63 65 66 6c | 61 67 24 3a f1 0d 00 78 |,tracefl|ag$:...x|
|00000130| 29 6d 3d 39 3a f4 20 50 | 6f 77 65 72 20 6f 66 20 |)m=9:. P|ower of |
|00000140| 32 20 66 6f 72 20 6e 75 | 6d 62 65 72 20 6f 66 20 |2 for nu|mber of |
|00000150| 70 6f 69 6e 74 73 0d 00 | 82 60 f1 22 45 6e 73 75 |points..|.`."Ensu|
|00000160| 72 65 20 66 6c 6f 70 70 | 79 20 63 6f 6e 74 61 69 |re flopp|y contai|
|00000170| 6e 69 6e 67 20 6e 6f 72 | 6d 61 6c 69 73 65 64 20 |ning nor|malised |
|00000180| 64 61 74 61 20 69 73 20 | 61 76 61 69 6c 61 62 6c |data is |availabl|
|00000190| 65 2e 50 72 65 73 73 20 | 61 6e 79 20 6b 65 79 20 |e.Press |any key |
|000001a0| 74 6f 20 70 72 6f 63 65 | 65 64 22 3a f1 3a 6b 65 |to proce|ed":.:ke|
|000001b0| 79 68 69 74 3d a5 0d 00 | 8c 0f f2 6c 6f 61 64 73 |yhit=...|...loads|
|000001c0| 69 67 6e 61 6c 0d 00 96 | 13 63 25 3d 8e 28 22 43 |ignal...|.c%=.("C|
|000001d0| 43 46 46 35 31 32 22 29 | 0d 00 a0 0f e3 20 69 3d |CFF512")|..... i=|
|000001e0| 31 20 b8 20 32 35 36 0d | 00 aa 2c e8 23 63 25 2c |1 . 256.|..,.#c%,|
|000001f0| 63 6f 6d 70 6c 65 78 63 | 6f 6e 73 74 28 69 2c 31 |complexc|onst(i,1|
|00000200| 29 2c 63 6f 6d 70 6c 65 | 78 63 6f 6e 73 74 28 69 |),comple|xconst(i|
|00000210| 2c 32 29 0d 00 b4 05 ed | 0d 00 be 08 d9 23 63 25 |,2).....|.....#c%|
|00000220| 0d 00 c8 41 e8 22 43 6f | 6d 70 6c 65 78 20 63 6f |...A."Co|mplex co|
|00000230| 6e 73 74 61 6e 74 73 20 | 6c 6f 61 64 65 64 2d 43 |nstants |loaded-C|
|00000240| 6f 6e 74 69 6e 75 65 20 | 74 72 61 63 65 20 28 59 |ontinue |trace (Y|
|00000250| 2f 4e 29 22 2c 74 72 61 | 63 65 66 6c 61 67 24 3a |/N)",tra|ceflag$:|
|00000260| f1 0d 00 d2 55 e7 20 74 | 72 61 63 65 66 6c 61 67 |....U. t|raceflag|
|00000270| 24 3c 3e 22 59 22 20 84 | 20 74 72 61 63 65 66 6c |$<>"Y" .| tracefl|
|00000280| 61 67 24 3c 3e 22 79 22 | 20 db 3a f1 22 48 61 76 |ag$<>"y"| .:."Hav|
|00000290| 65 20 70 61 74 69 65 6e | 63 65 20 64 75 72 69 6e |e patien|ce durin|
|000002a0| 67 20 6c 6f 6e 67 20 63 | 61 6c 63 75 6c 61 74 69 |g long c|alculati|
|000002b0| 6f 6e 73 22 3a f1 0d 00 | dc 0e f2 74 72 61 6e 73 |ons":...|...trans|
|000002c0| 66 6f 72 6d 0d 00 e6 33 | e8 22 54 72 61 63 65 20 |form...3|."Trace |
|000002d0| 6f 6e 20 66 6f 72 20 73 | 69 67 6e 61 6c 20 70 6f |on for s|ignal po|
|000002e0| 77 65 72 20 28 59 2f 4e | 29 22 2c 74 72 61 63 65 |wer (Y/N|)",trace|
|000002f0| 66 6c 61 67 24 3a f1 0d | 00 f0 69 e7 20 28 74 72 |flag$:..|..i. (tr|
|00000300| 61 63 65 66 6c 61 67 24 | 3d 22 59 22 20 84 20 74 |aceflag$|="Y" . t|
|00000310| 72 61 63 65 66 6c 61 67 | 24 3d 22 79 22 29 20 8c |raceflag|$="y") .|
|00000320| 20 f1 22 53 77 69 74 63 | 68 20 6f 6e 20 70 72 69 | ."Switc|h on pri|
|00000330| 6e 74 65 72 2e 50 72 65 | 73 73 20 53 50 41 43 45 |nter.Pre|ss SPACE|
|00000340| 42 41 52 20 74 6f 20 63 | 6f 6e 74 69 6e 75 65 22 |BAR to c|ontinue"|
|00000350| 3a f5 20 fd 20 a5 3d 33 | 32 3a db 3a ef 31 2c 32 |:. . .=3|2:.:.1,2|
|00000360| 0d 00 fa 4f e7 20 28 74 | 72 61 63 65 66 6c 61 67 |...O. (t|raceflag|
|00000370| 24 3d 22 4e 22 20 84 20 | 74 72 61 63 65 66 6c 61 |$="N" . |tracefla|
|00000380| 67 24 3d 22 6e 22 29 20 | 8c 20 f1 22 53 69 67 6e |g$="n") |. ."Sign|
|00000390| 61 6c 20 70 6f 77 65 72 | 20 69 73 20 62 65 69 6e |al power| is bein|
|000003a0| 67 20 63 61 6c 63 75 6c | 61 74 65 64 22 3a f1 0d |g calcul|ated":..|
|000003b0| 01 04 10 f2 73 69 67 6e | 61 6c 70 6f 77 65 72 0d |....sign|alpower.|
|000003c0| 01 0e 24 f1 22 53 69 67 | 6e 61 6c 20 70 6f 77 65 |..$."Sig|nal powe|
|000003d0| 72 20 69 73 20 62 65 69 | 6e 67 20 73 61 76 65 64 |r is bei|ng saved|
|000003e0| 22 3a f1 0d 01 18 11 f2 | 73 61 76 65 73 69 67 70 |":......|savesigp|
|000003f0| 6f 77 65 72 0d 01 22 2f | f1 22 50 6f 77 65 72 20 |ower.."/|."Power |
|00000400| 73 70 65 63 74 72 75 6d | 20 70 72 6f 67 72 61 6d |spectrum| program|
|00000410| 20 69 73 20 62 65 69 6e | 67 20 6c 6f 61 64 65 64 | is bein|g loaded|
|00000420| 22 3a f1 0d 01 2c 10 d7 | 20 22 53 70 65 63 74 72 |":...,..| "Spectr|
|00000430| 75 6d 22 0d 01 36 05 e0 | 0d 01 40 05 3a 0d 01 4a |um"..6..|..@.:..J|
|00000440| 10 dd f2 6c 6f 61 64 73 | 69 67 6e 61 6c 0d 01 54 |...loads|ignal..T|
|00000450| 07 ea 20 69 0d 01 5e 12 | 6e 6f 6f 66 70 6f 69 6e |.. i..^.|noofpoin|
|00000460| 74 73 3d 32 5e 6d 0d 01 | 68 34 e8 22 57 68 61 74 |ts=2^m..|h4."What|
|00000470| 20 69 73 20 6e 61 6d 65 | 20 6f 66 20 6e 6f 72 6d | is name| of norm|
|00000480| 61 6c 69 73 65 64 20 64 | 61 74 61 20 66 69 6c 65 |alised d|ata file|
|00000490| 20 22 2c 6e 61 6d 65 24 | 3a f1 0d 01 72 10 74 69 | ",name$|:...r.ti|
|000004a0| 74 6c 65 24 3d 6e 61 6d | 65 24 0d 01 7c 11 66 6f |tle$=nam|e$..|.fo|
|000004b0| 25 3d 8e 28 74 69 74 6c | 65 24 29 0d 01 86 05 db |%=.(titl|e$).....|
|000004c0| 0d 01 90 16 e3 20 69 3d | 31 20 b8 20 6e 6f 6f 66 |..... i=|1 . noof|
|000004d0| 70 6f 69 6e 74 73 0d 01 | 9a 15 e8 23 66 6f 25 2c |points..|...#fo%,|
|000004e0| 73 69 67 6e 61 6c 28 69 | 2c 31 29 0d 01 a4 11 73 |signal(i|,1)....s|
|000004f0| 69 67 6e 61 6c 28 69 2c | 32 29 3d 30 0d 01 ae 58 |ignal(i,|2)=0...X|
|00000500| e7 20 28 74 72 61 63 65 | 66 6c 61 67 24 3d 22 59 |. (trace|flag$="Y|
|00000510| 22 20 84 74 72 61 63 65 | 66 6c 61 67 24 3d 22 79 |" .trace|flag$="y|
|00000520| 22 29 20 8c 20 ef 32 3a | 20 f1 20 69 2c 73 69 67 |") . .2:| . i,sig|
|00000530| 6e 61 6c 28 69 2c 31 29 | 2c 73 69 67 6e 61 6c 28 |nal(i,1)|,signal(|
|00000540| 69 2c 32 29 3a e7 20 69 | 20 83 20 32 3d 30 20 8c |i,2):. i| . 2=0 .|
|00000550| 20 ef 31 33 0d 01 b8 05 | ed 0d 01 c2 09 d9 23 66 | .13....|......#f|
|00000560| 6f 25 0d 01 cc 06 ef 33 | 0d 01 d6 05 e1 0d 01 e0 |o%.....3|........|
|00000570| 05 3a 0d 01 ea 0f dd f2 | 74 72 61 6e 73 66 6f 72 |.:......|transfor|
|00000580| 6d 0d 01 f4 16 ea 20 77 | 2c 77 73 74 65 70 2c 69 |m..... w|,wstep,i|
|00000590| 2c 69 70 2c 6a 2c 6c 0d | 01 fe 12 6e 6f 6f 66 70 |,ip,j,l.|...noofp|
|000005a0| 6f 69 6e 74 73 3d 32 5e | 6d 0d 02 08 07 6c 3d 6d |oints=2^|m....l=m|
|000005b0| 0d 02 12 05 f5 0d 02 1c | 3d e7 20 28 74 72 61 63 |........|=. (trac|
|000005c0| 65 66 6c 61 67 24 3d 22 | 59 22 20 84 20 74 72 61 |eflag$="|Y" . tra|
|000005d0| 63 65 66 6c 61 67 24 3d | 22 79 22 29 20 8c 20 ef |ceflag$=|"y") . .|
|000005e0| 32 3a f1 20 22 53 74 61 | 67 65 3d 22 3b 6d 2d 6c |2:. "Sta|ge=";m-l|
|000005f0| 2b 31 0d 02 26 19 77 73 | 74 65 70 3d 32 5e 28 6d |+1..&.ws|tep=2^(m|
|00000600| 2d 6c 29 3a 77 3d 31 3a | 6a 3d 31 0d 02 30 05 f5 |-l):w=1:|j=1..0..|
|00000610| 0d 02 3a 07 69 3d 6a 0d | 02 44 05 f5 0d 02 4e 10 |..:.i=j.|.D....N.|
|00000620| 69 70 3d 69 2b 32 5e 28 | 6c 2d 31 29 0d 02 58 3c |ip=i+2^(|l-1)..X<|
|00000630| e7 20 28 74 72 61 63 65 | 66 6c 61 67 24 3d 22 59 |. (trace|flag$="Y|
|00000640| 22 20 84 20 74 72 61 63 | 65 66 6c 61 67 24 3d 22 |" . trac|eflag$="|
|00000650| 79 22 29 20 8c 20 f1 20 | 22 69 20 69 70 20 77 3d |y") . . |"i ip w=|
|00000660| 22 2c 69 2c 69 70 2c 77 | 0d 02 62 16 f2 62 75 74 |",i,ip,w|..b..but|
|00000670| 74 65 72 66 6c 79 28 69 | 2c 69 70 2c 77 29 0d 02 |terfly(i|,ip,w)..|
|00000680| 6c 0b 69 3d 69 2b 32 5e | 6c 0d 02 76 12 fd 20 69 |l.i=i+2^|l..v.. i|
|00000690| 3e 6e 6f 6f 66 70 6f 69 | 6e 74 73 0d 02 80 13 77 |>noofpoi|nts....w|
|000006a0| 3d 77 2b 77 73 74 65 70 | 3a 6a 3d 6a 2b 31 0d 02 |=w+wstep|:j=j+1..|
|000006b0| 8a 0f fd 20 6a 3e 32 5e | 28 6c 2d 31 29 0d 02 94 |... j>2^|(l-1)...|
|000006c0| 09 6c 3d 6c 2d 31 0d 02 | 9e 09 fd 20 6c 3c 31 0d |.l=l-1..|... l<1.|
|000006d0| 02 a8 06 ef 33 0d 02 b2 | 0c f2 73 68 75 66 66 6c |....3...|..shuffl|
|000006e0| 65 0d 02 bc 05 e1 0d 02 | c6 05 3a 0d 02 d0 17 dd |e.......|..:.....|
|000006f0| f2 62 75 74 74 65 72 66 | 6c 79 28 69 2c 69 70 2c |.butterf|ly(i,ip,|
|00000700| 77 29 0d 02 da 76 e7 20 | 28 74 72 61 63 65 66 6c |w)...v. |(tracefl|
|00000710| 61 67 24 3d 22 59 22 20 | 84 20 74 72 61 63 65 66 |ag$="Y" |. tracef|
|00000720| 6c 61 67 24 3d 22 79 22 | 29 20 8c 20 f1 20 22 41 |lag$="y"|) . . "A|
|00000730| 3d 22 3b 73 69 67 6e 61 | 6c 28 69 2c 31 29 3b 22 |=";signa|l(i,1);"|
|00000740| 20 69 41 3d 22 3b 73 69 | 67 6e 61 6c 28 69 2c 32 | iA=";si|gnal(i,2|
|00000750| 29 3b 22 20 42 3d 22 3b | 73 69 67 6e 61 6c 28 69 |);" B=";|signal(i|
|00000760| 70 2c 31 29 3b 22 20 69 | 42 3d 22 3b 73 69 67 6e |p,1);" i|B=";sign|
|00000770| 61 6c 28 69 70 2c 32 29 | 0d 02 e4 17 74 65 6d 70 |al(ip,2)|....temp|
|00000780| 28 31 29 3d 73 69 67 6e | 61 6c 28 69 2c 31 29 0d |(1)=sign|al(i,1).|
|00000790| 02 ee 17 74 65 6d 70 28 | 32 29 3d 73 69 67 6e 61 |...temp(|2)=signa|
|000007a0| 6c 28 69 2c 32 29 0d 02 | f8 28 73 69 67 6e 61 6c |l(i,2)..|.(signal|
|000007b0| 28 69 2c 31 29 3d 73 69 | 67 6e 61 6c 28 69 2c 31 |(i,1)=si|gnal(i,1|
|000007c0| 29 2b 73 69 67 6e 61 6c | 28 69 70 2c 31 29 0d 03 |)+signal|(ip,1)..|
|000007d0| 02 28 73 69 67 6e 61 6c | 28 69 2c 32 29 3d 73 69 |.(signal|(i,2)=si|
|000007e0| 67 6e 61 6c 28 69 2c 32 | 29 2b 73 69 67 6e 61 6c |gnal(i,2|)+signal|
|000007f0| 28 69 70 2c 32 29 0d 03 | 0c 20 74 65 6d 70 28 31 |(ip,2)..|. temp(1|
|00000800| 29 3d 74 65 6d 70 28 31 | 29 2d 73 69 67 6e 61 6c |)=temp(1|)-signal|
|00000810| 28 69 70 2c 31 29 0d 03 | 16 20 74 65 6d 70 28 32 |(ip,1)..|. temp(2|
|00000820| 29 3d 74 65 6d 70 28 32 | 29 2d 73 69 67 6e 61 6c |)=temp(2|)-signal|
|00000830| 28 69 70 2c 32 29 0d 03 | 20 44 73 69 67 6e 61 6c |(ip,2)..| Dsignal|
|00000840| 28 69 70 2c 31 29 3d 74 | 65 6d 70 28 31 29 2a 63 |(ip,1)=t|emp(1)*c|
|00000850| 6f 6d 70 6c 65 78 63 6f | 6e 73 74 28 77 2c 31 29 |omplexco|nst(w,1)|
|00000860| 2d 74 65 6d 70 28 32 29 | 2a 63 6f 6d 70 6c 65 78 |-temp(2)|*complex|
|00000870| 63 6f 6e 73 74 28 77 2c | 32 29 0d 03 2a 44 73 69 |const(w,|2)..*Dsi|
|00000880| 67 6e 61 6c 28 69 70 2c | 32 29 3d 74 65 6d 70 28 |gnal(ip,|2)=temp(|
|00000890| 31 29 2a 63 6f 6d 70 6c | 65 78 63 6f 6e 73 74 28 |1)*compl|exconst(|
|000008a0| 77 2c 32 29 2b 74 65 6d | 70 28 32 29 2a 63 6f 6d |w,2)+tem|p(2)*com|
|000008b0| 70 6c 65 78 63 6f 6e 73 | 74 28 77 2c 31 29 0d 03 |plexcons|t(w,1)..|
|000008c0| 34 76 e7 20 28 74 72 61 | 63 65 66 6c 61 67 24 3d |4v. (tra|ceflag$=|
|000008d0| 22 59 22 20 84 20 74 72 | 61 63 65 66 6c 61 67 24 |"Y" . tr|aceflag$|
|000008e0| 3d 22 79 22 29 20 8c 20 | f1 20 22 43 3d 22 3b 73 |="y") . |. "C=";s|
|000008f0| 69 67 6e 61 6c 28 69 2c | 31 29 3b 22 20 69 43 3d |ignal(i,|1);" iC=|
|00000900| 22 3b 73 69 67 6e 61 6c | 28 69 2c 32 29 3b 22 20 |";signal|(i,2);" |
|00000910| 44 3d 22 3b 73 69 67 6e | 61 6c 28 69 70 2c 31 29 |D=";sign|al(ip,1)|
|00000920| 3b 22 20 69 44 3d 22 3b | 73 69 67 6e 61 6c 28 69 |;" iD=";|signal(i|
|00000930| 70 2c 32 29 0d 03 3e 05 | e1 0d 03 48 05 3a 0d 03 |p,2)..>.|...H.:..|
|00000940| 52 0d dd f2 73 68 75 66 | 66 6c 65 0d 03 5c 0b ea |R...shuf|fle..\..|
|00000950| 20 69 2c 6a 2c 6b 0d 03 | 66 07 6a 3d 31 0d 03 70 | i,j,k..|f.j=1..p|
|00000960| 18 e3 20 69 3d 31 20 b8 | 20 6e 6f 6f 66 70 6f 69 |.. i=1 .| noofpoi|
|00000970| 6e 74 73 2d 31 0d 03 7a | 14 e7 20 69 3c 6a 20 f2 |nts-1..z|.. i<j .|
|00000980| 74 72 61 6e 73 70 6f 73 | 65 0d 03 84 14 6b 3d 6e |transpos|e....k=n|
|00000990| 6f 6f 66 70 6f 69 6e 74 | 73 20 81 20 32 0d 03 8e |oofpoint|s . 2...|
|000009a0| 0a c8 95 20 6b 3c 6a 0d | 03 98 11 6a 3d 6a 2d 6b |... k<j.|...j=j-k|
|000009b0| 3a 6b 3d 6b 20 81 20 32 | 0d 03 a2 05 ce 0d 03 ac |:k=k . 2|........|
|000009c0| 09 6a 3d 6a 2b 6b 0d 03 | b6 05 ed 0d 03 c0 06 ef |.j=j+k..|........|
|000009d0| 33 0d 03 ca 05 e1 0d 03 | d4 05 3a 0d 03 de 0f dd |3.......|..:.....|
|000009e0| f2 74 72 61 6e 73 70 6f | 73 65 0d 03 e8 32 e7 20 |.transpo|se...2. |
|000009f0| 28 74 72 61 63 65 66 6c | 61 67 24 3d 22 59 22 20 |(tracefl|ag$="Y" |
|00000a00| 84 20 74 72 61 63 65 66 | 6c 61 67 24 3d 22 79 22 |. tracef|lag$="y"|
|00000a10| 29 20 8c 20 ef 32 3a f1 | 20 69 2c 6a 0d 03 f2 17 |) . .2:.| i,j....|
|00000a20| 74 65 6d 70 28 31 29 3d | 73 69 67 6e 61 6c 28 69 |temp(1)=|signal(i|
|00000a30| 2c 31 29 0d 03 fc 17 74 | 65 6d 70 28 32 29 3d 73 |,1)....t|emp(2)=s|
|00000a40| 69 67 6e 61 6c 28 69 2c | 32 29 0d 04 06 1b 73 69 |ignal(i,|2)....si|
|00000a50| 67 6e 61 6c 28 69 2c 31 | 29 3d 73 69 67 6e 61 6c |gnal(i,1|)=signal|
|00000a60| 28 6a 2c 31 29 0d 04 10 | 1b 73 69 67 6e 61 6c 28 |(j,1)...|.signal(|
|00000a70| 69 2c 32 29 3d 73 69 67 | 6e 61 6c 28 6a 2c 32 29 |i,2)=sig|nal(j,2)|
|00000a80| 0d 04 1a 17 73 69 67 6e | 61 6c 28 6a 2c 31 29 3d |....sign|al(j,1)=|
|00000a90| 74 65 6d 70 28 31 29 0d | 04 24 17 73 69 67 6e 61 |temp(1).|.$.signa|
|00000aa0| 6c 28 6a 2c 32 29 3d 74 | 65 6d 70 28 32 29 0d 04 |l(j,2)=t|emp(2)..|
|00000ab0| 2e 05 e1 0d 04 38 05 3a | 0d 04 42 11 dd f2 73 69 |.....8.:|..B...si|
|00000ac0| 67 6e 61 6c 70 6f 77 65 | 72 0d 04 4c 07 ea 20 69 |gnalpowe|r..L.. i|
|00000ad0| 0d 04 56 12 6e 6f 6f 66 | 70 6f 69 6e 74 73 3d 32 |..V.noof|points=2|
|00000ae0| 5e 6d 0d 04 60 16 e3 20 | 69 3d 31 20 b8 20 6e 6f |^m..`.. |i=1 . no|
|00000af0| 6f 66 70 6f 69 6e 74 73 | 0d 04 6a 3f 73 69 67 6e |ofpoints|..j?sign|
|00000b00| 61 6c 28 69 2c 31 29 3d | 73 69 67 6e 61 6c 28 69 |al(i,1)=|signal(i|
|00000b10| 2c 31 29 2a 73 69 67 6e | 61 6c 28 69 2c 31 29 2b |,1)*sign|al(i,1)+|
|00000b20| 73 69 67 6e 61 6c 28 69 | 2c 32 29 2a 73 69 67 6e |signal(i|,2)*sign|
|00000b30| 61 6c 28 69 2c 32 29 0d | 04 74 62 e7 20 28 74 72 |al(i,2).|.tb. (tr|
|00000b40| 61 63 65 66 6c 61 67 24 | 3d 22 59 22 20 84 20 74 |aceflag$|="Y" . t|
|00000b50| 72 61 63 65 66 6c 61 67 | 24 3d 22 79 22 29 20 8c |raceflag|$="y") .|
|00000b60| 20 40 25 3d 26 30 30 30 | 30 30 30 31 30 3a ef 32 | @%=&000|00010:.2|
|00000b70| 3a f1 3b 69 3b 22 20 22 | 73 69 67 6e 61 6c 28 69 |:.;i;" "|signal(i|
|00000b80| 2c 31 29 22 20 20 20 22 | 3b 3a e7 20 69 20 83 20 |,1)" "|;:. i . |
|00000b90| 34 3d 30 20 8c 20 ef 31 | 33 0d 04 7e 11 73 69 67 |4=0 . .1|3..~.sig|
|00000ba0| 6e 61 6c 28 69 2c 32 29 | 3d 30 0d 04 88 05 ed 0d |nal(i,2)|=0......|
|00000bb0| 04 92 2c e7 20 28 74 72 | 61 63 65 66 6c 61 67 24 |..,. (tr|aceflag$|
|00000bc0| 3d 22 59 22 20 84 20 74 | 72 61 63 65 66 6c 61 67 |="Y" . t|raceflag|
|00000bd0| 24 3d 22 79 22 29 20 8c | 20 ef 33 0d 04 9c 05 e1 |$="y") .| .3.....|
|00000be0| 0d 04 a6 05 3a 0d 04 b0 | 12 dd f2 73 61 76 65 73 |....:...|...saves|
|00000bf0| 69 67 70 6f 77 65 72 0d | 04 ba 07 ea 20 69 0d 04 |igpower.|.... i..|
|00000c00| c4 12 6e 6f 6f 66 70 6f | 69 6e 74 73 3d 32 5e 6d |..noofpo|ints=2^m|
|00000c10| 0d 04 ce 48 e8 22 45 6e | 74 65 72 20 6e 61 6d 65 |...H."En|ter name|
|00000c20| 20 6f 66 20 66 69 6c 65 | 20 69 6e 20 77 68 69 63 | of file| in whic|
|00000c30| 68 20 73 69 67 6e 61 6c | 20 70 6f 77 65 72 20 69 |h signal| power i|
|00000c40| 73 20 74 6f 20 62 65 20 | 73 61 76 65 64 20 22 20 |s to be |saved " |
|00000c50| 74 69 74 6c 65 24 3a f1 | 0d 04 d8 11 66 6f 25 3d |title$:.|....fo%=|
|00000c60| ae 28 74 69 74 6c 65 24 | 29 0d 04 e2 16 e3 20 69 |.(title$|)..... i|
|00000c70| 3d 31 20 b8 20 6e 6f 6f | 66 70 6f 69 6e 74 73 0d |=1 . noo|fpoints.|
|00000c80| 04 ec 15 f1 23 66 6f 25 | 2c 73 69 67 6e 61 6c 28 |....#fo%|,signal(|
|00000c90| 69 2c 31 29 0d 04 f6 05 | ed 0d 05 00 09 d9 23 66 |i,1)....|......#f|
|00000ca0| 6f 25 0d 05 0a 05 e1 0d | ff |o%......|. |
+--------+-------------------------+-------------------------+--------+--------+
