C MODULE: SCANNER/MAIN PROGRAM
C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
C$$$$							$$$$
C$$$$		M. Sheehan				$$$$
C$$$$		UNC-Wilmington				$$$$
C$$$$		Systems Programming			$$$$
C$$$$							$$$$
C$$$$		VERSION 1.0				$$$$
C$$$$                                                   $$$$
C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
C
C
C	Creation Date:	24-Feb-1986
C
C       VER	NATURE OF CHANGE(S)
C       ===	===================
C	1.0	Baseline System - 24-Feb-1986
C


	Program Scanner
c
c
	IMPLICIT       	INTEGER*4	(A-Z)
c
c		Set up buffer to receive data
c
	character*512	input_buffer
	LOGICAL*1	EOF /.false./
c
	CALL SCN_INIT
c
c		Send requests for status till up & good
c
 50	CALL SCN_STATUS
c
c		Set loop to get records till EOF
c		QIO timeout will force back to status loop
c
	I = 0
	REJECT_COUNT = 1
	DO 20 WHILE (.NOT. EOF)
		I = I + 1
		WRITE (6,*) ' Record number: ', I
c
c		Get a record
c
		CALL SCN_GETREC ( INPUT_BUFFER, INPUT_SIZE, EOF)
		IF (EOF) THEN
c
c		Don't write the EOF record to the file
c
			GO TO 20
		END IF
c
c		FOR TESTING, reject each third record &
c		drop I by 1 & reset reject_count
c
		IF ( REJECT_COUNT .eq. 3 ) THEN
			CALL SCN_REJECT 
			REJECT_COUNT = 1
			I = I - 1
			GO TO 20
		END IF
		CALL SCN_WRITE (INPUT_BUFFER, INPUT_SIZE)
		REJECT_COUNT = REJECT_COUNT + 1
 20	CONTINUE
c
 200 	CALL SCN_DEINIT
c            
c 	stop
	end