• One From The Vault: "DISKAID.BIN", UUencoded (4K)

    From Cameron Kaiser@21:1/5 to All on Mon Jul 20 17:40:11 2020
    ******************************************************************
    *** ***
    *** 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 <[email protected]>
    Reply-to: John Iannetta <[email protected]>
    X-Original-Posting-Date: Mon, 7 Sep 1998 10:52:37 -0400

    [ Converted from PETSCII by hand -- Moderator ]

    This is DRIVEAID.BIN, uuencoded. It is a program for the Commodore-64 and the 1541/1571 drive. A one-block file is written to disk; you select which of
    two things that you want the file to do. One option is to disable bumps,
    useful for running copy-protected programs. The other option is to instruct
    DOS to make every effort to read sectors. That can be useful when hard-to-read sectors start appearing in important files. The idea is to use either a disk-copy or a file-copy utility to copy the file, and then get rid of it.

    Once you have the one-block file, do a:

    LOAD"FILENAME",D,1 <RETURN>

    (where D is the drive device number) to do the "memory-write" to DOS address 106. Don't try to run the file, just loading it does the job. And any BASIC program in memory is preserved. Docs included with this program.

    begin 644 driveaid.bin M`0@M"`H`ES4U+"XZES4V+#$V,#J<.E$DLL<H,S0I.DTDLL<H,3,I.IXR-S8U M`#<(%`"9(I..(@!>"!X`F2)%3E1%4B!$25-+($12259%($1%5DE#12!.54U" M15(N(@!Y""@`F2(1*$5.5$52(#`@5$\@15A)5"XI(@"0"#(`F2(1("`XD2(Z MA40ZBT2R+J>``+T(/`"+1+,TL$2Q,S"GF2*3$DE,3$5'04P@1$5624-%($Y5 M34)%4B(ZB3,P`/4(1@"?,34L1"PQ-3J@,34ZBU-4IYDBDQ(_1$5624-%(CM$ M.R*=($Y/5"!04D5314Y4(CJ),S``"`E0`)\Q-2Q$+#$U.IDBDR([`",)6@"9 M(A%%3E1%4B!!($9)3$5.04U%+A$B`#D)9`!&)+(B(CJ%1B0ZBT8DIS$R,`!' M"6X`F3J@,34ZB3(P`&D)>`"9(A%04D534R!$(%1/($1)4T%"3$4@0E5-4%,N M(@","8(`F2(14%)%4U,@4B!43R!214-/5D52(%-%0U1/4BXB`*L)C`"A020Z MBT$DLB)$(J>7,C8Y,BPQ,S,ZB3$W,`#$"98`BT$DLB)2(J>7,C8Y,BPP.HDQ M-S``S0F@`(DQ-#``ZPFJ`)\X+$0L,2Q&)#J--3`P.HM&IZ`X.HDQ,3``(PJT M`)DBDU=2251)3D<@(CM1)#M&)#M1)#LB+BXN(CLZGC(W-#`ZF:,S,RD[(BXN M+D1/3D4B.P`L"KX`B3$Q,`!`"O0!A#$U+$HD+$\D+$@D+$XD`'0*_@%&LBXZ MBTHDL[$B,#`BIYDBDQ(B.THD.R(L(CM/)#LB+"([2"0[(BPB.TXD.D:R,0!Z M"@@"C@```,X"32U7:@`!!:D'HLZ@`B"]_ZD/J*:Z(+K_(,#_J0\@P_^E(FD" MA2VE(VD`A2X@4^1,>^.+X]4"H@@@R?^BR+VT"2#2_^C0]R#,_ZD(3,/_`*E@ MA8H@B@`XH`"$D+$MA0*8D2VZBND"JIIH:;>%_:IH:0"%_JB*:2"JF&D`J(:; MA)R*:7:%^YAI`(7\BFD?JIAI`*B*(!ZK(.3_R0W0^:D$(+'_J6<@D_^I%XT` MW:T`W1!`($3EH`&B%['[\!T@%N?F^]`"YOSDUK#OI?VD_B`>JR#D_\D-T/GP MV!BB&*``(/#_I9NDG"`>JR#D_\D-T/GP$Z``L?OP#2"H_R`6Y\C0\^;\T.^@ M`*4"D2U,KO\2T%)%4U,@/-+%U-72SCX@1D]2($Y%6%0@4$%'12Z2`!+%3D0@ M3T8@1DE,13L@4%)%4U,@/-+%U-72SCXND@"3$0[)1B!04DE.5$52("A$159) M0T4@-"D@25,@S\X@5TA%3@T1/-+%U-72SCX@25,@4%)%4U-%1"P@3U544%54 M(%=)3$P@0D4@5$\@(!%04DE.5$52+@"3DPX@("`@U$A)4R!04D]'4D%-+"!& M3U(@5$A%(,,M-C0@04Y$(%1(10TQ-30Q+S$U-S$@1$E32R!$4DE612P@34%9 M($)%(%53140@1D]2#5173R!$249&15)%3E0@4%524$]315,N("#/3D4@25,@ M5$\-1$E304),12!(14%$(")"54U04R(L(%1(050@4D%4+51!5"U4050-4T]5 M3D0@5$A!5"!42$4@1%))5D4@4D5!1"]74DE412!(14%$#4U!2T53(%=(14X@ M250@4D5014%4141,62!(2513(%1(12!35$]0#4%4(%1204-+(#$N("#42$4@ M1%))5D4@5TE,3"!$3R!42$%4#4%55$]-051)0T%,3%DL(%=(14X@250@2$%3 M(%123U5"3$4-4D5!1$E.1R!!(%-%0U1/4BX@(,U!3ED@0T]062U04D]414-4 M140-4%)/1U)!35,@05)%(%-/3$0@5TE42"!33TU%($-/4E)54%1%1`U$25-+ M(%-%0U1/4E,N("#72$5.(%1(12!04D]'4D%-($E3(%)53BP-250@04-#15-3 M15,@3TY%($]&(%1(3U-%(%-%0U1/4E,N("#42$4-4%)/1U)!32!42$5.($-( M14-+4R!&3U(@02!$25-+($524D]2.PU)1B!)5"!)4R!&3U5.1"P@5$A%(%!2 M3T=204T@4%)/0T5$15,N#<5,4T4L(%1(12!04D]'4D%-($9)1U5215,@5$A! M5"!93U4-0T]0245$(%1(12!04D]'4D%-(%1/($$@1T]/1"!$25-++"!!3D0- M04)/4E13("A33TU%5$E-15,@5TE42"!2541%($%#0U53051)3TY3#4%"3U54 M(%E/55(@2$].15-462DN("#42$E3(%!23T=204T@5TE,3`U,150@64]5($1) M4T%"3$4@5$A/4T4@0E5-4%,L(%-/(%1(050@00U#3U!9+5!23U1%0U1%1"!7 M24Q,(%!23T-%1$4@5TE42$]55`U704M)3D<@55`@5$A%(%=(3TQ%($Y%24=( M0D]22$]/1"!!3D0-5$%+24Y'(#8@34].5$A3($]&1B!42$4@3$E&12!/1B!9 M3U52#412259%+@T-("`@(-1(12!/5$A%4B!54T4@1D]2(%1(25,@4%)/1U)! M32!)4PU43R!214-/5D52($)!1"!314-43U)3+B`@TT]-151)3453($%.#4E- M4$]25$%.5"!&24Q%($-!3DY/5"!"12!214%$.R!44EE)3D<-5$\@1$\@4T\@ M4D5354Q44R!)3B#$S],@4D5!1"!%4E)/4E,N#=1(12!214%33TX@0T%.($)% M($1)4TL@5T5!4B!&4D]-#5)%4$5!5$5$(%5312P@4U1/4DE.1R!42$4@1$E3 M2R!/3B!!#4U!1TY%5%)/3B!-04=.150L(%5324Y'($E4($%3($$-0T]!4U1% M4B!&3U(@64]54B!#2$]#3TQ!5$4@34E,2R!32$%+15,L#51264E.1R!43R!& M250@250@24Y43R!93U52(#$U.#$L($]2($%.60U/3D4@3T8@34%.62!/5$A% M4B!214%33TY3+"!43T\-2%5-3U)/55,@5$\@345.5$E/3BX@(-1(25,@4%)/ M1U)!32!724Q,#51%3$P@Q,_3($Y/5"!43R!'259%(%50($].(%)%041)3D<@ M00U314-43U(@54Y424P@250@5%))15,@,C4V(%1)3453+"!42$5.#41/15,@ M02!3145+("@R-38@4D5!1"!!5%1%35!44R!7251((%1(10U(14%$($U/5D5$ M(#$O,B!44D%#2R!)3E=!4D0L($%.1"!42$5.#3(U-B!!5%1%35!44R!7251( M(%1(12!(14%$($U/5D5$(#$O,@U44D%#2R!/551705)$($923TT@5$A%($]2 M24=)3D%,#5!/4TE424].*2P@04Y$(%1(14X@02!"54U0+"!&3TQ,3U=%1"!" M60TR-38@34]212!214%$($%45$5-4%13+B`@U$A%($E$14$@25,@5$\-5%)9 M(%1/($-/4%D@5$A%($9)3$4@55-)3D<@02!$25-++4-/4%D-3U(@1DE,12U# M3U!9(%5424Q)5%DL($%.1"!42$5.($=%5"!2240-3T8@5$A%($]&1D5.1$E. M1R!$25-++@T-("`@(-1/($Q%5"!93U4@1$\@14E42$52($]&(%1(12!!0D]6 M12P-5$A)4R!04D]'4D%-(%=)3$P@3U9%4E=2251%($$@0EE412!)3@W$S],@ M6D523RU004=%($U%34]262`H041$4D534R`Q,#8I+@W215-%5%1)3D<@5$A% M($12259%(%!55%,@5$A%($1%1D%53%0-5D%,544@*#4I($)!0TL@24XN("#% M3E1%4B!42$4@1$E32PU$4DE612!$159)0T4@3E5-0D52($%4(%1(12!&25)3 M5`U04D]-4%0L($%.1"!!($9)3$5.04U%($%4(%1(12!314-/3D0-4%)/35!4 M+B`@U$A%3B!314Q%0U0@14E42$52(")$(B!43PU$25-!0DQ%($)535!3($]2 M(")2(B!43R!214-/5D52($)!1`U314-43U)3+B`@P2!/3D4M0DQ/0TL@1DE, M12!724Q,(%1(14X@0D4-5U))5%1%3B!43R!$25-++"!54TE.1R!42$4@4T5, M14-4140-1DE,14Y!344N("#72$5.(%)%0419(%1/(%5312!42$4@1DE,12P- M3$]!1")&24Q%3D%-12(LSBPQ("A72$5212#.($E3(%1(10U$159)0T4@3E5- M0D52*2X@(,1/(,[/U"!44ED@5$\@4E5.(%1(10U04D]'4D%-.R!*55-4($Q/ M041)3D<@250@5TE,3"!$3R!42$4-2D]"+B`@P4Y$($%.62#"P=/)PR!04D]' M4D%-($E.($U%34]260U724Q,($)%(%!215-%4E9%1"X@(-1(25,@4%)/1U)! M32!)4PW054),24,@Q$]-04E.+@T-("`@("`@("`@("`@("#*3TA.(,E!3DY% M5%1!#2`@("`@("`@("`@("`@-S8W,#,N-#(T-$!#3TU055-%4E9%+D-/30T-
    `
    end

    --
    Cameron Kaiser * [email protected] * 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)