c$ 1 mov = -1 CASE CH: PRINT CHR$(SCREEN(l, c FOR i = 1 TO nArr  CASE CHR$(0) + ( Arr2(iSe FOR i = 1 TO n IF d \ 4 LOCATE 1, 2: PRINT: PRINT MID$(char$,   SELECT CASE ---------------- FOR i = 1 TO n END SELECT )); COLOR END IF LOO> 2 THEN LOCATE T STRING$(3, x$)GET #1, SEEK(1),  END SUB SUB +INPUT "Arquivo ( CASE CHR$( + 1 CASE ( THEN NT CHR$(SCRE LOCATE l, ).Lin = Arr2 ).Col = Arr2 (i).Col: PRI Plat(i).Lin (i) NEXT () DECLARE DIM SHARED NEXT Delay Speed!  T END IF PUT #1, SEEK AS INTE STRING$ Arr2(i) = Arr(i": l = l": c = cSE CHR$( EXIT DO enter =  LOCATE LOCATE lb(nMob).( MOD 4 Plat(i).> 1 THEN COLOR  MID$(ch NEXT T USING : PRINT   DO  DECLARE  Arr(i). Falling EraseMo.Mob a INKEY$SCREEN( Arr2(  CLBox  al l: ac = k$ = - 1 + 10) + CHR$(27 EN I <> ente (al, c: P7, 1 FOl =  TO  nMob  nMo MPart iSe(iSeLOCA.Lin ArrLin, Pla).Co: PR FOR x =Plat SELCASE";  IF Dir MOD 4 <, 1)ar$, "DeHEN x$ = " " ELSl, cnArrMobi= VA x$;  NEX SUB ETYPE) AS 1 T PRINPUT tfacXT Show$ = Arr2 IF WendAmbi A-ZSpeeAuto =  Flachar SPA NEtest Sav Mob AS  nA =  1: in  IFr"aIF Mob^ft8 de:d0Bg 4 btatNTO SalvRps7,ettil = -ELOOP2 "# 7 );UC*).$Evx$(FW%,  58 r NXT(i0"inolT~K ) :" OP$ + BINA#1 (nOSE idx chM ch2(1),: v'N+TEF-TE 40.  l % , GER Co13)D IEN({ (' ----' (DefJ Lin*Jl*GE(KS L2, 1, 25, 40,+(8, 219)( Arr:,-): N(;JM= NOcJ P INKEY$J( "H.Q ("P.RJ (S "M/C(A0S "K/Q(TU):1J   2 -13 V(F WF l <>MOR cX(ac OR Yr2 0JZ4[a\RIc( 0, 735, c( ( ]P\RI(^R _l1R`l2Qc1("3ab=cbdo(6e =fl3do6lgl).L( -R$( +R$lgl).C( hTE,i,j2N7<8kl(t(imlQnIN;J 7<9op Q( TO R:4x, 8C(J q3Z d = 8Dir ( 9J  = 2 T$5, c)$rECT s k$ "1"`" ArrJ t_12: O20:0,!uvwxy;+(ln,;ar$;z 4y;:T't# SU#ND $j(1`9 aDef^R i# =O ? NT3W @40nIN="y);;ar NDDEF %IA ) BS :] tor# = JNT "  ?u EMob "" T| y; hT IFCCo -m  (i)i & 8elSol 1..02.2001SUB B L(l, chzUB DelayntrucDINT , d! Off tor =nqnb= 0@CarregarlataformspeciaisI$(1: COLOR lyMob:g => +CE5C(i)X13E 8 ' 1%, , c2 Loal ShoJEND (1 T 100Def,rc nPlWIDT 40 Kff =TIME#: N CLSY op : LO 0: THEN0 1 Dir :###v~w) + qRLm_|FOR CATEf) 8 + cyPm min maxk) =  movtf PRFrq}1,  (t0 EXTis  2:ent, 1= 1#";= l= 4, c""SUB, 2$, E l IFArr= 3bilINT" DirF d' _0'Copyright (c) 1997-200'25` - 27`N'el Scardua Baen9bcl2%%c f%O!OUBe9B:yw0B Erasef () DEFDef eINTEGE1; aR; p1 'd=mod 4 f=\<=,O0r,<2=h,i,j#$O 64)p d! = .02P H VIEW25Sk lm O 0Q R>1000Q0# / (R -j#)nR_0 "R1-ConstruR2-3-o"R4-Execut5-Mudar velocidade"R6-"R7-PEq"R0-Sa DO:L(r))OP WHILE> 8? opSH 80 0: : SYSTEMS 1:SS 3S 4:S 5@A{lay :"hS 6: S 7@ "-desativar peq qdo bater ?"A "1=Sim,0=Nao >", op Ti1iB aCriar ambi: ul0il2DQtd Tipo:#:;g;!3":3SEu (Flag 31' < 644 =*c *g +Qv"";$>x -l x; :TSUbcl2c -(fX0) Vw"Ŀ"fwLEFT$($ff), fln2 - c1 -y1,1%32,765; f9);&LSE:&NDGkm'r blocos Pn aNcԿG? k$'r < 94Arr =ձ--CocyUSING "r;= max.Xl < YlXl >Yl.LOzzCol - +N6{T'rimosiSe13D##l;!9":l30H(P= 2(M(K(27):|B Z L3, 3 + -4, 39,CE$(9)}mov" 6 HPPressione alguma tecla para retornar... r)ISNG S) x# =j# * t>xIJ T;Gfn-1Զi =O}H[+ l2190݋Z"[= [+߈wMo}\E |HPGd "oFILES "*.mob,$VEXIT EN"" RYGET #1,.L JL/ L{T#1Gil/]\ 4 T) ]7\ =id =nchZ }ch2)Nd7IFK  E xE P7( % FORp 1`!$ Ix(x)i -Ia(a)iIa(aml ch1: = NOTJ ")  1: vO03CAS &J J )(1) (  Au  =(idx).  ENDrECT Ebi  EJ J T|= j2(x)i3VFvl =(a). nm1PUT #1, <lat(QPRINX THEopRhqJlc-0 vl * id + vk - v nmr idxnMobT EXIFrqji).Col TONT  = l  vl  id#CD$: %;dw 4&1()*: x, ,:  ae. bDir b -2/ = 30 = 0 11/2 3=3Gvc H5H5c.6H7 D)G219. 8l8cIvl&0 6x&a J L1id 9Gnm* Off  92 Inm >= 10 ANDJ2FOR) 1E:r  1NEXT H IF'N nm2ED.; =; +L> <1< 1< G=U):>T DO~:Ks=$(l  =$ K  eTT "ar" ?,@$@$G"">TAEN@"?"( RY!1,:r!SEEKB<MMn,,P#i)"CL#1 B2(C7B2"";"ENDA