1	! FILES_RP_CONTIG.BAS 

	! PRINT CONTIGUIOUS SPACE LOCATIONS FROM FILES_RP.LBN:

	!         	   1         2         3         4         5
	!         12345678901234567890123456789012345678901234567890

	! INPUT= "   1     16       0      16 [000000]INDEXF.SYS;1"
	!        "   1  71200  194608  265808 [DATA9]DCMD.DAT;1

	ON ERROR GOTO 19000

	NOMARGIN #0
	
10	OPEN "FILES_RP.LBN" FOR INPUT AS FILE 1
	
20	OPEN "FILES_RP.CTG" FOR OUTPUT AS FILE 2

	NOMARGIN #2
	
	LAST_LBN = 0

	PRINT	"   LBN     SIZE     CONTIGUOUS SPACE FROM FILE_RP.LBN"

	PRINT	#2,"   LBN     SIZE     CONTIGUOUS SPACE FROM FILE_RP.LBN"

 READ_HA:	
	
	INPUT LINE #1, RP_REC$
	
	LBN        = VAL(MID( RP_REC$, 14, 6))

	NEXT_LBN   = VAL(MID( RP_REC$, 22, 6))

	GOSUB FRAG IF LBN > LAST_LBN

	LAST_LBN = NEXT_LBN   

	GOTO READ_HA

 FRAG:	T_CONT = LBN - LAST_LBN

	TOT_CONT = TOT_CONT + T_CONT

	TOT_EXTN = TOT_EXTN + 1

	PRINT	USING "######## ", LAST_LBN;
	PRINT	USING "######## ", T_CONT
		
	PRINT	#2 USING "######## ", LAST_LBN;
	PRINT	#2 USING "######## ", T_CONT

	RETURN

19000	! ERROR TRAP

	IF ERR = 11 THEN RESUME 32000 ELSE RESUME 19900

19900	PRINT ERR,ERL \ STOP

32000	! END TEST CONTIG FROM LAST_LBN TO 891072:

	LBN        = 891072

	GOSUB FRAG IF LBN > LAST_LBN

	PRINT	"-------- --------"

	PRINT	#2,"-------- --------"

	PRINT	USING "######## ", TOT_EXTN;
	PRINT	USING "######## ", TOT_CONT
		
	PRINT	#2 USING "######## ", TOT_EXTN;
	PRINT	#2 USING "######## ", TOT_CONT

	CLOSE #1,#2

32767	END