==============================================================================================================================================
OFFSET    00 01 02 03 04 05 06 07  08 09 0A 0B 0C 0D 0E 0F  10 11 12 13 14 15 16 17  18 19 1A 1B 1C 1D 1E 1F
----------------------------------------------------------------------------------------------------------------------------------------------
00000000  25 25 48 50 3A 20 54 28  33 29 41 28 44 29 46 28  2E 29 3B 0D 0A 40 20 42  4F 44 45 50 4C 4F 54 0D  %%HP: T(3)A(D)F(.);♪◙@ BODEPLOT♪
00000020  0A 40 20 62 79 20 4A 61  6D 65 73 20 42 2E 20 57  61 6C 74 65 72 73 0D 0A  44 49 52 0D 0A 20 20 42  ◙@ by James B. Walters♪◙DIR♪◙  B
00000040  4F 44 45 09 09 09 40 20  4D 61 69 6E 20 70 72 6F  67 72 61 6D 2E 0D 0A 20  20 20 20 5C 3C 3C 20 45  ODE○○○@ Main program.♪◙    \<< E
00000060  52 41 53 45 20 44 42 20  53 54 45 51 09 40 20 54  68 69 73 20 72 6F 75 74  69 6E 65 20 70 6C 6F 74  RASE DB STEQ○@ This routine plot
00000080  73 20 74 68 65 20 67 61  69 6E 20 61 6E 64 20 70  68 61 73 65 0D 0A 30 20  34 20 58 52 4E 47 20 2D  s the gain and phase♪◙0 4 XRNG -
000000A0  36 30 20 32 30 09 09 40  20 6F 66 20 74 68 65 20  74 72 61 6E 73 66 65 72  20 66 75 6E 63 74 69 6F  60 20○○@ of the transfer functio
000000C0  6E 20 47 2E 0D 0A 59 52  4E 47 20 44 52 41 58 20  44 52 41 57 09 09 40 20  50 6C 6F 74 73 20 34 20  n G.♪◙YRNG DRAX DRAW○○@ Plots 4 
000000E0  64 65 63 61 64 65 73 20  20 66 72 6F 6D 20 57 6F  2C 20 67 61 69 6E 20 66  72 6F 6D 20 2D 36 30 20  decades  from Wo, gain from -60 
00000100  64 42 20 0D 0A 50 48 41  53 45 20 53 54 45 51 20  2D 32 37 30 20 39 30 09  40 20 74 6F 20 32 30 20  dB ♪◙PHASE STEQ -270 90○@ to 20 
00000120  64 42 2C 20 61 6E 64 20  70 68 61 73 65 20 66 72  6F 6D 20 2D 32 37 30 20  74 6F 20 39 30 20 64 65  dB, and phase from -270 to 90 de
00000140  67 72 65 65 73 2E 0D 0A  59 52 4E 47 20 44 52 41  57 09 09 40 20 50 6C 6F  74 20 72 61 6E 67 65 20  grees.♪◙YRNG DRAW○○@ Plot range 
00000160  63 61 6E 20 62 65 20 6D  6F 64 69 66 65 64 20 62  79 20 63 68 61 6E 67 69  6E 67 20 70 72 6F 67 72  can be modifed by changing progr
00000180  61 6D 2E 0D 0A 20 20 20  20 5C 3E 3E 0D 0A 20 20  50 48 41 53 45 20 27 41  52 47 28 47 29 27 09 09  am.♪◙    \>>♪◙  PHASE 'ARG(G)'○○
000001A0  40 20 50 68 61 73 65 20  6F 66 20 47 20 64 65 66  69 6E 65 64 20 61 73 20  41 52 47 28 47 29 0D 0A  @ Phase of G defined as ARG(G)♪◙
000001C0  20 20 57 6F 20 2E 31 09  09 09 40 20 57 6F 20 69  73 20 73 74 61 72 74 20  66 72 65 71 75 65 6E 63    Wo .1○○○@ Wo is start frequenc
000001E0  79 20 6F 66 20 62 6F 64  65 20 70 6C 6F 74 0D 0A  20 20 58 20 34 2E 31 0D  0A 20 20 45 51 20 27 41  y of bode plot♪◙  X 4.1♪◙  EQ 'A
00000200  52 47 28 47 29 27 0D 0A  20 20 50 50 41 52 20 7B  20 28 30 2C 2D 32 37 30  29 0D 0A 28 34 2C 39 30  RG(G)'♪◙  PPAR { (0,-270)♪◙(4,90
00000220  29 20 58 20 30 20 28 30  2C 30 29 0D 0A 46 55 4E  43 54 49 4F 4E 20 59 20  7D 0D 0A 20 20 44 20 27  ) X 0 (0,0)♪◙FUNCTION Y }♪◙  D '
00000240  53 5E 32 2B 31 2A 53 2B  31 30 30 27 09 09 40 20  44 20 69 73 20 64 65 6E  6F 6D 69 6E 61 74 6F 72  S^2+1*S+100'○○@ D is denominator
00000260  20 6F 66 20 74 72 61 6E  73 66 65 72 20 66 75 6E  63 74 69 6F 6E 0D 0A 20  20 4E 20 31 30 30 09 09   of transfer function♪◙  N 100○○
00000280  09 40 20 4E 20 69 73 20  6E 75 6D 65 72 61 74 6F  72 20 6F 66 20 74 72 61  6E 73 66 65 72 20 66 75  ○@ N is numerator of transfer fu
000002A0  6E 63 74 69 6F 6E 0D 0A  20 20 47 20 27 4E 2F 44  27 09 09 09 40 20 47 20  69 73 20 74 68 65 20 74  nction♪◙  G 'N/D'○○○@ G is the t
000002C0  72 61 6E 73 66 65 72 20  66 75 6E 63 74 69 6F 6E  0D 0A 20 20 44 42 20 27  32 30 2A 4C 4F 47 28 41  ransfer function♪◙  DB '20*LOG(A
000002E0  42 53 28 47 29 09 40 20  44 42 20 69 73 20 74 68  65 20 67 61 69 6E 20 6F  66 20 47 0D 0A 29 27 0D  BS(G)○@ DB is the gain of G♪◙)'♪
00000300  0A 20 20 53 20 27 69 2A  57 27 09 09 09 40 20 53  20 69 73 20 64 65 66 69  6E 65 64 20 61 73 20 57  ◙  S 'i*W'○○○@ S is defined as W
00000320  2A 73 71 72 28 2D 31 29  0D 0A 20 20 57 20 27 57  6F 2A 31 30 5E 58 27 09  09 40 20 4D 61 70 20 70  *sqr(-1)♪◙  W 'Wo*10^X'○○@ Map p
00000340  6C 6F 74 20 61 78 69 73  20 74 6F 20 66 72 65 71  75 65 6E 63 79 20 66 6F  72 20 6C 6F 67 20 73 63  lot axis to frequency for log sc
00000360  61 6C 65 0D 0A 45 4E 44  0D 0A 1A 00 00 00 00 00  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  ale♪◙END♪◙→.....................
00000380  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  ................................
000003A0  00 00 00                                                                                            ...