}(Ban&(i) NEXT i F( READ Ban&(i) NEXT i ), SUNATTR LINE (  PUT (xc#, yc#),), SUNATTR Parameters: ' READ DIM SHARED IF Mode=9 ENDIF  DEF SE 0 \ (80 GABanana 'Bant DAT, -21307LINE (x- RE CIRCLE SPEEDCO DIM SHTHEN ))-(x+Sc END SUON ERROR FOR i= PlayerN, Locate, y+Scl( CONST MachSpee LOCATEBan&),   MaxCol) IF  THE Ban PSE ELS-Scl arm Name1$, NumGame #, yraph&(12GoriColo 'x, yScl(8),8),  DrawCoor AS  GorHeigKeyF, 40 ScrScl()), 3, y2), : 's thate Ban&TRUE-213ScreMode 'Explsion1 TO LocaPlayerHi ban ' peed of fast pre thellaatioWidtosi), =0 T Sun&(20 '  SUB expNEXTerNuAnglVelo DoS)-(xdrawr   an in  a moext (x  onaningle p cQeant gerOTos 1VR=TTVSU=EEDZof6 Lofla$EDCol_onr' N c %agdG EMTA00, i24j4815k23931l040 #)ms'TO?INTEGER @AhtARPOKE 1047, BlC32Ce1  TH0 #DAht)10 T1IFum1? '1E5FG-H0I =Je al >dinK 'L, XOR1CAS M  196618, -10 N4835200 8323072, 832 -1061109760, , 1886416896 OenPEr PaletteError  d= 0 # GA STOR *E1 =1  1!  Q B ' DoRoS T UVteCo  + WXt=P 0*pi# / 180) JeY gravity.Z ' [\this gam ]er ,^ss  keywordick_ BACKATTR 5`(T 2)ocan  g`L,OeDb Rc /LockBlags=0'N  InitVars 327686, 458758,20211609,4716042,9432084N4802-5221335 g3ic1PCalcDeladR"U"DLR ieOfHtg), G1ENDI&M FUNCTII Cerh Zi1LOCAjlc1FOR 1k positioWl6 # E!me#=GetNum# ncit ohot) 1', y+(p+Scl'q d01 =BanU a sZrighratiouris _dingYhsgsd\ow,tgucclineinedonsttoo  ornumthe game wil runon avuS dat totte forplay DEINTurrIC  TYP1 ENDMFALSCOLOSUNATUP=illaL@ Mod$6nHit7) IntrInpu-WRestSYST 262vdChec64K TO 0 RE CGAEGA SUME NEXTIME!=i! Centwen rscreTw= \ 22Radi=Scr Inc* STEo sho inp8:"; 'mrase i, raws sunMoutmileE<H20), :;outhqx-x+ yQ B i c G o r i l lzCopyt (C) Microsoft Corpo{ 1990 ' YmisSto hit yopponent withjlo|aby vary}~owerythrtakintoountwind s[,N,ity skyOSPdeterm bytIfprogramslow] adjus"" belowThe larberRl go SShift+F5 exit QBasicSAlt, F, X get help BASICT, moveursor toT^ssF1clUtse button.zet defaulta typeR FA-Zub Decla{sMake allays Dynamic$DYNAM'User-DefEs TYPE XYPointX"Y"ECtV=-E=NOT 5HITSELF=W=0VOBJECT1VWINDOW14VR=3NHAPPYNSHOCK=5RIGH1VLEF2VARMSDOWN=3GlobalXXY 'L two[s#YYastBuil6 pi#\ R\ U\ D|a#D40)y X,s down#L lef R N#6 Wind]neD^h6e6]n rn6 Back6fHt6 G `d?SINGLEF FnRan)=INT(RND(1)*x)+1SetaOb=PEEK4IF (b AND 32) s OR 32 IF GOSUB e o Getts s Goro.e2$ 0 sorea stK s  Cf -252645316, 6757030084934756980863f 1010580720, 240 Egh6,h6,3,8,  99&93&94, 9 8,9g : ;;;,,:e:pi#=4*ATN(1'Thisa clever waypUbeste availabl 9SCREEN = PALETTE 4, 0Qk EGA >o=64)=35=25E8p(8q(8r(88t=39A=32)=20=12C2p(2q(2r(2)uDIMLDRg2 >`d*1.3t=20wFTUR:xodeB CLSC 10, 5?"Sorry, you must have, color,VGARILLA.BAS"A e=1uwF =:1 Dcardsl ine.RETM $STAT'oyks sPmachine. oy!s!=RDOi+1LOOP UNTIL R-s! >= .5oyErzentersrints a str giv Row-b{$-be prd|r (Max -(LEN( / 2+.5)?$;EF Produces whenfired X#, Y#-l|FPLAY "MBO0L32EFGEFDC"Aht / 50.5E.41eO P#= P (-1*Inc#) WG 10k i .005Erols|ats byepterlott} t~-{-er's[nhot (m, )'tt+B Vte1A6ƺ2NDIFI 2,"Angulo (2J 3,"ncidade y(3J10) +=2Ǻ=180--E G 4C1 (5 \%) T SuKlotShot(, ,y,)IF Xt A=IFKlaylmN=3-mVictoryDanceI SUB DoSun D atop of en. h-I "Oh elseth.|un (hsetnsunxbh: y=25clear old.̋18)̍18FW, BFnew:'bod(1RPA(/'rays.x15)p15y-0 y+0 y-3)x-3y-y+5 y-5)/'mxǎ"oh02.9 PAINT0ED s 0, (21L, (33L-eye1 CIRCLE1)TG-2PSETG-0(2bna!c#-Hyc#-Verticr-rotann (0-3). ( \_/ ) /-\ bc-in ME it eM icc#, r, bc)SELECT  r 0(lX#+XAdj, GorillaY(PlayerHi CIRCLE (x+Scl(4)), Scl(9), OBJECTCOLOR PUT (x-13, y), GE (GorillaX(PlayerHi PUT (x+47, y), G)), OBJECTCOLOR, BF  'Parameters: Player1$, Player LINE (x-Scl( IF Mode= OBJECTCOLOR &, PSET " Rest Resu CASE DrawGorilla Playe ENDIF END SUB LOCATE IF E coordin 3*pi# /*pi# / 4  CIt)+3.5*S&, PSET  PLAY EFGEFDC"), y+Scl)), Scl(, y), Go LINE PlayerHiCLS 2  (Defaul)-(x+Scl NEXT i FO LOCATERow, Col, , , -1(Result$ Center 4E  SEL Gor in eith of arm), yScl(4.9), pi / 4ET (t)+7*Scldj), THET160ResuKbd$PUT x+47 PLAilla DO  EN  )), JOGAx-13RCLE$=""ELSEIntr: 'play A Sard slop CASExplsionColoLOOP LEN"o2ln0g- New drawFOR GoriNEXT PlaLEFTPlayCent0e-d-d-n Res"  of thetiongame NumGameCOLOLOCA gravitytNumINKEb9n0igh  '2, useou UBs)]( 'N-1AOR4d1,b e+&D F 'Gla: lo0iONtX#!i= q.512 utrtsuting$-ertes R 7R KerwORLery$(({e$)=l NLE$;$( " ,DInayTheB or rN  y,er 0b W.3 Xerr eedr(ECTer+YA, (orLlt$ +Sc(x+    i=  Geam$=TE baa#rs an0b LL/1 UU/2 DD/3 RR, XOR 012Gor23EGAe savesmsa2anay.!-xate4[ y-y (t5 upi-.16(71, 4(, 58+(, 79#(: G;x-7156-71))-(RCLc<=Y#t)> i 9?N PALETTE  ( .3or(R &, PSET( "@O0L32 $ (25!10), ,$' 2$=A+B$C(D"rR EY #(x-S 74.9 (10!8, ,1FY($t)+9=Y#-i) o, 15 #INC"NOMEGHDIF I% x, J 36714 (28KLDOR&t='LDO0?NIltC(M, y), G)'(2 (N 7()R  (2$O?N"IP$, 10)* + QoR DisSs 1?N G O R I L LT" "rDwUVeI WE PS;x+I 0W HD0 , XoYZr,.57I  'Ge, 0ICLS I DO ); 1)I[ UNTIL \]1^^^eeen:_Ht=15` I'a I b ), OBJCOL ICIN ( )R  7i6  Xodecl EY "MB I d '): ";eye $IIFey $=f$(g I INC JGWHI  VAL-) PI * 1 .5, " I her ``` e-9nij ` kt . l. MakeCityScapmn '.96+S , y+4), (*pi# / 8+7i-. gorF a direclocao FUNCTIAdj=7ScrWidth0IIF eyerH$ (8=XBACKATTR,R m p qGqrIs"LD t: ?SPACENumrs\(guvgrav#+w#OI ?Alt "; JxY$-, 34: ?"I y=SCREEIVIEW C(6yyng-9^e MaxCol= wind sp skyline buildingori ' 5eft up, Rz bot down Sx, y){ AS  |cal t bengleY6cl(6aK? TO 0{ |Ib 4, 9 }7 CIRa~ exp hit Sclez / 2P=>counttInp ~ inpS nams 's to SU1} JOG)"; p=VALf > 0 =9.8grav\ to kDone CHR KbdCASE "."H`[cree forn int arrQ----l"YCha whi"Q Bg0e-nho yander ocity is ing its engtatesBCoo_Slopllal(2 (8) 15 'Gorl(1' la it= [ate\s-3er Lt orh< (, DIM iSINGLE Loindex mus si preci=head,4](2^cl(5_(24_(4 eyes/brow20=nose if ega>9?-2-i`0-i+3` a@neckl(77)body,8_](6^cl(14_(154^c0legsi=0i b9c-6) c:dchestBx-0,b0Bx+02C-5.ED 1El(R2Lef494L3Bothne CLE (x+D& /aCsf whengt occursX#, Y#-shot h G(x#, y# Yj12 Xj5X#=k / 32Y#=ScrH0lx# < km1 m2HO0L16C18 i12 LIN <-(X(nt)1116IF i <o#)CL co#+1)-i, p7i MOD 2+17241 STEP -1p2 C=00Ia=nt3sginnse-numbsBs",us)v4t811Jr11#r1 1$r11%x102 2Jr22#r2 2$r22%5562562, 13M"TOTAL DE PONTOS DOO&t=3$$($, 2)7z AND) < 3 ORz=0us=3514, 532864, 17M"GRAVIDADE EM M/S/S (TERRA$ |#$7} OR($}=0|#3w valid numeric from~-hecho (~ult=FALSEWHILE xY$ <> "": WENDClear keyboUbuffer NOT & 95); " .E$D "0""9O INSTR)=0FD13)O P > 36OeQ =TRUECHR$8) > $=$)-1)8(B)eBEEPeF/ & "=P's on s first time allowsuphidatabe puto anes\")R6--"R8V=INTRODUO"R9P=COMEAROx21, 35: ?Choice?" (x=125100 Qx=278175@ModeSetS(SPlease waitlefre n. ?924 BackZr< , ARMSDOWN UP RIGHTUP% ?546IF U$(Char$)="V"TT I C) SU STARRING:U "P$=1$+" & "+2$T 7, P$M*D* t 1 "t120o1l1n0an096Vi-dj0V0e- ]16e:0e^9:0o1 ?1rR1orRrL1IF'roductio WIDTH 80, 2580vR4 a s i c )s 6, "Copyright (C) Microsoft Corpora 1990Y8, mis iopponent withdY9, "banana by vary a powfthrow, takY10, "into acc,|, .Y11, "shown bygalow attomY"offield, lh relativestrh.Y24, "Aperte qualquer tecp/continuarH@O1L8CDEDCDL4ECC"SparkleP>140ZeCre random )-a-defined typech stores[4 upper lcornf eachg.Ze ()XYPoint)x=2Set Vtrend\ scape.Htnewg h  ELSE (ScrWidth / 2+WindLi ENDIF  (StartX, StartY NewHt=NewHBottomLine-BHeig IF END SUB ENDIF SELECT  > ScrWi THEN HtInc  LI buildinCurBuild  WinColrBuilding IFTotalWin pointva  DefBWidt  LOOP U Explosiot=FALSE  LOCATE PlayerN ShotInSNeedEras CALL ENDIF  W ELSEBottomLiScrWidth ScrHeig GorillaFnRat=13 'Conter fordth NewH ScrightArroheck to e ifWindHtInPlayGame: '  PU ModBCoo > 0  Sun THESun dire=SclOBJECOLOandoHeig of 'Dra(10)), Num).XCo&, Per1$AnglVelo Impn=FAFALS StaXPos=StaWidt scr'SetNE (laceGorilla ointFOR i=1 drawHit= IF+BWi2)  ELS NEXTTRUE banPloShotInitOnScVel#AND  Lodjus 'if ene of ghhthnA  tC Cur=1E n(Htchtayoror Hor=EineJ-i1  yeeIFEN&rRs '' r(B }djVTOm=(r*2$s( PPY ,, olOS)i e(e- er ossingleum GorSE .(4)_m)E S +SclE oldx#,rot,+(.5# >=) OR itokY=okX#+LoIFbRUHE NOTLookrot=ld wDie=9ingHit DoctitheNTI r(BcitLSE actDifeen ht- / rtX  go anaSclmt dd0i e=+n(6 e 1;Up+ 2:H,0U Down+ 35; (-u./ wi( x 0\ 2 (2*  1t=N(NE ne,2He(3-5)-ne+4r,$ ofg and c56se7 it '8ow 2*9c  ':;< =>T), =IF?Ԟ = @r()  A'=, ht= 8 BTHLTRIM$(STR$(C֞DNמES$; TAB(50); = FonG(l=HCTI0  h== RJmKA CASMaxHe3+GKhLٞgMw th= DO= L8=Win+nN= EOnColo 'Parameters:۞@ܞPQoOGorDRSET۞:S, :er Hi   1=IR 7, 0۞(Te#)*U=IF um Vac !uWޞߞ"e=X YrtZ[r) # DrawBan =IF ߞ$ A V END SELECT = 9c=%\h%Kh%V= dow spac-%h= &= ]= ^ DN BKh coordinates Col _ , 'ne NT 0 (( \ ,) )5  P`ab) AS XYPc$ ScrHe3 =de = all ),*Y( ) # ?Pla 1 , 30: ?:e x#[ frib*(2-:erNu :erg h !un=T"V" slopon= ' B\h=h= I x+B\ ( BHe3+n(3))-(xiHe3-3+n(jkEIF1 =' 8 sp8Line 4*= YA=l=@ܞm i Num;=DIM (@r()DO WHILECe. 2gnLOOP =Cento  U ptq=ry#[rt&=Restsre sr"t*t#)*t# ^ juy# =vpcvalCHt TAl#= o#+awtACASE1nver=ase / heixRJwidteighw CGA TO ewHt +0THEN9567 is too  <=  arrQ.YCo?k firdth+, BFWDy<> I\iLast8NNDIF<s onn '@ores ' L SUXAdj xPoril edg BNuaX(igameplay:CLS TIMEEUNHAMaxCer2$s(1)PONTs(2)Toss sho  hitq, yCALauseshotYrtY-tart Ang angthroT# MODt oldRG =TRUYPosZ 'ce-most commd 6: , 'Ited ce: z=335 Bottom{fg;10|Increvalue new}t37|Defaultfg}t~=12}ifference<=3 =t=6ht>15?vertical@10?horizontalz=190;6t=t*20 \ 35B'A18~=54<=1=t=2>5@4 gDOh Slopei 1t+2t-35t-+ 4t+-:^ would offDjkh)+klFmhnjo-x-2E}tgoes belowDp=R잋)+tqp < Ft=h'Cse ghiglF tFt=t-5EG into =x =hIFԞr+42!efg, outlst,n filledIx-1J+1s1-1), BACKGROUND, BIxJsdth),Hor!e windowsc=x+3"di=Bt7 STEP -VKe9 =(u-2)*-3iv 4)=1 =8 w=WINDOWR LI_c)-(c+Wh+W),wimic=c+h# c >=mh-3hx=x2h+LIL xndth-c-xSet=n-5 r=1$d+%$d-%ʞ Mwdow Mz=*3*N320)Io \ 2O5)-N2+zO5{r=-2{r=2P-2P+2EQ '˞>Ts| top s. Must have f|sst. )-user-defined TYPE which st upper leftGeachfg.Rs (S) =14=30=7=16TX#=o32Y#=U200~՞` gla second or thirdfg frome 2q eu+1g-uhBhNum+1)-W)=/ 2-WaY(i)P-YAdjPUT (GlXi)) Main rout'' -er namess-numbers۞ܞ; (,s)030S12)Js~RANDOMIZE (RYMakeCityScapeY)DoS++ J=1-J1ZyS(-1-LEN())Zyi3, ))+"><"+)er=J+1:e=3-Jhlott. tru| gets.igDoꞰr,|XrXer))heset sun ittiIFYhh L UpdateSc(),r,)SLEEP SCREEN WIDTH 80, 25=88, "FIM DO JOGO!"10, ":"[1\r1[2\r24, "APERTE QUALQUER TECLA P/CONUAR"SparklePힱCLSpts acr]➟,st locatiole-y- veloyО-wer FUNCTION .,le#,y,)e#=e180*pi# -egreeradiansRadius=Mode 7 X=COS/yY=SIN/yold]Y'^ t0=1LTRTT 'w sounPLAY "MBo0L32A-L64CL16BL64A+"xre^PUT.)a For scalxedge(9) 'Find leade{for c1 2 en `0 3E4tX[at-3 0=24t(25)4)-45IFy < 2B ' slow-hit self]RT (NOTV) u瞹02'Eroldo necessary e36(yž XE5x#=+(rX*(Ȟ5)+((-1*(rY)*gravity#)*(U350) 7(x o-ɞ (x#3 (yŞ2t)eWޞ7Bh'cǙ0(8)"=POINT(xokX, yokY)al=M 1˞Ei ABSN2-x#) >(20 y# >N2 v =SUNATTRO @N<  7Crd8erDB Eer'GTE  Pllaer)F um-er LETY, y) vR `Z odeGla(x#, y#5=erHit Z Z Z ps programB Z (t#)s#=Rt2#=MachSpeed*tSPEEDCONSTDOLIL R-s# > t2#Z SclZ Pas(ZZ(";ZZ523-b, 1Z(Z Z6UT (ZZ7X(ZZ8, ZZ7Y(Pl(&, PSETZ Z6LAY "MFO0L32EFGEFDC"Z $Z Z osionZr=2Z ZZ$ZZ5b, 80ZZZ9Z 1ZZZ Zrd(ABSZZ:3))ZZeZHENZScl=CINTZ WHILE INKEY$al sZlesZ Zers' sZs  'Parameters: 'ZrdZum Z ZZ; 1ZZ9 1ZZ< ZZ s SZZ51ZZZ0 Z#s  WENZrintA, 8Z NEXTZ SUZ danZ ing.  UB Z5, 40);?"*?" ENDGor .2sinHIIf( decimal,)n w* wante down +, up- egaITh(llows a full rang* .Zers/be gener0 f+calH.1 (i.e.- 3/get s,d/1, pass in 2.9) FUNCTION Scl 2 n!3INT2Z$ n!=n!- (n! / 2+.1) 2Z% nZ&Sets) appropriate col+tatementZ' nZe=9Z(Z)L0, 6M6Z*2M4Z*3, 54Z*5, 7Z*6MZ*7, 3Z*9, 637J'Dis8 9rZ): !Z9r, 2 Z%Z&Cre; flashH border- intro and game ovZ;sZ nZ'<!4, : A$=" * J" 3"":=D 'Clear keyboard buffer ="" "AZ+56, 7 'p? horizont  Z,L22, 1A  6-Z,Z-"b=2 TO 2 'P? Vertic 7 c=(A+b) MOD 5#Z c=1Z(OOZPPQIF#B bZ.B A =D 'Z&Upd;  Z/- '$NZ:Z01%-rZ"ts.Z0's shotZ1 (Z/(), Z2Num,%)AIF%=HITSELFZ$=+1Z.)=)+Q SUB<':1&Fces aftZ;he has elimin0 his opponent $-which& isFcHZ1 (Z2)Z-FOR i#Z+4Z3RLZ4SZ3RRZ4SAB