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 * 1000 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: CLOSE 1 21: LOOP 22: CLOSE 1, 2, 3, 4, 5, 6, 7, 8, 9 23: 24: FUNCTION LastPart$ (t$) 25: FOR q = LEN(t$) TO 1 STEP -1 26: IF MID$(t$, q, 1) = "\" THEN EXIT FOR ELSE nn$ = MID$(t$, q, 1) + nn$ 27: NEXT q 28: LastPart$ = nn$ 29: END FUNCTION 30: |