home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / prog / arexx / splice10.lha / Splice < prev   
Encoding:
Text File  |  1993-03-23  |  836 b   |  42 lines
  1. /* ; $VER: Split 1.0 (31/3/93) By Chi Wai Lee
  2. Program to split big files into several smaller files */
  3. PARSE ARG f s
  4. IF f = "" | s = "" | s < 1000 THEN
  5. DO
  6.      SAY "Splice V1.0 (31-3-93) By Chi Wai Lee"
  7.      SAY "USAGE: Splice FILENAME MAXSIZE (multiple of 1000)"
  8.      EXIT
  9. END
  10. IF ~EXISTS(f) THEN
  11. DO
  12.      SAY "Cannot find "f
  13.      EXIT
  14. END
  15. IF s // 1000 ~= 0 THEN
  16. DO 
  17.      SAY "MAXFILESIZE has to be a multiple of 1000."
  18.      EXIT
  19. END
  20. SAY "Splice V1.0 By Chi Wai Lee"
  21. SAY "Splicing "||f||" into"||s||" byte blocks."
  22. CALL OPEN("f",f,"R")
  23. n = 1
  24. rl = s
  25. DO WHILE rl >= 65535
  26.      rl = rl / 2
  27. END
  28. z = READCH("f",rl)
  29.  
  30. DO UNTIL EOF("f")
  31.      CALL OPEN("fo",f||"."||n,"W")
  32.      DO i = 1 TO s BY rl
  33.           CALL WRITECH("fo",z)
  34.           z = READCH("f",rl)
  35.      END
  36. n = n + 1
  37. CALL CLOSE("fo")
  38. END
  39. SAY n-1||" files written."
  40. SAY "All done."
  41. EXIT
  42.