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(age)
"y"
/1
[PHE1]
/1
[PHE3]
/1
[PHE2]
/10