10	 ! LOGDUPCHK.BAS
	 ! TO CHECK FOR DUPLICATE RECORDS IN ".LOG" FILES
	 ! WRITTEN BY BYEPDS (...BYE)
100 DIM L$[56](2),N$[50]V,A$[11]V
110 AN=0 : CALL "SPAWNB"("SRD NA.DAT=/SE:*.LOG",AN)
120 OPEN #5,"NA.DAT/EN:500" : INPUT LINE #5,A$
200 INPUT LINE #5,A$ : PRINT TAB(12);A$
210 N$=SBS$(A$,3)+".LOG/RN/RO/SH/LN:56":
220 OPEN #3,N$: N=NRC(3): IF N<6 THEN 420
300 FOR I=6 TO N
310 INPUT LINE #3@I,L$(2)
320 IF L$(2)=L$(1) THEN PRINT FRMT$(I-1,5);"  ";L$(1) :
			PRINT FRMT$(I,5);"  ";L$(2)
330 L$(1)=L$(2)
400 NEXT I
410	 PRINT TAB(40); "TOTAL RECORDS =";NRC(3)-5:
420 CLOSE 3
430 GOTO 200
500 CLOSE 
