C RLC PROGRAM
C	SUBROUTINE RLC
	COMMON/DFILE/IBUF(4000)
	COMMON /DPYBUF/IDBUF(2000)/RAND/IA,IB,IC
C	IA=0
C	IB=0
C	IC=0
50	CALL INIT(4000)
	CALL APNT(0.,700.)
	CALL VECT(20.,0.)
	CALL VECT(5.,10.)
	CALL VECT(10.,-20.)
	CALL VECT(10.,20.)
	CALL VECT(10.,-20.)
	CALL VECT(10.,20.)
	CALL VECT(10.,-20.)
	CALL VECT(5.,10.)
	CALL VECT(20.,0.)
	CALL VECT(0.,-20.)
	DO 100 I=1,4
	CALL VECT(5.,-3.)
	CALL VECT(3.,-7.)
	CALL VECT(-3.,-7.)
100	CALL VECT(-5.,-3.)
	CALL VECT(0.,-20.)
	CALL VECT(-45.,0.)
	CALL RPNT(0.,-10.,0,-5)
	CALL VECT(0.,20.)
	CALL RPNT(-20.,0.,0,-5)
	CALL VECT(6.,-4.)
	CALL VECT(4.,-6.)
	CALL VECT(-4.,-6.)
	CALL VECT(-6.,-4.)
	CALL RPNT(10.,10.,0,-5)
	CALL VECT(-45.,0.)
	CALL RPNT(0.,0.)
	R=RAN(IA,IB)*100.+1.
	CALL APNT(0.,725.,0,-5)
	CALL NMBR(1,R,'F6.1')
	AL=RAN(IA,IB)*1.+.1
	CALL APNT(115.,635.,0,-5)
	CALL NMBR(2,AL,'F5.2')
	AL=AL*1.E-3
	C=RAN(IA,IB)*1.+1.E-6
	CALL APNT(0.,540.,0,-5)
	CALL NMBR(3,C,'F9.6')
	C=C*1.E-6
	CALL APNT(0.,500.,0,-5)
	W0=1/SQRT(AL*C)
	CALL TEXT('CENTER FREQ.',1)
	CALL NMBR(4,W0,'F9.0')
	Q=W0*AL/R
	CALL TEXT(2,'CIRCUIT Q',1)
	CALL NMBR(5,Q,'F10.5')
	B=R/AL
	CALL TEXT(2,'BANDWIDTH',1)
	CALL NMBR(6,B,'F9.0')
	CALL APNT(250.,40.,0,-3)
	CALL VECT(0.,750.)
	CALL APNT(250.,40.,0,-3)
	CALL VECT(750.,0.)
	CALL APNT(950.,0.,0,-5)
	CALL TEXT('FREQ.')
	CALL APNT(270.,735.,0,-5)
	CALL TEXT('ADMITTANCE')
	CALL APNT(625.,35.,0,-5)
	CALL VECT(0.,665.,0,0,0,3)
	CALL APNT(250.,660./SQRT(2.)+.5,0,-5)
	CALL VECT(700.,0.,0,4,0,4)
	CALL RPNT(10.,-5.,0,-5)
	CALL TEXT('1/2')
	CALL RPNT(-55.,-25.,0,-5)
	CALL TEXT('POWER')
	W=W0-5*B
	I1=10*B/750
	CALL APNT(250.,40.,0,-5)
	I1=2*I1
	DO 690 I=0,375
	IF(W.LE.0) GOTO 690 
	A=660*R/SQRT(R*R+(W*AL-1/(W*C))**2)
C	CALL SLEEP(0,0,0,1)
	CALL APNT(250.+2*I,40.+A,0,5)
690	W=W+I1
	CALL APNT(650.,700.,0,-5)
	CALL TEXT(' Y')
C	CALL STAT(-1)
	CALL RPNT(0.,-5.,0,-5)
	CALL TEXT('MAX. ')
C	CALL STAT(1)
	CALL RPNT(0.,5.,0,-5)
	CALL TEXT('= ')
	CALL NMBR(7,1./R,'F8.5')
	CALL TEXT(' MHOS')
C	CALL SLEEP(0,0,5,0)
C	CALL TIME(180)
C900	CALL TIMR(IE)
C	IF (IE.NE.0)GOTO 900
C	GOTO 50
	RETURN
	END