( THEN COLOR 15,1 ELSE COLOR 7,1 LOCATE (l MOD 2 STEP 2 IF sl>0 AND sl<=il THEN (c MOD 2 STEP 2 IF sc>0 AND sc<=ic THEN ( RESTORE Ordem tn=0 FOR i=1 TO 4 READ( tl,tc tn=tn-(Tela(sl+tl,sc+tc)<>32) N(nc=INT(RND*ic)+1 LOOP UNTIL Tela(nl,nc) =32 AND((nl MOD 2)XOR(nc MOD 2)) END IF NEXT END IF NEXT IF w THEN tn=tn+1 ELSEc+tc NEXT IF tn=3 THEN END IF NEXT NEXT IF DO:INPUT "Quantas as de pontos (3-12)"1 IF TotClick=0 THEl=2 TO il STEP 2 FOc=2 TO ic STEP 2 IF DO nl=INT(RND*il) FOR l=1 TO il  FOR c=1 TO ic $="(Jogador)" ? \ \:###";1 CASE CHR$(0)+ CASE CHR$(0)+" venceu !"; ELS SUB Analisar :LOOP UNTIL NEXT NEXT COLOR 7,1 1 TotClick= END IF IF ,25:?USING " SELECT CAS END SELECT CASE CHR$( Tela(kl,kc)= TotClick-1 END IF LO iter=MaxIter Tela(jl,jc)= Tela(alfa,be>2 AND TTela(il,l MOD 2+c MOD 2= THEN Tela(l,c)= DO:INP=1 OR nj IF nj=$="(PC)" ELSE  END IF WIDTH  LOCATE RefresAND NOT  COLOR kl MOD 2kc MOD 2x=196 Ckc:?CHR$",CHR$(0=0 THEN  THEN F FOR sl FOR sc=EXT IF )THEN ?INPUT$(1TotClickAuxTela( MaxIter tl,tc EXIT SUB1 THEN  MOD 2 T=1 TO il=1 TO ic-1 kTot IF ctdTIME CLTlinTcol-1 ASE  DIp(2)9 ELntosogad=2 Onj=00 THAutoVez=tit1tit21 TH ELS1 OR"; :kc= IF  THELOCATelap(1)EXIT IF(Vez(kl,x=17kl=kINKEGOTO-1:IF kll=il+1:I kl=F kcc=icAND  Click=-lag==0  TO  ?"A$=" OR -1,0 FOl,ncnl+t+tc)<>32testiter+1 cmin MODalfaFOR beta Au NEl,vcvl+t=ctdkTotXT jvDECLARE () 2 CLEAR RANDOMIZE PR DEFINT A-ZQS linh ;RR(lin<13 colun ;SS(col<13 il=2*R-1:ic=2*STOPTION BU1VM )ic),WVM Aux)ic)IF *+2,-24XSE Te-32.UT "QuaY jZores (1-2)";njnj/[R \0]EN \:^=-1:_1 `1:a$=`$2`"Quem come‡a :"0bEN a1cE a"(1) O (JZor) ou (2) X ";a$.UT Vez_d _23440 CLS5 1,26:?"Jogo dos poYekl=1f2*R*S-R-S6h=TDOgRefreshhN6h=0 iTE l,1 ?CHR$(j(l,c)); _12O`$;k; g_23Xa$;W; t!=PR:DOPR-t!>=. N l DOmn/=2)7^hN80,7E 2*(9)+: CU0:x=jokc) CU1:p9 CU2:;U3:x=249 ax=SCREENokc):aql:akc=kc5 kl,<(x); 1 k$=rY$E k$ CU"":s "G=)+"H":qltu>kvO=)+"P":qlwu>ilhNx"S=)+"K"fkcty>kzQ=)+"M"fkcwy>ichN kc=1!27):l DO!13)," " g"32 {k*k+bEN|}1 2Analisar g:hN pXSE ;li}1|ck?~-16h=-#Click"x@=kl-9€kl+kAkc-:€kc+kBtn=4,la(sl,sc)=70+Vez*9:F~0:pn)=pn)+1: gFlaghN _3-Vez2COLOR 7,1:iTE akl,a<(ax);$OP87, N5 5,25 gk>p(2C"OEIF W>p(1C"XEEmpate !";3$CATE 25,1:?"Pressione alguma tecla...eWHILE rY$<>"":WEND A$=D)48087,0QSContinua [S/N] ? eDO:A$=UCASE$(D))‚S"ƒ‚N" ?A$:BEEP g‚S"hN 2 ? SYSTEM Ordem:DATA„,1,0,0,„,1  SHARED j(),il,ic,kl,kc,E,F) gE>4]ENG=80cEG=2*E…R nR n j(n†)=32hN Hw=j(‡†ˆ‰ pl=‡l:pc=n xplfpc:IcE IF tn<2hN c2=c2+1-(nl[R nv-d nc[R nz-1) c2>JDO+1: Š=-1@=nl-nlKO nl+nAnc-ncKO nc+nBtn=2hN Š=0 ‹=‹ŒLOOP UNTIL Šƒ%(% 7Š)OR c2<=Jkl=0f0 =9999…R jlL…R jcMm((jlŽ 2)XOR(jcŽ 2)){&32?OR L:‘M’x'ta)='ta)‰“XT ‘,’x&N=#ctd5 vR v NOT Fv”)THEN Hw=F•”ˆ wl=•l:wc=v ctd–+1O> s 3 Fwl,wc)=N=—Ts 53 ctd<hN –:kl=jlfjcO<2ƒ—>s 43 3 NE˜c“˜l 4 Iu>]EN IŒ3 kl=nlfnc END SUB