'=========================================================================== ' Subject: UNRAR V1.01 FOR QB Date: 08-16-95 (12:18) ' Author: Hans Lunsing Code: QB, PDS ' Origin: Eugene Roshal Packet: ALGOR.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"UNRAR_QB.ZIP",4^6:Z&=9836:?STRING$(50,177); U"%up()%9%%%R-%^0%5DX0)9Ht*%%%z6%%%-%%%%zs%wfwSRgn>&:nBT[4976K0x& U"VK[wWS#,EfIb']evuTEV0QAcX^D///aUB[[%gm_^m0%<%\uYq3=Vl;og=X,5nJt U"GYe^5ZR*b8OAVh^XrFv6Ou\DEMw03#Hu0iFvj2KpJ[L+p%&O^SdNo#)L&Gh==q^Zr4O0E8y)F U"yDLa1[)%PRAIO;w*t6G+VC9_:kpMVGpB\>eD:ar( U",2d.YtV\Em=:Y/-$,CDd=q=6k7hkKaVa1p^L)%D_)fnJ^Sl9dmSgH[pRAqLJT=d U"P;'Mh+6w;A1Thf_&gv'5wJIANs$\oX:RBlA$9H]1fg'8DzCadL3jtJisdCUiQ5G U"Pn6Lnhqee8oa7dFmT?nI_>cd]\HF_)if3a>&U51&UHRsvhVA;A&O_o14;Hu:)[n U"uw_kkkAY(i$B)=Ga4DcaV45A8#F-P?7+C,Wmb%j&m?/'sD U"Bn_w5ZHO+R)27^Ab.z(8imhC,C5U[ttn7:%=gHFUk\:^zVJtYdSySLy>r&LK(&O-LTePRkDYL\0r*y$xHNU-v U"/V6uORx&dqF?_rob4ri3.?hslRHD3L./m7cV8T;ee'q1K2_Vp>YnalD'$a0,R]L U"$K2&)dPqHsStMo%Y0siM%YJ/Pbx83r^j(*%.]ESM&ehc$CeS%sYbMGm6+?b\sO U"bA?GqOiK)_F[RLS_h$+$AOa.52DHi5]]vSSLx>YE9,q[AQY/$u&4FmF3qSo$_al U"J'J51b8WYo_GAvSE(FZ^:2Hs__f74s2F+H[Crfum+B8b/dDjy__m3vBQW..GGXG U".V:jJ$*ZI'4JQKu4Jeh(8UYP+H:kPmbwe3ax[lEk6KyO>KFvv-BnfqsA(]3-oLH U"4KWY4bhdyCHkWb2Y$ke;(=K,Sz\nOanFZPVS3L,Pj$Fumd\wRwc:>iE]3F8U>GG U"%jj:Ih(.&>6*__XT1dit\[-pNc0Ra1 U"0cWK&YQd$3O$>()D6':#oNm#4aN+O'sSM6orN+xL4bwHS7\idwSyTFbX1J&\,Bv U"rVDFi]DaL]XMNlL(6C#LER.l'yk^0h_7*UQ/,C^6$uT7^[[)Mfvynf/vROdNv_r U"lI'TW()N6RUK4kRAZI?64^3a^ZD)ad$hfw98t(yGx'(N%&up(%)9%%%%-%;AN5D U"f>q5?8%%%%>%%%%.%%%%z%swfw%SrfpF0n0AO1KBA=1_^'.XbK'%Ea%u%p()9%% U"%%-1%*Q5^DD?u+1/'%+%:,%%%0%%%%zsw%fwmq%uSgnDdcr>B[U5UThmuV.^9io U"N-TyV?6e:I(33\rIuA)DCTzQh()zIfD]$oNQvSKs7.rDS7LWhX=XoEPk*ME5s5A U"n(;=vTVML^T/^8fvq43<2Es1_sT0l4ik=T:k>$=$i)^0$jkU-z)4iX_HaqzcdJ# U"Ji#((e[7e:d:TV%F\&hMw6e4+L^K U"KQ1;$(,B<%Kw/KqTy8t8J30GeX,k(:uNNWg+/6kD+T%rZ1(KvbHUmn([hHV:P^p U"#69h=,CsN?0Zu&RD'5n79a1Lk-^RLtGcGXxTYppj_2MacMo8c[Gk-,R4HGn.#l. U"cnoJ8LH%>j5w_&bVfn+iS(h\*R7?5d_(=m]2hMijRF5OMN\j]BaVFXU(tyE7VTIYJsR,Bj\I#FQ)Q\Hx& U"y,VJUqq>5HlycF^h?:%+Ex62uVGLtTWJRRJS]4DYI:ORI?AKN_L.KW%me2$3J4A U"&FSf8\uT.#'LTt=uvRGlCbX.hD;N#YIV/T>gRs9Y;d?ega$=I6xiA2k/E4VU-2cW U"49uET0\$,UCO#q_SM9U(m+97E)4qFD>a]mH9EDuF?+1dNgKq*+QV#P^=P5Z[?1S_?e3:YwjeY/trA;lM; U"Hkk%?'7F)F-E7P' U"LojXFvH4mctCn$P8'MjEvC;9av/nk&jf6lCb$BWtHgh$/L1mhB)i)dle0s.Hjkt U"SOk^9YEIMC19CYdPf0j;9r]H/^*c>[0HdPC0Z\hw2e^W[d\]Nl]ltmG0JjM=7gh U"alMZX^u*wV=5M/$G:E5KI;Bdp6OB#hYlN>7+?o\ijA&ng,g8BGr=lv;uI_99hO, U"<+g.Z#-'TC.,X/';>m:6rw3C*x.02Et#d7I8S6c(tN_EE$$XSnYPD1gI*jG[ U"jEWE4SJmHJa19^dF--IYnu/N0l*6j0U['o-iCs[IdLHJwpEPJ%0,-_2b>OIUhM# U"?m5hz27nasa;uT2Miv7yMHATWs22]fEAO<'[\7.oi)9VXw%<.v%4Q7&%Q:MOglZ U"K37-K1wU6qHD\Fi8[,H=dtRPOgg,V9P)$e1gvOSW5^?PTtx86J%iWByjb'g-1e% U"H7A>T>Foi),RK5[]/2j[roDf[HJS+F=9qk9+[E&#A0B:g1k/v#xRYDcUs..r*5' U"66H$='AxU2]$'*_K_Ek20di]5i)+z5YcwtCm[8->GvAL*3iZQ.aSiqdCce&myGqQ6'f0h.8=K&Sy\X=&q'EcMVPm&-E$Obb U"5I(J1<>pd-d;jB'y;Fs0Fgha0%\b)1OLoExR*huhWkc2j.)^=?O)yRb4.b?4pJ?F/c/W/Pjoa)WIZJ?-q;fDp-d2h3x0v3rtWObeL>Soi+T-,=2Jx58 U"r9Wee6S)O7:1'yd]Z*q/,zBk6[5lIkJRIMrgK^J-(Xl9%:rGg79qsWuVIou1%\o) U"yMn1d\^,p=a.\7WnLMmckPJ])65cW9^1$U,#lZFmhKKG_F.vlQz^#MHY+Gkhb.U:i[t3B) U"HX92NTRuxYq7mCi#)90YR1k>fq71\aRT0UkEhn=?Jk=0>%s8B7^];Qs??qEV.q3 U"4B+^iCmmpt)'RF7XhuJ5#Y#C?w8)N1$%hbp^FHu:B&K7ATDQ*xAOjn$K>1^M4w: U"*AmmfV3^h?]wVPiT_0Ss,SOWH=]4+eZR6/qG:q#]7DA#W9ef3cJ4v8-jz3U8j#[ U"L<]F/tPm&LP4W3yU)$C-&Y8>&ioZp.Ex1owTFc=#PrfO^lo0*.[+X/hmrSJnrU&.L6< U"E;Evk'64,[nc1A0F2::J?MJS%O3;DcG'/?.6fgEB[lNhAA=[=N^xhaBf*/T(G8f U"1LtsGU3QO$sid%BF1[nC/3;]ei>WFQjOmWlFCaj<-\T#o3QIz?\-:5(/ul]tN-T U"6jag/EFGt];l78n.p[8&:'b^x?%J,Bo5Dsf&HdCv#EJ4S9[3)g#xT,uS1P3RCiH;rPwEv2UWuFg&5Qnq[bv U",2RDhbE#_B%&MLX=q*;qtm_dx#Y=Z(0;_QE/[KH0_]'Ql).e>HsJYS)vxDZbJE?%AuneeaH:agh9;lsjEdw1%>s U"2cC?PcSse[7>hmQc?MZtsZ]#m/o[Q#xCcs^-6J\jF'1)?+9D7inqpq>2W&EB28J U"U+MR1Wp&\'%2T$c36=VK<;48ml&OOry_RsC/yh?NLU U"07.*2+QX1Aq-.\/K\Y:W9?3Nve]08Kd8_p$[N$ggt&994T+^4[3_L^1cVf^Pi3; U"9m,cNqd4-N)AIGP1c$0vMI U"dd0,5aS<=\]tr6jo&RhoPe[;p];-401CsT\TiVKjXJmbt4WG)wFxk;P U"w.G=m\EH/bVfeX)Z6TbMZtnq1,j%O6^Y6-I U"/;p2Ufw^Gm^P%1wPECXT20r:8AIdeyC>\$yvoLH^Q\3+qkjC5BqqTo%WmJc;Dfe U"C1^-3DPS8>d>Q8^R\#KfN\iIU0S//UdN.N^Fq-#AFHWL<*J5KQ+e'/2ui[+XHu2 U"a(1sAu+:7kgF5)V4IP,,_L>+EyVEq>FU]FIntwT2OCMi5bfR%/7i+h7/S8yR8A8 U"i2:Y+vlt)9&:os:l1CE4AqqI0z^vY+\tt-/uq,&FQgvOt/d/&t_m^[FGV0]xK\C U"71eXd]c#/u8G3Dn7-h'%PDapu7H0,zEI6y[TQ^7)1fsVBkZvx>Ci) U"fS8jlac6#qnI?#.Dfpqd/$kog>8ZvH>>,&AdaBYBk05%%brGBjpH8az+TeH%(V] U"xfD88ov+P:u?Q:cbg&R,Ss:Pl>jSj_,ah:IgdwO^Bc$&[EJqUiZaOSOAU#)^'bo U"Hi%%:nS+j6suL1H+IYJ*3 U"7XB%HP)DP)dRX4noR'QK#P8>ZE;-3e^z_LOGLBS)2(0QLI*Jpoo%/fmj65xAc65 U"](9N/rvxzRT;27==\Fk')/SrZRR>WU:Z3bR'./>VRhpVEG]VSHorZnmF*Z+.?r4 U"K+Sc,&P\^p,I+JqIamsJ%%FBMm7-2v50x)xGKiMCt%WNX3ST,nU&kPG>KYC)s)v U"_1ZDj^?'X87sR5PJsi(A#;qNYFat U"D,pO+n'B(hD*?iMwef0ZCFn9]vAS9<4VS>b$%^l]LEHHW/GN^g0hLD5z&q&aY?I U"\2qmqH,RQ,p&=6zzp#S#G9ROxQS](4qsO'O=<$nmxPKv9h U"2t:#oEFdz2DlY.1R#&=[kSX'LL;4LuJw_b_Fk=X,Q$Q/Y6.B&J[FXx+NSx:)ff5 U"YV7W,&Oci?uYhbk)$EfBpPjaGpCh^+D'I?Q9tgq%M\#,T1i8,W&>7=RLRioJkLg U"/SO'/x8%cb01BophzRwd)im]M%Bmz5ikalK+)z8DUDv?W*x4xG$^zv%ikCgrH'i U"K7a=L[f,DFNG,]4jS+VX??Ppo*W-tq0q_#M?ALR03D,OqOh_13%J%jR7t U"M1NG:Z5+m:q9'&wy?.TD*V3kSEj,:?v't_$r\Ufl=52;mXUKaplGrlRqmVA'h4( U"JhFIXbNFSj6L,rNbq:$3Gj>XsP-jv8==xL-H3Pv99J_t,FSS9($Gqy(4DtwjHwJ U"ZIX[HL,L.f#Y_AdBaWTL+Sgd-QcqJ]RVCAw93$pW%e.4JziQI8%7s]P+5KRYI2C U"vnY*Q=u/Z]:\L\$[36gu:c$>*]*$=/mIn(l5tPPFKnd>uY]nFgkAvUF.J3Ua]O2 U"VCv0+;g8ywB$orM6%HMG(pyG)2)25K023T'AJIe U"dBhjjd:#Sg9uj-wUh;$P_bfq%xs-'pHSb-Dti/'^ntbR'+^DtX[YYb*.7K9aG;5 U";cFrvI7fCPFTRy(p2VOY\[PLcjBDm5bkQ6^[lF)n-_[]g8>.b_m-DX1$WwgIaO5 U"rQI_,/w.wtIsoL*#?9K2Fn;$0_6mWCB43q?;?jS03r%31\on_W%v[BSdP2y,cxDu%p()9%%%% U"-%%4o\d6fXLxwG]sVbJ,0TQtlkr1FCk]3JerEYJd]?J:5<] U",F[#B43r6A]SB2#$pJBB$$lGdrrL6BN[PE%=N]h&k6sZ\bN]P6B0IcUlVvjSo(TE$9R8?L](;%+MFC;TT.WokD7i^TB7&b21MnJ.p1gy^H?#5MGFM[ U"bS+)Ym*Skto]fS?%SB-OM[OYH64[5s,/c_D[-S;5R5(jXR>Ho^-QBKIc=LkSD8X U"-7Jp+9?&TN+x/ebB0<5sE=K;Jgn/1ut=h6g^u)0G,,6= U"#U9wb('I)StYK1>+4-0]HU63g.1NApi2k;-A7^9Sxz\zU'Ab4-qTM3b>5BZF%T9 U"a%a^SiA'M8Qh94;a:n#TiC+lx#?0r^:KH#UA[9[WtjKa U"02O(+9-8JKKpiULSXxnBldR4PDqf3RBUh;Q(Ya6X'Z$r\GIfi-/1s-#]sX^]thQ U"bFGr[37&aNj=hei/;Y7s#2HtTk-Z1E71Ci9AcG'y+9lR6SB9kf(pJL)<.(=IRA; U"?pbNVY'kL08A3u$0f*xiz%2ZbE:'FY:HBg2&FGO8Z$LV+4S5g3>]4/'MW7'O:Ub U"o7/v8zfUY5'V>?bN/u<_9giQ;PFP9.874SWE,jqqjFADsKUUA6i7tjS>Z:IM_QE U"[PeY:)inlqAArGLi?J#$,8F>XVY-'NTe[juY1tS?l+vX^BX_h5pCNLrxtW(XWM] U"Uf\dWyEat+hOhJHZS30Yw\9RcEeIjseISt_J6<9O46C3\Y7yC&H0D>)%/YcU?cC U"]IB*<_NEn48QYUpj_i,PC0En.X.K:-6KanM6o'FnfH)8-GfM.JVR,;BafaYM&qG U"G)nYT:tpsUmVGs9ae0K*U\9&$aTrNypuiExX478i28ZnUwx/B8^uR#JT1nTK19m U"4j3C7M3u=9Gr]EkQ,+/pLbo\q24M41.0c1:6S#lDS[.mFKTj0S%5xEr?OqqNQuk U"MAvoYdVu=k'b8N=uUDk]DHidz%?EdP;K?l(-P3'9ACnStNm,b:ojae+B)vYhEI-Ls],EcW+D:emR%2IGNX_0*],>/K2I#PLIA+F U"G6m.ZXCL;XJIz1h^1$\m8IVc^&$,_h.L0^W;u7DlNF3hqa9 U"Y);u3KDC_Sw\#Re]lWgrJz'3I<_p0dO.x1Fz3cyrrl1B:Hd-wKTT)wWJu.,+TVy U":c77[%j+J1A]s+gQsYQe;,3],):_^,;C_NW^.sb^d50bMO>^';hF9MLcBW5Lb;2 U"1uf4[JA[9QSv'IT\q.J8FG\ZKxat6rVE_<>H=_fI/CuqZ,:LsOV4##'PwQ#c?mo U"CR%4n4\3c%[7?.cmrv7>OPY%0)c9ak6h.&T\je]g0Ov'dSD8h:fW.kB_>fcq.h? U"nz(rPu[6dM^G5Fp=zgp\%[4/x,2HT][ccthHP U"X\_UC:^n=1q*26l%k4+XEHG3Ya\FuA[LJW(EolFjV5\a*whn1MY-\o2\tA%aq-R U";^0S-/Ufrp4]HL2NW_JKY/xo**3W,[w25>9+'R[/jC%)TTc3*?6EX#w8r1JN*/q U"9:GAe#E,*Krh^TZ#cZtANdL[z4Eh?gQ[/5=YoC)Og/A^g&cNWQA2ciGoZ>D^%fq U"YwFoM]vjWTQ)fn'CtChw\$xc8[iq0cF+gg*TgKX-YA*.DXZm[jOUq-PnZUwuVqu U"9\GuL2%AabOa95=([dNYL8$0=fhlPX5-hlKRA9%#-;(8t>o3Icwo&_%t1)l#O)Cq8N7)q^2Ge5>OE(uQmdhg U"V)S_nOck<[HD#%mxdISgN(k,:<.8$eQGNRWJ_Zo7Jh6,ZgNp\Y^raIXhqj9-P\d U"CJgpdS':(bN4J6iN:x%r(2&$clirP#uZbR4Rs4]cx(SV4SD39$(Ox8]7sVJ-QE& U"Qd$Sw1Cb&5/b52GX7969a]uatVn#%W]DL$K1wl5bTBbUE^[BNsp(#s+rcK#eTbw U"Rn?;T(;O-*,Y9ihnmtlh#KM;z9/.cFdMqPU%AMQ;I(b=q^7l>,de'akq1/S U"y9Fw7dj$28'EYS1ov>7U0EpDiM>M7Ar+^n'PlXb,mPd8QfCuh>Jr#rBl:Sk,Ko' U">h?sg]_U(?vSH,4?gCzleH/-[b/n^zl60k-&Q_$R<7M]cc)(Cr;ACrJa#]1Jckx U"B'WnaL.$n0?kbu+[t/Lu];jmtv8/Y$wmr6O1)$q-F&VZ=(BJHPdHEFT#oZd+?2u U"Hrm>wt=;PYi;XFPbuEk:xRf\3reOTfr1+#g=? U"_84MjvsJf1E]jma.=6U(.#HeE[Flhbc[W#MrSvA1R*vEIV]w4K[1kP*)Z76$jS/ U"&*$k0mU:Sd5?cU2(8NF105;)cXz>]5lBS#z.b;&EdgL_1:5<;:&Z<_e4BLTV+L% U"2)h,[-NXzM2xS[BsX.YCD#uBMuw+^Q]FXU6Ry[byXAkQa6Z*2iqDfDYDCbof:YT U"1*RFh0%'6fmk5o37FPeKjxN+kZ5Ix+(vGe+x.e>E55-9YwYHbG>iA2S(G^q[NPTYYOd%:pQt]uH&)A70V,Sj U"w>uc1EoD/^*cpnDdT)3rU-d/=?a_n4R?DgwsfeRCm:GexP0C+:'SV%h_8W_qVIl U"OOtBO**'zBWK*'z69XKD'=[j=c/5nwFU##cJo2jAZ3CZ4otv5JE2E-=YK]?nL7Nlv^4BEWcIBs^pR$qrax[D>O9bUrT[.\_R U";#Qa2nYX];-*AQAH(g8'6?)u?h0Xhgz1k'jMiP#-3_Sm]QnbPCQ05%;tQSFa5$M U"73x(fM45XQjP*E+M%/hdI.5xXAF7>wES>N[H+;;lLe<(]?_b-=,U#$D=;-I$MWX.--Eo$uY+LlMXe6SQ>x>F7 U"P,>-DJc0Dr\czSkNiRMo,:K8C&XfaHDIUXZcv-Z+dptQR_CA'sNhm,M?B>heeio U";e2gKM)CrzzFY*=h[U'eM7m(1IPF^GuUJ6n$MK:/.W7$Kmv9^s&iK)O&5bJV?(G U"U::#e9Y.^PT(DG+tnHbe:L+=K[N'84RQFj9q53T>mn:/DliuZJMsFDQRHd?HJHz U"t'rTup%&'9%%9%%%R-%^0%5DX0)9Ht*%%%z6%%%-%%%%%%%%%&%%E%%%%%%%%%z U"swf%wSgn%up&'%9%9%%%%-%(;N5Dqfq5?%8%%%%>%%%%.%%%%%%%%%&%E%.%%D* U"%%%zs%wfwS%rfpu%p&'9%%9%%#%-%*AQ5DDa?u1/['%%:%,%%0%%%%%%%%%&%%E U"%%+%(*%%%zsw%fwmq%uSgn%up&'%9%/%%%%%%-v-5DLKrqZ&B%%%&B%%%%0%%%% U"%%%%%&%E%.%%]-%%%kn.qj.n%iSin&)up&%'9%9%%%%-7%.05.D6Ou-ZS4%(%]_ U"%%%.%%%%%%%%%&%E%%%%O%.%%z%swfw%Sgfx%up&'%9%9%%%%-%%4o%%%zs%wfwm%quSg%fxup%*+%%%%%+%%+%u& U"%%%+J%%%%% END SUB CLOSE:IF S=214AND B&=Z&THEN?" :) Ok!"ELSE?" :( Bad! SUB U(A$):FOR A=1TO LEN(A$):C=ASC(MID$(A$,A))-37:IF C<0THEN C=91+C*32 IF K<4THEN K=C+243ELSE?#1,CHR$(C+(K MOD 3)*86);:K=K\3:B&=B&+1 S=(S+C)AND 255:NEXT:LOCATE,1:?STRING$(B&*50\Z&,219);:END SUB