3755 FOR I=1 TO NFT(1)