<P>Dim NNode, I, J, k As Integer<BR>Dim Ntemp() As Double</P>
<P>Private Sub Command1_Click()</P>
<P>Open "temp.txt" For Input As 2<BR>Input #2, NNode</P>
<P>ReDim Ntemp(0 To NNode, 0 To 2)</P>
<P>For I = 1 To NNode<BR>Input #2, Ntemp(I, 1), Ntemp(I, 2)<BR>Next I</P>
<P>Close #2</P>
<P><BR>Open "temp.inp" For Output As 3</P>
<P><BR>For I = 1 To NNode<BR><BR>Print #3, "BF,", Int(Ntemp(I, 1)), ",temp,", Ntemp(I, 2)<BR><BR>Next I</P>
<P>Close #3</P>
<P>End Sub<BR></P>