J (2 AS INTEGER tam AS INTEGER dir AS INT( DO l=INT(RND*24)+2 c=INT(RND*80)+1 (LOOP UNTIL SCREEN(l,c)=32 LOCATE l,c:?"( THEN FOR i=1 TO VMax l=VBar(i).lin c( LOCATE l,c:?STRING$(t,223); NEXT END( FOR i=1 TO 10 DO c=INT(RND*80)+1 l=( DO c=INT(RND*80)+1 l=INT(RND*24)+2 $BT lin AS INTEGER col AS INTEGER $ ? IF Continua THEN RUN SYSTEM E$Bar(i).dir LOCATE l,c:?SPACE$(t); Bar(i).tam,223); NEXT END IF ,196);SPC(2);STRING$(38,196):?STRING$(16,219); LOCATE 1"; LOCATE 24,80:?"@"; CASE LOCATE lp,cp:?" "; ELcp) SELECT CASE pxl CA THEN FOR i=1 TO HMax :?" ";:NEXT LOCATE ; LOCATE 15,1:?STRING$(:?STRING$(29,219);:NEXT IF SCREEN(lp+1,cp)<> END SELECT END IF LOCATE lp,cp:?"";LOCATE lp,cp:?" ";  Flag=-1:x=0:Mx=20 0:SOUND j,1:NEXT CA,1:?STRING$(80,219); lp=24:cp=1 FOR i= lp=24:cp=1 LOCATE,1:?STRING$(60,219);0:?"";:NEXT FOR i=,53:?""; LOCATE 1,21:?"";SPC(6);""; LOCATE l,c:?STRINGFUNCTION Continu() DECLARE SUB  alp=lp:acp=cp Flag=-1:x=0:Mx=1 END SELECT IFcp:?CHR$(pxl-1); lp=alp:cp=acp  END IF IF NOT THEN pxl=SCREE END IF NEXT 1=VBar(i).col1 c2=VBar(i).col2 l1=HBar(i).lin1  l2=HBar(i).lin2 TO 22:LOCATE i,";:NEXT LOCATE ,219); LOCATE 1:?"@"; LOCATE 4; FOR i=17 TO 2 STEP 5:LOCATE i,219); LOCATE 2 TO 19:LOCATE i, TO 11:LOCATE i,";:NEXT FOR i=:?""; LOCATE 1 TO 23 LOCATE i; NEXT LOCATE Bar(i).dir=1 THE SUB Bomba(li 1 AS INTEGER GER END TYP Bar(1 TO 5)A tp!=TIMER END IF IF SELECT CASE ND IF CASE pxl=SCREEN THEN LOCAT GOSUB PixDef lp=lp+1:qda= :LOCATE alp+ THEN LOCATE Bar(i).col Bar(i).tam Bar(i).dir=- VBar(i).co HBar(i).li 2:?STRING$(3 "; LOCATE 2 ; LOCATE 5, 6:?STRING$(1 ,4); LOCATE :?""; LOCA :?"@"; CASE 1:LOCATE i,4 NEXT FOR i= LOCATE 12, ).col=20:HBa ).tam=5 HBa r(1).dir=1 ,26:?STRING$ NEXT LOCATE LOCATE i,2 ?"";STRIN ";STRING$(7 INT(RND*24)+DECLARE MoveBarr1 Nivel LOCATE"Pontos  TIMER-t0 THEN  END IF CASE "fly THEN lp=lp- ELSE  THEN Flpts=pts- Flag TH THEN lp THEN cpcp) IF  OR pxl= ELSEIF  THEN I1 CASE  CASE 1,acp:?" LOOP UNTContinua CASE 3 CASE 2 FOR i=00 STEP  SOUND  Bomba :pts=pts ctd=ct AND px< END SU IF VMaHBar(i).:?STRING:LOCATE 0,62:?"HBar(1).HBar(2).;STRING$VBar(1).,26:?"##,178);""; NEXT:?SPACE$%) NiveTIME TYSHARVMaxHMax CL1 TO Lv,1:?";pt IF2 TH OR atl= THE k$INKE=-1:":IFFlag ELSE lplp+1":cp NOTAND EXITqda= fltflypxl=getk END flyMx=0SE 323,2 CAp<>aSE 18,17pxl<>223N SCASE00 T NElp,c:SOU00,4 FOR j=E 24 ptsS ?oc 10 k$<>:cp= ctd:?"  SUB l=l-2 T c=c l,ck$="-2*d0:?",2197:?",19:1:?" 3,15 TO4 TOFOR LOCA8:?" TO  lplin1lin2:HBaTE 4,35)tam),col(nPE collinE  25 Lv DO###";";";";atl=cpN 1 d>%d"a%#ea#CLEAR,,16384 DEFINT A-Z RANDOMIZE RV? E@EH? E@DIM ED VAS VBT,HAS HBT,,S VIEW ?=fBg 1USING h: ##s;ip!>=EN#";BC>0>j+1 >5N 0:eak=Y$$D k$lW","w": mn1o32pagx=0:Mx=5 EE"S","s pag=0=lA","a-1lD","d+1l (qda)pts>=10N q1:%0l": DO&rE0nx=x+=x24s=24 cp<1t=1 cp>80t=80F(lp,u178v177G,'(w176NSEIF 186v205xF eyey=0SBEEP( IFoHs) *N(,2:IFrEN I-y254,6,64,35,15,24,4:I-1:HsSEE:0 llpccpxF*N(a,a77J1,a'z76J1{";F(alp,au>45 K alp{";)rEN t!=R:DO:|ILi!>.02 LOOPS }N RUYSTEM PixDefs: D pxl~2,450:ey410O 40500i,1XTp CA5ND 6+y4:64K ,cp:?"-";ND 20SE 6y=0:!=R17O 3530S FO7O 121258 % q1<jCL"Vperdeu...E64=Lv+f$ fly=0:=0+023 "S" "s"s=lp-1:0SE IS>32:lp=alpacp& 15v35v4v24N RETUR>) STATICg li";d+1=50N RiO li+2RoO co+2 l>2 l<25 c>0 c<81px=SCREEN(l,c) px=254Nl,c wpx<>64>2>20GE";k+NEXTd-1B "a WHILE Y$<>"":WEND INPUT "} ? [S/N]",k$=U$(k$) |IL S"}=S FUNCTIOUB eax,c=VL- t=VMd=V c=c+d c>c2cl2l0,- IF V=N1E2Ol=cg1(c2-c1+;!$(V IF >0./ H=N1E2Pn=l c=HLFOl l2g j,c(;XT!$(H END