AMOS Basic v134 'RFthis program will compact an 8 bit sample using fibonacci compression @@ft>|\@difft>|@ft>|>"@ft>|>@ft>|> @ft>|>@ft>|>@ft>|>@ft>|>@ft>|>@ft>|>@ft> |>@ft> |>@ft> |>@ft> |>@ft> |>@ft>|> @ft>|><< n>>!dt@ft>| n|Tf><ff>>t@ftff| n|d dt@ftff| n| fffF@difft n>|fFPz#$flt&\&\&"Please select a sample to compress| Nt$f| > \Nt$f|  > \Lt> |  $f\> t$f\&/| *d(t$f\Nt$f\&/|| 0fft$f\Nt$f\&/|>| *d(t$f\Nt$f\&:|| 0fft$f\Nt$f\&:|>|z(t@t> |\>|&FORM' 6a!t@t> |@t> |Lt> |\&BODY|>$ 6a@t> | <b@t> |Rstore initial value mypeek6aTBvTD6a!<b\BvTD<bP mypeek6aTHnvTD6a" Ndvtt>\>HnvBv|\>| !<b\@difftNdv|TD<b BvBv@ft@difftNdv||\6a@t> |Lt> | ! > \Lt> |"R |mypeek@t> |TBv%<6a@t> |>@t> |Lt> |> !<b\BvTD<b mypeek6aTd BvBv@ftd|FN>\@t> |\Lt> |\>@"R \Lt> |>P b@t> |(b\&CSFXTXb\>!b\Lt> |TXb\>!b\!t@t> ||TDb)<a@t> |>@t> |Lt> |>V> d1!ta|> d2!ta>| dd1Ld2 !b\dTDbFnfff&.fibnf\@t> |b!^> !^>  \$f&pv mypeekad!ta|>"4t>\d|ddL6 dAmBs