USQ141 COMZ2USQ141 DOC[USQ141 PQSp97 ͫCopyright (C) 1985 BORLAND IncBKaypro, no hiliteeedP= EE RC1B1~7#~= oͦkԄ!!"~#(}:$= +*!5!*!!:(2!5:(>2!!!:O::O:!*! !45(! +/ 0y0( d!k5!{5__o&  :(͠|(  *"x2y( >28!"9!! og2"">~22 9/4*9 Co&ͦͣ} [ (!e{ͦA8Q0G: x@!\w# (͂ ?(*( .( w^. ^!h6# (?( *( ͂( w#>?> w#ͦ 8 !ɿ .,;:=?*[]<>{}a{ |ʹ}ͽƐ'@'7||}>2ͯ*Bڨ  "og"2>2! ""*B"[Ru*"^#V#^#V#N#FO/o&9O/o&9!9(> (G!9 w#Eͺw}8' RB0 >' RqRR!+ Ͱ R!+ Ͱ r!+ Ͱ r!+ Ͱ r!# Ͱ r!+ Ͱ T]KB!z> S>))0 = | |̀̀DMgo>jB0 7?= H͒<z5a)a<z {0Gɯgo||~}||/g}/o#}o&K[xAJSJDM!b"!6J"DM'd } ) W _}8(8J`9{T]=o`9y ) >' ́ ͬ͗ }>' xˆ }} ˸T}ٕ(0D=z ,= ( ͒ 0%{ , 7 ?(8ͬ x ͆ - r 8˸x ͏  ,-xG}r }مM 9r .>#n0͒ { = - nx ͇ ,-(-˸G,-r }ٕ?M 9.> 8ͬ ?= u+-(>͆ 0ͬ ͆ 8 ?x ͇ , 78ƀ8ƀ8ox٨!دoGOW_gɷɷ|لg{ً_zيWyىOxوG|ٔg{ٛ_zٚWyٙOx٘Gxٸyٹzٺ{ٻ|ټx٨ xx( ?}ٽ }ցr <(r 7{ = |٤g{٣_z٢Wy١Ox٠G{ ͬ ́ }x>' ͬ}ƀ/ƀo -́ }0͎-́ ͎,}l˸ 8 4 ͗ x( - 8́ - 8,́ }l8;*!͗ ! >4ͬ͗ ͗ ͬ--- ́ ,,,-xGg?+2n*8t z~,->' x' ͘}. ͆́ , ! >4,͢- o&0%,͗ }gr }؉}颋.:}8c~I$I~L*͢ٷx˸ }0G,<},-(-́ !>I0 ͗͘ o8 ͆ >' m.`1pF,t6|!wS<.z}[|%FXc~ur1}͆ٯx(<˸ 8 !~J 0.O!>s 8 =  n s͗ ͆ .n 0 ͎-́ OT0 j oD,:j !I}袋.}8c~I$I~L! >ͬ͗ I× nn ͗ = ͆ nf^VNF!DLT\I!!53!r1!͒!> x #-= o˸x͆(- }(x>8(z ,z `iÃ!>' |r |̀>)=|(DMbo˸88x(0 8> ̀x(>-{(ay( z(>. ( {>E>+|(|Dg>-|/ 0:p# ~# +>0w#,-  60#}˸}րogM| .(z = ~> x0w#xG%͇ %͇ ZJDM%͇ = _~65+~hìx-Sx9?+{Η@}|z z gZJDM0{ ,7}o˸? #yO!@9i&?  #?w#?/w#?w#!9! E9!!9~(+Fͺ!"9!(#>2*"| >"2:( Ͷ *w*6 !\$![ (ͦ( #:~CONTRMKBDLSTCAUXUSR>2i:*ˮ~0:*:(@q##pZ* :(  ~* < >26"!"""~>2""v>2>"!"ˮ(!~8>~O6~*"w(6(2(-()(6 (8 0 :(* y(~#+ (( 66 #6 #"*: y~o p .##~ͺ(.6w4._~ =*##55= *[R8*~#"= ͣ}== ͯ}͵}*#w+#~+>*~('k!0(ˮ]k!8ˮ!]~-#8~>27kˮw>O$6̃s #r$ͣ6̏ k ( (ˮ qk(ˮ ( k ˮ*O:~ ##~._q4((=ʦ==ʩ=ʬò*:4^q*##~6ͺ>2}*|(̓|( ̓6-#[RM8( G> A~#*'C! !TRUEFALSE!9N#Y~#( G~#> >    "~(kѻ(( !0 (ˮ!!>2Sz:0:*6##ww#w$w#w:  ##N#F*B>2w#w#[s#r> "~ͮ*-w#ww##> ͮÁ""~>2:ZR0 *4#4>2:ZR> *4 #4(> >22*f(/˦:G(##~++ :O x yC!ͺ Q*:G(##~._.͚f<\=<͚*##w ͮ +4 #4x >>2:G("ͮ"*nˮ*0 SZѷR8@* N#F#s#r, 0})jS\*##w+ N#FB ͮr+s>2!T]>)j)0 0= ]R!#]*^#V#N#F#^#V>2Ͱ:0:*6 #-Nw#Fwq#p#6#w#w#w"~Á>">!DM!":*B:!>(>2>">!"2"~ʰ*w#wx(9* :O *-4 #4!*4 #4 *-N#Fq#pV+^Bq#pSZѷR&* s#r$ s#rL <?*L!\  <( !\$>2>2L:>!(* \$\<(!3: [1ð\!(7"~> 2"S"Ns#FrB(Z#\: \<(?*"}K\! !*}#"}! x \* *>) 2""{_!"*nf}(HR0nf" ^VMDnfutqp*s#r*s#r"* uKB!0>' ~#fo{_"*R0RnfR0KqputsrNF( ^VNF^V*SutKqp R*R(~w~wnf ut"6#K*K*!""*NFy(* "*B0Cnf* [R*"*RS[s#r^#V""6#>O"w2x2*"!F"" &y*"*>2"*"!F"""!\*: Nr!~6go(\R*s#r_2x( s x(T]DMx(R0 U(͝O/o&9q# (!>F0#( ~ ( #]( ~ ( (#}(  i&T-a%â}ͦo*!~6o&|:2 2}:__zѯ2*|KB " z ^C User break+=  I/O Run-time error {ʹ, PC=*ͯNot enough memory Program aborted :ʎ'1!d!-B>*k͛ͺ(Is the output file a text file? Y/N =>  ̈́!ͩ!D ͛ *&}2*&́!Y͑!N͑OE!*&͛" *&!YEʦ!!}2í!!}2*&"M0000!M0123456789ABCDEF!*"!!vzB""!*!*!|g}o!n&s*!V"*+!!:!!:!w!!; !"*!Eʆ"["!*n&}2*!"*&"*s""}s""{*}*{!N"*!G!E!ͺ !"C}2r!E*C*r&s*C!"C*C!E$#"!!fzK#"`͛ *`#0#͛!" b#̈́!"H*`#!Jo&"N!\!!s!! fzʺ#"L!\*L!?s*L#Ø#*\#!\o&"N*N!͒Eʺ$*N! "J*J*J!fz"$"L͛!J*Ln&" *L##͛!." *J! *J! fzl$"L͛!J*Ln&" *L#E$*H!"H͛ͺ |  *H!Eʞ$͛ *H!Eʴ$!"H͛ *^#o&"N*N! "J*N!͒Eʶ%*J*J!fz%"L͛!J*Ln&" *L#$͛!." *J! *J! fzh%"L͛!J*Ln&" *L#A%*H!"H͛ͺ |  *H!Eʚ%͛ *H!Eʰ%!"H͛ *N!Eʺ$!}2!"!c"M!!}2!"!"C%#!!Y#k͛ ̈́͛ *!EP&͛ͺEmpty Line to Quit k͛ͺEnter the file to unsqueeze =>  ̈́L#!͎ !w!:p!wp!͒Eʼ&!"&!wIE&!"&ͮ""!v*͒E'!}2MFile is not a squeezed file2!!"Ç(ͮ""s""*!͒EQ'!:*e.=!*!E#'k͛ͺOriginal file name is =>  ̈́!:͛!ͪ k͛ͺ(Output to (return for original name) =>  ̈́!1͎ !1:ͣ!E (!:!1!1:!!G!1:p!Go ͮ""*!*!ͥ}oEʇ(!}2M!File has invalid decode tree size2!*&}oEG)!!))!)!!}/o|/g#s#r!!))!)!!}/o|/g#s#r*!R"!*fzG)"!*))!)ͮ"s#r!*))!)ͮ"s#r*#(}2/}20*/&Et)*0&!|g}o}20*0&"!"*!"*!Eʯ)s""!"ý)*!V"!*))*!|g}o)^#V"*!Eʄ)*!}/o|/g#"*!E%*!}2!}2&,**}2&*&&*!E]**!R"*&}2*~)}2*&* &͒Eʍ**&}2*&}2*~)"*!Eʯ** &}2**!R"*&}2*&!"k!"%*&}oEʀ-!}2%#k!!͛ͺ UNSQUEEZE-IT !%!͛ͺv1.4.1 !A!͛ͺas of ͺ09/17/87 ! ! ͛ͺ===> ̈́͛ͺ WORKING  k͛ͺ<=== !!͛ͺOriginal filename is =>  ̈́!:͛!ͪ k!!͛ͺOutput filename is =>  ̈́!:͛!ͪ ! !!ͺͺ/Tree loaded sucessfully. Un-squeezing begins... k!wI}o*&}o}oE,2*}2!:!͛ͺ[  ̈́*͛!& k͛ͺ ] *&*&H)*!"j,!GͰ L#! ! k͛ͺ===>  ̈́͛ͺFINISHED k͛ͺ <=== !!͛ͺ DAVID SHELVEY was here [ ]!"!" !!"*â-͛ͺ Error -- !:!ͪ !wͰ == !!͛ͺ DAVID SHELVEY was here [ ]!"!" !!"y* Program UnSQueeze; Unsqueeze file from in_file to out_file. This program unsqueezes a file which has been squeezed or compressed to reduce the space required to store it on disk. The program was converted from the original version written for CP/M in the C language. This program can be used to unsqueeze files which have been downloaded from RCP/M systems where almost all files are saved in this squeezed format. The technique used is the Huffman encoding technique which converts the most common characters in the input file to a compressed bit stream of data. This program unsqueezes such a Huffman encoded file. PUBLIC DOMAIN - Feel free to distribute this program. Do not distribute it by commercial means or make any charge for this program. Version 1.0 - 09/05/82 Scott Loftesness Version 1.1 - 01/06/83 Added capability to strip off parity bit if output file is text. Ernie LeMay 71435,730 Version 1.2 - 07/20/84 converted to Turbo Pascal. Steve Freeman Version 1.3 - 10/15/85 converted to Turbo Pascal 2.0 Bob Moss added getbuf, putbuf, putc - changed getc to provide buffered I/O.(128 char buffer) Version 1.4 - 09/15/87 added a CP/M dir program that will first display a directory to allow the user to decide on which file to use. Also changed the ClrScr statement since some computer operators don't know the ASCII call to do this or sometimes ClrScr doesn't work. Added number counter so that the user knows it's doing something. Also added High/Low. David Robert Shelvey. (206)-939-3838 Version 1.4.1 - 09/17/87 Opps, the uppercase doesn't seem to want to work all the time so I took out calls made durring the UNSQUEEZ-IT WORKING screen. Well, looks like you will have to wait till 1.5 comes out when I will then also have it add file input at the CP/M prompt. I also have the ASM code source for USQ and so version 1.6 will have inline source for anyone using the Ziolog 80 chip. Ta ta for now. David Robert Shelvey. (206)-939-3838 P.O. Box 814 Kent, Wash. 98035 vSUSQ141.PASr o !"#$%'&()*,+-/.0124356789;:=<>@?ACBEDFGIHKJMLNOPQRSUTVWXYZ[\]^_`acbdefghkijlmoqnpox kHvKoGunS/>9+#tFx;Z~D!WGc/U8|-Hu 3h{:\vLT}O0|?VqegQ]TgX6po'N!\v|IJ3b#@j^ᲣE o^_'Tˏ3(TbYqunƱ*S N{>q +#ռ|sۉl舥p0G,K_G@ ˾G8[z! ~;ZvrΊᲣr% FzT wUڱ*Sa8\v Iu 3RD 8Cf`[㷓D!WU+!1ң:w!NPUKWlm*>3.? pq8 rsNS(4T_,)8R*:b\NU :@83pۉqgxNYSmX7sƣ1~;1nUŚjjRJwߩLr3Y! |9g!|9|0~G/1Z^Pbĸ3RM6ZW]zRa}OP?Au-;> ۉqgx]+JQ]hX0ΰl'TW \%s`v\mq}kDH2[UR xqdߝJHC߱9.R*Ҁ7Fm,֤0;"H5/D!\ /Koվ?-rD],.;+nj]sFʐtd}+ >J1ߎeGy YpzpUB: o>p3e犔m*,Wˏs q i<oվr}gzCn>Rp쬸!*Ʊj/?\Yᆪ{eMc~;w&| ˾|оjP+lZբEۉqgxMm,Ia4f3, u6kܧspw!|bߎ'*"%\v:6|Seo.sx3 )#8JYW_,q琐t T4齴1ҫmqS$8C:n*? )#8J;|noe<[9/9ȄZM-ď(U~4wv%i["78JUoQ 1嬳JT7]%ސ?mPv{ހ㦟D looQr#paSfX8^p9lD,I[6YG=k^j9AX ȗFfqXIIG̔=3跓z{7 1nq˘ro->yBzXrZoMɁ|SߎOvfPJ1唊t"Ɲ!:ߎ3QL95 .!q5qeω)3跓~mx*^sFWBrHn"N!\v38U+tJI?ގ֗S72KKlJH㦶b%`SV뷓~mxU5gNU 7)! MQ?#^senAX HUJoM?X A:8rGJqӪ4eqҠh;.VBVoMmJ1؎3)Evkb9pU귓~mxXkK.;VKmfqSK(^~;q?1x͕~;noL9^sߎzr(fR .P跓~mV$VY%Y N 跓z{7/RaM_Z2o動IoM|tpL9jvoUbϝ>9+VKWB =SBgrE[Y3U)o'x;n:o動y+_ SμKoM|tpL9VX A:8RoM?ɼ/VB/E跓~m$8U+teo[ xz~nAz{r c)O| sz{7{ǭqFSB碗Ex;QM[4i~;ǭ~{{2% vǙ@b[vD]9$\vy}oA|:ۉT Jd0Ќ"bQHDs8n^C\]o'R֗ͽ5D+mKo'HpL)qnAP׾J9$#,+wV ۉ+qⲢP)2~;75߮Q}۹SZz{L8S΅T3++ +(N|(_(bQr b)O EsfJ1iEQv2@L9R-*}|,r@P@QvI&kh.{oMXǔ3@4|qSr L9R,'$8JUܴr)+ +$sfJ(ߎ~T7%p̔#x Ibv*|nZ@_t93%oQqa=? ~;n>7폑ď&~ c.{{z~SZ7[ 7 p iFaT7bSdoM?dB| e8Jr L9R,'$禕K.(^o/]A')3SBQv*|nGqTQ8gfʑb7폑ď㦟z~^~;nI.Ga 1qS;|&Ndq{:9$38U+t.Q?gpWKovb) fS,RWo'x;n*8": 8?g{r9=cqSYŦq볃M٦M7_ڔ~7ÔXp㦶b%`S.R UZ9$s*,9$^svt+!HZ7U^ZXvT3]QvTyVPqSc7wvT>2tT~4wvT>2qS[>W#.{D>2hŒ/G~: n>>7ѷ,1ߎ^pǔ5qOBCW_zg q\H?ގ{~S'RL9~|q8"[z!i~;08~;Πve/SoKW*Z)k8*5*RBBRoR+v܃)B_b KgB8*\,Qⳅߎ\ȁtL9GҙjKJoͽ±~;sy?Ǒ-ďߎ{AKpߎ{vܴʳ'440BK(4B~;^i>-eИq? =L_Z/Sfo=}VF&i f@uDh;|nLҨ~;0ܴؔlGu5X q#\~aqc-s7Y@ƹ Fߎ=Ro&810ߎK1}S ?,]_g~;Πǭߎ~qGewsZV2XxևL*wsZRT2XxևL*78wcSkaUQȁ|SVOZnv\ z{g{Dd^]g{d^]7A[Bβ^>9nA|;ȁ|SVOZnv'vˠ%߬%/){}s◨P?~Is{8~;qߞ^s@WfRN簙9K귓z{7$s8\HeU 􁛮Јqj>Pg9d&?#7\Nz:*gk^˕3U)@m) ^~;qojvzւߎq}v)gO*jI곃- =Ro㌼ZᏘrJgoYq; ĔSGp )jc9p8w+~ɁV#bܹZ&Q%TGKoML9VTDqOep^Z}YŲ:\\)K7!{z{GC*6eYV8k*㨤ǭߎx[go'=nķ߮GRmوsL9j `(kAypL9jv?>|ߎ~qGe8T/S'sXg+ˢߎ3P8voH;|S_Tg F3DQvg>5Q/ߎ3PM7ߎ3v̧Fd(Eqi9$~\[p8i|jt-_MTg n?{ TsΛڐ?pߎ3PM}D?ߎ3v̧F %E~;@>7C,!! #[Q}qy=Fu}q袡hoV8nl!~TGJoLҨ~;@3],JQv>2le*tg9;xc.5Uk?_~Tgpߎ3tBL(>w *S+oM O6 Ts~Q+G7*|nZP(&PMGqܧ*Е>K8ec-()ZPI)㌬ǭߎ3>+#4ߎ3eomi|jt-_MTG؍GUs~M?{j a+rQ8voP>7ϲGq5v̧FRK|}QUܴ?Wm#rdj %*@%U 4jl݋LDTGeوsL9Ev>bߎq7wA'U+| o'rp 4q_=!\qs+0J7E`J\,~;N?ގbS>p^Z}Y