C_STRING(80;$1)
C_STRING(31;$2;$3)
C_STRING(3;$4)
C_POINTER($0)

C_BLOB(BlobPath)
SET BLOB SIZE(BlobPath;148)

$offset:=0
TEXT TO BLOB($1;BlobPath;Pascal string ;$offset)
$offset:=82
TEXT TO BLOB($2;BlobPath;Pascal string ;$offset)
$offset:=114
TEXT TO BLOB($3;BlobPath;Pascal string ;$offset)
$offset:=146
If ($4="Mac")
INTEGER TO BLOB(29;BlobPath;Macintosh byte ordering ;$offset)
Else 
INTEGER TO BLOB(29;BlobPath;PC byte ordering ;$offset)
End if 

$0:=->BlobPath