DO LOCATE, colorTable(3)  AS INTEGER  ); LOCA DEF SE AS INTEGER COLOR sammy( colorTable( LOOP U " Cent MAXSNAKELEN monitor$ = Center END SUB  and theKeyLocks FO = 1 TO   NumPlay NE 0 RETURN : ?SPACE  snakeBosnakeNumyour sna CurLeveDrawScreInitialigamespee chr$(2   ightratiNibbs is gam for or  plaroun theying to eat ing alls sna mor pois yo = 0 row FO colaren(row END TYP typeers, Spe dif monLock and NEXCLS    Set '  num INTEGERtail) +  SELCASElengield SUPlayer  = 11047 REsnakVAL(live = T sam TYaTypIMERntroSUB tCol) ASdirectio , pres used   80xprog COLEVE = DIM  TO nputEras: ?"itor).ro).co =  'nte= 1, " +Tme retne rowak" thYtoentte asth\of" '50eeaizbenorsi LSEeRgEDna50,r ls E leedResp 1E uXT ck : Cr , J 'CLSK 12, xkeLyp= (TE"I 1  15}$()";E$7IL "ore# i## TK "Ke(2t)wn).<1kes. 15, , "ECT= 2 NTIGTHmy(orsramNST re, H  IniTH (Copyr' (C) Microsoft Corpo(on 1990()le* a+e, one-two.yers(a/d0+e board tr123up n(runn4into w5-other6׉The(the7e8nt9u gain longer (:G: (R;50a?,=).$@AEB'This C DEed,Ff$,Gito CapH, NumHI ScrollH  JT=XT; ىK GL  $(34 1MNO 'Q B a s i c N i b b l 7ePber9u 3up scoM ASQR'M, ىډd(S, JT" ډۉ L L U V ).Wth ݉ Navigate umbers while avoidin =M .1 fXYB , 4)L $ L VA5TE  Z[M [ l =ke becom \!enB L POKE ],"M" ^STOR" 11M'"ze _e(). INPUT  `#d$)$) NT  ' er 1).aabRUE  c dPE6ke using$"I$ >ee TfL Ig% MGOh iL Ff$% R M L LOCATE   (j6ket L Eed   Se &V ).kln .O 'mns  keyword0 cur0.isopscreen  graphice speepof0 alq25rs'initial!8nt is STARTOVEtLuvSHAR 1w80 &GetIxSYSTEM M' KeyFlagi:L EN,M"yeSnaL(num$)m22z#Ff$ =G{startTimstopTime" + CHR$ (R')(WhatToDc2|wu}l~M ' es  n ths ga on  mov2In-0'on. SCi,ster+.BdefiAs snheadWlQa1ulats in tex has somnc4norm19) qpixe scrC sube aatiorealacolto=poin1 ifantsTRUE = N0LeveNEXTwjhCleaLZ)Eurn s~tatemono_2 BaDATA  13, 12,; (rotext) / Xow =? + 1 MOD) * $)  5,  JOGADOR (1  8zNIVEPERT100 UCAS17g469 CON " (Up)Paus(Lef (DoVe sTo  mo ' ' k' g,esruiUShift+F5exit QBasicUAlt, F, Xget helpa BASICV,eWsortheV sF1clickuse butt default data ger faey DEFINT A-Z'User-dEs=Body!sXyer'e=# ! kn ASRsrelor#a reXZin memory 'It sime[de,resting, 'and slly advanced methodsi ope( 'Instead]^[s >", we will be>20)"?23) "?"mimic anln.heck out-_ SET POISTHEREsee how thi* implemd 'feel freecopyse (as well asnee` vARENA stmt` n code ie r)om in your own_dPE@RowMapscntoe^ SsWror]t Each char 2 t it.SISTER is @E'- cs above, + belowonstd = -1dFAOT ‰s,00d- ' Paeters'l' SUBdSAMEf2df3'Global Variabl(1ljh@il,A10)jRANDOMIZEBGOɉkC r$DSeDOm̉snD,FLOOP WHILE StillWTo Dk o Toff qPEEK(])/ &H0 ss/qs SerIF0THEN҉EalsDIFGat6m^ADAa) aH 'e1eW5g/d Dialogs-Fore :15v 7v7, 00 al: D14v ؉14 orsgivenډw,t$)I41 - LEN($2?$;Draws$؉enVIEW PRINTCOLORA1)% j'Print title & messageۉs!"wzPla F..." 3>a arrayR(2)艦,). =w 22 - 1 yeefacilirough$ (ee,yd(ydy, eNum)Gc:9mAND6 <0N=6N-25, 562'ى5"Ie\duringy (YNF (diffljY" ORN"7, 46 175"Monochrome ouido (M ou Cŀ$m O(mon{0ORO"C"jʉbf' Calc systemRt1000:8 ' docompensn=BSpeed = * .5 / (- )9Inirwzes fމsꉫ =A4) j 'Set (ton) lsZborderR =hPt 3, ;Gr 449Pt1809IDisplay idunYBCSCREENzWIDTH 80, 25 "M7""g"0ۉ,"es. "TROLE DEO:5,General((:8)"P - 84W )18 7) + 6T" A : 5S )20 )8) "K 2AE QUALQUER TECLA PARATINUAR"jPLAY "MBT160O1L8CDEDCDL4ECC"Sparkle9l: levell O,cmye) STATICO)Q * 1m tL*ilsDU R1-3SnaR11;Չ\R22;iCurl 1ֈ25:25ֿl (( PrintScore NumPlayers, sammy(1)(.(score, sammy(2).score, sammy(1).lives,$, colorTable(3) NEXT i $0, colorTable(3) Set i,$ CAS$).direction = $ 0 sammy(1).direction = ENDIF , colorTable(3) Set     ( sammy(1).col =   FOR i = 4 TO 4 CA S  ( sammy(1).row =  Set i,( Set i, 0, colorTable(3) 5 sammy(1). LOCA CA  * * * * : sammy(2).row =: sammy(2).col (0, colorTable(3) Set  SpacePause " numberRow, Numbe ammy(2).directiommy(2).direction  ENDIF   COLOR colorTabWHILE INKEY$ <> StillWantsToPlay  arena(row, co " Center sammy(2).co 0, colorTabl direction = , colorTable ammy(2).live APERTE ESPA : sammy(a). = sammy(a). sammy(2).ro sam). nonum = TRUE MAXSNAKELENG PointIsTher sammy(a).sco THEN sammy F END SUB (sammy(a).he Center 1  sammy(1).col = FOR a =  NumPlay EraseS  NumberC erRow = directio colorTab ENDIF CurSpee sammy(a).length sammyBo s number  PLAY "sammy(a)f  the    YtLOOP UNT, acolor COLOR  acolor  LOCATE  ' ?CHR$( Cente kbd$ = :: sa3 -  STR$1 TOnake sam = 2 = 1CASE) + " numbarenrCol": n <> - 1w = SELE THE IF).lis = score = coloEND  FOR NE  SpeDO my() Se).rommy(tartINT(PlayNibb = FALS TO   = ELS 1, ga pllayeBodymy(.colun sist AND sna E   DEE= H OR  }nn: 't  SUf$niti`owrNd&u  areing reenied} d erRe($ realS = 0INKEASpacePau,w.lke res MBO0Nointheadtherrow, col row(, ", "": W, 80PrintailLOCAsamme s)22xs} , i= 2  s(TE ers( ow,(4)vel",  THrow = )  i XT TH  2) re dy(nt  +4 ali50h30<1S= 4hS= 3 Q 2 (7 43 603i(0 2 625 25 (DEF50:,l( = 31: s( 5ji, 6-e((k1( i,7 65= 1.2i(, 2 (, 4 ( kNIVEL" + l(CurLe r(!GmH k ( Ino$ $$0 i $)..1234S "npJCAS  #qJr 9 STEP 2 erRKol/) 0ss1OtLIFHq$uMva( w).xIF s"y xIFE).Ny 23roz2col3co %k 4{0 k  accordingly56|CT r }NO ~ #4ve5707srPl2$Q8L96| $'If0 ki kr 7k~5-e(3#(:m AS snRd =eLk)5er5  NOT;&$ST <,U 6 L E 4 , / kDIM saVaVR EN D 9 RND(1) * Kol = 2=1=4=3=E CHR$(0s W= =JON Le ,omy(w: sEuer =LueWXMRaYk0 TOSE 3  NEX - i i, }3)i{lqE CT  thamales  dife Snakes1e(1)2 rint iZuow), 1kbd$" + 1~et = 1 4T i 23)53 sa1 =Col2 =e= SE" 10ed } k 2~ 625[8lCA~ 4 F\43 3)m E3815, 81[8G53399 21!59 k51141 \E 6/9I> 30i <N Xt2 3 4 J} 0]" 7#9 40]" 8/0^30!J) >" 96ii, 28 Z40:[1:co75:\::K G#^ 13+ 15+60](>Kl|SUB'oles Main routinecontrolseyB o(NumPrs,ed,)l'Iz^mmyL-M^Mtype_1;<=_2;<=e(> pSTARTOVERq)Z1)[\ll'play until finished eOvers'a1?t 1'Currevrsn trytoo @u'bawis not on scl}prDs a2vesmxT160O1>L20CDEDCDL10ECC"Ou'PrivrnowexistsI baO(c 47 + 3Pc 78 + >}yR )Q}_IL$()RownonumsS'l](4Ŀ?RIGHT$(l();coum?}'DelayXFOR a# TOzd:{#X'Gkeyboard input & Change 2 Y3"wW*e(2sS*f(2aA*g(2dD*h(2i"H+e(1i"P+f(1i"K+g(1i"M+h(1pP": ȿse " JOGO PAUSADO1O " BCT T'Movak}3|.41-2ʩ4-S˩B C hits ,pond2}Σy(|.r 1) /|5 xL16>CCCE"6U < L- 30)5U =U +w* 4uV=V+ Q%j6 tWW), 2m : ?" "7pNEXTLEVELqP%X'EN1Tj17"P"Д=-: @6zd < 1zdm0{Cyerso any p, or of oӿ̿t dies.SΖ $ELSE $() MOD :TH XQ( (Կտ`kIF <> 0}%Q? '(aar, ( aewor`5꿇'le(5)/(ۿ@@ۿt(("; k2jb, 1׿ k t$/ $a15/ $ $IFb> 7}N$ؿAA$ k("END k$ cb & E S).$dt Y.ԿS),  UdyBad, aq}N5 ;e =e  D ) =ol *l).ar*l).er al sparkles ?"}N k Bad + U, a). D G1  Morreu! Aperte Espak TEk+!T a8L$5~ k_IL ? ' D TE D erLe6)fr 1+() PIsThere Ple(4 w =om F v 3 < 8 5 0 D NE D EL k?USING " Vidas: # Q ? 6 se C2 JCOLOC1 g"S" Eac prDSOHo ofk FUNCTIbtScoingB#,###,#0n r  Rowva)d of  topFlagDetermin backgroJ ?MID$(a a);ؿkgfy(2).kuted = TRUlivez move thn and eray(a) peed to 'IZ rea'c~rohav flaTHEN FALrinta fielacolpixeColo21930)EPausm for(texp i, jSpar$erR?" akes " CON s r1, "; Setto Getund; ENDr 1J<(=))o(py(1>qrR?q)%s XL32EFGEFDC"&STtK s Uivw@Ay.s'Ozwise,{|,~s|eV).'1>r&?.c':-VTt(r(col(&t Blor/OOP UNTILUCCurSpev S0'et sial valueW )TOXDInY, py(), a.dead,ns inlEerr 7 0e*o s s xs0na[NGSESE y^ e2 _0J B orW erheet$ 8913FklOR j$, $nwEly cool way1V).@E%UpdatoreBreAy0W  a2Sammy!"2J !FX/evel SAMELEVEL,Y s ' next d, until eizZe's e run out.3R).x osE 4<hecks global  arraysee if booleang is set < W!<>\'(]rePses~ ter of xemain](Num, , xs2) IFXer251HI<--JAKE; 2 T39 HSAMMY-->I xs1; e1; K 'tow~umn ondgive`facilitate{ing ' Zes ad d. W != L 'assig`to ab(rc.realRowsdlelf ="+ 1 / 2s'Deduce whez l +'is on top, or bottom6Row = +" e6rb(c. 'ge 'sor 5a,CIF\= r0both points sameDS,\ chr$( "u 7;1f+s 'Since you cannote0 'brightsddetermine best combo;0'use.0IFD ;(Mese~ waits space barbe pressed befocontinu )1 N " + LEFT$ + SPACE$(29), 29) + "":"   i126L' Restor| j456Dt , ().!jNEi4"MCreatesshborder intro sc"#4, 0a" *s:" 'Clear keyboard bufferiWHILE Y"")TO 5,1 'p horizont#$k, 22, 1D $ 6 -k.FOR b21Vertic#s c = (a + b) MOD 5IF c ?"*%*"; % ";T b!aW4;ges if uswantplaye again. ;0 Pl FIM DO JOGO ! ! -12 lJOGA DE NOVO?s(S/N)-14DOmUCASE$(Y$)3QORm"N"#15, =) &0PN&3&4, " "iIFQ'WS7, 0WLSK