HOLOGRAM
FILE INFORMATION
FILENAME(S): HOLOGRAM
FILE TYPE(S): PRG
FILE SIZE: 9.6K
FIRST SEEN: 2025-11-30 21:15:48
APPEARS ON: 1 disk(s)
FILE HASH
7d51eaf2e996a6bbb15e3052489c1c3089782e7d410a9185aa6416fd1cf796c1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR DISK | HOLOGRAM | PRG | DuncanTwain | 10 | 12 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2B 08 0A 00 8F 20 54 48 49 53 20 50 52 4F |..+.... THIS PRO|
00000010: 47 52 41 4D 20 4D 41 4B 45 53 20 42 49 4E 41 52 |GRAM MAKES BINAR|
00000020: 59 20 48 4F 4C 4F 47 52 41 4D 53 00 55 08 0F 00 |Y HOLOGRAMS.U...|
00000030: 8F 20 42 59 3A 20 20 50 41 54 52 49 43 4B 20 48 |. BY: PATRICK H|
00000040: 41 57 4C 45 59 2C 20 50 4F 52 54 20 45 4C 47 49 |AWLEY, PORT ELGI|
00000050: 4E 2C 20 4F 4E 00 98 08 14 00 86 20 58 28 33 32 |N, ON...... X(32|
00000060: 29 2C 59 28 33 32 29 2C 53 28 31 33 29 2C 55 28 |),Y(32),S(13),U(|
00000070: 31 33 29 2C 41 52 28 33 32 2C 33 32 29 2C 41 49 |13),AR(32,32),AI|
00000080: 28 33 32 2C 33 32 29 2C 43 48 24 28 31 31 2C 31 |(32,32),CH$(11,1|
00000090: 35 29 2C 45 28 31 36 29 00 AE 08 1E 00 54 49 24 |5),E(16).....TI$|
000000A0: B2 22 30 30 30 30 30 30 22 3A 9F 34 2C 34 00 BD |."000000":.4,4..|
000000B0: 08 28 00 49 52 B2 31 3A 20 49 49 B2 31 00 C8 08 |.(.IR.1: II.1...|
000000C0: 32 00 87 20 4E 2C 49 54 00 D1 08 3C 00 99 22 93 |2.. N,IT...<..".|
000000D0: 22 00 FE 08 46 00 85 22 44 4F 20 59 4F 55 20 57 |"...F.."DO YOU W|
000000E0: 41 4E 54 20 41 20 48 4F 4C 4F 47 52 41 4D 20 50 |ANT A HOLOGRAM P|
000000F0: 4C 4F 54 20 28 59 2F 4E 29 22 3B 48 50 24 00 28 |LOT (Y/N)";HP$.(|
00000100: 09 50 00 85 22 52 41 4E 44 4F 4D 20 4F 52 20 43 |.P.."RANDOM OR C|
00000110: 4F 4E 53 54 41 4E 54 20 50 48 41 53 45 20 28 52 |ONSTANT PHASE (R|
00000120: 2F 43 29 22 3B 49 50 24 00 32 09 5A 00 50 51 B2 |/C)";IP$.2.Z.PQ.|
00000130: 31 33 00 40 09 64 00 81 20 44 B2 31 20 A4 20 4E |13.@.d.. D.1 . N|
00000140: 00 4E 09 6E 00 81 20 45 B2 31 20 A4 20 4E 00 5C |.N.n.. E.1 . N.\|
00000150: 09 78 00 87 20 41 52 28 44 2C 45 29 00 73 09 82 |.x.. AR(D,E).s..|
00000160: 00 41 49 28 44 2C 45 29 B2 41 52 28 44 2C 45 29 |.AI(D,E).AR(D,E)|
00000170: AC 49 49 00 8A 09 8C 00 41 52 28 44 2C 45 29 B2 |.II.....AR(D,E).|
00000180: 41 52 28 44 2C 45 29 AC 49 52 00 9B 09 96 00 8B |AR(D,E).IR......|
00000190: 49 50 24 B2 22 43 22 A7 32 30 30 00 C8 09 A0 00 |IP$."C".200.....|
000001A0: 41 52 28 44 2C 45 29 B2 28 AB 31 AA 32 AC BB 28 |AR(D,E).(.1.2..(|
000001B0: 31 29 29 AC BA 28 49 52 AE 32 AA 49 49 AE 32 29 |1))..(IR.2.II.2)|
000001C0: AC 41 52 28 44 2C 45 29 00 DC 09 AA 00 50 4D B2 |.AR(D,E).....PM.|
000001D0: B5 28 AB 31 AA 33 AC BB 28 31 29 29 00 ED 09 B4 |.(.1.3..(1))....|
000001E0: 00 8B 20 50 4D B2 30 20 A7 20 31 37 30 00 1B 0A |.. PM.0 . 170...|
000001F0: BE 00 41 49 28 44 2C 45 29 B2 BA 28 49 52 AE 32 |..AI(D,E)..(IR.2|
00000200: AA 49 49 AE 32 AB 41 52 28 44 2C 45 29 AE 32 29 |.II.2.AR(D,E).2)|
00000210: AC 41 49 28 44 2C 45 29 AC 50 4D 00 25 0A C8 00 |.AI(D,E).PM.%...|
00000220: 82 20 45 2C 44 00 30 0A DC 00 83 20 33 32 2C 31 |. E,D.0.... 32,1|
00000230: 00 76 0A E6 00 83 20 30 2C 30 2C 30 2C 30 2C 30 |.v.... 0,0,0,0,0|
00000240: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000250: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000260: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000270: 2C 30 2C 30 2C 30 00 BC 0A F0 00 83 20 30 2C 30 |,0,0,0...... 0,0|
00000280: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000290: 2C 30 2C 30 2C 30 2C 31 2C 31 2C 31 2C 31 2C 31 |,0,0,0,1,1,1,1,1|
000002A0: 2C 31 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,1,0,0,0,0,0,0,0|
000002B0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 00 02 0B FA |,0,0,0,0,0,0....|
000002C0: 00 83 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |.. 0,0,0,0,0,0,0|
000002D0: 2C 30 2C 30 2C 30 2C 31 2C 31 2C 31 2C 31 2C 31 |,0,0,0,1,1,1,1,1|
000002E0: 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 30 |,1,1,1,1,1,1,1,0|
000002F0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000300: 2C 30 00 48 0B 04 01 83 20 30 2C 30 2C 30 2C 30 |,0.H.... 0,0,0,0|
00000310: 2C 30 2C 30 2C 30 2C 30 2C 31 2C 31 2C 31 2C 30 |,0,0,0,0,1,1,1,0|
00000320: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000330: 2C 30 2C 31 2C 31 2C 31 2C 30 2C 30 2C 30 2C 30 |,0,1,1,1,0,0,0,0|
00000340: 2C 30 2C 30 2C 30 2C 30 00 8E 0B 0E 01 83 20 30 |,0,0,0,0...... 0|
00000350: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 31 2C 31 |,0,0,0,0,0,0,1,1|
00000360: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000370: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 31 2C 31 |,0,0,0,0,0,0,1,1|
00000380: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 00 D4 |,0,0,0,0,0,0,0..|
00000390: 0B 18 01 83 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 |.... 0,0,0,0,0,0|
000003A0: 2C 31 2C 31 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,1,1,0,0,0,0,0,0|
000003B0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
000003C0: 2C 30 2C 30 2C 31 2C 31 2C 30 2C 30 2C 30 2C 30 |,0,0,1,1,0,0,0,0|
000003D0: 2C 30 2C 30 00 1A 0C 22 01 83 20 30 2C 30 2C 30 |,0,0...".. 0,0,0|
000003E0: 2C 30 2C 30 2C 31 2C 31 2C 30 2C 30 2C 30 2C 30 |,0,0,1,1,0,0,0,0|
000003F0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000400: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 31 2C 31 |,0,0,0,0,0,0,1,1|
00000410: 2C 30 2C 30 2C 30 2C 30 2C 30 00 60 0C 2C 01 83 |,0,0,0,0,0.`.,..|
00000420: 20 30 2C 30 2C 30 2C 30 2C 31 2C 31 2C 30 2C 30 | 0,0,0,0,1,1,0,0|
00000430: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000440: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000450: 2C 30 2C 30 2C 31 2C 31 2C 30 2C 30 2C 30 2C 30 |,0,0,1,1,0,0,0,0|
00000460: 00 A6 0C 36 01 83 20 30 2C 30 2C 30 2C 31 2C 31 |...6.. 0,0,0,1,1|
00000470: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000480: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000490: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 31 2C 31 |,0,0,0,0,0,0,1,1|
000004A0: 2C 30 2C 30 2C 30 00 EC 0C 40 01 83 20 30 2C 30 |,0,0,0...@.. 0,0|
000004B0: 2C 30 2C 31 2C 31 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,1,1,0,0,0,0,0|
000004C0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
000004D0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
000004E0: 2C 30 2C 31 2C 31 2C 30 2C 30 2C 30 00 32 0D 4A |,0,1,1,0,0,0.2.J|
000004F0: 01 83 20 30 2C 30 2C 31 2C 31 2C 30 2C 30 2C 30 |.. 0,0,1,1,0,0,0|
00000500: 2C 30 2C 30 2C 30 2C 31 2C 31 2C 30 2C 30 2C 30 |,0,0,0,1,1,0,0,0|
00000510: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 31 2C 31 2C 30 |,0,0,0,0,0,1,1,0|
00000520: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 31 2C 31 2C 30 |,0,0,0,0,0,1,1,0|
00000530: 2C 30 00 78 0D 54 01 83 20 30 2C 30 2C 31 2C 31 |,0.x.T.. 0,0,1,1|
00000540: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 31 2C 31 |,0,0,0,0,0,0,1,1|
00000550: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000560: 2C 31 2C 31 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,1,1,0,0,0,0,0,0|
00000570: 2C 31 2C 31 2C 30 2C 30 00 BE 0D 5E 01 83 20 30 |,1,1,0,0...^.. 0|
00000580: 2C 30 2C 31 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,1,0,0,0,0,0,0|
00000590: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
000005A0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
000005B0: 2C 30 2C 30 2C 30 2C 30 2C 31 2C 30 2C 30 00 04 |,0,0,0,0,1,0,0..|
000005C0: 0E 68 01 83 20 30 2C 31 2C 31 2C 30 2C 30 2C 30 |.h.. 0,1,1,0,0,0|
000005D0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
000005E0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
000005F0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 31 |,0,0,0,0,0,0,0,1|
00000600: 2C 31 2C 30 00 4A 0E 72 01 83 20 30 2C 31 2C 31 |,1,0.J.r.. 0,1,1|
00000610: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000620: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000630: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000640: 2C 30 2C 30 2C 31 2C 31 2C 30 00 90 0E 7C 01 83 |,0,0,1,1,0...|..|
00000650: 20 30 2C 31 2C 31 2C 30 2C 30 2C 30 2C 30 2C 30 | 0,1,1,0,0,0,0,0|
00000660: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 31 |,0,0,0,0,0,0,0,1|
00000670: 2C 31 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,1,0,0,0,0,0,0,0|
00000680: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 31 2C 31 2C 30 |,0,0,0,0,0,1,1,0|
00000690: 00 D6 0E 86 01 83 20 30 2C 31 2C 31 2C 30 2C 30 |...... 0,1,1,0,0|
000006A0: 2C 30 2C 31 2C 31 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,1,1,0,0,0,0,0|
000006B0: 2C 30 2C 30 2C 31 2C 31 2C 30 2C 30 2C 30 2C 30 |,0,0,1,1,0,0,0,0|
000006C0: 2C 30 2C 30 2C 30 2C 31 2C 31 2C 30 2C 30 2C 30 |,0,0,0,1,1,0,0,0|
000006D0: 2C 31 2C 31 2C 30 00 1C 0F 90 01 83 20 30 2C 31 |,1,1,0...... 0,1|
000006E0: 2C 31 2C 30 2C 30 2C 30 2C 31 2C 31 2C 30 2C 30 |,1,0,0,0,1,1,0,0|
000006F0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000700: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 31 2C 31 |,0,0,0,0,0,0,1,1|
00000710: 2C 30 2C 30 2C 30 2C 31 2C 31 2C 30 00 62 0F 9A |,0,0,0,1,1,0.b..|
00000720: 01 83 20 30 2C 31 2C 31 2C 30 2C 30 2C 30 2C 30 |.. 0,1,1,0,0,0,0|
00000730: 2C 31 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,1,0,0,0,0,0,0,0|
00000740: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000750: 2C 30 2C 31 2C 30 2C 30 2C 30 2C 30 2C 31 2C 31 |,0,1,0,0,0,0,1,1|
00000760: 2C 30 00 A8 0F A4 01 83 20 30 2C 30 2C 31 2C 30 |,0...... 0,0,1,0|
00000770: 2C 30 2C 30 2C 30 2C 31 2C 31 2C 30 2C 30 2C 30 |,0,0,0,1,1,0,0,0|
00000780: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000790: 2C 30 2C 30 2C 30 2C 31 2C 31 2C 30 2C 30 2C 30 |,0,0,0,1,1,0,0,0|
000007A0: 2C 30 2C 31 2C 30 2C 30 00 EE 0F AE 01 83 20 30 |,0,1,0,0...... 0|
000007B0: 2C 30 2C 31 2C 31 2C 30 2C 30 2C 30 2C 30 2C 31 |,0,1,1,0,0,0,0,1|
000007C0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
000007D0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 31 2C 30 |,0,0,0,0,0,0,1,0|
000007E0: 2C 30 2C 30 2C 30 2C 31 2C 31 2C 30 2C 30 00 34 |,0,0,0,1,1,0,0.4|
000007F0: 10 B8 01 83 20 30 2C 30 2C 31 2C 31 2C 30 2C 30 |.... 0,0,1,1,0,0|
00000800: 2C 30 2C 30 2C 31 2C 31 2C 30 2C 30 2C 30 2C 30 |,0,0,1,1,0,0,0,0|
00000810: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000820: 2C 31 2C 31 2C 30 2C 30 2C 30 2C 30 2C 31 2C 31 |,1,1,0,0,0,0,1,1|
00000830: 2C 30 2C 30 00 7A 10 C2 01 83 20 30 2C 30 2C 30 |,0,0.z.... 0,0,0|
00000840: 2C 31 2C 31 2C 30 2C 30 2C 30 2C 30 2C 31 2C 31 |,1,1,0,0,0,0,1,1|
00000850: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000860: 2C 30 2C 30 2C 31 2C 31 2C 30 2C 30 2C 30 2C 30 |,0,0,1,1,0,0,0,0|
00000870: 2C 31 2C 31 2C 30 2C 30 2C 30 00 C0 10 CC 01 83 |,1,1,0,0,0......|
00000880: 20 30 2C 30 2C 30 2C 31 2C 31 2C 30 2C 30 2C 30 | 0,0,0,1,1,0,0,0|
00000890: 2C 30 2C 30 2C 31 2C 31 2C 31 2C 30 2C 30 2C 30 |,0,0,1,1,1,0,0,0|
000008A0: 2C 30 2C 30 2C 30 2C 31 2C 31 2C 31 2C 30 2C 30 |,0,0,0,1,1,1,0,0|
000008B0: 2C 30 2C 30 2C 30 2C 31 2C 31 2C 30 2C 30 2C 30 |,0,0,0,1,1,0,0,0|
000008C0: 00 06 11 D6 01 83 20 30 2C 30 2C 30 2C 30 2C 31 |...... 0,0,0,0,1|
000008D0: 2C 31 2C 30 2C 30 2C 30 2C 30 2C 30 2C 31 2C 31 |,1,0,0,0,0,0,1,1|
000008E0: 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 |,1,1,1,1,1,1,1,1|
000008F0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 31 2C 31 2C 30 |,0,0,0,0,0,1,1,0|
00000900: 2C 30 2C 30 2C 30 00 4C 11 E0 01 83 20 30 2C 30 |,0,0,0.L.... 0,0|
00000910: 2C 30 2C 30 2C 30 2C 31 2C 31 2C 30 2C 30 2C 30 |,0,0,0,1,1,0,0,0|
00000920: 2C 30 2C 30 2C 30 2C 31 2C 31 2C 31 2C 31 2C 31 |,0,0,0,1,1,1,1,1|
00000930: 2C 31 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 31 |,1,0,0,0,0,0,0,1|
00000940: 2C 31 2C 30 2C 30 2C 30 2C 30 2C 30 00 92 11 EA |,1,0,0,0,0,0....|
00000950: 01 83 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 31 |.. 0,0,0,0,0,0,1|
00000960: 2C 31 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,1,0,0,0,0,0,0,0|
00000970: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000980: 2C 30 2C 31 2C 31 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,1,1,0,0,0,0,0|
00000990: 2C 30 00 D8 11 F4 01 83 20 30 2C 30 2C 30 2C 30 |,0...... 0,0,0,0|
000009A0: 2C 30 2C 30 2C 30 2C 31 2C 31 2C 30 2C 30 2C 30 |,0,0,0,1,1,0,0,0|
000009B0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
000009C0: 2C 30 2C 30 2C 30 2C 31 2C 31 2C 30 2C 30 2C 30 |,0,0,0,1,1,0,0,0|
000009D0: 2C 30 2C 30 2C 30 2C 30 00 1E 12 FE 01 83 20 30 |,0,0,0,0...... 0|
000009E0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 31 |,0,0,0,0,0,0,0,1|
000009F0: 2C 31 2C 31 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,1,1,0,0,0,0,0,0|
00000A00: 2C 30 2C 30 2C 30 2C 30 2C 31 2C 31 2C 31 2C 30 |,0,0,0,0,1,1,1,0|
00000A10: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 00 64 |,0,0,0,0,0,0,0.d|
00000A20: 12 08 02 83 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 |.... 0,0,0,0,0,0|
00000A30: 2C 30 2C 30 2C 30 2C 30 2C 31 2C 31 2C 31 2C 31 |,0,0,0,0,1,1,1,1|
00000A40: 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 |,1,1,1,1,1,1,1,1|
00000A50: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000A60: 2C 30 2C 30 00 AA 12 12 02 83 20 30 2C 30 2C 30 |,0,0...... 0,0,0|
00000A70: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000A80: 2C 30 2C 30 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 |,0,0,1,1,1,1,1,1|
00000A90: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000AA0: 2C 30 2C 30 2C 30 2C 30 2C 30 00 F0 12 1C 02 83 |,0,0,0,0,0......|
00000AB0: 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 | 0,0,0,0,0,0,0,0|
00000AC0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000AD0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000AE0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000AF0: 00 F6 12 26 02 3A 00 19 13 30 02 8D 20 36 36 30 |...&.:...0.. 660|
00000B00: 3A 8F 20 46 41 53 54 20 46 4F 55 52 49 45 52 20 |:. FAST FOURIER |
00000B10: 54 52 41 4E 53 46 4F 52 4D 00 3A 13 3A 02 8D 20 |TRANSFORM.:.:.. |
00000B20: 32 31 33 30 3A 8F 20 41 4D 50 4C 49 54 55 44 45 |2130:. AMPLITUDE|
00000B30: 20 41 4E 44 20 41 4E 47 4C 45 00 5A 13 44 02 8D | AND ANGLE.Z.D..|
00000B40: 20 32 33 37 30 3A 8F 20 4E 4F 52 4D 41 4C 49 5A | 2370:. NORMALIZ|
00000B50: 45 2F 54 52 55 4E 43 41 54 45 00 75 13 4E 02 8D |E/TRUNCATE.u.N..|
00000B60: 20 32 39 30 30 3A 8F 20 48 4F 4C 4F 47 52 41 4D | 2900:. HOLOGRAM|
00000B70: 20 50 4C 4F 54 00 B1 13 58 02 8D 20 34 33 34 30 | PLOT...X.. 4340|
00000B80: 3A 8F 20 46 49 4E 44 20 43 4F 4D 50 4F 4E 45 4E |:. FIND COMPONEN|
00000B90: 54 53 20 46 4F 52 20 49 4E 56 45 52 53 45 20 46 |TS FOR INVERSE F|
00000BA0: 46 54 20 46 52 4F 4D 20 50 4C 4F 54 20 44 41 54 |FT FROM PLOT DAT|
00000BB0: 41 00 BB 13 62 02 49 54 B2 AB 31 00 D3 13 6C 02 |A...b.IT..1...l.|
00000BC0: 8D 20 36 36 30 3A 8F 20 49 4E 56 45 52 53 45 20 |. 660:. INVERSE |
00000BD0: 46 46 54 00 F0 13 76 02 8D 20 34 34 33 30 3A 8F |FFT...v.. 4430:.|
00000BE0: 20 47 52 41 59 2D 53 43 41 4C 45 20 50 4C 4F 54 | GRAY-SCALE PLOT|
00000BF0: 00 0F 14 80 02 99 22 46 49 4E 49 53 48 45 44 2E |......"FINISHED.|
00000C00: 20 54 49 4D 45 20 49 53 20 20 22 3B 54 49 24 00 | TIME IS ";TI$.|
00000C10: 15 14 8A 02 80 00 22 14 94 02 8F 20 32 44 20 46 |......".... 2D F|
00000C20: 46 54 00 31 14 9E 02 81 20 52 57 B2 31 20 A4 20 |FT.1.... RW.1 . |
00000C30: 4E 00 52 14 A8 02 99 22 11 20 20 57 4F 52 4B 49 |N.R....". WORKI|
00000C40: 4E 47 20 4F 4E 20 46 46 54 3B 52 4F 57 3A 22 3B |NG ON FFT;ROW:";|
00000C50: 52 57 00 61 14 B2 02 81 20 52 45 B2 31 20 A4 20 |RW.a.... RE.1 . |
00000C60: 4E 00 85 14 BC 02 58 28 52 45 29 B2 41 52 28 52 |N.....X(RE).AR(R|
00000C70: 57 2C 52 45 29 3A 59 28 52 45 29 B2 41 49 28 52 |W,RE):Y(RE).AI(R|
00000C80: 57 2C 52 45 29 00 8E 14 C6 02 82 20 52 45 00 98 |W,RE)...... RE..|
00000C90: 14 D0 02 8D 20 38 39 30 00 A7 14 DA 02 81 20 52 |.... 890...... R|
00000CA0: 45 B2 31 20 A4 20 4E 00 CB 14 E4 02 41 52 28 52 |E.1 . N.....AR(R|
00000CB0: 57 2C 52 45 29 B2 58 28 52 45 29 3A 41 49 28 52 |W,RE).X(RE):AI(R|
00000CC0: 57 2C 52 45 29 B2 59 28 52 45 29 00 D7 14 EE 02 |W,RE).Y(RE).....|
00000CD0: 82 20 52 45 2C 52 57 00 E6 14 02 03 81 20 43 4C |. RE,RW...... CL|
00000CE0: B2 31 20 A4 20 4E 00 0A 15 0C 03 99 22 11 20 20 |.1 . N......". |
00000CF0: 57 4F 52 4B 49 4E 47 20 4F 4E 20 46 46 54 3B 43 |WORKING ON FFT;C|
00000D00: 4F 4C 55 4D 4E 3A 22 3B 43 4C 00 19 15 16 03 81 |OLUMN:";CL......|
00000D10: 20 43 45 B2 31 20 A4 20 4E 00 3D 15 20 03 58 28 | CE.1 . N.=. .X(|
00000D20: 43 45 29 B2 41 52 28 43 45 2C 43 4C 29 3A 59 28 |CE).AR(CE,CL):Y(|
00000D30: 43 45 29 B2 41 49 28 43 45 2C 43 4C 29 00 46 15 |CE).AI(CE,CL).F.|
00000D40: 2A 03 82 20 43 45 00 50 15 34 03 8D 20 38 39 30 |*.. CE.P.4.. 890|
00000D50: 00 5F 15 3E 03 81 20 43 45 B2 31 20 A4 20 4E 00 |._.>.. CE.1 . N.|
00000D60: 83 15 48 03 41 52 28 43 45 2C 43 4C 29 B2 58 28 |..H.AR(CE,CL).X(|
00000D70: 43 45 29 3A 41 49 28 43 45 2C 43 4C 29 B2 59 28 |CE):AI(CE,CL).Y(|
00000D80: 43 45 29 00 8F 15 52 03 82 20 43 45 2C 43 4C 00 |CE)...R.. CE,CL.|
00000D90: 95 15 66 03 8E 00 9B 15 70 03 3A 00 C1 15 7A 03 |..f.....p.:...z.|
00000DA0: 8F 20 20 43 4F 4D 50 4C 45 58 20 46 41 53 54 20 |. COMPLEX FAST |
00000DB0: 46 4F 55 52 49 45 52 20 54 52 41 4E 53 46 4F 52 |FOURIER TRANSFOR|
00000DC0: 4D 00 C7 15 84 03 3A 00 D8 15 8E 03 8B 20 49 54 |M.....:...... IT|
00000DD0: B1 30 20 A7 20 39 34 30 00 E6 15 98 03 81 20 49 |.0 . 940...... I|
00000DE0: B2 31 20 A4 20 4E 00 FA 15 A2 03 59 28 49 29 B2 |.1 . N.....Y(I).|
00000DF0: AB 59 28 49 29 3A 20 82 20 49 00 0B 16 AC 03 4C |.Y(I): . I.....L|
00000E00: 47 B2 BC 28 4E 29 AD BC 28 32 29 00 1E 16 B6 03 |G..(N)..(2).....|
00000E10: 8B 20 4C 47 B3 B2 31 20 A7 20 31 33 39 30 00 31 |. LG..1 . 1390.1|
00000E20: 16 C0 03 81 20 4B B2 32 20 A4 20 4C 47 20 A9 20 |.... K.2 . LG . |
00000E30: 32 00 40 16 CA 03 4D B2 32 AE 28 4C 47 AB 4B 29 |2.@...M.2.(LG.K)|
00000E40: 00 4B 16 D4 03 4D 34 B2 34 AC 4D 00 59 16 DE 03 |.K...M4.4.M.Y...|
00000E50: 81 20 4A B2 31 20 A4 20 4D 00 6D 16 E8 03 41 52 |. J.1 . M.m...AR|
00000E60: B2 28 4A AB 31 29 AD 4D 34 AC 32 AC FF 00 7A 16 |.(J.1).M4.2...z.|
00000E70: F2 03 43 31 B2 BE 28 41 52 29 00 87 16 FC 03 53 |..C1..(AR).....S|
00000E80: 31 B2 BF 28 41 52 29 00 9A 16 06 04 43 32 B2 43 |1..(AR).....C2.C|
00000E90: 31 AC 43 31 AB 53 31 AC 53 31 00 AD 16 10 04 53 |1.C1.S1.S1.....S|
00000EA0: 32 B2 43 31 AC 53 31 AA 43 31 AC 53 31 00 C0 16 |2.C1.S1.C1.S1...|
00000EB0: 1A 04 43 33 B2 43 32 AC 43 31 AB 53 32 AC 53 31 |..C3.C2.C1.S2.S1|
00000EC0: 00 D3 16 24 04 53 33 B2 43 32 AC 53 31 AA 53 32 |...$.S3.C2.S1.S2|
00000ED0: AC 43 31 00 E7 16 2E 04 81 20 49 B2 4D 34 20 A4 |.C1...... I.M4 .|
00000EE0: 20 4E 20 A9 20 4D 34 00 F5 16 38 04 4A 30 B2 49 | N . M4...8.J0.I|
00000EF0: AA 4A AB 4D 34 00 01 17 42 04 4A 31 B2 4A 30 AA |.J.M4...B.J1.J0.|
00000F00: 4D 00 0D 17 4C 04 4A 32 B2 4A 31 AA 4D 00 19 17 |M...L.J2.J1.M...|
00000F10: 56 04 4A 33 B2 4A 32 AA 4D 00 2C 17 60 04 52 30 |V.J3.J2.M.,.`.R0|
00000F20: B2 58 28 4A 30 29 AA 58 28 4A 32 29 00 3F 17 6A |.X(J0).X(J2).?.j|
00000F30: 04 52 31 B2 58 28 4A 30 29 AB 58 28 4A 32 29 00 |.R1.X(J0).X(J2).|
00000F40: 52 17 74 04 49 30 B2 59 28 4A 30 29 AA 59 28 4A |R.t.I0.Y(J0).Y(J|
00000F50: 32 29 00 65 17 7E 04 49 31 B2 59 28 4A 30 29 AB |2).e.~.I1.Y(J0).|
00000F60: 59 28 4A 32 29 00 78 17 88 04 52 32 B2 58 28 4A |Y(J2).x...R2.X(J|
00000F70: 31 29 AA 58 28 4A 33 29 00 8B 17 92 04 52 33 B2 |1).X(J3).....R3.|
00000F80: 58 28 4A 31 29 AB 58 28 4A 33 29 00 9E 17 9C 04 |X(J1).X(J3).....|
00000F90: 49 32 B2 59 28 4A 31 29 AA 59 28 4A 33 29 00 B1 |I2.Y(J1).Y(J3)..|
00000FA0: 17 A6 04 49 33 B2 59 28 4A 31 29 AB 59 28 4A 33 |...I3.Y(J1).Y(J3|
00000FB0: 29 00 C1 17 B0 04 58 28 4A 30 29 B2 52 30 AA 52 |).....X(J0).R0.R|
00000FC0: 32 00 D1 17 BA 04 59 28 4A 30 29 B2 49 30 AA 49 |2.....Y(J0).I0.I|
00000FD0: 32 00 E3 17 C4 04 8B 20 41 52 B2 30 20 A7 20 31 |2...... AR.0 . 1|
00000FE0: 33 30 30 00 03 18 CE 04 58 28 4A 32 29 B2 28 52 |300.....X(J2).(R|
00000FF0: 31 AA 49 33 29 AC 43 31 AA 28 49 31 AB 52 33 29 |1.I3).C1.(I1.R3)|
00001000: AC 53 31 00 23 18 D8 04 59 28 4A 32 29 B2 28 49 |.S1.#...Y(J2).(I|
00001010: 31 AB 52 33 29 AC 43 31 AB 28 52 31 AA 49 33 29 |1.R3).C1.(R1.I3)|
00001020: AC 53 31 00 43 18 E2 04 58 28 4A 31 29 B2 28 52 |.S1.C...X(J1).(R|
00001030: 30 AB 52 32 29 AC 43 32 AA 28 49 30 AB 49 32 29 |0.R2).C2.(I0.I2)|
00001040: AC 53 32 00 63 18 EC 04 59 28 4A 31 29 B2 28 49 |.S2.c...Y(J1).(I|
00001050: 30 AB 49 32 29 AC 43 32 AB 28 52 30 AB 52 32 29 |0.I2).C2.(R0.R2)|
00001060: AC 53 32 00 83 18 F6 04 58 28 4A 33 29 B2 28 52 |.S2.....X(J3).(R|
00001070: 31 AB 49 33 29 AC 43 33 AA 28 49 31 AA 52 33 29 |1.I3).C3.(I1.R3)|
00001080: AC 53 33 00 A3 18 00 05 59 28 4A 33 29 B2 28 49 |.S3.....Y(J3).(I|
00001090: 31 AA 52 33 29 AC 43 33 AB 28 52 31 AB 49 33 29 |1.R3).C3.(R1.I3)|
000010A0: AC 53 33 00 AE 18 0A 05 89 20 31 33 36 30 00 BE |.S3...... 1360..|
000010B0: 18 14 05 58 28 4A 32 29 B2 52 31 AA 49 33 00 CE |...X(J2).R1.I3..|
000010C0: 18 1E 05 59 28 4A 32 29 B2 49 31 AB 52 33 00 DE |...Y(J2).I1.R3..|
000010D0: 18 28 05 58 28 4A 31 29 B2 52 30 AB 52 32 00 EE |.(.X(J1).R0.R2..|
000010E0: 18 32 05 59 28 4A 31 29 B2 49 30 AB 49 32 00 FE |.2.Y(J1).I0.I2..|
000010F0: 18 3C 05 58 28 4A 33 29 B2 52 31 AB 49 33 00 0E |.<.X(J3).R1.I3..|
00001100: 19 46 05 59 28 4A 33 29 B2 49 31 AA 52 33 00 1A |.F.Y(J3).I1.R3..|
00001110: 19 50 05 82 20 49 2C 4A 2C 4B 00 34 19 6E 05 8B |.P.. I,J,K.4.n..|
00001120: 20 4C 47 B2 B5 28 4C 47 AD 32 29 AC 32 20 A7 20 | LG..(LG.2).2 . |
00001130: 31 35 30 30 00 46 19 78 05 81 20 49 B2 31 20 A4 |1500.F.x.. I.1 .|
00001140: 20 4E 20 A9 20 32 00 59 19 82 05 52 30 B2 58 28 | N . 2.Y...R0.X(|
00001150: 49 29 AA 58 28 49 AA 31 29 00 6C 19 8C 05 52 31 |I).X(I.1).l...R1|
00001160: B2 58 28 49 29 AB 58 28 49 AA 31 29 00 7F 19 96 |.X(I).X(I.1)....|
00001170: 05 49 30 B2 59 28 49 29 AA 59 28 49 AA 31 29 00 |.I0.Y(I).Y(I.1).|
00001180: 92 19 A0 05 49 31 B2 59 28 49 29 AB 59 28 49 AA |....I1.Y(I).Y(I.|
00001190: 31 29 00 9E 19 AA 05 58 28 49 29 B2 52 30 00 AA |1).....X(I).R0..|
000011A0: 19 B4 05 59 28 49 29 B2 49 30 00 B8 19 BE 05 58 |...Y(I).I0.....X|
000011B0: 28 49 AA 31 29 B2 52 31 00 C6 19 C8 05 59 28 49 |(I.1).R1.....Y(I|
000011C0: AA 31 29 B2 49 31 00 CE 19 D2 05 82 20 49 00 DC |.1).I1...... I..|
000011D0: 19 DC 05 53 28 31 33 29 B2 4E AD 32 00 E8 19 E6 |...S(13).N.2....|
000011E0: 05 55 28 31 33 29 B2 4E 00 F7 19 F0 05 81 20 4B |.U(13).N...... K|
000011F0: B2 32 20 A4 20 31 32 00 02 1A FA 05 4A B2 31 34 |.2 . 12.....J.14|
00001200: AB 4B 00 0D 1A 04 06 53 28 4A 29 B2 31 00 1D 1A |.K.....S(J).1...|
00001210: 0E 06 55 28 4A 29 B2 53 28 4A AA 31 29 00 3F 1A |..U(J).S(J.1).?.|
00001220: 18 06 8B 20 53 28 4A AA 31 29 B1 31 20 A7 20 53 |... S(J.1).1 . S|
00001230: 28 4A 29 B2 B5 28 53 28 4A AA 31 29 AD 32 29 00 |(J)..(S(J.1).2).|
00001240: 47 1A 22 06 82 20 4B 00 53 1A 2C 06 41 4C B2 53 |G.".. K.S.,.AL.S|
00001250: 28 32 29 00 5C 1A 36 06 4A 4A B2 30 00 7D 1A 40 |(2).\.6.JJ.0.}.@|
00001260: 06 41 B2 31 3A 20 42 B2 41 3A 20 43 B2 42 3A 20 |.A.1: B.A: C.B: |
00001270: 44 B2 43 3A 20 45 B2 44 3A 20 46 B2 45 00 95 1A |D.C: E.D: F.E...|
00001280: 7C 06 81 20 47 B2 46 20 A4 20 55 28 37 29 20 A9 ||.. G.F . U(7) .|
00001290: 20 53 28 37 29 00 AD 1A 86 06 81 20 48 B2 47 20 | S(7)...... H.G |
000012A0: A4 20 55 28 38 29 20 A9 20 53 28 38 29 00 C5 1A |. U(8) . S(8)...|
000012B0: 90 06 81 20 49 B2 48 20 A4 20 55 28 39 29 20 A9 |... I.H . U(9) .|
000012C0: 20 53 28 39 29 00 DF 1A 9A 06 81 20 4A B2 49 20 | S(9)...... J.I |
000012D0: A4 20 55 28 31 30 29 20 A9 20 53 28 31 30 29 00 |. U(10) . S(10).|
000012E0: F9 1A A4 06 81 20 4B B2 4A 20 A4 20 55 28 31 31 |..... K.J . U(11|
000012F0: 29 20 A9 20 53 28 31 31 29 00 13 1B AE 06 81 20 |) . S(11)...... |
00001300: 4C B2 4B 20 A4 20 55 28 31 32 29 20 A9 20 53 28 |L.K . U(12) . S(|
00001310: 31 32 29 00 2D 1B B8 06 81 20 4D B2 4C 20 A4 20 |12).-.... M.L . |
00001320: 55 28 31 33 29 20 A9 20 53 28 31 33 29 00 39 1B |U(13) . S(13).9.|
00001330: C2 06 4A 4A B2 4A 4A AA 31 00 4C 1B CC 06 8B 20 |..JJ.JJ.1.L.... |
00001340: 4A 4A B3 B2 4D 20 A7 20 31 38 31 30 00 58 1B D6 |JJ..M . 1810.X..|
00001350: 06 54 B2 58 28 4A 4A 29 00 67 1B E0 06 58 28 4A |.T.X(JJ).g...X(J|
00001360: 4A 29 B2 58 28 4D 29 00 72 1B EA 06 58 28 4D 29 |J).X(M).r...X(M)|
00001370: B2 54 00 7E 1B F4 06 54 B2 59 28 4A 4A 29 00 8D |.T.~...T.Y(JJ)..|
00001380: 1B FE 06 59 28 4A 4A 29 B2 59 28 4D 29 00 98 1B |...Y(JJ).Y(M)...|
00001390: 08 07 59 28 4D 29 B2 54 00 9E 1B 12 07 3A 00 B2 |..Y(M).T.....:..|
000013A0: 1B 1C 07 82 20 4D 2C 4C 2C 4B 2C 4A 2C 49 2C 48 |.... M,L,K,J,I,H|
000013B0: 2C 47 00 BF 1B 62 07 46 B2 46 AA 53 28 36 29 00 |,G...b.F.F.S(6).|
000013C0: D4 1B 6C 07 8B 20 46 B3 B2 55 28 36 29 20 A7 20 |..l.. F..U(6) . |
000013D0: 31 36 36 30 00 E1 1B 76 07 45 B2 45 AA 53 28 35 |1660...v.E.E.S(5|
000013E0: 29 00 F6 1B 80 07 8B 20 45 B3 B2 55 28 35 29 20 |)...... E..U(5) |
000013F0: A7 20 31 36 35 30 00 03 1C 8A 07 44 B2 44 AA 53 |. 1650.....D.D.S|
00001400: 28 34 29 00 18 1C 94 07 8B 20 44 B3 B2 55 28 34 |(4)...... D..U(4|
00001410: 29 20 A7 20 31 36 34 30 00 25 1C 9E 07 43 B2 43 |) . 1640.%...C.C|
00001420: AA 53 28 33 29 00 3A 1C A8 07 8B 20 43 B3 B2 55 |.S(3).:.... C..U|
00001430: 28 53 29 20 A7 20 31 36 33 30 00 47 1C B2 07 42 |(S) . 1630.G...B|
00001440: B2 42 AA 53 28 32 29 00 5C 1C BC 07 8B 20 42 B3 |.B.S(2).\.... B.|
00001450: B2 55 28 32 29 20 A7 20 31 36 32 30 00 66 1C C6 |.U(2) . 1620.f..|
00001460: 07 41 B2 41 AA 31 00 79 1C D0 07 8B 20 41 B3 B2 |.A.A.1.y.... A..|
00001470: 41 4C 20 A7 20 31 36 31 30 00 8E 1C DA 07 81 20 |AL . 1610...... |
00001480: 53 4C B2 31 20 A4 20 28 4E AB 32 29 AD 32 00 A4 |SL.1 . (N.2).2..|
00001490: 1C E4 07 42 43 B2 4E AA 31 AB 53 4C 3A 46 43 B2 |...BC.N.1.SL:FC.|
000014A0: 53 4C AA 31 00 BA 1C EE 07 54 58 B2 58 28 46 43 |SL.1.....TX.X(FC|
000014B0: 29 3A 54 59 B2 59 28 46 43 29 00 D6 1C F8 07 58 |):TY.Y(FC).....X|
000014C0: 28 46 43 29 B2 58 28 42 43 29 3A 59 28 46 43 29 |(FC).X(BC):Y(FC)|
000014D0: B2 59 28 42 43 29 00 EC 1C 02 08 58 28 42 43 29 |.Y(BC).....X(BC)|
000014E0: B2 54 58 3A 59 28 42 43 29 B2 54 59 00 F5 1C 0C |.TX:Y(BC).TY....|
000014F0: 08 82 20 53 4C 00 04 1D 16 08 8B 20 49 54 B1 30 |.. SL...... IT.0|
00001500: 20 A7 20 8E 00 12 1D 20 08 81 20 49 B2 31 20 A4 | . .... .. I.1 .|
00001510: 20 4E 00 22 1D 2A 08 58 28 49 29 B2 58 28 49 29 | N.".*.X(I).X(I)|
00001520: AD 4E 00 33 1D 34 08 59 28 49 29 B2 AB 59 28 49 |.N.3.4.Y(I)..Y(I|
00001530: 29 AD 4E 00 3A 1D 3E 08 82 49 00 40 1D 48 08 8E |).N.:.>..I.@.H..|
00001540: 00 65 1D 52 08 8F 20 43 4F 4E 56 45 52 54 20 49 |.e.R.. CONVERT I|
00001550: 4E 54 4F 20 41 4D 50 4C 49 54 55 44 45 20 26 20 |NTO AMPLITUDE & |
00001560: 41 4E 47 4C 45 00 89 1D 5C 08 99 22 2E 2E 2E 46 |ANGLE...\.."...F|
00001570: 49 4E 44 49 4E 47 20 41 4D 50 4C 49 54 55 44 45 |INDING AMPLITUDE|
00001580: 20 26 20 41 4E 47 4C 45 22 00 97 1D 66 08 81 20 | & ANGLE"...f.. |
00001590: 44 B2 31 20 A4 20 4E 00 A5 1D 70 08 81 20 45 B2 |D.1 . N...p.. E.|
000015A0: 31 20 A4 20 4E 00 CF 1D 7A 08 41 50 B2 BA 28 41 |1 . N...z.AP..(A|
000015B0: 52 28 44 2C 45 29 AC 41 52 28 44 2C 45 29 AA 41 |R(D,E).AR(D,E).A|
000015C0: 49 28 44 2C 45 29 AC 41 49 28 44 2C 45 29 29 00 |I(D,E).AI(D,E)).|
000015D0: E1 1D 84 08 8B 20 41 50 B2 30 20 A7 20 32 33 33 |..... AP.0 . 233|
000015E0: 30 00 F9 1D 8E 08 8B 20 41 52 28 44 2C 45 29 B3 |0...... AR(D,E).|
000015F0: B1 30 20 A7 20 32 32 33 30 00 13 1E 98 08 8B 20 |.0 . 2230...... |
00001600: 41 49 28 44 2C 45 29 B3 30 20 A7 20 50 41 B2 AB |AI(D,E).0 . PA..|
00001610: FF AD 32 00 2C 1E A2 08 8B 20 41 49 28 44 2C 45 |..2.,.... AI(D,E|
00001620: 29 B1 30 20 A7 20 50 41 B2 FF AD 32 00 37 1E AC |).0 . PA...2.7..|
00001630: 08 89 20 32 33 32 30 00 4F 1E B6 08 8B 20 41 49 |.. 2320.O.... AI|
00001640: 28 44 2C 45 29 B3 B1 30 20 A7 20 32 32 37 30 00 |(D,E)..0 . 2270.|
00001650: 69 1E C0 08 8B 20 41 52 28 44 2C 45 29 B3 30 20 |i.... AR(D,E).0 |
00001660: 54 48 45 20 4E 50 41 B2 FF 00 7F 1E CA 08 8B 20 |THE NPA........ |
00001670: 41 52 28 44 2C 45 29 B1 30 20 A7 50 41 B2 30 00 |AR(D,E).0 .PA.0.|
00001680: 8A 1E D4 08 89 20 32 33 32 30 00 A4 1E DE 08 50 |..... 2320.....P|
00001690: 41 B2 C1 28 41 49 28 44 2C 45 29 AD 41 52 28 44 |A..(AI(D,E).AR(D|
000016A0: 2C 45 29 29 00 C7 1E E8 08 8B 20 41 52 28 44 2C |,E))...... AR(D,|
000016B0: 45 29 B1 30 20 AF 20 41 49 28 44 2C 45 29 B1 30 |E).0 . AI(D,E).0|
000016C0: 20 A7 50 41 B2 50 41 00 EC 1E F2 08 8B 20 41 52 | .PA.PA...... AR|
000016D0: 28 44 2C 45 29 B3 30 20 AF 20 41 49 28 44 2C 45 |(D,E).0 . AI(D,E|
000016E0: 29 B1 30 20 A7 50 41 B2 FF AA 50 41 00 11 1F FC |).0 .PA...PA....|
000016F0: 08 8B 20 41 52 28 44 2C 45 29 B3 30 20 AF 20 41 |.. AR(D,E).0 . A|
00001700: 49 28 44 2C 45 29 B3 30 20 A7 50 41 B2 50 41 AB |I(D,E).0 .PA.PA.|
00001710: FF 00 34 1F 06 09 8B 20 41 52 28 44 2C 45 29 B1 |..4.... AR(D,E).|
00001720: 30 20 AF 20 41 49 28 44 2C 45 29 B3 30 20 A7 50 |0 . AI(D,E).0 .P|
00001730: 41 B2 50 41 00 4F 1F 10 09 41 52 28 44 2C 45 29 |A.PA.O...AR(D,E)|
00001740: B2 41 50 3A 20 41 49 28 44 2C 45 29 B2 50 41 00 |.AP: AI(D,E).PA.|
00001750: 59 1F 1A 09 82 20 45 2C 44 00 5F 1F 2E 09 8E 00 |Y.... E,D._.....|
00001760: 65 1F 38 09 3A 00 8B 1F 42 09 8F 20 41 4D 50 4C |e.8.:...B.. AMPL|
00001770: 49 54 55 44 45 20 4E 4F 52 4D 41 4C 49 5A 41 54 |ITUDE NORMALIZAT|
00001780: 49 4F 4E 20 52 4F 55 54 49 4E 45 00 A8 1F 4C 09 |ION ROUTINE...L.|
00001790: 8F 20 46 49 4E 44 20 4C 41 52 47 45 53 54 20 41 |. FIND LARGEST A|
000017A0: 4D 50 4C 49 54 55 44 45 00 B7 1F 56 09 4C 41 B2 |MPLITUDE...V.LA.|
000017B0: 41 52 28 31 2C 31 29 00 C5 1F 60 09 81 20 44 B2 |AR(1,1)...`.. D.|
000017C0: 31 20 A4 20 4E 00 D3 1F 6A 09 81 20 45 B2 31 20 |1 . N...j.. E.1 |
000017D0: A4 20 4E 00 EE 1F 74 09 8B 41 52 28 44 2C 45 29 |. N...t..AR(D,E)|
000017E0: B1 4C 41 A7 4C 41 B2 41 52 28 44 2C 45 29 00 F8 |.LA.LA.AR(D,E)..|
000017F0: 1F 7E 09 82 20 45 2C 44 00 0D 20 92 09 8B 20 49 |.~.. E,D.. ... I|
00001800: 50 24 B2 22 52 22 20 A7 20 32 38 32 30 00 30 20 |P$."R" . 2820.0 |
00001810: 9C 09 99 22 54 48 45 20 4C 41 52 47 45 53 54 20 |..."THE LARGEST |
00001820: 41 4D 50 4C 49 54 55 44 45 20 49 53 22 3B 4C 41 |AMPLITUDE IS";LA|
00001830: 00 53 20 A6 09 8F 20 43 48 45 43 4B 20 41 4D 50 |.S ... CHECK AMP|
00001840: 4C 49 54 55 44 45 20 44 49 53 54 52 49 42 55 54 |LITUDE DISTRIBUT|
00001850: 49 4F 4E 00 74 20 B0 09 50 38 B2 30 3A 20 50 36 |ION.t ..P8.0: P6|
00001860: B2 30 3A 20 50 34 B2 30 3A 20 50 32 B2 30 3A 20 |.0: P4.0: P2.0: |
00001870: 50 31 B2 30 00 A5 20 BA 09 4E 38 B2 2E 38 AC 4C |P1.0.. ..N8..8.L|
00001880: 41 3A 4E 36 B2 2E 36 AC 4C 41 3A 4E 34 B2 2E 34 |A:N6..6.LA:N4..4|
00001890: AC 4C 41 3A 4E 32 B2 2E 32 AC 4C 41 3A 4E 31 B2 |.LA:N2..2.LA:N1.|
000018A0: 2E 31 AC 4C 41 00 AE 20 C4 09 99 22 20 22 00 BC |.1.LA.. ..." "..|
000018B0: 20 CE 09 81 20 44 B2 31 20 A4 20 4E 00 CA 20 D8 | ... D.1 . N.. .|
000018C0: 09 81 20 45 B2 31 20 A4 20 4E 00 E6 20 E2 09 8B |.. E.1 . N.. ...|
000018D0: 20 41 52 28 44 2C 45 29 B3 B2 4E 38 20 A7 20 50 | AR(D,E)..N8 . P|
000018E0: 38 B2 50 38 AA 31 00 02 21 EC 09 8B 20 41 52 28 |8.P8.1..!... AR(|
000018F0: 44 2C 45 29 B3 B2 4E 36 20 A7 20 50 36 B2 50 36 |D,E)..N6 . P6.P6|
00001900: AA 31 00 1E 21 F6 09 8B 20 41 52 28 44 2C 45 29 |.1..!... AR(D,E)|
00001910: B3 B2 4E 34 20 A7 20 50 34 B2 50 34 AA 31 00 3A |..N4 . P4.P4.1.:|
00001920: 21 00 0A 8B 20 41 52 28 44 2C 45 29 B3 B2 4E 32 |!... AR(D,E)..N2|
00001930: 20 A7 20 50 32 B2 50 32 AA 31 00 56 21 0A 0A 8B | . P2.P2.1.V!...|
00001940: 20 41 52 28 44 2C 45 29 B3 B2 4E 31 20 A7 20 50 | AR(D,E)..N1 . P|
00001950: 31 B2 50 31 AA 31 00 60 21 14 0A 82 20 45 2C 44 |1.P1.1.`!... E,D|
00001960: 00 9A 21 28 0A 50 38 B2 B5 28 50 38 AD 31 30 32 |..!(.P8..(P8.102|
00001970: 34 AC 31 30 30 29 3A 50 36 B2 B5 28 50 36 AD 31 |4.100):P6..(P6.1|
00001980: 30 32 34 AC 31 30 30 29 3A 50 34 B2 B5 28 50 34 |024.100):P4..(P4|
00001990: AD 31 30 32 34 AC 31 30 30 29 00 C2 21 32 0A 50 |.1024.100)..!2.P|
000019A0: 32 B2 B5 28 50 32 AD 31 30 32 34 AC 31 30 30 29 |2..(P2.1024.100)|
000019B0: 3A 50 31 B2 B5 28 50 31 AD 31 30 32 34 AC 31 30 |:P1..(P1.1024.10|
000019C0: 30 29 00 E3 21 3C 0A 99 22 38 30 25 20 4F 46 20 |0)..!<.."80% OF |
000019D0: 54 48 45 20 4D 41 58 2E 20 41 4D 50 20 49 53 22 |THE MAX. AMP IS"|
000019E0: 3B 4E 38 00 0E 22 46 0A 99 20 50 38 3B 22 25 20 |;N8.."F.. P8;"% |
000019F0: 4F 46 20 41 4D 50 27 53 20 41 52 45 20 45 51 55 |OF AMP'S ARE EQU|
00001A00: 41 4C 20 4F 52 20 53 4D 41 4C 4C 45 52 22 00 17 |AL OR SMALLER"..|
00001A10: 22 50 0A 99 22 20 22 00 38 22 5A 0A 99 22 36 30 |"P.." ".8"Z.."60|
00001A20: 25 20 4F 46 20 54 48 45 20 4D 41 58 2E 20 41 4D |% OF THE MAX. AM|
00001A30: 50 20 49 53 22 3B 4E 36 00 62 22 64 0A 99 50 36 |P IS";N6.b"d..P6|
00001A40: 3B 22 25 20 4F 46 20 41 4D 50 27 53 20 41 52 45 |;"% OF AMP'S ARE|
00001A50: 20 45 51 55 41 4C 20 4F 52 20 53 4D 41 4C 4C 45 | EQUAL OR SMALLE|
00001A60: 52 22 00 6B 22 6E 0A 99 22 20 22 00 8C 22 78 0A |R".k"n.." ".."x.|
00001A70: 99 22 34 30 25 20 4F 46 20 54 48 45 20 4D 41 58 |."40% OF THE MAX|
00001A80: 2E 20 41 4D 50 20 49 53 22 3B 4E 34 00 B6 22 82 |. AMP IS";N4..".|
00001A90: 0A 99 50 34 3B 22 25 20 4F 46 20 41 4D 50 27 53 |..P4;"% OF AMP'S|
00001AA0: 20 41 52 45 20 45 51 55 41 4C 20 4F 52 20 53 4D | ARE EQUAL OR SM|
00001AB0: 41 4C 4C 45 52 22 00 BF 22 8C 0A 99 22 20 22 00 |ALLER".."..." ".|
00001AC0: E0 22 96 0A 99 22 32 30 25 20 4F 46 20 54 48 45 |."..."20% OF THE|
00001AD0: 20 4D 41 58 2E 20 41 4D 50 20 49 53 22 3B 4E 32 | MAX. AMP IS";N2|
00001AE0: 00 0A 23 A0 0A 99 50 32 3B 22 25 20 4F 46 20 41 |..#...P2;"% OF A|
00001AF0: 4D 50 27 53 20 41 52 45 20 45 51 55 41 4C 20 4F |MP'S ARE EQUAL O|
00001B00: 52 20 53 4D 41 4C 4C 45 52 22 00 13 23 AA 0A 99 |R SMALLER"..#...|
00001B10: 22 20 22 00 34 23 B4 0A 99 22 31 30 25 20 4F 46 |" ".4#..."10% OF|
00001B20: 20 54 48 45 20 4D 41 58 2E 20 41 4D 50 20 49 53 | THE MAX. AMP IS|
00001B30: 22 3B 4E 31 00 5E 23 BE 0A 99 50 31 3B 22 25 20 |";N1.^#...P1;"% |
00001B40: 4F 46 20 41 4D 50 27 53 20 41 52 45 20 45 51 55 |OF AMP'S ARE EQU|
00001B50: 41 4C 20 4F 52 20 53 4D 41 4C 4C 45 52 22 00 67 |AL OR SMALLER".g|
00001B60: 23 C8 0A 99 22 20 22 00 7C 23 D2 0A 99 22 54 49 |#..." ".|#..."TI|
00001B70: 4D 45 20 49 53 20 20 22 3B 54 49 24 00 85 23 DC |ME IS ";TI$..#.|
00001B80: 0A 99 22 20 22 00 B4 23 E6 0A 85 22 57 48 41 54 |.." "..#..."WHAT|
00001B90: 20 4E 4F 2E 20 44 4F 20 59 4F 55 20 57 41 4E 54 | NO. DO YOU WANT|
00001BA0: 20 54 4F 20 4E 4F 52 4D 41 4C 49 5A 45 20 54 4F | TO NORMALIZE TO|
00001BB0: 22 3B 4E 4C 00 BD 23 F0 0A 99 22 20 22 00 EC 23 |";NL..#..." "..#|
00001BC0: FA 0A 85 22 57 48 49 43 48 20 4D 45 41 4E 53 20 |..."WHICH MEANS |
00001BD0: 57 48 41 54 20 25 20 4F 46 20 44 41 54 41 20 54 |WHAT % OF DATA T|
00001BE0: 52 55 4E 43 41 54 45 44 22 3B 50 54 00 FF 23 04 |RUNCATED";PT..#.|
00001BF0: 0B 8B 49 50 24 B2 22 52 22 A7 4E 4C B2 4C 41 00 |..IP$."R".NL.LA.|
00001C00: 0D 24 0E 0B 81 20 44 B2 31 20 A4 20 4E 00 1B 24 |.$... D.1 . N..$|
00001C10: 18 0B 81 20 45 B2 31 20 A4 20 4E 00 4B 24 22 0B |... E.1 . N.K$".|
00001C20: 41 52 28 44 2C 45 29 B2 41 52 28 44 2C 45 29 AD |AR(D,E).AR(D,E).|
00001C30: 4E 4C 3A 20 8B 20 41 52 28 44 2C 45 29 B1 31 20 |NL: . AR(D,E).1 |
00001C40: A7 20 41 52 28 44 2C 45 29 B2 31 00 55 24 2C 0B |. AR(D,E).1.U$,.|
00001C50: 82 20 45 2C 44 00 5B 24 40 0B 8E 00 61 24 4A 0B |. E,D.[$@...a$J.|
00001C60: 3A 00 74 24 54 0B 8F 20 50 4C 4F 54 20 52 4F 55 |:.t$T.. PLOT ROU|
00001C70: 54 49 4E 45 00 92 24 5E 0B 8F 20 52 45 41 44 20 |TINE..$^.. READ |
00001C80: 49 4E 20 50 4C 4F 54 20 43 48 41 52 41 43 54 45 |IN PLOT CHARACTE|
00001C90: 52 53 00 A7 24 68 0B 8B 20 48 50 24 B2 22 4E 22 |RS..$h.. HP$."N"|
00001CA0: 20 A7 20 33 37 32 30 00 CA 24 72 0B 99 22 2E 2E | . 3720..$r.."..|
00001CB0: 2E 44 45 46 49 4E 49 4E 47 20 50 4C 4F 54 20 43 |.DEFINING PLOT C|
00001CC0: 48 41 52 41 43 54 45 52 53 22 00 F9 24 7C 0B 81 |HARACTERS"..$|..|
00001CD0: 20 49 B2 31 20 A4 20 38 3A 45 28 49 29 B2 32 AE | I.1 . 8:E(I).2.|
00001CE0: 49 AB 31 3A 45 28 49 AA 38 29 B2 45 28 49 29 AC |I.1:E(I.8).E(I).|
00001CF0: 32 AE 28 38 AB 49 29 3A 82 00 1F 25 86 0B 81 20 |2.(8.I):...%... |
00001D00: 49 B2 31 20 A4 20 31 31 3A 20 81 20 4A B2 31 20 |I.1 . 11: . J.1 |
00001D10: A4 20 31 35 3A 20 81 20 4B B2 31 20 A4 20 38 00 |. 15: . K.1 . 8.|
00001D20: 48 25 90 0B 43 48 B2 30 3A 20 8B 20 4B B3 28 31 |H%..CH.0: . K.(1|
00001D30: 33 AB 49 29 20 AF 20 4B B1 28 38 AB 49 29 20 A7 |3.I) . K.(8.I) .|
00001D40: 20 43 48 B2 45 28 4A 29 00 64 25 9A 0B 43 48 24 | CH.E(J).d%..CH$|
00001D50: 28 49 2C 4A 29 B2 43 48 24 28 49 2C 4A 29 AA C7 |(I,J).CH$(I,J)..|
00001D60: 28 43 48 29 00 70 25 A4 0B 82 20 4B 2C 4A 2C 49 |(CH).p%... K,J,I|
00001D70: 00 76 25 7E 0E 3A 00 82 25 88 0E 9F 20 32 2C 34 |.v%~.:..%... 2,4|
00001D80: 2C 35 00 97 25 92 0E 9F 20 36 2C 34 2C 36 3A 98 |,5..%... 6,4,6:.|
00001D90: 36 2C C7 28 32 31 29 00 B0 25 9C 0E 8F 20 4D 41 |6,.(21)..%... MA|
00001DA0: 49 4E 20 50 4C 4F 54 54 49 4E 47 20 4C 4F 4F 50 |IN PLOTTING LOOP|
00001DB0: 00 B9 25 A6 0E 54 42 B2 30 00 D4 25 B0 0E 4E 46 |..%..TB.0..%..NF|
00001DC0: B2 32 3A 20 8B 20 48 50 24 B2 22 4E 22 20 A7 20 |.2: . HP$."N" . |
00001DD0: 4E 46 B2 31 00 E2 25 BA 0E 81 20 44 B2 31 20 A4 |NF.1..%... D.1 .|
00001DE0: 20 4E 00 F1 25 C4 0E 81 20 46 B2 31 20 A4 20 4E | N..%... F.1 . N|
00001DF0: 46 00 FF 25 CE 0E 81 20 45 B2 31 20 A4 20 4E 00 |F..%... E.1 . N.|
00001E00: 1F 26 D8 0E 8F 20 44 45 54 45 52 4D 49 4E 45 20 |.&... DETERMINE |
00001E10: 57 48 49 43 48 20 43 48 41 52 41 43 54 45 52 00 |WHICH CHARACTER.|
00001E20: 3B 26 E2 0E 8F 20 46 49 4E 44 20 43 48 41 52 41 |;&... FIND CHARA|
00001E30: 43 54 45 52 20 48 45 49 47 48 54 00 4C 26 EC 0E |CTER HEIGHT.L&..|
00001E40: 48 54 B2 38 AC 41 52 28 44 2C 45 29 00 5C 26 F6 |HT.8.AR(D,E).\&.|
00001E50: 0E 44 48 B2 48 54 AB B5 28 48 54 29 00 7D 26 00 |.DH.HT..(HT).}&.|
00001E60: 0F 8B 20 44 48 B3 2E 31 32 35 AD 32 20 A7 20 48 |.. DH..125.2 . H|
00001E70: 54 B2 B5 28 48 54 29 3A 89 33 38 36 30 00 8C 26 |T..(HT):.3860..&|
00001E80: 0A 0F 48 54 B2 B5 28 48 54 29 AA 31 00 A9 26 14 |..HT..(HT).1..&.|
00001E90: 0F 8B 20 46 B2 4E 46 20 A7 20 41 52 28 44 2C 45 |.. F.NF . AR(D,E|
00001EA0: 29 B2 48 54 AD 38 AC 4E 4C 00 BA 26 1E 0F 8F 20 |).HT.8.NL..&... |
00001EB0: 46 49 4E 44 20 50 48 41 53 45 00 D2 26 28 0F 43 |FIND PHASE..&(.C|
00001EC0: 50 B2 50 51 AC 41 49 28 44 2C 45 29 AD 28 32 AC |P.PQ.AI(D,E).(2.|
00001ED0: FF 29 00 E1 26 32 0F 51 50 B2 B5 28 50 51 AD 32 |.)..&2.QP..(PQ.2|
00001EE0: 29 00 FD 26 3C 0F 8B B6 28 43 50 29 AB B5 28 B6 |)..&<...(CP)..(.|
00001EF0: 28 43 50 29 29 B1 2E 35 A7 33 39 35 30 00 30 27 |(CP))..5.3950.0'|
00001F00: 46 0F 8B 20 43 50 B3 30 20 A7 20 43 50 B2 B5 28 |F.. CP.0 . CP..(|
00001F10: 43 50 29 3A 8B 20 46 B2 4E 46 20 A7 20 41 49 28 |CP):. F.NF . AI(|
00001F20: 44 2C 45 29 B2 28 43 50 AA 31 29 AC FF AD 51 50 |D,E).(CP.1)...QP|
00001F30: 00 66 27 50 0F 8B 20 43 50 B1 B2 30 20 A7 20 43 |.f'P.. CP..0 . C|
00001F40: 50 B2 B5 28 43 50 29 AA 31 3A 8B 20 46 B2 4E 46 |P..(CP).1:. F.NF|
00001F50: 20 A7 20 41 49 28 44 2C 45 29 B2 28 43 50 AB 31 | . AI(D,E).(CP.1|
00001F60: 29 AC FF AD 51 50 00 7A 27 5A 0F 8B 20 48 50 24 |)...QP.z'Z.. HP$|
00001F70: B2 22 4E 22 A7 20 34 32 39 30 00 85 27 64 0F 89 |."N". 4290..'d..|
00001F80: 20 33 39 38 30 00 BA 27 6E 0F 8B 20 43 50 B3 30 | 3980..'n.. CP.0|
00001F90: 20 A7 20 43 50 B2 B5 28 43 50 29 AB 31 3A 8B 20 | . CP..(CP).1:. |
00001FA0: 46 B2 4E 46 20 A7 20 41 49 28 44 2C 45 29 B2 28 |F.NF . AI(D,E).(|
00001FB0: 43 50 AA 31 29 AC FF AD 51 50 00 ED 27 78 0F 8B |CP.1)...QP..'x..|
00001FC0: 20 43 50 B1 30 A7 20 43 50 B2 B5 28 43 50 29 AA | CP.0. CP..(CP).|
00001FD0: 32 3A 8B 20 46 B2 4E 46 A7 20 41 49 28 44 2C 45 |2:. F.NF. AI(D,E|
00001FE0: 29 B2 28 43 50 AB 31 29 AC FF AD 51 50 00 02 28 |).(CP.1)...QP..(|
00001FF0: 82 0F 8B 20 48 50 24 B2 22 4E 22 20 A7 20 34 32 |... HP$."N" . 42|
00002000: 39 30 00 14 28 8C 0F 8B 20 46 B3 B1 31 20 A7 20 |90..(... F..1 . |
00002010: 34 32 33 30 00 37 28 96 0F 8B 20 48 54 B2 30 20 |4230.7(... HT.0 |
00002020: A7 20 98 34 2C 22 20 20 22 3B C7 28 31 34 31 29 |. .4," ";.(141)|
00002030: 3B 3A 89 34 32 36 30 00 4B 28 A0 0F 8B 20 B6 28 |;:.4260.K(... .(|
00002040: 43 50 29 B1 32 A7 20 34 31 33 30 00 5E 28 AA 0F |CP).2. 4130.^(..|
00002050: 8B 20 43 50 B1 AB 32 20 A7 20 34 30 35 30 00 81 |. CP..2 . 4050..|
00002060: 28 B4 0F 98 32 2C 43 48 24 28 33 2C 48 54 29 3A |(...2,CH$(3,HT):|
00002070: 98 34 2C C7 28 32 35 34 29 3B C7 28 31 34 31 29 |.4,.(254);.(141)|
00002080: 3B 00 B2 28 BE 0F 54 42 B2 54 42 AA 31 3A 98 32 |;..(..TB.TB.1:.2|
00002090: 2C 43 48 24 28 31 31 2C 48 54 29 3A 98 34 2C A3 |,CH$(11,HT):.4,.|
000020A0: 54 42 29 3B C7 28 32 35 34 29 3B C7 28 31 34 31 |TB);.(254);.(141|
000020B0: 29 3B 00 BD 28 C8 0F 89 20 34 32 36 30 00 CE 28 |);..(... 4260..(|
000020C0: D2 0F 8B 20 43 50 B1 31 A7 20 34 30 39 30 00 F1 |... CP.1. 4090..|
000020D0: 28 DC 0F 98 32 2C 43 48 24 28 32 2C 48 54 29 3A |(...2,CH$(2,HT):|
000020E0: 98 34 2C C7 28 32 35 34 29 3B C7 28 31 34 31 29 |.4,.(254);.(141)|
000020F0: 3B 00 22 29 E6 0F 54 42 B2 54 42 AA 31 3A 98 32 |;.")..TB.TB.1:.2|
00002100: 2C 43 48 24 28 31 30 2C 48 54 29 3A 98 34 2C A3 |,CH$(10,HT):.4,.|
00002110: 54 42 29 3B C7 28 32 35 34 29 3B C7 28 31 34 31 |TB);.(254);.(141|
00002120: 29 3B 00 2D 29 F0 0F 89 20 34 32 36 30 00 50 29 |);.-)... 4260.P)|
00002130: FA 0F 98 32 2C 43 48 24 28 31 2C 48 54 29 3A 98 |...2,CH$(1,HT):.|
00002140: 34 2C C7 28 32 35 34 29 3B C7 28 31 34 31 29 3B |4,.(254);.(141);|
00002150: 00 80 29 04 10 54 42 B2 54 42 AA 31 3A 98 32 2C |..)..TB.TB.1:.2,|
00002160: 43 48 24 28 39 2C 48 54 29 3A 98 34 2C A3 54 42 |CH$(9,HT):.4,.TB|
00002170: 29 3B C7 28 32 35 34 29 3B C7 28 31 34 31 29 3B |);.(254);.(141);|
00002180: 00 B0 29 0E 10 54 42 B2 54 42 AA 31 3A 98 32 2C |..)..TB.TB.1:.2,|
00002190: 43 48 24 28 39 2C 48 54 29 3A 98 34 2C A3 54 42 |CH$(9,HT):.4,.TB|
000021A0: 29 3B C7 28 32 35 34 29 3B C7 28 31 34 31 29 3B |);.(254);.(141);|
000021B0: 00 BB 29 18 10 89 20 34 32 36 30 00 CD 29 22 10 |..)... 4260..)".|
000021C0: 8B 20 43 50 B3 30 20 A7 20 34 31 38 30 00 DF 29 |. CP.0 . 4180..)|
000021D0: 2C 10 43 50 B2 43 50 AA 31 31 AB 43 50 AC 32 00 |,.CP.CP.11.CP.2.|
000021E0: F2 29 36 10 98 34 2C 22 20 22 3B C7 28 31 34 31 |.)6..4," ";.(141|
000021F0: 29 3B 00 23 2A 40 10 54 42 B2 54 42 AA 31 3A 98 |);.#*@.TB.TB.1:.|
00002200: 32 2C 43 48 24 28 43 50 2C 48 54 29 3A 98 34 2C |2,CH$(CP,HT):.4,|
00002210: A3 54 42 29 3B C7 28 32 35 34 29 3B C7 28 31 34 |.TB);.(254);.(14|
00002220: 31 29 3B 00 2D 2A 4A 10 89 34 32 36 30 00 3F 2A |1);.-*J..4260.?*|
00002230: 54 10 8B 20 43 50 B1 30 20 A7 20 34 32 33 30 00 |T.. CP.0 . 4230.|
00002240: 4E 2A 5E 10 43 50 B2 B6 28 43 50 29 AA 31 00 72 |N*^.CP..(CP).1.r|
00002250: 2A 68 10 98 32 2C 43 48 24 28 43 50 2C 48 54 29 |*h..2,CH$(CP,HT)|
00002260: 3A 98 34 2C C7 28 32 35 34 29 3B C7 28 31 34 31 |:.4,.(254);.(141|
00002270: 29 3B 00 92 2A 72 10 54 42 B2 54 42 AA 31 3A 98 |);..*r.TB.TB.1:.|
00002280: 34 2C A3 54 42 29 3B 22 20 22 3B C7 28 31 34 31 |4,.TB);" ";.(141|
00002290: 29 3B 00 9D 2A 7C 10 89 20 34 32 36 30 00 AF 2A |);..*|.. 4260..*|
000022A0: 86 10 8B 20 48 54 B2 30 20 A7 20 33 39 39 30 00 |... HT.0 . 3990.|
000022B0: C4 2A 90 10 8B 20 48 54 B3 38 20 A7 20 48 54 B2 |.*... HT.8 . HT.|
000022C0: 48 54 AA 38 00 CF 2A 9A 10 89 20 33 39 39 30 00 |HT.8..*... 3990.|
000022D0: EC 2A A4 10 8B 20 45 B2 4E 20 A7 20 98 34 2C C7 |.*... E.N . .4,.|
000022E0: 28 31 34 31 29 3B C7 28 31 33 29 3B 00 04 2B AE |(141);.(13);..+.|
000022F0: 10 54 42 B2 32 AC 45 3A 8B 20 45 B2 4E 20 A7 20 |.TB.2.E:. E.N . |
00002300: 54 42 B2 30 00 1A 2B B8 10 8B 20 45 B3 B1 4E 20 |TB.0..+... E..N |
00002310: A7 20 98 34 2C A3 54 42 29 3B 00 26 2B C2 10 82 |. .4,.TB);.&+...|
00002320: 20 45 2C 46 2C 44 00 2C 2B E0 10 8E 00 32 2B EA | E,F,D.,+....2+.|
00002330: 10 3A 00 7B 2B F4 10 8F 20 46 49 4E 44 20 52 45 |.:.{+... FIND RE|
00002340: 41 4C 20 41 4E 44 20 49 4D 41 47 49 4E 41 52 59 |AL AND IMAGINARY|
00002350: 20 43 4F 4D 50 4F 4E 45 4E 54 53 20 46 52 4F 4D | COMPONENTS FROM|
00002360: 20 54 52 55 4E 43 41 54 45 44 20 26 20 51 55 41 | TRUNCATED & QUA|
00002370: 4E 54 49 5A 45 44 20 44 41 54 41 00 94 2B FE 10 |NTIZED DATA..+..|
00002380: 81 20 44 B2 31 20 A4 20 4E 3A 20 81 20 45 B2 31 |. D.1 . N: . E.1|
00002390: 20 A4 20 4E 00 A3 2B 12 11 41 50 B2 41 52 28 44 | . N..+..AP.AR(D|
000023A0: 2C 45 29 00 BD 2B 1C 11 41 52 28 44 2C 45 29 B2 |,E)..+..AR(D,E).|
000023B0: 41 50 AC BE 28 41 49 28 44 2C 45 29 29 00 D7 2B |AP..(AI(D,E))..+|
000023C0: 26 11 41 49 28 44 2C 45 29 B2 41 50 AC BF 28 41 |&.AI(D,E).AP..(A|
000023D0: 49 28 44 2C 45 29 29 00 E1 2B 30 11 82 20 45 2C |I(D,E))..+0.. E,|
000023E0: 44 00 E7 2B 44 11 8E 00 ED 2B 4E 11 3A 00 0E 2C |D..+D....+N.:..,|
000023F0: 58 11 8F 20 47 52 41 59 20 53 43 41 4C 45 20 50 |X.. GRAY SCALE P|
00002400: 49 43 54 55 52 45 20 52 4F 55 54 49 4E 45 00 19 |ICTURE ROUTINE..|
00002410: 2C 62 11 98 34 2C 22 20 22 00 27 2C 6C 11 81 20 |,b..4," ".',l.. |
00002420: 44 B2 31 20 A4 20 4E 00 34 2C 76 11 98 34 2C A3 |D.1 . N.4,v..4,.|
00002430: 32 33 29 3B 00 42 2C 80 11 81 20 45 B2 31 20 A4 |23);.B,... E.1 .|
00002440: 20 4E 00 6C 2C 8A 11 49 4E B2 BA 28 41 52 28 44 | N.l,..IN..(AR(D|
00002450: 2C 45 29 AC 41 52 28 44 2C 45 29 AA 41 49 28 44 |,E).AR(D,E).AI(D|
00002460: 2C 45 29 AC 41 49 28 44 2C 45 29 29 00 8D 2C 94 |,E).AI(D,E))..,.|
00002470: 11 41 46 B2 31 AD BA 28 49 52 AC 49 52 AA 49 49 |.AF.1..(IR.IR.II|
00002480: AC 49 49 29 3A 49 4E B2 41 46 AC 49 4E 00 9F 2C |.II):IN.AF.IN..,|
00002490: 9E 11 8B 20 49 4E B1 31 20 A7 20 49 4E B2 31 00 |... IN.1 . IN.1.|
000024A0: BA 2C A8 11 8B 20 49 4E B3 2E 31 20 A7 98 34 2C |.,... IN..1 ..4,|
000024B0: 22 20 22 3B 3A 89 34 35 39 30 00 D5 2C B2 11 8B |" ";:.4590..,...|
000024C0: 20 49 4E B3 2E 32 20 A7 98 34 2C 22 27 22 3B 3A | IN..2 ..4,"'";:|
000024D0: 89 34 35 39 30 00 F0 2C BC 11 8B 20 49 4E B3 2E |.4590..,... IN..|
000024E0: 34 20 A7 98 34 2C 22 3A 22 3B 3A 89 34 35 39 30 |4 ..4,":";:.4590|
000024F0: 00 0B 2D C6 11 8B 20 49 4E B3 2E 36 20 A7 98 34 |..-... IN..6 ..4|
00002500: 2C 22 2A 22 3B 3A 89 34 35 39 30 00 26 2D D0 11 |,"*";:.4590.&-..|
00002510: 8B 20 49 4E B3 2E 38 20 A7 98 34 2C 22 A6 22 3B |. IN..8 ..4,".";|
00002520: 3A 89 34 35 39 30 00 43 2D DA 11 8B 20 49 4E B3 |:.4590.C-... IN.|
00002530: 2E 39 20 A7 98 34 2C 22 12 2A 92 22 3B 3A 89 34 |.9 ..4,".*.";:.4|
00002540: 35 39 30 00 5A 2D E4 11 8B 20 49 4E B3 B2 31 20 |590.Z-... IN..1 |
00002550: A7 98 34 2C 22 12 20 92 22 3B 00 70 2D EE 11 8B |..4,". .";.p-...|
00002560: 20 45 B2 4E 20 A7 20 98 34 2C C7 28 31 33 29 3B | E.N . .4,.(13);|
00002570: 00 7A 2D F8 11 82 20 45 2C 44 00 85 2D 0C 12 98 |.z-... E,D..-...|
00002580: 34 2C 22 20 22 00 A7 2D 16 12 98 34 2C 22 49 4E |4," "..-...4,"IN|
00002590: 50 55 54 20 52 45 41 4C 20 41 4D 50 4C 49 54 55 |PUT REAL AMPLITU|
000025A0: 44 45 3A 22 3B 49 52 00 CE 2D 20 12 98 34 2C 22 |DE:";IR..- ..4,"|
000025B0: 49 4E 50 55 54 20 49 4D 41 47 49 4E 41 52 59 20 |INPUT IMAGINARY |
000025C0: 41 4D 50 4C 49 54 55 44 45 3A 22 3B 49 49 00 E8 |AMPLITUDE:";II..|
000025D0: 2D 2A 12 98 34 2C 22 50 48 41 53 45 20 41 4E 47 |-*..4,"PHASE ANG|
000025E0: 4C 45 3A 22 3B 49 50 24 00 16 2E 34 12 98 34 2C |LE:";IP$...4..4,|
000025F0: 22 4E 4F 2E 20 4F 46 20 50 48 41 53 45 20 51 55 |"NO. OF PHASE QU|
00002600: 41 4E 54 49 5A 41 54 49 4F 4E 20 4C 45 56 45 4C |ANTIZATION LEVEL|
00002610: 53 3A 22 3B 50 51 00 2B 2E 3E 12 8B 20 49 50 24 |S:";PQ.+.>.. IP$|
00002620: B2 22 52 22 20 A7 20 34 37 30 30 00 54 2E 48 12 |."R" . 4700.T.H.|
00002630: 98 34 2C 22 54 52 41 4E 53 46 4F 52 4D 20 4E 4F |.4,"TRANSFORM NO|
00002640: 52 4D 41 4C 49 5A 45 44 20 57 49 54 48 2E 2E 2E |RMALIZED WITH...|
00002650: 22 3B 4E 4C 00 8A 2E 52 12 98 34 2C 22 50 45 52 |";NL...R..4,"PER|
00002660: 43 45 4E 54 20 4F 46 20 54 52 41 4E 53 46 4F 52 |CENT OF TRANSFOR|
00002670: 4D 45 44 20 41 4D 50 27 53 20 54 52 55 4E 43 41 |MED AMP'S TRUNCA|
00002680: 54 45 44 2E 2E 2E 22 3B 50 54 00 90 2E 5C 12 8E |TED...";PT...\..|
00002690: 00 00 00 |... |
..+.... THIS PROGRAM MAKES BINARY HOLOGR
AMS.U.... BY: PATRICK HAWLEY, PORT ELGI
N, ON...... X(32),Y(32),S(13),U(13),AR(3
2,32),AI(32,32),CH$(11,15),E(16).....TI$
."000000":.4,4...(.IR.1: II.1.H.2.. N,IT
.Q.<.."."...F.."DO YOU WANT A HOLOGRAM P
LOT (Y/N)";HP$.(.P.."RANDOM OR CONSTANT
PHASE (R/C)";IP$.2.Z.PQ.13.@.D.. D.1 . N
.N.N.. E.1 . N.\.X.. AR(D,E).S...AI(D,E)
.AR(D,E).II.....AR(D,E).AR(D,E).IR......
IP$."C".200.H. .AR(D,E).(.1.2..(1))..(IR
.2.II.2).AR(D,E).....PM..(.1.3..(1))....
.. PM.0 . 170.....AI(D,E)..(IR.2.II.2.AR
(D,E).2).AI(D,E).PM.%.H.. E,D.0.... 32,1
.V.... 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0...... 0,0
,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0
,0,0,0,0,0,0,0,0,0,0...... 0,0,0,0,0,0,0
,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0
,0,0,0,0,0.H.... 0,0,0,0,0,0,0,0,1,1,1,0
,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0
...... 0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0
,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0.T.... 0,0
,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0
,0,0,1,1,0,0,0,0,0,0...".. 0,0,0,0,0,1,1
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1
,0,0,0,0,0.`.,.. 0,0,0,0,1,1,0,0,0,0,0,0
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0
...6.. 0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0
,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0...@.. 0,0
,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
,0,0,0,0,0,1,1,0,0,0.2.J.. 0,0,1,1,0,0,0
,0,0,0,1,1,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0
,0,1,1,0,0.X.T.. 0,0,1,1,0,0,0,0,0,0,1,1
,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,1,1,0,0
...^.. 0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0
,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0...H.. 0,1
,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
,0,0,0,0,0,0,0,1,1,0.J.R.. 0,1,1,0,0,0,0
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
,0,0,1,1,0...|.. 0,1,1,0,0,0,0,0,0,0,0,0
,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0
.V.... 0,1,1,0,0,0,1,1,0,0,0,0,0,0,0,1,1
,0,0,0,0,0,0,0,1,1,0,0,0,1,1,0...... 0,1
,1,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0
,0,0,1,1,0,0,0,1,1,0.B.... 0,1,1,0,0,0,0
,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0
,0,0,1,1,0...... 0,0,1,0,0,0,0,1,1,0,0,0
,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,1,0,0
...... 0,0,1,1,0,0,0,0,1,0,0,0,0,0,0,0,0
,0,0,0,0,0,0,1,0,0,0,0,1,1,0,0.4.... 0,0
,1,1,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0
,1,1,0,0,0,0,1,1,0,0.Z.B.. 0,0,0,1,1,0,0
,0,0,1,1,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0
,1,1,0,0,0...L.. 0,0,0,1,1,0,0,0,0,0,1,1
,1,0,0,0,0,0,0,1,1,1,0,0,0,0,0,1,1,0,0,0
...V.. 0,0,0,0,1,1,0,0,0,0,0,1,1,1,1,1,1
,1,1,1,1,0,0,0,0,0,1,1,0,0,0,0.L.... 0,0
,0,0,0,1,1,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0
,0,0,0,1,1,0,0,0,0,0...... 0,0,0,0,0,0,1
,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0
,0,0,0,0,0.X.... 0,0,0,0,0,0,0,1,1,0,0,0
,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0
...... 0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0
,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0.D.... 0,0
,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1
,0,0,0,0,0,0,0,0,0,0...... 0,0,0,0,0,0,0
,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0
,0,0,0,0,0...... 0,0,0,0,0,0,0,0,0,0,0,0
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
...&.:...0.. 660:. FAST FOURIER TRANSFOR
M.:.:.. 2130:. AMPLITUDE AND ANGLE.Z.D..
2370:. NORMALIZE/TRUNCATE.U.N.. 2900:.
HOLOGRAM PLOT...X.. 4340:. FIND COMPONEN
TS FOR INVERSE FFT FROM PLOT DATA...B.IT
..1.S.L.. 660:. INVERSE FFT...V.. 4430:.
GRAY-SCALE PLOT......"FINISHED. TIME IS
";TI$.......".... 2D FFT.1.... RW.1 .
N.R....". WORKING ON FFT;ROW:";RW.A....
RE.1 . N.....X(RE).AR(RW,RE):Y(RE).AI(R
W,RE)...F.. RE...P.. 890...Z.. RE.1 . N.
K...AR(RW,RE).X(RE):AI(RW,RE).Y(RE).W...
. RE,RW...... CL.1 . N......". WORKING
ON FFT;COLUMN:";CL...... CE.1 . N.=. .X(
CE).AR(CE,CL):Y(CE).AI(CE,CL).F.*.. CE.P
.4.. 890._.>.. CE.1 . N...H.AR(CE,CL).X(
CE):AI(CE,CL).Y(CE)...R.. CE,CL...F.....
P.:.A.Z.. COMPLEX FAST FOURIER TRANSFOR
M.G...:.X.... IT.0 . 940...... I.1 . N..
...Y(I)..Y(I): . I.....LG..(N)..(2).....
. LG..1 . 1390.1.... K.2 . LG . 2.@.J.M.
2.(LG.K).K.T.M4.4.M.Y.... J.1 . M.M...AR
.(J.1).M4.2...Z...C1..(AR).....S1..(AR).
....C2.C1.C1.S1.S1.....S2.C1.S1.C1.S1...
..C3.C2.C1.S2.S1.S.$.S3.C2.S1.S2.C1.....
. I.M4 . N . M4...8.J0.I.J.M4...B.J1.J0.
M...L.J2.J1.M...V.J3.J2.M.,.`.R0.X(J0).X
(J2).?.J.R1.X(J0).X(J2).R.T.I0.Y(J0).Y(J
2).E.~.I1.Y(J0).Y(J2).X...R2.X(J1).X(J3)
.....R3.X(J1).X(J3).....I2.Y(J1).Y(J3)..
...I3.Y(J1).Y(J3).A...X(J0).R0.R2.Q...Y(
J0).I0.I2...D.. AR.0 . 1300...N.X(J2).(R
1.I3).C1.(I1.R3).S1.#.X.Y(J2).(I1.R3).C1
.(R1.I3).S1.C...X(J1).(R0.R2).C2.(I0.I2)
.S2.C...Y(J1).(I0.I2).C2.(R0.R2).S2.....
X(J3).(R1.I3).C3.(I1.R3).S3.....Y(J3).(I
1.R3).C3.(R1.I3).S3...... 1360.....X(J2)
.R1.I3.N...Y(J2).I1.R3...(.X(J1).R0.R2..
.2.Y(J1).I0.I2...<.X(J3).R1.I3...F.Y(J3)
.I1.R3...P.. I,J,K.4.N.. LG..(LG.2).2 .
1500.F.X.. I.1 . N . 2.Y...R0.X(I).X(I.1
).L...R1.X(I).X(I.1)....I0.Y(I).Y(I.1).
.. .I1.Y(I).Y(I.1).....X(I).R0.....Y(I).
I0.....X(I.1).R1.F.H.Y(I.1).I1.N.R.. I..
...S(13).N.2.....U(13).N...... K.2 . 12.
....J.14.K.....S(J).1.....U(J).S(J.1).?.
... S(J.1).1 . S(J)..(S(J.1).2).G.".. K.
S.,.AL.S(2).\.6.JJ.0.}.@.A.1: B.A: C.B:
D.C: E.D: F.E...|.. G.F . U(7) . S(7)...
... H.G . U(8) . S(8).E.... I.H . U(9) .
S(9)...... J.I . U(10) . S(10)...... K.
J . U(11) . S(11)...... L.K . U(12) . S(
12).-.... M.L . U(13) . S(13).9.B.JJ.JJ.
1.L.L.. JJ..M . 1810.X.V.T.X(JJ).G...X(J
J).X(M).R...X(M).T.~...T.Y(JJ).....Y(JJ)
.Y(M).....Y(M).T.....:...... M,L,K,J,I,H
,G...B.F.F.S(6).T.L.. F..U(6) . 1660...V
.E.E.S(5)...... E..U(5) . 1650.....D.D.S
(4)...... D..U(4) . 1640.%...C.C.S(3).:.
... C..U(S) . 1630.G...B.B.S(2).\.... B.
.U(2) . 1620.F.F.A.A.1.Y.P.. A..AL . 161
0...Z.. SL.1 . (N.2).2.....BC.N.1.SL:FC.
SL.1.....TX.X(FC):TY.Y(FC).V...X(FC).X(B
C):Y(FC).Y(BC).....X(BC).TX:Y(BC).TY....
.. SL...... IT.0 . .... .. I.1 . N.".*.X
(I).X(I).N.3.4.Y(I)..Y(I).N.:.>..I.@.H..
.E.R.. CONVERT INTO AMPLITUDE & ANGLE...
\.."...FINDING AMPLITUDE & ANGLE"...F..
D.1 . N...P.. E.1 . N.O.Z.AP..(AR(D,E).A
R(D,E).AI(D,E).AI(D,E))...... AP.0 . 233
0...... AR(D,E)..0 . 2230...... AI(D,E).
0 . PA....2.,.... AI(D,E).0 . PA...2.7..
.. 2320.O.... AI(D,E)..0 . 2270.I.... AR
(D,E).0 THE NPA....J.. AR(D,E).0 .PA.0.
..T.. 2320.....PA.A(AI(D,E).AR(D,E)).G..
.. AR(D,E).0 . AI(D,E).0 .PA.PA...... AR
(D,E).0 . AI(D,E).0 .PA...PA...... AR(D,
E).0 . AI(D,E).0 .PA.PA...4.... AR(D,E).
0 . AI(D,E).0 .PA.PA.O...AR(D,E).AP: AI(
D,E).PA.Y.... E,D._.....E.8.:...B.. AMPL
ITUDE NORMALIZATION ROUTINE...L.. FIND L
ARGEST AMPLITUDE...V.LA.AR(1,1).E.`.. D.
1 . N.S.J.. E.1 . N...T..AR(D,E).LA.LA.A
R(D,E)...~.. E,D.. ... IP$."R" . 2820.0
..."THE LARGEST AMPLITUDE IS";LA.S ... C
HECK AMPLITUDE DISTRIBUTION.T ..P8.0: P6
.0: P4.0: P2.0: P1.0.. ..N8..8.LA:N6..6.
LA:N4..4.LA:N2..2.LA:N1..1.LA.. D.." "..
N.. D.1 . N.J X.. E.1 . N.. ... AR(D,E)
..N8 . P8.P8.1..!... AR(D,E)..N6 . P6.P6
.1..!... AR(D,E)..N4 . P4.P4.1.:!... AR(
D,E)..N2 . P2.P2.1.V!... AR(D,E)..N1 . P
1.P1.1.`!... E,D..!(.P8..(P8.1024.100):P
6..(P6.1024.100):P4..(P4.1024.100).B!2.P
2..(P2.1024.100):P1..(P1.1024.100)..!<..
"80% OF THE MAX. AMP IS";N8.."F.. P8;"%
OF AMP'S ARE EQUAL OR SMALLER".."P.." ".
8"Z.."60% OF THE MAX. AMP IS";N6.B"D..P6
;"% OF AMP'S ARE EQUAL OR SMALLER".K"N..
" ".."X.."40% OF THE MAX. AMP IS";N4..".
..P4;"% OF AMP'S ARE EQUAL OR SMALLER"..
"..." ".."..."20% OF THE MAX. AMP IS";N2
..# ..P2;"% OF AMP'S ARE EQUAL OR SMALLE
R"..#..." ".4#..."10% OF THE MAX. AMP IS
";N1.^#...P1;"% OF AMP'S ARE EQUAL OR SM
ALLER".G#H.." ".|#R.."TIME IS ";TI$..#.
.." "..#..."WHAT NO. DO YOU WANT TO NORM
ALIZE TO";NL..#..." "..#..."WHICH MEANS
WHAT % OF DATA TRUNCATED";PT..#...IP$."R
".NL.LA..$... D.1 . N..$... E.1 . N.K$".
AR(D,E).AR(D,E).NL: . AR(D,E).1 . AR(D,E
).1.U$,.. E,D.[$@...A$J.:.T$T.. PLOT ROU
TINE..$^.. READ IN PLOT CHARACTERS..$H..
HP$."N" . 3720.J$R.."...DEFINING PLOT C
HARACTERS"..$|.. I.1 . 8:E(I).2.I.1:E(I.
8).E(I).2.(8.I):...%... I.1 . 11: . J.1
. 15: . K.1 . 8.H%..CH.0: . K.(13.I) . K
.(8.I) . CH.E(J).D%..CH$(I,J).CH$(I,J).G
(CH).P%... K,J,I.V%~.:..%... 2,4,5..%...
6,4,6:.6,G(21)..%... MAIN PLOTTING LOOP
..%..TB.0.T%..NF.2: . HP$."N" . NF.1..%.
.. D.1 . N..%D.. F.1 . NF..%N.. E.1 . N.
.&X.. DETERMINE WHICH CHARACTER.;&... FI
ND CHARACTER HEIGHT.L&..HT.8.AR(D,E).\&.
.DH.HT..(HT).}&... DH..125.2 . HT..(HT):
.3860..&..HT..(HT).1..&... F.NF . AR(D,E
).HT.8.NL..&... FIND PHASE.R&(.CP.PQ.AI(
D,E).(2..)..&2.QP..(PQ.2)..&<...(CP)..(.
(CP))..5.3950.0'F.. CP.0 . CP..(CP):. F.
NF . AI(D,E).(CP.1)...QP.F'P.. CP..0 . C
P..(CP).1:. F.NF . AI(D,E).(CP.1)...QP.Z
'Z.. HP$."N". 4290..'D.. 3980..'N.. CP.0
. CP..(CP).1:. F.NF . AI(D,E).(CP.1)...
QP..'X.. CP.0. CP..(CP).2:. F.NF. AI(D,E
).(CP.1)...QP..(... HP$."N" . 4290..(...
F..1 . 4230.7(... HT.0 . .4," ";G(141)
;:.4260.K( .. .(CP).2. 4130.^(... CP..2
. 4050..(...2,CH$(3,HT):.4,G(254);G(141)
;..(..TB.TB.1:.2,CH$(11,HT):.4,.TB);G(25
4);G(141);..(H.. 4260.N(R.. CP.1. 4090..
(...2,CH$(2,HT):.4,G(254);G(141);.")..TB
.TB.1:.2,CH$(10,HT):.4,.TB);G(254);G(141
);.-)... 4260.P)...2,CH$(1,HT):.4,G(254)
;G(141);..)..TB.TB.1:.2,CH$(9,HT):.4,.TB
);G(254);G(141);..)..TB.TB.1:.2,CH$(9,HT
):.4,.TB);G(254);G(141);..)... 4260.M)".
. CP.0 . 4180..),.CP.CP.11.CP.2..)6..4,"
";G(141);.#*@.TB.TB.1:.2,CH$(CP,HT):.4,
.TB);G(254);G(141);.-*J..4260.?*T.. CP.0
. 4230.N*^.CP..(CP).1.R*H..2,CH$(CP,HT)
:.4,G(254);G(141);..*R.TB.TB.1:.4,.TB);"
";G(141);..*|.. 4260..*... HT.0 . 3990.
D*... HT.8 . HT.HT.8.O*... 3990..*... E.
N . .4,G(141);G(13);..+..TB.2.E:. E.N .
TB.0..+... E..N . .4,.TB);.&+B.. E,F,D.,
+....2+..:.{+... FIND REAL AND IMAGINARY
COMPONENTS FROM TRUNCATED & QUANTIZED D
ATA..+... D.1 . N: . E.1 . N..+..AP.AR(D
,E)..+..AR(D,E).AP..(AI(D,E)).W+&.AI(D,E
).AP..(AI(D,E))..+0.. E,D..+D....+N.:..,
X.. GRAY SCALE PICTURE ROUTINE..,B..4,"
".',L.. D.1 . N.4,V..4,.23);.B,... E.1 .
N.L,..IN..(AR(D,E).AR(D,E).AI(D,E).AI(D
,E))..,..AF.1..(IR.IR.II.II):IN.AF.IN..,
... IN.1 . IN.1..,... IN..1 ..4," ";:.45
90.U,... IN..2 ..4,"'";:.4590..,... IN..
4 ..4,":";:.4590..-F.. IN..6 ..4,"*";:.4
590.&-P.. IN..8 ..4,".";:.4590.C-Z.. IN.
.9 ..4,".*.";:.4590.Z-... IN..1 ..4,". .
";.P-... E.N . .4,G(13);.Z-... E,D..-...
4," "..-...4,"INPUT REAL AMPLITUDE:";IR.
N- ..4,"INPUT IMAGINARY AMPLITUDE:";II..
-*..4,"PHASE ANGLE:";IP$...4..4,"NO. OF
PHASE QUANTIZATION LEVELS:";PQ.+.>.. IP$
."R" . 4700.T.H..4,"TRANSFORM NORMALIZED
WITH...";NL...R..4,"PERCENT OF TRANSFOR
MED AMP'S TRUNCATED...";PT...\.....
> CLICK IMAGE PREVIEW FOR FULL MODAL