'===========================================================================
' Subject: Matrix Linear Equation Solver      Date: 06-16-02 (  :  )       
'  Author: Ryan Balara                        Code: VBwin                  
'  Origin:  ryan@balaraco.com               Packet: ALGOR.ABC
'===========================================================================
'>>> Page 1 of GUSIDEL.ZIP begins here. TYPE:BINAA TLEN:2753
'-------------------------------------------------------------
'                  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,"GUSIDEL.ZIP",4^6:?STRING$(50,177);
U"%up()%9%'%#-%qj.^OmL>dY4&.%%s'%%%0%I%%6DMB834J;S%1D?Dw,,>SU9hL^
U"cx&?:CK#r5^p59Rsa1I_Cq&sy)2=r[>pFS=z1PJ/03$LMuxe4B7PQ&KmK>LGv]B
U"pH8yb\o,F:O;uqu.',;7BO]Jskh00$8aY4%s..kZj]_9(9_EC(raICR67#Se[.h
U"?cBhfaAb&>cjD0jr<V;2NZ/>P1tl_T^4G6.RE#pd*IQ+Tp35qy'YZ;3bVw,$-_X
U"V2\j*tXJ8S1(cS+4<j0jUg)E(+RMpipdEXp:,-Q&p(wUo?HDcOEYq3kNvFdlxZC
U"a7b.hq7Z\iYTmjSs;h:AKd828d'0K;%ks*\SGWl(B]60(YhC]qr;W1G.<yi.Rc:
U"&shUL:GUNJ(kdc-4R9A/F>Q8Qsn<W$n60HyKUG1GpTURAl[L:w]w2YRcgDh[Zwu
U"x&M4lcA*Pdq(d+)0tRR%]my$6T8U\$vQ6)>2U7Za'\[0#k5$ofIwrQ<b;l3'-BW
U"-(*)YlO)V8RNOPdO9X4$/a?eBiuvTu7fpl,(;EU3yFqo&EtcxJmb&E'p$-h/R=N
U"/(rf]bUo;k/NvI3.<wYq('E4VNpYSfRV->]K+t%up()%9%'%[-%H6S=Opp*(SQ-
U"%%%RP%%%0%I%%6DMB834A;SkAP<f)#+tT]9fxDXhb/ns%(BcJR;tO'L6J';^g&j
U"7#>\Lbu/7rXmg8cs%s$f<Xr,nfQ)8i;/QTV=l\%wdtZr6XJowbTftHp%$'5$J$r
U"Te.7*OuHTsE$ffArU?b6X;7=L+3L\O5KU6j?naHmcJeN,Qx[F:T]5N1Bam<;[KC
U"$tEU4=nRvk>^_euLhZgkIB]KAer)vhJ^EHp60Jrqy'Srp8=CLdI^zb6o0<$<364
U"7v0kNpUBn\7gMB&+<u*,8H#%r9_(iF=8s/77Jh3c>.lQLKP4A(]n92g=mR2S-?0
U"E?H(,74hMkr#^<:A<L1a4Mm2N](WUt'J)fa;#vfnJaMB'^4ZU18,d?S<6Pdx'FB
U"(E%SqFUdVm#L>;0cM0M+tH)F9MylbJvL\sBsBib3[bmV,SSJ-hYl//mv>$>e9_<
U":(XzQ[7J441#GP%N=X8g[zs=j^g938BBWlu,4:iY(u/Zuu/&6k1#:xP,#:zj)U-
U":Wh5fj3s,.NHYO\?f58]#&=U9Q,C]*h[Lv-]bAu+ds)WXLUMuCuZPmSlrqXJNH]
U"3^WXoD_P3/&:95P/.)6CG-F1MJ\*$R?==hn7sYk74[HTvUKCt;5.%s3x0je+)(T
U"3(vAMINuVZY0G<8oh^R[GzZyJhEkiH0BS.2OL4gNMj\d#cSvSk>xwe]gZmn-U4V
U"<mBp\R5TfO7MdR:qNhGK%fU<&nlRGAe1UAEfvc<Z05VlbKa=:b:^CxWfLDT)z>[
U"cB+8)W3uMnC(pCcPK$$X=k1[V(4\.itf3E\zd.rCgm%ztIlj.r&G\1m'wllEcU3
U"=7^>pc'#.BTKQ91vb4RJ0eK\ZlT:OkAErLCNd$qaA*4iI9Fa6aDT#9sX*DZwkNS
U"Xwj*)_h<^61hW5lWTVi]Ra7?o?]QBui32(-Bgl+YSGuo6K\9G7c^N,C.+AW$k1o
U";I)'UU.-/;t$R/nQ.p$F$hQ&6oB:D[_2Itv&AjMVQ_r7K'3Uc&uEh<Q])gY.KQn
U"w+9_kwj&9:wJME4*Tq4b^U.693,,ICs5I=GUOW5q?0D7]hF*Ad_:t;9$f8BTo56
U"V-c/;$i'JdQZteP_Ma$l$c#X)o5uDABLntfSai#oY(uPUL%QW:,];Ntg*7?AV.M
U"GBll&pjzR5BQ77E$[[e'<(]K+5ONg<)$)v^[K(9)j)29i&:r0cdT;q.U+*h'6Gm
U"tMF<'0un7]I;UPZm>7.eW%B:55N*Q,QaIgeSZPC%jT'5gK[%#Qi==Z-^tR=EZbw
U"-cCpU=SSE:?Z;_C%Pr^.o;aM$NRcn[TjGoe0g=RGG<$VIS/=K[A)S7uO:R/s[wb
U"Cb^A5m-P;OraL[vj77;=U_9H1>JRzOBWpF7CK4^ZiH%Z5<*m&BE3#+r2EoZ/UEd
U"=Rt0\rnUYZ>_.F]h2NI89>IXWRdl1d$1Lcd+mOY/unB\ZmUnDEsK<_&=9&;/>gW
U"Q+aoH<][R_/XI^[+S+&u4_[%:5E#u5H-:5kE1Xrot)T4KO)LhL;ON+/o&b$7H_s
U"OvUNOlIX#'3cqJB,5&(vzE^If3nF)H%/\f[6ztLJ'T&LYYp;.KYQ/\F=viR\I#=
U"(Y1<d/,up93QE]+87F6$=_i'b1=^-5a,<Uj3VWctI&dw\6EMYu;8yq50U+/V4kd
U"v7ZRYl<b_Grm>BR/OBQ5kgaaGZwjrVnFVs_h;F;_6ELxwQr)BagSfb:,$2f79wL
U"6n1n>'jhvuxIpDqlS$0cq/&+7(?/f9OpUmRynJACqR6.ZLi9Ufjj.Bh(J+tf]OX
U"UjfkwvOjCnQL?y9&(UVsdL)MEfpEi-CLc*?z7p:UDOZ.gpnNyGh<+ACJC1+:f1J
U"64PG5/gA;EB+rC^v?2Q2HxyRQ<s'&EW*8#GQ)Qh\HOrq7U[4%e9(zVfz/%^lD;?
U"_MBP,;-ln7\*SOGBe-um%>znZF_>OlJH_lHIoVDSTd,[r=C9>jXcLtNY&$>PVg,
U"d+)EK4/^bm5-%_4Ev\n37KM#2Y&^V70xh;>$sAP_x:g':ZM43EYM9OBP+3MWFED
U"a-q]Uw1-YSVii)#rhygTGkBZ#K:i,P-D$FD6I>)N-b>m17$&'S+v.I%Y^/,I8]&
U"l+v?8GV#hZG2R0+yI]j1\PrE70nd6:CWV1Yuam$Q:jK)x:MZdeMUD0Fza^;a2Ec
U"/E*l))'D*Sdgj1vb[LqCgIE.[tCfC$S6udyLWEV[ESz,zV>;>]*-VRGkR6hTTGQ
U"Jc8Ppkqb&ER^s,7L$JV]%,il7&XL,',Lj#JiWs)bYR,>E8K-*Q/D3=(h.1Mat_\
U"%KSr'nAnbQ0kFs>-YE*Vk.p^,kU5jJp32ez7V,Yeh95pH^p?$UqA('Kop1RbbXN
U"tdk3?\ZB#bqhgh?(Gauh3o$:;Z<+XXj7h\Hb<Q+u;3/hUW]N&qWkdYcBPng<BXv
U"13ea,oRWoD\i(3NBH&Kxdii*8g-$V,T9a\#S>/3D\XF+sk9K-$nCaHU8?>YfqGl
U"NP)gCDR<5M5gm$igF8V&7BnGgA2R.]AFKIviR3*ogw[]GNzwTd>w+pSljK7K:>J
U"WQN6aG.--L^<xc/Qx(ai-qbD&h&RSEcaI0fXaLL.<#3bQJ6Zb-XghE,J#6+h0,1
U"MVD<;7Yn]TkmO]4CBPCc.=^TFGK5&Tas4#d>v'FRa6lHscLD,L04_i9Ir%dup&%
U"'9%9%%'%-.%qj^COmLd-Y4&%(%s'%%%0%%%%%%%%%&%E4%/P%#%%%6MDB83D4;S
U"%)1?up%&'9%%9%'%[-%H6S=Opp*(SQ-%%%RP%%%0%%%%%%%%%&%RE%/P']&%%M6
U"DB8234;S1kA<u%p*+%%%%%'#%'%A%%%%^%/%%%%%
END SUB
CLOSE:IF S=243AND B&=2753THEN?" :) 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\2753,219);:END SUB
'>>> Page 1 of GUSIDEL.ZIP ends here. Last page. TCHK:243
