"( LOCATE 2, 1: PRINT USING "Pontos : ###( THEN d = 2 ELSE d = 0 END IF CASE ( THEN d = 1 ELSE d = 0 END IF CASE (" IF d = 3 OR d = 4 THEN IF INT(RND * ( THEN d = 3 + INT(RND * 2) ELSE d = 0(" IF d = 1 OR d = 2 THEN IF INT(RND * ( THEN d = INT(RND * 2) + 1 ELSE d = 0$): Lista$ = MID$(Lista$, 2) + Rand$: SELECT CASE INKEY$ CASE CHR$( CASE CHR$(0) + ";": dly! = .1 PRINT "Pressione alguma teclLOCATE lx, cx: PRINT Ite THEN d = 4 ELSEIF d = THEN d = 3 ELSEIF d =ndo peas:" PRINT "LOCATE l, c: PRINT ": PRINT CHR$(SCREEN(x - 1 CASE CHR$(0)  PRINT PRINT " a$ = INPUT$(1)al = l: ac = c : alx = 1: acx = LEFT$(Lista$, 1)); : COLOR 7, 1 flag = NOT flag CASE "": EXIT cx: PRINT Last$; THEN d = 0 CAS2) = 0 THEN d =  END IF CASE " FUNCTION Ran CLS PRINT " PRINT " s)" PRINT " COLOR 7, 1 COLOR 14, t! = TIMER pts = pts - 1 CASE " " END SELECT , 1: LOCATE CHR$(SCREEN END IF IF TIMER - t! IF d = 0 T SCREEN(l, c : LOOP UNTIL ELSEIF d =DECLARE SUB Move" PRINT os cano o esgot 10 pontEspao = WIDTH : cx = c = 1 TO  Lista$  dly! =  LOCATE, 1: PRI#0"; pts COLOR , 1) MOD LOCATE  ELSE  cLast = END IF": lx =  7 THEN l = 12 AHEN ok = ok2 OR  a$ = "S SHARED" IF d  - (d = ) + (d = ()  TIMINT para que ponada  vocal, perd*EscolheColos = Move CHR); "..."l = : c = 20$ = d = lx = 1:  FORandNEXTflag DOMID$, 20SCRE IF THE: BEx <> OR  acxLastlx,  = c0) + + 1 CA: IF; :  ENDSELE ANDpts ontiCASE l, c0d$O 01rO 1 CLEAR RANDOMIZEPER DEFQA-Z "Pipe 1.0 - Copyright 1999 (c) WendelSoft2 "Objetivo: Ligar3s RS4o chegue ao mesmoTto2 " de onde saiu. CUvezS o liquido escorre (a cU5!V ganha5os. No finWcUcano nao usado faz2 " Xer 50Ttos."'Teclas:2 "YZ 6 EscZr Tab = Descartar (Xe5o!*[ca Direcionai\]r 6 [car F1 = Acelera4o (R terminar logo, quando3s j";^$(160_ estao colocado!Y = Sair2 a`740" CLS a12bc: ld""#1 ";" e1$ f l8gpt\10hR i936::=:+ i$: j k = -1:;30l< 1=NT "[";_]"; m(Lista$, 2);#>;< 3=NT STRING$(40n5);?oEN(12n@ 16, 2:A12n12np kqN9%&rEP: Item$ = DO'BIF ls alxtcsuqN?cv(awa v$ =)(wcx)):C oEN(wcx@ 16#3 m$;" af lx:uxxDy "HEl+ "PElxz{SE^$(y "K"8+ "M"8x +&|CFBEEP:: m$}vd"" 1 DO ~ CT*+>= dly!qNp NOT k f l cxxqNAwp;30qN;5$ ]r,HEN EXIT DOBpt\+ 5* GND c c TH -1,H 0D ok2 = (aGND ac c ok) LOOP UNTILIpt\0#>;"pIe0qNhR a4 TO 23hR c940p-) > 32-@ 16 =F"}PLAY "mfo3l24cdefgfedc": t! =PER: DO.+>= .5:  "; :% 5| < 0qN pt\0#>; j jD< 23,g a p/ cnuar `;?7, 0780 "Fim do jogo"p ok2qN PRQ"Parabns,V venceu !2 USING "Pontos : ####>;Cnua [S/N] ? ";l: adU$(INPUT$(1)).J"tad"N": PRQa$; rEPpJ"qN 1 SYSTEM1rK , d, Wac?15( CT )()){SE "L< 3E "L> 2E "L= 1 3"L= 1 4"L= 2 4"L= 2 3"2/ 13/ 44/ 31/ 2"{SE ELSE: e0' alM4N 3)b= cM1N 2) ~ SUBd$K l$ idm(l$, INT(RND * LEN(l$)z), 1) ~ FUNCTION