Subroutine t_clean_syslists(void)


Open 'SYSLISTS' To f_syslists Else
	debug
	x = 'wtf?'
	Return ''
End

debug
list = ''
done = ''
Select f_syslists
Loop
	Readnext id Else done = 1
Until done
	killit = 0
	Begin Case
		Case id[1,1] eq '$'; killit = 1
		Case Index(id, '__',1)
		Case Indexc(id, 'BARRY',1)
		Case Indexc(id, 'SEAN',1)
		Case Indexc(id, 'BOBC',1)
		Case Count(id,'*') gt 1 And Index(id, '201', 1) ; killit = 1
		Case Count(id,'*') gt 1 And Index(id, '*15', 1) ; killit = 1
		Case Count(id,'*') gt 1 And Index(id, '*14', 1) ; killit = 1
		Case id[1,2] _Eqc 'W*'
		     test = id[-1,'B*']
			 test = test[1,'.']
			 If test gt 0 And test lt date() Then
			    killit = 1
			 end
	End Case
	If killit Then
		list<-1> = id
	End
	
Repeat
debug

id = ''
col = ''
Loop
	Remove id From list at col Setting mark
	If id # '' Then
		test = id[-1,'B*']
		Begin Case
			Case Index(test, '.',1)
			Case alpha(test)
			Case Num(test)
				id = Field(id, '*', 1, Count(id, '*'))
		End Case
		If id # '' Then
			Call Delete_Save_Select(id)
			Call Set_Status(0)
		end
	End
While mark
repeat
Return ''
