AMOS Basic v134 >P" >\>\>\>\ T TFT 4TN >* 6\6T>T>TD>T>\>>\> hf\wf,@ @ut>>|\@tt>>|\@bt>>| 1%<Fa>>@>T @uta|>TF >\>@\>\>\ FT 4T >  >\6  >\6  >\6D>T>\>>?\>D> >T>!^> %*&ab3:includes/findsame.inc\> )b  r>T n>x>\>Tv^t>N|#x>\>T&*Unable to load 'ab3:includes/findsame.inc'p!^> >\>>> $flt& ab3:includes/\&\& Filename: |$f$f&.dat$f$f&.pal$f$f&.wad$f$f&.ptr$f$f&.HQN!^>!^> !^> !^> f&TpT% f&.HQN\@t>|)b  r>T n>x>\>Tv^t>N|!x>\>T&Unable to load 'f&.HQN'pnf!t@t>||wf!t@t>|>|hf!t@t>|>|0s@t>|><za>wfhf*nfV>!0s>\!t0s|TX0s\>F6tlwf*nf >\wfhf*nf > \wf*nf> > \wf*nf> > \wf*nf>0s\<f\Bd 0s6tlBd*nfwfhf R Goto NOELIM Fx>\>Tv&Eliminating repeated strips... Hns><f@t>|hf Bdhf<Nx>0s>!@t> |\@t>|!@t> |>\@t>|Bdhf!@t> |>\<fZ@t> |> \hf @t> |>Tp!t@t> || Tp>!@t> |Nx>\BdhfD<na>hf>V>T!@t>|Bda\!t<fa|TFTXHns\> XBd\hfB!@t> |Nx>\Tphf x>\>#v& Bytes Saved:dt<f@t>||Bdd& ZhtNx>>|0s>D>N Zh\>Zh\>ZhtHns>>|0s>D>N Zh\>Zh\> X<f\hfFR 0sHns noelimBdBd@t>| R Goto NOORDR @ut>|> >D>T>\>>?\>D> >T>$x>\>Tv&+Sorting strips into most efficient order... <f@t>|<a>0s>findtop<f@tta|findbot<f@bta| X<f\hfF<f@t>|TBd@t>|`e@t>|t0s>|hffbhf@bt>|9<na>hf>T!Bd\!t<f|TXBd\>TX<f\>TFR ltd><.Nx>0s> rdiff> xad> ~n><<j@t>|`eVhf @ut~n|> tt@tt~n|fb| ^trdiff rdifftTxadjTnu~n  0t> j`e  X~n\>F @utnu|><fa>hf>V>!Bda\!txada|F%!@t> |nu>\tBd@t>||hfZhtNx>>|0s>D>N Zh\>Zh\>fbhf@btnu| XBd\hfFR noord R Goto NOPACK  > ltd>D>T>\>>?\>D> >T>x>\>Tv&Packing Strips...<f@t>|TBd@t>|hf3<ba>hf>T!@t>|a\!t@t>|a|TFfindbot<fTX<f\hffb<Nx>0s>findtop<ftjhffbktj\t|ltdltdtjt|BdBdkfindbot<fTfb/<Za>hf>T!Bda\!t<fa|TF!@t> |Nx>\Bd@t>| XBd\hf X<f\hf x>\>v& Bytes Saved:dt<fBd|d& ZhtNx>>|0s>D>N Zh\>Zh\>*ZhtttBd@t>||hf|>>|0s>D>N Zh\>Zh\>!Zhttltdhf|>>|0s>D>N Zh\>Zh\>FR nopackmdBd@t>|R<a>6tl>Tp!t@t> |a>|Tp!t@t> |Tp>|Tp!t@t> |Tp>|!@t> |a>\TpFRRLF=MD RLF=LF/3 RLF=LF+64R RFor A=0 To TL-1 R P=Leek(Start(13)+A*4)R If P<=LF and(P+HF)>LF R FT=P R End If R& If(P<=(LF+LF)) and((P+HF)>(LF+LF)) R ST=P R End If RNext RD=Start(15) : F=Start(14) RFor A=0 To MD RPoke Start(15)+A,0RNext RFor A=0 To FT+HF-1R& Doke D,Peek(F) : Add D,2 : Add F,1 RNext RF=F-HFRBIGD=D R D=Start(15) RFor A=FT To ST+HF-1 R C=Deek(D)R C=C+(Peek(F)*32) R Doke D,C R Add D,2 : Add F,1RNext RBIGD=Max(BIGD,D)RF=F-HF R D=Start(15) RFor A=ST To MD+HF-1 R C=Deek(D)R C=C+(Peek(F)*32*32) R Doke D,C R Add D,2 : Add F,1RNext RBIGD=Max(BIGD,D) RFor A=0 To TL-1 R P=Leek(Start(13)+A*4) R If P>=ST R P=P-ST R P=P*2 R P=P+$2000000R Else R If P>=FT R P=P-FT R P=P*2R P=P+$1000000 R Else R P=P*2 R End If R End If R Loke(Start(13)+A*4),PRNext R x>\>v&Old File Size:d6tlhfzlftd@t>||>tlv&New File Size:dzlfKv&Memory saving:dt6tlhf|zlfd& = dtt6tlhfzlf|>d|t6tlhf|d&%f&.wad\@t>|d#$f&.ptr\@t> |@t> |6tl>>Rvfindbota zhfB< lhf>>V>T8!ta l|>z l l> F zRvfindtopa z><<z l>hfT@!ta l|>z l> l>F zAmBsAmBk \Asm "A#aHA"P$h&h~>( $<&<(I*K0@S@"fQ Nuԇdzm Nu