FDECLARE shading
:DETAIL
[ID]
/1
trunc(sex)
","
.IF (phe0="2")
shading:=1 ::
.ELSE
shading:=0 ::
.ENDIF
.IF (dead="y")
shading:=shading+100 ::
.ENDIF
shading
/1
trunc(Father)
","
trunc(Mother)
/1
trunc(first)
/1
[phe1]
/1
[phe3]
/1
[phe2]
/10