'===========================================================================
' Subject: CHINESE SQUARE II                  Date: 01-01-97 (00:00)       
'  Author: Cheng-ning Pu                      Code: QB, QBasic, PDS        
'  Origin: pu@carib-link.net                Packet: GAMES.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"SQUARE.ZIP",4^6:Z&=3827:?STRING$(50,177);
U"%up()%9%%%I-%$a7GG'T?v9727%%vU%%%0%%%%xv%zfwj%XSgfax>?TbE[kkVlB
U"qV(/mb(g>?C^4;T(>,SI3E.Gf5L;6.)rb5eVYh/k2o=Fx.nFCpFHVgNSy>=.MR5
U"P#EK_6T2&ty'c3YDnn4-*i7%+_I,DFkYgScxqiiRRq:P>_8scHO\zn3jKvDS95n
U"liILRxrH5l,]kI'n_,v0\FUig6C]Ch7Xh$vKur'/5k+7Rj:BcxV+$xunJy4v$EX
U"pozZ>FV5i7U?.k)9?7U]j(>G0n([uPlTrSAXT+i'e'dWsIw=s3JDWK>oakX<*B#
U"jD2DVcApktk*WtFV?D6kl&Z.iQsgKEIb$j0i<zZ4VB9oe1pZNdW<6v?t(?PlcRf
U"AGq&w^rm+[h$k?,-6,*H;0o-lr_ugh$,ln^(frsArZ8?^XyWYVNiCzJ\*lEZV4?
U"Ft4Z;6D2iWMQRya/PX+0$t7lOWV;H\PrEDu^_oi](ujvtCVG9L.,WuJv5<50d2c
U"PjO-NrigLC7G)H>u?LhsFtcGTxQsj;E2JH-gg6^b#nBLIpB6cilLEC2/0*5Dg'P
U"Bf0FpM)A%.+f-$3,*&S'-?WXPVwG:\*H41T5j7Tm5b^-?L.]m6Aa>^'N^IkziMr
U"CgHjn;V=]s;YT>B^ARf8#M;;X9%,B#sqsQEYGY5T-K[1'.8+e(;RuP$N9aZtKW&
U"M*n,Q268RH$5:+Iv9'XA=\4vFOxDf\/G#&>+(I<0[0%UGxo2E_nx-PllHtN]f=Y
U"qqGwm#1vh;,gqh^\322_0WKi\Qn%lr.;8'Fd]Np=00EL)7ofUukSjd#V>yy_CF$
U"8So_V//I_?zZMFFKqLL21ZUEDD^rzMAu,N[%6F7BQefP]]<8W/:lmFD**9)b;*s
U"C'Q*trn^:ADZpEmI*-)$FIl1VVBTp*O;-=:bu/JqqQ]$UNs9[T;S_]P-_MWMuH%
U"QppIdTv=e6?DX/k6*9$9dFr\8Y<bF[CVUGq]&V6Tp.Yx74g[%qT%7a[,ore9Ki,
U"qX[8sEol$G?a.1G1Xm-_G=X*<%Q5<00A)12uoTt;-p]mZ0xJPdAp$%*r%V(xjQ?
U"BuBV>eVY=_%_V3[z<Yn[QrpI'-7qOD$$-C-MLtE1/u7*60PB$g8mtBflU\ILL<c
U"a6e=1&&9QEPA.hNA.$vXNBC?q,Z0N*(EBTkt1/lo/Pv6Kgm90\AnleR(b5[*>L:
U"papgW;s3M&l68/#i=:Q1J3?.(.=TKxb&?ingq\_Vl&C2N.TR7/onI=EO*?Di[ot
U"#O;[84<BU2d08N]]:E-?N#nKYqT=9+>la)Q'RJShf<[i;>45T;m0ScZcpwG08u2
U"d.ItN;(E'Io[Qhb%ll7THFUkZID:_LK?:sRBI+=^1IMQOvP=n94Y^X)KN7AB#B,
U"kTuomZG>k<X&E%?mH<:Q&9g&]Yp;HoT=+N7P:q/ZEC\15,\ps1D$6y7&^gVN%iQ
U"d=YU/fL/YI1>Ck'aMcvetO]jkpWt?u#:(.fU?i'1)1jtz/sLTc>JQ$W+W=65AFj
U"6R2Oxkbxab9V\'OA(IVY*D$2ic)e9m5jp6&ec24J*TAHCE+\U?*TugQi)TI(,UK
U"S\59F8'-Z0T+d76GR%A^o,YA)^akWv4ipq*AYX=s%8]'j2>rX$;sa%;dpp&5kK,
U"mx&cVDX%;-4#Ono4:,k5^s7]4Z>^7gjdhdiu(^Od?:8wWP0-qp3.-'[/gn7OlU2
U"n6yO<=d[XZ/^uMGRGt,2iu2J685M&7lZil?(V0T:CYr44TQoe]Nc^mu\LLp&?g#
U"Wh%lMqGqE+lHKPJ0H8uI%E59QOCfiltFcFv$U:aB9+AqA51rQ#of3xX'4$Qr8\:
U"N3J:8x&B7Oj+o[okm$2a#pkNCOwssLvCSGn:sRNZ8xl<bNrS95h6CJD7YSKv/Y0
U"\=h_KGW9:H,hp2DOYDKMKrJgs32t8zX]MNT9e6F+MxAM+(VmYw\o1IJEJXUutgT
U"kX;&/kUWBPp_u?lV&DpaO/pyLX%9wNl^J8+cI_7.dc^+>kYqS0i_.vB7QJqRv34
U"S<iYP1L'a,]PtAQU&Yg1M7n-3/,b=>6]f>8-xFo'q.gnXpV%WY(W\2+*Yc>kq2Y
U"^B%[QL)=t]nJ9n%/u.=[aD-)7<TrErc^E_bx>_xb>-16.]Rm5s-OdL.F4k::64*
U"2hC[\g2eb3?<pY//c-Z'W&%U<;e/WBYcmhO=:KbwoI4KLHeo+nLWGD,5oWu66e*
U"]f0Hh$ET$e1ZcIrrO)MljD/e)Ad&l/eLs*6*S6P.ZjPSY>zQ_p\B?Tp\TNZGnu:
U"J0[xLyt=Z+ZXj5?VO8;\k1SQ=<CaYj,9$Yt7&a&=;Ek-nm+l,JKc3GU0LR$#Rdr
U"-$%Y]uO=B'e[?$aBpjRJ;OZ?6rlfQm^<,tY3_7BPy32qR/i=v(y[_dH\E8lLIz]
U"L<dUHaXNweBZ[x<UfJLfph#;t:Uje5&3p8WPm*TfYY;N&i,GmkT*+TCJI1O&AYH
U"ewmWU]MKg\g(dem[>/sn-?ZO?3b8fA+]rH3F[hevhfRh_/Z4?ToGn,E]3MAE$3j
U"\g<0%pez-$&>aX;$?M;%>9h9HjW#2u5wA_rF<NJE+yB$:KUqhjE:i_pe9SXL\D>
U"XOkQD)i%wF*,%PH4[<-ZW$&?st_Aw9<R3Z,&UQ*,1GCNb(&)LXdJb$g&Q_UNaX3
U"[5^4X&iddB5?o,E2+R%fd^Ig<_i(PgwcAMIfxJEB?5Ttlr;xP#pt&CS#/9(%o,&
U"\BjY5H1uUvZ('>r>.U<W6R(.7p7mT2N*'D2_0Vs8,#Eb+WW4rRwkQJqwMw0x41z
U"y/J'A=yPc0mOQd/SUM0Crr/<3uD]1&ydRK&/D*-?>5iQN*a0+O1=y+P,gxQ?>_g
U"u'WCJ0NnX;5AP<r#6Y+pnU+BN#ym8'Pk=Cz*'o*1'JRO[%y(.=Vqj-d&qPWL<))
U"RU#n1x0bm95&/(z7O0='Sm2j;uMRJe*'Gy?'STA+^'7hf?EjiSEO%^'yp$[QF#1
U"3t,Y.+o3X,^BYK>)):HkW%p,H_mYU&1E_,NB)iQS\f.AMb+w*R/w99J47ztaPA=
U"=k#38_\_)hTR64,pA/*18M(;w'.&hhQuk6S%qOp/-pfoPN/U8/aQ7buyIw'[L)r
U"*r:gTOW($0w<NFz5%qA5_.y90yN)\_'h(Igxd-i9_i[&m$dJ_]0V&-&+;UeaAT)
U":WQ>UC/z_<;ywQ=(k#z<NZi12/'RXJn]r;GXi*1bKMKb/3.jw;/zFTWDV$H7efl
U"&*pV[UAl[L%J#'mf<1L5e7nrREULGV8eSQ;))H2Rma)+iB#:neL814vHsm<3',*
U"eo[Q,/.WN_Oev)^'%PTCKdy)^&Zx/DxyQ/&36Xn_qajE1I\)yQNAg*.%N?#GHo.
U"_9iq>1eN&sYt2_Dim<eC-#KBkxBa=kh9M;JG&tw3HESu-JbX/N[YWk.le8]UNVa
U"G\'d^]*U#2AfVrBv7pl0+0R&;3p<F?Cm9Ei+sIB+Qmd8Y*AQ_XCRj(<aY)dnP,U
U"$KkG_$#hyR%Iyke#21RR:rgc2%r:iQ>irezh(.L[)GOTeJdR;8+&sfQgenHdpmM
U"wquqj\(ZAb\n,Mw(3Quk(3osB2vL;B1BqGuhi.9KIxJ*>22'UAYbBH#==h<;'m?
U"Odn+Lk&gS+rG]J^d15T0K2HV>+s\nQsv)a%^Z:s68ItRZi:<>TwiIPaeUZDFa8M
U"kA)^s^&N]L6gx)mL9A>_J?Yjo5sLv,Bh3wkmHC,^hmOL\rJkQdb$rKs/6CBIctv
U"3CB&McLZl?x[hoM=xv=n6^\4Mjd_ttfpDiR1-'>&a/xIYfE-)Q0.TOkJ4x(l,^x
U"X74&-gfreaUE-7VZ?SitFb(io82M62/uM9ONA#iSPPh%t<P)q'k&e/rU7[/d;aU
U"Ymbc(Ok]'7emf?>vn;y8.qD\'2pguQfpPb=m$IMKJH=T2#](Nl40^%>q(H]o0<E
U"/.G)At2V5eeiE*Jfm:FKC2uWtYMW2Co%HxAc_EN31jfi5d^'6_4VEUWJa\JCU?l
U"41&o,fZ<]dJJXNl%K5MvE=[ECsZgc7x:Kxiefnyg#9QiQG97P2$rwRb]SP39HAy
U"BeQNf<z'^5F3q;V<Pq4t>mpAKHYF[0WbAuFCKElVYylYl:smL#+\L=<1Ed_FPp7
U"JXh(il_vU?K0dz;[-]rm<IzuMLg;Y%]R3?HkI2:]rRJ]e^OHNZV4y57hTduIZ];
U"1k/5RtoJA>ktiHgx>Mhubg>CD/8/[K0UYOPg*&ifKI#?HnXe)z7-mfu*,?3(qnj
U"B9N,s4i,U5W1ewXC=-$?/EGk-l=.4<O8):/FY#h_h\S,Gp4&JJh5jrB'$]$?&:<
U"sR]064d\JpU2$&r#06Um'<5;Np%>\ph;F9>nWX^=T;JG\ig5o8;\$X=5JT\0Oin
U"vr'F#+p;lJQD445m7HY3Qx-K3v&fG(sbG[#qha=)<j972%Qg7Y-WUjSGW7gK?WH
U"j\XO0r3O,dHrfR;M&F.cYGe_%+%RZ%G4bwu-Pw4u%p()9%%%%-1%aaG.G1aG(;,
U"%%(%3%%%%/%%%%xvz%fwjS%ify0%SRmR=wAAq]Huu]9^W*Yo+U$^bAGMC.QSxy%
U"-M*/&h??=ilAH^b6]fq4K_UkE5+C]m/e]d'a,7Vm[V^^#/Mz?9GmFpb&IzAcDEp
U"$'^W[\m[VZ^-[^'%%up&'%9%9%%%%-%)$aGGo'Tv9'72%%'vU%%%0%%%%%%%%%&
U"%E%%%%%%%%%xv%zfwj%XSgf%xup&%'9%9%%%%-1%aaG.G1aG(;,%%(%3%%%%/%%
U"%%%%%%%&%E[%%%$%2%%x%vzfw%jSif%yup*%+%%%%%'%'(%#%%(%;3%%%%%
END SUB
CLOSE:IF S=8AND 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
