User manual

ManualsBrandscommtech wireless ManualsGadgetsMercury 8-Line

ECE 477 Final Report Spring 2004

Open Location.Text For Output As #1

For Counter = 0 To 2

Print #1, Cat.Item(Counter)

Next

For Counter = 0 To 12

Print #1, Item1.Item(Counter)

Next

For Counter = 0 To 12

Print #1, Item2.Item(Counter)

Next

For Counter = 0 To 12

Print #1, Item3.Item(Counter)

Next

Close #1

Debug1.Text = "Saved " + Location.Text

End Sub

F-29