* * * * )<>0 OR PointIsThere FOR i=3 TO 17 Set1 IF PointIsThe FOR i=1 TO 20 arena(row,col). =INT(RND*3)- ,0 END IF PointIsThere StillWantsTo AS INTEGER () DECLARE Record(i).Po NEXT END DisplayScore 1 ELSE Set Set 53-lh,chKingPong COLOR sisterCo ? CHR$FUNCTION(row,col,Record(END SELE NEXT )<>0 THE; LOCAT Center,0 Set cv,15:Se END I END IF LOCATE:? USING END SUInitiali IF pl FORRAND AS  FO row=1 T col80 aren LO ELSlor,acolCASEPUT #1,i NElh,cSUB spd!ConvSpeeLeveCent(rowtextEND  IF sist6,30+i,1,81- lv=Record(iNomePlay15,0 CLreal CHR ch,0 ,15: THEChanNEXTDECLTIMEplaying B 'ow,c WHI vl= SELECSet parkE INDrawColoEXIT-1  scrl=alMusi:IF  AND OR Pts=INT(,c Ponare ' colv++1xVenW ) Yrscl1PEZpe[worer 0 na 5 2ce ENosEa 2;a,os=XT#0B R  l2E 1t Ce$owForbrx 0oetIF JE E &+iSE-1' e(lvNvcv-1h*chN lNtccw=avcvlvl=p=1p=/nc-5 w25=*N11QENtolaror);(220SY$WENDa$a,80x ( OPEN ".HSC"& 'OM(#1 L()R*+O 50)R,+O -.( vl1 vc1/OP( 0E12or($3 re(  ) 0 45i)6XT (53-78Set,2or)  Pla 9=:!/;d < 16+ 3-r,cv(CT aco1l8=er>,?$ @TYPABe6XT,6XT*CD4CASEcvN F2o"E 23-b,1 ? 8 GH).I= nt IF  JKL 1,"King ntosa).MR  C+i16 3N$(0)+"Et lvNO=ch lh,PQ=(l,F Apl=RN Sce=ChaT/OP UNTILF  A2or>7 TH! b,-? UARE 8 J  DIM SHARED t!=VR FOR i!+O E,10 6 ,2" " ;#B s WXfi  11, '$z .a array #Y Zol).2 [LE\0 ]et l,c,7 7hD5 ]^T CAS CT  ,t l ,cvl Q_7  IF*<>0 TH S`lePause WHILaKE al s`les " 1bScre UARE$Initc .aTy MRo ;d=VR-t!CLOSE #1Jogador$!RN FGrd(jd&=0RN INPUT$(12)R i _i,e_ '=efeen #cv,15 S Sce0PSet c) Aag:c=a<>0RN:hc vc=-vc:c'%=15RNiABS()>1RN=15j 0RN kpc=1lPts+1%mRND*=11RN)R wl+5 Awn,or * of  Beretermine ? MID$(nnoohBox(2%p TY2B vField Iqtloba r1 TO0)AS9S<;:pixefct!T IF=0 T0 DOL ? Xqgrs  Recorde:? "OR j TO =Pts####ente...":k$=LOOP SUc2,c),jp Se? on given ro*8:s 'iSsPrinield> MODdt for Bo,50,ttntroW l= vc==20 Fui_EwinD=1 dly!R CA3 " ":dl=:dc=us+s-17P pc=15,1\-vl:IF pgdl jkR wcwl,wPts\ v=xlvcvl,x the to  flaroun=r'Get reatopF botc(219(223 4w56 xy4Xzez64{7|%,c1%,l%) x y%() DEFINT A-Z}~8 8 E}(STRING*5osE 'Gl Variables9(0, 8~\eld9 ,Pts,,l,d,!]16 'l/s =1000:;:!=/(^) 'OMIZE VR w=52 LOF(1)HEN""= GET 5\i)_S"K" ? IN4" :",` Y5 rep= !S" -s",3N"<"66";Pts>#b=19i STEPec+1)=cy ` d#eda i+2>##)";i<:?oH).65" "0";#;fCr 23,"Pressione alguma teclagy[LE reph7,0S=5i= _ SYSTEM|,c1,l2,)i=ljc1,cjfF=c1+ c2kl1t?SUBlr:lrs w )a,41-LEN($)/2$@7hK:LOCAT> :0 s:##";Pts;@'wŒbAwnitializem VIEW ?!Čtitle & message"!"B"XzJFD=m+1)/2yr= 2)*2-1Ez:Aelloza(r=0Set(turn on)lsʌfeen 3,180,7nBc SOUND 0,0:PLAY "Mbo4l12cf"E5Maiutine thals game ό526:c=40GORH s26-s\2 cv=5 lh=7O=40-s\iO sk, I֌ 53-Il0p=5]15 l==1%<>aN a=׌S i,3q 12 114f 3 i,5q 34 3,30,14?S^TrJaKEY$00'H"ތP"1'K"ߌM":dc܌N$(27):d DOK lv+dldllvlv+L lvMv+s(+s-L Mv-1(-1ch=ch+dcdch)+Oh+s+,+sh)-Oh-1+,-1al=l:ac=cl+vl c=c+vc ct=0t al,acp-sc<>cpl-asl<>P(al,c)p 0 7,1,14 plu猬vu c:vxy+dczvc{-dc pcy+dlzvl{-' 'l|vcevc=dc '|vlex=0} c {.15~5y 4~414=( 4)+1:4)i2)=0e+1~1 2=lll>3l<50bO=ccc>1c<8}P(c) c,0r.7 OR77e-1KGANDHA>p=+(-lyٌ.9]d+4 l\25r l>}^>5:DO xl=37)+8 xc=69)+6-1=xl=xcv(P(c)=0) NOT vwl=xl+2:df0 vc,,,1 >20 ;:0 <=0%@SUYPChecks glDsee if booleang is set  P=rESetSets anlumnf facilitate moving 'of snakes ad f. r='assignll g=r+1/2'Deduce whether lstop,ortomRow=row+rna(R'D 's,oralRZol =N'Ifh points sameh,'chr$)""); gN'Since you cannot have2EN'bright backgds'd besmbo'to use.);r 2EN);ERCreatessh im Rh4a$="* "<>"":'Clear keyboard buffer=""a=a 1,1'print horizontT,);2,1 ,6-);b=221'VerticT c=(a+b)MOD 5 c=13 "* "*"; 3 " ; b a nB yhB" ," k$="mU2Joga novam ? U3 (Sim ou Nao) U4,""U$(g)): UNTIL S"N" =(S")nB