jhs@mitre-bedford.ARPA (08/14/87)
Oops, I seem to have never posted SHRINK.COM. Here it is, for those who
lack it. It is needed to convert the FROST BASIC files back to a bootable
disk. Sorry for the oversight.
-John Sangster
----------------------------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