d : "PADS"n !);"**** PADS ****" :x : "THIS PROGRAM CALCULATES TEE and PI PAD RESISTOR VALUES for"; " ATTENUATORS >0.1 DB." :[ "ATTENUATION and VSWR for TRIAL RESISTOR VALUES ARE CALCULATED." : "PADS FOR MATCHING DIFFERING IMPEDANCES (MLP'S) HAVE THIER"; " MINIMUM LOSSES" : : "COMPUTED." X(X)(((X)))ow. : : "ENTER TYPE of PAD TEE or PI THUS: T or PI";A$l : : "ENTER IMPEDANCE INPUT & OUTPUT Zo,Zo ";B,C} BC  : : "ENTER DESIRED ATTENUATION IN DB ";A : AL} APC  AM N (A ) A$"PI"  A$"T" b : @R3((N))(((BC)N))hR2(((C)((N)(N)))(R3))"R1(((B)((N)(N)))(R3)), R1L} R1PC 6 R2L} R2PC @ R3L} R3PC 8J "R1 SHUNT IN =";X(R1);"; R2 SHUNT OUT =";X(R2);"; R3 SERIES =";HT X(R3) :j^ : : "TRIAL VALUES? (Y/N)"hB$ : B$"" hr B$"Y" | B$"N" h :  : : "ENTER TRIAL VALUES FOR R1,R2,R3 ";R1,R2,R3#Z1(R1(((R2C)(R2C))R3))(R1(((R2C)(R2C))R3))^Z2(R2(((R1B)(R1B))R3))(R2(((R1B)(R1B))R3))P1B :X(R2C)(R2C) :Y(R1(R3X))(R1(R3X))E1((Y)(BY)) :E2E1((X)(R3X)) :P2(E2)CL(P2P1)( ) :L( L) : "ATTENUATION =";X(L);"DB"* Z1B  : =V1Z1B : IV1BZ1o : "INPUT VSWR =";X(V1);": 1" Z2C  : V2Z2C : V2CZ2 : "OUTPUT VSWR =";X(V2);": 1" : ^ $& P$"Y" : 0 P$"N" . : XO: "PI PAD ATTENUATION =";X(L);"DB; INPUT VSWR =";X(V1);": 1";vD " OUTPUT VSWR =";X(V2);": 1" :N "where R1=";R1;"; R2=";R2;"; R3=";R3 :X bR3(((NBC)))(N) :R2(C((N)(N)))R3lR1(B((N)(N)))R3$v R1L} R1PC D R2L} R2PC d R3L} R3PC  "R1 SERIES IN =";X(R1);"; R2 SERIES OUT =";X(R2);"; R3 SHUNT ="; X(R3) : : "TRIAL VALUES? (Y/N)"C$ : C$""  C$"Y" " C$"N"  : fZ : : "ENTER TRIAL VALUES FOR R1,R2,R3 ";R1,R2,R3Z1(((R2C)R3)(CR2R3))R1 :Z2(((R1B)R3)(BR1R3))R2P1BE2(((R3(R2C))(R3(R2C)))(BR1((R3(R2C))(R3(R2C)))))E3(E2C)(CR2) :P2(E3)C1A(P2P1)( ) :A( A)U  : "ATTENUATION =";X(A);"DB"m Z1B   : * V1Z1B : 4*V1BZ14 : "INPUT VSWR =";X(V1);": 1"> Z2C H : RHV2Z2C : \RV2CZ2\ : "OUTPUT VSWR =";X(V2);": 1" :  f $3p P$"Y" Nz P$"N" . :  "TEE PAD ATTENUATION =";X(A);"DB; INPUT VSWR =";X(V1);": 1"; "; OUTPUT VSWR =";X(V2);": 1" "where R1=";R1;" R2=";R2;" R3=";R3 : "ANOTHER PAD? (Y/N)"D$ : D$"" + D$"Y" O D$"N"  : :"MAINMENU_ BC sKB :LC : KC :LBG((K)L)((((((K)L)))))F ((G)( )) : "MINIMUM LOSS PAD ATTENUATION ="X(F);"DB" FM : F :  );"ATTENUATION ENTERED IS INADVISABLE!!" : :P x$ : : "HARD COPY REQUIRED? (Y/N)".P$ : P$"" . :