USE ARRAYS
REVPRG:
Open "C:\JIMPROG\PEDIGREE\G6.TXT" For Output As #2
Open "C:\JIMPROG\PEDIGREE\REVBAS.TXT" For Input As #1
TN = 0
Do While Not EOF(1)
TN = TN + 1
If TN = 1 Then
Line Input #1, LINE1
Print #2, LINE1
Else
Line Input #1, LINE1
Print #2, LINE1
End If
Loop
Print #2, "===================================="
Close 1
V2 = ". ."
V3 = ". . ."
V4 = ". . . ."
V5 = ". . . . ."
For RECGEN1 = 1 To NUMGEN1
TEMP = RTrim(PNAME(RECGEN1)) + "," + POGC(RECGEN1) + "," + POGSEX(RECGEN1) +
" " + RTrim(POGFID(RECGEN1)) + "/" + LTrim(POGMID(RECGEN1))
Print #2, TEMP
X1 = POGID(RECGEN1)
For RECGEN2 = NUMGEN1 + 1 To NUMGEN2
If (POGFID(RECGEN2) = X1 Or POGMID(RECGEN2) = X1) Then
TEMP = ". ." + RTrim(PNAME(RECGEN2)) + "," + POGC(RECGEN2) + "," +
POGSEX(RECGEN2) + " " + RTrim(POGFID(RECGEN2)) + "/" +
LTrim(POGMID(RECGEN2))
Print #2, TEMP
X2 = POGID(RECGEN2)
For RECGEN3 = NUMGEN2 + 1 To NUMGEN3
If (POGFID(RECGEN3) = X2 Or POGMID(RECGEN3) = X2) Then
TEMP = ". . ." + RTrim(PNAME(RECGEN3)) + "," + POGC(RECGEN3)
+ "," + POGSEX(RECGEN3) + " " + RTrim(POGFID(RECGEN3)) + "/" +
LTrim(POGMID(RECGEN3))
Print #2, TEMP
X3 = POGID(RECGEN3)
For RECGEN4 = NUMGEN3 + 1 To NUMGEN4
If (POGFID(RECGEN4) = X3 Or POGMID(RECGEN4) = X3) Then
TEMP = ". . . ." + RTrim(PNAME(RECGEN4)) + "," +
POGC(RECGEN4) + "," + POGSEX(RECGEN4) + " " + RTrim(POGFID(RECGEN4)) + "/"
+ LTrim(POGMID(RECGEN4))
Print #2, TEMP
X4 = POGID(RECGEN4)
For RECGEN5 = NUMGEN4 + 1 To NUMGEN5
If (POGFID(RECGEN5) = X4 Or POGMID(RECGEN5) = X4) Then
TEMP = ". . . . ." + RTrim(PNAME(RECGEN5)) +
"," + POGC(RECGEN5) + "," + POGSEX(RECGEN5) + " " + RTrim(POGFID(RECGEN5))
+ "/" + LTrim(POGMID(RECGEN5))
Print #2, TEMP
End If
Next
End If
Next
End If
Next
End If
Next
Next
Reset
Erase POGID
Erase PNAME
Erase POGC
Erase POGSEX
Erase POGFID
Erase POGMID
' **************************TO
HERE**********************************************
Exit_Command32_Click:
Call REVERSE
Exit Sub
Err_Command32_Click:
'MsgBox "AN ERROR OCCURED"
MsgBox Err.Description
Resume Exit_Command32_Click
