ZXTape! 2.VIDEO BASIC (EDICOES LATINAS) - TAPE 14 SIDE BEDICOES LATINAS, LDA / JACKSON PORTUGUESSPECTRUM BASIC COURSENONE ORIGINAL TAPE20 TAPES COURSELINGUAGEM6^x   EDICOES LATINAS  Zf(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 _"31969":z=ç:u=::"23609","20":"23658","8":"""31970":""F$():"23606",z:"23607","124":ڰ"7":z::ڰ"8":u;"10",z;" PARA O GRAVADOR ":I=Z̰"10":װ".01","I*5":I dF"23675","66":"23676","124":ٰ"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 Xb$=" ":U="1":Z=U-U:RR="8150":TX="8330":IN="8400" GRC=U:VC=Z:ڰ"8":A$=" O INTERFACE 1 E O ARQUIVO":"8410":"8300" :rr:in:t=ṵ"4":A=Z a$,t$ "7950" qI$:i$a$A=A+U:A<"3""20",u;u;" NAO E CORRECTO !!...OUTRA VEZ":U,"-20":"100":"20",U;b$:"3300" >a="3""20",U;u;"ESTA E A INSTRUCAO EXACTA:":"100" H3j="11"t*"2"-u:j,u;a$;j+u,u;b$:װ".01",j:j "20",U;B$:t <"""M"";1;""CART1""","COMPRASTE UM CARTUCHO QUEDESEJAS CHAMAR . TEN-TA ESCREVER A INSTRUCAO QUESERVE PARA O TORNAR OPERATIVO.USA O MICRODRIVE <1>." P"6;""M"";1;""DADOS"""," ...AGORA, TENDO QUE GRAVARNO ARQUIVO ATRAVES DOCANAL <6>, SERA NECESSARIOREALIZAR..." Zo"#6;"""+N$+"""","AGORA, NO ARQUIVO RECEMABERTO, INDICA O TEU NOME. EMLUGAR DE USA ." dN"6","BEM. COMO NAO TENS NADA MAISPARA GRAVAR PODES TERMINAR COM...","",""  RR:ڰ"8":IN:"8070":"1000" Ni="13"̰"20":ڰ"6";i,u;b$:i:"3","67":ڰ"4";"248",z:"15",U;:TX: @2Z: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, "+n$+":":"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" t$="C""8000"  "8090" 1502: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" U;U;:c=Z:N=U̱t$ (T$(N)="%"8150:"8400":vc=u: T$(N)="&"'U''" ";: T$(N)="#"P="8": T$(N)="^""#";:8382 (T$(N);:T$(N)=" "2:8385 6OPT$(N)=".".1}L,30:9 :8385 .001wn,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: ڌVC=Z:"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: zuU XO INTERFACE 1 ACEITA TODASAS INSTRUCOES DE ACCESSO AARQUIVOS (PRINT, INPUT, ETC.)EXISTENTES NO SPECTRUM.% %AO NAO ESTAREM PREVISTAS LI-GACOES AUTOMATICAS, ESTAS TE-RAO DE SE EFECTUAR NUMA DETER-MINADA CORRENTE QUE IRA ASSO-CIADA A UM CANAL MEDIANTE. POR EXEMPLO:& &OPEN ^6;"M";3;"BASIC" OPEN ^15;"B" INPUT ^6;A$;C PRINT ^15;"E.LATINAS"% %EM RELACAO AO INTERFACE1 NAO E VALIDO EM QUALQUERFORMA QUE IMPLIQUE UMA SAIDA( MENSAGENS, ETC... ); AS POS-SIVEIS LIGACOES MULTI-PLAS DEVEM SEPARAR-SE COM <;>.POR EXEMPLO:& &INPUT ^12;A$;CODIGO;F$(3);X% %CADA REGISTO DEVE TERMINARUNICAMENTE COM UM CARACTER<13>(ENTER).ESTE ULTIMO ENVIA--SE AUTOMATICAMENTE SE PRINTNAO ACABA COM <,> OU <;>; OUMEDIANTE CHR$(13), O <'>.% % Portanto:& &PRINT ^9;A$'B$& &genera 2 registos:& &PRINT A$;B$;COD;& &FICA EM SUSPENSO UM UNICO RE-GISTO, FORMADO PELA UTILIZA-CAO DE: , E E NAO E RECUPERAVEL PELO CORRESPONDENTE.% %INKEY$ ^ & &LE UM UNICO CARACTER DESDE OCANAL ESPECIFICO. O SEU USOE IDENTICO AO EXPLICADO PARAO TECLADO.% %CADA CANAL ABERTO DEVE SERFECHADO NO FINAL DO PROGRAMAMEDIANTE , PARA EVITARPERDER OS ULTIMOS DADOS EN-VIADOS. O GRUPO , EM RELACAO A UM CANALNAO PRECISA DE OPEN NEM CLOSE.% % MOVE& &SERVE PARA TRANSFERIR AUTOMA-TICAMENTE UM ARQUIVO DE UM CA-NAL A OUTRO. PODE-SE ESCREVER:& &MOVE ^6 TO ^14& &SE OS CANAIS 6 E 14 JAESTIVEREM ABERTOS. PORTANTOOS DADOS PASSARAO DOCANAL 14 AO 6 ...% %BEM:& &MOVE "N";3 TO "M";1;"nome"& &PARA EXECUTAR SIMULTANEAMENTEA ABERTURA; E VALIDA TAMBEMQUALQUER COMBINACAO DAS DUASFORMAS ANTERIORES. EM AMBOS OSCASOS MOVE SO E POSSIVEL COMARQUIVOS DE TIPO E DE-CERTO, GERADOS COM .% %CLEAR ^& &APAGA TODOS OS CANAIS ABER-TOS, E LIGA AS CORRENTESDESDE<0> A <3>,AOS SEUS DESTI-NOS INICIAIS. NAO SE CONSIDE-RA COMO UM FECHAR NORMAL,OS ARQUIVOS QUE ESTAO ABERTOSE OS DADOS A ESPERA DE TRANS-FERENCIA PERDEM-SE.% %CLS ^& &LIGA OS ATRIBUTOS DE VISUA-LIZACAO SEGUNDO OS VALORESINICIAIS DO PROGRAMA.# #eaNB  H c  p A6IT CAR LING 6 |^  "$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >. POR EXEMPLO:& &OPEN ^6;"M";3;"BASIC" OPEN ^15;"B" INPUT ^6;A$;C PRINT ^15;"E.LATINAS"% %EM RELACAO AO INTERFACE1 NAO E VALIDO EM QUALQUERFORMA QUE IMPLIQUE UMA SAIDA( MENSAGENS, ETC... ); AS POS-SIVEIS LIGACOES MULTI-PLAS DEVEM SEPARAR-SE COM <;>.POR EXEMPLO:& &INPUT ^12;A$;CODIGO;F$(3);X% %CADA REGISTO DEVE TERMINARUNICAMENTE COM UM CARACTER<13>(ENTER).ESTE ULTIMO ENVIA--SE AUTOMATICAMENTE SE PRINTNAO ACABA COM <,> OU <;>; OUMEDIANTE CHR$(13), O <'>.% % Portanto:& &PRINT ^9;A$'B$& &gera 2 registos:& &PRINT A$;B$;COD;& &FICA EM SUSPENSO UM UNICO RE-GISTO, FORMADO PELA UTILIZA-CAO DE: , E E NAO E RECUPERAVEL PELO CORRESPONDENTE.% %INKEY$ ^ & &LE UM UNICO CARACTER DESDE OCANAL ESPECIFICO. O SEU USOE IDENTICO AO EXPLICADO PARAO TECLADO.% %CADA CANAL ABERTO DEVE SERFECHADO NO FINAL DO PROGRAMAMEDIANTE , PARA EVITARPERDER OS ULTIMOS DADOS EN-VIADOS. O GRUPO , EM RELACAO A UM CANALNAO PRECISA DE OPEN NEM CLOSE.% % MOVE& &SERVE PARA TRANSFERIR AUTOMA-TICAMENTE UM ARQUIVO DE UM CA-NAL A OUTRO. PODE ESCREVER-SE:& &MOVE ^6 TO ^14& &SE OS CANAIS 6 E 14 JAESTIVEREM ABERTOS. PORTANTOOS DADOS PASSARAO DOCANAL 14 AO 6 ...% %BEM:& &MOVE "N";3 TO "M";1;"nome"& &PARA EXECUTAR SIMULTANEAMENTEA ABERTURA; E VALIDA TAMBEMQUALQUER COMBINACAO DAS DUASFORMAS ANTERIORES. EM AMBOS OSCASOS MOVE SO E POSSIVEL COMARQUIVOS DE TIPO ,GERADOS COM .% %CLEAR ^& &APAGA TODOS OS CANAIS ABER-TOS, E LIGA OS FLUXOSDESDE<0> A <3>,AOS SEUS DESTI-NOS INICIAIS. NAO SE CONSIDE-RA COMO UM FECHAR NORMAL,OS ARQUIVOS QUE ESTAO ABERTOSE OS DADOS A ESPERA DE TRANS-FERENCIA, PERDEM-SE.% %CLS ^& &LIGA OS ATRIBUTOS DE VISUA-LIZACAO SEGUNDO OS VALORESINICIAIS DO PROGRAMA.# #EXERCICIOSV  EDICOES LATINAS  f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 7"31969":z=ç:u=::"23609","20":"23658","8" """31970":"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","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 'I=U:PN=U:A$=" INTERFACE 1":"8410" $ "8500" ~"8075":E"1000" @/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:""  8150 9"8400":7,U;:T$="ESCOLHE, "+N$+":":8330 E=Z:11 ,6;"F FIM";13 ,6;"E EXERCICIOS";15,6;"C PASSO P/A PARTE";16,6;" SEGUINTE" Z$=:Z$="F" Z$="E"I=PN:E=U: Z$="C"I=I+U:PN=I:  8090 1502: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)=""P="8": +T$(N);:OPT$(N)=" "8:8385 6OPT$(N)=".".1}L,30:9 :8385 .003xD,0 "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":"127-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 !"14",U;:"8450" " "8150" " "8600" "$u,u;:T$="AGORA, "+N$+"":"8330":U+U,u;:T$="TENTA ESCREVER AS INSTRU-COES QUE TENHAM RELACAO COM OINTERFACE 1, QUANDO EU AS PE-DIR.":"8330":ER=Z "`"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)=""x=x+u "ER="9"c$=b$(i):"9040" #(&#z;z,z;u;"K":z:c$=¾"23560":"" #-,"23617",Z:C$=°"14""23617",U:"9000" #.C$<" ""9000" #2(i=uC$<""C$>"9"C$=(C$+165) #4+I>UB$(I-U)=""C$<""C$=(C$+"165") #Z/u+U,u;ٰ"6";c$;:"(32-23688+x)>31"c$="?" #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","10";U;"OUTRA VEZ!":"50":װ".1","20":"9","10",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 #KEr"100":"8","10";"OUTRA VEZ!":װ".5","32":"8470":ER=Z:"8850" # "8810" $ D A T A  $"VEJAMOS AGORA AGUNS EXEMPLOSPRATICOS; DEPOIS SEGUIREMOSCOMO DE COSTUME, COM ALGUMASPERGUNTAS PARA COMPROVAR OQUE APRENDESTE.","" ${"CAT #7,2","LIGANDO, POR EXEMPLO, OCANAL7 A UM FICHEIRO DE MICRO-DRIVE, E POSSIVEL MEMORIZAR OCATALOGO .","" %"PRINT #4;CHR$ 12;#3;A$","ABRINDO, POR EXEMPLO, O CANAL#4 COM E A #3 COM, E POSSIVEL ENVIAR LISTA-GENS E CARACTERES DE CONTROLOUSANDO SIMULTANEAMENTE AMBOSOS CANAIS.","" %"ERASE A$;N;B$","TAMBEM AS INSTRUCOES RE-FERENTES AO INTERFACE 1 ACEI-TAM VARIAVEIS EM LUGAR DE VA-LORES ABSOLUTOS.","" % "FORMAT ""M"";1;""MICROSOFT#1""","ESTA INSTRUCAO E ERRADAPOSTO QUE O COMPRIMENTO DONOME NAO DEVE SUPERAR OS 10CARACTERES.","" %g"LOAD *""M"";1;""""","ESTA INSTRUCAO TAMBEM EERRADA: O MICRODRIVE NAO ACEI-TA NOMES NULOS.","" %S"SAVE *""N"";3 LINE 100","O INTERFACE 1 ACEITA TODASAS FORMAS DE GRAVAR.","" %"MOVE ""N"";7 TO ""T""","COM ESTA SIMPLES INSTRUCAOE POSSIVEL ENVIAR AO CANAL TUDO O QUE SE RECEBA DE OUTROSSPECTRUM LIGADOS A REDE.","" %0"" %: INTER %?L"#3,1","ENVIA O DO MICRODRIVE 1"," A IMPRESSORA (CANAL 3)","" %Dg"#6;COD;N$","SITUA NAS VARIAVEIS"," E, OS DADOS LIDOS"," APARTIR DO CANAL #6","" %II"*""M"";1;""PROG""","CARREGA DO MICRODRIVE<1>","O PROGRAMA ","" %N"""M"";1;""A""#2","LISTA O ARQUIVO ","REFERENTE AO MICRODRIVE <1>","NA PARTE SUPERIOR DO","ECRAN (CANAL #2 )","" %SJ"3;""T""","LIGA AO CANAL ","O FLUXO DIRECCIONADO","POR ","" %XD"""T"",2400","LIGA AO CANAL ","A VELOCIDADE DE 2400 BAUD","" &G"" zu "ea c J#xNeC0BT ESCOLHE, :ZCA POE O GRAVADOR EM MARCHA ;CAR EXER |րG/"$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0 023658j\,8:7:7:7 31969|:""31970|: ,236077\,124|:236066\,0 (-23675{\,88X:23676|\,127 220:0:P$=" PARA O GRAVADOR " <X=210-1 FX,5;1;P$ P"X21X+1,0,, U .2~L,X Z+X:3:1.5@,-1:150 d 7:: n0,0;"DURANTE ESTE VIDEOBREAK, TERAS AOPORTUNIDADE DE OBSERVAR COMO SEPODE DESENHAR UMA IMAGEM, UTI-LIZANDO LOGO DIVERSOS OBJECTOS." x/40(:X=22528X22528X+127 "X,64@+568+(*4) $.002xn,(X-22528X)/2 X 1,40( 200: A#1;1,0;"  POE EM MARCHA O GRAVADOR " K23624H\,63?:1,40(:100d::23570\,16 "" 7:"" l23570\,6:#1;0,0;"PREPARA PRIMEIRO UM ESBOCO GEO-METRICO DO TEU DESENHO..." 23570\,16:"" 18,0 "" 18,0 "" n23570\,6:#1;0,0;"...E DEPOIS INDICA OS DETALHES ECORES. " 18,0 ,23570\,16:7:7:"" P PARA O GRAVADOR XXxCAR BREAK |1,"$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" > #p@ H@ @(@ 8@ ''8u0  #@ H@ @(@|~ @ |wpxo  y@@@@"@@@@@ @@ @@`@@;@@p@@888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888$ECRAN 2 @  ?B!??B!< B! ?B! BB! BB! BB!B!@H@@(@@ # ~0@H@| $@p@ 8@H@ $ @8 P@H@| $ 8 @P@H@ $  `@P@H@|@ $ ? `x@H@@(@8@ '/p` ހ@H@@(@x@  p@z@@@@@@@@@|B>B<|<<@>BB<<B>BBBB<~>BBB<<<~BB<<~x~~B~B@@@888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888NECRAN 3 @  - B{{;!Gssc;C{{z{%wsr#9F1ss{!ŹwF={ B{{;1C{{c;C{{:#+G5ssz!wB1{{{!ǽwsB=s{#9C{{šwrc{;8#+C{{z!wB{{;!ǽwsB{{`!ǹwc{;ǡwsrc;9-wpC{{:!ws{b{;91C{{#B1{{{#91r={:wBB{{!=`c1C{{ġwrB{{p!31@{{!F1.s`Jb{x#B{{;#9zzB;` bc;=!b{{!wsr BP{{! sB{;V!B1sc;x܀!wssb{;9!=ws!z@9=F0sc#9B%c;1wsz bP{;!( %{c"F1B1{ֽx܀F1ss{c;9!v=s{7F=B1s{#!9 J%wc;B1{{z b{"1/@!{#!KB{xހ5s9z8ހ Co!wx~<~BB<<<<7F1s {!ŹF={ B{{;1CcC{:#+G5ssz!wB1{ {!ǽB=s{#9C šCrc{?8#+C{xz!wB{;!ǽB{{`!ǹcǡtOrc;9-wpC{`:!w {b{91C{{#ΗB1{?{{#91r={:wBB{{!=`c1C{{ġ rB{{p!31@{{!F1.s`Jb{x#ϗB{?;#9zzB;` bc;=!b܇{{!wr BP{{! sB{;V!B1sc;x܀!ws3b{9!=ws!z@9=F0sc#9B%c;~1wz bP{;!( %{c"F1B1{ֽ?x܀F1ss{c;9!v=s{7F=B1s{#!9 J%wcB1{{z b{"1/@!{#!KB{xހ5s9z8ހ Co!w5s=zǸހ cg!w{v=z\G?Ǽn? cg?1p{r=:@Go#w1@000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000008((8((80000000000000000000008(((((80000000000000000000008(((((80000000000000000000008(((888000000000000000000000888888800000000000000000000088888880000000000000000000008888800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000    8888888888888888888888888888888888888888888888888888888888888888PROGRAMA MHR O  EDICOES LATINAS  f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 |23570\,6:"31969":z=ç:u=:o="8":"23609","20":"23658","8":"""31970":"23606",z:"23607","124" |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" *#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:"880" 4(a$="12"ƱW$-uw$=w$(̱w$-u):"880" 90FL=Z:N="2"̱w$:w$(N)"0"w$(N)"9"N:FL=U >6(FLW$(W$)="")a$"A"a$"Z"a$=(a$+165) Cw$=w$+(a$a$" ") 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" ~-15,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 LM=U:"8300":RR 5st=Z:b=ṵ"4":"9640":i=z̰"21":o;i,"17",:i bɰ"4":"127",z:z,"175" 5BU"21",z;u;"F$:ARQUI I:VAR.CONT. C$=PROCURA" ;lm="17":b="2"z,z;:t$="5 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":0;U,"18",:ER=ER+u:"3400" RER="3"LM=U:T$="E MELHOR VOLTARES A LER O PRO-GRAMA. TENTA NOVAMENTE MAS COMCUIDADO.":8400 :TX:RR:ST=I:b=u:"3900" zNt$(u)="1292"(B)y="t$(u+u)-48":y,"17";:t$=t$("3"):tx:BU"9050" T$(U)="*"b=u"9050" 3I="12""103","108":"6",Z:Z,"16":"-12",Z I="24""87","52":"8",Z PI="27""95","29":Z,-U:"-32",Z:"102","20":"20",Z:Z,"44":"-58",Z tT$(U)"%"i ~#b=U+Ulm=u:rr:"8400":"8300" Bɰ"3""":RR <b FLM=U:"8400":t$="AGORA, "+N$+"EXECUTAREMOS O PROGRAMA. OB-SERVA SE PARA A PROCURA NO AR-QUIVO TENS SUFICIENTES INFOR-MACOES PARCIAIS.":"8330":"8150" P0:U$("9","10"):I=Ṵ"9":"NOME ?";U$(I):I Z2:"PROCURA ";A$:I=Ṵ"9":U$(I,̱A$)=A$U$(I) dI nB#Z;Z,Z;U;"C=PROCURAR I=INTRODUZIR F=FIM ":Z:="C""3930" x="I""3920" }"F""3950" $T$:T$4900$ %"8400":LM=U:"8300":RR:"8400" ."7",U;:LM="4":T$="ESCOLHE, "+N$+":":TX |"11","7";"C CARREGAR O";"12","9";"PROXIMO PROGRAMA";"14","7";"I INTRODUCAO";"16","7";"E EXERCICIO" 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 r5"8","30";" ";"9","30";" ";"10","30";" " | ٰ"7":"" ."50":Y$=" PRIME UMA TECLA PARA CONTINUAR " #Z;ڰ"6";ٰ"2";U;U,Z;Y$ *Y$=Y$("2")+Y$(U):װ".03","20":""  "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; En=u̱t$:C=C+U:P;T$(N)t$(n)"";:T$(N)" ".002xn,40( "t$(n)=""c=z:u;lm;:"8390" (T$(N)=".".1}L,30:10 C=30C=Z:U;lm; N:Z:P=o-u: iPL="4":XL="248":YL="169":"2":ڰ"7"::U+U,U;:,: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: $†"O PROGRAMA QUE ANALIZAMOS DES-TA VEZ, REFERE-SE A UMA TIPI-CA OPERACAO INFORMATICA: A ME-MORIZACAO E PROCURA DE INFOR-MACOES.","" $ǻ"NA FASE PRELIMINAR MEMORIZARE-MOS NOVE OPERACOES(NOMES, PA-LAVRAS, NUMEROS).CONTUDO LOCA-LIZAREMOS AS QUE DESEJAMOSBASEANDO-NOS NUMA CHAVE (O AR-GUMENTO PARTICULAR)DE PROCURA.","" $1" CONSULTEMOS "," O ARQUIVO " $O"11 - FASE DE INPUT","QUAIS SAO OS ELEMENTOS NECES-SARIOS AO PROBLEMA ?","" $k"Durante a primeira fase, in-troduziremos 9 informacoes;de-pois, indicaremos a chave paraa procura.","" %="22 - FASE DE CALCULO","COMO PROCURAR AS INFORMACOES ?","" %0j"Utilizando um ciclo FOR-NEXT.Analizaremos os <9> registosprocurando o que e igual achave C$.","" %D8"43 - FASE DE OUTPUT","QUAL E O RESULTADO FINAL ?","" %Nx"O resultado consiste na im-pressao de todos aqueles re-gistos cuja parte inicial se-ja igual a chave C$.","","" %|"AGORA, "+N$+"TRANSFORMAREMOS A ANALISE AN-TERIOR NUM DIAGRAMA DE FLUXO,ELOGO DIRECTAMENTE EM INSTRU-COES .","" %"141 FASE INTROD. ","042DIM.ARQU","#810","2210F$(9,10)","044IN.CICLO","#813","2420I=19","046INT.NOME","#813","2630""NOME"";F$(I)" %:"048 FIM ? ","<813","2840I","*1 ","1A5 FASE PROCURA" %N"04:IN.PROC.","#813","2:50""PROC. "";C$","04>> @8Dp| |8H~|>@ƒB<" >>>  > >> x !X 6# x !@@~ #................................... *  EDICOES LATINAS * f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 ç:ç:ڼ:ټ:缧::"31969":"10",;ٰ"7";" ESTOU A CARREGAR TESTE ":"23609","20":"23658","8":ټ:"":""31970|:"23606",ç:"23607","124":""Q$():""16384@,2048 2:"":DISP=(23636T\*256+23635S\-23755\):copy=23760\+DISP:cls=23772\+DISP:attr=23813]+DISP:SCROLL=23828]+DISP eڰ"7":ټ:9550N%:attr:"15",ç;" 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 cassette na sua caixa";14,1;"e desliga a alimentacao ao teu";15,1;"SPECTRUM. ATE BREVE,";19,18;"VIDEOBASIC":5,0: &"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":"" ***resposta flash*** *s=0:x=10 :B$="------------" ,Y(10 ):q=110 :y(q)=q:q \q=110 :12 ,11 ;q$(q,66B):20:.2~L,(q+10 ):q 9050Z#:3490 ***bloco principal*** .w=110 :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*** {719,1;"A TUA PONTUACAO E ";s;" SOBRE 20." 3620$ g9050Z#:12 ,2;"MUITO BEM ";n$;15,10 ;i$;17,19;"ESTA EXACTO." 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 II** II=2:PP=5:9050Z#:t=1:Q$(Q,1)<313 ,3;"A RESPOSTA E MUITO CURTA";15,5;"NAO POSSO AJUDAR-TE":9041Q#:150:9050Z#:31200 -13 ,1;"AQUI TENS UMA SUGESTAO:" \15,18;q$(q,66B);b$(3̯q$(q,1));q$(q,65A+q$(q,1)) )20,10 ;0;"OUTRA VEZ" 31200 * ***CLS*** 4 9550N% >***prime tecla*** H 9000(# p***INPUT controlado*** z""3450z =""3460 k$=:  VISUALIZACAO BLOCO :YY=(*2)*4:XX=(*5)*6+1 (YY,XX)183550 1;II;PP;YY,XX;" ";YY+1,XX;" ";YY+2,XX;" ";YY+3,XX;" ":YY=4YY+4,XX;II;PP;1;" "  ***comentario final*** 13 ,4;N$;"," $s<10 15,4;"PARA MELHORARES LE DE NOVO";17,11 ;1;"VIDEOBASIC":9041Q#:200:500 .6s>1515,4;"Muito bem, parabens!" 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" #6S9550N%:"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: #[i"2":ڰ"7":9550N%:"3","3":ڰ"4";"248",ç:ڰ"4";ç,"98":ڰ"4";-"248",ç:ڰ"4";ç,-"98": %&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 & CAR TEST |X"ROBERTO$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >x~<|<<><>>@@@@@@B( '@W@BBBBbD@BfBBD@AAwBD@BBB@B?|@|||@B`$@Š{@B@BBRB|=~BB"GBZBBB|@@ BB|B|B<@@@@@@@~@ ?SA@BN|~JB@B??"~BB|B@A`@0`BB@BB~@ ?@@@@@@BppHprj`BBDBFD@Ap@BBBDD@@@?0$D@BBBBB6?~~~~~~BDB I @<x~<|B<><   # !Z@p@@`VIDEO-JOGO8Bi  :a(s)=s*(s<18)+UN -236099\,Z:23562 \,UN:Z:Z:Z:Z: m$(12 ,9 ):m$(U)="Janeiro":m$(2)="Fevereiro":m$(3)="Marco":m$(4)="Abril":m$(5)="Maio":m$(6)="Junho":m$(7)="Julho":m$(8)="Agosto" (bm$(9 )="Setembro":m$(10 )="Outubro":m$(11 )="Novembro":m$(12 )="Dezembro" 2m(12 ):a=U12 :days:m(a)=days:a:31,29,31,30,31,30,31,31,30,31,30,31 11 )+153*(a=11 )):a: a=220:8,a*8-4:5;247,Z:a11 Z;4;1;a,Z;(160+(a>11 )):a: Va:8,83S:5;247,Z:5;Z,2:5;-247,Z d1;1;9 ;Z,Z;" " |l$=a1:1;1;7;Z,Z;"Biorritmo de ";n$'"para : ";m;"/";a2;" nasc : ";g1;"/";m1;"/";l$(34) 'n(n=n-(n)=n-((n/10 )*10 ) gf=gt-(gt/23)*23 ge=gt-(gt/28)*28 gi=gt-(gt/33!)*33! pa=gfgf+m(m)-1:11 -9 *(a/23*2*),a-gf+1;1;7;1;"F":a pa=gege+m(m)-1:1;2;7;11 -9 *(a/28*2*),a-ge+1;"E":a pa=gigi+m(m)-1:1;3;7;11 -9 *(a/33!*2*),a-gi+1;"I":a y#1;1;9 ;1;0,0;" " e#1;1;9 ;1;0,0;n$;" Ja viveste ";gt'"dias, ate : 1 de ";m$(m) & 0U1000:XS=2:YS=2:YY=176:P$="Prime uma Tecla ":9998' 582:0:3:3:7:0: ?"PRIME ""N"" PARA O BIORRITMODO PROXIMO MES"'""''"PRIME ""Z"" PARA IMPRIMIR O BIOR-RITMO"'''"PRIME ""A"" PARA NOVO BIORRITMO"'''"PRIME ""C"" PARA CONTINUAR " D2:0 N="A"1 X ="Z"330J::05600 b^="N"m=m+1:a2=a2+(m=13 ):m=m*(m12 )+(m>12 ):330J:05600 g="C"2000 l 0590N (23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:236077\,60<:236066\,0:23658j\,8:23675{\,88X:23676|\,127 32255}:""32256~: 3GR1=9999':GR2=9998':Z=ç:U=:UN= 1:3:0: 85:yy=0:p$="PARA":ys=6:9997 ' /6:yy=480:p$="O":ys=6:GR2 =4:yy=96`:p$="GRAVADOR":ys=6:9997 ' Tyy=150:ys=3:xs=1:p$=" 1986 VIDEOBASIC ":5:GR2 M300,:0:.1}L,19:2:0::2:1 6:6:2: FYS=3:YY=16:P$=" POE EM MARCHA O GRAVADOR ":9997 ' JYS=5:YY=90Z:P$="PRIME UMA TECLA PARA CONTINUAR":9997 ' !1:0:6::"" @ 7: JR3:YY=10 :P$="I":8100:p$=" = Ciclo Intelectual":8200 TM1:YY=502:P$="F":8100:P$=" = Ciclo Fisico":8200 ^P2:YY=90Z:P$="E":8100:P$=" = Ciclo Emocional":8200 h 500: ,XS=3:YS=4:XX=10 :GR1: ;XS=1:YS=3:XX=40(:YY=YY+5:GR1: ' xs=(32 /p$) ''xx=(256-8*xs*p$)/2 '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~: r'r'zuPPARAi[w' CAR JOGO ~80![~#"[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(// P 88MU U \Wq !}v> ` p P @pp P` @Pp\),0:(23613=\+256*23614>\+1),0 317997|:7:7:7:0:0:0::23658j\,8:236099\,20:""318008|:236066\,86V:236077\,123{ 23570\,6:23675{\,88X:23676|\,127:1::#0;0,0; " PARA O GRAVADOR " [23624H\,579:n=1502:.01z# =,*60<:n:1000:8990# - SUMARIO 7\:90102#:.6,21:K=3:P$=" no numero 15 ":9020<# 8=K=K+2:p$="VIDEOHARDWARE: ":9020<# 9/p$="O Modem ":9020<# ;=K=K+1:P$="VIDEOBASIC-A LINGUAGEM: ":9020<# =K=K+1:p$="VIDEOBREAK: ":9020<# ?/p$="Tranquilidade ":9020<# @=K=K+1:p$="VIDEOBASIC-A PROGRAMACAO: ":9020<# A/p$="Bombas de Profundidade ":9020<# K=K=K+1:p$="VIDEO-JOGO: ":9020<# L/p$="Simulador de voo ":9020<# dj150:1000::8994"#:13 ,10 ;"ATE A PROXIMA":18,19;"VIDEOBASIC" nLn=1502:.01z# =,*60<:*7:n:2:7: 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 502:y$=" PRIME UMA TECLA PARA CONTINUAR ":s$=y$:i=131:#0;1;5;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 #!HOMBRECILLO #"&n=302-1:8 #$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&# #& #(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 : #2C9999':AA=1:BB=11 :P$="VIDEONEXT":9000(#: #; ROTEIROS  #FYn=1̱p$:k,31-n;p$(N):.002xn,(k-3)*n/8:n:K=K+1: 'a0,0:255,0:0,175:-255,0:0,-174: 2CAR PROG |R"$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >