1: DECLARE FUNCTION Ilength$ (txt$) 2: DECLARE FUNCTION LastPart$ (t$) 3: INPUT "Filelist-->", aff$ 4: INPUT "PackedFile-->", Pack$ 5: OPEN Pack$ FOR BINARY AS #2 6: OPEN aff$ FOR INPUT AS #3 7: DIM ff AS STRING * 500 8: DO UNTIL EOF(3) 9: LINE INPUT #3, flnm$ 10: OPEN flnm$ FOR BINARY AS #1 11: ttl$ = Ilength$(LastPart$(RTRIM$(LTRIM$(UCASE$(flnm$))))) + "®" + RTRIM$(LTRIM$(STR$(LOF(1)))) + "¯" 12: FOR m = 1 TO LEN(ttl$) 13: dd$ = MID$(ttl$, m, 1) 14: PUT #2, , dd$ 15: NEXT m 16: FOR mm = 0 TO LOF(1) 17: GET #1, , ff 18: IF LEN(ff$) + mm > LOF(1) THEN PRINT mm + LEN(ff$); " is greater than "; LOF(1); " so"; : gg$ = LEFT$(ff, LOF(1) - mm): PUT #2, , gg$: PRINT " put only the first "; LOF(1) - mm; " bytes.": m = m + LEN(gg$): EXIT FOR ELSE PUT #2, , ff 19: PRINT LOF(1); LOF(2); LEN(ff$); LEN(gg$); mm 20: 'SLEEP 21: mm = mm + (LEN(ff) - 1) 22: NEXT mm 23: CLOSE 1 24: LOOP 25: CLOSE 1, 2, 3, 4, 5, 6, 7, 8, 9 26: 27: FUNCTION Ilength$ (txt$) 28: Ilength$ = STRING$(12 - LEN(txt$), 32) + txt$ 29: END FUNCTION 30: 31: FUNCTION LastPart$ (t$) 32: FOR q = LEN(t$) TO 1 STEP -1 33: IF MID$(t$, q, 1) = "\" THEN EXIT FOR ELSE nn$ = MID$(t$, q, 1) + nn$ 34: NEXT q 35: LastPart$ = nn$ 36: END FUNCTION 37: |