1: DECLARE FUNCTION LastPart$ (t$) 2: INPUT "Filelist-->", aff$ 3: INPUT "PackedFile-->", Pack$ 4: OPEN Pack$ FOR BINARY AS #2 5: OPEN aff$ FOR INPUT AS #3 6: DIM ff AS STRING 7: DO UNTIL EOF(3) 8: LINE INPUT #3, flnm$ 9: OPEN flnm$ FOR BINARY AS #1 10: ttl$ = LastPart$(RTRIM$(LTRIM$(UCASE$(flnm$)))) + "®" + RTRIM$(LTRIM$(STR$(LOF(1)))) + "¯" 11: FOR m = 1 TO LEN(ttl$) 12: dd$ = MID$(ttl$, m, 1) 13: PUT #2, , dd$ 14: NEXT m 15: FOR mm = 1 TO LOF(1) 16: GET #1, , ff 17: IF LEN(ff) + mm > LOF(1) THEN PRINT LEN(ff); mm; LOF(1); : gg$ = MID$(ff, 1, (LOF(1) - mm)): PUT #2, , gg$: PRINT LEN(gg$); mm + LEN(gg$); LOF(1): mm = mm + LEN(gg$): EXIT FOR ELSE PUT #2, , ff 18: mm = mm + LEN(ff) 19: NEXT mm 20: PRINT LOF(1); LOF(2); mm 21: CLOSE 1 22: LOOP 23: CLOSE 1, 2, 3, 4, 5, 6, 7, 8, 9 24: 25: FUNCTION LastPart$ (t$) 26: FOR q = LEN(t$) TO 1 STEP -1 27: IF MID$(t$, q, 1) = "\" THEN EXIT FOR ELSE nn$ = MID$(t$, q, 1) + nn$ 28: NEXT q 29: LastPart$ = nn$ 30: END FUNCTION 31: |