ZXTape! FOR NEXT Z { Zf(23613=\+256*23614>\),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","5";"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"  ="F" ="I"rc=PN: ="C"f$(pn,u)="#""8000" ="C"PN=rc:  "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: &H>*"M";1;"INTROGENER"1:*"M";1;"INTROGENER" zuơ R#O GRUPO FOR..NEXT> #O GRUPO SERVEPARA REALIZAR UM CICLO AUTOMA-TICO NUM PROGRAMA.% %A SUA FUNCAO CONSISTE EM COLO-CAR TODOS OS PARAMETROS INDIS-PENSAVEIS PARA A ELABORACAO DEUM CICLO ():& &* VALOR INICIAL; * VALOR FINAL; * INCREMENTO; * FIM DO CICLO.% %ESTE E O CASO MAIS COMUM:& &10 FOR I=1 TO 10 STEP 1 20... 30 NEXT I& &...LE-SE: 10 PARA I QUE VARIA DE 1 A 10COM O PASSO (STEP) 1 20 (INSTRUCAO A EXECUTAR) 30 O PROXIMO .% %A INSTRUCAO COMPREENDIDA ENTRE E EXECUTA-SE10 VEZES, E MAIS, A VARIAVELNUMERICA E INCREMENTADAEM CADA CICLO, COMECANDO EM1 (FOR), E ACABANDO EM<10>(TO),COM O PASSO<1>(STEP);A VARIAVEL TOMA OS VALORES1..2..3.. ETC, ATE <10>,CONTINUANDO ENTAO A EXECUCAOA PARTIR DO .% %NATURALMENTE, TODOS OS VALORESPODEM ESTAR FORMADOS POREXPRESSOES, E DECERTO, CONTI-DOS EM VARIAVEIS NUMERICAS,SEGUNDO A LINGUAGEM . A INSTRUCAO PODE REPETIR-SENUMEROSAS VEZES, E E LIVREDE ACEDER A VARIAVEL DECOMANDO EM QUALQUER MODO. %AQUI VAO ALGUMAS OBSERVACOES: * SE SE OMITE , SUPOE-SEO VALOR <1>. * NO SPECTRUM, OS NUMEROS SU-PERIORES A<65535>, OU INFERIO-RES A <0>, SAO MEMORIZADOSDE MANEIRA APROXIMADA; PORTAN-TO, PODE ACONTECER QUE UM MI-NIMO ERRO DE NUMEROS, PROVOQUEA EXECUCAO DE UM CICLO,POR EXCESSO OU POR DEFEITO.% %* NO CASO DA VARIAVEL DE CO-MANDO COMECAR COM UM VALORQUE EXCEDA O LIMITE, O CICLO(LOOP) NAO SE EXECUTARA.POR EXEMPLO:& &10 FOR I = 3 TO 2& &* OS INCREMENTOS PODEM SERPOSITIVOS, NEGATIVOS, INTEIROSOU DECIMAIS. * TANTO COMO ,PODEM ESTAR CONDICIONADOS PORSENTENCAS , DE FORMA QUENAO SEJAM SEMPRE EXECUTADOS.%%O NOME DE UMA VARIAVEL DE CO-MANDO, DEVE SER COMPOSTA PORUMA SO LETRA, E PODE SERALTERADA PARA ACELERAR A EXE-CUCAO DO CICLO. * PODES UTILIZAR , PARASAIR DO CICLO, MAS NAO PARAENTRAR ! * E POSSIVEL OBTER CICLOSINFINITOS USANDO ;NES-TE CASO, DEVEMOS PREVER UMAFORMA DE SAIDA, POR ALGUMMETODO QUE JA VIMOS ANTERIOR-MENTE. NO EXERCICIO SEGUINTE,PRATICAREMOS COM ESTEIMPORTANTE GRUPO DEFUNCOES.# #LeaAA'l c AO GRUPO FOR..NEXTT TECLA PARA CONTINUAR PRIME UMA N~CAR }($$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" > #O GRUPO SERVEPARA REALIZAR UM CICLO AUTOMA-TICO NUM PROGRAMA.% %A SUA FUNCAO CONSISTE EM COLO-CAR TODOS OS PARAMETROS INDIS-PENSAVEIS PARA A ELABORACAO DEUM CICLO ():& &* VALOR INICIAL; * VALOR FINAL; * INCREMENTO; * FIM DO CICLO.% %ESTE E O CASO MAIS COMUM:& &10 FOR I=1 TO 10 STEP 1 20... 30 NEXT I& &...LE-SE: 10 PARA I QUE VARIA DE 1 A 10COM O PASSO (STEP) 1 20 (INSTRUCAO A EXECUTAR) 30 O PROXIMO .% %A INSTRUCAO COMPREENDIDA ENTRE E EXECUTA-SE10 VEZES, E MAIS, A VARIAVELNUMERICA E INCREMENTADAEM CADA CICLO, COMECANDO EM1 (FOR), E ACABANDO EM<10>(TO),COM O PASSO<1>(STEP);A VARIAVEL TOMA OS VALORES1..2..3.. ETC, ATE <10>,CONTINUANDO ENTAO A EXECUCAOA PARTIR DO .% %NATURALMENTE, TODOS OS VALORESPODEM ESTAR FORMADOS POREXPRESSOES, E DECERTO, CONTI-DOS EM VARIAVEIS NUMERICAS,SEGUNDO A LINGUAGEM . A INSTRUCAO PODE REPETIR-SENUMEROSAS VEZES, E E LIVREDE ACEDER A VARIAVEL DECOMANDO EM QUALQUER MODO. %AQUI VAO ALGUMAS OBSERVACOES: * SE SE OMITE , SUPOE-SEO VALOR <1>. * NO SPECTRUM, OS NUMEROS SU-PERIORES A<65535>, OU INFERIO-RES A <0>, SAO MEMORIZADOSDE MANEIRA APROXIMADA; PORTAN-TO, PODE ACONTECER QUE UM MI-NIMO ERRO DE NUMEROS, PROVOQUEA EXECUCAO DE UM CICLO,POR EXCESSO OU POR DEFEITO.% %* NO CASO DA VARIAVEL DE CO-MANDO COMECAR COM UM VALORQUE EXCEDA O LIMITE, O CICLO(LOOP) NAO SE EXECUTARA.POR EXEMPLO:& &10 FOR I = 3 TO 2& &* OS INCREMENTOS PODEM SERPOSITIVOS, NEGATIVOS, INTEIROSOU DECIMAIS. * TANTO COMO ,PODEM ESTAR CONDICIONADOS PORSENTENCAS , DE FORMA QUENAO SEJAM SEMPRE EXECUTADOS.%%O NOME DE UMA VARIAVEL DE CO-MANDO, DEVE SER COMPOSTA PORUMA SO LETRA, E PODE SERALTERADA PARA ACELERAR A EXE-CUCAO DO CICLO. * PODES UTILIZAR , PARASAIR DO CICLO, MAS NAO PARAENTRAR ! * E POSSIVEL OBTER CICLOSINFINITOS USANDO ;NES-TE CASO, DEVEMOS PREVER UMAFORMA DE SAIDA, POR ALGUMMETODO QUE JA VIMOS ANTERIOR-MENTE. NO EXERCICIO SEGUINTE,PRATICAREMOS COM ESTEIMPORTANTE GRUPO DEFUNCOES.# #FOR EX. >   EDICOES LATINAS  f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 "31999":z=ç:u=::"23609","20":"23658","8":"":"23606",z:"23607","124":ڰ"7":z::ڰ"8":u;"10",z;" PARA O GRAVADOR ":I=Z̰"10":װ".01","I*5":I dCEN=Z:OP=U:"100":a="127" i"23296"=a"160" n:"10","5";"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 (I=U:PN=U:A$="FOR.. NEXT...":"8410" $ "8500" ~"8075":E"1000" @/A$=" POE EM MARCHA O GRAVADOR ":"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:""  8150 7"8400":7,U;:T$=" ESCOLHE, {:":8330 E=Z:11 ,6;"F FIM";13 ,6;"E EXERCICIOS";15,6;"C PASSAR A PARTE";16,6;" SEGUINTE"  ="F" ="E"I=PN:E=U: ="C"I=I+U:PN=I:  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 l"u'u;:I=I9999':T$=F$(I) v%8330 :n<31T$(N)="" I c=Z:N=U̱t$ "T$(N)="%"8150:"8400": T$(N)="{"T$=N$:"8330" T$(N)="}"'U''" ";: T$(N)=""P="8": .T$(N);:OPT$(N)" ".001wn,40(:U +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":"124-XL/2","142":XL,Z:Z,YL:-XL,Z:Z,-YL:U,-U:XL,Z:Z,YL:5,5;"exemplos e exercicios";8,U;: ! t$:ñt$ !cenu;"16-t$/2"; ! "8330":"8450" !5J=U+a9 +a:j,u;6+(a=10 ),a$:j: ! A=U+U:J="18"̰"24"6:208-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: !4 INTER !9-CEN=Z:"9400":"14",U;:"8450":"8150" !>Aa$=" ":"8400":ڰ"4";"4","91":ڰ"4";"246",z !4a="10":"8470":a=Z:"8470":T$:t$="""8740" !:"5","16-t$/2";:"8330":I=Z̰"50"Ͱ"5":װ".01",I:I !"14",U;:"8450" " "8150" " "8600" "$u,u;:T$="AGORA, "+N$+"":"8330":"3",u;:T$="EMPREGA O TECLADO COMO APREN-DESTE NAS LICOES ANTERIORES,E ESCREVE AS ORDENS QUE TE VOUPEDINDO.":"8330" "`"8150":cen=u:"8470":ER=Z "e "9530" "j b$:ñB$ "t"14",u;:"8450" "#u+U,u;ٰ"6";b$;:x="23688/2-U" " i=u̱b$ "&b$(i)=""b$(i)=""B$(I)=""x=x+u "ER="9"c$=b$(i):"9040" #(#z;z,z;u;"K":z:c$=:"" #2!i=uC$<""C$=(C$+165) #4+I>UB$(I-U)=""C$<""C$=(C$+"165") #n\"5",x;a$(̰"(10X<21)+(30-X)*(X>20)"):c="(*3+2)"i=u:c=uj=ux:"5",j;U;" ";c$; #s3c="2"j=u+(ER="9")̰"4":j,u,a$;j+u,x;U;c$; #xKc="3"u+U,u;ٰ"6";c$;:j="23688-2"x-u:"5",j;U;c$;z;" ";°"8"; #}/c="4"j="9"̰"6"-u:j,u,a$;j-u,x;U;c$; #U:j #c$b$(i)u;"9","10";" ERRO !";"5",X;C$:U,"-18":"50":er=er+u:er<"3""9","8";U;"VOLTA A TENTAR !":"50":װ".1","20":"9","5",A$:"9000" #Wer="3""8470":U,U;7;U;"ESTA E A INSTRUCAO EXACTA:":er="9":"8860" #X="33-23688" #.1}L,i*3 #ERɰ"9"ER=Z #Li:er"9","11";u;"EXACTO !":"8150":J=Ṵ"20":J,U;J="10",A$:J #REr"100":"8","5";"VOLTA A TENTAR !":װ".5","32":"8470":ER=Z:"8850" # "8810" $ D A T A  ${" ESTUDEMOS AGORA ALGUNS CI-","CLOS CONTROLADOS DUM PROGRAMA,","EMPREGANDO AS INSTRUCOES","RECEM APRENDIDAS.","" %"FOR I=1 TO 10:PRINT I:NEXT I","EIS AQUI UM CICLO CONTROLADO","NA SUA FORMA MAIS SIMPLES.","IMPRIME OS NUMEROS DE <1> A","<10>.","" %!"FOR J=4 TO 1...","APRESENTAMOS AQUI UMA INSTRU-","CAO ERRADA, DADO QUE O STEP E","CONSIDERADO <1> E O CICLO","NUNCA SE REALIZARA.","" %&u"FOR A=10 TO 1 STEP -1","NO ENTANTO, ESTA E A FORMA","CORRECTA PARA UM CICLO COM IN-","CREMENTOS NEGATIVOS.","" %("FOR I=A+4 TO B/(C+D) STEP .1","E POSSIVEL EMPREGAR EXPRESSOES","ARITMETICAS, PARA SE INCREMEN-TAR ","OS PARAMETROS NECESSARIOS.","" %+{"FOR I=1 TO 10000:NEXT I","ESTA SEQUENCIA, DE APARENCIA","INUTIL, SERVE PARA CRIAR RE-","TARDAMENTOS NO PROGRAMA.","" %0"" %: INTER %D<"I=210","ESCREVE UM CICLO COM"," QUE VA DE 2 A 10","" %NT"I=100-2","ESCREVE UM CICLO NO QUAL"," ASSUMA OS VALORES:","10,8,6,4,2,0","" %XS"I=2-3-2.5","ESCREVE UM CICLO NO QUAL"," ASSUMA OS VALORES:","2,-0.5,-3","" %bH"A=330","ESCREVE UM CICLO INFINITO"," NO QUAL PERMANECA=<3>","" %lX"I=XYC","ESCREVE UM CICLO EM QUE ","PASSE DE A COM","INCREMENTOS ","" &G"" zu "eac #xeNA CCBTdCAR }܀Q%'$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >10 #1;1;0,0;i(3);a$;i(4);a$;i(3);a$;i(4);a$ y  (23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:0:7:7:23624H\,63?:.01z# =,7: +236066\,0:236077\,60<  30999y ""31000y ""  7 &J=18:x=05 :.004yn,x:.004yn,x+3:.004yn,x+5 A12 ,0;x+1;" PARA O GRAVADOR " x:J 12 ,0,, !D0:i=1130:(254)<255i:550& # 505 0ei=1200::::::6:7:0:1:2:3:4:5:i : 5 4:7:0:  x=02558 c Wx,0:c;c;0,175:1;x,175:1;0,-175 x 0,1,2,3,4,5,6,7,6,5,4,3,2,1,2,3,4,5,6,7,6,5,4,3,2,1,2,3,4,5,6,7 2:g=14e4@ $x=010 )$c:c=c+g:c=c-(c/8)*8 .Dc;9 ;x*2,0;" POE EM MARCHA O GRAVADOR "; 5*l=254:l>128L=L-128 6L63?1110V 8x BY0,1,2,3,4,5,6,7,6,5,4 G 1090B Lg V55:5:5:0:318008|:"" y}d nt A LNOTAS y\}}|}z|x}z|x}z}|z|x}z}|z ~ | { ~ | { ~ | { ~ | { ~ | { ~ | { {}{ { x { t   } }  { x t >>| A,B""$0Ax`@$$IAxp8` ?`p|eCAAxA6$$Ia@xP(?|@ 8p`?0@|GAAԓ$I8xC $$$I!` xH8 @  '80|MA $$I,xC dD$I! 'x @0c M#|yA $$I&x@? LD$I! !xDg(A<c a  I A|Az 6L$I#x@'y" "!ÀH?@  @xI  A8|A@ yA9d$IB!x y"@!0` PxC 80 x B, x!0|0 >PxDL   x@0BLx!@#h 000H`x8 x@& @`x@H B!?߀px!`A8 pH98 x@#>@x DA"߀p@xC? `B*0 ~ pH;8 x@  @xD `~ABp x DJF|0? dxx2  @xBBXG@  H&P ? nx x"8@xB D?0q ` ? x@op xb  x" D@?@|L  ~ @B@@w@a|  @@&0/ @A`@ ?@@?8A8 @!C@ bQ'@@!0/ A @A?@pA@@p 1`@ 8A/ۀ@@A`/@B @ A   a 0@ |@/@ ?@@'D0/ @ @  @ 8@`/@ `@ 'Hp@ !x@ @0a@@C@ /@ @"P<` !x@aA@@"<?@@@@0/@D!D@80`|@A@@ "D>? @ @@@(/@B Ah@L D`? ~Ap@\@0"L?> @@ ????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????8888888888888888888888888888888888888888888888888888888888888888PROGRAM. V  EDICOES LATINAS  f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 s7:7::"31999":z=ç:u=:o="8":"23609","20":"23658","8":"":"23606",z:"23607","124" 23658j\,8 -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","5";"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"  fl=z *#Z;Z,u;U;"K":w$=" ":j=uuz:z:a$=:װ".01",o:a$="13"װ".1","32":b$="":w$=w$+t$("3"):j=u̱w$:b$=b$+(w$(j)w$(j)" "w$(j)""):j: 0`flA$>" "a$=" ܪޮ ֫ڨ䴼᳹ "(a$-32 ) 1"fl=z:A$=°"14"FL=U:890z >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;"KE"(FL+U);z,,:j   MAIN  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  FASE 1 -7,z;:lm="16-(T$/2)":tx:'':lm=u ( :"8300" 2/13 ,9 ;"- - - - - -"''':150 < "8300" P.RR:"8400":T$:T$9000(#:1300  MEDIO "8300":RR:"8400"  "9610" N"8500":"54","52":"-19",z:z,"64":"26",z:"17","21";U;"LIMITE=3" ="100":xp=15:yp="3":t$="f412d11 C = 1 ":"8250" =i=u+ṵ"3":t$="f812d11 C = "+i+"d3A C <= 3f;01f810f;21"  "8250":i 8t$="f812d11 C = "+4+"d3A C > 3 f412":"8250" TRR GRAFICOS 5st=Z:b=ṵ"4":"9640":i=z̰"21":o;i,"17",:i bɰ"4":"127",z:z,"175" 9BU"21",z;u;"C=VAR.CONTR. 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;" REPETE ..":"100":U,"18",:ER=ER+u:"3400" RER="3"LM=U:T$="QUEM SABE SE NAO SERA MELHORVOLTARES A VER O PROGRAMA EDEPOIS TENTARES NOVAMENTE COMMAIS 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" 6I="26""118","36":"6",Z:Z,"92":"-26",Z tT$(U)"%"i ~#b=U+Ulm=u:rr:"8400":"8300" Bɰ"3""":RR <b $T$:T$4900$ %"8400":LM=U:"8300":RR:"8400" 07,U;:LM=6:T$="ESCOLHE, "+N$:TX 11 ,6;"C CARREGAR A FASE";12 ,8;"SEGUINTE";14,6;"I INTRODUCAO";16,6;"E EXERCICIO" #0:A$=:A$="I"1000 A$="E"3000  A$="C"8000@  5110 @%:A$=" POE EM MARCHA O GRAVADOR " 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:  8j=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: # DATA $Ÿ"AGORA, "+N$,"COMPLETAREMOS O ESTUDO DOCICLO CONTROLADOR DE PROGRAMA,INTRODUZINDO AS INSTRUCOESMAIS APTAS PARA ISSO: E .","" $q"DESEJAMOS ESCREVER UM PROGRAMAQUE REALIZE AS MESMAS FUNCOESDO ANTERIOR, MAS QUE USE O CI-CLO .","" $8" IMPRESSAO DUMA COLUNA "," DA TABLA DE MULTIPLICAR" $R"11 - FASE DE INPUT","QUAL E O ELEMENTO NECESSARIOPARA O NOSSO PROBLEMA ?","" $J"O dado necessario e o numerodo que desejamos obter os mul-tiplos.","" %8"22 - FASE DE CALCULO","COMO OBTER OS MULTIPLOS ?","" %0"Empregaremos a variavel decontrolo do ciclo tanto como contador, como mul-tiplicador do numero indicado.","" %D8"43 - FASE DE OUTPUT","QUAL E O RESULTADO FINAL ?","" %Nq"Neste caso o resultado sera aimpressao dos primeiros 10multiplos do numero que tiver-mos indicado.","","" %"AGORA, "+N$,"TRANSFORMAREMOS A ANALISE AN-TERIOR, PRIMEIRO NUM DIAGRAMADE FLUXO, DEPOIS DIRECTAMENTENUMA INSTRUCAO .","" %5"t83 I N I C I O","#?10","t87 FOR C=1 TO 3","#?1D" %K"t8; ELABORACAO","#?1D","t8? NEXT C","RESULT. ","#82;","2>40X","02A FECHA CICLO","<<1;","2A50C","04C FIM ","#813" % "*1 ","% " %"BEM, "+N$+"TENTA AGORA ESCREVER O PROGRA-MA, COM BASE NO DIAGRAMA DEFLUXO.RECORDA-TE DE NUMERAR ASLINHAS DE 10 EM 10, A PARTIRDE 10." %s"OBSERVA COMO OS RESULTADOS SAOTEMPORARIAMENTE MEMORIZADOS NAVARIAVEL , EMPREGADA DEPOISNA FASE DE OUTPUT.","" &z"PERFEITO "+N$+"ESCREVESTE O PROGRAMA EMPRE-GANDO UMA TECNICA FUNDAMENTALDA LINGUAGEM : O CICLO." &4"" zuo  p  lBc NZ# yA W 50C50CB50C50CY PRIME UMA TECLA PARA CONTINUAR T ESCOLHE, CAR }V'$$~~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 & 4CAR } $$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >! pp`?0PFPՀ8f`8??A?@8>A?pp`?PP0xi8>ppp`?PP??f 8>ppp~??PP3?  ?ppp~P?P|P~`? >@%>p?pp`p?PlPc@' >I? p?pp`pPRPepO > p?p`TINSTRUC.    1000 L=P$:X1=X1+1  40( 6x=11 20:x,1," ":x l=p$ 0x1=(10 -((l/30)))/2+11 ( y1=1 2 y=1l <p$(y)=" "80P A P$(Y)="@"300,:80P C ="!" Fx1,y1;p$(y) HP$(Y)=".".5,30 K.001wn,x P7y1=y1+1:y1=31y1=1:x1=x1+1 Y   3,3:2;249,0:2;0,169:2;-249,0:2;0,-169  %x=016*316 'x+30,90Z:0,480 '30,x+90Z:480,0 )30,x+90Z:-12 ,24 *x+30,138:-12 ,24 O30-(x/4),90Z+(x/2):0,480:480,0 x  ,'S$=" PRIME UMA TECLA PARA CONTINUAR " 6BC=23624H\ @-23624H\,15:.01z# =,1:"" J#0;1,0;S$ O>.002xn,20:.001wn,4:.001wn,30 TS$=S$(2)+S$(1) ^=""330J h#23624H\,BC:.01z# =,1 r"" | UX=0279 :X+X0,Y0:0,27:x0,Y0+X:27,0:X  80:0:0:7:4:170  200 p$="DESTA VEZ, ":10 :P$="PROPONHO-TE UM JOGO DIFERENTEDO HABITUAL:":5 &P$="O FAMOSO CUBO MAGICO.@":5 P$="ESTE PASSATEMPO TEM APAIXONADOE ENLOUQUECIDO MILHOES DE PES-SOAS, AGORA TU TAMBEM TENS APOSSIBILIDADE DE JOGARES COMO TEU SPECTRUM." $P$=P$+"@":10 .gP$="TENTA IMAGINAR QUE TENS O CUBOENTRE AS MAOS, E QUE PODES FA-ZE-LO GIRAR EM QUALQUER DIRE-CCAO.@" 8 10 BtP$="POR EXEMPLO, PODES FAZER GIRARA FACE DIANTEIRA, 2 POSICOESNO SENTIDO DOS PONTEIROS DORELOGIO.@":10 L@P$="ENTAO A ORDEM SERIA: EA SEGUIR, Frente 2 voltas." V5:300, [ 9 `*2,14;" FRENTE ----> F " j*3,14;" CIMA ------> A " t*4,14;" ESQUERDA --> I " ~*5,14;" DEREITA ---> D " *6,14;" ABAIXO ----> B " *7,14;" ATRAS -----> R " X0=10 :Y0=10 N=12: G=18:X,Y:X,Y:2,0:0,2:-2,0:0,-2:.01z# =,G:1:X0,Y0:2,0:0,2:-2,0:0,-2:X0=X:Y0=Y:0:G :N 36$,96`,36$,112p,36$,128,524,128,68D,128,68D,112p,68D,96`,524,96` <P$="AS ORDENS QUE PODES UTILIZAR,ESTAO ACIMA DESCRITAS.@"  10 31:C=14:200:C:0 -P$="AQUI ESTA OUTRO EXEMPLO:@":5 N=13:1300 G=18:X,Y:X,Y:2,0:0,2:-2,0:0,-2:.01z# =,G:1:X0,Y0:2,0:0,2:-2,0:0,-2:X0=X:Y0=Y:0:G N 35#,141,31,149,27,157,43+,157,59;,157,63?,149,67C,141,513,141 ]P$="JA DEVES TER PERCEBIDO QUE,ASSIM, PODES EFECTUAR QUAL-QUER MOVIMENTO.@":10 (sP$="PARA PODER SER REPRESENTADO NASUA TOTALIDADE, O CUBO FOI DE-SENHADO ABERTO, TAL QUAL, COMOUMA FIGURA PLANA.@" 2 10 <#p$="ESTAS PREPARADO !?@":5 A1:200:0 FP$=" ":10 KX0=38&:Y0=78N P+390:10 ,6;1;"A" Zy0=46.:390 d14,6;"F" ny0=14:390 x18,6;"B" ;X0=6:Y0=78N:390:10 ,2;"I" =X0=70F:Y0=78N:390:10 ,10 ;"D" <X0=38&:Y0=110n:390:6,6;"R" i=07:.1}L,i+30:i:i:1:1:0,0;:x=144,:,:x:"":0:i:0   1500 x=031 p ;x*8,0:1;1;p;0,175 x OP$="SE QUERES VOLTAR A VER ESTASINTRUCOES PRIME , DE CON-TRARIO ."  10 ="R"1000 ="C"2000  1510 @0,1,2,3,2,1,0,1,2,3,4,5,6,7,6,5,5,6,7,6,5,4,3,2,1,0,1,2,3,2,1,0  {B=05:X=07:.003xD,X:10 ,0;X;9 ;" POE EM MARCHA O GRAVADOR ":X:B L236066\,0:236077\,60<:4:4:4::"" (23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:4:4:4:0:0:0: 31999| ""32000} ,236077\,124|:236066\,0 7:4:0: |B=05:X=07:.003xD,X:10 ,0;X;9 ;" PARA O GRAVADOR ":X:B 23658j\,8   lLML23 PLJA DEVES TER PERCEBIDO QUE,ASSIM, PODES EFECTUAR QUAL-QUER MOVIMENTO.@S UMA TECLA PARA CONTINUAR PRIME CAR }A#$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0 32767 ""25800d 23570\,16 0 P$ !PUPPP P@(PPPP !@H@p@@P@P?@UP0P!@p@  P 8@  GP$ @B CP`?@ P 8@P @@?<P` 8@P`@?`P @ ANPC EP Dg8B@CPP?@rUP8@pxP@@@uP@P|@? X8@ AOP| EP Jx?8DCPH?@5P@PC 8@|P`@P0@T8@ AOP EP0?DPD?8@47/a<80P),a:24+480*(a>47/a<80P),0:a nx:a=072H8:a,480*(a>16a<491):0,24+72H*(a>16a<491):a xc$(6,9 ) w140:j=16:c:k=19 :c$(j,k)=c:k:j:3,7,2,1,6,4 W1:5:p$=" Resolve ":xs=2:ys=3:yy=0:10 W1:4:p$="O ~Cubo Magico~":xs=2:ys=3:yy=24:10 9 8000@ [2:p$="Usa oscomandos":xs=1:ys=2:xx=128:yy=60<:20 9yy=76L:p$="seguintes : ":xx=128:20 H9 :13 ,16;1;2;9 ;"R Atras " ?14,16;1;7;9 ;"A Acima " ?15,16;1;2;9 ;"F Frente " ?16,16;1;1;9 ;"B Abaixo " ?17,16;1;6;9 ;"I Esquerda " ?18,16;1;4;9 ;"D Direita " F20,16;1;"INSercao";21,16;"RESet " Y#1;0,0;"Indica movimento e numero devoltas a realizar. Ex: ~a3~" [1:300,:p$=" ":xs=16:ys=15:yy=60<:xx=110n:20 E1,10 ;6;"Movimento_______";1,22;m$ B#0;1,0;" PRIME ~ STOP ~ PARA PARAR " m$="INS"85004! m$="RES" M$=""6000p m$<2230 Sk=16:a$(k)m$(1)(a$(k)-32 )m$(1)k:230 ,m$(2)>"3"m$(2)<"1"230 Rz,q;m$:z=z+1:z=21z=8:q=q+3:q>30q=12  500*k " 230 g=1̰m$(2)  9000(# r$=c$(2,1):c$(2,1)=c$(6,1):c$(6,1)=c$(4,9 ):c$(4,9 )=c$(5,1):c$(5,1)=r$ r$=c$(2,2):c$(2,2)=c$(6,2):c$(6,2)=c$(4,8):c$(4,8)=c$(5,2):c$(5,2)=r$ &r$=c$(2,3):c$(2,3)=c$(6,3):c$(6,3)=c$(4,7):c$(4,7)=c$(5,3):c$(5,3)=r$ 0g : 8000@ g=1̰m$(2)  9000(# r$=c$(3,1):c$(3,1)=c$(6,7):c$(6,7)=c$(1,9 ):c$(1,9 )=c$(5,3):c$(5,3)=r$ r$=c$(3,2):c$(3,2)=c$(6,4):c$(6,4)=c$(1,8):c$(1,8)=c$(5,6):c$(5,6)=r$ r$=c$(3,3):c$(3,3)=c$(6,1):c$(6,1)=c$(1,7):c$(1,7)=c$(5,9 ):c$(5,9 )=r$ $g . 8000@ g=1̰m$(2)  9000(# r$=c$(4,2):c$(4,2)=c$(6,8):c$(6,8)=c$(2,8):c$(2,8)=c$(5,8):c$(5,8)=r$ r$=c$(4,1):c$(4,1)=c$(6,9 ):c$(6,9 )=c$(2,9 ):c$(2,9 )=c$(5,9 ):c$(5,9 )=r$ r$=c$(4,3):c$(4,3)=c$(6,7):c$(6,7)=c$(2,7):c$(2,7)=c$(5,7):c$(5,7)=r$ g " 8000@ g=1̰m$(2)  9000(# r$=c$(3,7):c$(3,7)=c$(5,1):c$(5,1)=c$(1,3):c$(1,3)=c$(6,9 ):c$(6,9 )=r$ r$=c$(3,8):c$(3,8)=c$(5,4):c$(5,4)=c$(1,2):c$(1,2)=c$(6,6):c$(6,6)=r$ r$=c$(3,9 ):c$(3,9 )=c$(5,7):c$(5,7)=c$(1,1):c$(1,1)=c$(6,3):c$(6,3)=r$  g  8000@ g=1̰m$(2) 9000(# r$=c$(2,4):c$(2,4)=c$(1,4):c$(1,4)=c$(4,4):c$(4,4)=c$(3,4):c$(3,4)=r$ r$=c$(2,1):c$(2,1)=c$(1,1):c$(1,1)=c$(4,1):c$(4,1)=c$(3,1):c$(3,1)=r$ r$=c$(2,7):c$(2,7)=c$(1,7):c$(1,7)=c$(4,7):c$(4,7)=c$(3,7):c$(3,7)=r$ g 8000@ g=1̰m$(2) 9000(# ֫r$=c$(2,6):c$(2,6)=c$(3,6):c$(3,6)=c$(4,6):c$(4,6)=c$(1,6):c$(1,6)=r$ r$=c$(2,3):c$(2,3)=c$(3,3):c$(3,3)=c$(4,3):c$(4,3)=c$(1,3):c$(1,3)=r$ r$=c$(2,9 ):c$(2,9 )=c$(3,9 ):c$(3,9 )=c$(4,9 ):c$(4,9 )=c$(1,9 ):c$(1,9 )=r$ g 8000@ p:w$=" POE EM MARCHA O GRAVADOR ":yy=40(:xs=1:ys=8:6000p:z=1̱w$:p:xx=8*z+16:p:p$=w$(z):20:z 1,2,3,4,5,6,7,6,5,4,3,2,1,2,3,4,5,6,7,8,7,6,5,4,3,2,1 8 0:"" ? J8020T:k=16:x1,y1:x=13:y=13:j=(x+(y-1)*3):y+y1,x+x1;(c$(k,j));(144+c$(k,j)):y:x:k Tg2,9 ,2,12 ,2,15,2,18,-1,12 ,5,12 ^ !9fp$="Indica as cores":4:xs=1:ys=3:xx=100d:yy=130:20:9 !>L8010J:k=16:x1,y1:x=13:y=13 !C3d$:d$1d$>"7"d$<"1"d$="5"8515C! !HTj=(x+(y-1)*3):c$(k,j)=d$:y+y1,x+x1;(d$);(144+d$):y:x:k !Mip$=" ":4:xs=1:ys=3:xx=100d:yy=130:20:9 !R 230 #({r$=c$(k,7):c$(k,7)=c$(k,9 ):c$(k,9 )=c$(k,3):c$(k,3)=c$(k,1):c$(k,1)=r$ #2{r$=c$(k,8):c$(k,8)=c$(k,6):c$(k,6)=c$(k,2):c$(k,2)=c$(k,4):c$(k,4)=r$ #Z %x(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:32255}:"" %0:0:7:0:0:0:23562 \,1:23561 \,15:236099\,250:.01z# =,1 %-23675{\,88X:23676|\,127 %23570\,6 %Zp$=" PARA O GRAVADOR ":xs=1:ys=5:yy=100d:5:10 :9 %1:502 % i[w Arafbidq zPHn; 333333333777777777222222222111111111666666666444444444cJPO ~Cubo Magico~JJ%CAR ~/![~#"[o<&)))K6\ >2[: [2 [: [2[> 2[~#"[2[:[= 2:[= :[G: [O: [ 2 [*[~2[: [G: [2 [*[ ~2[: [G: [2[: [Oͤ~:[<2[ :[<2[ :[0~@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!~xO F![F(// PYVIDEONEXT ^' *  EDICOES LATINAS * f(23613=\+256*23614>\),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 6 ":k=4:9020<# 8;p$="VIDEOHARDWARE: ":K=7:9020<# 9:p$="O monitor e ":k=8:9020<# :9p$="o televisor ":k=9 :9020<# ;<P$="VIDEOBASIC-A LINGUAGEM: ":k=11 :9020<# <;p$="AT - TAB - ATRIBUTOS ":k=12 :9020<# =:p$="RND - RANDOMIZE ":k=13 :9020<# ><p$="VIDEOBREAK: ":k=15:9020<# ?;p$="MOSAICO ":k=16:9020<# @<p$="VIDEOBASIC-A PROGRAMACAO: ":k=18:9020<# A;p$="Uso avancado de PRINT-INPUT ":k=19:9020<# K<p$="VIDEO-JOGO: ":k=21:9020<# L;p$="LABIRINTO 3D ":k=22:9020<# _ 150 i8990#::8994"#:L=10 :v=10 :a$="Ate a proxima,":3000 :l=16:v=18:a$="VIDEOBASIC.":3000 :9999': 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 LETEREIRO ROTATIVO 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 ESCREVER Zl,v;"";:q=1̱a$:a$(q);:a$(q)" ".0005vn,40(:m=1̥*5:m 4a$(q)=".".2~L,0:23692\,255 q: #LE 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 #!HOMENZINHO #"'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&# #& #' EQUADRO #(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(#: #;LETEREIROS #<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: F#S PRIME UMA TECLA PARA CONTINUAR Y TECLA PARA CONTINUAR PRIME UMA aVLk PRND - RANDOMIZE dCAR 8|^ >ROBERTO$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >