Findind B3d File Textures

In the code archive is a code by jfk EO-11110 that saves B3D files. It shows the B3D file structure clearly.
http://www.blitzbasic.com/codearcs/codearcs.php?code=866

I checked if the paths of the textures were relative using this program:

filename$ = "c:\xfiles\boom.b3d"


ff = ReadFile(filename$)

For i = 1 To FileSize(filename$)

ok = ReadByte(ff)

tll$ = tll$ + Chr$(ok); + "(" + Right$(Hex$(ok), 2) + ") "

If i Mod 45 = 44 Then 

	cc = Instr(Lower$(tll$), ".jpg")
	If cc = 0 Then cc = Instr(Lower$(tll$), ".png")
	If cc = 0 Then cc = Instr(Lower$(tll$), ".bmp")
	If cc = 0 Then 
		Print tll$
	Else
		Write Left$(tll$, cc - 1)
		Color 255, 0, 0
		Write Mid$(tll$, cc, 4)		
		Color 255, 255, 255
		Print Mid$(tll$, cc + 4, Len(tll$))
	End If
	
	
	ll = ll + 1
	If ll Mod 20 = 0 Then WaitKey(): FlushKeys(): End
	tll$ = ""
	
	End If

Next

CloseFile ff

WaitKey()

End