'===========================================================================
' Subject: Solitaire                          Date: 12-22-02 (  :  )       
'  Author: Tom McIntire                       Code: GWBASIC                
'  Origin: whizware@bellsouth.net           Packet: GWBASIC.ABC
'===========================================================================
'>>> Page 1 of SOLIDOS.ZIP begins here. TYPE:BINAA TLEN:7945
'-------------------------------------------------------------
'                  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,"SOLIDOS.ZIP",4^6:?STRING$(50,177);
U"%up()%9%'%R-%%%8cPWZ+F_zB.%%I_%%%0%%%%xt%qnit%xSgf(xl$0SC#NdUTX
U"*4t*KQkdt[=k(GVEJD2JYe%d>$s/;^e:=P=?32e8fj3/4*i)eCI>=L-D+];LFM'
U"udp^d9](SA40LjM4P4*?CZIYf^uMTD4PweCh(PEgw/(/jpR_e?6hFmOHTPQ[tk?
U"6kFhLp?Vx4Xj^tg^T=O^ef0+qZ=uPG&golA&+QNosdoT#OOZItNkE0R3tr*6jQI
U"=3aEE*c(MD_i>EHpe3#I]6Y<IBx2:rU'?4/=RG8dJBn[/ps(PQJ6xUr,VupAv>C
U"8RyaxEg'%i,s'I\C,wdlYZMtFX,pKM_hUG*9bIVmMbpx/5kmc94FAv1e35Ua&'M
U"604,oau7n:Gm8H]LBm=2Ka=]fWjR(ncFPZ<=A*)3B'A[#5o74uay#E9.V#Gf?]:
U"k2]l^JD]h$Dv-II:1S8/OkQX&CGU:jIHf-?YeV*);EM9gns&w&LnLsBR/^1#aUh
U"vA2Y>t(2CY5.Dp_:Atc)GJk(C[.+8CODI45p2q#1Pf6)64_[crh39h'M[Ai/q(r
U"IoTIl%fXnrt<q&Ga_ji#Qr4M87k=&ZIfW-*KP50cYV?\g3JrUG2JhR-gnW2,q*A
U"4E0cK46g9XA.R=hJ5#0Sp7r]BNKz#)s;QmG&'Wf8kbJhsHJBe3('3?p2Uq$)<r,
U"b&C):O1S/b:?#q8,\1tVR.J$+brnDI0eioknI[B0hCk2-2:+Ls<SCzMjNJV]id%
U"UPGZt4p$Ic\-or[^:)*P'r6Io_s^EXBM/rTLk7,]om3nMvYd0f1a?nl9^TDSfOO
U"bOoxTrMrP?QjID]]3I:x\)4pTvep%%oeY[j+ena%o.q3D(_P-s9:29+$):l23\t
U"\9:D*fHZ'Yi]_8Q9XMAJ&]$(wQp>\ewzE[0'.IJ&]isE*7'<a3Ngw+yoW%03xMn
U"L>EvU1JS3eC&58/qds,u(r/goJdM=6rCq1^/cz#\I%x=&2y[#:R2l\X0Fw1Y.Cv
U"kH>PJV.[jC,D[sM2:T*.qARJeF3?-uvAHSN,gZV4qMi3OT7)3+f\]Q:H0VcnCpu
U"pIPURNTv>:Og_R=/ucrSHd>Jdr%;d<]'rD2BwFE1zyG,8PPhu\y9&5o\(Jb<Ag[
U"B1lvRTf_&ENIAA34[*^45XZn>D\E0-JJh_Jf36.U$s>hGgJVD1Xi<pCpSB3t4k?
U"hSK12n3rOj:HCm5ug./f$cf7^Zay3G+^Hq65B0RPoHr\CuoRYk+]cD3xfACn\wb
U"9MQ.mhjkaL5H'##Ph&'LOCno/mahi*q<W(fC&Ns/.%-]N*eMM?av/j?S/p]fs:o
U"laCeFoZLvD2P/srH+;U7#%tDK,0YR7G+.pR1..31O>kmv*Q:WH6gR+cx0;mIBOn
U":#UK[X,NAn>En>FZo&VE;N25ov?[8KA+:Fm?&QN)PGy5W-EK;Tf()rHC8M6\=Gc
U"d>t$J#M7f,7)C7OL+Vd=3>EQDA5qT=:/T7V;S#i)uobNiU+HO-hH5ASgf=oVQEN
U"6T2TX$Y*sMY=9JdTimI?nWGfP<Yj&jBF-h5>*pd%<8(7WNPwOD4td$C\mOaPsAC
U"YMi+kNC:D_E-;63n.++'?k_^FE:8&ARl+K*eH\AXt2(7UKbmVmS3E+j8+wrE=sf
U")0e%,H1ukJlYHO[m:Da-7[jxE#bSc\+f[3g=V4Vc\I4hj/_;.<f1kU</g?BB3m(
U"U8HDe%cP-poOOYA3Mf2-jaiaRU*b2%TiT_/l-Qd+l?EMp,RZ6&CY?0-:AqMd^nv
U"i'$yQ1%c8nKEc;ixJI;8dI'R>aBG)7C%KCoK/R5qH]MXyTTRVYDELU_([;>K=0x
U"V'Fg9hovrLpJVVK-'b5OO\zN#$%hV=^9,tOSZG(f#M>i9L0wqqPV)g%3]]839[:
U"\SlIU^#]k?4g4ReNe.z-Ul1^;8b5$l0'-]K:VkbmI(_;e%'SsI^LRa8XFdqRi^r
U"3MjkOkx43Ky%S)HLp0i=Dv#1yQjFVae1[Y-0<quqj*;/+]n(EQ(q\;m2\jAiD>$
U"rBmDO/-'5m1io[F9k7o(H0ua4r=?e)41_;R(b,9#*)=^O)\Dc1Gu\a>Hw#mAy7m
U"#E7r6o.W8\(AXIk&AsV;+*E*E1'bZ7m-[ImU%^81k_;3zn0$mz/b7>znR(X)NOk
U"2]Eal\Y1IL%yV$kv>>[Z>1=Gb1K20,*Vkc<LH1<#lN^<270*de2Qi.i'wi*Ku*a
U"Bko0:8$jU+qv1B6)gGgQ73(&D^yj>&Ugo^-SqB)=#_C3Pb[?MA1I]b8QjaC[54'
U"U_,Y3tkJpSXOB9sy*[>RHI%osgFd*[Or#,0<d%hQV=MZwf?/?'YKn\#%5&?90\Y
U"/%j*7[kE)i=UrLMo7%eNeT*s$>9:-LQl9CLk2nhm)D:rpkhSA-.X7>[VX5<.bJv
U"fEL2?Bto,J]RY%hDkOk#*%U?bHd&902p0bAu+=e7]Ztn0i#=V&<^D9SA.1Gl)1e
U"%'&%*rMQ)B2Z94&gP:G<xGg=/CQk<%z0W%wjeOj7UbMao9Y59CMCCF.<CF)V1Y%
U"FZV9'KQMrV-*;kkM%>6shYPccA<?4kf4[5pWfkEco_#Za%qUc:[rI^0BLV#HGCn
U"ErkS:_2(2bPX#Gs.8*#rXY#'FD;bQ&;YR)WM<Z]LNf#V_J81,14M1-$0X^HW'&)
U"GUO'EM5mZm]-W,G4FIr+yC10^\u(KM>W>QLRr6jeJdoQHA:Z#.k/rECPDlQ7E'G
U"f8^m4i<c5c>booCm%e=/*nuEe:4)1nmg,1P*no(EY<QihV%o='<L<cm7MC[UvrJ
U"R9LmL(9T*qC)^KVfd)qV\5.i_U+sML9-f_rlSAYnOUi4pH,^U5hWfR0nxIC_Ozb
U"7<xw&XmrbP-:>(h2KO+o+4d5b;LZYas?U6mij+Y>.'$6bVv+,;W&kwRMwVy&',#
U"^qGnGz^b0]>snKS>C7A<Zzk-*REiJfA**[P/*[obM),/xj^m/To9HQWz])9vYwQ
U"6o\+ist4ZhjEwi1?+\roF[jeQVo-v]<f+P*7fp4O&Wk?a^v57Rt-Xt]8k_6KG*P
U"5be[-1ES7EeUEf',$AlJ\n:dFNlO8Nf:>s]B:)C%RD4wRxBk5b1F<W<T=K#;P\E
U"f;:8>j0IDEEP?3/(nlh-(:A.(QwiC,4eSsF=Z.<bo%Akqh7aS=.$zHlAojCJ>>y
U"#:m9UId5T5([+LgKi7Z0qgW/cf5<82OM%%=5r)tfInaJvJLuEkCQh,:Y#-[gCQe
U"_W2;*n\4pS<w;mI?J%X[J4WCug,10?Qm66_U8rF:695'hXw5/AV,MXVwI+q;i*>
U"m9k9YHCOT5K+rV)2wj9Z/;g4ZGa[#\/9nE_O**b^mC4r*EEvCtkBugBrw]e=24$
U"pWY3_nC<3]k+2H0SJSkNufdFQ#RE3NV,R\n*kK,m0j7k9ukHba(5aQ:k'kMWY/>
U":VBC0EdK8Yc*x;SYKRJIB3&%r](Uj42a:]Y2,d-,p'=0kW>FVJ9'3E9m*z0Q(_C
U"HqEuz/)%Id5yRf&;(/ma'uKh4(&0dbXejjiYjkaM3kVi$lla,MFrje=s5F#kFil
U"(?<&StDQ<p6?96/P,e?BTd5<1[+)Md#mcV3,kf9p]^;pPvY2^MldC57(X-'tV7V
U"'8q57)?B8Ed]GPF47C9C;$r3b0Vtl5ggT/W'KZKW]vV?=S7>kS#8RGl:*;%^/[=
U"f^+T4'%znnm<c1<7#GW..Qicq4AZy/OWj(W&-jVqC?4Yfjm)qD+ZY9J;7;%XNA$
U"8<K2oYnHegzSKP4BwrbWTgOH%xuDj=:yG-TqWOHO?jr*)vC(ZrDnn<^4(zl.e)c
U"KaGejoA4O(:Y3ZTOPmY[(AJ1Or'Z54<Ww[wU3e6C^JQx<s^^66W7nM+V'm6KC[X
U"2N>U2n7rxTM9;F(0yXVD'*fXp=1_?R&\QQ5/SIu[>4N:[YQ$EQ>+BwB(Vr#?oce
U"TSdHJAzod-XA\_sm76VGod^0T97EZFgS3,3%Q2Rr\T1fgbU;t;_e.4Xn._I8vyX
U"w9XyhGG&RT5[p/*);uT7'K2%e,iqY4B4ctF1l,]5tB1fP(=C)#1N)3,]'O&Jl<e
U"&Zmq6]OSmIDQ(aX)wYj5fQlUZu6Vd2ads2tHptLAegw0tipxiFusK^V:m#eIPkg
U"?veG26$s1,a5;#882sQ,HMuN0OyjuyUmZ\-((TXd*EJtyo:1iJMarD.an9&DL'?
U"Pa+FuG:$%qD+Gw0:Ta+B&/;Hd\La+sG&[5RMGoUA&2.qCBaq8OeW+(.qoMW00?N
U"9-<+.F/vA21^GqA08QB<G/,0cF]r#JB+%_VsSl#u$2r1TlhQL-,)'JgJg?umO(B
U"RKiGQEWpBGLp^Ys<hKiXD_Klfd*F_0['ukHp[^_s*3sMBQe_m_:42h9%RKshA(k
U"><gY.#b#CI;4b&x2L1C99QwqxI3Ug(hQcK72nO0JDqB<o-RVk6Zs'ZY%:%PN&#T
U"rf2kUGUL+_fv%;%L)uMPbECzF37=HPL?T):/=h=cR5n_sZTB%DoG_#%4^,<46Is
U"1hmvc%DBDdzGd4#W1f*Ont<G,)^pqydkCjBB+gR?D_3\avX_:H['ZDpmtUaLl6]
U"*C+?dQ3TnumBq?p_3\cUAdD[[pGL]*s\R];L/bYBkm3<6eEnJrp;m^q:Uxuo?pk
U":;sZ:ei:izxhIt'v#<PyJ25D5=#s89*u,]M?$Df(&BYJ8Q5Of/TMPcZ&CEsjT3u
U"zBhEC1W..RY<[M-'v:rbMjc;KYFqLujv><')15Js.10lf;1+J&a_nZbH2cXS4P$
U"ckG0t>cv%M=0Gi;Tn&jE_SBX1PAkkGnNcN\frw6(E0nb?Uw?FRAc4xspHER*X6#
U"1l&kCD4j,B*[4Hrc^#N?/iBM0y7+8Dms9f6Gl+VIPxL__\1c9N)Hnj\Q_pF<.H<
U"]6>,%Dh7od9\:vIFC.dgH\y6<E7f0ErW*/%;a+EeZp2k4=S2X/>I_$h9.5T?]v>
U"7SWYWHT=T:4[5DG?jx.>c8/oLUet_gXZO7(RRNp<crb/GOYmK:cVv0CDIUZDNHM
U":ys/0OCUAm_w_PP*u0K%_g3A,f;[-Tg(P4prC'J64d13BGQaLw&)olL.dT:-KE0
U"NNyI(<4Wnx]iyrWVy*&1MGD%d/%L1Qfcj$kAI$hPde1HZe2eRhlcp%Ik&iXX+6E
U"pwfo.R(TEQ;&IT<wgML.i?K*Bb%;=s7r%:gV8(]3_ENIr7%faH^MAF()45zd^bX
U"snQb+bS%a,0/QH=tNp&3WMmzosuxn8f;aD-i9W_,EQx?WkNn2e[BW&n+NV4Lw=J
U"Fu8QVhS'5o$e)NQEJ7h?Ymht(C:v_'#oPfKgTrWf$aKROfavR53YP,c]U:3(CK&
U"sf%9VKG<#*fbHq9;,;#&X>?upPKFX*,]_MCFPe.wDcC^QOEfj>K1CauCgw:rI-%
U"*K6.dtmSai<G,M+,h/y#4=SH66..1%:=)9hVvH'OJc_n/Gcss''q-$\=DMKPAA<
U":T=_A,qG7Qt0[^;c9rUWLrS;&a7R.YgTU)k#$+F:G/(Z;zZceUkx4B1048C[L?9
U"q('a>L&]&c$d17di,.;GF$>)E)2ED#MA>tN)hu$VV)BjEGF=A2xUkOS4pR7E#d8
U"j,#X1845c9S//]vaeLLT*b%k,$/+&G0p0YqaG8T5ksGxPr/#&NmD3dd&iN%Ldd/
U"u+.&NJ_kbPk'nhY'l.0C^T>J^ho&m;WLeJPuv;(SslnD^;RkpJR+&puzJo$D1F>
U"Tg)q^+*U1'61Sp=%Qy0;8KY;7cwZgkc5UyA#o=*2XN)#1&Y;8A]mH/B\R,BOHJ:
U"KuRS[%9WQ)Ay38;VsutM[jR+ZVpbz)qMuO)6i+pClq*RV0X[n<#QHQB3_5'</Fo
U"Mi>QXtcc2J=H8=(Hth)qRFOD0n2C_gk=;1L14blT&Q]xtUB;%MMW]P*^esZB=0v
U"b-<g8E]XwEOE>9O_^9G^4d,<&Q[2][*c27,cM3lzHtZc_Uf4Ri4R#6,&u?FmCHu
U"2QB9sB'#+eF/M2w&5zU\_]ih20f0Kfu_*ZAF'*efzTm3^yWs+Ljb-rkkd7Lg5AQ
U"SOv7'^^B#LRoZS_.eBq<jmF&k#]W?Y8RuAVrP0)73P,^<Y9Ney*?v0Fs),)?$CJ
U"D0aY>m.(o=XtI;a^b>e?$0e0vUY>B9b*<=S&Qj^n)(Ge;lrn2fOUn%$T]5Y?f/_
U"H>5.\W\L__'($(ke.f)&)4;z_.yEPXY7*kK_D:KN(_9h&Qv%BSth.^nD:NP4ZA>
U"#R</NOEFy7DS^NXQLJ<=&a*\vg#=:rn^;uH,(4QUyo&1<drYv)+VbMu-8wabd5x
U"Fk5$o0ch&:_(P]*1-\70;#n^R8SOIPXQGjE:n?2$:i1Fk-X/kXtP_R;4GRgvnSf
U"G#dpj3P^iQRk_Ey+nmJ5(1m*W3+2yG'h[z#tH7LjGrc1][;=#r'rr#nSHV>L;zH
U"6V1RQ-LZim.s+UIQ&M>9Ml.Ds:*M&3+y;6oeB[2\P?e(7;ggW9y8c.rG?qLF8kk
U"BfkQ*VNwMX%h4\Gm647p_)R4XL]25W8$+R%G$:f+'t-*W[F<FusU0:&ccj;E-[=
U"D]O3kdpxeS+sDT+<#U1&u%=ryZJeUJ?awDY$&<.#vI3;'GAgLs+9$F_?1=gCwJ%
U"^gX[lH8%cqRggY;2KW9RgX.-wl#<2bpXnR_C$k<u2DcLHGYjSn[:P4X5gD:Ua\R
U"=\*b8DBwvk70#B<:RF[EC[mdsPMOMUM0m<IK$o??B'i#S]a4LEsR=1b%&H)vhDJ
U"3t/uDrQtL%3^Ucuf+TlYn*&dEr$LLkI>WWCMwq$17B>3&BA'V&#D&Z\C4gWKK?m
U"iCVmax\vM>gX&Q#29D<:_5M'$>nTQ6bQ'EkXm:R*D+<M*(5AGH<SFM0hzjEBERu
U"E\GH=BOS^<rV)M3h^4p#sB:*BYG&TEFd3kSU_pK%o&mwBS+(%+5Ten.W3N*&Qd.
U"F[#(Ld4v>dV4]RXe0J#<KXdp_u,0,dH]-)E;EO9)u,MQ)%8,t8s?kg'v/5-m.?r
U"7ETI.AZEWb^9^%DkZciO&A8<:qUx%Vn6=N>46k;P(Z0KtP&X)aBO,#m&yFjDsr8
U";=QoqZ%h?Z(kV)zDsCZ.c8e<\pEc3s;)Yoc+FWhAaLka%<dmVVh;9I'cq4fK0.r
U"v-_L8PVwenLyN?D4<<j3-]hz9:m\l8<X6TLrfggsLje?dtiF.5L#s+>FE;De9c<
U"7>]&.#;.99lqiPm4d)Qeu=xT1N6T<6rKS8l/\K0^NI;Xtlr6&_WUc:KJtJ(EVJl
U"HAFqF;7CespWqI95BP).f/e]<a<m9CLNN#Z<q<67Gsp^*9SkDzxmZ1?MMKC+hP+
U".u5]fLco+NMyYKNHl%.J::MOu?=P^U<HL;HHT<KA>;l6K(3\_nW2fFoY]mDKcq?
U"D7,=KpcZSu)XWNL1?JEwIW(To?q,=ttqBD9F<fftABfm_D$J:a$*OAu_lgByGZV
U"KHtBgKi,nOOSJa.uSq*naD/8n7'3o_F'TU>V6i73Q(RHZTf5j;:lqcIkhK[^dC4
U"g..Ja.Wk)t>7qyPlW07>#eVSEi0'q\q-PL+wl)^,/=hWDZd'Xe^'uAqaRCA<f54
U"RAZXWbQA.'af<r<MN\DUHZ\7$vd;/%IrvS97n;-r=Yp4+/k[V8\DxjR25EuRVvl
U"p;e=$3%7Xn4X2Fph$(f%$nH_\=IQPZMb.<xRWxg(P-nh9q%TBW?-Nt)ZR3G[BOT
U"Xv3iAn]l&rSEYk;DL?[-GLZS/Oh388$]u).>5n[VV,-.L1)4>(9j'Dc<QrDVU-q
U",4W1gF><n,hJf%M^Hg8WWz_3IU&C_>CbDt^O97_%TMV/JTBfg6n.j;Y_V3W_klU
U"sm$SHi367<;MDfg_'sssYtq\u4gB&wdSMz^J7rlKaXp7X#N.(<,)b6_3<),dt-G
U"b3*5NXIO[U&#V.#0ayZ#f_4:3*qqXdF[7I]fv_nAj$v:AG79iBe7h++-^iCfOxg
U"KsEY9dlVtld6X:41y0b*t*K5b3;M1pKTkqlIl5s[)^0D#sfCrHMM_V\b68oWm,P
U"#P,tB4$/nVn^\gclQ=j:]5)JcX,3qBqC3jf)Zg=5^bk.aK:W%e<-[ymo9u$bqVo
U"$mP9uxNr+;(Dr1_p2QmSlW,saCBu--3XYxk%^HJ]Zs9,[<:o2tnq_qSJ0>35vtL
U"%r\kHT&LL*XG:nd2_-3)E9iWM403thX74oiA>Sor5lW680tDfeb%td2f3e<$I97
U"8Zpl?BLgCdiVA3lK&EV_n2X>?G7+6)+)EG>20SSBA0X_xzyqW3VbUZ'N;&FDL\D
U"iRT(+]&p;-f##X'R[&t:i;vqi=a<5ls9?nfB.Mc^OvT:F;CD<OMZ0(rJ_BPm-gc
U"8M,E6)v>o%#lQtMF-bFk<7qx\5ShDxo61vR'MJ3]*$cxb?\BAj?AY*0,lU3/0V*
U"vV2/?A>TGeQc?bd.Y<TB<.96s-AfMdB3PtEj&?<l][<P/u.cQmGU,fS5s9a=FII
U"s:$R:=0V;^lT\mY])<FX'jhD?i-;/,^)Pa1&Y&4S)ZM.u9PwS1KP>Tr8;1Z2N3g
U"MQ8FPF5:M;&*\^pW2.X72t(1s;p99chOg24.mF?-DP*a7ccGgNetNhRN.Nk_5rt
U"SDFd$R7$ZuY^-/q]-$Dd\Ml%4L*N8<ZTU7T^$[1bKaS?#4Uu^*HJu^+d^jqRU1f
U".WWu6p+necQ<*;=K)'qGPamD0W:m9=D#EMqrxY^,OG7c<5(TQNFiG2ss_#[ts$L
U"[*ah^j4KAl)#+]dBoPUK,uhqZA-#ikmM0++sp(C&*6iOBg'a%&0?qI)r#-KHqMw
U"Dbd<C*_7eAjIY:8^s/x<,r.W2SI+vGdOb?b%hYQ.hD:I'tjbTZibL)Ymd+3,E:$
U"AN<B&yLol5;#O3[eI+<,$MJ$%1Lr5EH4jVyJn1Qh[=KrX,ZOAo2y1)82F\]mq;Z
U"0<5p-%(u>%-r=o%TR&.4ZdD;EplzSNTVtwu^L-i,^D^DhEr-6zn+EM,USOpSi99
U"iBOGWc/L7n35[X;F=_JR+W?<:$)4HU/lU'y9RcD[r#oA+h&^jgZq,58q<bapcI<
U">wpUBc'(08<G2\(1D0)9i3JNiC1Ra77#>K3*(;6(\XsnoUS;jY\UaLc5a_cA;7#
U"jG/)jCk=[fUuaKgB3XHnk1=h^%kkEoZ1p=_58aApc8n*JI'Z,LEu4A5p[J[RCdR
U"]TdiAaZ(C&kns,?t#%l9PcRRJ\C(pIkTX/2I/biRdUIl1Nosf/Tsb_wk'-;zTxH
U";&=xyi#uY-bSAbTKHQU1IXr[pUKXu;E4p=%_$iiR<28rpS9Gh='0%9-^-gmxP2T
U"e?fT7(Nq*,5EI_MKv;ZB_Gt]Wn1/%(f?r43V6*=CeSNgdYfUO-v>A<YVT:TV#gm
U"5:'e(z?riq:;E3cQwe3LSA>>R<Sb1VyQJtR5tp-;cUQI8t&i;u#AT6$wBwY.5PK
U"H>.;imq7Q,4'B<kgJj?j)H=SK&-ONE\o2InLcR])LM9=9P1&x(K4.Xdq-oFWD-]
U"lA[^#NV_ZXto4b0+42gj9_L,Wu<(jn<$Xrt=sC%:<FXIagyy'wDup%()9%%'%-%
U"3bcVQdZP4u'S%%%'w'%%%0%%%%xtqn%itxSM82>tAab3Q.e5TDN=SUU-?=ooD>P
U"lq)rS#=atYvU1(_?)8*peULF[>'&':hY$k5D<90QtX1%G[]e-fDnSPZl]b]bbfK
U":cR^.>:LhjvQs:^#21,9omXEM1bUE-b^xf/5z^aOI#0xk)9dAa$0zt$GtQ\iBKb
U"nZ7gPSdt3GwCELbN;e5;GENhP('W<wltx]=CrWn.6t<AJB'jbGDf0=U4<j]&AP^
U"dubpTcGv+3\)d)wTLRrX/Gbfld=a:?-K%5*kp(mSBrN#'d6ROiG[QI*XEf%4up&
U"%';09%%'%-O%%%c+PWZF'_zB%(%I_%%%0%%%%%%%%%%%E1%OP%%%%%x%tqni%tx
U"Sg%fxup%&';0%9%'%R-%bc&VQZP>4uS%7%%w'%%%0%%%%%%%%%%%IE%OP&MB%%%
U"xtqn%itxS282>u%p*+%%%%%'#%'%A#%%%P%C%%%%%
END SUB
CLOSE:IF S=98AND B&=7945THEN?" :) 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\7945,219);:END SUB
'>>> Page 1 of SOLIDOS.ZIP ends here. Last page. TCHK:98
