/* */ n=0 'EXTRACT /ZONE/' Last_line = '' 'TOP' Do Forever 'NEXT' If rc^=0 Then Leave /* End of file. We're done. */ 'EXTRACT /CURLINE/' /* curline.3 = contents of current line */ Line_Part = Substr(curline.3,zone.1,zone.2-zone.1+1) If Line_Part == Last_line Then Do n = n + 1 'DELETE' 'UP 1' End Else Do Last_line = Line_Part End End If n = 0 Then 'COMMAND EMSG' 'There are no duplicate lines, so I didn''t delete any.' Else 'COMMAND EMSG' 'I deleted' n 'duplicate lines.' 'TOP'