home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64apps / split.img (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-08-08  |  1.0 KB  |  32 lines
  1. 10 REM COPYRIGHT 1984 JOEL M. RUBIN--COMMERCIAL RIGHTS RESERVED
  2. 20 REM SPLIT A BIG TEXT FILE FOR WORDPROCESSING
  3. 70 REM ** STRING THING (UNIVERSAL) **
  4. 80 REM **     JIM BUTTERFIELD      **
  5. 90 REM STRING MUST BE FIRST VARIABLE
  6. 100 A$="ABCDEFGHIJKLMNOPQ"
  7. 110 A$=A$+A$+A$+A$+A$
  8. 120 A$=A$+A$+A$
  9. 130 REM ABOVE SETS STRING FOR MAX (255)
  10. 200 DATA 160,2,177,45,153,137,0,200,192,6
  11. 210 DATA 208,246,162,1,32,198,255
  12. 220 DATA 32,228,255,201,13,240,15,164,142,145
  13. 230 DATA 140,200,132,142,196,139,240,4,165,144,240,234,76,204,255
  14. 250 FORJ=896TO937:READX:POKEJ,X:T=T+X:NEXTJ
  15. 260 IFT<>6120THENSTOP
  16. 400 PRINT"[147]INPUT FILE IS ON DEVICE 8,"
  17. 410 PRINT"DRIVE 0"
  18. 420 INPUT"I/P FILE";FI$
  19. 430 OPEN15,8,15,"I0"
  20. 440 OPEN1,8,2,FI$+",S,R":INPUT#15,A,B$,C,D:IFATHENPRINTA;B$C;D:STOP
  21. 450 INPUT"OUTPUT DEVICE  8[157][157][157]";OD
  22. 460 INPUT"OUTPUT DRIVE  0[157][157][157]";OE
  23. 470 OPEN14,OD,15:IF(OD<>8)OROETHENPRINT#14,"I"+CHR$(48+OE)
  24. 480 INPUT"APPROX. BYTES/O-P FILE";BY
  25. 490 NF=0
  26. 500 OPEN3,8,3,FI$+MID$(STR$(NF),2)+",S,W":NB=0:PRINT"[207]/[208] [198]ILE #"NF
  27. 505 INPUT#14,A,B$,C,D:IFA<>0THENCLOSE2:PRINTA;B$C;D:STOP
  28. 510 SYS896:L=PEEK(142):NB=NB+L:SS=ST:PRINT#3,LEFT$(A$,L)
  29. 520 IFSSTHENCLOSE1:CLOSE3:END
  30. 530 IFNB>BYTHENCLOSE3:NF=NF+1:GOTO500
  31. 540 GOTO510
  32.