ZXTape! 2-VIDEO BASIC (EDICOES LATINAS) - TAPE 4 SIDE BEDICOES LATINAS, LDA / JACKSON PORTUGUESSPECTRUM BASIC COURSENONE ORIGINAL TAPE20 TAPES COURSEVIDEOBREAK  p -1:0:7:1:0 z=15:s$  8-z: >#0;1,0;"MUDA A FIGURA CARREGANDO 'SPACE'" x=1 )40(,0:175,175-x +40(,175:175,x-175 )40(,0:175-x,175 ,40(,175:175-x,-175 -215,175:-175,x-175 *215,0:x-175,175 -215,175:x-175,-175 +215,0:-175,175-x #=" "65A ( x=x+s$ 2x>87W65A < 12 A1:200:z F)"x/4","(*(4))","4","(4*x)","3*(x)" P*x(g8,rP)=128+r*(g/po*) Z)y(g8,rP)=87W+r*(g/po*) _po=180 ` 340T al=05:n b c7-l:1 d g=0 f>#0;1,0;"MUDA A FIGURA CARREGANDO 'SPACE'" nx1=x(g,80P) xy1=y(g,80P) zx1,y1 }g=04e4@n x2=x(g,80P) y2=y(g,80P) x2-x1,y2-y1 x1=x2:y1=y2 =" "330J ,g Jl T=178,145,100d,152,170,135 h 4 r |1,1 x=087W.8L +40(,0:x,87W:-x,87W -40(,175:87W,-x:87W,x ,215,0:-x,87W:x,87W .215,0:-87W,x:-87W,-x x *6:1000:5:1020 *7:1010:3:1030 N 0 Xx=05022 b236066\,502-X lI#0;0,0;(x/8);" POE O GRAVADOR EM MARCHA PARA" n#X>30236077\,124| q#X>40(236077\,124| v236066\,X-502 K#0;1,0;(x/8);" CARREGAR O PROXIMO PROGRAMA " #X>30236077\,124| #X>40(236077\,124| X ".001wn,*30:*7 *I=254:I>127I=I-128 I>63?700  680 !5:5:5::""  Ax=40(2152:x,0:0,175:x: Ax=41)2152:x,0:0,175:x: Ay=01752:40(,y:175,0:y: Ay=11752:40(,y:175,0:y: Ѓ(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:0:2:2:  31999| ""32000} ,236077\,124|:236066\,0 9 :0: x=05022 236066\,502-X J#0;0,0;(x/8);" PARA O GRAVADOR "  X>30.05|L,30  X>40(.05|L,10  X 1:200 +236066\,0:236077\,60<  x 9S3*(x),CAR }=)$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0:"31999":z=ç:u=::"23609","20":"23658","8":"":""f$():"23606",z:"23607","124":ڰ"7":z::ڰ"8":u;"10",z;" PARA O GRAVADOR ":I=Z̰"10":װ".01","I*5":I d%ٰ"9":CEN=Z:OP=U:"100":a="127" i"23296"=a"160" n:"10","3";"ESCREVE O TEU NOME NO TECLADO E PRIME":n$::"10","4";"ESTA BEM ESCRITO ? (S/N)";"6","15-N$/2";U;" ";N$;" " ="N""110" "S"130 .i=u̱n$+u+u:23295Z+i,(a+n$+a)(i):i .n$="":i="23297"̰"1e6":ian$=n$+¾i:i  rc=u:pn=u L5A$="":i=u+ṵ"30":f$(rc,i)">"a$=a$+f$(rc,i):i V"i/2=(i/2)"a$=" "+a$ ~3rc=rc+u:"8410":vc=z:"8300":"8150":"8400" "8070":"1100" @/A$="POE O GRAVADOR EM MARCHA":"7":ڰ"7": JN=Z̰"29":װ".05","2*N" T2ٰ"4";"8",N;" @";"9",N;" ~|";"10",N;" \]" ^0N>"2"N<"29"1;"8",N;A$(N-2) hN rG8,30;" ";9 ,30;" ";10 ,30;" " | 7:"" &"7",U;:T$=" ESCOLHE, `:":"8330" "11","6";"F FIM";"13","6";"I VOLTA AO PRINCIPIO";"15","6";"C PASSO P/A PARTE";"16","6";" SEGUINTE" T$=:T$="F" T$="I"rc=PN: T$="C""8000"  "8090" 't$=" PRIME UMA TECLA PARA CONTINUAR " /#Z;ڰ"6";U+U;U;U,Z;t$:.001wn,30 Ot$=t$(2)+t$(U):.0004uQX,45-:.0006vIQ,557:"""":  8160 ldA=Z:J=rc9999':F$(J,30)"%"F$(J,30)"#"A=A+U+(2F$(J,30)="&"):J mVC"10-a/2",U; n T$=F$(rc) v&"8330":T$(30)="#"rc=rc+u: {'F$(rc,30)="%"rc=rc+u:"8300" rc=rc+u:"8302" c=Z:N=U̱t$ (T$(N)="%"8150:"8400":vc=u: T$(N)="`"T$=N$:"8330" T$(N)="&"'U''" ";: T$(N)="#"P="8": +T$(N);:OPT$(N)" ".001wn,40( +OPT$(N)=".".1}L,30:20 "c=c+u:c=30c=Z:U;" "; N: ta=4:XL=248:YL=169:2::U+U,U;:3,3:a;XL,Z:a;Z,YL:a;-XL,Z:a;Z,-YL: چ"8400":"3","15-A$/2";A$:YL="11":XL="8*A$+16":"126-XL/2","142":XL,Z:Z,YL:-XL,Z:Z,-YL:U,-U:XL,Z:Z,YL:"13",U;: ! t$:ñt$ !cenu;"16-t$/2"; ! "8330":"8450" !5J=U+a9 +a:j,u;6+(a=10 ),a$:j: ! A=U+U:J="26"̰"32"6:"28"-J/A,ER+J/A*.73333:J,Z:A,-A,/A:Z,-J*.73333,Z:-A,-A,-/A:-J,Z:-A,A,/A:Z,J*.73333:A,A,/A:J: zuƃ Q#OS CICLOS CONTROLADOS> >A TECNICA DOS CICLOS CON-TROLADOS DE PROGRAMAS, UTILI-ZA-SE CADA VEZ QUE SE NECESSI-TA REPETIR UMA DETERMINADA SE-QUENCIA DE OPERACOES.% %PARA ACLARAR ESTE CONCEITOANALIZAREMOS UM PEQUENO PRO-BLEMA:A IMPRESSAO DE UMA CO-LUNA DA TABUA DE MULTIPLICA-CAO;POR EXEMPLO PODERIA SERA DOS <3>.UMA SOLUCAO IMEDIA-TA PODE SER: & &10 PRINT 3*1 20 PRINT 3*2 30 PRINT 3*3 ......& &..E ASSIM SUCESSIVAMENTE.% %UM PROGRAMA DESTE TIPO ECORRECTO E PROPORCIONA RESUL-TADOS VALIDOS. SUPOE QUE NE-CESSITAS IMPRIMIR OS PRIMEIROS10 OU 20 OU... 1000 MULTIPLOSDE UM NUMERO, OU ENTAO, QUE ONUMERO DE MULTIPLOS NAO HAVIASIDO DEFENIDO A PRIORI E ENTAODEPENDE DE OUTRAS CONDI-COES DISTINTAS POR CADA CASO%...PARA ESTE TIPO DE CASOS,EXISTE UMA TECNICA DE PROGRA-MACAO QUE SIMPLIFICA TUDO:O CICLO CONTROLADO.% %COM EFEITO O CICLO CONTROLADO,NAO SO SIMPLIFICA ENORMEMENTEA RESOLUCAO DO PROBLEMA, COMOTAMBEM SE UTILIZA MUITOFREQUENTEMENTE.% %SE OBSERVASTE O PRIMEIROINTENTO DE RESOLVER O PROBLEMAVES QUE O PROGRAMA CONSISTIANA REPETICAO DA MESMA E IDEN-TICA INSTRUCAO: A IMPRESSAODO PRODUTO DO VALOR DABASE POR 1..2..3..ETC.% %PORQUE NAO EMPREGAR APENASUMA SO INSTRUCAO, MEMORI-ZANDO OS MULTIPLICADORES NUMAVARIAVEL QUE SE INCREMENTECADA VEZ,PARA OBTER O RESULTA-DO DESEJADO?% %UMA SOLUCAO DESTE TIPO PODERIASER:& &10 LET M=1 20 PRINT M*3 30 LET M=M+1 40 IF M<10 THEN GO TO 20& COMO PODES OBSERVAR, O PRO-GRAMA MUDA EM CADA CICLO AINSTRUCAO DE BASE, INCRE-MENTANDO O MULTIPLICADOR ATEQUE ESTE ALCANCA O VALOR DE-SEJADO.% %AS VANTAGENS OBTIDAS MEDIAN-TE ESTA TECNICA SAO EVIDENTES:PROGRAMAS COMPACTOS E LEGI-VEIS, MENOR OCUPACAO DE MEMO-RIA; FACILIDADE DE MODIFICACAOE NENHUMA RELACAO ENTRE NUME-RO DE REPETICOES E QUANTIDADEDE INSTRUCOES NECESSARIAS.% %O EXEMPLO QUE VISTE EMUITO ELEMENTAR;TAMBEM SE PO-DEM ESCREVER LOOPS (CICLOS) EMPROGRAMAS DE NUMEROSAS INS-TRUCOES,COM OU SEM INCREMEN-TOS E COM DISTINTAS CONDI-COES DE SAIDA. MEDIANTE O EXERCICIO SEGUINTEVAIS APRENDER O USO REALDESTA TECNICA FUNDAMENTAL.# #LeaNRAOS CICLOS CONTROLADOS 'l c TTROLADOS DE PROGRAMAS, UTILI-CAR }H $$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" > >A TECNICA DOS CICLOS CON-TROLADOS DE PROGRAMAS, UTILI-ZA-SE CADA VEZ QUE SE NECESSI-TA REPETIR UMA DETERMINADA SE-QUENCIA DE OPERACOES.% %PARA ACLARAR ESTE CONCEITOANALIZAREMOS UM PEQUENO PRO-BLEMA:A IMPRESSAO DE UMA CO-LUNA DA TABUA DE MULTIPLICA-CAO;POR EXEMPLO PODERIA SERA DOS <3>.UMA SOLUCAO IMEDIA-TA PODE SER: & &10 PRINT 3*1 20 PRINT 3*2 30 PRINT 3*3 ......& &..E ASSIM SUCESSIVAMENTE.% %UM PROGRAMA DESTE TIPO ECORRECTO E PROPORCIONA RESUL-TADOS VALIDOS. SUPOE QUE NE-CESSITAS IMPRIMIR OS PRIMEIROS10 OU 20 OU... 1000 MULTIPLOSDE UM NUMERO, OU ENTAO, QUE ONUMERO DE MULTIPLOS NAO HAVIASIDO DEFENIDO A PRIORI E ENTAODEPENDE DE OUTRAS CONDI-COES DISTINTAS POR CADA CASO%...PARA ESTE TIPO DE CASOS,EXISTE UMA TECNICA DE PROGRA-MACAO QUE SIMPLIFICA TUDO:O CICLO CONTROLADO.% %COM EFEITO O CICLO CONTROLADO,NAO SO SIMPLIFICA ENORMEMENTEA RESOLUCAO DO PROBLEMA, COMOTAMBEM SE UTILIZA MUITOFREQUENTEMENTE.% %SE OBSERVASTE O PRIMEIROINTENTO DE RESOLVER O PROBLEMAVES QUE O PROGRAMA CONSISTIANA REPETICAO DA MESMA E IDEN-TICA INSTRUCAO: A IMPRESSAODO PRODUTO DO VALOR DABASE POR 1..2..3..ETC.% %PORQUE NAO EMPREGAR APENASUMA SO INSTRUCAO, MEMORI-ZANDO OS MULTIPLICADORES NUMAVARIAVEL QUE SE INCREMENTECADA VEZ,PARA OBTER O RESULTA-DO DESEJADO?% %UMA SOLUCAO DESTE TIPO PODERIASER:& &10 LET M=1 20 PRINT M*3 30 LET M=M+1 40 IF M<10 THEN GO TO 20& COMO PODES OBSERVAR, O PRO-GRAMA MUDA EM CADA CICLO AINSTRUCAO DE BASE, INCRE-MENTANDO O MULTIPLICADOR ATEQUE ESTE ALCANCA O VALOR DE-SEJADO.% %AS VANTAGENS OBTIDAS MEDIAN-TE ESTA TECNICA SAO EVIDENTES:PROGRAMAS COMPACTOS E LEGI-VEIS, MENOR OCUPACAO DE MEMO-RIA; FACILIDADE DE MODIFICACAOE NENHUMA RELACAO ENTRE NUME-RO DE REPETICOES E QUANTIDADEDE INSTRUCOES NECESSARIAS.% %O EXEMPLO QUE VISTE EMUITO ELEMENTAR;TAMBEM SE PO-DEM ESCREVER LOOPS (CICLOS) EMPROGRAMAS DE NUMEROSAS INS-TRUCOES,COM OU SEM INCREMEN-TOS E COM DISTINTAS CONDI-COES DE SAIDA. MEDIANTE O EXERCICIO SEGUINTEVAIS APRENDER O USO REALDESTA TECNICA FUNDAMENTAL.# #ECRAN tt~/ vf(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 32767 ""25800d <&X=3271332724:Q:X,Q:X Fo17,0,64@,33!,200,100d,1,0,27,237,176,201 P32713 Z28:8:8:0,0;:"" SCREEN 4 @Ly  @0p 0@E@@J@@@? C G^p99"x @E @@A@ 0@@B Y^c99"|9p0%@D @@A_?@@  B A_8"@@%?@@   @G ?` G @ " @A,"/8@ `@E0@@ 8@@@o8 ?"X A@"" @@@& "?<8< 8< @E@@<L@@@@?D` A@B#@@@"@@ C   @E _ @@(?c<@@@ A@99#  @$@@ 2"@$08@=  @E@~@@T pC@ @ AA99"8 @$@@ " "@"@ $ @ B "@"@@dɀ?@ #`#p?8?ÿ<?C?`?2O@? ~??=kZ@ ?D @PA88"@A@@&c`F@|0` w?<@|?`@  Z`@#?D P"('"@@`@|F`b@@π? t~ <?.?A8@?C|~~|@/{D PH"@@@xcp? 1߀ @_  F?! 3?6~G@?>?@?l PH"@@8p@@??|pF?A -?6pϏ@( 1Hb@@?Px|!?A@8??<?apC?A? p8&{?;-H??>>@ H @p|ǀ Ì>A?pG?@?C?1`@z ??kBT=??@g`DG@~8@FN!? ??À?`@*??kZ |>? @8 '  _???p?????@@ ??x@ 6666666666666666666600000011111166666666666666666666000000111111000000000000000000000000000011110000000000000000011111000000101000033330000000000011100000011010000333300000000022222222000100100033333000000002222002220001001100333330000000022220022000010011000333300000000222222222&&&1444411133331111111122:::::::!!!114<<11113311111100011:::::::991104<<11111111111100011::::::9991004<<1111111111110041199::999991104<<11111111111100444<999999991104<<1111111111111144<<<<9999!!!044<<1111111111144444<<<<<<\),0:(23613=\+256*23614>\+1),0 _"31999":z=ç:u=:o="8":"23609","20":"23658","8":"":"23606",z:"23607","124" 60:I=U7:32023}+I,""(I):I |RR="8150":TX="8330":P=O-U:Z:O::u;"10",z;" PARA O GRAVADOR ":N=z̰"10":װ".01","N*5":N:"200" "23296"="""260" Ҏ:"10","3";"ESCREVE O TEU NOME NO";"3";"TECLADO E PRIME":n$::"10","4";"ESTA BEM ESCRITO ? (S/N)";"6","15-n$/2";u;n$ ="N""210" "S"215 .I=U̱N$+U+U:"23295+I",(""+N$+"")(I)::I 1N$="":i="23297"̰"9e5":¾i""n$=n$+¾i:i  "1000" *#Z;Z,u;U;"K":w$=" ":j=uuz:z:a$=¾"23560":װ".01",o:a$="13"װ".1","32":b$="":w$=w$+t$("3"):j=u̱w$:b$=b$+(w$(j)w$(j)" "w$(j)""):j: 1+"23617",z:A$=°"14""23617",u:"890" >K(a$>"A"a$"z"w$(w$)"9"w$(w$)"0")w$(w$)="":a$=(a$+165) Cw$=w$+(a$a$" ") H a$="12"ƱW$-uw$=w$(̱w$-u) z#u;z,z;w$;u;"K";z,,:j lm=u: Lh"8400":"4","10";"VIDEOBASIC":a$="A PROGRAMACAO":YP="6":XP="7":L=U+U+U:YP,XP;a$:"8410" ~-12 ,u;:"8300":RR:"8400":"8300" A$,B$:1360P -7,z;:lm="16-(T$/2)":tx:'':lm=u ( :"8300" 2/13 ,9 ;"- - - - - -"''':150 < "8300" P.RR:"8400":T$:T$9000(#:1300 "9600":"8300":RR:"8400" N"8500":"54","52":"-19",z:z,"80":"86",z:"17","21";U;"LIMITE=3" >"100":xp=15:yp=u:t$="f212d11 C = 1 f212":"8250" Ai=u+ṵ"3":t$="f612d11 C = "+i+"f412d3VERDADE!f;01f:10f;21"  "8250":i <t$="f612d11 C = "+4+"f412d3AFALSO !f412":"8250" TRR 5st=Z:b=ṵ"4":"9640":i=z̰"21":o;i,"17",:i bɰ"4":"127",z:z,"175" 5BU"21",z;u;"C=CONTAD. N=NUMERO X=RESULT." ;lm="17":b="2"z,z;:t$="TRADUCAO AO BASIC":TX I=Ṵ"1E3":T$ GT$(u)="0"xp="t$(2)-48":yp="t$(3)-48":YP,XP;bɰ"3";T$("4") !T$(U)="#"t$(u)="<"9100# >ER=U Hb="4"T$(U)="2"IST"":800 :u,"18",:b$(̱b$/2)b$(b$/2+u)U,"18";U;"ERRO !":U,-o-o:"150":ER<"3"u,"18";U;"OUTRA VEZ..":"100":U,"18",:ER=ER+u:"3400" RER="3"LM=U:T$="TALVEZ SEJA MELHOR VOLTARES APASSAR O DESENVOLVIMENTO DOPROGRAMA E TENTA DE NOVO MASCOM MAIS CUIDADO.":8400 :TX:RR:ST=I:b=u:"3900" zTt$(u)="1292"(B)y="t$(u+u)-48":y,"17";:t$=t$(3):tx:BU9050Z# T$(U)="*"b=u"9050" 2I="26""118","36":"6",Z:Z,"70":"-26",Z tT$(U)"%"i ~#b=U+Ulm=u:rr:"8400":"8300" Bɰ"3""":RR <B FJ("BEM , ";N$'"AGORA PRIME ""R"" PARA EXECUTAR ");I$:I$"R"3910F "8400":"9640":b=UuZ:t$ =t$(u)="2"y="t$(u+u)-48":y,"17";:t$=t$(3):tx 6t$"5*""4200" @I$:ñI$"4180" J&i=u̱i$:i$(i)"0"i$"9"i:i$b T-u,u;u;" ERRO !!! ":"50":U,U,:"4160" h t$"% "b di=ṵ"10":i,u;i*i$:װ".01",i:i:"TECLA ""ENTER"" PARA VER O PROGRAMA ";I$:I$="R""4000" $T$:T$4900$ %"8400":LM=U:"8300":RR:"8400" 07,U;:LM=6:T$="ESCOLHE, "+N$:TX 11 ,6;"C CARREGAR O SEGUINTE";12 ,O;"PROGRAMA";13 ,6;"I INTRODUCAO";15,6;"E EXERCICIOS" #0:A$=:A$="I"1000 A$="E"3000  A$="C"8000@  5110 @#:A$="POE O GRAVADOR EM MARCHA" J8I=Z̰"29":װ".05","2*I":o,i;" @";i;" ~|";i;" \]" ^'i>"2"i<"29"U;O,i;A$(i-2) hi rG8,30;" ";9 ,30;" ";10 ,30;" " | 7:"" 'Y$=" PRIME UMA TECLA PARA CONTINUAR " N#0;6;2;1;1,0;Y$:.001wn,30 KY$=Y$(2)+Y$(U):.0004uQX,45-:.0006vIQ,557:""  8160 mJ=Ṵ"t$(2)-48":yp,xp;u;" ":xp=xp+"t$(3)-49":yp=yp+"t$(4)-49":yp,xp;u;u;" ":װ".1","25":j:  LC=3"9677":j=uz-u:"t$(3)-48","t$(2)-48";j;t$("4"̰"10") &jװ".5",U:"150" 0j: :"t$(u)="f""8200":t$=t$("5") D#t$(u)="d""8220":t$=t$("11") Nt$(u)"""8250" X l!T$:T$8330 :8300l v 0O:o:o+u:t$(u)=""p=t$(u+u):t$=t$("3") C=Z:U;lm; Hn=u̱t$:C=C+U:P;T$(N)t$(n)"";:T$(N)" ".001wn,40(:U "t$(n)=""c=z:u;lm;:"8390" (T$(N)=".".1}L,30:20 C=30C=Z:U;lm; N:Z:P=o-u: ЂPL=4:XL=248:YL=169:2:7::U+U,U;:3,3:PL;XL,Z:PL;Z,YL:PL;-XL,Z:PL;Z,-YL: rYG="(21-YP)*8-2":YS="L*8+3":XG="XP*8-4":XS="6+8*a$":XG,YG:XS,Z:Z,YS:-XS,Z:Z,-YS:U,-U:XS,Z:Z,YS: !4 t$:ñt$ !9Qt$(u)="t"yp="t$(3)-48":lm="t$(2)-48":xp=lm:yp,u;:T$=T$(4):tx !>t$(u)="<"T$(U)="#""9100" !C "8500" #(DYP=4:XP=4:U+U,XP;A$;YP,XP;B$:xs=a$:8410 : #Z)"200"B>"2":j=z̰"20":j,z;u,:j: #xs="(t$(2)-48)*8+2":XG="XP*8-2":YG="(21-YP)*8-2":YS="(t$(3)-48)*4+2":n=yst$(u)="<":XG,YG:XS,Z:n,YS:-n,ys:-XS,Z:-n,-ys:n,-ys:"xg+xs/2",yg+ys*"2":z,t$("4")-"48": #li=u̱t$:xp=xp+(t$(i)="d")-(t$(i)="s"):yp=yp+(t$(i)="b")-(t$(i)="a"):yp,xp;u;u;" ":װ".03","18":i: $F"AGORA, "+N$,"COMECEMOS O ESTUDO DO PROGRAMADE CICLO CONTROLADO.","" $U"DESEJAMOS ESCREVER UM PROGRAMAQUE IMPRIMA UMA COLUNA,A NOSSAESCOLHA,DA TABUADA","" $7" IMPRIME UMA COLUNA DA "," TABUA DE MULTIPLICAR" $Y"11 - FASE DE INPUT","QUAIS SAO OS ELEMENTOS NECES-SARIOS PARA O NOSSO PROBLEMA ?","" $L"O dado necessario e o numerode que desejamos obter osmultiplos","" %:"22 - FASE DE CALCULO","COMO OBTER OS MULTIPLOS ?","" %0u"Utilizaremos uma variavel queincrementaremos desde 1 ate10 e que sera multiplicada aonumero que indicamos","" %D:"43 - FASE DE OUTPUT","QUAL E O RESULTADO FINAL ?","" %N["O resultado sera a impressaodos 10 primeiros multiplosque tenhamos indicado","","" %"AGORA, "+N$,"TRANSFORMAREMOS EM ANALISE,PRIMEIRO NUM DIAGRAMA DE FLU-XO, E DEPOIS DIRECTAMENTE EMINSTRUCOES ","" %8"t83CONTADOR INICI.","#?10","t87 ELABORACAO ","#?1D" %P"t8;CONTADOR INCR. ","#?1D","t8?CONT<=LIMITE ?","IMPRIME ","04?RESULT. ","#823","2?50X","02ACONT.<=LIM ?","<<13","0=?S.","2A60C1030","04C FIM ","#813" % "*1 ","% " %"BEM, "+N$+"AGORA TENTA VOLTAR A ESCREVERO PROGRAMA COM BASE NO FLUXO-GRAMA.LEMBRA-TE DE NUMERAR AS LINHASDE 10 EM 10,COMECANDO NA LI-NHA 10." %q"OBSERVA COMO OS DADOS FORAMTEMPORARIAMENTE MEMORIZADOS NA VARIAVEL ;EMPREGA DEPOISA FASE DE OUTPUT","" &"BEM "+N$+"TAMBEM DESTA VEZ CONSEGUISTEESCREVER PERFEITAMENTE UM PRO-GRAMA DE CERTA DIFICULDADE,EM-PREGANDO UMA TECNICA FUNDA-MENTAL: O CICLO CONTROLADO." &4"" zuo"  pkj NZlBcA IMPRIME UMA COLUNA DA B TABUA DE MULTIPLICARZ# yTY CLA PARA CONTINUAR PRIME UMA TECAR }x;*$$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >>>  > >> x !X 6# x !@@~ #...................................  D=0    EDICOES LATINAS  f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 ڰ"1":ٰ"7":"1"::"31999":"10",;"ESTOU CARGANDO VIDEOTEST":"23609","20":"23658","8":ټ::"":""32000},768:"23606",ç:"23607","124":""Q$():""16384@,2048 2:DISP=(23636T\*256+23635S\-23755\):copy=23760\+DISP:cls=23772\+DISP:attr=23813]+DISP:SCROLL=23828]+DISP iڰ"7":ټ:9550N%:attr:"14",ç;ۼ;" PARA O GRAVADOR ":"9040":"200":"9010" kP="7":I=ç:Y="14":A$="VIDEOTEST ":"9050":N="2"̰"28":"9510":N>"10"N<"21"y,N;A$(N-"10") ($.03{u\,N*2:N:95200% <"9000":"3020"  "9000" "9050":ATTR:0;"11","6";"PRIME";"14","6";"R REPETIR";"16","6";"C CARREGAR O VIDEO-JOGO";"18","6";"F FIM" ="R"0:"30" ="C"0:"800" ="F"33804 :5,14;"FIM";13 ,1;"Guarda a cassete na sua caixa";14,1;"e desliga a alimentacao";15,1;"do teu SPECTRUM.",,"Ate a proxima,";17,18;"VIDEOBASIC":5,0:"250": &"510"  57:7:"23675","88":"23676","127": *LY=8:A$=" POE EM MARCHA O GRAVADOR ":N=228:9510&% 43N>2N<291;Y,N;A$(N-2) >.01z# =,2*N:N HG8,29;" ";9 ,29;" ";10 ,29;" " p ٰ"7":"" ***FLASH DE RESPOSTAS*** *s=0:x=15:B$="------------" ,Y(15):q=115:y(q)=q:q \q=115:12 ,11 ;q$(q,66B):20:.2~L,(q+10 ):q 9050Z#:3490 ***bloco principal*** .w=115:z=(*x+1):q=y(z)  x=x-1 n=zx:y(n)=y(n+1):n -15,1;5;"PERGUNTA N. ";w &c=13 :t=2 +II=1:PP=5 0g17,1;q$(q,231);18,1;q$(q,32 61=):"RESPOSTA = ";i$ : i$="" D7i$q$(q,66B65A+q$(q,1))3250 Ns=s+t:3220 X3400H :9050Z# bw l***pontuacao*** {618,2;"A TUA PONTUACAO E ";s;" SOBRE 30" 3620$ g9050Z#:12 ,2;"MUITO BEM, ";n$;15,10 ;i$;17,19;"ESTA CERTO." 3540 :3160X ERRO .5,-20:9050Z# 013 ,2;"""";i$;""" estas enganado." 9000(# t=23320 [9050Z#:13 ,3;"A resposta correcta e:";15,11 ;q$(q,66B) 3160X $**AJUDA PARA A SEGUNDA TENTATIVA** II=2:PP=5:9050Z#:t=1:Q$(Q,1)<313 ,3;"A RESPOSTA E MUITO CURTA";15,3;"NAO POSSO AJUDAR-TE":9041Q#:150:9050Z#:31200 %13 ,1;"VE UMA PISTA:" \15,18;q$(q,66B);b$(3̯q$(q,1));q$(q,65A+q$(q,1)) -20,8;1;"TENTA DE NOVO!" 31200 ****CLS DE LIMPEZA*** 4 9550N% >***pulsa tecla*** H 9000(# p***INPUT controlado*** z""3450z =""3460 k$=:  VISUALIZACAO DO BLOCO :YY=(*3)*3:XX=(*5)*6+1 (YY,XX)183550 R1;II;PP;YY,XX;" ";YY+1,XX;" ";YY+2,XX;" "  ***comentario final*** 13 ,4;N$;"," $s<1515,1;"PARA MELHORARES, FAZ UMA REVISAO";17,11 ;1;"VIDEOBASIC":9041Q#:200:500 .8s>2215,4;"muito bem, finalmente!" 8rn=18:.1}L,26:n:a=1:n=14:.15~,26:.1}L,30:n B!I=0255:SCROLL:I L 500  3650B #(Y$="PRIME UMA TECLA PARA CONTINUAR ":S$=Y$:I=131:#ç;6;2;1;1,ç;Y$:.001wn,30:"""": #)QY$=S$(I)+S$(1I):.0004uQX,45-:.0006vIQ,557:"""": #* I:"9000" #2."23296"="127"N="23297":N$="":"9012" #3 "9014" #4N="127""9020" #5N$=N$+¾N:N=N+"1":"9012" #6R9550N%:"10","5";"ESCREVE O TEU NOME NO TECLADO E PRIME " #7ON$:"50":9550N%:"11","4";N$;"13","4";"ESTA BEM ESCRITO ? (S/N)" #8="N""9014" #9="S"N$=N$+" ":"9019" #: "9016" #;FN="1"̱N$:"23296"+N,N$(N):N:"23296"+N,"127":"23296","127" #< #GP="6":I=0 #H\N="1"̱T$:P;I;X,Y;T$(N):T$(N)" ".001wn,40(:Q=*10 :E=1Q:E #I1Y=Y+1:Y=31Y=1:X=X+1 #JT$(N)="."װ".1","30":"20" #KN:P="7":I=0: #Q N=ç̰"10":װ".01",N*"5":N: #["2":ڰ"7":9550N%:"3","3":ڰ"4";"248",ç:ڰ"4";ç,"98":ڰ"4";-"248",ç:ڰ"4";ç,-"98":3,0:4;0,174:251,0:4;0,175: %&O7;3;Y,N;" {|";Y+1,N;2;" }_";Y+2,N;" []": %0FY,29;" ";Y+1,29;" ";Y+2,29;" ": %N<L=23624H\:CC=(L/8):23820 ],CC*8+CC %XH9 ,0;:cls:21,31;" ":.001wn,30: &H&X=23760\24000]:X,X:X & шMPERMITE-TE LER O CONTEUDO DEUMA POSICAO DE MEMORIA PEEK NUMERO QUE IDENTIFICA UMA PO-SICAO DE MEMORIA DIRECCAO QUANTAS POSICOES DE MEMORIAPODE DIRECCIONAR O Z80A 65536 VARIAVEL QUE CONTROLA O NUME-RO DE CICLOS EFECTUADOS CONTADOR DADO QUE PROPORCIONA UMAFUNCAO ARGUMENTO MEMORIA EM QUE RESIDE O IN-TREPRETE ROM DISPOSITIVO PARA A CONSERVA-CAO DE DADOS MEMORIA QUANTOS 'K' DE MEMORIA OCUPA AROM DO SPECTRUM ? 16 QUAL E O RESULTADO DA FUNCAOSGN -.1 -1 FUNCAO QUE CALCULA O VALORABSOLUTO DE UM NUMERO ABS FUNCAO QUE AVERIGUA O SIGNODO SEU ARGUMENTO SGN CONSTANTE NUMERICA CUJO VALORE 3.14159265... PI CALCULA O VALOR DA RAIZQUADRADA SQR CALCULA O VALOR INTEIRO DE UMNUMERO INT ESCREVE O RESULTADO DA FUNCAO:INT (-2.4) -3 isop\l\tt]crol]l N p (#yA VIDEOTEST SPRIME UMA TECLA PARA CONTINUAR Y A TECLA PARA CONTINUAR PRIME UMAsxB ------------N   zc tICAR }[ $$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >ANH<@Ha A@@@O#( @00  @H " O @H?BI?@@H <@HQ" @@ H  ?8P @"0 Y@rNHBI<@HA@<@H"@l@@a F@ @A?#4?  $" dQHk<@HB<@HB@ a1ApBC?`"p4RT @H"@ AH<@H@<@Hx0a`0`E "L" FH<@H rNH1_Hr 0"D  "  @"AH<@H1< a1(   VIDEO-JOGOe p g 1000 _p=6:p dy=087W5.89 nEx=(y*1.4571:@):x1=255-2*x:y1=175-y*2 xCx,y:p;x1,0:p;0,y1:p;-x1,0:p;0,-y1 y 9  p=6:p p y=025516 ?0,y*.68.z:p;255-(y),175-(y*.68.z) y1=240-y M255,175-y1*.68.z:p;-255+y1,(y1*.68.z)-175 y 9 600X  l=1:i=p$ x=130 i40(.01z# =,20 X ZB=0200::::1:2:3:4:5:6:7:B   INPUT DO NOME  #23296[127500 N$="" $X=23297[23296[+30 X=127  N$=N$+(X) X  MY=3: P$=" ESCREVE O TEU NOME NO TECLADO E PRIME "  210 N$ 23296[,127 X=1̱N$ 23296[+X,N$(X) X &X+23296[,127 0>Y=8:P$=" ESTA BEM ESCRITO, "+N$+" ? @ S/N":210 : =""570: D="S":600X: N :500 X .............  b3,3:4;249,0:4;0,169:4;-249,0:4;0,-169 l   PRIME UMA TECLA  %1:502 *( F$=" PRIME UMA TECLA PARA CONTINUAR " 4 #0;1,0;F$ 9(.01z# =,20:.01z# =,30 >/ =""F$=F$(2)+F$(1):8204 C"" H  programa principal 5:5:5:  350^ 2:6:  600X  450 P$=" FINALMENTE, "+N$+"@" Y=3:210 P$="VAMOS FALAR DO VIDEO-JOGO.ESTA VEZ PROPONHO-TE UMA DES-GARRADA PERSEGUICAO ENTREALGUM LOUCO ESPIRITO ENFADADOE TU MESMO." $!Y=5:210:800  .nP$="ENCONTRAS-TE NUM CAMPO DEMINAS, JUNTO A ALGUNS FASTI-DIOSOS FANTASMAS QUE QUEREMVER-TE MORTO." 8Y=11 :210 BB P$="PARA FAZEREM DAS SUAS,VAO TEN-TAR SALTAR PARA CIMA DE TI!" LY=16:210 V.1}L,20 ` 800  j95_:600X t4 P$=" @@ ESTES SAO OS FANTASMAS !!!" Y=3:210 "P$="@@@ @@ E ESTE ES TU!"  210  800  sP$="O OBJECTIVO DESTE JOGO E FAZERCAIR OS FANTASMAS NAS MINAS QUE ESTAO DISTRI-BUIDAS PELO CAMPO."  Y=Y+2  210 WP$="PARA O CONSEGUIRES, LEMBRA-TEQUE OS FANTASMAS SE MOVEM EMLINHA RECTA PARA TI." Y=Y+2:210  800  2:150 X=120 3,X;" " #.01z# =,X+5 ( 5,X;" " -.01z# =,X+10 27,X;" " <.01z# =,X+15 FX P 800  ZiP$="SE REALMENTE ESTIVERES ATRAPA-LHADO,PODES PREMIR UMA TECLAQUE TE PERMITE ESCAPAR, MAS SOUMA VEZ." dY=9 :210 n 800  xw160:P$=" A CONTINUACAO TE EXPLICARAQUAIS SAO AS TECLAS DO JO-GO, PARA QUE POSSAS COMECARDE SEGUIDA." Y=3:210 B=110 W8,4;"8 9 0";11 ,4;"I O P";14,4;"K L ENTER" $18,4;"~O~ PARA FUGIR"  .5,B W8,4;" ";11 ,4;" ";14,4;" " (18,4;"~O~ PARA FUGIR" .5,B+5 B 4P$="ESTA TUDO CLARO ? S/N":Y=20:210 =""1510 ="S"1535 :600X:1070. :P$=" POE O GRAVADOR EM MARCHA ":Y=20:210  6 L=254 L=L-128*(L>128) L>63?2000 ".01z# =,20:*7 , 1540 f23624H\,45-:5:5:0::8:8:8:0,0;:"" 0,0;:"" s(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:317997| ""318008| -23675{\,88X:23676|\,127 23658j\,8 1000 # FPARA O GRAVADORp W9dliNIPVAMOS FALAR DO VIDEOJOGO.ESTA VEZ PROPONHO-TE UMA DES-GARRADA PERSEGUICAO ENTREALGUM LOUCO ESPIRITO ENFADADOE TU MESMO.0CAR 8| :)>ROBERTO$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >kcU<~~< 0xܼxЈ<~  @0pp0  ~<@  LSCREEN @@@@F???b/p @ @ @  π p  @ @ @ǀ p    =? 19|?3'???yO`@~??x? ??<BBBfBBfbBDB"`A?@BZBBZRBBB 0"@~?@~B|BBJ~BB "B|BBB@BBFBDB?"B?|BBx< ??9x? ?O??1??Xxp@?_H!??I?N~#vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvsssssssssssvsrppppppppppppppppppppppppppsssssssppppppssssssssssppppppppssssssssssssssssssssssssppppppppssssssssssssssssssssspppppppppppsssssssspppppppssssssppppppppppssssssssspppppppssssssppppppppppssssssssppppppppppsspppppppxxp00000000000000ppppppppppppppPPxpppppppppppppppPPpppppppppppppppppppppppppppppppppppppppptttttttpppppppppppppppppppppppptttttttttppppppppppppppppppppppptttttttttppppppppppppppppppppppptttt||tttppppppppppppppppppppppptttt|||ttppppppppppppppppppppppptttt|||ttppppppppppppppppppppttttttTTTTttppppppppppppppppppppttttttTTTTtpppppppppppppppppppppqqqtttTTTtqqppppppppppppppppppppqqqtttttttqqpppppppppppppppppppqqqqqqqqqqqqqpppppppppppppppppppqqqqqqqqqqqqqVIDEO-JOGO%bxREC=300, *23562 \,1:236099\,3 23658j\,8   5D$(1):G$(2):T$(14):N$(1)  F1=25 /2:7:1:0:0: (.5,20 2 S1=0 <'6;1;;" " Zx14,0;5;3,0;" COMO TE CHAMAS ? ............. ";6;1;3,18;T$ dMT$(1)<"A"T$(1)>"Z"#1;14,0;7,0;0;6;1;" QUE TIPO DE NOME E ESSE ? TENTA DE NOVO, TERAS MAIS SORTE!! ":I=5020-1:.02{# =,I:.02{# =,I-1:.02{# =,I-2:I:90Z n6I=13 1-1:T$(I)=" "T$(I)="?":I x81:5:0:0:0:2: D$(1)="N"400 A0:5:0:1:0:0:2: @4;0;0,0;"" {I=120:I,0;4;0;"";1;5;"";4;0;"":I A21,0;0;4;"" h4:0,0:255,0:0,175:-255,0:0,-175 923624H\,64@+16+7:.1}L,1 JP(8):L(8):M1=0:C1=8:F1=25:C3=0: I=1F1 H((*19)+2),((*22)+2);3;0;"" I I=18 L(I)=((*17)+2) P(I)=((*22)+2) "(L(I),P(I))69E650 L(I),P(I);7;"" I L1=((*19)+2) P1=((*22)+2) L2=L1:P2=P1  (L1,P1)69 E730 L1,P1;4;""  K6,26;4;1;"PONT.";9 ,28;5;S1  b#1;0,0;1;0;6;1;" A TUA JOGADA " *=""810* 4 D$=:"" H M1=M1+1 R'F1>15S1>0S1=S1-1 \F115S1=S1+1 f%D$="8"d$="I"D$="K"P2=P1-1 -D$="0"D$="P"D$=(13 )P2=P1+1 %D$="9"D$="8"D$="0"L2=L1-1 -D$="L"D$="K"D$=(13 )L2=L1+1 D$="O"1370Z  D8=(L2,P2) %D869ED868D1440 L1,P1;5;"" L1=L2:P1=P2 L2,P2;4;"" I=18 .05|L,I*3 L(I)=013302  L8=L(I)  P8=P(I) $ L9=L1-L(I) . P9=P1-P(I) BP9<0P(I)=P(I)-1 LP9>0P(I)=P(I)+1 VL9>0L(I)=L(I)+1 `L9<0L(I)=L(I)-1 j 1180 t)(P9)ȽL9P9<0P(I)=P(I)-1 ~)(P9)ȽL9P9>0P(I)=P(I)+1 )(L9)ȽP9L9<0L(I)=L(I)-1 )(L9)ȽP9L9>0L(I)=L(I)+1 D8=(L(I),P(I)) D8=67C4000 D8=68D1480 D871G1270 L(I)=L8:P(I)=P8  13302 "D8=69EL8,P8;5;"" &D8=69EL(I),P(I);7;""  D867C13302 C1=C1-1 L(I),P(I);5;"" (L(I)=0 2/(*15)=4C1>1I=I-1 7I <59 ,28;4;1;S1;0;" " FC1=01520 P 800  ZC3=C3+1 dC3=11420 n 6000p xM1=M1-1  800  L1,P1;5;"" L1=(*19)+2 P1=(*22)+2 L2=L1:P2=P1 L1,P1;4;""  1020 L1,P1;5;"" D8=71G1500 z#1;0,0;3;0;" LAMENTO (he! he!) ESTAS MORTO ( sinto muito ! ). " :100d  1560 L(I),P(I);7;"" L8,P8;5;"" q#1;0,0;5;0;" EH ! EH !, UM FANTASMA MATOU-TE ! ! !(je je je!!!)":100d  1560 [#1;0,0;1;5;"BRAVO!! MUITO BEM JOGADO ! ! ! ":100d .4,26;1;7;"ULTIMO" #1;0,0;2;6;" FIZESTE ";M1;" JOGADAS",:M1=1#0;0,21;8;" "  1710 2,30:"" #1;1,0;3;6;" ";1,0;" SOBREVIVESTE A ";M1;" JOGADAS" "(4,3;" " #(5,3;"QUE TAL SE JOGARMOS" $(6,3;" " %)7,3;" OUTRA PARTIDA ? " &(8,3;" " '(9 ,3;" S/N " ()10 ,3;" " ,1:0:D$= 6D$(1)="N"1900l @D$(1)="S"1690 r 1580, :S1=0  400 F1=F1-5  C1=8 3,10  2"OS PROXIMOS FANTASMAS NAO SERAOTAO FACEIS..." )C3>1"MAS USARAS NOVAMENTE "  C3=0 F=020 g7,0+F;2;" ";9 ,F;" ";11 ,F;" ";13 ,F;" " &10 ,9 +F;" ";1;""  .1}L,F XF b 400 l X=2086V 236066\,X m10 ,3;"POE";10 ,7;"EM MARCHA";10 ,17;" O";10 ,20;"GRAVADOR" X  *7 L=254 L=L-128*(L>128) L>63?2500  1970 !5:5:5::"" 2999  L(I),P(I);6;"" .06|u\,5 L(I),P(I);6;"" .06|u\,15 L(I),P(I);2;"" .06|u\,25 L(I),P(I);2;"" .06|u\,35# S1=S1+10 "L(I),P(I);5;0;"" L8,P8;5;""  V=120  *7 .01z# =,*40( V  0 7#0;0,0;"E USASTE ~O~ UMA VEZ ! " 1:100d:  X9 :3,3:4;248,0:4;0,169:4;-248,0:4;0,-169:4 ]E5,1;6;1;"TENS O RECORDE DO DIA " bN15,15;s1:1,20:rec=s1:1:100d:5 #F %t(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:317997|: %!-236066\,86V:236077\,123{ %&"CAR"318008|,968 %(9 :0:0: %0rec=10 %:X=2086V2 %?236066\,X %D10 ,8;"PARA";10 ,13 ;" O";10 ,16;"GRAVADOR ";12 ,0;" PRIME UMA TECLA PARA CONTINUAR " %N.00003q{i*X,30:X %XpX=04000:1:7:6:5:4:3:2:1:0:=""X %]-23675{\,88X:23676|\,127 %b 1 e,aX%  MARIO LUIS???  $ E+ +  -CAR 8|o(ROBERTO$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >kkcU 8l\|8<~  @ `` <~~<~<@  $DD$\),0:(23613=\+256*23614>\+1),0 317997|:7:7:7:0:0::23658j\,8:236099\,20:20,0;:""318008|:236066\,86V:236077\,123{ P#0;0,0; " PARA O GRAVADOR " 23624H\,579 -n=1502:.01z# =,*60<:n ( 1000 * 8990# - SUMARIO 21::90102# 7N.6,21:P$=" no numero 5 ":k=4:9020<# 8;p$="VIDEOHARDWARE: ":K=7:9020<# 9:p$="o hardware do teclado ":k=8:9020<# :9p$="do Spectrum ":k=9 :9020<# ;<P$="VIDEOBASIC-A LINGUAJEM: ":k=11 :9020<# <;p$="CHR$ - CODE - INKEY$ ":k=12 :9020<# =:p$="FOR - TO - STEP - NEXT ":k=13 :9020<# ><p$="VIDEOBREAK: ":k=15:9020<# ?;p$="concerto de bytes ":k=16:9020<# @<p$="VIDEOBASIC-A PROGRAMACAO: ":k=18:9020<# A;p$="o ciclo FOR - NEXT ":k=19:9020<# K<p$="VIDEOJOGO: ":k=21:9020<# L;p$="Cubo Magico ":k=22:9020<# _ 150 d i1000:8990#::8994"#:L=10 :v=10 :a$=" Conclusao,":3000 :l=16:v=18:a$="VIDEOBASIC.":3000 :9999':10000' 2000 ,38&,64@,38&,79O,-2,38&,79O,38&,100d,-1,38&,100d,44,,112p,-2,44,,112p,72H,114r,-1 672H,114r,94^,118v,-2,94^,118v,134,110n,-1,134,110n,165,116t,-2 @165,116t,197,111o,-1,197,111o,222,107k,-2,222,107k,220,90Z,-1 J220,90Z,215,70F,-1,215,70F,190,63?,-2,190,63?,160,65A,-2 T160,65A,130,60<,-2,130,60<,115s,63?,-2,115s,63?,90Z,59;,-2,90Z,59;,60<,65A,-2 ^*=2,0,0,0,0 ROTULO ROTATORIO y$=" PRIME UMA TECLA PARA CONTINUAR ":s$=y$:i=131:#0;6;2;1;1,0;y$:.001wn,30:"""": Qy$=s$(i)+s$(2i):.0004uQX,45-:.000>vIQ,557:"""": i:1000 !ROTINA MAQUINA DE ESCREVERR Zl,v;"";:q=1̱a$:a$(q);:a$(q)" ".0005vn,40(:m=1̥*5:m 4a$(q)=".".2~L,0:23692\,255 q: # OS UDG #4:8991#:n=063?:a:"a"+n,a:n: #00,31,16,16,18,16,16,491,0,240,8,8,72H,8,8,204,80P,144,63?,32 ,63?,2,2,2,10 ,9 ,252,4,252,64@,64@,64@,2,4,4,8,8,568,121y,1,64@,64@,64@,64@,64@,64@,192,192,2,2,2,2,2,2,14,62>,64@,64@,124|,12 ,12 ,4,4,0 #!HOMBRECILLO #"'n=302-1:10 #$t(n/2)=(n/2)17,n;" ";18,n;" ";19,n;" ":.01z# =,30:n:8998&# #%Z17,n;" ";18,n;" ";19,n;" ":.01z# =,40(:n:8998&# #& #'RECUADRO #(aa,bb;p$:aa=(21-aa)*8-2:bb=bb*8-2:cc=p$*8+4:bb,aa:cc,0:0,12 :-cc,0:0,-12 :bb+1,aa-1:cc,0:0,12 : #27aa=2:bb=11 :p$="VIDEONEXT":9000(#: #;ROTULOS ENTRANTES #<k=229050Z# #FLn=1̱p$:k,32 -n;p$(N):.002xn,(k-3)*n/8:n: #Z[n=1̱p$:#0;0,32 -n;p$(N):.002xn,(k-3)*n/8:n: ':n=1502:.01z# =,*60<:*7:n: 32'aVLkPCubo Magico Y PRIME UMA TECLA PARA CONTINUAR S PRIME UMA TECLA PARA CONTINUAR lv  ` A VIDEOBASIC.CAR 8|ƀl  SOFTIDEA(COMO)T.031-240959 $$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >