3800 FOR I=1 TO NFT(2)