Directory of image this file is from
This file as a plain text file

	COMMON IGX1, IGX2
	DIMENSION IGX1(1600), IGX2(1600)
	DIMENSION SQS(40)
	SQSMAX = 94.0
	SQSMIN = 10.0
	WIDNEW = 10.0
	ICX = 95
	ICY = 100
	SQSNEW = SQSMAX - WIDNEW
	CALL GCLEAR
	CALL GSTART
10	CONTINUE
S  OPDEF DPBL 6157
S  DPBL  /RING BELL/
	READ(1,20) NUMSQ, IDIST
20	FORMAT(2I2)
	IF(NUMSQ) 100,100,30
30	CALL GCLEAR
	RAT = (SQSMAX-FLOAT(IDIST)) / SQSMAX
	N = 0
35	N = N + 1
	SQS(N) = SQSMAX
40	DO 50 I = 1,N
	SQSI = SQS(I)
	ISQS = IFIX(SQSI)
	CALL GPLOT(ICX-ISQS,ICY+ISQS,2)
	CALL GPLOT(ICX+ISQS,ICY+ISQS,3)
	CALL GPLOT(ICX+ISQS,ICY-ISQS,3)
	CALL GPLOT(ICX-ISQS,ICY-ISQS,3)
	CALL GPLOT(ICX-ISQS,ICY+ISQS,3)
	SQSI = RAT * SQSI
	ISQS = IFIX(SQSI)
	SQS(I) = SQSI
	CALL GPLOT(ICX-ISQS,ICY+ISQS,0)
	CALL GPLOT(ICX+ISQS,ICY+ISQS,1)
	CALL GPLOT(ICX+ISQS,ICY-ISQS,1)
	CALL GPLOT(ICX-ISQS,ICY-ISQS,1)
	CALL GPLOT(ICX-ISQS,ICY+ISQS,1)
50	CONTINUE
	IF (N-NUMSQ) 60,80,80
60	IF (SQS(N)-SQSNEW) 35,35,80
80	IF (SQS(N)-SQSMIN) 10,10,40
100	CALL GSTOP
	STOP
	END