SUB
SetFlag
(
Line
AS Integer ,
Flag
AS Integer ,
Value
AS Boolean )