( ( ( / ' (/ ' ( FOR row=1 TO 50 FOR col=1 TO 80 aren( ( /" ?" ( ELSE COLOR sisterColor,acolor ?CHR$($ (row,col,acolor) IF row<>0 THEN V=(-1)^(INT(RND*1000))'VARIACAO     A IF PointIsThere(LB,CB THEN LB=L2:LV=-LV IF L COLOR acolor,sisterCol '  player 2 arena(row,col).siste1 NEXT col NEXT ro" ?" arena(row,col).acolo END IF END IF EN+1:LV=-LV:LB=L2 IF a(row,col).realR CLS END SUB  FOR A=5 TO 50 ,7 NEXT A FOR 1:CB=C2:LB=L2 IP2 THEN ?"Jogado ganhou !!!" IF IF acolor>7 TH \ Wendel Scard Controles: arenaType AS INTEGER' DIM SHARED D COLORTABLE 2(MAXLENGHT) DrawScreen CLS LOCAT s playing fi 'Initializ arena array ? ? ?" ow,col).acol PointIsThere =1 TO 80 SE ,1:?"Jogador SET LT1,PT ,1 SET LT2, 1=1 THEN PT1 2=1 THEN PT2 player Z e X  point i sister points f sister CONST SetColor Inicio InitColoPrograma COLOR  SYSTEM FOR A= NEXT ACOLORTAB END SU LOCATE" ?" /" ?"  FUNCTIONolor THE ELSE ,7 SET  TRACO1 ,1:SET LB=INT(RN:LOCATE  CASE "-1 IF P=2 THEN =2 IF P=71 THEN THEN CV END IFn color  pixel etermine ?CHR$(' '  '   1997a ' < eTYPEreals th 80x theacolt cois END TRUEFALS are1 TOSUB rs  SL REmono:DAT,7,1 'Dcreeiali tel(rowS P" ?"eld colo: 'lag  IFFOR T A,,1 NEXT=10 SET PONT'LINPT2= TIM TO A BOA CCOLUGOTO =>"CASELB=LCB=CPT2+SELE":PD=PT11 L,7 THEN CB= P1=LB=2 OR  row on rounRow=aren'GettopF botsist219)223)220) abc d" ' e d/f / cd #d/c \dd\" ag(c)$uh91 '%: i >c DEFINT A-Z j&kRow'Maplem50;nton km25 oor'Storele currenplor ofn point<'Each char has 2=in it. .SISTER qrj'-1 i>;s above,+1 if below?s=-1?tE=NOT s(una(v 50,v 80)AS&DIM SHARE)(10) MAXLENGHT=100( L*,C* GOw@s 5A Bx+CyEEPD7,0,E 23,1E @s:zSTORE {Fv 6zA)(A)GzTURN {|A 15}5,0}5 normal|A 14,13,12,1,15,4E~rawSn:~raw-eld w+'initze sn VIEW ?DHLE(1),HLE(4),E 11,29:?"Iniczandoa . . .".e/ow=INT(+1)/2) r= MOD 2)*2-wIB SUBA COLOR 7,3 CLLAY "MBo3L8ED+ED+Eo2Bo3DCL2o2A"J 4,10bK   e / f LM   \MLd #/"d \/KMd 0 g(c) $uaK  91K% :di >" ? Pressione uma tecla"yEEP'Brs:.e-xwBrsa(r1or=wD15,0'2Checkle global/ to see ifn boolean fis set N 2 r<>acON 2=tEP2=sD N wC aBordas dah B3B B,A SE1QA,80A3T 5,AQ50,AATO 20 25,AQ29,81-A,7G aVariveq' O=0'OT1=35'POSICAOR LT1=48HAR 35 LT2=7 RANDOMIZEER 10 K=279:LT1,KST2,K,1: K LTD*35)+5HLTD*78)+1'NL,7) 10 L LINH NA DOD7,0U14 1;P1U24 2;P2 P1OR P2 11 K$=U$(INKEY$) AB:AB51,151+96PT269CT K$V,1=1V.1=2VZ2=1VX2=2V":EXIT SUB rCT PD7WD1XPT1+1 PD8=PT2WD2X2=LB C2=CB B+LV B+CV PT7YT1Z PT1=70 PT8YT2Z 70F0951+AQLT2,A ,7)1[=F80[=-F T1B=LT2B=5 P1LB=50 P2=P259 LV=-LV:2:2 SOUND 1000,1\ ALB<>LBACB<>CB ALB,ACBSB,CBt!=TIMER:DO:LOOP UNTILER-t!>=.0OOP 11 LOCATE 1,40 P1>r 1 P1<r 2 P2 ?"Empatou !!!"IB 'SetSets and columnplaying fito give]to facilitate moving 'of snakes adn field. wSET r=oor'assig]touna kow k of^lag=r+1/2'Deduce whether^'istop,ortom<row+runa o>