[a2000]

tel chì cotto e mangiato:

Sub dani(NumCar)

 Open "c:\temp\prova1.txt" For Input As #1
 Open "c:\temp\prova2.txt" For Output As #2
 
 NumCar1 = LOF(1)
 For i% = 1 To Int(NumCar1 / NumCar)
  a$ = Input(NumCar, #1)
  Print #2, a$ & Chr$(10)
 Next i%
 a$ = Input(NumCar1 Mod NumCar, #1)
 Print #2, a$ & Chr$(10)
 
 Close

End Sub

prevedo di potere ridurre le istruzioni a diciamo 1/3 (da 10 a 3)