ZXTape! 2-VIDEO BASIC (EDICOES LATINAS) - TAPE 3 SIDE BEDICOES LATINAS, LDA / JACKSON PORTUGUESSPECTRUM BASIC COURSENONE ORIGINAL TAPE20 TAPES COURSEIF THEN F' cSHf(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 "31969":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 CEN=Z dOP=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$="IF..THEN...":"8410" Y8400 :U+U,u;u;" A = 5 ":"7",U;:t$="10 IF A = 5 THEN PRINT ""BEM""":"8330" ER="143":"8480":"100":"7","7";U;U;" ";"7","24";" ";"4","25";"OK":5,7;U;"VERDADEIRO!" BU,"28":"16",U;:T$="30 IF A = 8 THEN PRINT ""BEM""":"8330" `ER="73":"8480":"100":"16","7";U;ڰ"5";" ":14,7;U;"FALSO":"130","34":"90","20":"130","54":"90","-20":U,"-20" "8070":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 ="8400":7,U;:T$=" ESCOLHE, "+N$+":":8330 E=Z:11 ,6;"F FIM";13 ,6;"I INTRODUCAO";15,6;"C PASSAR A PARTE";16,6;" SIGUINTE"  ="F" ="I"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 lcA=Z:J=I9999':F$(J,30)"%"F$(J,30)""A=A+U+(2F$(J,30)="}"):J mVC"10-a/2",U; nI=i9999':T$=F$(I) v08330 :T$(30)=""i=i+u:"8150": {'F$(I,30)="%"i=i+u:8300l I c=Z:N=U̱t$ "T$(N)="%"8150:"8400": T$(N)="{"T$(N)=N$ 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":"126-XL/2","142":XL,Z:Z,YL:-XL,Z:Z,-YL:U,-U:XL,Z:Z,YL:5,10 ;"introducao";11 ,U;:vc=z:"8300":"8400":vc=u:"8300": ! 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: zuU XA INSTRUCAO EUMA DAS MAIS IMPORTANTES,POIS QUE SERVE PARA QUE OCOMPUTADOR AVALIE DETERMINADASCONDICOES, EM RELACAO ASQUAIS O PROGRAMA ESCOLHERA OCAMINHO ADEQUADO A CADACIRCUNSTANCIA.  SUPONHAMOS QUE ASSIGNAMOSA VARIAVEL UM NUMEROSECRETO, QUE UM AMIGO TENTAADIVINHAR. A VARIAVEL ASSIGNA-SE AS DIVERSAS SOLU-COES QUE ESTE PROPOE. PARA ISSO, NECESSITAMOS UMAINSTRUCAO QUE ORDENE AOSPECTRUM QUE COMPROVE SE ONUMERO SECRETO FOI ADIVINHADO;QUER DIZER, SE A VARIAVEL E IGUAL A VARIAVEL.% PARA ESSE FIM, PODEMOS ESCRE-VER O SEGUINTE.} }SE T=X ENTAO ESCREVE 'OK'}}BEM, { NAO DEVES ESFORCAR-TE MUITOPARA ENCONTRAR UMA INSTRUCAOCOM ESTE SENTIDO.% %E SUFICIENTE QUE TRADUZAS PARAINGLES A INSTRUCAO TALQUAL A TENHAS IMAGINADO; CERTOQUE O TEU SPECTRUM A COMPREEN-DERA PERFEITAMENTE. } }IF T=X THEN PRINT 'OK'} NATURALMENTE, EM VEZ DE PRINT,PODES ESCREVER QUALQUER OUTRAINSTRUCAO; DO MESMO MODO,PODES FAZER OUTRAS COMPARA-COES: POR MAIOR OU MENOR,VALOR NUMERICO DUM TEXTO.%QUANDO A CONDICAO NAO SE CUM-PRA, IGNORA-SE COMPLETAMENTEA INSTRUCAO SITUADA A PARTIRDE , E O CONTROLOPASSA A LINHA SEGUINTE. RECORDA QUE TODA A INSTRUCAOA SEGUIR A ESTASUJEITA A COMPARACAO. ESTA PARTICULARIDADEOFERECE-TE A FACILIDADEDE ESCREVER UM GRUPO COMPLETODE INSTRUCOES QUE SE CONTRO-LAM MEDIANTE UM UNICO ,EVITANDO OS SUPER-FLUXOS E OBTENDO PROGRAMASCOMPACTOS, VELOZES E MUITO LE-GIVEIS.% %EM TODO O CASO, ENCONTRARASCOM FREQUENCIA A COMBINACAO; A COMBINACAODESTAS DUAS INSTRUCOESUSA-SE FREQUENTEMENTE PARA ABIFURCACAO CONDICIONALDO FLUXO DO PROGRAMA DEMODO ANALOGO AS MUDANCASDE AGULHA DOS CARRIS DOSCOMBOIOS QUE, DEPENDENDODA SUA POSICAO, DIRIGEMO COMBOIO QUE CHEGA, PARA UMSENTIDO OU PARA OUTRO.% %EM COMPARACOES DE VALORESALFA-NUMERICOS, O COMPUTADORASSIGNARA A CADA CARACTER UMVALOR DETERMINADO, SEGUINDO UMCODIGO ESTANDAR. ESTE VALORASSIGNA-SE DEPENDENDO DA POSI-CAO DO CARACTER DENTRO DOCODIGO (POR EXEMPLO, E65, E 66, ... EASSIM SUCESSIVAMENTE). DESTE MODO, A COMPARACAODE CADEIAS FAZ-SE MUITO FACIL-MENTE, REDUZINDO-SE A COMPARA-CAO DOS CODIGOS DOS CARACTE-RES QUE AS COMPOEM. Y'n eaX'l c pIeNMDEDA IF..THEN...T ECLA PARA CONTINUAR PRIME UMA T?CAR }' $$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" > EUMA DAS MAIS IMPORTANTES,POIS QUE SERVE PARA QUE OCOMPUTADOR AVALIE DETERMINADASCONDICOES, EM RELACAO ASQUAIS O PROGRAMA ESCOLHERA OCAMINHO ADEQUADO A CADACIRCUNSTANCIA.  SUPONHAMOS QUE ASSIGNAMOSA VARIAVEL UM NUMEROSECRETO, QUE UM AMIGO TENTAADIVINHAR. A VARIAVEL ASSIGNA-SE AS DIVERSAS SOLU-COES QUE ESTE PROPOE. PARA ISSO, NECESSITAMOS UMAINSTRUCAO QUE ORDENE AOSPECTRUM QUE COMPROVE SE ONUMERO SECRETO FOI ADIVINHADO;QUER DIZER, SE A VARIAVEL E IGUAL A VARIAVEL.% PARA ESSE FIM, PODEMOS ESCRE-VER O SEGUINTE.} }SE T=X ENTAO ESCREVE 'OK'}}BEM, { NAO DEVES ESFORCAR-TE MUITOPARA ENCONTRAR UMA INSTRUCAOCOM ESTE SENTIDO.% %E SUFICIENTE QUE TRADUZAS PARAINGLES A INSTRUCAO TALQUAL A TENHAS IMAGINADO; CERTOQUE O TEU SPECTRUM A COMPREEN-DERA PERFEITAMENTE. } }IF T=X THEN PRINT 'OK'} NATURALMENTE, EM VEZ DE PRINT,PODES ESCREVER QUALQUER OUTRAINSTRUCAO; DO MESMO MODO,PODES FAZER OUTRAS COMPARA-COES: POR MAIOR OU MENOR,VALOR NUMERICO DUM TEXTO.%QUANDO A CONDICAO NAO SE CUM-PRA, IGNORA-SE COMPLETAMENTEA INSTRUCAO SITUADA A PARTIRDE , E O CONTROLOPASSA A LINHA SEGUINTE. RECORDA QUE TODA A INSTRUCAOA SEGUIR A ESTASUJEITA A COMPARACAO. ESTA PARTICULARIDADEOFERECE-TE A FACILIDADEDE ESCREVER UM GRUPO COMPLETODE INSTRUCOES QUE SE CONTRO-LAM MEDIANTE UM UNICO ,EVITANDO OS SUPER-FLUXOS E OBTENDO PROGRAMASCOMPACTOS, VELOZES E MUITO LE-GIVEIS.% %EM TODO O CASO, ENCONTRARASCOM FREQUENCIA A COMBINACAO; A COMBINACAODESTAS DUAS INSTRUCOESUSA-SE FREQUENTEMENTE PARA ABIFURCACAO CONDICIONALDO FLUXO DO PROGRAMA DEMODO ANALOGO AS MUDANCASDE AGULHA DOS CARRIS DOSCOMBOIOS QUE, DEPENDENDODA SUA POSICAO, DIRIGEMO COMBOIO QUE CHEGA, PARA UMSENTIDO OU PARA OUTRO.% %EM COMPARACOES DE VALORESALFA-NUMERICOS, O COMPUTADORASSIGNARA A CADA CARACTER UMVALOR DETERMINADO, SEGUINDO UMCODIGO ESTANDAR. ESTE VALORASSIGNA-SE DEPENDENDO DA POSI-CAO DO CARACTER DENTRO DOCODIGO (POR EXEMPLO, E65, E 66, ... EASSIM SUCESSIVAMENTE). DESTE MODO, A COMPARACAODE CADEIAS FAZ-SE MUITO FACIL-MENTE, REDUZINDO-SE A COMPARA-CAO DOS CODIGOS DOS CARACTE-RES QUE AS COMPOEM. IF THEN 01 f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0    EDICOES LATINAS  32599W: x=25580c25591c  q:x,q:x (m33!,0,100d,17,0,64@,1,0,27,237,176,201 2""25600d 7+236066\,0:236077\,60< <25580c A7:7 F-23570\,16:1,0;:"" ccqECRAN @R? s~B#X8 B"B#890?Qps$B$ ?b Fϡb B&&>$D?BDB" B8?0 $8B$B"?~p>? $@' O?J2N `i_ `;80``q< ?'  &!N0@DG@?`<?d0 ``6 ??  ?0"cM7.`$C@o ?? 4 81?`|@ ?p|F@E?`0@@:??!!? 8#?!G>3㱐 `98?xx<?p## ??~|ѐ?'0H2|F=( ?0t@?C' O8L$ 9c480` w@dg?x?@??' ?RN 0vɎ 0#@y߀? ?@?808>~B~B<<<?@B@bBBB?|~|R@BB07@B@JNBB`@B@FBBB8>@B~B<<<_?0 O8888888888888888888888888888888888888888898999999888888888888888888888888999899999998888888888888888888889998999899988888888888888888::88999899989998888888888888::::::::999899989999<<<<88888888::::::::99989 9899 <<<<<88888888:::::::::9;;;;;;;;<<<<<<888888888:::8:::::;;;;;;;<<<<<<<8888'8888:::8::::::;;;;;<<<<<<<>>8?777888:::::::::::;<<<<<>>88'77888:::::::::888<<<<<<<>>'''8888:::::::::888;<<<<<&&>>'''888888:::z:::88;;;8<<<''&>>>''88888888:::::88;;;;;8<<''>>>>8888888888:::::888;;;;;8888888888888888888:::::888;;;;;8888888888888888888::::??????????????????????8888899:::88MOOOOOOOOOOOOOOOOOOM8888<9999998888888888888888888888888899999998888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888IF THEN EX  f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 "23570","6" "31969":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$="IF..THEN...":"8410" $ "8500" ~"8075":E"1000" @0A$=" 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 8"8400":7,U;:T$=" ESCOLHE, {:":8330 E=Z:11 ,6;"F FIM";13 ,6;"E EXERCICIOS";15,6;"C PASSAR A PARTE";16,6;" SIGUINTE"  ="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","15-t$/2";:"8330":I=Z̰"50"Ͱ"5":װ".01",I:I !"12",U;:"8450" " "8150" " "8600" "$u,u;:T$="AGORA "+N$:"8330":"3",u;:T$="PROPONHO-TE UM NOVO TESTE: UTILIZA O TECLADO DA FORMA QUEJA APRENDESTE ANTERIORMENTE EINTRODUZ AS INSTRUCOES QUE TEVOU PEDINDO.":"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)=""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","5";U;"TENTA DE NOVO !":"50":װ".1","20":"9","5",A$:"9000" #Ver="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 #OEr"100":"9","5";"TENTA DE NOVO !":װ".5","32":"8470":ER=Z:"8850" # "8810" $ D A T A  $"COLOQUEMOS AGORA EM PRATICAOS CONCEITOS ANTERIORMENTE EX-POSTOS, OBSERVANDO COMO SEUSA EFECTIVAMENTE A INSTRUCAO.","" %"IF VAR1=3 THEN PRINT 1","SE A VARIAVEL CONTEMO NUMERO <3>, A IGUALDADE CUM-PRE-SE, LOGO A INSTRUCAO QUESEGUE E EXECUTADA.","" %!"IF IDADE>LIMITE THEN ..","NESTE CASO, COMPARAM-SE DUASVARIAVEIS, MAS A CONCEPCAO E AMESMA. OBVIAMENTE, NAO E POSSIVELCOMPARAR ELEMENTOS DE DISTINTOTIPO.","" %&"IF A$ ""G"" THEN..","NESTA COMPARACAO ENTRE VALO-RES ALFA-NUMERICOS, A CONDICAOVERIFICA-SE QUANDO A CADEIA EMAIOR OU IGUAL A CONSTANTE.","" %+"IF A/5+RR >= X^(3/B) THEN..","..APENAS UM OU DOIS OPERADORESPODEM SER CONTITUIDOS POR EX-PRESSOES, QUE PODEM SER MUITOCOMPLICADAS...","" %-"IF A","E IGUAL A VARIAVEL ","ENTAO IMPRIME","" %Nb"C$=""X""C$","SE A CADEIA E IGUAL","A CONSTANTE ""X"",","ENTAO LE C$ DO TECLADO","" %Xn"TOT>LIME=1","SE A VARIAVEL ","E MAIOR QUE A VAR. ","ENTAO ASSIGNA 1 NA","VARIAVEL ","" %bc"C$K$120","SE A CADEIA E MENOR","OU IGUAL QUE , ENTAO","VAI PARA A LINHA 120","" %lo"F$""SI""ERR","SE A CADEIA F$ E DIFERENTE","DE , VAI PARA A LINHA","CONTIDA NA VARIAVEL ERR","" &G"" zu "eacJ#xNDFEEY4CRBTDFEEY4eA POE EM MARCHA O GRAVADOR CAR } %-$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >24m>59;s>59;340T h*tot=(s+m*60<+h*3600)*502 rfr3=(tot/65535) |(fr2=(tot-(fr3*65535))/256 .fr1=(tot-(fr3*65535)-(fr2*256)) 323672x\,fr1:23673y\,fr2:23674z\,fr3 >"":#0;1;" PRIME ~SPACE~ PARA SAIR "   x0=90Z:y0=90Z  300,  d1=0 8:8 xs1=90Z:ys1=90Z xm1=90Z:ym1=90Z  m1=90Z $ h1=90Z .xh1=90Z:yh1=90Z L t1=t() V t2=t() `t=t2*(t2>t1)+t1*(t1>t2) eRt>4319950՜23674z\,0:23673y\,0:23672x\,255 jd=t/502 l=" "4000 od=d11100L qd1=d t!h=h(d):m=m(d,h):s=s(d,h,m) ~&xs=x(s,70F):ys=y(s,70F)  segundos  21;xs,ys:1;90Z-xs,90Z-ys 61;xs1,ys1:1;90Z-xs1,90Z-ys1 (xs1=xs:ys1=ys 2 minutos  <m=m11500 F&xm=x(m,70F):ym=y(m,70F) K 1 R xm,ym:89Y-xm,89Y-ym s 1 z$xm1,ym1:89Y-xm1,89Y-ym1  0 xm1=xm:ym1=ym Yp$=("0"m<10 )+m::xs=2:ys=3:xx=216:yy=100d:9999' m1=m   HORA  h=h11700 6xh=x(h*5,502):yh=y(h*5,502)  1  xh,yh:91[-xh,91[-yh " 1 .$xh1,yh1:91[-xh1,91[-yh1 6 0 @[h$(2):h$=h:p$=h$:xs=2:ys=3:xx=176:yy=100d:9999' xh1=xh:yh1=yh:h1=h  0  1100L П(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:32255}:236066\,0:236077\,60<: 2:2: ""  ""  9 g2:#0;0,0;" PARA O GRAVADOR PRIME UMA TECLA PARA CONTINUAR " '.001wn,20:=""2011 0S$="":X=23296[23326[:S$=S$+¾X:X  1000 0:0:7: 10 ,0;"   POE EM MARCHA O GRAVADOR   " -X=130:23295Z+X,S$(X):X :1,30:0:0:0,0:"" ' 'i=23306 [:i,xx:i+1,yy:i+2,xs:i+3,ys:i+4,8:i=i+4:w=p$:n=1w:i+n,p$(n):n:i+w+1,255:w=32256~: NGIGANTES ,~ .![~#"[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(// PaECRAN @@)?@ ???? ?O?0`?? ?O??@? GLJ????@ ?C??? C LL LM???? ???? C OL L???? ????? C L L L ?????????? LL LL?>? '? @!????LJLJ@?>? ? @ ??????>>8p000 08vŠ<Š?Š??0Š<8p0 0008vŠ<0Š?Š?@?Š<8p0 <0008vŠ>0Š?Š?`0Š<000@ B0008vŠ>Š?Š?Š<000@ 0008vŠ>Š?Š?Š7<?<7Š>Š?Š?Š8p000@ B007Š<Š?Š??Š?Š8p000 <007Š<Š?Š?0Š?Š?Š???C?@ ?Š?@??O? ?O? ????@ ????? ? ????? !? '??????????? ????? 999999999999999999999999999999999<<<<<<<<<<<<<<<<<<<<<9<9999999999999999999999999999999>999999999<<<<<<<<<<<<<<<<<<<<<9>9999999999999988888888888999999>999999999<<<<<:::::::::::<<<<<9>9999999999999999998999999999999>999999999<<<<<<<<<8<<<<<<<<<<<9>99999999999999999989999999999999999999999<<<<<<<<<8<<<<<<<<<<<99<9999999999999999988899999999999<99999999<<<<<<<<<88<<<<<<<<<<99999999999999999999999999999999::::9::::99<<<<<<<<<<<<<<<<<<<<<::::;::::99999999999999999999999::::;::::99<<<<<<<<<<<<<<<<<<<<<::::;::::9999999999999999999999999999999999<<<<<<<<<<<<<<<<<<<<<9999999999999999999999999999999999999999999<<<<<<<<<<<<<<<<<<<<<999999999999999999999999999999999999999999999999999999999999999999999999998888888888888888888888888888888888888888888888888888888888888888UPROGRAMAC.b   EDICOES LATINAS  f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 vٰ"7":ڰ"7":"31969":z=ç:u=:o="8":"23609","20":"23658","8":"CAR""31970":"23606",z:"23607","124" TX="8330" 'I=Ṵ"7":"32023"+I,""(I):I pRR="8150":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$=¾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" >J(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 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 27,z;:lm="16-(T$/2)":"8330":'':lm=u ( :"8300" 2/13 ,9 ;"- - - - - -"''':150 < "8300" P.RR:"8400":T$:T$9000(#:1300 x "8300":rr `"8400":LM="4":"19",U;:t$="5 O BLOCO FUNCIONA DESTE MODO ..":"8330" ^XP="12":yp="10":yp-u-u,xp-"4";"L";22;"S";yp-u,xp;"E$ =...":t$="<83^":"9100" yp="15":xp="2":yp-u,xp;"CALCULO";YP,XP;"LONG. ":T$="#82R":"9100":"32",z:xp="22":yp-u,xp;"CALCULO";YP,XP;"SUPERF.":"9100":"-32",z j=zu:u,"12";u;" E$ = ";"LS"(j+u):xp="15":yp=u+u:t$="bbbbbbb"+("ssssssssss"j)+("dddddddddd"j)+"bbbb":"9110":rr:i=ṵ"20":i,u;u,:i:j: ;st=Z:b=ṵ"4":"9640":yp=z:i=z̰"21":o;i,"17",:i bɰ"4":"127",z:z,"175" 5BU"21",z;u;"R=RAIO E$=ELAB . X=RESULT." ?lm="17":b="2"z,z;:t$=" TRADUCAO AO BASIC":"8330" I=Ṵ"1E3":T$ GT$(u)="0"xp="t$(2)-48":yp=yp+t$("3"):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,"19";U;"ERRO !":U,-o-o:"150":ER<"3"u,"18";U;" REPETE...":"100":U,"18",:ER=ER+u:"3400" RER="3"LM=U:T$="CREIO QUE E MELHOR QUE SIGASCOM ATENCAO O DESENVOLVIMENTODO PROGRAMA, E TENTES DE NOVO!":8400 :TX:RR:ST=I:b=u:"3900" zVt$(u)="1292"(B)y="t$(u+u)-48":y,"17";:t$=t$(3):"8330":BU"9050" *i="23""29","53":z,-o:"64",z:z,o 3I="30""95","20":"27",z:z,"117":"-27",z T$(U)="*"b=u"9050" tT$(U)"%"i ~#b=U+Ulm=u:rr:"8400":"8300" BU+U"":RR <b FH("BEM, ";N$'"AGORA PRIME""R"" PARA CONTINUARES ");I$:I$"R""3910" P "5090" n"8400":"9640":i$=""  b=uuz:T$ 6Bt$(u)="2"y="t$(u+u)-48":y,"17";:t$=t$(3):"8330" @It$(u+u)="50""18",u;U;("*i$^2"a$="S")+("2*I$*"A$="L"):U,U ht$"5*""4400" ri$""a$:b |i$:ñi$"4300" *I=U̱I$:I$(I)"0"I$(I)"9"I:"4400" .U,U;U;" ERRO !! ":"100":U,U,:"4220" 0 T$"% "B : "5090" D="PRIME ""R"" PARA TENTARES DE NOVO!";I$:I$="R":"5090" $T$:T$"4900" %"8400":LM=U:"8300":RR:"8400" ,:"7",U;:LM="4":T$="ESCOLHE, "+N$:TX m"11","4";"C CARRGAR A PARTE SEGUINTE";"13","4";"I INTRODUCAO";"15","4";"E EXERCICIO" Z:A$=:A$="I""1E3" A$="E""3E3"  A$="C""8E3"  "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 r5"8","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 lT$:T$"8330":"8300" 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: #(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)*8+2":XG="XP*8-4":YG="(21-YP)*8-2":YS="t$(3)*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: $>"CONTINUEMOS, "+N$,"COM NOVOS ELEMENTOS DA PROGRA-MACAO.","" $ǚ"QUEREMOS ESCREVER UM PROGRAMAQUE SIRVA PARA CALCULAR, ANOSSA ESCOLHA, A LONGITUDE E ASUPERFICIE DUM CIRCULO, BA-SEADO NUM DETERMINADO RAIO.","" $2"CALCULO DOS ELEMENTOS"," DUM CIRCULO" $["11 - FASE DE ENTRADA","QUAIS SAO OS ELEMENTOS RELA-CIONADOS COM O NOSSO PROBLEMA?","" $t"Os dados necessarios sao: ra-io do circulo R e opcao es-colhida: S para a superficie;L para a longitude.","" %U"22 - FASE DE ELABORACAO","COMO SE OBTEM A SUPERFICIE DEUMA CIRCUNFERENCIA ?","" %0v"Superficie = R*R*3,14Longitude = 2*R*3,14.","A variavel E$ contera S ouL para escolheres entre asduas.","" %D;"43 - FASE DE SAIDA","QUAL E O OBJETIVO DO PROGRAMA?","" %N"O objetivo do programa eimprimir, como se viu na li-cao,o calculo da superficieou da longitude de uma circun-ferencia","","" %d"AGORA, "+N$,"TRASFORMEMOS A ANALISE NUMDIAGRAMA DE FLUXO, E DEPOISEM INSTRUCOES ." %"A CONSTANTE 3.14 OBTEM-SEDIRECTAMENTE MEDIANTE O SIM-BOLO , CORRESPONDENTE ATECLA NO MODO EXTENDIDO.TERMINADO O CICLO, EXECUTA-REMOS NOVAMENTE O PROGRAMAPARA PODERES UTILIZA-LO.","" %"041INICIO","#810","161E N T R A D A","043ENTRADA","041 RAIO ","#82;","2410R","5*","042ENTRADA","041 OPCAO ","#823","2720E$" % "*1 ","5*" %G"1=2 ELABORACAO ","023L","0=0S","050E$=..","<61;","0132*R*#","#61A" %"2930E$=""L"" X=2*R*" %"090R*R*#","#61A" %"2=40E$=""S"" X=R*R*" %"*1 " %R"1B4 S A I D A ","043IMPRIME","#813","2A50X","042REGRESSA","#813","2C60 10" % "*1 ","% " %"BEM, "+N$+"AGORA TENTA TU RE-ESCREVER OPROGRAMA COM BASE NO DIAGRAMADE FLUXO.RECORDA-TE DE NUMERAR AS LI-NHAS DE 10 EM 10, A PARTIR DA10, E USAR O SIMBOLO PARA 3.14.","" &" BEM, "+N$+" ESCREVES-TE EXACTAMENTE O PROGRAMA, UTILIZANDO DUAS NO-VAS E IMPORTANTES SENTENCAS: E " &4"" zuoCAR |%U\+ ROBERTO$$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0 ڰ"7":ٰ"7":"7"::"31799":"23609","20":23561 \,60<:"23658","8":"""31800":"23606","86":"23607","123" j""q$():"":ڰ"7":ٰ"1"::"10",ç;۰"1";" PARA O GRAVADOR ":"9040":"200":"9010" "23675","88":"23676","127":P="7":I=ç:Y="4":A$="VIDEOTEST ":"9050":N="2"̰"28":"9510":N>"10"N<"21""4",N;A$(N-"10") ($.03{u\,N*2:N:95200% 2%e$=" " <"9000":"3020"  "9000" "9050":0;"11","6";"ESCOLHE";"14","6";"I INICIO";"16","6";"F FIM";"18","6";"C CARREGAR O VIDEO-JOGO" ="I"0:"30" ="C"0:"800" ="F"33804 :5,14;"FIM";13 ,1;"Coloca a cassete na sua caixa";14,1;"e desliga a alimentacao de teu";15,1;"SPECTRUM. Ate qualquer dia,";17,18;"VIDEOBASIC":5,0: &"510"  @7:7:"23675","88":"23676","127":32599W *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="1"̰"15":y(q)=q:q Dq="1"̰"15":"12","11";q$(q,"66"):"20":װ".2",(q+"10"):q "3380":"3490" ***bloquo principal*** %w="1"̰"15":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" 0O"17","1";q$(q,"2"̰"31");"18","1";q$(q,"32"̰"61"):"RESPOSTA = ";i$ : i$="" D+i$q$(q,"66"̰"65"+q$(q,"1"))"3250" Ns=s+t:"3220" X"3400":"3380" bw l***PONTUACAO*** v=8;"11","2";"A TUA PONTUACAO E DE ";s'" SOBRE 30." "3620" R"3380":"12","2";"MUITO BEM ";n$;"15","10";i$;"17","19";"ESTA EXACTO." "3540":"3160" ERRO 'װ".5","-20":"3380":i$="""3280" 013 ,2;"""";i$;""" estas enganado." 9000(# t=23320 [33804 :13 ,3;"A resposta correcta e:";15,11 ;q$(q,66B) 3160X **AJUDA II TENTATIVA** 33804 :t=1:Q$(Q,1)<313 ,3;"A RESPOSTA E MUITO CURTA";15,3;"NAO POSSO AJUDAR-TE":9041Q#:150:33804 :31200 )13 ,1;"AQUI VAI UMA AJUDA:" \15,18;q$(q,66B);b$(3̯q$(q,1));q$(q,65A+q$(q,1)) +20,10 ;0;"TENTA AGORA" 31200 ****CLS DE LIMPEZA*** 4(n=9 20:n,1;e$:n: >***prime uma tecla*** H9000(#: p***INPUT controlado*** z""3450z =""3460 k$=: ***FONDO*** fٰ"7":ڰ"5":"1","1";" ":"2","1";" " <"3","1";" ":"4","1";E$ /ٰ"1":ڰ"7":"5","1";ڰ"1";E$;"6","1";E$ -N="1"̰"30":"7","N";ڰ"7";ٰ"1";"":N %V$=" " %W$=" " %X$=" " %U$=" " %Z$=" "  ***trafico*** W<"11"W>"5""3580": W>"10""3590": /"3600":"6","1";ڰ"1";ٰ"6";V$(W*"6"): T"23675","20":"23676","91":"3600":"5","1";ڰ"1";ٰ"3";W$((W-"5")*"6") -"4","1";ڰ"5";ٰ"3";X$((W-"5")*"6"): 5"3600":"5","1";ڰ"1";ٰ"3";U$((W-"10")*"6")  ."4","1";ڰ"5";ٰ"3";Z$((W-"10")*"6"): ?n=16:.1}L,36$:.05|L,24:n: ***comentario final*** 13 ,4;N$;"," $s<1515,4;"PARA MELHORARES, REVE A";17,11 ;1;"VIDEOBASIC":9041Q#:200:500 .6s>2215,4;"muito bem, parabens!" 8rn=18:.1}L,26:n:a=1:n=14:.15~,26:.1}L,30:n =020,8;1;" prime uma tecla " BS"23675","88":"23676","127":"6","1";ٰ"6";ڰ"1";V$:V$=V$("2")+V$("1") GR"23675","20":"23676","91":"5","1";ڰ"1";ٰ"3";U$:U$=U$("2")+U$("1") Le"4","1";ڰ"5";ٰ"3";Z$:Z$=Z$("2")+Z$("1"):װ".002","30":="""4":װ".002","36":"3650" V"500"  "3650" #(yY$=" PRIME UMA TECLA PARA CONTINUAR":S$=Y$:I="1"̰"31":#ç;ڰ"6";ٰ"2";ܰ"1";"1",ç;Y$:װ".001","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" #6I:"10","5";"ESCREVE O TEU NOME NO TECLADO E PRIME " #7DN$:"50"::"8","4";N$;"10","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"::"3","3":ڰ"4";"248",ç:ڰ"4";ç,"169":ڰ"4";-"248",ç:ڰ"4";ç,-"169":8,107k:4;240,0: %&O7;3;Y,N;" ";Y+1,N;2;" ";Y+2,N;" ": %0H4,29;" ";5,29;" ";6,29;" ": шMSALTO INCONDICIONAL A UMA LI-NHA DO PROGRAMA GOTO O NOME DA CPU DO SPECTRUM Z80A MEMORIAS INTERNAS DA Z80A REGISTOS SISTEMA DE NUMERACAO COM DOISDIGITOS BINARIO SISTEMA DE NUMERACAO DE DEZAS-SEIS DIGITOS HEXADECIMAL INSTRUCAO PARA INSERIR COMEN-TARIOS NO PROGRAMA REM SE (A CONDICAO SE CUMPRIR) EN-TAO..., ESCRITO EM BASIC IF THEN GRUPO DE OITO BITS BYTE NUMERO MAXIMO QUE PODE CONTERUM BYTE 255 NUMERO MAXIMO QUE PODEM CONTERDOIS BYTES 65535 DIGITO HEXADECIMAL QUE CORRES-PONDE A 10 DECIMAL A REPRESENTA UMA DECISAO NUMFLUXOGRAMA OPCAO A MENOR UNIDADE INFORMACAO BIT TERMO INGLES QUE SIGNIFICA'CORRECCAO DE ERROS' DEBUG COMANDO PARA LIMPAR O ECRAN CLS  N p(#ysx  zc tE B ------------NW X IREMS PRIME UMA TECLA PARA CONTINUARY PRIME UMA TECLA PARA CONTINUAR aWjwV U Z A VIDEOTEST CAR 8|\ q ROBERTO$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0   EDICOES LATINAS  (5:5:5:32599W +236066\,0:236077\,60< """A",480:""  9 r#0;0,0;" PARA O GRAVADOR E PRIME UMA TECLA":1,30:0  (S=10000' 2U3=6:U2=U3:U1=U2 Z 1000 dMENSSAGEM n"" u1,0;"QUANTOS PONTOS DE 1`: ";(S);"` ?";1;0,9 ;" ";0,12 ;P$ P$>10 P$=""120x 2H=1̱P$:P$(H)"0"P$(H)"9"H:170 140 UP=P$:P>S#0;0,9 ;1;"NAO EXAGERES!":502:130 t20,9 ;1;8;" ";20,15-P$/2;8;9 ;1;P;"`" 5000  imprime "" T1;20,9 ;" ";20,14-E$/2;" ";E$;" "  " z"":#0;0,0;2;6;" ";0,0;2;6;E$   RE=9000(#S=S+P*100d RE=9100#S=S+P*40( RE=9200#S=S+P*10 RE=9300T$S=S-P XS$=S:20,9 ;1;" ";20,15-S$/2;S$;"`" &;S0E$=" PERDESTE TUDO, RETIRA-TE!":400: 0AS99999999>E$=" SOCORRO!!! ESTOU FALIDO!!!":400: N  SOM RE N,T N>69E760 T*.1}L,N  720 "20,9 ;" ":  PROGRAMA PRINCIPAL ?5:6:9 :0:0:0:0 6:Y=9 (S>99999999>S03000  100d  G=16 /X=2:I1=(*6):I1=U11040  2000+I1*100d:U1=I1  .02{# =*G,G*3 $0X=12 :I2=(*6):I2=U21060$ . 2000+I2*100d:U2=I2 4.02{# =*G,G*3+1 80X=22:I3=(*6):I3=U310808 B 2000+I3*100d:U3=I3 H.02{# =*G,G*3+2 LG Q>.733334000 V3(I1=I2I2=I3)I1=51200:JACKPOT `0(I1=I2I2=I3)I151400x:TRES j-I1=I2I2=I3I251600@:DOS tY((I1=I2)I1=5)((I2=I3)I2=5)((I3=I1)I3=5)1800:DOS BAR MRE=9300T$:E$=" PERDESTE ":200:700:500:1030  JACKPOT E$="JACKPOT":200 1RE=9000(#:700:500:1030 E$="TRES":200 1RE=9100#:700:500:1030 JE$="DOIS":200 T1RE=9200#:700:500:1030 E$="DOIS":200 1RE=9200#:700:500:1030   PRIMEIRO SIMBOLO  Y+0,X;"  " #Y+1,X;"  " Y+2,X;"" Y+3,X;"" Y+4,X;"  "  Y+5,X;"  " Y+6,X;" "  Y+7,X;" " * 4Y+0,X;"  " >Y+1,X;"  " HY+2,X;" " RY+3,X;"" \Y+4,X;" " fY+5,X;"  " pY+6,X;"  " zY+7,X;"  "  Y+0,X;" " Y+1,X;"  " Y+2,X;" " Y+3,X;" " Y+4,X;"  " Y+5,X;" " Y+6,X;"  " Y+7,X;" "  Y+0,X;"  " Y+1,X;"  " Y+2,X;" " Y+3,X;" " $!Y+4,X;"" .Y+5,X;"" 8Y+6,X;"" BY+7,X;"O Oooo" V `Y+0,X;" " jY+1,X;"" tY+2,X;" " ~Y+3,X;" " Y+4,X;" " Y+5,X;" " Y+6,X;" " Y+7,X;" "  !Y+0,X;"" !Y+1,X;"" !Y+2,X;"" !Y+3,X;"" !Y+4,X;"" !Y+5,X;"" !Y+6,X;"" !Y+7,X;""  1:100d:"" G#0;0,0;"PRIME~0~PARA REPETIR ~1~PARA FIM " 1:0 ="0"30 "1"3010  5:5:5::10 ,0;1;2;6;" POE EM MARCHA O GRAVADOR PARA CARREGAR UM NOVO PROGRAMA " "" U#0;0,0;"TIVESTE SORTE! QUe TAMBOR RODO DE NOVO? (1,2,3)" T="1"X=2:G=16:I1=(*6):2000+I1*100d:G: U="2"X=12 :G=16:I2=(*6):2000+I2*100d:G: U="3"X=22:G=16:I3=(*6):2000+I3*100d:G:  4010 MANIVELA 5:9 K=718 DK,30;"";K+1,30;"";K+2,30;"" K-1,30;" " .0001sQX*K*K,69E K  0 87,30;"";8,30;"";9 ,30;"";3;10 ,30;"";11 ,30;"";12 ,30;"";13 ,30;"";13 ,30;"";14,30;"";15,30;"";16,30;" ";17,30;" ";18,30;" " 920,30;"";19,30;"" .01z# =,39' \ 6: f # #(7,1,16,4,7,1,16,1,16,1,7,1,16,1,16,1,15,1,16,1,19,4,17,1,16,1,14,1,14,.5,13 ,.5,14,.5,16,.5,14,1,14,.5,13 ,.5,14,.5,16,.5,14,2,12 ,1,7,2,68D,1 #27,1,16,4,7,1,16,1,16,1,7,1,16,1,16,1,15,1,16,1,19,4,17,1,16,1,14,1,14,.5,13 ,.5,14,.5,16,.5,14,1,14,.5,13 ,.5,14,.5,16,.5,12 ,6 #<4e4@,0 #F95_,0 #0,2,2,1,4,1,5,1,7,1,9 ,1,11 ,1,12 ,2,11 ,1,9 ,1,7,1,5,1,4,1,2,1,0,2 #4E4@,0 #R0,1,2,1,0,1,-1,1,0,4 #4E4@,0 $T-8,1,-8,1,-8,1,-12 ,6,-10 ,1,-10 ,1,-10 ,1,-13 ,6 $^4E4@,0 scy p x #n@tEDOISS25552P2SCHAR 0Xh> 2SLOT @\)?>?Áy>y>y>y>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>?Á????????<<<<?(FFFF"JJJJxRRRR bbbb ><<<<~)))))))))))))))))))))))))))))))))):::::::::::yyyyyyyyy)))))))))))):::::::::::yyyyyyy99)))))))))))))))))))))))9999999))))))))))))VVVVVVVVVVVVVVVVVVVVVVVVVVVVVV**!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!**""""""""""""""""""""""""""""""(("*222222*"!*222222*!!*222222*!((!22222222!!20000002!!20000002!((!22221112!!22222202!!22221112!((!22211112!!22200202!!22211112!+(!20211112!!22222222!!20211112!+(!21111112!!22222222!!21111112!+(!21111112!!211!!!12!!21111112!+(!21111112!!211!!!12!!21111112!+(!22222222!!20000002!!22222222!+(!20000002!!20000002!!20000002!++!22222222!!22222222!!22222222!++!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!++!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!+(!!!!!!!!!pppppppppppp!!!!!!!!!+(888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888OVIDEONEXT 8 <z:*  EDICOES LATINAS * *  SOFTIDEA (Como) * f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0  31999| {23658j\,8:236099\,20:20,0;:""32000}:236066\,0:236077\,124| ,23675{\,502:23676|\,91[ P#0;0,0; " PARA O GRAVADOR " 2 7 <-n=1502:.01z# =,*60<:n F 0330J P 0410 Z SUMARIO d1::0500 nL.6,21:P$=" no numero 4 ":k=4:0520 x;p$="VIDEOHARDWARE: ":K=6:0520 :p$="A memoria do SPECTRUM ":k=7:0520 9p$="o mapa de memoria ":k=8:0520 <p$="VIDEOBASIC-A LINGUAGEM: ":k=10 :0520 ;p$="As funcoes: SQR-INT-SGN-ABS ":k=11 :0520 :p$="PEEK - POKE ":k=12 :0520 <p$="VIDEOBREAK: ":k=14:0520 ;p$="O SPECTRUM borda ":k=15:0520 <p$="VIDEOBASIC-A PROGRAMACAO : ":k=17:0520 ;p$="contador-ciclo controlado ":k=18:0520 <p$="VIDEO-JOGO: ":k=20:0520 ;p$="Campo minado ":k=21:0520 150 23733\=1270330J:0410::0440:L=10 :a$=" NO PROXIMO NUMERO ":360h:330J: 23733\=2550330J:0410::0440:L=10 :a$=" ATE A PROXIMA ":360h:10000' 38&,64@,38&,79O,-2,38&,79O,38&,100d,-1,38&,100d,44,,112p,-2,44,,112p,72H,114r,-1 72H,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 "220,90Z,215,70F,-1,215,70F,190,63?,-2,190,63?,160,65A,-2 ,160,65A,130,60<,-2,130,60<,115s,63?,-2,115s,63?,90Z,59;,-2,90Z,59;,60<,65A,-2 6*-2,0,0,0,0 @ROTULO ROTATIVO Jy$=" PRIME UMA TECLA PARA CONTINUAR ":s$=y$:i=131:#0;6;2;1;1,0;y$:.001wn,30:"""": TQy$=s$(i)+s$(2i):.0004uQX,45-:.0006vIQ,557:"""": ^i:0330J h RUTINA MAQUINA DE ESCREVER r`l,0;"";:q=1̱a$:a$(q);:a$(q)" ".0005vn,40(:m=1̥*5:m |4a$(q)=".".2~L,0:23692\,255 q: LEITURA DOS UDG 4:0420: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:0470 Z17,n;" ";18,n;" ";19,n;" ":.01z# =,40(:n:0470  ENQUADRAMENTO 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 : 7aa=2:bb=11 :p$="VIDEONEXT":0490: ROTULOS ENTRANTES Ln=1̱p$:k,32 -n;p$(N):.002xn,(k-3)*n/8:n: JaVLkPCampo minado Y PRIME UMA TECLA PARA CONTINUAR S PRIME UMA TECLA PARA CONTINUAR l A! ATE A PROXIMA "!rlrCAR }< $$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >