ZXTape! VIDEOBASIC>+A(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;" " 3C ? '#+563??`@###133~  qw{>|?  000000000000000000000000000000000000000000000000000000000000000000000000000100000001111022200000000000000211000000011112222000000000000002222200022222222220000000000000020200000002222222200000000000000000000000000000000000000666666666000000000066000000000006660088888888888888888880666660000000888===============8000000088888888?===============8888888888888888?<<<<<<<<<<<<<<<8888888888888888?;;;;;;;;;;;;;;;8888888888888888?;;;;;;;;;;;;;;;8888888888888888?:::::::::::::::8888888888888888?:::::::::::::::8888888888???888888888888888888:8888888888???8888????88?????::::8888888888???????889999999999:::888888888?88888888888888889999998888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888VIDEOLIST 9  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$="Novos dispositivos de INPUT ":0710 x.p$="RATON TRACKBALL TOUCHSCREEN":0710 =K=K+1:p$="VIDEOBASIC-A LINGUAGEM: ":0710 /p$="Suportes Comerciais ":0710 .p$="Utilizacao da programacao ":0710 p$="":0710 =K=K+1:p$="VIDEOBREAK: ":0710 /p$="Ecrans Artisticos ":0710 =K=K+1:p$="VIDEOBASIC-A PROGRAMACAO: ":0710 /p$="Diagrama de barras ":0710 p$="":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$="VIDEO-JOGO: ":0710 .p$="Ratoeira ":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 ,11 ;"NO TECLADO";11 ,9 ;"E PRIME ":n$ Tp9 ,7;" ";10 ,9 ;" ";11 ,8;" " ^H10 ,7;"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 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 em marcha o gravador " I=116:.04|# =,36$-I:I:150:11 ,0;" ":10 ,0;" estou carregando "''" 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  ENQUADRO 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: 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: Y!*PRIME UMA TECLA PARA CONTINUAR *aVLkPVIDEOBREAK: CAR LIST |L'#$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0 6:6:317997|:236099\,1:9998':""318008|:0:0:0:0:0:0 K317997|:n$="":a=23297[23327[:a127n$=n$+¾a:a u=5000:z=7000X t0:0::S$=" ":6:0:A=1621:A,0;S$:A 218,2;"NOVOS DISPOSITIVOS DE INPUT"; #6:""16384@ - 0 20:9998':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=12 21:A,0;"";S$:A Uj0:"":3,3:249,0:0,73I:-249,0:0,-73I dٰ"7":M=:u:AT="14":P=M:L$="OS INTERFACES OU DISPOSITIVOSDE E/S SAO ELEMENTOS INDISPEN-SAVEIS PARA O USO DUM COMPUTA-DOR,VISTO QUE UNICAMENTE ATRA-VES DESTES SE PODE ESTABELECERCOMUNICACOES COM O UTILIZADOR." ez:6000p u:AT=14:L$="PODEM SER DE DISTINTOS TIPOS:OS MAIS COMUNS SAO O TECLADO EO JOYSTICK, CUJO USO SEGURA-MENTE CONHECERAS. MAS VEJAMOSAGORA OUTROS DISPOSITIVOS UMPOUCO MAIS ESPECIALIZADOS." z 6000p ,AT=14:u:L$="O""TRACKBALL""OU COMANDO ESFERI-CO,E UM PERIFERICO CONSTITUIDOPOR UMA ESFERA CUJA ROTACAO ELIVRE DENTRO DUM SUPORTE FIXO;RODA COM A PALMA DA MAO. " 6z ^fA=011  :A,0;1;1;4;1;0;S$(111 ):A _ 8000@  6000p U:AT=14:L$="DOIS RODIZIOS, NO INTERIOR DODISPOSITIVO, MEDEM O ANGULO DEROTACAO DA ESFERA, COMUNICAN-DO-O AO COMPUTADOR MEDIANTECODIGOS ADEQUADOS." z  6000p AT=14:u:l$="O USO MAIS FREQUENTE DOTRACKBALL E' NOS JOGOS DEMOVIMENTO,OU ENTAO NOS PROGRA-MAS DESTINADOS AO DESENHO DEGRAFICOS EM ALTA RESOLUCAO." z N 6000p XAT=13 :u:L$="O""RATON""(MOUSE) E UM TRACKBALLINVERTIDO; A ESFERA RODADESLOCANDO-SE TODO O DISPOSI-TIVO SOBRE UM PLANO. O SEU USOMAIS COMUM E NOS GRAFICOS." bz gA=011  :A,11 ;1;1;5;1;0;S$(111 ):A  8000@  6000p qAT=15:u:L$="E E' ASSIM PORQUE A DESLOCACAODO CURSOR NO ECRAN SEGUE FIEL-MENTE A QUE SE REALIZA NA MAO." z  6000p  AT=14:u:L$="O ECRAN TACTIL E UM DISPOSITI-VO SEMELHANTE AO LAPIS OPTICO:TOUCH SCREEN SIGNIFICA ECRANSENSIVEL AO TACTO.":7000X RgA=011  :A,22;1;1;6;1;0;S$(110 ):A S 8000@ z 6000p u:AT=13 :L$="NA REALIDADE, O ECRAN NAO ESENSIVEL AO TACTO, SEM OSSENSORES SITUADOS SOBRE ELE.APESAR DA SUA MUITO BAIXA RE-SOLUCAO,O SEU USO E INTUITIVO."  AT=13 :z:6000p P=10 :at=14:l$="POR ESTA RAZAO, O ECRAN TACTILUTILIZA-SE EM PROGRAMAS DEAPLICACAO DESTINADOS A UM PU-BLICO NAO PROFISSIONAL" u:z BP=10 :6000p x23658j\,8:AT=15:0:5000:L$="BEM "+N$+";":7000X:AT=17:L$=" QUERES VER DE NOVO A LICAO ? (S/N) ":7000X /1:0:="S"P=1:100d 0="N"0:4:0::1500  1450 :1''''" POE EM MARCHA O GRAVADOR ":40( <:4:9 ;" POE EM MARCHA O GRAVADOR ":"" @3:1:A=13 20: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) g L$(A)" "0.002xn,1 lA: @( 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 printer": '/236066\,86V:236077\,123{: '-236066\,0:236077\,60<: 10bNuzXS smp L0 QUERES VER DE NOVO A LICAO ? (S/N) CAR HARD 8|[$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" > T@D<<<<<<;<<  ?   !D@#T|  @6  BD@ ~D@@@ Dx< F?"@@TP C?$A@DP@?(B@Da$I$0D@T0 H@ D4 @P@ D`l ` T?LINGUAGEM1>Z^ DD@  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="8300":IN="8400" 6rc=u:a$=" SUPORTES COMERCIAIS":8410 :TX:RR IN::"7940" O"g","3=4APLICACAO ","g","4=4 COMPLETA ","g","8;2GENER. DO","g","9;2PROGRAMA " O"g","=95 LINGUAGEM","g",">95ALTO NIVEL","g","B73LINGUAGEM","g","C73 MAQUINA " O"g","311 USO ","g","411SIMPLES ","g","BG1 MAIS ","g","CG1FLEXIVEL","","" 8A="4":"31","116":A,A:A,-A:"35","20":Z,"100" .1"220","40":Z,"100":"216","44":A,-A:A,A  RR:IN:TX RR:IN:"8070":"1000" a$,t$:a$="" a$"g""17",u;:tx 8a$="g"t$-"48",t$(u+u)-"48";ڰt$("3");t$("4") a$"""7940"  @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" '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":U;U;:c=Z:N=U̱t$ (T$(N)="%"8150:"8400":vc=u: T$(N)="`"N$: 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: ڌ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;: !*`a$:a$y="A$(u)-48":x="A$(u+u)-48":b=A$("3"):t$()=a$(4):y,x;B;t$:"8490" !/xl !4;x="x*8-3":y="165-y*8":x,y:xl,z:z,yl:-xl,z:z,-yl: zu;JA TEMOS VISTO QUE A COMUNI-CACAO HOMEM/COMPUTADOR PODEEFECTUAR-SE A VARIOS NIVEIS:% %COM O CODIGO MAQUINA, FLEXIVELMAS DIFICIL, OU COM UMA LIN-GUAGEM DE ALTO NIVEL, MUITOMAIS SIMPLES E EFICAZ,MAS TAM-BEM MAIS ESPECIALIZADA. % %MAS,A ESCALA DE POSSIBILIDADESNAO TERMINA AQUI, UTILIZANDOPOR EXEMPLO, COM UMA APLICACAOPREPARADA E POSSIVEL COMUNI-CAR-SE COM O COMPUTADOR SEMPOSSUIR NENHUM CONHECIMENTO DEPROGRAMACAO; MAIS AINDA, PORVEZES NAO E NECESSARIO CONHE-O PROBLEMA SOBRE O QUAL SEOPERA: POR EXEMPLO, UM PROGRA-MA ESCRITO POR UM AMIGO, OUCOMPRADO:UMA VEZ INDICADOS OSDADOS, TENS A TUA DISPOSICAOA SOLUCAO SEM MAIS OPERACOESSUPLEMENTARES.% %DESGRACADAMENTE, ESTE NIVEL DEAPLICACOES TEM UM INCONVENIEN-TE: E MUITO RIGIDO; SER-TE-AIMPOSSIVEL PERSONALIZA-LO OUOBTER INFORMACOES IDENTICASAQUELAS QUE SE PROJECTARAM.% % EXISTEM ENTAO OUTRAS POSSIBI-LIDADES INTERMEDIAS ENTRE AAPLICACAO,LISTAGEM E LINGUAGEMDE ALTO NIVEL: OS GERADORES DEPROGRAMAS E OS SUPORTES GENE-RALIZADOS. OS PRIMEIROS PRETENDEM OFERE-CER AO PROGRAMADOR A POSSIBI-LIDADE DE GERAR AS SUAS PRO-PRIAS APLICACOES DE MANEIRASIMPLES E GUIADA POR UM MENU.NORMALMENTE E PRECISO NOCOESRUDIMENTARES DE INFORMATICA, ESE PROGRAMARMOS COM CALMA SE-GUNDO OS NOSSOS PROJECTOS,TUDOSERA PRACTICO E EFICAZ.# # OS SUPORTES DE APLICACOES SAOPROGRAMAS PERSONALIZAVEIS, QUESE ENCONTRAM DIRIGIDOS A USOSESPECIFICOS. SAO BASTANTEFLEXIVEIS E SIMPLES DE UTILI-ZAR. VEJAMOS A CONTINUACAO ESEUS EMPREGOS MAIS COMUNS.# # [t$eaNB l A SUPORTES COMERCIAIS'l cTMAS,A ESCALA DE POSSIBILIDADES:CAR LING 1 |^ #$$$~$$~$$$~$$~$~~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","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 jTY="8300":ٰ"9":b$=" ":U="1":Z=U-U:RR="8150":TX="8330":IN="8400" Eb$=" ":rc=u:a$=" SUPORTES COMERCIAIS ":"8410":TY &:IN:u,u;u;"PROCESSADOR DE TEXTO" "23607","60":"4",u;:t$=" Distinto amigo: Temos o gosto de comunicarque desde o principio do pre-sente mes, o nosso estudio temposto a uso um novo aparelhopara toda sua distinta clien-tela. Trata-se de...":tx `H"23607","124":"14",u;U;"INSER.-DESLOCA.-PROC.-PAGINAC.":"7930" "Depois de ter escrito um textocomo com a maquina de escreverpodes reve-lo, modifica-lo,corrigi-lo tantas vezes quan-tas queiras." ="23607","60":"2820":i=zu:"7930":i:"23607","124" "56T","99rvic" RR:IN:TY "4000":IN:u,u;u;" FOLHA ELECTRONICA ":"2",u;ڰ"3";" A B C D E ":I=ṵ"12":i+u+u,u;ڰ"3";" "iǰ"9";i:i i=ṵ"7":"7930":i hx"Cada coluna pode conterCONSTANTES","5BTOTAL","...NUMEROS","5312000","5923500","...ou EXPRESSOES","5HA3-B3"  RR:IN:TY )k=ṵ"4":in:u,u;u;" BASE DE DADOS " O"3",u;ڰ"3";" TITULO CATEG. REVISTA DATA"'':i=ṵ"5":"5100":U;U+U; T$:t$(k)i"5110" Oj=ṵ"4":t$:u;ڰ"6j=k";t$;:" ";:j:'':i:"5160+k":t$:"7950":rr:k "2122","EQUAC. ","MAT. ","REV.A ","9/82","3251","ALIEN ","CINE ","REV.C ","7/82","4543","RENUMER.","UTIL. ","REV.B ","7/83","1415","DESENHO ","UTIL. ","REV.A ","6/85","5334","TOMMY ","CINE ","REV.A ","6/84" )j"Uma vez gravadas as informa-coes que tenha escolhido (porexemplo, artigos aparecidos emrevistas)..." *H"...podes voltar a ver tudo oque te interessar ordenado portemas..." +>"..ou entao reagrupado com basea uma revista donde provem.." ,"...ou ordenado por fichas. Po-des escolher em base a parame-tros ou a limites sobre um oumais arquivos, obtendo umagrande flexibilidade de acesso" |IN:TY uZin:a="40":b="128":a,b,"30":a,b:"20","22":a,b:"-26","10":a,b:"12","-26" bt$="O computador permite-te tracarrapidamente os graficos maisrepresentativos...":"7950":rr Tu:"90","130":z,"-60":"80",z:"90","100":i=ṵ"4":"*40","*100-35":i ht$="...pondo em evidencia relacoese comportamentos dificeis deseguir analiticamente...":"7950":rr 8""170","166":z,"-56":"70",z jFa="23":"4",a;"";"5",a;" ";"6",a;" ";"7",a;" " <t$="... e tudo isso com grandeexactidao.":"7950":rr IN:"8070":"1000" t$:t$(u)="""7960" N"4","52":ڰ"4";"246",z:j="16"̰"20":ڰ"6";j,u,b$:j:"16",u;:tx: Vj="3"̰"13":j,"3";ڰ"7";u,b$:j:"t$(2)-48","t$(3)-48";U;u;b$(̱t$-"3") "Mװ".2","24":"100":"t$(2)-48","t$(3)-48";u;t$("4"):u,u:"200": @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 VOTA AO PRINCIPIO";"15","6";"C PASSAR A PARTE";"16","6";" SEGUINTE" t$=:t$="F"  t$="I" t$="C""8000"  "8090" 't$=" PRIME UMA TECLA PARA CONTINUAR " /#Z;ڰ"6";U+U;U;U,Z;t$:.001wn,30 Ot$=t$(2)+t$(U):.0004uQX,45-:.0006vIQ,557:"""":  8160 ldA=Z:J=rc9999':F$(J,30)"%"F$(J,30)"#"A=A+U+(2F$(J,30)="&"):J mVC"10-a/2",U; n T$=F$(rc) v5"8330":T$="30"T$(30)="#"rc=rc+u:RR: {'F$(rc,30)="%"rc=rc+u:"8300" rc=rc+u:"8302" ڰ"8":U;U;:c=Z:N=U̱t$ T$(N)="#" (T$(N)="%"8150:"8400":vc=u: T$(N)="`"N$: T$(N)="&"'U''" ";: T$(N)=""u'" ";:c=z:n=n+u +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: ڌ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;: !*`a$:a$y="A$(u)-48":x="A$(u+u)-48":b=A$("3"):t$()=a$(4):y,x;B;t$:"8490" !/xl !4;x="x*8-3":y="165-y*8":x,y:xl,z:z,yl:-xl,z:z,-yl: zuƅ@O TRATAMENTO DE TEXTOS SERVEFUNDAMENTALMENTE PARA REDACTARE IMPRIMIR TEXTOS ESCRITOS, EUTILIZA-SE COMO UMA CORRENTEMAQUINA DE ESCREVER, MASAS VENTAGENS COM RESPEITO AELA SAO NOTAVEIS:% %TEM A POSSIBILIDADE DE INFI-NITAS CORRECCOES, AJUSTAR,SUBSTITUICOES, SEM QUE NOTEMALGUMAS DAS MODIFICACOESEFECTUADAS; PROCURA DAS PALAVRAS, FUSAODE DISTINTOS TEXTOS, VARIACOESNA ORDEM DAS PAGINAS, JUSTIFI-CACAO A DIREITA OU ESQUERDA,MARGENES SANGRADOS, ENQUADROS,NEGATIVOS, NUMERACAO DASPAGINAS, TITULOS CENTRADOS...EAQUELAS AJUDAS NECESSARIAS PA-RA UMA PERFEITA IMPRESSAO.# #FOLHAS ELECTRONICAS TEM UM USO BASICAMENTE MA-TEMATICO, E SERVEM PARA COMPORESQUEMAS E TABELAS SEGUN-DO AS MODALIDADES ESCOLHIDASPELO OPERADOR. ESTAO FORMADASPOR UMA GRANDE FOLHA IDIALDIVIDIDA EM MUITAS COLUNAS.CADA UMA DESTAS PODE CONTERPALAVRAS, NUMEROS OU FORMU-LAS. VISTO QUE ESTAS ULTIMASPODEM REFERIR-SE A OUTRAS CO-LUNAS, E FACIL IMAGINAR QUE APREPARACAO DE UMA TABELAREDUZ-SE UNICAMENTE AO CONHE-CIMENTO TECNICO DO PROBLEMA.##BASE DE DADOS ESTE GRUPO DE APLICACOES ES-TA DESTINADO A ORIENTACAO E ARESOLUCAO DE PROBLEMAS DE AR-QUIVO. PERMITE INTRODUZIR IN-FORMACOES NO COMPUTADORMEDIANTE MODALIDADES IDEN-TICAS, E OBTERAS COM POSTE-RIORIDADE IDENTICA, COMBINADASSELECCIONADAS E ORDENADAS COMA MAIOR LIBERDADE.# #GRAFICOS ESTE GRUPO DE APLICACOESSERVE PARA CRIAR GRAFICOS DOSTIPOS MAIS VARIADOS, COMOBJETO DE DEMONSTRAR MAIS EFI-CAZMENTE O COMPORTAMENTO DESERIES DE NUMEROS, INTRODUZI-DOS PELO TECLADO, OBTEN-DO DESDE ARQUIVOS OU OUTRASAPLICACOES. AS REPRESENTA-COES DESTE TIPO SAO MUITOBEM RECIBIDAS POR SEREM SIM-PLES: MUITAS VEZES GANHAM MUI-TAS SITUACOES E ALGUMAS LIGA-COES DIFICIEIS DE PERCEBER SOCOM A OBSERVACAO DE NUMEROS.##eaNl  B A SUPORTES COMERCIAIS c'& bT ECLA PARA CONTINUAR PRIME UMA TCAR LING 2 |؀&#$$$~$$~$$$~$$~$~~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"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" ORC=U:ڰ"8":A$=" SUPORTES COMERCIAIS":"8410":"8","10";"exercicios":RR i=ṵ"5":in VC=U:tx:rr::VC=Z `Jb$=" ":j=ṵ"19":j,u;ڰ"222223333322222666666"(j),b$:j j="50"̰"170"Ͱ"40" ?"4",j:u;"246",z:u;z,-"37":u;-"246",z:u;z,"37":j 6b=ṵ"3":"b*5-4",U;ڰ"7";U;b;"b*5-3",u;:tx:b /sv=rc:"21",z;ڰ"4";"Escolhe 1,2 ou 3 ...", (z:i$=:i$"1"i$"2"i$"3""2700" "7940" :j=ṵ"19":װ".01",j:j<"15"Ű"(j/5)=(j/5)";j,u,b$:j fa="i$*5-4":j=a̰"a+4":j,u;u;u,b$:j:a,u;u;i$:"17",u;:tx:i$"31120"(i)iɰ"5""2700" i$="4":"7940" rr:i:IN:TX RR:IN:"8070":"1000" rc=sv:j=u+ṵi$ 'f$(rc,"30")"#"RC=RC+U:7950 rc=rc+u:j: @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" '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":U;U;:c=Z:N=U̱t$ (T$(N)="%"8150:"8400":vc=u: T$(N)="`"N$: 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: ڌ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;: !*`a$:a$y="A$(u)-48":x="A$(u+u)-48":b=A$("3"):t$()=a$(4):y,x;B;t$:"8490" !/xl !4;x="x*8-3":y="165-y*8":x,y:xl,z:z,yl:-xl,z:z,-yl: zu5 hHOJE, O TEMPO ESTA MUITO MAU.ESTOU SENTADO AO PE DA MESA EFOLHEIO DISTRAIDAMENTE AS PA-GINAS DE UM SEMANARIO. NAOTENHO PACIENCIA DE VERIFICARAS ABORRECIDAS CONTAS BANCA-RIAS QUE NUNCA ACABAM. SEMPREQUE AS COMPROVO OBTENHO DIFE-RENTES RESULTADOS. QUE POSSO FAZER?# #VOU PARA A CAMA# #CARREGO O ULTIMO VIDEOJOGO# #ESCREVO A UM AMIGO.# #PODERIA SER UMA BOA IDEIA, MASNAO TENHO SONHO;# #ESTOU DEMASIADO CANSADO E SEMREFLEXOS.# #E UMA BOA IDEIA: HA QUE CUIDARDAS AMIZADES.# #CLARO QUE E UMA BOA IDEIA, MASNA ERA DOS COMPUTADORES NAOVOU USAR UMA MAQUINA DE ESCRE-VER. VOU CARREGAR O...# #PROCESSADOR DE TEXTOS# #LOJA ELECTRONICA# #BASE DE DADOS# #SIM, VOU CARREGAR O P.T.# #NAO E O SUPORTE ADEQUADO# #NAO, A NAO SERVE PARA ES-CREVER CARTAS.# #E MUITO COMODO! ALEM DISSO,POSSO ESCREVER TUDO O QUE MEPASSA PELA CABECA, DEIXANDOPARA DEPOIS O APERFEICOAMENTODA FORMA DA CARTA. MASO... ESTA A FAZER-SE TARDE!QUANDO TE SENTAS COM O COMPU-TADOR AS HORAS PASSAM. EMTROCA OS RESULTADOS SAO VISI-VEIS. SERIA OPTIMO TENTARVERIFICAR ESSAS MACADORASCONTAS: QUERO FAZER UMA TABELAQUE ME PERMITA COMPARAR OSSALDOS BANCARIOS MES A MES.DEPOIS DISSO SERIA FACIL CAL-CULAR OS TOTAIS ANUAIS E... UM MOMENTO... COMO O FAREI?# #CARREGO O PROGRAMA DA LOJAELECTRONICA# #USO A CALCULADORA# #ESCREVO UM PROGRAMA BASIC ADE-QUADO.# #CLARO,ESTA E A MELHOR SOLUCAO# POSSO ALCANCAR OS MESMOS RE-SULTADOS MAS MUITO MAIS TRA-BALHOSAMENTE.# #E VALIDO MAS SERIA MAIS CANSA-TIVO.# #ESTOU LANCADO! POR REVISTARPAPEIS,ENCONTREI ALGUMAS FOTOSDE QUANDO ERA BEBE, UM POSTALQUE TINHA DE ENVIAR A DOIS ME-SES, E PRINCIPALMENTE, OS EX-TRACTOS DE CONTA DOS ULTIMOSANOS. CLARO QUE AGORA E TARDE,MAS NAO PENSO EM DEITAR-ME SEMA SATISFACAO DE OBSERVAR AEVOLUCAO DOS MEUS INTERESSESDURANTE TODO ESTE TEMPO. BUSCO A CASSETTE QUE CONTEM: # #A SINFONIA N.1 DE BRAHMS# #O GERADOR DE GRAFICOS# #A BASE DE DADOS# #E PRECIOSA MAS INADEQUADA PARAESTE USO.# #CLARO, ISTO E O NECESSARIO# #NAO! A NAO SERVE PARATRACAR GRAFICOS# #O RESULTADO E ESPECTACULAR! EMPOUCOS MINUTOS CONSEGUI REPRE-SENTAR GRAFICAMENTE A EVOLUCAODAS MAGNITUDES E PRINCIPAL-MENTE, TER UMA IDEIA BASTANTEEXACTA DA EVOLUCAO DA CURVA.NAO PODIA PEDIR MAIS... AGORA# #CARREGO A BASE DE DADOS# #O PROCESSADOR DE TEXTOS# #A LOJA ELECTRONICA# # ... # #...# #...# #JA ESTA BEM! ESCREVI AO MEUAMIGO, COMPROVEI AS CONTAS, EDE SEGUIDA, A EVOLUCAO DOSMEUS INTERESSES... CREIO QUEPOR HOJE E SUFICIENTE. BOAS NOITES!# # eaNFODIASl A SUPORTES COMERCIAIS 'l c pB  TESCREVO A UM AMIGO.# #I πCAR EXER | I#$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" > NAO SERVE PARA ES-CREVER CARTAS.# #E MUITO COMODO! ALEM DISSO,POSSO ESCREVER TUDO O QUE MEPASSA PELA CABECA, DEIXANDOPARA DEPOIS O APERFEICOAMENTODA FORMA DA CARTA. MAS... ESTA A FAZER-SE TARDE!QUANDO TE SENTAS COM O COMPU-TADOR AS HORAS PASSAM. EMTROCA OS RESULTADOS SAO VISI-VEIS. SERIA OPTIMO TENTARVERIFICAR ESSAS MACADORASCONTAS: QUERO FAZER UMA TABELAQUE ME PERMITA COMPARAR OSSALDOS BANCARIOS MES A MES.DEPOIS DISSO SERIA FACIL CAL-CULAR OS TOTAIS ANUAIS E... UM MOMENTO... COMO O FAREI?# #CARREGO O PROGRAMA DA FOLHAELECTRONICA# #USO A CALCULADORA# #ESCREVO UM PROGRAMA BASIC ADE-QUADO.# #CLARO,ESTA E A MELHOR SOLUCAO# POSSO ALCANCAR OS MESMOS RE-SULTADOS, MAS...# # E VALIDO MAS SERIA MAIS CANSA-TIVO.# #ESTOU LANCADO! AO REVISTARPAPEIS,ENCONTREI ALGUMAS FOTOSDE QUANDO ERA BEBE, UM POSTALQUE TINHA DE ENVIAR HA' 2 ME-SES, E PRINCIPALMENTE, OS EX-TRACTOS DE CONTA DOS ULTIMOSANOS. CLARO QUE AGORA E TARDE,MAS NAO PENSO EM DEITAR-ME SEMA SATISFACAO DE OBSERVAR AEVOLUCAO DOS MEUS INTERESSESDURANTE TODO ESTE TEMPO. BUSCO A CASSETTE QUE CONTEM: # #A SINFONIA N.1 DE BRAHMS# #O GERADOR DE GRAFICOS# #A BASE DE DADOS# #E PRECIOSA MAS INADEQUADA PARAESTE USO.# #CLARO, ISTO E O NECESSARIO# #NAO! A NAO SERVE PARATRACAR GRAFICOS# #O RESULTADO E ESPECTACULAR! EMPOUCOS MINUTOS CONSEGUI REPRE-SENTAR GRAFICAMENTE A EVOLUCAODAS MAGNITUDES E PRINCIPAL-MENTE, TER UMA IDEIA BASTANTEEXACTA DA EVOLUCAO DA CURVA.NAO PODIA PEDIR MAIS! AGORA...# #CARREGO A BASE DE DADOS# #O PROCESSADOR DE TEXTOS# #A FOLHA ELECTRONICA# # ... # #... # #... # #JA ESTA BEM! ESCREVI AO MEUAMIGO, COMPROVEI AS CONTAS EEM SEGUIDA, A EVOLUCAO DOMEU SALDO... CREIO QUE,POR HOJE, E' SUFICIENTE! ATE' BREVE!# #LINGUAGEM3^ZA `  EDICOES LATINAS  Zf(23613=\+256*23614>\),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" 7RC=U:ڰ"8":A$=" FERRAMENTAS DE PROGRAMACAO":"8410" iT$="VEJAMOS AGORA COM QUE FORMATOMEMORIZA O SPECTRUM OS PRO-GRAMAS BASIC E SUAS VARIAVEIS.":TX:RR IN:T$="A DIRECCAO DO INICIO DO PRO-GRAMA ESTA CONTIDA NA VARIAVELDE SISTEMA ,SITUADA NOSENDERECOS <23635> E <23636>,ESTANDO ESCRITA NO FORMA-TO ." TX:RR::"7920" .5"...e aqui como se codificacada linha :" s"7","2","LL","< LL > (2 byte) contem onumero da linha. So neste casoo byte alto precede o bytebaixo." `"7","7","PP","< PP > ( 2 byte no formatoZ80) contem o ponteiro dalinha seguinte..." I"7","12","XXXXXXX","...segue o verdadeiro conteu-do da mesma linha;" L"7","27","R","< R > fecha o caracter <13>,correspondente a .",z in:t$="AS VARIAVEIS MEMORIZAM-SEIMEDIATAMENTE A SEGUIR AO PRO-GRAMA. A PRIMEIRA LOCALIZACAOESTA CONTIDA EM (ENDE-RECOS 23627 E 23628).":TX:RR IN:T$="ESTAS PODEM PERTENCER A DIFE-RENTES GRUPOS: MATRIZES NUME-RICAS, CADEIAS, ETC. PORTANTOE NECESSARIO QUE,ALEM DO NOME,SEJA TAMBEM CODIFICADO O GRU-PO A QUE PERTENCEM.ISTO OBTEM--SE DA SEGUINTE MANEIRA:":TX:RR 0"3200":"7920":" 1 byte de cada variavel:" N"8","7","GGG","Os primeiros tres bits iden-tificam o tipo de variavel." HL"8","16","CCCCC","os restantes cinco bits for-mam o codigo do nome.",Z *IN:T$="OS GRUPOS SAO OS SEGUINTES:":TX S"3600":i=u+Ṵ"7":t$:"i*2+3",u+u;u;I-1;:" ";ڰ"5";t$:U,*"30":i tz"CADEIA","VAR.NUM. (um so caract.)","MATRIZ NUMERICA","VAR. NUM.(varios caract.)","MATRIZ ALFANUMERICA","GRUPO FOR-NEXT" rr:in:t$="AS VARIAVEIS DOS TIPOS <3>,<5>E <7> (VARIAVEIS NUMERICAS EFOR-NEXT) TEM UM COMPRIMENTOCONSTANTE, POSTO QUE, NO SPEC-TRUM CADA NUMERO ESTA SEMPRECONTIDO EM 5 BYTES.":TX 7RR:"4020":"7920":"Variavel de comprimento fixo:" "5","3","N"," Como de costume,o 1 byte contem o nomeda variavel.","5","6","XXXXX","Segue o numero, contido em5 bytes." ì"8","3","NNN"," Neste caso o nome e compostopor varios caracteres;","8","10","XXXXX","segue o valor numerico comono caso anterior." ȹ"11","3","N"," O nome davariavel de controlo estacontido no 1 byte;","11","6","CCCTTTSSS","seguem o conteudo da mesma va-riavel, ao limite e;" y"11","24","LLS","Finalmente memoriza-se o nu-mero da linha e a posicao dainstrucao que delimita o ciclo(NEXT).",z ҥin:T$="EM TROCA, O COMPRIMENTO DE MA-TRIZES E CADEIAS NAO ESTA IM-PLICITO,E NECESSITA DE UM PON-TEIRO QUE PERMITA AO INTERPRE-TE ACEDER A VARIAVEL SEGUINTE.":TX Arr:"4100":"7920":"Neste caso o formato e oseguinte:" h"6","7","N"," O 1 byte, como decostume, contem o tipo enome da variavel.","6","10","LL","Segue o comprimento expressoem caracteres....","6","17","CCCCC","..e logo os mesmos caracteres." "11","3","N","No caso de matrizes numericasou alfanumericas, o nome e se-guido...","11","6","PP","...de um numero(ponteiro) de 2bytes, que indica o espacototal ocupado pela matriz;" "11","11","TDD","na continuacao das informacoesreferentes as dimensoes...","11","20","CCCCC","..memoriza dados numericos oualfanumericos.",z IN:"8070":"1000"  in:t$:tx ["4","52":ڰ"4";"246",z:i="16"̰"20":ڰ"6";i,u," ":i:yl:yl Qxl,t$:yl,xl;:i=u̱t$:ڰ"5";t$(i);ڰ"7";" ";:"(2*i+xl)*8-20","166-yl*8" Vװ".1",I:"15",z:z,"11":-"15",z:z,-"11":i:"17",z;:T$:tx:RR:"7922" @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" '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":U;U;:c=Z:N=U̱t$ (T$(N)="%"8150:"8400":vc=u: T$(N)="`"N$: 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: ڌ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;: !*`a$:a$y="A$(u)-48":x="A$(u+u)-48":b=A$("3"):t$()=a$(4):y,x;B;t$:"8490" !/xl !4;x="x*8-3":y="165-y*8":x,y:xl,z:z,yl:-xl,z:z,-yl: zu[t$ea  c *Z NB A FERRAMENTAS DE PROGRAMACAOTZVEJAMOS AGORA COM QUE FORMATOMEMORIZA O SPECTRUM OS PRO-GRAMAS BASIC E SUAS VARIAVEIS.CAR LING 3 |A#$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >