Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!husc6!rutgers!mcnc!ece-csc!ncrcae!ncr-sd!hp-sdd!hplabs!ucbvax!mitre-bedford.ARPA!jhs
From: jhs@mitre-bedford.ARPA
Newsgroups: comp.sys.atari.8bit
Subject: SHRINK program to encode a whole disk into a file
Message-ID: <8711181636.AA20022@mitre-bedford.ARPA>
Date: Wed, 18-Nov-87 11:36:40 EST
Article-I.D.: mitre-be.8711181636.AA20022
Posted: Wed Nov 18 11:36:40 1987
Date-Received: Sun, 22-Nov-87 15:48:25 EST
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The ARPA Internet
Lines: 117

By popular request (well, would you believe one request that was convincing?),
here is SHRINK, in uuencoded form.

SHRINK, in case you aren't aware of it, is one of several utilities for
encoding a whole disk into a file.  It does some data compression along the
way, so the file usually will fit on a single disk of the same density as
the original, despite the fact that the new disk also has to allocate space
for its disk directory, etc.  SHRINK puts up a menu which lets you choose
encoding (shrink) or decoding (unshrink) mode.

SHRINK or one of its relatives (DISKCOM or SCRUNCH) should be used when you
want to send a boot disk or a version of DOS, etc., over the net.  The normal
procedure would be to SHRINK a disk into a file, then UUENCODE the file
(perhaps using Dunning's YAUE), and then send the file.  At the other end,
the recipient of course must first UUDECODE the file, then UNSHRINK it to
a new disk, which now becomes an exact replica of the original disk.

SHRINK is needed to UNSHRINK the version of FrOst BASIC that I have sent to
several people, as that program is provided as a boot disk.

Anyway, here's SHRINK.  The title screen gives credits, sorry I don't
recall the name of the author.

-John Sangster, jhs@mitre-bedford.arpa
----------------------------c-u-t---h-e-r-e-----------------------------------
begin 600 shrink.com
M__^T +8 1&XZ___& ,P 1#$Z*BXJF___KP7]!B [M) #3$NTYH?0 N:(I8>-
M"@.EB(T+ Z63C00#I92-!0.I0(T# ZE2C0(#J3&-  .EG8T! ZD C0<#C0D#
MJ06-!@.I@(T( R!9Y*T# Q #3,6W8'V;L;J@T\C2R<[+H)M7:&EC:"!D<FEV
M92!H87,@=&AE(&1I<VL@=&\@8F6;4TA254Y+/R  ?4EN<V5R="!D:7-K*',I
MFP"I Z &(*VT(/NU(&RZA9T@A[FI.* &(*VT(-FU&*6=:3#%M? $A:+0#J6C
M\ H@1;NEK(6E( V[J0"%C(6<A8>%B(6)(*\%K><"A8"MZ *%@:  N1*\\ 61
M@,C0]ABE@&D,A96E@6D A99,OP:MZ *%EJWG H65&*65:0.%E:66:0"%EJ65
MA9BEEH69J0"%C86.I96%FJ66A9NI (6/A9"%D:2)L9.%E^:)$ <@KP6I (6)
M3)FR__^9LAZ\I9#0(*6/R06P&J67H "1E3BEE>F)I9;ILI #3&>SYI70 N:6
MI(FQD\67T GFC] "YI!,Z@:ED- EI8_0">:-T +FCDS:!J6/R06P$N:/&*6/
M98V%C:6.:0"%CDS:!CBEF.D#A8"EF>D A8&ECM $I8WP&*  J?^1@,BECI& 
MR*6-D8"EFH6 I9N%@>:/T 3FD-  H "ED)& R*6/D8"EE\B1@!BE@&D#A96E
M@6D A9:EC/ !8$R_!DEN<V5R="!D:7-K('1O('=R:71E( #FE= "YI8@"K2I
M4:"S(*VT(."YI:+0"Z6C\ >EI? #( 6[(-FUHA"I YU" ZFTG40#J0"=10.E
MG/ "T ^I")U* X6<J0"=2P,@1+JB$*D+G4(#K><"G40#K>@"G44#.*65[><"
MG4@#I9;MZ *=20,@1+JEC/ !8*GRH+,@K;2EH_ #( V[(-FU3+4&FU)E+6EN
M<V5R="!S;W5R8V4@9&ES:YL &.:/T +FD*6/98V%C:6098Z%CCBEF.D#A8"E
MF>D A8&@ *G_D8#(I8Z1@,BEC9& 8*6(R0+0"*6'R=#0 CA@&&!H:*G_A8RE
MCM &I8W0 O 6I9#0$J6/R06P#" *M"!PLR#[M4RJN"#WLDQHM(2?AJ @JMD@
MYMB@ +'S, 8@E[3(T/8I?R"7M*2?IJ!@A*$@__^DH6"%U(6>J0"%U2!WM*6>
M8(4"A .E5,D2D ,@S+2@ +$"\ 8@E[3(T/9@J9M,E[2@ +&3F8 $R!#XJ7T@
ME[2@ +F !)&3R!#X8.:'T +FB*6F\ J@ +&3T 3($/E@I8>-"@.EB(T+ QBE
MDXT$ Z64C04#J8"- P.I4$S8!:6BT NEH_ 'I:7P R %NZGVH+<@K;0@X+D@
MV;6EG- AHA @^[6I YU" ZFTG40#J0"=10.I!)U* ZD G4L#($2ZHA"I!YU"
M ZWG IU$ X65K>@"A9:=10,XJ8GMYP*=2 .ILNWH IU) R!$NKU# X6&&+U(
M VWG H6#O4D#;>@"A82EG- -&*65:0R%E:66:0"%ECCFG*6#Z0&%@Z6$Z0"%
MA*6BT >EH_ #( V[J=V@MTRMM-#2Q=/3H-/4P=+4 *6BT!VIS:"U(*VTK1_0
M*0'P^:D C1_0K1_0*0'0^2#'M&"I#*(0G4(#3$2Z?:"RNM7.T\C2R<[+H)N;
M1&5S=&EN871I;VX@:7,@9')I=F4C/P!3:VEP(&)L86YK('-E8W1S("A9+TXI
M/P"I (6'A8B%G(6&A8*%IJD%H+8@K;0@;+J%G2"'N:DKH+8@K;0@-KG)6= "
MA::I?2"7M!BEG6DPQ;7P H6BI:/P!R!%NZ6LA:4@&;4@V;6@ +&5R?_0,"#X
MMK&5A8H@^+:QE86)T +&BB#XMJ  L94@&+<@^+;&B=#RQHJEBLG_\ +0Z$R1
MMJ  L96%BB#XMK&5A8G0 L:*(/BVL96%A:6%(!BWQHG0]\:*I8K)_]#O(/BV
M3)&VI83%EM 1.*6#Y96% J6$Y98% O <L #FE= "YI:@ &"D@I&3YH(P 6 @
MYK2I (6"8*6&,$8@&;4@V;6@ &!]1$].12$>'AX>'O______________FP!.
M3U1%.D-/35!,151%($1)4TL@3D]4($9)3$Q%1#I%4E)/4IL (/NUJ3:@MR"M
MM*6"T \@.[20"JD A:(@V;5,JKBI3J"W(*VTI8(@G[2EAX74I8B%U2!WM$R&
MMWW]H,_VY?+R]>Z@Y?+R[_*AH,'B[_+TY>2; (62J0"%HJFJH+<@K;2EDB"?
MM"#9M4RJN$EN<V5R="!D97-T:6YA=&EO;B!D:7-KFP!);G-E<G0@9&ES:R!W
M:71H( !]5F5R(#$N,#&;FU-E;&5C=#J;FS$Z(%-H<FEN:R!A(&1I<VL@=&\@
M82!F:6QEFYLR.B!5;G-H<FEN:R!A(&9I;&4@:6YT;R!A(&1I<VN;FS,Z(%-E
M="!$96YS:71YFYM&/49O<FUA="Q$/41/4RQ"/4)O;W2;FUMH:70@<F5T=7)N
M(&9O<B!A(&1I<F5C=&]R>5V;FW\@($-H;VEC93H 2SJB4(:D&*58:2J%DZ59
M:0.%E*D,G4(#($2ZJ0.=0@.I!)U* ZD"C<8"J0R-Q0*I (W( H6BG4L#J:B=
M1 .IN)U% R!$NJD(H+@@K;0@-KG),= #3$D&R3+0 TQ#MLDST -,V;K)1M #
M3 NZR430#:W^NX4,K?^[A0UL"@#)0M #3'?DR9O0Q2".NTRJN*)0J?^-_ *I
M 9U( ZD G4D#J0>=0@.IDIU$ ZD G44#($2ZI9(@E[2EDF";16YT97(@9FEL
M96YA;64L*,3/SJ?4('1Y<&4@=&AE($0Z(2F; *EAH+D@K;2B (Y) ZD-C4@#
MJ06-0@.IMXU$ ZD C44#($2ZK$@#J0"9MP#P&)M7:&EC:"!D<FEV92!W:6QL
M(&AA=F4@ *FTH+D@K;0@X+D@-KF%M87'3,>TJ;2@ ""MM&";16YT97(@9')I
M=F4@;G5M8F5R("A215154DX]06)O<G0I *GHH+D@K;0@UKD@^[6EQ\F;\!*I
M_IU" ZG&G40#J0"=10,@1+I,JKB;_2 @R:_/H,72TL_2K:V^ "!6Y+U# Q ?
MR8CP&X62J0"%HJDSH+H@K;2EDB"?M"#[M2#9M4RJN& @-KG),9#YR3FP]3CI
M,&!]($-H86YG92!D96YS:71Y(&9O<B!W:&EC:"!D<FEV93H 1')I=F4@:7,@
M;F]W( #$[_7B[.6; -/I[N?LY9L ??T@1%))5D4@0T%.)U0@0D4@0T].1DE'
M55)%1)L J7N@NB"MM"!LNH6=J0"%I"#'M"!%NZT# Q -J;N@NB"MM"#9M4RJ
MN*6LT BI!*  H@'0"*D H("$HZ( A:R$KH:M(%&[I:3P 6 @_;NIG:"Z(*VT
MI:S0#:FSH+H@K;0@V;5,JKBIJZ"Z3#6[J4"- P.I3HT" ] *J8"- P.I3XT"
M ZFGC00#J0"-!0.I,8T  Z6=C0$#J0"-!P.-"0.I"HT& ZD,C0@#(%GD8'U$
M<FEV92,Z *F%H+L@K;0@UKFB(*D,G4(#($2ZJ0.=0@.I!IU* ZF G4L#J<:=
M1 .I )U% R!$NJ(@J06=0@.I@)U$ XU$ YU( XU( ZD%G44#C44#J0"=20.-
M20,@1+J]0P/) = -J0F-0@.B "!$NDR^NTPVN2#__ZD)A0RIO(4-8"#]NR  
MO$RJN/__![X,OK/H\O7NZP#__P!0@E38I0R-_KNE#8W_NR  O!BM!N1I 8V:
MM*T'Y&D C9NTJ0"-Q@*E6(6 I5F%@:G"A=2I4(75H@"&HX:3H "QU,G^\!\X
MAI+EDH6599.%DZ65D8#HYM30 N;5YH#0 N:!3#I0I9.%E(WP ABE6&FHA8"E
M66D A8&@ )B16*G_C?P"K?P"R?_P"*G_C?P"3*M0L8!)@)& (*!0R, ,T..@
M /#?J?N%%*44T/R%36"EE,F;J0&%G2!%NZT# \D!T *%HTQTY( ! @,$!08'
M" D*"PP-#@\0$1(3%!46%Q@9&AL<61X?("$B(R0E)B<H*2HK+"TN+S Q,C,T
M-38W.#DZ.SP]/C] 04)#AH=&1TA)2DM,34Y/4%%24U155E=865I;7%U>7V!A
M8JLR,S0U-C<XM:ZO;F]P<7)S='5V=WAY>L-02TQ-3D]045)35%565UA96EM<
M71 1$EO6UY;@X>*:FYR=GI^@H:)W:C\F)SPZ0#A"/T,\2$-$130U4'DXN;J[
M?G\^/T!!&,/$Q<;'R,G*2Z*/FYR=GI^@H:*CI*6FIZBIJK2A8.'B*ZJGJ.?H
MZ4#K[.WN[_#Q\G/*M[C$Q<;'R,G*R\S-SL_0T=O<R8@)"HOBS] /459H$Q05
M%A<8&1J;\M_@T\C&HL;-V=^GW]C<UM\#!/&P,7JS 0+XM[C[A#L\/3X_0$%"
MPQH'",?([>_[[?\"_/7_!M/4*RP9V"\;'R4F(.S@(^*M9&5F9VAI:NM"+S#O
M\/$B)1DH&R4L+/K[_%-400!70T=/4 94558**(R-CH^0D9)=86(69&5F9VAI
M:FML;6YO<'$E<W1V?VMO>7I[?'U^,E"TM;:WN+FZN[R]DI/ P0J0D9*3E)66
MEYB9H<X74*>3EYJBHZ2EH%J[W-W>W^#AXN/L?V9G@FF^N+FZN[R]OK_ P<+#
MQ,7'N[_$5U564D6<40T%!@<("0H+%*?651 16:U:%19>8*/GZ.GJZ^RJZ>/G
M=FMS=&^!Q'@U+2XO,#$R,S0U-HU 0GS5DD5'@0A!0D-$149'2$E*2TRC5EB2
M45)35%565UA96EM<75ZFKJ^H8ZNSM*UH:6IK;&UN;W!Q<G-TO,3%OGEZ>WQ]
M?G^ 4E155E=865I;7%U>7V!A8F-D969G:&EJ:VQM;F]P<7)S='5V=VNGJ*4J
M*RPM+B\P,3(S-#4V:F!K8VEG/CX_0$%"0T1%1D=(24I+3$W*S]#-4E-45597
M6%E:6UQ=7JRMKJ^PL;)F9VAI:FML;6YO<'%R<W1U\O?X]7I[?'U^?X"!@N7]
MGX:[\.Z*L?O_\_SQ_Y*3E)66EYB9FIN<G1H?(!VBHZ0&$AH7J149&R0<KQ$D
MLN,9*1LIN-\C+S8P)RPM,# VQ,5"1TA%RLO,S<[/T-'2T]35UM?8V=K;W-W>
MW^#AXN/DY>;GZ.GJZ^SM:F]P;?+S]/498&QR^B]N<F%J &-[ S9F<G=P"3!]
M;7I^@W]_$A,4%9*7F'-L;6YO<'%R<W1U=G=X>7I[?'U^?X"!@H.$A8:'B(F*
0BXR-CH^!O_[__^ "X0( 4&YO
 
end