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