• One From The Vault: "SLICE.BIN", UUencoded (3K)

    From Cameron Kaiser@21:1/5 to All on Fri Feb 26 18:40:01 2021
    ******************************************************************
    *** ***
    *** comp.binaries.cbm is a moderated binaries- ***
    *** only newsgroup (no discussion or ***
    *** crossposting allowed) for Commodore 8-bits ***
    *** ***
    *** For information on comp.binaries.cbm visit ***
    *** http://www.floodgap.com/comp.binaries.cbm/ ***
    *** ***
    *** This file is available via mailing list at ***
    *** http://lists.trikaliotis.net/listinfo/comp-binaries-cbm/ ***
    *** to list subscribers ***
    *** Allow time for submission to be received ***
    *** ***
    ******************************************************************

    * One from the Vault is a collection of frequently requested, useful or just
    plain interesting past posts sent to comp.binaries.cbm, as archived by the
    moderators. If you have a request, please send it to the address in the
    headers. In addition to being selected and reposted by moderation staff,
    some of these postings are regularly posted on Mondays and Fridays on a
    rotating schedule.

    Take care when replying to these messages, as many were posted years ago.


    From: John Iannetta <76703.4244@compuserve.com>
    Reply-to: John Iannetta <76703.4244@compuserve.com>
    X-Original-Posting-Date: Sun, 2 May 1999 03:49:16 -0400

    This is "SLICE.BIN", UUencoded. It is a C-64 program that is 100% BASIC. It will slice a disk file into slices (named "slice 1", "slice 2", etc.), each slice containing the number of disk blocks that you select. Except for, perhaps, the last block. For use on the 1541/1571/1581, a file may contain thousands of blocks. No new files are created; the original is sliced up.


    begin 644 slice.bin M`0@L"`H`ES4V+#$V,#J7-34L+CJ<.EHDLL<H+BDZ422RQR@S-"DZF2*3CB(` M4P@+`)DB14Y415(@1$E32R!$4DE612!$159)0T4@3E5-0D52+B(`;P@,`)DB M$2A%3E1%4B`P(%1/($58250N*1$B`(4(#0"9(B`@.)$B.H5$.HM$LBZG@`"R M"`X`BT2S-+!$L3,PIYDBDQ))3$Q%1T%,($1%5DE#12!.54U"15(B.HDQ,0#H M"`\`ES$X-"PX.I<Q.#4L.#J7,3@V+$0ZES$X,RPQ.I<Q.#<L,C(ZES$X."PX M.IXV-30W,@`<"1``B\(H-S@S*:\QIZ`X.IDBDQ(_1$5624-%(CM$.R*=($Y/ M5"!04D5314Y4(CJ),3$`3PD1`*`X.I\Q-2Q$+#$U.H0Q-2Q*)"Q/)"Q()"Q. M)#J+2B2SL2(P,"*GH#$U.HDR,#``<0D2`)@Q-2PB53DB.H0Q-2Q")"Q")#I$ M)++)*$(D+#0I`*()$P"--C`P.IDZBT8DLB(BIZ`Q-3J9(I,23D\@1DE,15,@ M4T5,14-4140B.HDQ,0##"10`GS@L1"PX+$8D.H0Q-2Q*)"Q/)"Q()"Q.)#J@ M.`#5"14`BTHDL[$B,#`BIS(P,`#X"18`GS@L1"PX+"(C(CJ+1"2R(C$U.#$B MIXTW,#`ZB3(W``$*%P"--3`P`!8*&`"8,34L(E4Q(CLX.RX[5#M3`#0*&P"8 M,34L(D(M4"([.#M0JC$ZH2,X+%0D+%,D`%0*'`!45++&*%0DJEHD*3I34[+& M*%,DJEHD*3I9LD(`>0H=`)DB$4Y534)%4B!/1B!"3$]#2U,@24X@1DE,12`] M(CM"`*@*'@"9(A%%3E1%4B!.54U"15(@3T8@0DQ/0TM3($9/4B!%04-((%!! M4E0N$2(`Q@H?`(5..HM.LK%"IYDB$51/3R!-04Y9(CJ),CD`WPH@`(M.LS&G MF2(15$]/($9%5R(ZB3(Y``\+(0!.3K)..D8DLB)33$E#12`Q(CJ9(I,13TY% M($U/345.5"!03$5!4T4N+BXB`$@+(@"?.2Q$+#DL1B0ZA#$U+$HD+$\D+$@D M+$XD.J`Y.HM*)+(B,#`BIT8DLD8DJB)842(ZB3,T`&8+(P!&)++(*$8D+#$V M*3J+2B2SL2(V,B*G,C`P`(X+)`"!2;(QI,,H1B0I.I@X+,HH1B0L22PQ*3LZ M@CJ+2;(Q-Z<S.`"D"R4`@4FR2:0Q-CJ8."PBH"([.H(`N0LF`)@Q-2PB0BU0 M(CLX.U"J,C@`SPLG`$BR*$ZM,C4V*3I,LDZO,C4U`.$+*`"8."S'*$PI.\<H M2"D[`/D+*0"8,34L(E4R(CLX.RX[5#M3.J`X`!4,*P!&)+(B4TQ)0T4BJL0H M*%FK0BFM3JHR*0`X#"P`GS@L1"PX+$8DJB(L5R(ZA#$U+$HD+$\D+$@D+$XD M`%<,+0"@.#J+2B2R(C8S(J=&)+)&)*HB6%$B.HDT-`!I#"X`BTHDL[$B,#`B MIS(P,`"9#"\`GS@L1"PX+$8D.J`X.I\X+$0L."PB(R(ZBT0DLB(Q-3@Q(J>- M-S`P.HDV,`"B##(`C34P,`"P##P`5#&R5#I3,;)3`,<,00"8,34L(E4Q(CLX M.RX[5%0[4U,`U0Q#`*$C."Q4)"Q3)`#O#$8`5++&*%0DJEHD*3I3LL8H4R2J M6B0I``H-2`!.LDZK,3J+3J=45+)4.E-3LE,ZB38U`!P-2P"8,34L(D(M4"([ M.#LN`"X-30"8."Q:)#O'*#(U-2D[`$4-4`"8,34L(E4R(CLX.RX[5%0[4U,` M5PU2`)@Q-2PB4S`Z(CM&,B0`;@U5`)@Q-2PB53$B.S@[+CM4,3M3,0"`#5<` MF#$U+")"+5`B.S@[4`"6#5H`F#@L(H$B.\<H5"D[QRA3*3L`JPU<`)@Q-2PB M0BU0(CLX.U"J,C@`R@U=`$*R0JM.3CI8LDY..HM"LK-.3J=8LD(Z1K(Q`.$- M7P!(LK4H6*TR-38I.DRR6*\R-34`\PU@`)@X+,<H3"D[QRA(*3L`"@YA`)@Q M-2PB53(B.S@[+CM4,3M3,0`F#F0`H#@ZBT:GH#$U.IDB$2XN+D1/3D4B.H`` M/0YN`$ZR3DXZ5%2R5#I34[)3.HDT,P!P#L@`F2*3$B([2B0[(B`@("`B.T\D M.R(@("`@(CM()#LB+"([3B0ZH#$U.J`X.HDQ,0"!#BP!F#$U+")-+5*1!04B M`*8.-@&A(S$U+$$D+$(D.E.RQBA!)*I:)"DZ4++&*$(DJEHD*0"L#DH!C@"] M#O0!F#$U+")-+5*0`@4B`.0._@&A(S$U+$$D.E.RQBA!)*I:)"DZH2,Q-2Q! M)#JA(S$U+$$D``,/"`*A(S$U+$$D.J$C,34L020Z4++&*$$DJEHD*0`.#Q(" M5+(Q.#J.`#8/6`*9(I,114Y415(@1$E214-43U)9(%-%05)#2"!35%))3D<N M(@!=#UT"F2(1("`JD2(ZA4$D.I\X+$0L+BPB)"*J020ZF2*3,"`B.P!W#V(" MH2,X+$$D+$$D+$$D+$$D+$$D+$$D`)0/9P*A(S@L020ZBT$DL[$B(J>9020[ M.HDV,34`K@]L`IDZF2(1$5-,24-%("A9+TXI/Q$1(@"\#W$"H2,X+$$D+$$D M`/D/=@*A(S@L020L0B0Z0K+&*$$DJEHD*:HR-3:LQBA")*I:)"DZ0B2R(B(Z MF2*1G2`@(""=G9V=(CM".P`0$'L"H2,X+$$D.HM!)+(B0B*G-C<U`"40@`*9 M020[.HM!)+.Q422G-C,U`$L0B@*A(S@L020ZF4$D.SJ+022SL5$DIT(DLD(D MJD$D.HDV-3``:!"/`J$C."Q!)#J+022SL2(BIYE!)#LZB38U-0!\$)0"H4$D M.HM!)+(B62*G-C<U`)(0F0*+022R(DXBIYDBD2(ZB38R-0";$)X"B38V,`"J M$*,"1B2R0B0ZH#@ZC@#)$+P"5+(T,#I!LBXZF#$U+")-+5(5(CM:)#LB!"(` M^1#!`J$C,34L020ZBT$DL[$B*"*GH2,Q-2Q!)"Q!)"Q!)#I3LL8H020I.HDW M,C``(A'&`J$C,34L020L0B0L0B0Z4[+&*$(D*3J+022S0B2G4[+&*$$D*0`M M$=`"H2,X+$$D`$P1U0*8,34L(E4Q(CLX.RX[5#M3.J$C."Q!)"Q!)`!Z$=H" MH2,X+$(D+$$D+$$D.HM")+):)*>!2;(QI#$V.J$C."Q!)#J".HDW-#4`I1'? M`D(DLB(B.H%)LC&D,38ZH2,X+$$D.HM!)+.Q(J`BIT(DLD(DJD$D`+T1Y`*" M.HM")+)&)*=0LC,RK$&J,CJ.`.T1Z0*!2;(QI#$Q.J$C."Q!)#J".D&R0:HQ G.HM!L[$XIZ$C."Q!)"Q!)#J)-S,P`/P1[@)3LE.J,3J)-S(U````
    `
    end
    --
    Cameron Kaiser * ckaiser@floodgap.com * posting with a Commodore 128
    Floodgap Systems: http://www.floodgap.com/
    personal page: http://www.cameronkaiser.com/

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)