1: 2: 3: OPEN path3$ FOR BINARY AS #1 4: DIM ff AS STRING * 10000 5: DIM hh AS STRING * 1 6: FOR mmmm = 1 TO LOF(1) 7: 8: 'ttl$= 9: 10: PUT #1, , ttl$ 11: filsiz = VAL(fil$) 12: path4$ = Path2 + flnm$ 13: mmmm = (mmmm + xxxx) 14: FOR q = 1 TO filsiz 15: GET #2, , ff 16: IF q + LEN(ff) > filsiz THEN gg$ = MID$(ff, 1, (filsiz - q) + 1): PUT #2, , gg$ ELSE PUT #2, , ff 17: q = q + LEN(ff) - 1 18: NEXT q 19: mmmm = (mmmm + q) - 1 20: NEXT mmmm 21: CLOSE 1, 2 22: |