CTK2CACBDA ̠6CCBDA̠P~<6&] X=x>?67 RUNghuȍmL@LprtL@LWikm"jlnoqsprtL$䕰TL3hCACBDA ̠W"CBDA ̠6rRrRrRrRrRrRrRrRrR BATALHA NAVAL rRrRrRrRrRrRrRkrYrYrYrYrYrYrYrYrY ARMANDO LUIZ rYrYrYrYrYrYrYs: :255:200010:8:"AGUARDE UM INSTANTE ...":15:8:"VOU PROJETAR O MEU JOGO"1000######### JOGADAS ###########  #CBDA ̠####### JOGADOR ############ E TJ38:T38:NM$(5),PC(5,3),PJ(5,3)M D0z K15:NM$(K),PC(K,1),PC(K,2),PC(K,3): K15:L13:PJ(K,L)PC(K,L):: 5,"Q",1,4,"C",2,2,"D",3,1,"S",4* "SSUBMARINO",4,0,1,"DDESTROYER",3,0,2,"CCRUZADOR",2,0,CBDA ̠4,"QCOURACADO",1,0,5,"HHIDRO-AVIAO",5,0,35 Z13O :800:"E A SUA VEZ"v ""ENTRE COM O PEDIDO (COL/LIN)";P$ ,(P$)2280 6M(P$)64:N((P$,(P$)1)) @M1M15N1N15Ğ:"FORA DE ALCANCE...":S11000::280/ JA$(M,N)"A"A$(M,NQCBDA ̠)"X"ĺ"JAro FOI PEDIDO !!!":S11500:S:280_ TA$(M,N)" "A$(M,N)"A":"AGUA":4000:420j ^K15 hA$(M,N)(NM$(K),1)FK:A$(M,N)"X" r wK120:200,8: |"VOCE ATINGIU PARTE DE UM ";(NM$(F),2,(NM$(F))) PC(F,2)PC(F,2)1L ;CBDA ̠PC(F,2)PC(F,3)PC(F,1)PC(F,1)1:PC(F,2)0:"FOI TOTALMENTE DESTRUIDO !!!"a TT1:T0ī5000 "PARA PROSSEGUIR, QUALQUER TECLA" Z$"r^" M20:N1:A$(M,N)"A"ĺZ$:425 (NM$(F),1) U$:Z  ****** MICRO JOGA *********** KЯCBDA ̠15:30,30:L150::" Z13+ 800L "VOU PENSAR UMA JOGADA ..."\ W1500:Wg DMD1 DM480,474,520,520,520,570,570 MME:NNE:XXE:YYE:MMX:NNY B$(M,N)" "B$(M,N)"P"520 620 M((1)13)2:N((1)13)2CBDA ̠B$(M,N)" "480!M2M:N2N*620eX((1)3)1:Y((1)31):(X0Y0)(X0Y0)520}MME:NNE:XEX:YEYMMX:NNY&B$(M,N)" "B$(M,N)"P"5200D1:620:X((1)3)1:Y((1)3)1:DX0Y0570NMME:NNE XCBDA ̠MMX:NNY&bB$(M,N)"A"TETE1BfTE50MEM1:NEN1:TE0ehB$(M,N)" "B$(M,N)"P"570nl800v"MEU PALPITE Ero :"(M64);N"O QUE EU ACERTEI (A/S/D/C/Q/H) ";S$:S$S$"A"(D1D3D4)XEXE1:YEYE1:MEM2:NEN2 CBDA ̠ S$"A"760K15/S$(NM$(K),1)710d::"NAO ENTENDI...":80,100:S11000:::620xP11:L11B$(MP,NL)" "B$(MP,NL)"P":PJ(K,2)PJ(K,2)1:D1D6DKMEM:NENTJTJ1:TJ03000 D5M1M:N1CBDA ̠ N:D6:TE0%PJ(K,2)PJ(K,3)760rPJ(K,2)0:D0:PJ(K,1)PJ(K,1)1:P115:L115:B$(P,L)"P"B$(P,L)"A"z:B$(M,N)(S$,1)D1D3D4770?(B$(ME1,NE)" "B$(ME1,NE)"P")(B$(ME1,NE)" "B$(ME1,NE)"P")(B$(ME,NE1)zCBDA ̠ " "B$(ME,NE1)"P")(B$(ME,NE1)" "B$(ME,NE1)"P")810EcS$"A"āK120:200,8:M3:N1:S$"A"Ğ:"X"::780"r^"4000 S1200::800:Z:270 19:1:W15:" "::19:*M$CBDA ̠ EM2:NEN2:7704********** SORTEIO ********** WA$(15,15),B$(15,15),M(3),N(3)K115:L115:A$(L,K)" ":B$(L,K)" ":::1120K115:B$(1,K)"A":B$(15,K)"A":B$(K,1)"A":B$(K,15)"A":Z14:Q,Q$,N:K1N:1020:::1300<<<< CBDA ̠ << SUBROT 1 >>>>>>>>7M((1)13)2:N((1)13)2eX((1)31):Y((1)31):X0Y01040yX0Y01040$MMX:NNY:M2M14N2N141030.MMX:NNY:M1M:N1N8F1Q:L11:P11:ML1ML15NP1NP151030BA$(MCBDA ̠L,NP)" "1030'L::MMX:NNY:WVMM1:NN1:F1Q:A$(M,N)Q$:MMX:NNY::y`********** HIDROS **********oZ15tM(1)((1)132):N(1)((1)132)~X((1)3)1:Y((1)3)1:X0Y01150M(2)M(1)X:N(2)N(1)Y$X((RCBDA ̠1)31):Y((1)31):X0Y01170ZM(3)M(2)X:N(3)N(2)Y:M(3)M(1)N(3)N(1)1170AM(1):BM(2):CM(3):DN(1):EN(2):FN(3)((AB)2(AC)2(BC)2)((DE)2(DF)2(EF)2)1170K13:M(K)2M(K)14N(K)2N(K)1411405CBDA ̠:K13:P11:L11:A$(M(K)P,N(K)L)" "1140\:::K13:A$(M(K),N(K))"H"::{K13:A$(M(K),N(K))"H":************************* :::::::: GRAFICO :::::::::X17(K418:1:K:A$(K61):A$;:KX:A$:X:KXCBDA ̠:A$;:KX:A$:KX:F22:K115:L23717:L1(K10):K;:::M72<L216:4:"///////////////";:21:"///////////////":F800:"QUANDO ACABAR, TECLE ";::"FIRE":X5:Y2F0X:Y:"r^"A$:A(A$)A$"."1540ʙCBDA ̠F1F0:1500Y:X>(A64A90)A35ĺA$:F1:1480G"/"iXX1(A21X18)1(A8X4)YY1(A113Y16)1(A112Y2)F114801460Y:X:"/"7:7)"B A T A L H A N A V A L" 14:7)"PROGRAMADOR: ARM8CBDA ̠ANDO NEVES"#18:16)"03 / 84".6:5:r"rlrYrYrYrYrYrYrYrYrYrYrYrYrYrYrYrYrYrYrYrYrYrYrYrYrYrYrYrYrm"5)"rZ";:34:"rZ"5)"rnrYrYrYrYrYrYrYrYrYrYrYrYrYrYrYrYrYrYrYrYrYrYrYrYrYrYrYrYro" 21:13)"QUALQUER TECLA"*U$:40,30CBDA ̠4X6::2:XR>"AS REGRAS DO JOGO SAO AS MESMAS DA BATALHA NAVAL COMUM."@:X:"NAO SE PODE ENCOSTAR UM NAVIO NO OUTRO NEM ATRACA-LOS NAS MARGENS."B:X:"OS TIROS SAO DADOS UM DE CADA VEZ E A RESPOSTA Ero IMEDIATA."D:X:"ENTRCBDA ̠E COM OS SEUS TIROS NA FORMA:"9F14:"COLUNA + LINHA"\H:9:"EX.: F8 < RETURN >"eJ:XL"ESTE PROGRAMA NAO Ero RANDOMICO , PORTANTO, NAO SE ASSUSTE SE EU DER PALPITES INTELIGENTES."N:X:"ESPERO QUE VOCE SEJA MUITO BOM CBDA ̠JOGADOR, PARA ME GANHAR.":P:14:"QUALQUER TECLA":U$GQ30,30:WRX6:Y13:XT"A TELA MOSTRARA O SEU CARTAO E V. PODERAro ENTRAR COM O DESENHO DA SE- GUINTE MANEIRA:"FV:X:"AS SETAS MOVIMENTAM O CURSOR, PO- DENDO USAR O REPEAT.CBDA ̠ PARA INSERIR PECAS, TECLE A LETRA CORRESPONDENTE, OU SEJA:"zX:Y:"SUBMARINO -> S":Y:"DESTROYER -> D"ZY:"CRUZADOR -> C":Y:"COURACADO -> Q":Y:"HIDRO-AVIAO -> H"\:X:"O CURSOR (r^) APAGA O DESENHO, SE PASSAR POR CCBDA ̠IMA DELE. CUIDADO !";^X:"QUANDO TERMINAR, TECLE FIRE"`X:"OBS.: SE VOCE NAO CONFIA EM MIM, PODE FAZER O DESENHO NO PAPEL,TECLAN DO FIRE SEM INSERIR DADOS."b:7:"PARA O MAPA, QUALQUER TECLA"fU$:30,30:: K102004:K CBDA ̠,20::800:6 109 "INFELIZMENTE VOCE PERDEU..."C :10_ "BEM QUE EU AVISEI !!" :6:"VEJA O QUE VOCE NAO ACERTOU" 255 K11500: :2:K115:21:L115 K1:20L A$(L,K)"A"A$(L,K)" "A$(L,K)"X"3070! ACBDA ̠$(L,K):255,200! ::9! :K11500::800:7:5030G!30,100:a!K11500:::10:10|!"P A R A B E N S !!!"!12:9!"CONSEGUIU ME GANHAR !"!14:7!"QUER JOGAR OUTRA ? (S/N)":U$!U$"S"Ĭ!30,100:CBDAa̠