ZXTape! VIDEOBASIC>+@(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:   EDICOES LATINAS " *317997|:7:7:7: Mn=09 :n,0;" ":n Cn=16:n,4;" ":n (>n=35:n,10 ;" ":n 216,23;" ";17,21;" ";18,21;" ";19,20;" ";20,20;" " 3 ? '#+563?`@###133~  qw{>|?  000000000000000000000000000000000000000000000000000000000000000000000000000100000001111022200000000000000211000000011112222000000000000002222200022222222220000000000000020200000002222222200000000000000000000000000000000000000666666666000000000066000000000006660088888888888888888880666660000000888===============8000000088888888?===============8888888888888888?<<<<<<<<<<<<<<<8888888888888888?;;;;;;;;;;;;;;;8888888888888888?;;;;;;;;;;;;;;;8888888888888888?:::::::::::::::8888888888888888?:::::::::::::::8888888888???888888888888888888:8888888888???8888????88?????::::8888888888???????889999999999:::888888888?88888888888888889999998888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888VIDEOLIST J  EDICOES LATINAS  f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 317997|:0:0:0:0:23658j\,8:236099\,20:20,0;:""318008|:236066\,86V:236077\,123{ 23675{\,88X:23676|\,127:7:7:1::#0;0,0; " PARA O GRAVADOR " (Cn=1502:.01z# =,*60<:n:490:600X F SUMARIO P,:AA=1:690:.6,21 d;K=6:p$="VIDEOHARDWARE: ":0710 n/p$="O Modem * As Redes Locais ":0710 =K=K+1:p$="VIDEOBASIC-A LINGUAGEM: ":0710 /p$="Funcoes Trigonometricas ":0710 .p$="Analise e Estrutura ":0710 -p$="dos Programas ":0710 =K=K+1:p$="VIDEOBREAK: ":0710 /p$="Verao ":0710 =K=K+1:p$="VIDEOBASIC- A PROGRAMACAO: ":0710 /p$="Misseis de Profundidade ":0710 90490::AA=2:0690:.6,18 :K=8:p$="VIDEOTEST: ":0710 .p$="Jogo de adivinhas sobre ":0710 -p$="os temas da licao ":0710 <K=K+1:p$="VIDEOJOGO: ":0710 .p$="Blokmen ":0710 <K=K+1:p$="VIDEONEXT: ":0710 .p$="No proximo numero... ":0710 #0490:1::0630v "REGISTO DO NOME , 612:AA,BB,CC,DD,EE:aa=-2330J @"AA,BB:CC-AA,DD-BB,EE:3106 J60<,65A:-30,-19:8,18:1:9 ,7;"ESCREVE O TEU NOME";10 ,9 ;"NO TECLADO";11 ,8;"E PRIME ":n$ Tn9 ,7;" ";10 ,9 ;" ";11 ,8;" " ^L10 ,5;" ESTA BEM ESCRITO, ";11 ,7;N$;" ? (S/N)" r="S"400 |c="N"10 ,7;" ";11 ,7;" ":330J  360h NN=1̱N$:N+23296[,N$(N):N:N+23296[,"":23296[,""  0530 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 *-2,0,0,0,0 LETREIROS ROTATORIOS 3150:Y$="*PRIME UMA TECLA PARA CONTINUAR *" e#0;1,0;1;5;1;Y$(32 ):.001wn,30:"""": TY$=Y$(2)+Y$(1):.0004uQX,45-:.0006vIQ,557:495  TEXTO :0630v:13 ,13 :22,0:0,30:-22,0:0,-30:11 ,0;" Poe o gravador em marcha " I=116:.04|# =,36$-I:I:150:11 ,0;" ":10 ,0;" estou a carregar "''" VIDEOHARDWARE ":7:236066\,0:236077\,60<:0,0;"":"" NLE OS UDG X4:0610b:N=063?:A:"A"+N,A:N: b00,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 lHOMENZINHO v&N=302-1:8 t(N/2)=(N/2)17,N;" ";18,N;" ";19,N;" ":.01z# =,30:N:0660 Z17,N;" ";18,N;" ";19,N;" ":.01z# =,40(:N:0660  RECUADRO 1000: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 : +BB=11 :P$="VIDEOLIST":0680: LETREIROS ENTRANTES ON=1̱P$:K,31-N;P$(N):.002xn,K*N/8:N:K=K+1: a0,0:255,0:0,175:-255,0:0,-174: aVLkPMisseis de Profundidade Y! UMA TECLA PARA CONTINUAR **PRIMECAR LIST |Lm)"$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0 p236099\,1:9998':"""A":""318008|:0:0:0:0:0:0 R317997|:n$="":a=23297[23317[:a127n$=n$+¾a:a:n$="" u=5000:z=7000X:1;7;18,1;" ESPERA UM MOMENTO! ";" QUASE QUE TERMINEI !";16,0; ""16384@ `S$=" ":6:0:A=1621:A,0;S$:A 6:"":17,0;" NESTE NUMERO OCUPAREMO-NOS DAS TECNICAS DE TRANSMISSAO DE DA- DOS ENTRE DOIS OU MAIS COMPU- TADORES."; (""22528X - 0 29998':S=0:A=140(:S=S+254-191:0.002xn,A:#1;1;1,0;" PARA O GRAVADOR ":A/502 <A:S>0502 F.A=1421:A,0;"";S$:A PJ0,64@:255,0:0,65A:255,0 Uj0:"":3,3:249,0:0,579:-249,0:0,-579 dٰ"7":M=1:u:AT=15:P=1:L$="O DESENHO MOSTRA COMO SAO AMAIORIA DOS ACOPULADORES ACUS-TICOS,QUE POR RAZOES DE SINTE-SE CHAMAREMOS MODEM DEMOdula-dor-Modulador." ez:6000p mu:AT=15:L$="ESTE APARELHO PERMITE A COMU-NICACAO ENTRE DOIS COMPUTADO-RES PELA LINHA TELEFONICA." z [AT=18:P=2:L$="CONVERTE OS DIGITOS PROVENIEN-TES DO INTERFACE CONTROLADO..." z:6000p ,GAT=15:u:L$="DO COMPUTADOR EM SINAIS ANALO-GICOS E VICEVERSA." 6z  6000p U:AT=15:L$="TAMBEM ATRAVES DE UM MODEMPODEM TRANSMITIR-SE DADOS EN-TRE DISTINTOS COMPUTADORES, AOEMPREGAREM-SE TECNICAS DETRANSMISSAO STANDARD." z  6000p `AT=15:u:l$="A VELOCIDADE DE TRANSMISSAOESTA COMPREENDIDA ENTRE 110 E1200 BAUDIOS." z N 6000p XAT=15:u:L$="PARA REALIZAR UMA TRANSMISSAODE DADOS COM O SPECTRUM, E NE-CESSARIO DOTAR O COMPUTADORDUM RS232 PARA A CONVERSAO DEBYTES DE PARALELO..." bz  6000p KAT=15:u:L$="EM SERIE, E TAMBEM UM SOFTWAREADEQUADO PARA O MODEM." z ]AT=18:L$="DESTA MANEIRA PODE TER-SE A-CESSO COM UM SPECTRUM AOS BAN-COS DE DADOS." z  6000p  AT=15:u:L$="ENTAO VEJAMOS AGORA DE QUE ECOMPOSTO UM MODEM. NO SEU IN-TERIOR HA DOIS CIRCUITOS ELEC-TRONICOS: UM PARA A RECEPCAODE SONS COM UM MICROFONE...":7000X \A=21:6:9 :1:5500|:0:1;9 ,0;"     "' "     "' "     "' "    " f 8000@:30 z 6000p Fu:L$="E OUTRO PARA A RECEPCAO, QUECOMANDA UM AMPLIFICADOR (EAR)."  AT=15:z 26:9 :1:A=9 :5500|:0:A=21:5500|:1;9 ,0;"     "'  "     "' "     "' "    "  8000@:30 AT=19:3:0:L$=" QUERES VER DE NOVO (S/N) ? ":7000X:1:0:="S"A=9 12 :A,4;1;""+S$("1"̰"20"):A:0:A=9 2112 :5500|:A:100d MM=10 :1:1:7:A=013 :A,0;S$:A 3:1:7:P=10 :at=15:l$="VARIOS SPECTRUM PODEM ESTARINTERLIGADOS ENTRE ELES, FOR-MANDO ASSIM UMA REDE LOCAL." u:z g8:7:8000@:85004!:l$=" EXEMPLO DE REDE LOCAL ":AT=12 :7000X KAT=19:L$="ISTO E POSSIVEL GRACAS AO ""INTERFACE 1""." z BP=10 :6000p LAT=15:u:P=11 :L$="COM ESTA CONEXAO PODEM UNIR-SEATE 64 SPECTRUM, CADA UM DOSQUAIS PODE TER ACESSO, MEDIAN-TE INSTRUCOES ADEQUADAS, AOSPERIFERICOS DOS DEMAIS.":7000X $8000@:8700!:6000p u L$="O METODO DE TRANSMISSAO DEDADOS E DE TIPO SERIE SINCRO-NIZADO, PELO QUE A CONEXAO EN-TRE VARIOS SPECTRUM E SUMARIA-MENTE IDENTICA."  7000X:6000p 5000:L$="UMA REDE LOCAL DESTE TIPO PO-DE SER UTIL PARA CONTROLAR UMLABORATORIO DE INFORMATICA, OUPARA POR OS INQUILINOS DUMIMOVEL EM CONTACTO COM A POR-TARIA." F7000X:6000p xe0:5000:L$=" ":7000X:AT=16:L$=" QUERES VER DE NOVO (S/N) ? ":7000X 71:0:="S"Ŧ="s"P=10 :1000 6="N"Ŧ="n"0:4:0::1500  1450 :1''''" POE EM MARCHA O GRAVADOR ":40( +4:254<1921510 :4:"" @3:1:A=1520:A,1;S$("3"):A  01;6,A;" ";7,A;" ": zu#1;1;0,0;" ""5"" PAGINA ANTERIOR   ""8"" PAGINA SEGUINTE" (9999':10 :""6100 u#1;1;0,0;" ""5"" PAGINA ANTERIOR  ""8"" PAGINA SEGUINTE" I236066\,85U:236077\,123{:10 :""6100  6000p 19998':="8"P=P+1:"":P*100d 8#="5"P=P-(P>M):"":P*100d  6000p btA=1̱L$:AT+((A-1)/30),1+(((A-1)/30)-((A-1)/30))*30;L$(A) l0.002xn,1:A: @( A=110 :0.05|L,A:A: !>A=22710 !Hx6,A;"";7,A;;"";8,A;"";9 ,A;"";10 ,A;"";5,A;"" !RP:A*8,119w:P=110 :l$:0,l$:l$:l$,0:P !A:a=15:8591!:a:3,23678~\:a=12:8591!:a:5,0:0,-11 :4,6;1;"> < > <" !-3,0:1;3,0: !"-23","55","23","1","9","-57","-9","57","9","-4","1","-11","1","11","-2","-40","11",(72H*(a<20)),(-11 *(a<20)),"0" !K"29","28","11","-62","-11","34","-6","-60","6","23","11","-46","-11","25" !Y8605!:223,129:A=17:L$:0,l$:l$:l$,0:A #'>9999':1,18;1;"drive impres.": '/236066\,86V:236077\,123{: '-236066\,0:236077\,60<: bNuzXS smpLUMA REDE LOCAL DESTE TIPO PO-DE SER UTIL PARA CONTROLAR UMLABORATORIO DE INFORMATICA, OUPARA POR OS INQUILINOS DUMIMOVEL EM CONTACTO COM A POR-TARIA. UDG X8 wTTTWGEGEu\T\XTUw$'$'wTwdTwTtTWpAr@s>>>BbRJFB>> @8Dp| |8H~|>@ƒB<" > A". |x ?$Od$D` /??!??UUUUUUUUUUUUp AUUUWUUT" UUUx#W?$/$'Š# ?  Aj#0z>?@$$$  UUUU"UUUUUUUUUUUUUP A UUUX5UUV" UW $$D  ꪪ!:!*"ꪪ08#π?#LJ ? UUUUUUUUW uUUUUUUUUUUUUUX  UUUX5UUV | W`$/`/pp:pT#@ <<<<<|<<<<<??7ppzT p D`fbbfbfFbfffnfbf??? @9UU??868??88?`fph`rfFpfff,vfpf,x @U3"`f\),0:(23613=\+256*23614>\+1),0 _"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 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 ^ٰ"9":b$=" ":U="1":Z=U-U:RR="8150":TX="8330":IN="8400" Lt1="7950":ڰ"8":A$=" FUNCOES TRIGONOMETRICAS":TUTTO="9800":"8410": LT$="A TRIGONOMETRIA E A PARTEDAS MATEMATICAS QUE, PAR-TINDO DO COMPORTAMENTO DEUM PONTO QUE PERCORRE UMA CIR-CUNFERENCIA, ANALIZA AS RELA-COES QUE EXISTEM ENTRE OSLADOS E OS ANGULOS DE UMTRIANGULO.":TUTTO T$="NESTA LICAO SO PODEREMOSESTUDAR ALGUMAS NOCOES ELE-MENTARES DE TRIGONOMETRIA, JAQUE AS APLICACOES ABARANGEMUM GRANDE NUMERO DE CAMPOS.":TX C''':T$="VEJAMOS A ORIGEM DAS FUN-COES FUNDAMENTAIS:":TUTTO 42i="12"̰"240"Ͱ"4":i,"112":װ".01","*30":i >i="70"̰"160"Ͱ"4":"127",i:װ".01","*30":i:ٰ"2";"127","112","50":"7",u;ڰ"2";"-x";"7","29";"+x";u,"14";"+y";"13","14";"-y" >T$="SE UM PONTO PERCORRE UM ARCODE COMPRIMENTO ...":T1 `@i=z̰".75"Ͱ".02":"127+50*i","112+50*i":u,z:װ".01",i:i t"5","23";U;"A":rr:t$="O ANGULO QUE SE OBTEM UNINDOA PERIFERIA DO ARCO AOCENTRO, TEM UMA AMPLITUDE DE RADIANOS.":T1 Ai=z̰".75"Ͱ".1":"127","112":"50*i","50*i":װ".01",i:i ,i=ṵ"37":"127+i","112":z,"i*.75":i Vi="38"̰"50.5".5:"127+i","112":z,"(2551-i*i)":i:u;"164","146",u+u tRR:T$="A DISTANCIA DO PONTO AO EIXO, REFERIDA NO RAIO DO CIR-CULO DENOMINA-SE < SENO DOANGULO A >.":T1 5i="112"̰"146":u;"164",i:װ".05","*30":i:rr ("164","112":Z,"34" ZrT$="A DISTANCIA ENTRE O PONTO EO EIXO , SEMPRE REFERIDAAO RAIO, DENOMINA-SE .":T1 2I="127"̰"164":i,"146":װ".01","*30":i:rr p"127","146":U;"37",z:t$="PROLONGANDO O RAIO ATE ATANGENTE DO CIRCULO PARALELOAO EIXO ...":T1 T"164","146":"12","11" 2i="112"̰"158":"177",i:װ".01","*30":i:rr t$="OBTEREMOS UMA NOVA DISTAN-CIA QUE DENOMINAREMOS , SENDO ESTAA RELACAO ENTRE SENO E COSE-NO.":t1:RR IN:T$="AS FUNCOES ANTERIORMENTE VIS-TAS NAO ESTAO EXPRESSAS EMUNIDADES LINEARES MAS SIM COMORELACOES RESPEITANTES AO RAIODO CIRCULO PERCORRIDO POR UMPONTO.":TX ަT$="PORTANTO E NECESSARIO ENCON-TRAR UM ARGUMENTO EXPRESSO EMRADIANOS E NAO EM GRAUS HEXA-DECIMAIS. A CONVERSAO DASDUAS UNIDADES DE MEDIDA E SIM-PLES:":TX XU''" ";ڰ"2";"RADIANOS = (GRAUS/180)*":U''" ";ڰ"2";"GRAUS = (RADIANOS/)*180":rr IN:t$="DO EXEMPLO ANTERIOR PODEMOSDEDUZIR QUE AS FUNCOES TRI-GONOMETRICAS TOMAM VALORES PO-SITIVOS OU NEGATIVOS,SEGUNDO OANGULO DEFINIDO COMO ARGUMENTO":TX 0rr:::''''u;" ANGULO RAD valor de ",  &u;"compreendido entre SIN COS TAN", heI=ṵ"4":t$,a$:ڰ"6";"i*2+5",z;t$;"7";"-> ";a$;"16";:j=ṵ"3":t$:" ";ڰ"3";t$;:j::i _"0","/2","+","+","+","/2","","+","-","+","","3/2*","-","-","-","3/2*","2*","-","+","-" ZRR:IN:T$="E AQUI COMO SE PODEM OBTEROS CATETOS DE UM TRIANGULORECTANGULO:":T1 0"50","79":"150",Z:Z,"80":"-150","-80" 5U;"11","8";"A";"11","24";"B";"3","24";"C"  5u;"12","15";"s";"6","25";"t";"6","14";"u" ARR:t$="":t1:"14",u;:"5140":i=ṵ"3":t$:'U;" ";t$:i P"t = u*SIN A s= u*COS A" Z"t = s*TAN A s= t/TAN A" d"t = u*COS C s= u*SIN C" "rr:t$="...E A HIPOTENUSA:":T1 "17",u;:t$:'" ";t$ "u = s/COS A u = t/SIN A" rr:in:t$="EXISTEM TAMBEM AS FUNCOESINVERSAS E ,QUE PERMITEM OBTER O ANGULODISPONDO RESPECTIVAMENTE DOSENO, COSENO OU TANGENTE.":TX p"6100":RR::#z;z,Z;ڰ"4";"...e agora um pouco de diversao!":"200":i=zu:a$,t$:#z;z,z;u;"X=";a$,"Y=";t$,:j=z̧+Ͱ".02":a$,t$:j:"100"::i V"127+43*j-43*(j*6)","86+43*j-43*(j*6)","j*40 ","80+70*(8*j)*j " 2:i=z̰"255"Ͱ"3.5":z,"80":i,"70*(i/15)":i  RR:ڰ"8":IN:"8070":"1000" WS="14":i=S̰"20":i,u;ڰ"6";b$:i:"3","168-S*8+3":ڰ"4";"248",z:S+U,z: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);:T$(N)=" "5:8385 6OPT$(N)=".".1}L,30:9 :8385 .0025x# =,25 "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: &HTX:RR:IN: zuLJ eaNB  uttH&cJsT ECLA PARA CONTINUAR PRIME UMA TA POE O GRAVADOR EM MARCHA CAR LING 1 |0,"$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),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 ^ٰ"9":b$=" ":U="1":Z=U-U:RR="8150":TX="8300":IN="8400" ERC=U:t1="7950":ڰ"8":A$=" ANALISE E ESTRUCTURA":"8410":tx:rr 4 3000 :'u+u;"EXTRACTO",,''ڰ"5";"10 12 84 -30.000 GASOLINA.","15 1 85 85.000 CHEQUES"," 7 2 85 -320.000 SEGURO "," .......",, U,U:"100":"////////////////////////////////"'U+U;"PERGUNTA",,ڰ"6"''"IMPRIME MOVIMENTOS DE TIPO...","IMPRIME MOVIMENTOS > DE .....", U,"8":"100":'"////////////////////////////////";U+U;"TOTAIS ",,''ڰ"4";" SALDO 350.000"," RECEITA 270.000"," FACT.CARRO 112.500"," FACT.TELEF 38.200"," .....",,,," TOTAL 695.000", !U,"12":"100":rr:in:tx:rr Hڰ"6"::U;"Assim podemos planear o formatodos registos no arquivo:", _"8","3";"1 5 10 15 20 25":I=ṵ"27":"i*8+16","114":z,"4+(3i/5=(i/5))":i hD"5","3";ڰ"4";" DATA ";U;"T";ڰ"3";" MOVIM ";U;" DESCRIC " 0qU,"20":"200":''''''ڰ"5";" DATA 1...6",''" TIPO 7...7",''" MOVIM 8..15",''" DESCR 16..26", &U,"28":ڰ"7":ڰ"8"::rr:in:tx:rr ڰ"8":IN:"8070":"1000" @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" z"11","6";"F FIM";"13","6";"I VOLTA AO INICIO";"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) v1"8330":T$="30"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);:T$(N)=" "8385 6OPT$(N)=".".1}L,30:9 :8385 .001wn,40( "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: zuƑ ZBEM, jA CONHECES A MAIOR PARTE DASINSTRUCOES , E SABESESCREVER PROGRAMAS SIMPLESPARTINDO DOS TEMAS MAISVARIADOS.% %PENSO QUE TE PODEM SER UTEISA PARTIR DE AGORA, ALGUMAS NO-COES DE ANALISE E ESTRUCTU-RA QUE TE PERMITAM UTILIZARMAIS ANALITICAMENTE OS CONHE-CIMENTOS QUE POSSUIS. MAS NAO TE PREOCUPES ! DESTA VEZ NAO SERA MUITO MAISDIFICIL ! COMO E FACIL INTUIR,A UM CAR-PINTERO NAO LHE BASTA SABERSERRAR PARA CONSEGUIR CONS-TRUIR UM ARMARIO, DA MESMAFORMA QUE A UM PROGRAMADORNAO LHE BASTA O CONHECIMENTOTECNICO DAS INSTRUCOES PARAPREPARAR UM PROGRAMA DE CERTACOMPLEXIDADE.% % SE BEM QUE OS PRIMEIROS EXITOSOBTIDOS COM O COMPUTADOR IN-DUZAM A UM LANCAMENTO VIGOROSOSOBRE O TECLADO ANTES DE SEDEFINIR PREVIAMENTE O QUESE DESEJA CONSEGUIR, UM PRIN-CIPIO ASSIM PODE CONDUZIR ADIFICULDADES QUE NOS POSSAMLEVAR A UMA RENUNCIA DO PRO-JECTO, OU PELO MENOS, A COME-CAR TUDO DE NOVO. VERDADEIRAMENTE E UTIL FAZERUMA MINUCIOSA VALORIZACAO PRE-VIA DO PROBLEMA: UMA ANALISE.% %A ANALISE CONSTITUI A FASEDECISIVA DA RESOLUCAO; APROGRAMACAO REDUZ-SE ENTAOA UMA OPERACAO AUTOMATICAE MECANICA. CUANTO MAIS PRECISA HAJA SIDOA ANALISE, MAIS SIMPLES,RAPIDAE IMEDIATA RESULTARA APROGRAMACAO.% %VEJAMOS UM EXEMPLO: SUPOE QUE QUEREMOS ESCREVER UMPROCEDIMENTO QUE NOS MANTENHAINFORMADOS DO MOVIMENTO DANOSSA CONTA CORRENTE.# # PARA OBTER ESTE RESULTADODEVEREMOS TECLEAR PARA CADAMOVIMENTO AS SEGUINTES INFOR-MACOES:& &1) FECHA O MOVIMENTO; 2) O TIPO (FACTURAS,INGRESSOS, ETC...); 3) O MOVIMENTO EM SI; 4) A DESCRICAO.% %ESTABELECAMOS AGORA COM QUEPROGRAMAS DESENVOLVEREMOS AAPLICACAO. E NECESSARIO:& &1) UM EDITOR QUE PERMITA PORO ARQUIVO EM DIA; 2) UM PROGRAMA QUE IMPRIMA OESTADO DA CONTA; 3) UM PROGRAMA QUE CALCULE OSTOTAIS DIVIDIDOS POR GRUPOS; 4) UM PROGRAMA QUE PROCURE EVISUALIZE OS REGISTOS QUERESPONDAM A UM DETERMINADOCAMPO DE BUSCA; 5) UMA ROTINA DE INICIALIZACAO# #NESTE PONTO A NOSSA APLICA-CAO COMECA A TER UMA IDENTI-DADE. DEFENIMOS:& & 1) O RESULTADO FINAL; 2) DADOS DE ENTRADA; 3) O FORMATO DO REGISTO; 4) OS PROGRAMAS NECESSARIOS.##[t$eaNB l  'l cJTESCREVER PROGRAMAS SIMPLESA POE O GRAVADOR EM MARCHA tCAR LING 2 |x"$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >, E SABESESCREVER PROGRAMAS SIMPLESPARTINDO DOS TEMAS MAISVARIADOS.% %PENSO QUE TE PODEM SER UTEISA PARTIR DE AGORA, ALGUMAS NO-COES DE ANALISE E ESTRUCTU-RA QUE TE PERMITAM UTILIZARMAIS ANALITICAMENTE OS CONHE-CIMENTOS QUE POSSUIS. MAS NAO TE PREOCUPES ! DESTA VEZ NAO SERA MUITO MAISDIFICIL ! COMO E FACIL DEDUZIR,A UM CAR-PINTERO NAO LHE BASTA SABERSERRAR PARA CONSEGUIR CONS-TRUIR UM ARMARIO, DA MESMAFORMA QUE A UM PROGRAMADORNAO LHE BASTA O CONHECIMENTOTECNICO DAS INSTRUCOES PARAPREPARAR UM PROGRAMA DE CERTACOMPLEXIDADE.% % SE BEM QUE OS PRIMEIROS EXITOSOBTIDOS COM O COMPUTADOR IN-DUZAM A UM LANCAMENTO VIGOROSOSOBRE O TECLADO ANTES DE SEDEFINIR PREVIAMENTE O QUESE DESEJA CONSEGUIR, UM PRIN-CIPIO ASSIM PODE CONDUZIR ADIFICULDADES QUE NOS POSSAMLEVAR A UMA RENUNCIA DO PRO-JECTO, OU PELO MENOS, A COME-CAR TUDO DE NOVO. VERDADEIRAMENTE E UTIL FAZERUMA MINUCIOSA VALORIZACAO PRE-VIA DO PROBLEMA: UMA ANALISE.% %A ANALISE CONSTITUI A FASEDECISIVA DA RESOLUCAO; APROGRAMACAO REDUZ-SE ENTAOA UMA OPERACAO AUTOMATICAE MECANICA. QUANTO MAIS PRECISA TENHA SIDOA ANALISE, MAIS SIMPLES,RAPIDAE IMEDIATA SERA' APROGRAMACAO.% %VEJAMOS UM EXEMPLO: SUPOE QUE QUEREMOS ESCREVER UMPROCEDIMENTO QUE NOS MANTENHAINFORMADOS DO MOVIMENTO DANOSSA CONTA CORRENTE.# # PARA OBTER ESTE RESULTADODEVEREMOS TECLAR PARA CADAMOVIMENTO AS SEGUINTES INFOR-MACOES:& &1) FECHA O MOVIMENTO; 2) O TIPO (FACTURAS, RECEITAS, ETC...); 3) O MOVIMENTO EM SI; 4) A DESCRICAO.% %ESTABELECAMOS AGORA COM QUEPROGRAMAS DESENVOLVEREMOS AAPLICACAO. E NECESSARIO:& &1) UM EDITOR QUE PERMITA POR O ARQUIVO EM DIA; 2) UM PROGRAMA QUE IMPRIMA O ESTADO DA CONTA; 3) UM PROGRAMA QUE CALCULE OS TOTAIS DIVIDIDOS POR GRUPOS4) UM PROGRAMA QUE PROCURE E VISUALIZE OS REGISTOS QUE RESPONDAM A UM DETERMINADO CAMPO DE BUSCA; 5) UMA ROTINA DE INICIALIZACAO# #NESTE PONTO A NOSSA APLICA-CAO COMECA A TER UMA IDENTI-DADE. DEFINIMOS:& & 1) O RESULTADO FINAL; 2) OS DADOS DE ENTRADA; 3) O FORMATO DO REGISTO; 4) OS PROGRAMAS NECESSARIOS.##LINGUAGEM3;  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 ^ٰ"9":b$=" ":U="1":Z=U-U:RR="8150":TX="8330":IN="8400" VC=Z:RC=u:in:"8300":rr L :"3000":rr:in:"8300":rr #"4500":"3000":RR:IN:"8300" T "7900" I:T$:"21",Z;:U:TX:Z:Z,Z;:i=z̰"20":,ڰ"6",:i:I=Ṵ"1E3":T$ ?T$(u)="0"xp="t$(2)-48":yp="t$(3)-48":YP,XP;T$("4") T$(U)="#"t$(u)="<""7950" t$(u)="+""7940" Kt$(u)="2"y="t$(u+u)-48":y,"17";:t$=t$("3"):ڰ"5":"8330":ڰ"7" T$(U)""i  <"" DIAGRAMA DE FLUXO DO EDITOR " "021INICIAL.","022VARIAVEIS","#920","21num. registo ","22 etc.","024INICIAL.","025 ECRAN ","#923","24dados cost.","25nome ,arqu.,dad" Ҋ"027IMPRIME","028PAGINA","#923","27pagina ecran ","28posto em dia","02:PERGUNTA","02;OPCAO ","#923","2:escolhe operac","2;a executar" ]"02=ERRO ?","<913","2=verif. intro.","04?ROLL?","<513","0;?ROLL","#510","2?nova pagina " ]"04AACT.?","<513","0;AACT.","#510","2Aact./mod./canc.","02C FIM ?","<913","2Cretorno menu" h$"+013+112-008+000+000-092+004+000" |Z"+094+068+012+000+000+020-018+000","+079+052+007+000","+130+052+002+000+000-008-080+000" ;"+079+036+007+000","+130+036+002+000+000-008-080+000","" ""REG=REG. SOLICITADO N=NUM.REG" "032FORA ","033LIM.?","<629","0;2MODIF","0;3VAL.","#520","22IF REG<4 THEN","23LET REG=4","026INICIAL.","027 CICLO","#82;","26FOR I=REG-3","27TO REG+3" /"+082+152+003+000","+105+142-000-006-057+000" /"+079+092+006+000","+105+086+000-034-058+000" "03:REG>N","<61;","0;:BRANC","#510","02=IMPRIMIR","02>REGISTO ","#82;","2:IF REG>N THEN","2;PRINT ,,","2=IF REG<=N THEN","2>PRINT F$(I)" >"03@FIM ?","<613","2@NEXT I","02CVOLTAR ","#81;","2CRETURN" ("+016+044-006+000+000+060+037+000",""   RR:ڰ"8":IN:"8070":"1000" t$(̰"4"),t$("5"̰"8") <t$=t$("9"):t$(̰"4"),t$("5"̰"8"):t$>"8""7941"  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": @2Z: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:"" *"7",U;:T$="ESCOLHE, "+n$+":":"8330" }"11","6";"F FIM";"13","6";"I VOLTA AO PRINCIPIO";"15","6";"C PASSO P/A PARTE";"16","8";"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) v1"8330":T$="30"T$(30)="#"rc=rc+u: {'F$(rc,30)="%"rc=rc+u:"8300" rc=rc+u:"8302" ڰ"8":c=Z:N=U̱t$ (T$(N)="%"8150:"8400":vc=u: T$(N)="&"'U''" ";: T$(N)="#"P="8": T$(N);:T$(N)=" "8385 6OPT$(N)=".".1}L,30:9 :8385 .001wn,30 "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: zuƑ ZVEJAMOS POR EXEMPLO O PROGRAMADE ACTUALIZACAO. NECESSITAMOS:& &1) APRESENTAR UMA PAGINA INI-CIAL FORMADA PELOS ULTIMOSMOVIMENTOS INTRODUZIDOS; 2) DISPOR DA FUNCAO (AVANCO DE PAGINA OU RECUO DEPAGINA); 3) REUNIR/ APAGAR/ MODIFICAROS MOVIMENTOS SEGUNDO AS NE-CESIDADES; 4)COMPROVAR SE SAO VALIDOS OSDADOS INTRODUZIDOS; 5) MANTER SEMPRE ACTUALIZADAAS PAGINA DO ECRAN.# #O PROGRAMA ESTA PRACTICAMENTETERMINADO, MAS AS EXPRESSOES< PEDIR OPCAO >, < IMPRIMIRPAGINA >ETC., NAO SAO INSTRU-COES VALIDAS EM , NEMEM NENHUMA OUTRA LINGUAGEM,SEMTRABALHO DEFINEM PERFEITAMENTECADA FUNCAO LOGICA; NA PRATICAREALIZA-MOS UMA . NO CASO DO COMPUTADOR NAOACITAR ESTAS INSTRUCOES,SUPERA-SE MUITO FACILMENTECOMO VEREMOS MAIS ADIANTE.% % CONSIDEREMOS AGORA UM BLOCOQUALQUER: POR EXEMPLO < IM-PRIME PAGINA >. TEREMOS QUEPROPORCIONAR-LHE DE ENTRADA:&&1) O ARQUIVO. 2) O NUMERO DO ARQUIVO QUE DE-SEJAMOS QUE APARECA EM PAGINA;3) O TOTAL DE REGISTOS CONTI-DOS NO ARQUIVO.& &PARA SE SAIR ESTARA EXPLI-CITO NO ECRAN.# #SE O ESPACO PERMITIR, APAGINA CONTERA ALEM DOREGISTO SOLICITADO, OS TRESANTERIORES E POSTERIORES. QUANDO O CICLO EX-CEDE O NUMERO DE REGISTOSDISPONIVEIS, IMPRIME-SE UMALINHA EM BRANCO (PRINT,,) PARAAPAGAR OS DADOS ANTIGOSEVENTUALMENTE PRESENTES. A ROTINA ACTUA,PARAOBTER A PAGINA ANTERIOROU POSTERIOR ATRAVES DEINCREMENTOS OU DECREMENTOS NAVARIAVEL .% %DESENVOLVENDO DE IGUAL FORMAOS OUTROS BLOCOS OBTER-SE-AOOUTRAS ROTINAS DE MENOR COM-PLEXIDADE, QUE, REAGRUPADASE CHAMADAS POR DARAOVIDA AO PROGRAMA. ASSIM SERAFACIL COMPROVAR A VALIDADE DECADA COMPONENTE ESTABELECENDO,MEDIANTE INSTRUCOES DIRECTASAS VARIAVEIS DE ENTRADA, EEXECUTANDO UM A DIRE-CAO DE PARTIDA.% %ISTO NAO SIGNIFICA QUE NAPROVA DEFINITIVA TUDO ESTEJA AFUNCIONAR PERFEITAMENTE, SEMTRABALHO, E ACTUANDO METODICA-MENTE SOBRE ESTA ESTRUTURA( OUOUTRAS),A COMPOSICAO DO PRO-GRAMA E A CONSEQUENTEVERIFICACAO VEM MUITO FACILI-TADAS.% %COM EFEITO, AS REGRAS A SEGUIRPARA OBTER PROGRAMAS ESTRU-TURADOS SAO MAIS NUMEROSAS,SEMTRABALHO O IMPORTANTE E QUEHAJAS COMPREENDIDO PERFEITA-MENTE AS FASES QUE NOS TENHAMLEVADO PROGRESSIVAMENTE A PRE-PARACAO DE UMA APLICACAO SO-BRE O COMPUTADOR.# #* eaNB  'l c  A POE EM MARCHA O GRAVADOR JyTOS MOVIMENTOS SEGUNDO AS NE-QCAR LING 3 |;j"$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" > (AVANCO DE PAGINA OU RECUO DE PAGINA); 3) REUNIR/ APAGAR/ MODIFICAR OS MOVIMENTOS SEGUNDO AS NECESSIDADES; 4) COMPROVAR SE SAO VALIDOS OS DADOS INTRODUZIDOS; 5) MANTER SEMPRE ACTUALIZADA AS PAGINAS DO ECRAN.# #O PROGRAMA ESTA PRATICAMENTETERMINADO, MAS AS EXPRESSOES< PEDIR OPCAO >, < IMPRIMIRPAGINA >ETC., NAO SAO INSTRU-COES VALIDAS EM , NEMEM NENHUMA OUTRA LINGUAGEM,SEMTRABALHO DEFINEM PERFEITAMENTECADA FUNCAO LOGICA; NA PRATICAREALIZAMOS UMA . NO CASO DO COMPUTADOR NAOACEITAR ESTAS INSTRUCOES,SUPERA-SE MUITO FACILMENTECOMO VEREMOS MAIS ADIANTE.% % CONSIDEREMOS AGORA UM BLOCOQUALQUER: POR EXEMPLO < IM-PRIME PAGINA>. TEREMOS QUE LHEPROPORCIONAR COMO ENTRADA:&&1) O ARQUIVO. 2) O NUMERO DO ARQUIVO QUE DE- SEJAMOS QUE APARECA EM PAG.3) O TOTAL DE REGISTOS CONTI- DOS NO ARQUIVO.& &PARA SE SAIR ESTARA EXPLI-CITO NO ECRAN.# #SE O ESPACO PERMITIR, APAGINA CONTERA ALEM DOREGISTO SOLICITADO, OS TRESANTERIORES E POSTERIORES. QUANDO O CICLO EX-CEDE O NUMERO DE REGISTOSDISPONIVEIS, IMPRIME-SE UMALINHA EM BRANCO (PRINT,,) PARAAPAGAR OS DADOS ANTIGOSEVENTUALMENTE PRESENTES. A ROTINA ACTUA,PARAOBTER A PAGINA ANTERIOROU POSTERIOR ATRAVES DEINCREMENTOS OU DECREMENTOS NAVARIAVEL .% %DESENVOLVENDO DE IGUAL FORMAOS OUTROS BLOCOS OBTER-SE-AOOUTRAS ROTINAS DE MENOR COM-PLEXIDADE, QUE, REAGRUPADASE CHAMADAS POR DARAOVIDA AO PROGRAMA. ASSIM SERAFACIL COMPROVAR A VALIDADE DECADA COMPONENTE ESTABELECENDO,MEDIANTE INSTRUCOES DIRECTASAS VARIAVEIS DE ENTRADA, EEXECUTANDO UM A DIREC-CAO DE PARTIDA.% %ISTO NAO SIGNIFICA QUE NAPROVA DEFINITIVA TUDO ESTEJA AFUNCIONAR PERFEITAMENTE, SEMTRABALHO, E ACTUANDO METODICA-MENTE SOBRE ESTA ESTRUTURA( OUOUTRAS),A COMPOSICAO DO PRO-GRAMA E A CONSEQUENTEVERIFICACAO VEM MUITO FACILI-TADAS.% %COM EFEITO, AS REGRAS A SEGUIRPARA OBTER PROGRAMAS ESTRU-TURADOS SAO MAIS NUMEROSAS,SEMTRABALHO. O IMPORTANTE E QUETENHAS COMPREENDIDO PERFEITA-MENTE AS FASES QUE NOS TENHAMLEVADO PROGRESSIVAMENTE A PRE-PARACAO DE UMA APLICACAO SO-BRE O COMPUTADOR.# #