'===========================================================================
' Subject: SLIDING PUZZLE/TILE GAME          Date: 07-12-99 (18:45)       
' Author:  Jim Golston                       Code: QB, QBasic, PDS        
' Origin:  www.geocities.com/~qbasic2/     Packet: GAMES.ABC
'===========================================================================
' Sliding puzzle/tile game
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"QSLIDE.ZIP",4^6:Z&=9223:?STRING$(50,177);
U"%up()%9%%%m-%i-ASDAy/lRk&%%%0-%%%/%%%%gn%lonr%SohlW6a*9B<U5UfNw
U"70:aQs3Y(KBHGc5fVaebw]$gT93a;uOb6]J^5#,4C:[U9<M8-JdIBXB.Ghye^x6
U"x;lQWkBrsZMNF)0&:k^a/HaXblj0mT.^fD+CKc$?f,6Bax'(8REWqVoSOm1dNWG
U"\qKUWlBLi+NQ8*o#Z7?ri$HVBq0t*Mhk3iFgnM:qhU0Ct$cjtgg6Y-.MR0*ok1/
U"^T1>JG]RWoQBZtFZh\ou'YY>J:]pC=>Ih]u6+fYJ:]VS<\oQ6BT4^'G:qCSCZoQ
U"ebTYI8Bsw2>JGBTe#S6kp/J:BEp\CJ3G8MDE7*UI,.rQn+awH]eXd/H1mKTb=Hj
U"&3Ub2mljw0hD>a=(qfa>Xpmd,B-Bx\0*=*xN<]Q8W8i<m_r^/Jg_Fpe.hG>*Lk0
U"u/Js9_#e.>hh*Lk3tJUmp]X(=?4v%Xn[d\]BfWsNO44-meWsK*FJ\$q_kf&HHHE
U"huuiakICIr>?3:^&^IrdOLh2,et[74iBr:Irc0Pc$#E>b7up_YW7zUrX>6'x(%u
U"p()%9%%%#-%6[SSD1C't>a%%%%0-%%%/%%%%kn/%y&t%SohlctDyDu99;Zu9Y9i
U"2NgRd711kd7==e,tYwxx8naI:,rmMrg8IoL+\AJd'cFS?Jtl8yKL(-M(4>%%%up
U"()%9%%%R-%)I[cE,5(5FY&%%%0-%%%0%%%%qn%yxtk%ySoh4lfbV+p<e9i#>?iF
U"#1$%R5i)rKv)MWC]hFhDY2ef#EmcO<M]>LB_+09FW]8c5]Jp3[3oB[[u56E;H%h
U"S9rh6fu#5^#kJ8JUrxUtQL^3;8-2<_q7QMoxGNnjGUbBO>UHsobH-YC44m\>C:,
U"=Qlt%oX2DJeFd2NgStDMfGs?k/u[FddCn)34=FJDcqZ;och'7?D?g/ml9D+L+T]
U"swXhFft-x5:RN\#ExjT*lW1fh:.so9A6iI_qdLR0R)wt6JHc$JOef.l5#h:3jyW
U"eXlc0Eh=sTw[uK]\=P,rtOK?4]3mDEdtdah%g>vw78sE.0^k>u*i^byvrVRK,LN
U"^^As9k*618XL$mN\vfzilHlC6#BCmD#aGdB8t\%EOkvYOyWe.pQwxk&nup(%)9%
U"%[%-%:&adERBrcwz[1%%j%\%%/%%%%v%xqni%jSgfOx^**,BT[;kMp[x4(?XX4w
U"Fs).JoA\iG[;Jt\/+]h$c<+,>+i$q;3JNtt/pP9h^18(%h]sPnch[(-kPc%%,]%
U"9KpG+*V#gKmDsB_ZlgsIqhaSNLWnNx0NnFg-3<t&th&P,:l-g4tvB(Bm]ETeKoz
U"LN?($CtG6DTst5Jg,KNO,NkjcV<&OaC?+/Gd1rHuvJG_EdvTlT86Jzh*$/4R*RR
U"A4g5o4rcMjSljUtx5Fx(ov>GC&YwCl#$uV8cj/sH$TQ.Z6-M,56D4<1:_itg4_V
U"0*5=WB<pV8+V3mh%\*T'0BRaBvhjCJaqGl&/rbI64rTqTTuNgoIS=;A-?'LFKU*
U"C'EWT<71Cj7D?=t,T9#dDSAR%/4O_NG?<Y)gotrL>A8>'HgLilDi'<7tlb[Ctc$
U"0ps*vKdE*t%#wPDmR\boq;hF8I%yErCokjJ6h,T$sq)N$fQts_;Cf>_t*u*T8;t
U"v5-Bjy=jPtJLCtf.(nv\T#N4CN^u9Xe:LeT&,hLCy_=SP;HGG$y<pW&I&W3-G=I
U"[Sr*Jd;zaM0^/br)86w:*h5,;?IQe*?v?/Ddi/2qEL0&#vWB$+]%<9XG;$3,auo
U"sWAN32$qwno#_%]*CQ?ABQ[^C+XEghlP^?sNF-M5DIDDBn9#n0lV5V5?+^sRFFw
U"F6?(,[YqIcspo63aIb*44BY*Hf;-e:=t>_iKcXQVF%*hzI6pT?G8.n(zDmKS;*6
U"p\nf3-4Rg4Fhk8X>+ar%)3okVR(z-P5br/[NB+hs]l>OaM/PU\,UVZ4p-<&O;9U
U"]ZJxF&zP((bn.nyV/6ib$X.Y$41itJ6V0:eV;L^<[(Y9))H(MvFH=rG?nIWIcx3
U"cnjfqaDstt3A4r%YnSjAVhPv*]opSH+r_n<]OpaQ86j<f,PWtB0=I/Ykw2RbH3E
U"P3ri;de6#A0$G>%7.\,+.bOF6hAnP4#Lf$R];V#ifC%WwyC>;j_10Q)*>[QH+[D
U"TNf&;6xJCB*Z1pg069f=g4F#+xk&^z0QY8'\g3hJrZw\N8Wf>.i7[KRAj9dxu42
U"#\g9o8b%x?KL02OrB$0h<iR7W1_[ft)+5sCt[G3LASi&8?#8Ac[j'^q&&^,x=Oa
U"Y--0j3'-<jVX-Ft-gsZ+AgRJujakHk*k0bJeLBBE^j+'lIF)R3-fN$t?ZUzTu*u
U"m1*ouO;(&N0+]w+4mwnO=a'+[iQTYVt+sy7;c(+K)Ic'J5]\Fj^$w8JPuEQP#:4
U"d'&;#N/JDt[[t&^QTVBM<uZT8Q0%N%LnRn[1r9Q$l\leZH_#R*eQ$4P9Gm\+.:I
U"mh,ZLl&]ew.qwMk0RQ:cV9<QMAM]k;>9kO[CvFRZTcD^=HH;B(ZgV2D,&;0N9RZ
U"8by3GUh4VRm'xCL#HtiD&<5;:IVMYwe;v'5E-iL?(3L29%jrW-35aTX'N^QgA/I
U"aJLdM(ZESDL5[GLOZ%&7FAe[kfq=0Z8$*fasQ:c7\]AW?R(o&cS[Ar6?[McEQe^
U"v=?X'#v5>3>EzeBfY0Q+Ye)B',AZ(5y=jv-Ic)y.Wi#1De*EsdIMfaI)ebd--&A
U"uFs0zR/dqzEBL/?UCz7(<gN$2RJOM[R,U]Pf(shy5:WTF'^MWDNc)-(lf4%/4:-
U"/4%t/,:i=.&+j9h=K;E70&.O?TituZ\Qr.uIXl:9QXf0A[P:o2<TlMe5.;Vr]lr
U"m=q^wVLNh91^*L^M3#d(dW;M&#/lbz0;:\tJezI^Cw1fLpr1F<[;ADPt$B>OF(8
U"Syr2G-oLPrKRDyvG>=H+b;8Q%#e)a<-=g[WPQ_/:TAE>wl1ZU3bLE/x(HHm3IdQ
U"aYyd:BhCMGsDbb*keiR*8PHYXEOX9Nv#teP'e6yACe<aVYe?9ad[z;*su7XEBp6
U"bcv[Ok<YtcbEfcYT1zd5TCwaK?UOfpr%In/HA&&#xdDs(spyL]#aK-oghLHeS1#
U"XKo2^4OpX-a>'J*vz3-k*dz/6nAnmhd&50E9Lr84X-E8^q7([PH2<.hLvZA_\hB
U"RC6m)Vb6F_emLfiGPwU-?Gr9]FDC]0,FMDK;sUUOW:KFYjEJ9C1_%Or#,IMvjM#
U"*C-SbpkuFuJa*3Yxdp6V6$GM)p/:sQj5Vk::YUjif2e?,a0lLly7H7uUdh53>H3
U"l4/2hODM(DE%9$g7y?7NBr\OJ+saxNL+zDoH]IVSFt+ydb'huNs)k4tW\&((ok3
U"k<Vmih/g3Wub2quKr-z+nTL=2=Y&=Og3Md1#DxaxBn#wMKhTV&rbgi5g)SW*'r)
U"7ZI$$r?jkwt3ikggSH#Nxkre'\KK,PxBNA5yjt#QC;&2HmozZ)XHejp:'A+Y-r-
U"Z:-;wVWq><1hd(FriD<?Jyw=-o%G>v1mdHFTi)l0;TH2ch)2x;<7ci$7uCca:8s
U"[KM/N>Cs.RI:M9FJdc'X%D^&j9v[F+NY8KfNa'jiWGU=.IoU]L.^u;*,:4-oMT>
U"w^[8mTdop+[xh<D?lM=_;T5SN^42X/pU6eZ''4lLt;9A)jKoW1O$[QQBA$;&cm[
U"Q$BUHRLQ$;)&arlWgS$[far..Uer*k2tY49V^du12ZI]0o/JQPsTAk/;u]A3Y4.
U"RURNT?3,iqS;L_e<_+(SOg[^3zE]IX?(dm*O]n0)[V#2\+yC=w-Zw6n)pr2fyV+
U"2\,ysKIG^&RRrnGHNOy^\&BrnVGD%x4C([FQMiPtiJ9GuSq?'Uf#VyjD9Garj?)
U"UHgZ\'Li$iU%EbBr2ZOm2uUf:s+*LwZb0'>bLHo1;8<M1X=<Lw>CKPG\)$e#RKb
U"w>cP1Y9Iz.X>k^']paWCaax&/3EA[s?9[Ls3itpVM>sm5C)EUC&ut_1Y+G;=bhL
U"'ogu^>#QWy-KGGRD'p?xaDw0ksg2e<ET'[rAK0r:GA\AmPQ3#*HX*#(fQ(+jNk6
U"[]L?67]arD;4B6(04qnmr4MQcVnj+i7:d_Oyd+fT\NE/>3K$k#&'2Q[N+oj/NqG
U"?NFOO/#TZ>?ZHeWPe+)MI>pr]<%])?/Xl1X$9aO/1vogb8w[B9FnLHsG:HIR]LT
U"_JsJ1<?DMKXJ[EQy,-;Nlchy(0wA/9;qVOA[sq([ASYzpI,k7;:hu4W4iUvvvZS
U"\/_rkxEoF2dfqgE3<123##qW#EhNWO.lkuG>xss^#kE5kfNB:Wx'%-:ac9X:sfb
U"1enj#\Pqq3OM)MOsH3$g3f[HDwKV-H-8+^\[ouF\/$i)f.oBDFn;$Z^/)LQP:c7
U"Qh]nx4Z=gfPD9/=BB>'#ZkOXDQri)#+8Z->Z+KSIO9KTl^52)_nh_UkH.8*QAxB
U"7p=$RL*fs8<\GXZGM]\MNmr[j]p&cdiM>lwX=d?leT4F(?jPHZb-U,j<vQ70QKp
U"yA(=f2uXc0%(8oCV9rh,p>_*eDo+S]Npp9&Z5j0ZvOfUTh:1m5f9AHmKa<kHEPc
U";()q10kqBPH.:0E_Jp+5Is:a+A[smFT>vq(]w;RoJLt>qBL$RtR3/\'$_C9'].5
U"c4D955?4x]b&]kXE/#%8fDoAUKgnWJA1$K=h:0>aY'I&cq/7+s:[eG+xKi\SN/w
U"0MH2/WOhD5L*l_$.Le'Y$&^%+JEqLfgQMF/.9yVxI]w'MYQZo>Nl.S5p8gGy)3o
U"+;;1v'FdN)UdmUG)S\Mv[N#bBW+Yq+0oNUR4vW0t>_pq9rr*]m<nB-<rV%<dK4e
U"zCn*4Pha&.wn:\\]D#)8vb3:Cs=HmiD.#ESju7b+stu]<ba6<)&h#*Q'j1XU8ZP
U"SEW>A)<0mo5FOPO*='b/KEh:$'iH&*?%yARFja+;>wX#L8'FbQZlVe*rrAM)O]:
U"5uQl^[hc:Gt7sONF&,xt/UF9GQMK#XgE\t2\sgh+q><HY/ej)2*N9Q'hG'[GfK9
U",e)'0?R=%PBMkE5GQbfguuRSQfWGnQAH+,.PekjKMp5HnMt';*<n/q=aGl<N1l0
U"#^u1\%'(F<oIgGYWg+uzr.Kq4;T.C__Z<kAb;nm7Ms^3j2zDL00IF0fQ'Kj;)D/
U"]/tMMQbg'=M1XOwS*Q684DExS2cIA>mjrf]7QCKmdvSZaxPDy1d4Y+iQlor[REi
U"X0&w?2D/&ldTKt.>yZC<7*GClBe5os4bM(Ld63NVN&XJ$WOabY\6lUuXtaW7=px
U",%up()%9%%%#-%/9&SD/+%+/^%%%%0-%%%/%%%%ts%jtsj%Sohl3tJ<G#((0V^(
U"R(<HxZ4M6Q\vd(5oD5Ao45o7#-I16qbN);7Qw#8tlbvDIcCymY(\9-K<?%%%up(
U"%)9%%[%-%Z_9SDi)-LOW%%%%0%-%%/%%%%t#sjy&%tSohslt4*MnPPTW<P:P?Zx
U"),[4==ep,awx-xHMb4oL[Cuamvidd)[K\rYRaSPT8V%X%%u%p()9%%%%-L%0:SR
U"D$tE%5W%%%%0-%%%/%%%%tsj%ymwS[ohltQ4*nPVPT<Pr:PZx'),4=F=e,auwxx
U"H#MbobLrNOu2rPqlkIq^K#(p4K0rbk&%%up(%)9%%#%-%y_:SDb42/%R%%%%0%-
U"%%/%%%%t%sjkt%wSohslt4*MnPPTW<P:P?Zx),R4lbPVtNM^$KrYR'm(++itPsx
U"+hVVoJ^uI'%(%up%()9%%%%-%14;SD0w63s%U%%%%0-%%%/%%%%tsjk(n%Somhl
U"t4N*nPPkT<P:tPZx)%,4==Ke,aM'qD'k*b$n4tCstx-xHMbIo4(IZYlH?%+%up%
U"()9%%%%-%2W;SDopYsk%O%%%%0-%%%/%%%(y&tt%sjSomhlt4N*nPPkT<P:tPZx
U")[,4kb1vIcCg]iP:nMebxSNkbpdq4?s+>W%%%up()%9%%%#-%Y<ASD-[&1/L%%%
U"%0-%%%/%#%%y&.ty&t%SohlZt4*nhPPT<kP:PZ-x),47==e,tawxx'HMbok^Krm
U"[MbIb'Z1%u%p()9%%%%-L%j<SRDPd&%*Q%%%%0-%%%/%%.%y&t%ymwS[ohltQ4*
U"nPVPT<Pr:PZx'),4=F=e,atMqxH#Mbobgr^uX^vIILU(lwV%\%%u%p()9%%%%-O
U"%r<S^Dy$J'MT%%%%0-%%%/%%.%y&t%ktwS[ohltQ4*nPVPT<Pr:PZx'),4=F=e,
U"atMqxHdMbWb\PsDxGpg=tFlbvI=UK<>%%%up%()9%%%%-%3<=SDY;htc%e%%%%0
U"-%%%/%%%(y&tk(n%Somhlt4N*nPPkT<P:YPZx?m,dcxix//)0#nNE%edEe%DEe\
U"=%bsd*18+'Em^vI/cCtl'b6o\o)hDJ1&qV^%%%up%()9%%%%-%3%CSD_X5e=%m%
U"%%%0-%%%/%%%%ktwy%mwSomhlt4N*nPPkT<P:YPZx?m,dcxgd//9(rNEe%dEeD[
U"Ee\MrxNqxL(=iPO%v2cpCtjL,GL\B$a$Cw\rY2b1+E7^7_emU%,%up%()9%%%%-
U"%2$?SDYsl/Q%m%%%%0-%%%/%%%%ymwy&&tSomhlt4N*nPPkT<P:YPZx?m,dcxgd
U"//9(rNEe%dEeD[Ee\M7(Bj&F\FeOBwVo^eC?>s8t(v5EaavI\cC53JPB)][35bE
U"%&%up%()9%%%%-%3d?SDWN;^j%f%%%%0-%%%/%%%%ymwk%twSomhlt4N*nPPkT<
U"P:YPZx?m,dcxFd=lN%EedE%eDEe.\5o>j-ISU#do8uMPGcuOBvOP80ebv1a[#(u
U"t9K<%A%%u%p()9%%%%-I%t#SsDa.[&um%%%%0-%%%/%%%%ymw.kn%S[ohltQ4*n
U"PVPT<Pr:PZx\?,dcKxd//09rNE%edEe%DEe\6MxN1AA,SiSP%v28cCgY-Wmn,:?
U"gQlKbvI?oK2eIhACOa&03%u%p()9%%%%-I%%CSID.Qc&?p%%%%0-%%%/%%%%ymw
U"%tsjS[ohltQ4*nPVPT<Pr:PZx\?,dcZxxx2;^jw%VsNYp7D%b4,Ga(e]s&C3[&m
U"D9[hX%b%+aYFWp^Kr'mMboU4&3P(B'sW[4AbE%&%up%()9%%%%-%1+BSDACWY*%
U"b%%%%0-%%%/%%%%ktwy&&tSomhlt4N*nPPkT<P:YPZx?m,dcxgd//9(rNEe%dEe
U"D[Ee\M7(Bj&F\FeOBwVo^<KrmM7bgb+NoPtV%^%%u%p()9%%%%-L%OBS^DM))%^
U"h%%%%0-%%%/%%%%ktw%tsjS[ohltQ4*nPVPT<Pr:PZx\?,dc9xd=l&NEed%EeDE
U"#e\5oR>-ISBUdo^NKRkMH99Uo?m<xD4kbpoa\)h[V#oa0%3%up%()9%%%%-%1/D
U"SDj]BX<%l%%%%0-%%%/%%%%ktwk%twSomhlt4N*nPPkT<P:YPZx?m,dcxgd//9(
U"rNEe%dEeD[Ee\MrxNqxL(=iPO%v2caCeYW]mj,sFdMBr]mMbeTa+oP)tV^%%%up
U"(%)9%%[%-%K)DSD59b\r_%%%%0%-%%/%%%%k%twkn&%Sohslt4*MnPPTW<P:P-Z
U"xU,\N==]\NUUQm49vx9xdrD$nNkb(viKY(]l2I:2CBMRboL[XCikJ&G(%u%p()9
U"%%%%-L%7ESLDDS'%Bo%%%%0-%%%/%%#%kn%%tsjS[ohltQ4*nPVPT<Pr:PZx.U,
U"N=s=]xxc*#tx.EeNE7ed9r?xxxt-wx&'\C(&s'HMbo22vXo6X-sf.s>tlV8)JoM
U"CEOH?9aZ3%%up(%)9%%[%-%[DESD48,)9l%%%%0%-%%/%%%%y%mwym%wSohXlt4
U"pMnPPTW<P:P6Zx?,=dcxd;//9r&NEed%EeDE7e\M(+Bj&\fFeOwIVo^C]s(Y6[3
U"9bI0wDtl=UV93#Rl,W+C_%%%up()%9%%%#-%wF8SDx4*M)k%%%%0-%%%/%%%%kn
U"&%ymw%SohlQt4pnhPPT<kP:PZBxU,N7==qD%UU1=m2)uxExN=tpl8+bO4ICS/\+
U"tXG)LEF<Ysff.s>tl88?J1s1kIknCeaZ%3%up%()9%%%%-%1sGSD>Y)Hr%c%%%%
U"0-%%%/%%%.kn%k%twSomhlt4MpnPPkT<P:>PZxU(,N=='qD3Ed2)rmaeLdc&VR2
U"s\6(nTZxxxO_P0ebKxuF[QK<_5)/_Dm,I1(%%up()%9%%%I-%4GJSDkU,c;#%%%
U"%0-%%%/%%%%knA%kn%%SohlQt4pnhPPT<PP:P019[Qv[U/k:%M=*H%4%%u%p()9
U"%%%%-L%oeZ:Dm>8)0)%%%%W&%%%/%%%%szr%gjwS%knqrBDf/Odu-SZbLIz3=y5
U"K;d.7EvdkC]Zo_l_,bJQb/8:dP*?j5ORoGcePF?,VuOjL5fjjL5LGY0:>DZu:>/
U"ZSZL^Ri[4CQi[j;%r&k8*Y&kV*CRH%Dup(%)/%%%%%%h)([DR*(_S>%%%%>%%%%
U"/%%%%v%xqni%jSgfLy20;J;E#1M0B82IETADJ=E#BM;834%2/up%()9%%%%-%=Y
U"8gGi^LLS&y'%%&d,%%%/%%%MA403D<4SCMGCTd:rBSUU5UHGtUx)0S+ALEBKpLb
U"I.nOi%nU&\c-6.,>/>+iOI2SNEXd1s'LTV1PRO^EWXd%&GHB2;Q.S7%E<]>wfR/
U"02lxM\3j6I6EA:=N0E%aS?sn\TJ3t:uipwwsC;0xnXD&9LTGqbP'8:zt1_2%ZD.
U"X(^\3vHI0+x/f]GV5i'cY+B'&d+K)(q*6Z59L\SUp:0nYI6V=)f;u:$UAY';/>G
U"*LTcKq=N1hr5h'I<jDX,mq-eEi.GN<R<5wUZfobl;ei0[Zh#MnW[27<Y9+5F/=2
U"QKzm<gf1WUGGGTJ\b7\kcI\BTv,56qK?rmRBPA&0n\?8utm2aXRQAD3bf_fBdVl
U"$]ZQ9Y3,)5h1Qi,2('B[(0:KKbsrcFc$RUxmdYrk/?XgJu<mwX%1N3[$hgul0=)
U"jLXEQ52FgFD-&)_$BMN5'0d#KO?/N5H,Bsc-%j&71Jb'mTq7FJ*IFN1']+.&%V'
U"::EK01'].B&%&0-F=)ZsT+)_7j;OqRqml;6I8J=sIrPUTf?2_N>&JKmmNMB1Np%
U"?50<9YY#tx_)YUqCsC0OR8\/.GFDT/3++Z,\lU;.U:ZP7U#O+J8]p^^biJ62QPz
U"_[KbEFN,Y<%KkR.O]Lj8A)0&suxeh?(h1R#V+##i7F<=No#GF8U>P3Oq=ZXC;l5
U"o4zSsp3V]aJ-_f3TgZ,+HBq-e+M/ItQ4pCX?&G0K?X+Lj[ist7XQ1*v97,$S.1Z
U"l*5J1qS)n(zX/Lbv(SdqI-l.pexjMfXok=q?vfUmD3*.koSb\NrZ[)_J3k$Kdu6
U"^UkOV:svA[4Yw.MY%e(Ud-[Uu0LMsT08P\C_ls-:W(:\lN=MatNu?:K5wa2avj[
U"o>EJw)%up&'%W09%%%%-%6i-SD1AylR&k&%%%0-%%%/%%%%%%%%%%%E%*/P%%%%
U"%gn%lonr%Sohl%up&'%W09%%%%-%16[SD<1Ct>%a%%%%0-%%%/%%%%%%%%%%%E%
U"</P=&%%%kn/%y&t%Sohl%up&'%W09%%%%-%*)IcEF,55F%Y&%%%0-%%%0%%%%%%
U"%%%%%E%*/PM'%%%qn%yxtk%ySoh%lup&%'W09%%%%-4%:ad7ERrc(wz1%+%j\%%
U"%/%%%%%%%%%&%EO%/PT%(%%v%xqni%jSgf%xup&%'W09%%%%-I%/9S%D/++%/^%
U"%%%0-%%%/%%%%%%%%%%%EO%/P'%5%%t%sjts%jSoh%lup&%'W09%%%%-O%Z9SOD
U"i-L%OW%%%%0-%%%/%%%%%%%%%%%Ej%/P2%5%%t#sjy&%tSoh%lup&%'W09%%%%-
U"L%0:SRD$tE%5W%%%%0-%%%/%%%%%%%%%%%E4%/P8%6%%t%sjym%wSoh%lup&%'W
U"09%%%%-L%y:SaDb2/&%R%%%%0-%%%/%%%%%%%%%%%EO%/P<%6%%t%sjkt%wSoh%
U"lup&%'W09%%%%-I%4;SFDw63%sU%%%%0-%%%/%%%%%%%%%%%Ej%/P;%6%%t%sjk
U"n&%Soh%lup&%'W09%%%%-L%W;SaDpYs'kO%%%%0-%%%/%%%%%%%%%%%E4%/P?%7
U"%%y&&tts%jSoh%lup&%'W09%%%%-I%Y<SID-[1%/L%%%%0-%%%/%%%%%%%%%%%E
U"O%/P;%7%%yA&ty&%tSoh%lup&%'W09%%%%-L%j<SRDPd&%*Q%%%%0-%%%/%%%%%
U"%%%%%%Ej%/P4%7%%y&&tym%wSoh%lup&%'W09%%%%-O%r<S^Dy$J'MT%%%%0-%%
U"%/%%%%%%%%%%%E4%/P4%8%%y&&tkt%wSoh%lup&%'W09%%%%-O%<=SpD;ht&ce%
U"%%%0-%%%/%%%%%%%%%%%EO%/P5%8%%y&&tkn&%Soh%lup&%'W09%%%%-O%%CS1D
U"X5e'=m%%%%0-%%%/%%%%%%%%%%%Ej%/PG%8%%k%twym%wSoh%lup&%'W09%%%%-
U"L%$?SpDsl/&Qm%%%%0-%%%/%%%%%%%%%%%E4%/Pc%9%%y#mwy&%tSoh%lup&%'W
U"09%%%%-O%d?SjDN;^&jf%%%%0-%%%/%%%%%%%%%%%Ej%/P'%9%%y%mwkt%wSoh%
U"lup&%'W09%%%%-I%t#SsDa.[&um%%%%0-%%%/%%%%%%%%%%%E4%/P<%:%%y%mwk
U"n&%Soh%lup&%'W09%%%%-I%%CSID.Qc&?p%%%%0-%%%/%%%%%%%%%%%EO%/PV%:
U"%%y%mwts%jSoh%lup&%'W09%%%%-I%+BS(DCWY&*b%%%%0-%%%/%%%%%%%%%%%E
U"j%/Ps%:%%k#twy&%tSoh%lup&%'W09%%%%-L%OBS^DM))%^h%%%%0-%%%/%%%%%
U"%%%%%%EO%/P.%;%%k%twts%jSoh%lup&%'W09%%%%-I%/DSRD]BX'<l%%%%0-%%
U"%/%%%%%%%%%%%Ej%/PC%;%%k%twkt%wSoh%lup&%'W09%%%%-O%KDS7D5b\'r_%
U"%%%0-%%%/%%%%%%%%%%%E4%/P^%<%%k%twkn&%Soh%lup&%'W09%%%%-L%7ESLD
U"DS'%Bo%%%%0-%%%/%%%%%%%%%%%EO%/Pj%<%%k(n%ts%jSoh%lup&%'W09%%%%-
U"O%[ES1D4,)'9l%%%%0-%%%/%%%%%%%%%%%E4%/P2%=%%y%mwym%wSoh%lup&%'W
U"09%%%%-I%wFSaDx4M&)k%%%%0-%%%/%%%%%%%%%%%EO%/PK%=%%k(n%ym%wSoh%
U"lup&%'W09%%%%-I%sGSpDY)H%rc%%%%0-%%%/%%%%%%%%%%%Ej%/Pc%=%%k(n%k
U"t%wSoh%lup&%'W09%%%%-L%4GSLDkUc';#%%%%0-%%%/%%%%%%%%%%%E4%/Pu%>
U"%%k(n%kn&%Soh%lup&%'W09%%%%-L%oeZ:Dm>8)0)%%%%W&%%%/%%%%%%%%%&%E
U"O%/Pb%>%%s%zrgj%wSkn%qup&%'W0/%%%%%I%h([RDR(_%S>%%%%>%%%%/%%%%%
U"%%%%&%E4%xP:%?%%v%xqni%jSgf%yup&%'9%9%%%%-m%Y8gOG^LL*Sy'%(%d,%%
U"%/%%%%%%%%%&%EO%/P%#?%%AM403<J4SCG&Cup*%+%%%%%D%D+%B+%%%MB%%%%%
END SUB
CLOSE:IF S=159AND 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