jhs@mitre-bedford.ARPA (11/18/87)
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