'===========================================================================
' Subject: LB LOGO MANAGER                    Date: 10-16-99 (19:56)       
'  Author: David Drake                        Code: LB                     
'  Origin: drake@apexmail.com               Packet: LIBERTY.ABC
'===========================================================================
' Liberty Basic Logo Manager
' To extract LOGOCNHR.ZIP, run under one of QBasic/QB/PDS/PB
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"LOGOCNHR.ZIP",4^6:Z&=3598:?STRING$(50,177);
U"%up()%/%%%%%%f^&kJ%%%%%%%%%%%%%%%*%#%%q>)6>Tu%p()9%%%%-7%U1v(Lk
U"\l'o_)%+%85%%%/%%L%;1;2>6>Sh10BN2'<>#7\1wC4ExPxJ[Qm,i<66QY9(V)A
U"sh03ifV1D\UI=]+$R;O1pVbSX<xtaO_VZ.oc[9S*'P6pT]hc$dmnc8&Vp^8Vh*<
U"BD=41f;50Y4H'rg3:U*<*E8b.+53ul][c_cK55>tSVsuGd$MXN'k3[ei+)?d2+P
U"JpFd<pV+$lnvoh6iYeswEVXgMX)vtNCwjXvZ&;FG_a&3'R1;Lt=QcC61JC#3LYE
U"sDQbhRw.O6SvTgtk2v:0I9(pbWT<Q.#w9)J%R/dTSSO<b>P;oRHCX_mT2a&CSF-
U"(D;&+3BgjPi0?DLUFjT6r.I$)-8Hd1w;\FQPU$WpOr$W$O^0ge>wUL\/MOEZo[D
U"QT0hPXQh;LB[byZ8\Yt.uN(d_jhAB=aXA(c-_I8/tmgy;7/T-)gj1;.>tfW6/x9
U"$^(=ph0#l8KN.zVAg-Yd*s'c1*5<E+O1*YA-5,'vUk&2,g5okC/+0\1i+huqF[[
U"/nE:9^Xr;0UxpE:)M48YNIoYqUUbqF$9qK#Fk^<J]uY?iO)#:3jJC<\v^3H?$6k
U"h^qU_fj6tR);d'xpcAwD-3E2u01X^I0\*P.C)rFMZS'ug0Pwv^4*Xscg-jL9[dT
U"%WUNJt\5i]vSEZ?NSPtveAu0emQR4(4u:2&b7]B64em2*Vl>jt&<j1D>F/&G[PN
U"$\SEdV([*fWlVI(cd?a/tug+B_syJLy5ME:7DZ<JWk^V<<0bx.#L2&-e.faiU#T
U"#=yFi$d[NBegIiSJWTbXAfu9qjKid#+H3'54mt.$i1QLQ2qL%H/#0b-Oh:XIgRi
U"E/40\#^Oh;rsnk,BsL-1e,rLDq=R;uHO+]eKi=Z#Ttn]4bS3QN]1rklMH>IR)AR
U"A>#85r5hvTjnkXR_^*qS_g6.Tk:/pTYnhFPKw&5CKDuzdNn.mkov54&>**#ab&t
U"zB#;4H*8K*+m607,p3+nMOR6?LHaS,:)h6hO.ZB:_pLv?3Qs[+5OTBpB.b9XSP\
U"OsTc3>He.sY)Z_XL](;:/+T')F2E;AIipjge;fLXlGCT2?s9FR\WTrujw'Y<q,;
U"pg(9rXtT([uSh=uT(xS8$Ld'v%in*%V\\e*$/LYj[&vu]7p\W/];*[cHm=00o'k
U"zPTYa::Ch<ywH48KQO]/T?HXhTdjU3>6cp4\&v5+TD>>Ygxf>Kf0<]Xb#1E6o4X
U">At.7\uwTw*OIzx:UzM&\rLuIjefSn<[4O^>Z?VCMJpxwTKm'I=NN).$)8P[BTV
U"d+TIGOf53:odWc^);JL/;ATlv<[0WB\NVet&A*&0u;/;:Yo?CIgcqyy7VEPCbpI
U"(p]ZTWaky6qfN3W/%kOY9l#R]/KF:\>a:p2GzzfD;%,-=_F\cUI*rwdi6xX%(up
U"(%)9%%[%-%M^akJ4Jb-xs%-%%['q&%1#%%%;M>6>B2CACSh1<?f0VT;#mn9#j8x
U"YYe.zy'=;?o)O./]l'\BQUI%UUU?237?EuIIII%UUU_:9?9U7UUYekzWBfMlH>5
U"*ON7\T/\X^Pc%FEu_fgH6t##QurH87uwpGFtKnGvFSLd3Wo>rHr$MtRrgmW2\Nc
U"]pKh,6Grh,8X)Ffllt=ur,Z466Du###guceEVsmt]ufUBNsW]=?2eFR<0dWda7u
U"$KoiZiYG4owwsXOpXBhh-.+1ljBX45cbCYnAl,3;ffgyh9^3w+fctLj8PnNkaor
U"p3h,N[ZwsS\_t<Q\psto2QmhlmZ3JNdm#pf7rEnCuu&m4gunULL\b#nXE#(RhZ8
U"88F+\+Rh$bBFdW8$bru-VDq07aM=j3VTMZqqjr=#Dssl^$'/Nf%9kjpx:RPej;[
U"Ze$F;PJ8K#^8xb6N2#Lx/JPDc<DEVpMlB(E4RT#NrLxeHStQ8bS<ADEs1^j.'-d
U"n[7<wto,9W4+9go?tGto<(:[e#8$BqdT=sR$xiR]pMZfD+*hh]sGr0>XUr\CcW%
U"pc(>Lde4FVFFg37[k_tP5HX;NT?erHmhn\c##lPkb#fK8vLt\Gcnt5rHTeHtR%h
U",lexhu)[4$CktOReTXmc-gm\$M:abbyHOrn9%DnsHa>pMd31$i(_(ELlXxRhX^a
U"mmfXXbPbnI(r2YboZ;64^H>$ACItLb_nXk;#hutkAoVNBgm;9Hucqk3Rh%9tfc4
U",5rnK;.sWyco8LfG&,D8Snm&xG;TieU43ebk;X*mQ\#^9utphX;n,L(%%%%%%%%
U"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%j%QUiqbmVZK?Am/FK_6%+0f4ULHv2'M
U"kc00mc$xnu,<u#mT;sr4>UCyk2K;L-N#8c$O[PahS5v_:4L)8Md/)oc$e=LSosu
U"_4t3B5kftt_$SqVjfam)k5z'v#AC?Fl90[8KP$_c%uj=^b0i1>Z68_01(XSQl&B
U"?T;HT\TDnIXr>p#UHHq.jX[j)&+x>Q3#QX?c:x_],V8MHSgqS>sZ_KV[K+P-UNj
U"W=Qpy^m+fioW3gE*VFSQ_n*)mE+yB5q^UuQr)f*$Y%f-4W#.3$q;)kf'],%%%%%
U"%%kC;BWd.iaw<*X$EW37rH?Q+I1aOwv+Ms1L(89b-Lk5^4%q4Hw(pKd9C5QfHDB
U"MZZwuxMs_,Fs5konDUjo7vgbtq>wtL\Liz*&>A6*PFMFcOkp,2(s#q6UBATufYY
U"N[8utTUa>&,opzCH;Ms><r4u#=;MdvQEl:cr[u.$vaWrBCoJ\X:iIi.LjL8&=bM
U">:Itv_^rX*N#vou3eiYj$$nhb.we\8aFPF]wq.5nsDY.d$wRXd.QM^U:nXn5RF#
U"hLZmtZ%r9c<(.xgMwmJMSHKj[\+HdnUvsmcOAG.Un9Ldpb^SlET_2&hVg6;MZe&
U"K&nd3jA:3HhbGdg)ZEF-ieQ'^pARU)nySvM$j<d')f.<j1RHn[t,[84N8T_CQkL
U"xph8'rpPbb9BI4j:Hf&9a#h$9fPW$LFjuht4T((G'.*pb)/Z8H%jUa/jPFY$%#%
U"-FSCWXZLS)IDMV9-Tfe*N-x'=zOSBzhQw^p%u%_YlY*$e(sd8%2l,r<dEN%pMXT
U"g4vZ;(B>i61jmrV*ju$N>F56-UIz4[bJ%c/kLLr[4]Oct76cuF=&o&LX[^8W4$b
U"%'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%#%%%C-=[PZu\p
U"0#Q(Q;Mtvr_4U\RvEP;ldkOF=QpM(9u-8\qXL]Ty33qu9m3SyaQj7TwN#$]NsLX
U"3d^9W:;0&-_P[rlv_T59GT&\g9\H2?6BHTYA,L1Mf;*EV73neZONvYrM;Fk8fO8
U"DoXi4L]uqo_914nktjXoLuQUDlVz,P-_i.E8>\l,Pq*Hwgu#b4L6u[lno(GHHq=
U"UGh>&=jatj^01g4uPH-HHKycOM43Vc.QR*uMn7lH,juqibp)0lP-d?t&$<dgpMW
U"IIyxxg#LIvjA0IpKe+<mA._&j;I93n5Mj_W.Zx2R'8b-uel5:_T0]l1qczllN/3
U")n8^Ju?urNCht+Tnc+ZkPC_wUs$l$LK7pD*BHgD'Mrr>7Trjz(Nc3C$\YTrzCHN
U"kZxxXl.uK-$k0Vf8eMlrlwkspTsoc70A(gY<BH]NH.?wl#.wCZ?^^EXL?\fi]&C
U"mkzk:3s<L5XkIrt.*$j*%%%%%%nM^v/Xof&e?e(ruY].hDcS0HeuXqc&[-zQ7Dv
U"7#D84z:1fjf>oUscrTs2lDwgj*eDl4TqoX2?q*5&O:Y1hCM$%/uLx)HbWQBHT#7
U"Lpc>hPITg\MwS)sjw%x+;m&.W38q&['OC&#N_vUh7ZRBTn*8r6sE8)hirTDlZlR
U"(\ZHX)=VME6J;n.RP+#T1QqFK&u2i0E2Fplp,i3a./nz_8c$sY0=?SrbFY<HLzM
U")$.tJ&[E*ErhZDO\8_^aJ8].N(nLkQ/$f=YUbsnc6mSsrTAbu$N:orQ^([D?#<A
U"TET0X%L,oiKsZ8kb3AUtZ?Ruk%T\58>urreu<nEdg)mnt$=Ac^OVzy_fefx*kYu
U"l,f?>uJ#KET32hFg.DqI-NOck,r&urR?/mZRF(_hEN8uS$EO]ATD/pkM^#]U3K8
U"uQ#$D<B>7FHsnpkeUYn$qv-pR^K,SdOCSVhFZruLfvwMEu&ObN>cr^^PI,&4pEZ
U"#3[RC8r6vScx3<9:oir4*%1\+>[%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
U"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%?oSxu%p&'9%%/%%%%%%f(^kJ
U"%%%%%%%%%%%%%%%*%%%%%%%%%%%%5%%%%%%%I%q>6&>Tup%&'9%%9%%%[-%U1.v
U"Lk\+lo_)7%%85%%%/%%%%%%%%%&%RE%/P%H%%%M;1;>D6>S1)0Bup%&'9%%9%%%
U"7-%MaSkJ4b1-xs-[%%[q%&%1%%%%%%%%%%%%%%%%&T)%%M;>6>MBCACLS1<?%up
U"*+%%%%%%(%(%&t%%%%x2%%%%%
END SUB
CLOSE:IF S=184AND 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
