Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

C	DESCRIPTION:TYPES SNOOPY IN ASTERISKS
C	ON THE LINE PRINTER. 
C	DATA FILE NAME CALLED IS SNOOP.DAT. IF THE USER
C	SHOULD CHANGE THIS NAME, BE CERTAIN TO CHANGE SNOOP.F4
C	ACCORDINGLY.
	INTEGER FILNAM
20	FORMAT (I2)
	TYPE 11
11	FORMAT(' WHICH LOGICAL UNIT FOR INPUT? '/' *'$)
	ACCEPT 20,IIN
	CALL IFILE (IIN,'SNOOP')
	DIMENSION L(80)
120	DO 140 IT=1,63
	L(IT)=0
140	CONTINUE
	M=0
160	READ (IIN,161) K,K1
161	FORMAT (2G)
	IF (K.LT.0) GO TO 270
	IF (K.EQ.1000) GO TO 1190
	IF (K.EQ.999) GO TO 1230
	IF (K.EQ.998) STOP
	M=K1
	DO 250 IY=K,K1
	L(IY)=1
250	CONTINUE
	GO TO 160
270	DO 330 I=1,63,3
	IF (I.GT.M) GO TO 330
	IF (L(I).EQ.1) GO TO 360
	IF (L(I+1).EQ.1) GO TO 470
	IF (L(I+2).EQ.1) GO TO 520
	WRITE (3,320)
320	FORMAT (4H+   ,$)
330	CONTINUE
	WRITE (3,340)
340	FORMAT (1H*)
	GO TO 120
360	IF (L(I+1).EQ.1) GO TO 400
	IF (L(I+2).EQ.1) GO TO 450
	WRITE (3,380)
380	FORMAT (4H+*  ,$)
	GO TO 330
400	IF (L(I+2).EQ.1) GO TO 430
	WRITE (3,410)
410	FORMAT (4H+** ,$)
	GO TO 330
430	WRITE (3,435)
435	FORMAT (4H+***,$)
	GO TO 330
450	WRITE (3,455)
455	FORMAT (4H+* *,$)
	GO TO 330
470	IF (L(I+2).EQ.1) GO TO 500
	WRITE (3,480)
480	FORMAT (4H+ * ,$)
	GO TO 330
500	WRITE (3,505)
505	FORMAT (4H+ **,$)
	GO TO 330
520	WRITE (3,525)
525	FORMAT (4H+  *,$)
	GO TO 330
1190	DO 1210 I=1,5
	WRITE (3,340)
1210	CONTINUE
	GO TO 160
1230	DO 1250 I=10,15
	WRITE (3,340)
1250	CONTINUE
	GO TO 160
1660	STOP
	END