:DETAIL
[id,1,3] fformat "%03.0f  "
[id,4,3] fformat "%3.0f "

.if (father=" ")
"  0 "
.else
[father,4,3] fformat "%3.0f "
.endif

.if (mother=" ")
"  0  "
.else
[mother,4,3] fformat "%3.0f  "
.endif

.if (sex="M")
"1 "
.else
"2 "
.endif

.if (phe0!=" ")
" "
[phe0,1,1]
.else
" 0"
.endif

("123456789abcdefghijklmnopq" strstr [phe1,1,1]) fformat "  %.0f"
"/"
("123456789abcdefghijklmnopq" strstr [phe1,2,1]) fformat "%.0f"

/1