2006-05-25 01:18 AM
2006-05-25 11:14 AM
s=-1 ! Line spacing
DIM parents[]
n = REQUEST ("ANCESTRY_INFO", 0, name, guid, parents)
IF n THEN
TEXT2 0,0, "Replaces: " + name + " / " + guid
ELSE
TEXT2 0,0, "No results."
ENDIF
TEXT2 0,s, "Parents:"
ADD2 0,s*2
IF n > 2 THEN
FOR i = 1 to n - 2 STEP 2
TEXT2 t,0, parents + " / " + parents[i+1]
ADD2 0,s
NEXT i
ELSE
ADD2 0,s
ENDIF
ADD2 0,s
DIM childs[]
n = REQUEST ("ANCESTRY_INFO", 1, name, guid, childs)
IF n THEN
TEXT2 0,0, "Replaces: " + name + " / " + guid
ELSE
TEXT2 0,0, "No result."
ENDIF
TEXT2 0,s, "Childs:"
ADD2 0,s*2
IF n > 2 THEN
FOR i = 1 to n - 2 STEP 2
TEXT2 t,0, childs + " / " + childs[i+1]
ADD2 0,s
NEXT i
ELSE
ADD2 0,s
ENDIF