added sysprog entities

SYSPROG/STPROC/T_CLEAN_SYSLISTS.txt

@@ -0,0 +1,60 @@
+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 ''