1	! HEAD_ANAL.BAS PRINT FILE LOCATIONS FROM DUMP/HEADER/OUT FILE:

	! @WORKA:[BAKER.JUICER]HEAD_ANAL_DUMP2/OUT=HEAD_ANAL.TMP 'P1'
	
	ON ERROR GOTO 19000

	NOMARGIN #0
	
	MAP (HEAD_MAP) HA_REC$ =132

10	OPEN "HEAD_ANAL.TMP" FOR INPUT AS FILE 1, 			&
					ACCESS READ, 			&
					MAP HEAD_MAP,			&
					UNDEFINED, 			&
					RECORDTYPE ANY

20	OPEN "HEAD_ANAL.LIS" FOR OUTPUT AS FILE 2

	NOMARGIN #2
	
	C_FILE$ = ""
	
 READ_HA:	
	
	GET #1

	GOTO NOT_FILE IF INSTR(1, HA_REC$, "Dump of file ") = 0
	
	P_COL = INSTR(1, HA_REC$, ":") + 1

	P_SP  = INSTR(1, HA_REC$, " on ")

	T_FILE$ = MID( HA_REC$, P_COL, P_SP - P_COL)
 
	GOTO READ_HA IF C_FILE$ = T_FILE$ 
 
	C_FILE$ = T_FILE$
 
 	EXT_CNT = 0
 
	GOTO READ_HA 
 
 NOT_FILE:
	
	GOTO READ_HA IF INSTR(1, HA_REC$, "LBN:") = 0
	
 	EXT_CNT = EXT_CNT + 1
 
	T_COUNT$ = MID( HA_REC$, 20, 6)

	T_LBN$   = MID( HA_REC$, 43, 6)

	PRINT	C_FILE$; TAB(50); T_COUNT$; TAB(58); T_LBN$; TAB(66);
	PRINT	USING "###### ", VAL(T_COUNT$) + VAL(T_LBN$);
	PRINT	USING "####", EXT_CNT
	
	PRINT	#2, C_FILE$; TAB(50); T_COUNT$; TAB(58); T_LBN$; TAB(66);
	PRINT	#2  USING "###### ", VAL(T_COUNT$) + VAL(T_LBN$);
	PRINT	#2  USING "####", EXT_CNT
	
	GOTO READ_HA
	
19000	! ERROR TRAP

	IF ERR = 11 THEN RESUME 32000 ELSE RESUME 19900

19900	PRINT ERR,ERL \ STOP

32000	CLOSE #1,#2

32767	END