{.pl66} {************************************************************************** * RF NETWORK ANALYSIS PROGRAM * * by: WILLIAM L. MUNSON * * VERSION 1.1 PASCAL - NOV 3, 1987 * **************************************************************************} {Set the conversion factors.} const lc: real = 1.0E-9; cc: real = 1.0E-12; cm: real = 2.54; fr: real = 1.0E+6; type resistor = array[1..200] of real; capacitor = array[1..200] of real; inductor = array[1..200] of real; number = array[1..200] of real; element = array[1..200] of integer; var ns,a,i,pe,d,n,code,position :integer; rs,nf,dc,ii,w,m,th,ef,zo,de,fo,tr,rl,mf,df,co,f,a1,d1,a4,b1,b4,c1, c4,d4,a3,k,a6,b3,b6,c3,c6,d3,d6,g,h,v1,v2,q,r1,r2,ro,x2,ra,ia,rb, t,ib,rc,ic,rd,id,v3,v4,dummy,freq :real; correct,same_type,induct :boolean; r: resistor; c: capacitor; l: inductor; nu: number; et: element; savefile: text; data: string[20]; filename: string[14]; resist: string[20]; imag: string[20]; description: string[255]; q1: char; {$I NETWORK1.PAS} {$I FILES.PRO} {$I NETWORK2.PAS}