'===========================================================================
' Subject: Linear Programming Program         Date: 10-19-03 (  :  )       
'  Author: Unknown                            Code: Qbasic,QB,PDS          
'  Origin:                                  Packet: ALGOR.ABC
'===========================================================================
'>>> Page 1 of LPDGSNIP.ZIP begins here. TYPE:BINAA TLEN:7053
'-------------------------------------------------------------
'                  INSTRUCTIONS FOR DECODING
'If there are multiple parts to this file, merge them into one
'file using  COPY PART1.EXT+PART2.EXT FILENAME.EXT  Remove all
'message header and footer information (everything outside the
'">>> Page x of..." lines),  load the result into your version
'of Basic (QBASIC, QuickBASIC, etc.) then RUN it. The original
'file will be decoded into the current directory on your disk.
'-------------------------------------------------------------
DEFINT A-Z:DIM SHARED K,S,B&:V1 'Created by PostIt! 7.4
SUB V1:OPEN "O",1,"LPDGSNIP.ZIP",4^6:?STRING$(50,177);
U"%up()%9%'%I-%s1[>Tl/%YAM%%%%S%%%%,%I%%;?IUS;?&8XwUn%U_^%WwUz%uu
U"U[HY^WVf)qH2Iq:[OIQHog3'$QS%u6T<%%up(%)9%'%%-%y\7>TL0*(q#%%%%K%
U"%%%,#%%%;A?XS;)?8Xw[UwU[f^'a3&U///B3e[W/0)2(i>\H2%%up(%)9%'#%-%
U"B&7>Tc%_f+G%%%%Y%%%%,#%%%;A?YS;)?8Xw^U%U]0^'a/%K///B?+m;7x)T-OM
U"':sqo:ED->D*%%up()%9%'%I-%b7d>T'x(tQE%%%%I%%%%,%I%%;?IZS;?&8XwU
U"mwU[^[wUyI%ZyuusU]^K%Z'weJu6gx>:ED*%%up(%)9%'[%-%'&7>T^=U'KN%%%
U"%\%%%%,#%%%;A?[S;)?8Xw^U%UY'^wUw%uUz%^'25#+A?V*)AOQH+5#-MMr:sot
U":ED>'D*%u%p()9%%'%-4%Z7>ITBF6%Cf%%(%F%%%%0%%L%;?C24BCVLS;?8:bYD
U"2\OU1>Wgd3R1<Wct4zQNWea9G0n6$Qe.^U3F.fr13[Vu7p#Yf_VhDODjpk.Zn-]
U"wf^<fw_.=SE*y%4up(%)9%'%%-%ZAd?TlGSe;&[%%%N%%%%-%%%%k%wjiS#qunD
U"[tf/97U-4<Buhc/hXzDtQxD5&?3<a7O9J_/_ornJg-7G.oeRdAbXB,SdSLtEp:0
U"diGPp98J)Q0?dLIUNUIN%1?]jFX*e0wsX)5oKA2qm>%N\up%()9%%'%-%(;-?Tj
U",9aH'0%%%'X)%%%.%%%M<8=4IWS;?>8&Lv(3RE14+YF86gi.%gx_EW<x3dySU3a
U"?L>\Uw+D/Y)^k+5BCr-)-oKAm70a:DkoF%u+IKwbn5K09]8<K8.,l.dkH[fdePy
U"?iB.$PnGkje,HLj8peMP=k%_,vJM#z,GjHNRBn(#yzv4$6q_nUQNTo27:gI559B
U"pzr_%B?rvFpq%pEQ'gif29jObb7e)BWrs/<MLQgI;Jl\tpbtXs$lOEF.1kh.58W
U"4*=\2b.%up()%9%'%R-%>8m>TCW8#M[%%%%J*%%%,%I%%CAIWS;?28lcv,==E1a
U"ixH^R3A:2mUZp85'#sN*V<[QA:pH1-:l)70+IKJk/X_]FLPl[33>NPk2?Bf&#R+
U"Fs,ZNut([P<k/Yuh7zWmIPK_R0tRiGGiVJ'n_QRuwp83:>^]Z^\Br.LpKU85Mf_
U"C5'd=C.nehDl_r<*%,K'tBT6>9;D<g((b65D)^rF:OZU&7?yJ).DtW_-B%]\?70
U"a)(vpqi2U%2:dLp<O)_T%3Ty*t<NUNK=w9(2l9qy0h:>)j.*+U59mPi/6+xOnVO
U"NYTJDNxaj3gRh(l&C*7L(u%p()9%%'%-1%?IAITQ*n(&o3%%%kP%%%.%%%%quZ%
U"vgSgRfx&))*B?$(7MtzEwR/>TN?T_Q2X1J%01](Q<Y?#FA86Jka)Z:VVP]3kNvE
U"0/s>8EmLsfjARfwFtz4NsW3*/87U[g3t(\xx>HvCYu2)]?kLX5%u:Qto^a.a)tj
U"FsD>5w=cB(\Q.FT8R%V.'+'P4l\+kI;x$?FsLW>JCHebc>j*D,]Pl0n3%?WHje0
U"8$TOPa[XQ/q.n+fr[pBmGnGZ;QUSL8aWDUegKWA1>wbPj2]*_K?inLa]HC>A<c+
U"xXt6dF[ED1Z.W+v>2'<1(HG6<nR/zTgugR&wnN)MI-P5T[Lm,bQout3jikD78+;
U">oQAsyFHQI713zGDWa2rPrB%Yl\$Cm)DRoa&n/wjkP*[%Atssoo1v5uB+hlRrkg
U"N9G[r??fU^>1M0hJb.57W<WMF/_j8UDK,2jN#&^^[i$*e8tPRr<=ho5*?r4^7LI
U"(ts^red(t&r[Lt12Qw)oL<erqL6rj4Cn(#CnQ_$feU8Qw-lRB,Cvnc8LN/k?C?w
U"A68sqlBOnNm(oHIX$'je%bN)45oqE(Ns;P3.mI]&5iRu1\r19wYFo),eK(fgk%i
U"46(_2bGZV'RvS[2\C?j-qTP'=':02y4g*]5EqJU\v6'$<1Gn_VqY+&nzq7S<r;Y
U"qml1Vb>R1dj0^l*fkBL)w?B:Kt$,57?+4o1KGf2Ve[')oLS,H_g<ie/5AvxJ%$?
U">3pN]*O+M:GAd0n]gK8Nxm?++:j_j_.8]B\1U3vG)a8O>FTSnp[E.0wj91_OMb_
U"VJorT2#M%MdyLe5U#?9-n53tKp4\ZCG&-tDdoWdqtf=#:n$AY2)2JfVBn*E1t2V
U"H0SUlRMh5%_+ry$BJknTGRhA:1YL<YTIkp2q,OF0q[D>[O4s?u+44:>CgXPl)yr
U"48qL'J<p6IUd>eaC4tIs)[p1VdJC4DOLYgc<pkxD?21CXxxQbCv<kLQzAs5w1L5
U"xm2rqD^X5NL4G+5^g\?GDLiZ3C:DY$g9Fb&#B_xLR9V)hk:rBsu\pr6wLFOgrvt
U"fZQJq6m_dXxPr/0wgV7r*tx+T)gbgM:m%f9a105E#CKK,bljtxfCl7Un'p5<2'5
U"qi4_&]cZH':_KMP_VXHP(AO##3l$$wXp'(iy;%'iWh='#iJx?]\[N)*0Z'kX[87
U"TVQws-Eo2wi<Ib,NS*_0+ojZmU3je^EV1(?acH&D;nFTK1%m2zLZwD&t*A01U*=
U"4iRdf?(CRN%yZC2f^$$[bf[ELeo&7K\Vtzlv%(g6mLj>B0hsNF9OnKd4UITs>5+
U"es&x#_KT_gCr->u7.0%-Lt,Wo2QgZhF?*fhL\\?,Ail2g'qj+15MO56geg;&/^7
U"YlqtcNjuH)=#k\e,t*MGQ%6%U<d4\[d\QxN^0V)uF<YJ)x.D4\rLl;WBXSF>A^S
U"\9OEO#D/nsC*-/J\4Vk_ty]io#.'*n0RUowgMNB*KLC.FT]KV,'TZI9<QW7oa_>
U"I+)d:%v7*'>$p%Xq5(>jn]jR,uB/4FX/,t5Bv).b><O4RY3P5%%oS30N1_i,B&D
U"XCHtTG+_5b]6P5.rrmHo6)d7('1J?5?1(%xuk5'uWa4wGd0s<E_lkdiZLG-0ZXH
U"ZKNYJGJfBV_zLTkBfCZHdNMhj2LX;refEgjf_(SjCFO4&rU*JhbFG#uO->3'\VA
U"FjAMjZ8jiZ340#tHI[&\uKjMTDaQ:j%hIJF8JEL=>BMMjH.K4bf.6K;WI*EAq%G
U"],]^bO=0bPUG6?tapy3N*k8.$_QH<cf$,s$ZNnV;d(d_Eo-bHPR^:=?q\C15DCI
U"^4,AuTv=>aDXm06Bf^zhZ&o]g]][U(li(v%QbONBpLl235ztfC(E0rN17SpE'm%
U"iK<8j^2trjYn=PXV$AzvvS'pi63l>vA#/>,A]\w*?UX8Oo-,;c6Bba;He'lb(JM
U"JV(i,a*,i\mF(AdTUwos&SO+Bh&ymX8MwZ3*^>w;/;.%^2LCr]iBrr(m/P+7d)Q
U"+;Gbvu\tpz3ed)4EJh.oeomB0;4,g/d?s*.>-f/W&[eP'6%0I=u_;+eqC=Am/6g
U"^_=TL,]_'Je\KN)M<[>RcQT1\U[%1BOzm1\yQWc#%V#4%o]V'#)j)KZysK'(J\v
U"m)bMH.%;8Y/_JWzS%v1G4=QboHqnp0isI\CpA'aW_O7tNA*fM%BLy-\iXQxI'u.
U"qN+/gf:>89ZOE--3&H3FdT9%5\E?-Ux8l+w90bn9;X?Rw.l/M+,E/o',aKAIKTR
U"d47.r9'q4pU%No&6u;GDcT*c^B/xZg1w4vJ2jJXYG6Cih[Dpq2,NeTOlF)s\r3t
U"3_GXPe-b3eiAQBOV[-q[4TNp^19^z5d7fRn)hTIR^K4tqwN;HsQr)Vog7'_ax1+
U"d+qd2fSF'f*3sn0Z;WKo'v?\SqaOCx[1RutS0JkL)1Z?CiI/;l*;SuR)+Y)#ep5
U"\G/)SsG?J&Wa(?q86NMj4'E$F1qsbm$Mk&N)kmFO9-S4y5C*7./K3\B.Zam6;%y
U"WFed]1ki7g\ioFH7(-<=1c?N+sCd^q(lMUKNK-_r%Z=XIpm/s%C-V+k'r;Z);:J
U"mnDQ9b-6//q-.-+SAwx&%(V3<1#U-sF<_TDQ<8k>=9[.7i%Gz(0JU+T1n4B,s_'
U"Qeb)SC[c;zkk'A?bBqC),^]TmSC^]$7#Cd[MFCqarB0M6Ec=aXe:iOw26gTxHE&
U",f78oJ+f&,W15W^OxSJPd7/]Op9j0ijs5C1LzzD;5aK)tw?R6G<[9j0:b\>]i2.
U"U#[4sO#1#WFrnu%eA3H#([S(Q(Ag,g0#[,1C5KZx8Z5,47]*ht:,$pw2Qz6$(i;
U"#OYNjnc/N*]86a>W<F:.0s*>P?H?/pd=1Ci)53\bQ;l=q5i3Zg:g:v[h(KUTuW[
U"rg)eHd\P0*'2;rZpFPHssnKFl4+N9g3nWZ(<^?,A/h[*<IqH.?njv>5$sY-e;n?
U".JUSn6g)'d*9]%5yS/9x%q$fhTgZqAp>,;BV>ihdI<i-l.T74iJF;Zxj4UJH&(c
U"Co^O67N,^uK]Nf1q#kWI(.tc5O&5P#CrAWbw)JPnEYB-[.U4dzC.-a-8?M0CxJF
U"4f]a;8G93)b$'N%kmESRm=wQAX<j^A[ep9%Np+ng2lYXn(y=ivG[pz?45G28=sT
U"Bz'2N)-os,Tf;A2WcU(P+Bg5_kYBYrH(lu38MhpAF)Ht6:pBWg<1\n$jxH.(HK,
U"h^nm]gPT&dl;JOXcQUA0)&K?GOHxMbO9tl>Y_5l<=EpH\_8i6.FGq+U2Oorasd-
U"Fmc/>IgPmIpB:?&*Xc$iNpB.v:W:GnQR(E$TE8jDLnr7(7\8m<n\U,B\m8CsO#p
U"AH7ff(]jaB>V7*4FTaG9xan8vyA*[LAzqA5Bi7h_(_k_eZphgEnGECngw5q?<i:
U"(:/Jfj#tg(6u6)H;P(eaLj5q^4+gFG[QRY#4ClR51[LV8_J(JJ)A<GQ=mi',Qo:
U"lZiu(3Uu1A1N3v,r9Y+B.PLLL?M2X(P$'DFI.)KhVH$&c-=,JO:CArNA6'Iv)A<
U"5oi(o5=WCLZY3;Edw7;bs06(O2L*-N4u<mo(P$dU#g2LW%VDa_tBa%7p3%OP_9c
U"t)3*TJ8Lvhg1NH-):L8c#[A(fG%^SPj/uttPrC^4k\hfM;7h5ew_Y3FG48?$c->
U"tc3a3UgX3YMYN(9TE8t$F#sgz/m1pSR+IfirI.aVF<_')/sA\S.DDk,nMtY'hWe
U"6n(>_&J\tQlXko8\Q'4be+&,77nc:wE0OwPqsOK1][<:nl&%w:_0TDq%rJ<;FYA
U";cPGY*S]saMa<OfZHq2a;N?0qt%sm4=8-/I7BMdTZ%-n&&Lf:&F#ayD?Cr<l^e=
U"d[t;J^.mqL?I6T7:O#AYdY++[L\FN\lM0BSecSYY4%5t*7TViS:yo#+LT9TH/5z
U"Eb4W7l:s4W6Nl=4-O+)VRm%$Ibq;kKd5iO]gXH3X\7+K(mfY;eo+,M#*6mpFxF9
U"hNUnE=ZX[_&-EdmU,A<Oa_ru]+aKll%-m1N$KV]lmWq&m=1NF^[$Xnm+Bmd8p7O
U"9XtrJAe?JAd+=?-9K<F,P-#-hOSqpAcvsm(ecJP>&,'/:)\B%-\YPop,$Am/7U9
U"tFEPo:A0m-Ys%PN'9BH)h#/OYRigOD-=I:RO9F(EDPF-Ifw0McP:)_?tSlj1[>t
U"yF.=SMY]f7\QdE\M%[6)()f:kW[R>di:V;#bEg>)*p3iF&?[8JOUS*OoIgS'5.4
U"Z;T<be/C/Hu6I[iRgs5_YPWtSJA*C2N'4:Svd3^owjV)LB)B-]ofi)t-E1G-u::
U"Sr$jv:aJ<m(;$8LETB]6%0vo>Gp-:hfAV1P$[3PB%A2Atk;9F^/7[QQoo']5=,o
U"$hVm\Qg\*OlvF[lDX:E9/8RmASYLe;?a3A+T1T[u).'hb=oY5EY=st#'LdA\dsZ
U"=)Rbwmo<a#^Pn#6_3Gu+zv?84oN25Ym.XBaSY%D/\GYk1GPYr:/w[Xzo,4\>J%K
U"'/+qDjydo,S^0o7m*V9R/_5Pb9Dd9i\AL.F)eq#%OuZ3/4M.OmvswpI1vMk4Hq9
U"P&5:w6AIHbERw&(m]Ky+m>&8'e;DMQCmj*vbK'pFrl:Rce:7yRJ>-&+2*7]c[HR
U"$zbZwTg*ZoI-O4>xz6?xR(r+Xt>MK=G?;,AQ12bJ(g;e(l_9B(x>>OL%\nW1+m0
U"9p];X#?7V]eKj6pRj_HBhe6*oob,6p7CwRzpzE>LS;tBokpDn/Hp%nJimmMQqkm
U")#6Ne#Z;J+NC<q0V9q)qP('w,up%()9%%'%-%*L+BT<Qr;9'w*%%&j4%%%1%%%%
U"quZl%znij.Sy'yMd&<>][k5wnMww<bK=<e.'+.9UJd1+&qG>S^Jk?.'c,(puQMQ
U"MdTI8NQxW65D<1$_P:pC7N6mHE2-n#sdcu4VhKl]8ur<Ra<dS[:_4:j0[na4N2U
U"Q7Nr(V,koFMS_.>RRQg]xPA5)>X-'r_wf';M4nu)Raa5P/5tH]X3M-weAu5='^D
U"LdmKO<U#l=9>c3i<rf.o#9rmvSq=^jB2o=5%<I_%7mo&rZieIo_2Xreujq&q:G]
U"KQL.Ccdj/v]NSeP+ge%?)%0)xZ14V1vpNsjm*h,z\X^CMB#ZZf=qSNib80&<:?e
U"^Krj?aPd$[v3rMH7GDPMqFY=0k-j]j7<%&8J0)0AOWUl>1T,=pB*9D?:=[$*]UY
U"<dA[^:%P3=dD*I4S&L(.L(+YSS>8WK;mLi\sM=jIT7\cvT^Ey(r;vOktXp)*/7b
U"n/5JvlZM*5s30OdO>l2WBb]jx$uM7-vtXI4gl8LsuN#O^/7b\v>*T+R#XU<2+b)
U"56wjeLu$CeIn9-8/X^\TdSLv7CfiPYE$xoEt9bAv.HxVv,_^n5kAV>kRU56q+i0
U"j,Eb7<VC$'+NUO&0(dMzOSI)T[^JF$d3b9B.4twBKu8T;dEGIYc1'eydiD8Hv_F
U"I:0?C9=xQD[gdq0]ov;n#'8/k#-3v5xlbxhe8pK,e=]i0<U\vNLs^J'0kY(s]2(
U"JIzvrt#^QQ#mB4hnOkxt-sppc0?RhpANg%$7.cM*2'7kUWjzKk?T7P[m-EO5^^9
U"tYPe(>:Z=;=bN%fBi4W?QJs--9Sqc)>+BG0:QVGgfb-XVbXZ5q%gh8soO&o#(HR
U"iD%$\WX]SsJk,V=kuP.E4H$SHU93$QmY&Pq&u+L9K>s\hTI:^(r&Aukr-)r)\Hm
U"hYbK'ua;gaqNH&6>iJQfbXc=$WO%RS1$lND5:OEIT]5Di].T]hU#_TC:dS943W3
U"N9t</i0bR[cu\9(l1pK*u1ZL;R,_C.=MiJE5ur[ZcBO+;W$Zrc'R)JTInRqt',0
U"u#uJ+0C)S8[A0Wx<5HASTC+8=U.,e/6cSMILqx_oWmVSeK(\xh[,[g9?40eT[Gi
U"#$uqkFQ<<UNvA5;/p_$0:X/Jy*53XnTlSqW<ksLs&GglpgBD,d<CDlo&RLj;7_f
U",mn$BVXlYKqFl+YW99[/Kn,[2AFpAjU/J7R$$D_HsRHS\X5Nf$##*lE?gdZ6Z8A
U"YGVT.xH(:M.Y0ThtbY,BBme*/1r[yqe(MgML6jEOlK#eq$4\XfFZM(4T%a;$y8K
U"k/yv*Ayl(SAJ23qB-jdK[daXF&RNi5sAk^Tcu0K3J'a;.#5tE*[Aeqt_E8G#6I.
U"7h6N,p[m=6&4t]#]0Y*E*ols(h?7r,$4Sp/t]XnCJSbk,pk6/0)4U6=MN/,<?&m
U"vt_Y*PAE$Su?T?[RAmPV/t>FyJn;MRNJM#sYzge#6,>cY6p\lrBVt,Q81l'<.-w
U"f(;xW]2.y^QA^rMgryNwP);R1NhG'n7q1DHnf<XncoT4\OEE\<H]o_m#v\fKK.B
U";a<)*K\9)EF<L0duz4a]w_,g1<B1)Bx<SPuHA\x>A<mbv/_;hi[V8Dooj._VZx.
U"b4.Me\\wE+U-<ag6'\##'WHngG#glavrfX5r0qq<&pwh(&:#H%0rB<_su'70e:^
U"^R7NDrn4NN$\#+<Mb%ZLC>Ge]#SK,6$+AIP1fSM^_ru%fXSJa-/N#gNK[;f)9uf
U">Y1N:8q%8gZJgu.Dh;+a].[0HURv_fzIW.5Gh:Nlnr.9vYYxN7y)-35_.9#M7G(
U"OZPp+O#V&LGw_ANd$Zj*iw;FH,k,slZ1G8DX#+F69+PtvFy_eCTtr[G+tppX#L'
U"V7S71WR*q%Knay6KR$5J$L3^DaE_<bD?4dqQUQ47jDk^?X3t,<ZPf6?9Fo=XPnj
U"APB6-;pF\/\x>=koEu6T\^bmeD,-xa%TDsq:&wY'v<up%&';0%9%'%I-%s1[>Tl
U"/%YAM%%%%S%%%%,%%%%%%%%%&%IE%OP%%%%%);?US2;?8u%p&';%09%'%%-%y\7
U">TL0*(q#%%%%K%%%%,%%%%%%%%%&#%E%O&Pr%%1%;?XLS;?8%up&'%;09%%'%-%
U")B7>T%c_f+%G%%%%Y%%%%,%%%%%%%%%&%E%2OP\%I%%;?IYS;?&8up&%';09%%'
U"%-1%b7>:T'xt&QE%%%%I%%%%,%%%%%%%%%&%Eg%OPM#%%%;A?ZS;)?8up%&';0%
U"9%'%R-%'7%>T^U-'KN%%%%\%%%%,%%%%%%%%%&%IE%OP%>&%%);?[S2;?8u%p&'
U";%09%'[%-%Z&7>TB)F6Cf#%%%F%%%%0%%%%%%%%%&#%E%O)P6&%L%;?C24BCVLS
U";?8%up&'%;09%%'%-%(Zd?T;lSe;&&%%%'N%%%%-%%%%%%%%%&%E%;OPJ&%%%kw
U"%jiSq%unup%&';0%9%'%#-%;-[?T,9>aH0%7%%X)%%%.%%%%%%%%%&%IE%OP%s'
U"%%M<8=4IWS;?&8up&%';09%%'%-4%>8>XTCW#+M[%%%%J*%%%,%%%%%%%%%&%E1
U"%OPQ#(%%CAAWS;)?8up%&';0%9%'%I-%?I#ATQ*/n&o3%%%kP%%%.%%%%%%%%%&
U"%IE%OP%X)%%%quZv%gSgf%xup&%';09%%'%-4%L+BjTQr;+9w*%(%j4%%%1%%%%
U"%%%%%&%Eg%OPs%7%%q%uZlz%nijS(y'yu%p*+%%%%%0%%0%z%'%%G%>%%%%%
END SUB
CLOSE:IF S=247AND B&=7053THEN?" :) 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\7053,219);:END SUB
'>>> Page 1 of LPDGSNIP.ZIP ends here. Last page. TCHK:247
