$!----------------------------------------------------------------------------+
$!	FILE_BY_FID.COM - Get file information with only a file id            |
$!----------------------------------------------------------------------------+
$!	Author: Harry Flowers
$!
$!	P1 = Disk drive     P2 = First number of FID (first,second,third)
$!
$	IF P1 .EQS. "" THEN INQUIRE P1 "_Disk"
$	P1 = P1 - ":" + ":"
$	IF .NOT. F$GETDVI(P1,"EXISTS") THEN EXIT
$	FID = F$INTEGER(P2)
$	IF FID .EQ. 0 THEN INQUIRE FID "_First number in file id"
$	IF FID .EQ. 0 THEN EXIT
$	CLUSTER = F$GETDVI(P1,"CLUSTER")
$	MAXFILES = F$GETDVI(P1,"MAXFILES")
$	OFFSET = (MAXFILES+4095)/4096 + (CLUSTER*4) + FID
$	DUMP/FILE/BLOCK=(START='OFFSET',COUNT=1) 'P1'[000000]INDEXF.SYS
$	EXIT