1: PRINT SPACE$(80); ColorTable( AS INTEGER : PRINT  LOCATE CenterOP WHILE COLOR ColorTab) DECLA :"; : D$ = INKEY$:  PRIINPUOP U, diicul DI" DO:  Co) =NumP= 1 Key D sna PRINT NT "  CONSCASE , row co, 2 = ante d E it =  TO    O le( T up/0ff2OR,7=TI@Dn(sHG 1LIFd(PN4XTRT\a&ena "borgHe 17layTO    AS $ """Ok"; : BEEP 1 ,   LO S, 15:(T$(1)): LONit)   ,4) ffty   8,  RE S MAXSNAKELEN M SHARED N) ?  "r( (T USPACE$(3 LocksEF SEkeBo,keNFUNCTION luminosD SUB Nibbles2DrawScre "VerTetravessa= "S" OR P/ !T "#Sp, mo( F RE NE $ FO%l($acol&0""  STR " END TYPTYPEkdowkrigklefSUB nake'0 ""&2 1: tail  THE CLSLOCA) ASW(VWXINTEsqu)e o" *Naren LO ou nito ) =ogad+ direTime#,GetIter texttCol%, corelive%b1-$,.IFdiff S), borgameL= (1  =#"Xts$%/ZNY\um]sext^rsDt Qoeo ssrese +0thor'1daelr=v/1edwtyorx0z7,0N SEal{ 1( 15"r~de"Mnco314"pcaW421=.NT31 ? 2EC34R ).r$) Llf!4"1ater"ddfcT55Vtamoarterseed7, 1$:%, RE INGP/ () it)TE 8, UBUB sToPlaGTHTURSTO).npuradsDk 0 t0 ( 6%7% %867 8$19 a63AD a)495506R780 (8O 435); (1:((2:$tє= 9%;Ҕ:or%< 0;<+=$(38, " 5>U?$> 7?cima  ABE C @EhFtGEraseSH A:BI J;le(C1K"D= EMum6,  " 9K: NNT >O LO k<  scoF  QG7G5 21:NNH43: T ,7, 3) ($I,ES IS StillJ colU VWGERK $ ku 0 CLB3"F3, "EXmaYco!ZCor( [" SL9;sHANum (S/f>"N"#$]NTIL VA$) >^AND VAL(_@Eh?eXrda Ft DECLAӔG y$ JRecon  , %le M IF mo`r$ S= 'melhNJONDilogo ";C "( 1 єc=c Dc= )rs , "A* f$ + O: k,baixo,di efTIME P1`Cenh(, i$) Inij)kslkms$Oesasn nmeros. ' 'T keyworQBoQtyp\aTyprealRow E-1- !T LEVEL =  o 80p@pFtpEh GOGSejorOqrsYSTEMFlagsPOKE 104(o"Azu't"Ciaa"BZOpc( H) +J;6R i  A IF %.kPN it."3N: DATA 1 2INuda$ #vspeesp VSetIntr DEXAePauLeve (te 'Wa srigh Cortion um jogo para teando%mu(huros maivocontos 'vel Uque ,pre theIC headlengVER m:[ TRUE, FAw10NEXTxTu+SStarClea`CRt THEN GOT Sp)if]Rest= "Pmono*w"Cnorm80- Opct" O3XT ait =oN, " SELy1,15,row,i1z9 + 1 MOD) * 6y(5z= VAborditSeelocxA 100=Nov=Exp$) <L(dfr7 ste) roworsfig ' Bo%{|Yr&M}C|B~%[CLA'ANY%(et SUB% Sparkl}l (WhatToDOsammy֔(pac&PrintSl (_1_2`1`2%PointIsThere% )y% (% ()Q B i cVN i b b l e s 2Copy(C) WendelSoftpora 1999 a aou dois jb. Movam sucs ao redor dlnterd enqo evitam baemm_outrcs. sd e,mais p ganha eoruanra fica. possa*r asedescrnam la,mas no as aparecerem no meiorun this v Shift+F5exit QBasic Alt,A,Rget help on a BASICf,move cursor tof and pF1 or click mouse button.FA-Z$DYNAMC gy *h, * dcWGsrelor,aij,sister+B-lSNOT-00mSTARTOVERl SAMEn2mn3E L50,o)ieE CurlF(10),$,f.p1p1q1rt1.p2p2q2rt2$ RANDOMIZE TIMt:sto Pts r$susGSE IF tC ,, ,f$ Eʔ)ysRt/Sy = PEEK(1047 &H0 R y us:H1͔H1 Q2IMҔI*SMӔ6I*r(0) ret|1}l(2(3n|4J|5agent6arrom(7|8) inz9}l310311n2J3"Ros1Amarel|15o!1K 1(2K 2(3(Fund5Lo)(6L (fundo)"ה͔ٔL1 ait3)5 "1 19 i;<+ 8 2 ") +1)M2K:2)57"M51"";5)F(6)4ޔN5 AbcN6ޔ" 67 - 8 * (i = , 0{ 3 + i,(i) + ":" +i) it 1T ? OY$upO-P0 = 6downO+P7lef --15 +16I", CHR$(13): EXIT DO":1唸TOP ERASE,5,7,7,0蔠4,13,12,14M $STATG~[ 41 - LEN($) /$;6 GVIEW1){ a!"Inicializ CampoYJogo..."7j= INT() / 27sis= 22 - 1 " Xhe'gy)c 9b8 - c U0 STEP -1M8 +-- b)K Set┼col5 b c6{ (/S 딈s Jb (1-2)O:QL>LQ^ORQ=; Cen6Rrs9a+= "N"a$; 7Rri proprio9 LSl:$;"V.) o"100tĔ;L(<0L(d$):100 -2"Ni 8) o "8t Ĕ;c<= 8 c$) 1Aumenta a vidade durante o (S=Sdif:$;6,"Definir teclas:";11ȔU 1>1ɔ 1?t1@1A1#qQ= 222ȔU 2>2˔ 2?t2@2A2#  172res: P&B,orido, novo (P,C=r L INSTR("PCN"Yr$;WRif0: i#opWR= * .5 / (stop$, ColorTable(3) NEXT i  sammy(1).direction0, ColorTable(3)  ColorTable(3) sammy(2).row , ColorTable NumPlays, sammy sammy(2 sammy(1 sammy(a" Cente  Set FOR i =* *   NumberCo).direct ColorTaPointIsTsammy(a) s END IF COLOR 4) core(1).).li AND$ =  THE i, WHIINKE  ).coerRoammy 1:  ENSUB row, colLECT CASirection=  SeColoLeve LOCnumb CAlive" + Playnonu acolor sistnter PR = 1FUNC = rowcoll =  +  = samNEX, " I = j   Spant= = ( 109sej !(4=dyyna sioCerNF(THKkem =  sPSP UNltS  myTepeE mw6 W/LOY$ac_ "e cNT4D > sT)j).s LE  l   ).  = her s o,lorTIOINT,  S|F 5# - st#)67R =o(0( (( PrintSer s(,( , ve $ $ borda!"S""N ) r  ( # 2  =# 6" $%Y$ <> "": WEND , & 4 TO "'   )  = ( (: (l =le(3)0(3))w, l*(2io +IF ),D -SUB(4) arena(./ : ).d 0  SE01 : =  23 =bl MAXSNAKELENG  r 1 ble( .sc i45 1E6LOOP UNTIL e 777 888 (.he , *'9:rTabSpacePauCur;l EraseS*()*Bo SE k).length s*(&1 ).a? ) AS snaves   @CHR,D SEAPERTE E=erNumAcol,playerDiBmCD EerCCF 10, kbd!s*Bod, 1GI aH TING Jsamm )ae 50.K2.Lrow &M+t i,( i'et@STR$)N are(numkbd$$: In <>righ  H"adorco.hea sa= TRUE  TO O0( P0 difficu K CeFPLAYTA Q 53 END  - 1starCurSJ=> Q FO 0 4RR;CASEP ORNSmy(sisrRoPRINT1,"a ter UpL(2(egMBO1eelUEkERlELMCTn11;UE T tVN Wt > 18ELSEAvrsede(2DVN itSe "wxowyol",U  real COT ); V%Xa%w &l 4= =  / 2Ws]reSF, " " !11./text* FALtail-aLCHR$, 80WYy(a12" E< 3$i$ 5 (jk5:  ( 25M50:5).c( i s(6m= 7:43n Z60 20[3\ (oo30ps(, 67q] r Seq 30, ( s40, 8(s5(tu uZ65 15[2\ 49 STEP 3 7(, 7^ "NIVELvw(:x_(2$`l a)) ;nake<,b( nkn CA, i 9, iczb)> ?w, @"E {Aup2d}Bion3A~t1e}#row$ro#col$co,) +IFfsNgdngen % JogDkE&4h&1h'`)%t GrH :)dmmIrs"EH J )'e(4(i 12jL= 5korek?wl NOT)AdownkAleftMD s* *N$ 1OLE 67t m6rom6co 5( +  nA Q R BmoE @o 4pm O *q,o 49n Set,rNibbles2as cobra nmerosN (Right)s " (WhatTt(FRTOVTLEV:EBuJ T IF t i,8u DIM sastR: tCvedFALSERND(1) *eR= 4S9SwU + eO4ntro  a s3 um  pars. a te comuY maivocontoa coque rPPaustLeftx (DT160CDEDECC"typexo0 TOuys i +21- 1,Xe, diF) ANf$ =Body12 DOtzz), 1 "V "jogou ]$(2ownCDL Sy(1y(2ionE 3SE  23Set 200, mmy) 1 =l O"vesberR aT R TO^_ _ 85 T6 I SCREENWIDTH 80, 25`15,CLSa Q B i cN i b b l e s 2"`7a 6, "Copy~t (C) WendelSoft Corpora 19998b oadois eMovam sucs9ao redor dlntandoerd enqo evitam baem"amuros outrcQosd e,s pJ1 ganha eorubra fica. possvel atravessar asedeJ2crnam la, mas no as aparecerem no meio.13Coles :K5 Geral- 1 - 2K6'7 )817-a4W 818'()7" 6"f) ADf K9'5S 820'7) 2Pressione qualquer teclantinuar..."L84parkl{hDOij)TICE hDO)99m +:.:.2;Init:<m14o30 4: o32=2 6N 25,|=1 4-40 3p- iq 24N 3815, 81 -|E 5=1339Oi, 21, 59q57O1141, i,r-60^IF i > 30i < 70,sri .7, .80 40ȱ- u>-4u p- i.9=647OitiPw0:?15 Q75:R5ps5,, 3 i 55 2 ={b (,fqyff$)S1@)(ul@2)lN"A B(BCD2e(1)n2CD2i)PwQl2T2 =Rz = gameOver{) TVW X Xed{Yg>L2010Xǽ E| 47 + 3Y| 78e} +.er/FebFe(~Row =.RowZ{}RS1),SRIGHT$(wcount#z:a# {~!" 2*G" 1*H"Z#" 3*[!$ 2+G$ 1+H$Z#$ 3+ E "p"":c " JOGO PAUSADO-nAO "": GOTO fim[v<y(ao 1-3= 3= 42+3=i-174+802[E(j)Y.NO0L16>CCCE"I < A- (8\y - 2))naD =Ir\yrY~}r num0), 2 l: "i)Y)?0WP"zve((0(Uj,M)l_(2([> 7p\, E(\]^GI(}R+5)!(6)( $Y((117( C(1228( DO kbd(U$(~)/`"S( Cear"ra(1 t " $ (^) m<> 0 by3ad, a";> 23 - bFORdOfe \15avSTRING$(LEN($), s(aI=l3ad + ) MOD ib(, a). Morreu! Aperte Espa I1 siserCf(b " OR`"N"L Stillo =Q T a 0 =IFt*+ g)lgSEEa) $,o / ^ Vidas: # ]D Gr 13 oReconQoE  vet(1"S")rpD qtor!O M. LLeSpee a scor FTHENUkUSINNtePau") +WENDOi, jNEXTt( NOV(S/NHENNV aake "SLSEe (1, "; Row223220" T "OR kbdfigYdU08Z9 IF:d <:W1&XF (+4))Y([\];-[l)))] +a) EQV lf<) "MBO0L32EFGEFDC"='>n_`, N_rCol?" " 9 .aes/Uc.d1,A-B d(TH - aDet' d)\A,B, 0lor&1  CurfWfds;nD, ),g SE0re/ U0hXFE2 !" 2 "J !"8& l SAMELEVEL,DhsF= 0Y2F=ifim:N)eN or <>Gk((mB PrintScorIrs, , )) Irsn oG "3<--JAKE; 839?oGAMMY-->3bs1; he1; mBuorK LrN= r+ 1e`m+ ter4LserRq, jG= 4k=, ?(219); Nk);8 K RS $nrx "z C|R #)75);))"cusv$)w""5y" + v$ + "6"$ <> " ": {)in1}26jn0}6 ~rena(~).K j i"rkluse=4,ia"*""|REO 5 PQ >22, 1?P 6 -Qbn}21 ca + b) MOD 5j c =V*"*";  " ";8 bg{N StillWantsToPlayw"FIM DO JOGO ! !*2 6JOGA DEO? 7 "S"%%=7,iCLST  11 eyA CONFIGURACAO?  *3 15  <T