!***START
!Program generation:	FOR SNOOPY
!			FOR SNOOPFIND
!			FOR CNVTHEX
!			FOR CNVTBIN
!			FOR DISPLAY4
!			MAC BLKIO
!			LINK SNOOPY,SNOOPFIND,CNVTHEX,CNVTBIN,DISPLAY4,BLKIO
!
!	SNOOPY
!
!	J. THOMPSON  INTERMETRICS  JUNE 28, 1978
!	Modified to include 4 byte display and searching January 18, 1979.
!
	No this program will not draw a picture of Snoopy!

	It is used instead for snooping around file structures using block
	IO so that the user can see exactly what a file's format is.

	$RUN SNOOPY
	 TYPE FILENAME
	OK you type some filename - say JUNK.DAT
	 TYPE 4 IF YOU WANT 4 BYTE DISPLAYS
	 (DEFAULT DISPLAY IS THAT FOR 2 BYTES PER WORD.)
	4 byte displays are useful for compacting information.
	OK so you type 4
	 TYPE # OF BLOCKS TO SKIP
	OK say you want to skip 0 blocks - type return
	 TYPE 1 TO SEARCH
	Searching can be done for ASCII strings (max 80 characters) or a value
	contained in a word 4 bytes long.  The 4 byte word can be filled by
	specifying 8 hex characters or 32 binary characters.  Any character
	not in the proper range for hex or binary is used as a "don't care"
	character.  See the source of SNOOPFIND for more documentation.
	OK say you don't want to search - type 0
	 TYPE RETURN TO GET NEXT BLOCK
	Anything but return or space will stop program
	OK you type return
	 WORD RANGE M,N
	Type the range (e.g. 1,64) of words from the current block of the
	file that you want displayed.  Remember to use appropriate limits
	(1 - 128 for 4 word display and 1 - 256 for 2 word display).  If you
	want the whole range, type 0,0.  If you want to quit the display,
	type the range pair with one of the values negative.
	Negative values for M or N word will cause the program go to # BLOCKS
	TO SKIP question.
	OK say you type 1,10

		Now the first 10 words in the 128. word (32 bit words) buffer
		are displayed in hex, decimal, octal, octal values of 4 bytes,
		and ASCII (format 4A1) formats.  Each display line starts
		with the block number and word number for the word displayed.

	Then the program goes back to the question about # BLOCKS TO SKIP.
!
!***END