Code: Select all
PrevLine = ""
LineCount = 0
Loop
While ReadSeq Line From F1
If LineCount Then WriteSeq PrevLine To F2 Else NULL
LineCount += 1
PrevLine = Line
Repeat
Moderators: chulett, rschirm, roy
Code: Select all
PrevLine = ""
LineCount = 0
Loop
While ReadSeq Line From F1
If LineCount Then WriteSeq PrevLine To F2 Else NULL
LineCount += 1
PrevLine = Line
Repeat