1: DECLARE FUNCTION Ilength$ (txt$) 2: DECLARE FUNCTION LastPart$ (t$) 3: INPUT "Filelist-->", aff$ 4: INPUT "PackedFile-->", Pack$ 5: On error Goto XXS 6: OPEN Pack$ FOR BINARY AS #2 7: OPEN aff$ FOR INPUT AS #3 8: DIM ff AS STRING * 1000 9: DO UNTIL EOF(3) 10: LINE INPUT #3, flnm$ 11: OPEN flnm$ FOR BINARY AS #1 12: ttl$ = Ilength$(LastPart$(RTRIM$(LTRIM$(UCASE$(flnm$))))) 13: FOR m = 1 TO LEN(ttl$) 14: dd$ = MID$(ttl$, m, 1) 15: PUT #2, , dd$ 16: NEXT m 17: ffs = LOF(1) 18: PUT #2, , ffs 19: FOR mm = 0 TO LOF(1) 20: GET #1, , ff 21: IF LEN(ff$) + mm > LOF(1) THEN gg$ = LEFT$(ff, LOF(1) - mm): PUT #2, , gg$: m = m + LEN(gg$): EXIT FOR ELSE PUT #2, , ff 22: 'PRINT LOF(1); LOF(2); LEN(ff$); LEN(gg$); mm 23: mm = mm + (LEN(ff) - 1) 24: NEXT mm 25: CLOSE 1 26: LOOP 27: decidednum = 100 - VAL(RIGHT$(STR$(LOF(2)), 2)) 28: IF decidednum < 12 THEN decidednum = decidednum + 100 29: FOR maxm = 1 TO decidednum 30: nn = nn + 1 31: nm$ = RIGHT$(LTRIM$(RTRIM$(STR$(nn))), 1) 32: PUT #2, , nm$ 33: NEXT maxm 34: XXS: 35: CLOSE 1, 2, 3, 4, 5, 6, 7, 8, 9 36: END 37: RESUME NEXT 38: 39: FUNCTION Ilength$ (txt$) 40: Ilength$ = STRING$(12 - LEN(txt$), 32) + txt$ 41: END FUNCTION 42: 43: FUNCTION LastPart$ (t$) 44: FOR q = LEN(t$) TO 1 STEP -1 45: IF MID$(t$, q, 1) = "\" THEN EXIT FOR ELSE nn$ = MID$(t$, q, 1) + nn$ 46: NEXT q 47: LastPart$ = nn$ 48: END FUNCTION 49: |