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{~?  000000000000000000000000000000000000000000000000000000000000000000000000001100000001111022200000000000000211000000011112222000000000000002222200022222222220000000000000020200000002222222200000000000000000000000000000000000000666666666000000000066000000000006660088888888888888888880666660000000888===============8000000088888888?===============8888888888888888?<<<<<<<<<<<<<<<8888888888888888?;;;;;;;;;;;;;;;8888888888888888?;;;;;;;;;;;;;;;8888888888888888?:::::::::::::::8888888888888888?:::::::::::::::8888888888???888888888888888888:8888888888???8888????88?????::::8888888888???????889999999989:::888888888?88888888888888889999998888888888888888888888888888888888888888????????????????????????????????8888888888888888888888888888888888888888888888888888888888888888VIDEOLIST } *  EDICOES LATINAS * f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0  317997| |23658j\,8:236099\,20:20,0;:""318008|:236066\,86V:236077\,123{ m7:7:1::#0;0,0; " PARA O GRAVADOR " (-n=1502:.01z# =,*60<:n 2 0490 < 0600X F SUMARIO P1::0690 Z.6,21 d;p$="VIDEOHARDWARE: ":K=6:0710 n:p$="O Gravador ":K=7:0710 <p$="VIDEOBASIC-A LINGUAGEM: ":k=10 :0710 ;p$="DIM - SAVE - VERIFY ":k=11 :0710 :p$="LOAD - MERGE ":k=12 :0710 p$="":k=13 :0710 <p$="VIDEOBREAK: ":k=15:0710 ;p$="Caleidoscopio ":k=16:0710 <p$="VIDEOBASIC-A PROGRAMACAO: ":k=18:0710 ;p$="Uso de Vectores e Matrizes ":k=19:0710 8100d:0490::0690:.6,18 :p$="VIDEOTEST: ":k=8:0710 9p$="Jogo de adivinhas sobre ":k=9 :0710 9p$="os temas da licao ":k=10 :0710 ;p$="VIDEO-JOGO: ":k=13 :0710 :p$="Solitario ":k=14:0710 ;p$="VIDEONEXT: ":k=17:0710 :p$="No proximo numero... ":k=18:0710  100d #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 ,10 ;"NO TECLADO";11 ,8;"E PRIME ":n$ Tn9 ,7;" ";10 ,9 ;" ";11 ,8;" " ^J10 ,7;" Esta bem escrito ?";11 ,9 ;n$;" (s/n)" h=""360h r="s"Ŧ="S"400 |i="n"Ŧ="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 ROTEIROS y$=" PRIME UME TECLA PARA CONTINUAR ":s$=y$:i=131:#0;1;5;1;1,0;y$:.001wn,30:"""": Qy$=s$(i)+s$(2i):.0004uQX,45-:.0006vIQ,557:"""": i:0490  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;"":"" &"ROTINA MAQUINA PARA ESCREVER 0`l,0;"";:q=1̱a$:a$(q);:a$(q)" ".0005vn,40(:m=1̥*5:m :4a$(q)=".".2~L,0:23692\,255 Dq: 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:10 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 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$="VIDEOLIST":0680: Bn=1̱p$:k,32 -n;p$(N):.002xn,k*n/8:n: aVLk S PRIME UME TECLA PARA CONTINUAR Y UME TECLA PARA CONTINUAR PRIME UPVIDEO-JOGO: 7CAR LIST ||q( $$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >X0=0:Y0=31:X1=47/:Y1=40(:650 ?X0=480:Y0=24:X1=72H:Y1=480:650 @X0=73I:Y0=31:X1=103g:Y1=40(:650 AX0=104h:Y0=24:X1=128:Y1=480:650 AX0=128:Y0=31:X1=168:Y1=40(:650 AX0=168:Y0=30:X1=192:Y1=41):650 AX0=193:Y0=31:X1=255:Y1=40(:650 G568,16:0,8:8,0:0,-8 H112p,16:0,8:8,0:0,-8 I1;16,0;"     | "  O1;17,0;"       " I1;18,0;"     | "  l24,76L,8:568,76L,8:24,60<,2:568,60<,2 *n17,73I:5,-13 :24,58::33!,0:2,2:5,12 4524,557,2 >b30,513:0,4:4,0,-2:0,-4:-4,0 Hb38&,513:0,4:4,0,-2:0,-4:-4,0 RAX=11 15:6;X,1;1;" ":X f!6;13 ,4;""   0 EX0=0:X1=13 *8:Y1=16:Y0=0:650 AX0=143:X1=208:Y1=47/:Y0=64@:650 H1;14,18;" RODA DE ";15,18;" TRACCAO " N1;20,0;" SISTEMA DE ";21,0;" AUTO STOP "   'L$=" " )7:0:3::9200# L300,:400 V 500 `W$="O GRAVADOR E UM PERIFERICO IN-DISPENSAVEL DO TEU PARA A MEMORIZACAO PERMANENTEDE DADOS. VAMOS VER O SEU FUN-CIONAMENTO." j 9500% tW$="O PROBLEMA E A MEMORIZACAO DE<0> E <1> NA FITA MAGNETICA,PARA O QUAL UTILIZAMOS DUASFREQUENCIAS DISTINTAS,NO NOSSOCASO, DOIS SONS DIFERENTES." ~q9500%:W$=" = 1200 HZ <-> BIT=0 = 2400 HZ <-> BIT=1 "  9500% W$="O PROGRAMA, QUER DIZER, A SE-QUENCIA DE <0> E <1>, ESTAGRAVADO COMO SE FOSSE MUSICA.UMA MUSICA UM POUCO MONOTONADADO OS SONS SEREM: 0 E 1.":9500%  9230$  700 sW$="PRIME <1> O <0> PARA GRAVAROS VALORES CORRESPONDENTES NAFITA. PRIME 'SPACE' PARA TER-MINAR.":9500% 'Z$=" "  900 117,0;0;7;8;Z$ "1"Ʀ"0"Ʀ" "1225  S=="1" 20,14;1;S =" "1500  Z$=A$(Z$) .1}L,S*30  1220  1500  RW$="ESCOLHE: R PARA REPETIR C PARA CONTINUAR ":9500%  9 24,11 ;4;1;1;" " 25,11 ;2;1;1;" " ="R"1 ="C"2000  "1460" ]W$="OBSERVA O QUE OCORRE DURANTE ALEITURA DA FITA. PRIME 'SPACE'PARA TERMINAR.":9500% 'Z$=" " H17,0;8;Z$;17,14;1;Z$(13 ) 520,14;1;Z$(13 )-144 =" "1600@  Z$=B$(Z$) S=Z$(17)-144 .5,S*30 " 1510 @ 1430  SX=29 :X-2;X,3;9 ;" POE EM MARCHA O GRAVADOR ":X /7:7:7:15,0; "" #('q$=" PRIME UMA TECLA PARA CONTINUAR " #- u=0 #2l=23624H\ #< 1:"" #F#0;1,0;q$ #K.01z# =,u/20 #Pq$=q$(2)+q$(1) #U.01z# =,u/10 #W u=u+1 #Z=""9030F# #d23624H\,l #n.01z# =,1:"" #x # 0 #ix=11 21:x,0;1;2;l$:x:x=11 21:x,0;3;l$:x $ $2x=11 21:x,0;7;L$:X: $" $Tyx=10 0-1:x,0;1;2;l$:x:x=10 0-1:x,0;7;l$:x $^3,172:4;249,0:4;0,-81Q:4;-249,0:4;0,81Q $h %O=0:P=1 %! 9300T$ %&ST=5-(W$/60<) %0O=O+ST %NJ=1̱W$ %X W$(J)" ".004yn,30 %b O,P;W$(J) %l1P=P+1:P=31P=1:O=O+1 %qW$(J)=".".1}L,30 %vJ %{ 9000(# % %x(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:32127}:"" %'l$=" " %.236077\,124|:236066\,128 %M23676|\,127:23675{\,88X:23658j\,8:0: %7W$=" PARA O GRAVADOR ":9500%:1 opT$N%ulL ab+JyQ RIME UMA TECLA PARA CONTINUAR PWO PROBLEMA E A MEMORIZACAO DE<0> E <1> NA FITA MAGNETICA,PARA O QUAL UTILIZAMOS DUASFREQUENCIAS DISTINTAS,NO NOSSOCASO, DOIS SONS DIFERENTES.{CAR HARD 1}C2.$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >>BB<DHpHDB@@@@@~BfZBBBBbRJFB HEADER " 14,0;0;"  TIPO DE BLOCO 1 B   NOME DO BLOCO 10 B   LONGITUDE TOTAL 2 B   DIRECCAO DO INICIO 2 B   LONGITUDE DO BASIC 2 B " RIG=14:W$="VALE: 0 = PROGRAMA 1 = MATRIZ NUMERICA 2 = MATRIZ ALFANUMERICA 3 = BYTES":2 UW$="ESTES 10 BYTES REPRESENTAM ONOME DO BLOCO EXPRESSO EM CA-RACTERES.":2 pW$="E UM NUMERO DE DOIS BYTES(0-->65535) QUE REPRESENTA ALONGITUDE TOTAL DO BLOCO DEDADOS.":2 ܇W$="REPRESENTA A LINHA DE AUTOEXECUCAO,NESTE CASO DE UM PRO-GRAMA, OU DIRECCAO DE PARTIDANO CASO DE UM BLOCO DE BYTES.":2 W$="INDICA A LONGITUDE REAL DOBASIC, EXCLUINDO A AREA DE VA-RIAVEIS. TEM SO UM SENTIDO SE O BLOCO EUM PROGRAMA.":2  RIG=0:9000(# #' 8999'# #(QW$="ESCOLHE: R PARA REPETIR C PARA CONTINUAR ":9320h$ #2 9 #<24,11 ;4;1;1;" " #F25,11 ;2;1;1;" " #P#="R"INIZIO=1:9450$ #Z="C"9070n# #d "9040" #n #xSX=29 :X-2;X,3;9 ;" POE EM MARCHA O GRAVADOR ":X #/7:7:7:15,0; #"" #1502:q$=" PRIME UMA TECLA PARA CONTINUAR " # u=0 #l=23624H\ # 1:"" ##0;1,0;q$ #.01z# =,u/20 #q$=q$(2)+q$(1) #.01z# =,u/10 # u=u+1 #=""9150# #23624H\,l $.01z# =,1:"" $ $ 0 $"ix=11 21:x,0;1;2;l$:x:x=11 21:x,0;6;l$:x $, $62x=11 21:x,0;7;L$:X: $@ $Jyx=10 0-1:x,0;1;2;l$:x:x=10 0-1:x,0;7;l$:x $T3,172:4;249,0:4;0,-81Q:4;-249,0:4;0,81Q $^ $hO=0:P=1 $r 9290J$ $sRIG9600% $|ST=5-(W$/60<) $O=O+ST $J=1̱W$ $ ="!" $ W$(J)" ".004yn,30 $ O,P;W$(J) $1P=P+1:P=31P=1:O=O+1 $W$(J)=".".1}L,30 $J $ 9110# $ $(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:32127}:"":INIZIO=0 $PA$="00000000":PAP=8:RIG=0:l$=" " $.236077\,124|:236066\,128 $M23676|\,127:23675{\,88X:23658j\,8:0: %4INIZIOW$=" PARA O GRAVADOR ":9320h$ % 1 %SX=X1-X0:SY=Y1-Y0 %9X0,Y0:SX,0:0,SY:-SX,0:0,-SY %&FL=0 %0X=X0X1ͼ(X1-X0) %:X,Y0:0,SY %DX %N %WRIG-1,ç;PAP;" ";1;8;8;" " %ZH=2̰A$(67)+:12 ,A$(45)+H;PAP;6;" ":H %A$:PAP=A$(1):RIG,ç;޼;PAP;6;" ";:6;" ";:H=̰A$(2̺):޼;RIG,H+;6;8;" ":H %,;1*(A$(1)=7);PAP;9 ;" ";A$(8);" ";0;RIG,26;6;1;" " %gH=2̰A$(67)+1:12 ,A$(45)+H;PAP;6;" ":H %RIG=RIG+1: %"2140001TIPO DE BLOCO","5170110NOME DO BLOCO","4141102LONGITUDE TOTAL","7191302DIRECCAO DE INICIO","1181502LONGITUDE DO BASIC" niziA00000000aiopJ$wv$ul0L B b@08(WvESTE E O TELEVISOR DURANTE OSEU FUNCIONAMENTO NORMAL. OB-SERVA ATENTAMENTE O QUE OCORREQUANDO CARREGAS UM PROGRAMA.Q MA TECLA PARA CONTINUAR PRIME UmCAR HARD 2}K(*$$$~$$~$~~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 d%ٰ"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  rc=u:pn=u L5A$="":i=u+ṵ"30":f$(rc,i)">"a$=a$+f$(rc,i):i V"i/2=(i/2)"a$=" "+a$ ~3rc=rc+u:"8410":vc=z:"8300":"8150":"8400" "8070":"1100" @/A$=" POE EM MARCHA O GRAVADOR ":"7":ڰ"7": JZ:N=Z̰"29":װ".05","2*N" T2ٰ"4";"8",N;" @";"9",N;" ~|";"10",N;" \]" ^0N>"2"N<"29"1;"8",N;A$(N-2) hN rG8,30;" ";9 ,30;" ";10 ,30;" " | 7:"" %"7",U;:T$="ESCOLHE, `:":"8330" |"11","6";"F FIM";"13","6";"I VOLTAR AO PRINCIPIO";"15","6";"C PASSO A PARTE";"16","6";" SEGUINTE" A$=:A$="F" A$="I"rc=PN: A$="C"RC>99c"8000" A$="C"PN=rc:  "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) v4"8328":T$=30T$(30)="#"rc=rc+u: {'F$(rc,30)="%"rc=rc+u:"8300" rc=rc+u:"8302" 1; c=Z:N=U̱t$ (T$(N)="%"8150:"8400":vc=u: T$(N)="`"T$=N$:"8330" T$(N)="&"'U''" ";: T$(N)="#"P="8": T$(N);:T$(N)=" "8380 .001wn,20 *OPT$(N)=".".1}L,35#:6 "c=c+u:c=30c=Z:U;" "; N: ta=4:XL=248:YL=169:2::U+U,U;:3,3:a;XL,Z:a;Z,YL:a;-XL,Z:a;Z,-YL: چ"8400":"3","15-A$/2";A$:YL="11":XL="8*A$+16":"126-XL/2","142":XL,Z:Z,YL:-XL,Z:Z,-YL:U,-U:XL,Z:Z,YL:"13",U;: ! t$:ñt$ !cenu;"16-t$/2"; ! "8330":"8450" !5J=U+a9 +a:j,u;6+(a=10 ),a$:j: ! A=U+U:J="26"̰"32"6:"28"-J/A,ER+J/A*.73333:J,Z:A,-A,/A:Z,-J*.73333,Z:-A,-A,-/A:-J,Z:-A,A,/A:Z,J*.73333:A,A,/A:J: zuƭ l. DIM > A INSTRUCAO SERVE PA-RA ARMAZENAR VARIAVEIS DE UMTIPO PARTICULAR: AS MATRIZES.% %A MATRIZ PODE SER COMPARADACOM UMA CAIXA QUE CONTEM ASVARIAVEIS QUE TEMOS ESTUDADO.PODE-SE TER ACESSO A ELA ATRA-VES DE UM OU MAIS NUMEROS (IN-DICES), ESCRITOS ENTRE PAREN-TESIS DEPOIS DO NOME DAMATRIZ. SE ES UM APAIXONADO DOSLIVROS, DISCOS, OU... DOSSELOS, DECERTO QUE ORGANIZARASA TUA COLECCAO COM UMA MA-TRIZ.% %PONHAMOS UM EXEMPLO. SE TEMOSUM LIVRO EM CASA COLOCADO NASALA (PRIMEIRO ARGUMENTO),NA TERCEIRA PRATELEIRANA OITAVA POSICAO... BEM, ` OS NUMEROS 1, 3 E 8 QUE UTI-LIZASTE PARA LOCALIZAR O TEULIVRO NAO SAO MAIS DO QUE IN-DICES DE UMA MATRIZ .% %SE A MATRIZ , CONTEM TO-DOS OS PRECOS DE TODOS OSLIVROS (ORGANIZANDO-OS COMO NOEXEMPLO ANTERIOR), E POS-SIVEL SABER O PRECO DE UM VO-LUME EM CONCRETO COM:& &LET PRECO=B(1,3,8)& &ONDE CADA INDICE (ESCRITO EN-TRE PARENTESIS)REPRESENTA RES-PECTIVAMENTE, A HABITACAO, APRATELEIRA, E A POSICAO .% %PARA PODERES UTILIZAR UMA MA-TRIZ, DEVES PRIMEIRO INFORMARO COMPUTADOR DE QUAIS SAO ASDIMENSOES, E DECERTO, O NU-MERO DE ELEMENTOS A USAR NOSINDICES, E O VALOR MAXIMOQUE ESTES PODEM TER.% %EX.: SE A BIBLIOTECA FOR DIVI-DIDA EM DUAS PARTES, COM 4 ES-TANTES CADA UMA, CAPAZES DEGUARDAR 50 LIVROS CADA ESTAN-TE, O SERA DESTA FOR-MA:& &DIM B(2,4,50)& &ESTA E UMA MATRIZ DE TRES DI-MENSOES.% % NESTE MOMENTO O COMPUTADORE CAPAZ DE RECEBER A SE-GUINTE INFORMACAO: &LET B(1,2,18)=XX& &E SE LE COM: &PRINT B(2,1,30)% %NATURALMENTE, OS INDICES PO-DEM TER MAIS DE TRES NUME-ROS. NO OS NOMESDAS MATRIZES DEVEM SER DEUMA SO LETRA, E COM O SIM-BOLO <$> NO CASO DE SEREMALFANUMERICAS.% %A MATRIZ ALFANUMERICA PODESER CONSIDERADA COMO UM CON-JUNTO DE CADEIAS, COM COMPRI-MENTO CONSTANTE INDICADO PELOULTIMO INDICE.% %POR EXEMPLO:& &DIM A$(3,15) PODE ALTERAR-SE COM: A$(2,8) ACEDENDO A OITO CARACTERESO SEGUNDO ELEMENTO COM: A$ (2) OBTENDO ASSIM, A CADEIA COM-PLETA DE 15 CARACTERES, LOCA-LIZADA NA POSICAO <2>.% %TAMBEM E POSSIVEL USAR COMOINDICE DIRECTAMENTE VALORESNUMERICOS, E ACONSELHAVEL UTI-LIZAR AS VARIAVEIS, E AS EX-PRESSOES NUMERICAS. OBSERVA COMO SE IMPRIME DEIMEDIATO, O NOME DUM MESDA SEGUINTE FORMA:& &10 INPUT MES 20 PRINT G$(MES)& &POSTO QUE OS ELEMENTOS DAMATRIZ ARQUIVAM RESPEC-TIVAMENTE: JANEIRO, FEVREIRO,MARCO, ETC.# # Lea NA DIM 'l c TUM LIVRO EM CASA COLOCADO NACAR DIM | "$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" > A INSTRUCAO SERVE PA-RA ARMAZENAR VARIAVEIS DE UMTIPO PARTICULAR: AS MATRIZES.% %A MATRIZ PODE SER COMPARADACOM UMA CAIXA QUE CONTEM ASVARIAVEIS QUE TEMOS ESTUDADO.PODE-SE TER ACESSO A ELA ATRA-VES DE UM OU MAIS NUMEROS (IN-DICES), ESCRITOS ENTRE PAREN-TESIS DEPOIS DO NOME DAMATRIZ. SE ES UM APAIXONADO DOSLIVROS, DISCOS, OU... DOSSELOS, DECERTO QUE ORGANIZARASA TUA COLECCAO COM UMA MA-TRIZ.% %PONHAMOS UM EXEMPLO. SE TEMOSUM LIVRO EM CASA COLOCADO NASALA (PRIMEIRO ARGUMENTO),NA TERCEIRA PRATELEIRANA OITAVA POSICAO... BEM, ` OS NUMEROS 1, 3 E 8 QUE UTI-LIZASTE PARA LOCALIZAR O TEULIVRO NAO SAO MAIS DO QUE IN-DICES DE UMA MATRIZ .% %SE A MATRIZ , CONTEM TO-DOS OS PRECOS DE TODOS OSLIVROS (ORGANIZANDO-OS COMO NOEXEMPLO ANTERIOR), E POS-SIVEL SABER O PRECO DE UM VO-LUME EM CONCRETO COM:& &LET PRECO=B(1,3,8)& &ONDE CADA INDICE (ESCRITO EN-TRE PARENTESIS)REPRESENTA RES-PECTIVAMENTE, A HABITACAO, APRATELEIRA, E A POSICAO .% %PARA PODERES UTILIZAR UMA MA-TRIZ, DEVES PRIMEIRO INFORMARO COMPUTADOR DE QUAIS SAO ASDIMENSOES, E DECERTO, O NU-MERO DE ELEMENTOS A USAR NOSINDICES, E O VALOR MAXIMOQUE ESTES PODEM TER.% %EX.: SE A BIBLIOTECA FOR DIVI-DIDA EM DUAS PARTES, COM 4 ES-TANTES CADA UMA, CAPAZES DEGUARDAR 50 LIVROS CADA ESTAN-TE, O SERA DESTA FOR-MA:& &DIM B(2,4,50)& &ESTA E UMA MATRIZ DE TRES DI-MENSOES.% % NESTE MOMENTO O COMPUTADORE CAPAZ DE RECEBER A SE-GUINTE INFORMACAO: &LET B(1,2,18)=XX& &E SE LE COM: &PRINT B(2,1,30)% %NATURALMENTE, OS INDICES PO-DEM TER MAIS DE TRES NUME-ROS. NO OS NOMESDAS MATRIZES DEVEM SER DEUMA SO LETRA, E COM O SIM-BOLO <$> NO CASO DE SEREMALFANUMERICAS.% %A MATRIZ ALFANUMERICA PODESER CONSIDERADA COMO UM CON-JUNTO DE CADEIAS, COM COMPRI-MENTO CONSTANTE INDICADO PELOULTIMO INDICE.% %POR EXEMPLO:& &DIM A$(3,15) PODE ALTERAR-SE COM: A$(2,8) ACEDENDO A OITO CARACTERESO SEGUNDO ELEMENTO COM: A$ (2) OBTENDO ASSIM, A CADEIA COM-PLETA DE 15 CARACTERES, LOCA-LIZADA NA POSICAO <2>.% %TAMBEM E POSSIVEL USAR COMOINDICE DIRECTAMENTE VALORESNUMERICOS, E ACONSELHAVEL UTI-LIZAR AS VARIAVEIS, E AS EX-PRESSOES NUMERICAS. OBSERVA COMO SE IMPRIME DEIMEDIATO, O NOME DUM MESDA SEGUINTE FORMA:& &10 INPUT MES 20 PRINT G$(MES)& &POSTO QUE OS ELEMENTOS DAMATRIZ ARQUIVAM RESPEC-TIVAMENTE: JANEIRO, FEVREIRO,MARCO, ETC.# # DESENHO f f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 5:5:32767  ""25800d <&X=3271332724:Q:X,Q:X Fo17,0,64@,33!,200,100d,1,0,27,237,176,201 P32713 ZH0:7:7:4,0;:23570\,16:"" ECRAN @ _ Lc? |>??@O? |>=d<` c? q0> |1>>`<?c >|@ >!<!>|  ~@~<`, @~>|@^<@@; |0?>|@ <Lp?|{? | >H<P<$x G !@Ā!p?@!??!<Bx G? B0o!@?!?!?! 0<6x >?? BP!?!@(!?? !`?! < x  ?A1!!!? !?!Q! `<@x?AO@!0!  !?p0 !?!H~@<@ A0@!?`!?@ !?@!?!H|@@<!@@!!? !`?@!a?8@9D?p ⁀x!??@!@?!?0!?? !?0'p?!????!??)???q?)>>????)?0??  ??? `x?? ?)  ??@?i@@ysssssssttttttttssssssssssssssssssqsssssttttttttsssssssssssssssqssqsqqqqqqtDDttqqqqqqqqqqqqqqqsqssqsqssssstDDDtqqqqqqqqqqqqqqqsqssqsqsqqqqttDDtqqrqqqqqqqqqqqrsqssqsqsqqqqttDtqqqrqqqqssqqqqqrsqsrrrrrrrrrttttttsqqqqqsssqqqqrsqsrqsqsqqqtttttttssqqqssssqqqqrsqsrqsqsttttttttttssqqqqsssqqqqrsqsrqsqsqttttttttttqqqqqsssqqqqrsqsrsrrrrrrtttttrrrqqqqqqqqqqqqqsqsrsrrrrrjtlttrrrrsqqqqqqqqqqqssqsrqrrrjjjjjjjrrrrqqqquqqqqrqqrsqsrsrrrjjjjjjrrrrssqqqssssqsqsssqsrrrrrjjjrrrrrrrqsqqsqsssssqsssssrrrrrjjjjrrrrrrrqqqssqssssqsssssrsrrrjjjjrrrrrrrqqqqqqqqqqqsssssrsrrrrjjjrrrrrrssqqqqqqqssssssssrrrrrrjjjrrrrrrsssssssssssssssssrrrrrrjjjrrrrrrsssssssssssssssssrrrrrrjjjrrrrrrsssssssssssssssssrrrrrrjjjrrrrrrsssssssssssssssssqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqDIM 2 aa Zf(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 _7:7:"31969":Z=0:U=1:CEN=Z:"23570","6":"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 dٰ"9":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 $TX="8330":rr="8150":in="8400" "2","2 RESERVADO","2","2" X"510 LET A=5","520 DIM F$(20,10)","530 LET B=A*8","540 PRINT B","550 LET X$=""BASIC""" !"4A 5","4F$ ABCDEF","4X$ BASIC" "6","6 LIVRE","6" "2 RESERVADO" A$=" DIM ":"8410" LPT$="...AQUI ESTA QUAL E A COMPOSI-CAO FISICA IMAGINARIA DUMA MA-TRIZ:":TX:RR   DIM  p(i)="i/2=(i/2)":in Z:u,u;u;"DIM A$(12)":U,Z:30:i=ṵ"12":"16",i+"6";ڰ"5"+p(i);" ":.01z# =,I:i:30:"18","7";u;"123456789012";"16","5";u Nrr u,u;u;"DIM A$(6,12)":U,Z:30:j=u+ṵ"6":17-j,5;u;j;z;" ";:.1}L,J:i=ṵ"12":5+p(i)-p(j);" ";:.01z# =,J*3+I:i:10 :j rr H-u,u;u;"DIM A$(3,6,12)":U,Z:30 a=zu:j=u6:13 -j-a*4,11 +a*4;:10 :.1}L,A*10 +J:i=u12 :5-p(i)-p(j)-a;" ";:.01z# =,I+J*4+A*10 :i:j:a 8i=u3:"19"-i*4,"16"+i*4;i:i:rr U,-U:Z;U,U;"DIM A$(3,6,12) ";"20",U;ڰ"6";" INTRODUZ OS 3 INDICES ":U,Z;U;" DEPOIS DE CADA VALOR ";Z,U;Z;"LET A$(";i$;",";j$;",";a$ 'A$<491ůA$>5793700t B&i$>"3"j$>"6"i$<"1"j$<"1""3700" C/I$>"3"ŰJ$>"6"ŰA$12 "3700" `Z;u,u;u;" LET A$(";I$;",";J$;",";A$;")=""*"" ":i=i$:j=j$:a=a$:"21-i*4-j","2+i*4+a";u;"*":u,u:#Z;z,z;U;" PRIME: PARA REPETIR PARA CONTINUAR " j-="R""21-i*4-j","2+i*4+a";" ":"3600" k="C""3750" l "3690" tA#Z;u,u;"  E R R O !  ":U,"-10":"100":"3600" U,"10":"50":IN:6,Z:T$="NO CASO DE QUE AS DIMENSOESSEJAM SUPERIORES A <3>, PODESREPRESENTAR A MATRIZ COMO UMCONJUNTO DE VARIOS GRUPOS, ACADA UM DOS QUAIS SE FAZ REFE-RENCIA PELO INDICE RESPECTIVO.":TX "8070":I"1000"   LOAD  !RC=U:PN=U:A$=" SAVE":"8410"  "8300":RR T):Z:IN:u,"13";u;" - MEMORIA - " YJ:T$=" ":I=̰"18":T$():I,"13";ڰT$(U);T$(U+U):I ^1"10",U+U;U;"PROGRAMA";"14",U+U;"VARIAVEIS" h9"20",8;5;0;" SAVE ""BASIC"" " >T$()="":A$=T$(U+U):I="7"̰"14":U;I,"13";U;A$:I:RR !I="7"̰"14":U;I,"13";A$:I 0H"20",4;0;4;" SAVE ""BASIC""  DATA F$() " :U;"13","13";U;A$:RR DT$()="":U;"13","13";A$ A"20",u;6;Z;"SAVE ""BASIC""  CODE 31000,1000 " %I="16"̰"17":U;U;I,"13";A$:I *RR:I="17"̰"18":U;"17","13";A$:I IN:,Z:T$="COMO PODESTE OBSERVAR, SE NAOSE INDICA NADA EM CONTRARIO,OCOMANDO REFERE-SE AO PROGRAMACOMPLETO.":TX:::T$=" INDICA UMA MATRIZ;":TX:::T$=" ACEDE DIRECTAMENTE AZONA DE MEMORIA INDICADA NOSEU ARGUMENTO.":TX "8070":I"4000" @2z:A$=" POE EN 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:""  RR:I=Z .IN:"7",U;:T$="ESCOLHE, "+N$+":":"8330" |"11","6";"F FIM";"13","6";"I VOLTA AO PRINCIPIO";"15","6";"C PASSAR A PARTE";"16","6";" SEGUINTE"  ="F" ="I"I=U:  ="C"  "8090" 140(: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:ڰ"8":U;:c=Z:N=U̱t$ (T$(N)="%"8150:"8400":vc=u: T$(N)="`"T$=N$:"8330" T$(N)="&"'U''" ";: T$(N)="#"P="8": T$(N);:T$(N)=" ""8337" .001wn,30 *OPT$(N)=".".1}L,30:4 "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":VC=Z:"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: zue  N MARIO LUIS  cKJ 'l I3J6A SAVETJ ACEDE DIRECTAMENTE AZONA DE MEMORIA INDICADA NOSEU ARGUMENTO.CAR DIM 2 | "$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >, SERVEPARA TRANSFERIR DADOS DAMEMORIA DO COMPUTADOR PARAA FITA MAGNETICA.% %ESTA OPERACAO UTILIZA-SE PARAGRAVAR PROGRAMAS, MATRIZES, EOUTRO BLOCOS DE DADOS, ASSIMPODEMOS CONSERVAR E VOLTARA UTILIZA-LOS EM QUALQUER MO-MENTO.% %EXISTEM TRES TIPOS FUNDAMEN-TAIS DE GRAVACOES:& &SAVE ~NOME~& TRANSFERE PARA A FITA O PRO-GRAMA BASIC E AS VARIAVEIS,DANDO-LHE O NOME DE SAVECOMPLETANDO O COMANDO COM E UMA VEZ CARREGA-DO O PROGRAMA, EXECUTAR-SE-AAUTOMATICAMENTE DESDE A LINHA nn.% %SAVE ~NOME~ DATA F$() ou entao: SAVE ~NOME~ DATA R()& &GRAVA SO A MATRIZ ESPECIFI-CADA DEPOIS DE DATA.% %SAVE ~NOME~ CODE 25000, 1300GRAVA OS DADOS EM MEMORIADESDE A DIRECCAO DE INICIO<25000>, COM UM TOTAL DE<1300> BYTES.% %SE DESEJAS GRAVAR UM ECRAN PORINTEIRO (DESDE A DIRECCAO16384 ATE 23295) DEVERIASEXECUTAR & &SAVE ~NOME~ CODE 16384, 6912PODES UTILIZAR A FORMA: & &SAVE ~NOME~ SCREEN$& &SAO TOTALMENTE EQUIVALENTES.%%DE QUALQUER MODO A LONGITUDEDO NOME NAO DEVE SUPERAR 10CARACTERES.# #VERIFY  CqZf(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 d%ٰ"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  rc=u:pn=u LRC>91[8000@ Q5A$="":i=u+ṵ"30":f$(rc,i)">"a$=a$+f$(rc,i):i V"i/2=(i/2)"a$=" "+a$ ~3rc=rc+u:"8410":vc=z:"8300":"8150":"8400" "8070":"1100" @/A$=" POE O GRAVADOR EM MARCHA ":"7":ڰ"7": JZ:N=Z̰"29":װ".05","2*N" T2ٰ"4";"8",N;" @";"9",N;" ~|";"10",N;" \]" ^0N>"2"N<"29"1;"8",N;A$(N-2) hN rG8,30;" ";9 ,30;" ";10 ,30;" " | 7:"" %"7",U;:T$="ESCOLHE, `:":"8330" ~"11","6";"F FIM";"13","6";"I VOLTAR AO PRINCIPIO";"15","6";"C PASSO P/A PARTE";"16","6";" SEGUINTE"  ="F" ="I"rc=PN: ="C"RC>98b"8000" ="C"PN=rc:  "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" c=Z:N=U̱t$ (T$(N)="%"8150:"8400":vc=u: T$(N)="`"T$=N$:"8330" T$(N)="&"'U''" ";: T$(N)="#"P="8": T$(N);:T$(N)=" "8380 .001wn,20 *OPT$(N)=".".1}L,35#:6 "c=c+u:c=30c=Z:U;" "; N: ta=4:XL=248:YL=169:2::U+U,U;:3,3:a;XL,Z:a;Z,YL:a;-XL,Z:a;Z,-YL: چ"8400":"3","15-A$/2";A$:YL="11":XL="8*A$+16":"126-XL/2","142":XL,Z:Z,YL:-XL,Z:Z,-YL:U,-U:XL,Z:Z,YL:"13",U;: ! t$:ñt$ !cenu;"16-t$/2"; ! "8330":"8450" !5J=U+a9 +a:j,u;6+(a=10 ),a$:j: ! A=U+U:J="26"̰"32"6:"28"-J/A,ER+J/A*.73333:J,Z:A,-A,/A:Z,-J*.73333,Z:-A,-A,-/A:-J,Z:-A,A,/A:Z,J*.73333:A,A,/A:J: zuƁ b.VERIFY> A INSTRUCAO SERVEPARA VERIFICAR SE OS DADOSGRAVADOS NA FITA, SAO IDEN-TICOS AOS QUE ESTAO NA MEMO-RIA.% %A PRIMEIRA VISTA PARECE UMAOPERACAO INUTIL, MAS O GRA-VADOR PODE TER REGISTADOMAL OS DADOS, ATRAVES DUM ER-RO NO VOLUME, OU ENTAO PELOMAU ESTADO DA FITA MAGNETICA. PERMITE-TE VERIFICARSE TUDO SE DESENROLOU COR-RECTAMENTE, E SE OS DADOSPODEM SER CARREGADOS DE NOVO.EM CASO CONTRARIO (SURGIRAUMA MENSAGEM, E TERAS A POSSI-BILIDADE DE REPETIR A GRAVA-CAO.% %E EVIDENTE QUE A INSTRUCAO DEVE TER OS MESMOSPARAMETROS QUE : 'DATA'OU 'CODE'. UM EXEMPLO: & &VERIFY "NOME" ou tambem:& &VERIFY "NOME" DATA X()& & E ASSIM SUCESSIVAMENTE...# #.LOAD> LOAD CARREGA O MESMO TIPODE INFORMACAO QUE SE ESPECI-FICA COM E .PORISSO HA TRES TIPOS DEGRAVACAO, E ASSIM TRES TIPOSDE CARGA:% %LOAD "PEDRO"& &OBTEREMOS A CARGA COMPLETADO PROGRAMA, E AS VARIAVEISBASIC QUE SE ENCONTRAM NAFITA COM O NOME DE.% %A OPERACAO:& &LOAD "GATOS" DATA X()& &CARREGA A NOVA MATRIZ SUBSTI-TUINDO A ANTERIOR (SE EXIS-TIR). O NOME DA NOVA MA-TRIZ EM MEMORIA PODE SER DI-FERENTE DAQUELE COM QUE SEGRAVOU:& &SAVE "NOME" DATA Y()% %LOAD "NOME" CODE XXX,YYY& &TRANSFERE NO LUGAR INDICA-DO POR DA MEMORIA, OSNOVOS DADOS, ELIMINANDO OSQUE EXISTIAM ANTERIORMENTE. O COMPRIMENTO E A DIRECCAO DEINICIO PODEM SER OMITIDOS, EMTAL CASO ASSUMIREMOS QUE SETRATAM DOS ESPECIFICADOS DU-RANTE . TAMBEM E POSSI-VEL ESPECIFICAR UMA DIRECCAODE CARGA DIFERENTE.# ##MERGE> #A INSTRUCAO E ANA-LOGA A , MAS NAO ELIMI-NA O PROGRAMA NEM AS VARIA-VEIS BASIC, QUE PODERIAM ES-TAR ANTERIORMENTE EMMEMORIA.% %O RESULTADO E' QUE A NOVAINSTRUCAO SE ENCAIXA NAANTERIOR COM BASE NO NUMERO DELINHA. EM CASO DOS VALORESSEREM IGUAIS, SO SE CONSERVA ALINHA NOVA.% %ANTERIOR NOVA& &10 REM A 15 REM 20 REM B 20 REM Y 30 REM C 25 REM Z& &O RESULTADO DE MERGE...& &10 REM A 15 REM X 20 REM Y 25 REM Z 30 REM C% %NO CASO DO NOME SEROMITIDO EM QUALQUER OPE-RACAO DE LEITURA, UTILIZA-SEO PROXIMO BLOCO DE DADOSDA FITA MAGNETICA. # # QeaNA VERIFYH 'l c T A CONTINUAR PRIME UMA TECLA PARCAR VERIFY |"$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" > A INSTRUCAO SERVEPARA VERIFICAR SE OS DADOSGRAVADOS NA FITA, SAO IDEN-TICOS AOS QUE ESTAO NA MEMO-RIA.% %A PRIMEIRA VISTA PARECE UMAOPERACAO INUTIL, MAS O GRA-VADOR PODE TER REGISTADOMAL OS DADOS, ATRAVES DUM ER-RO NO VOLUME, OU ENTAO PELOMAU ESTADO DA FITA MAGNETICA. PERMITE-TE VERIFICARSE TUDO SE DESENROLOU COR-RECTAMENTE, E SE OS DADOSPODEM SER CARREGADOS DE NOVO.EM CASO CONTRARIO (SURGIRAUMA MENSAGEM, E TERAS A POSSI-BILIDADE DE REPETIR A GRAVA-CAO.% %E EVIDENTE QUE A INSTRUCAO DEVE TER OS MESMOSPARAMETROS QUE : 'DATA'OU 'CODE'. UM EXEMPLO: & &VERIFY "NOME" ou tambem:& &VERIFY "NOME" DATA X()& & E ASSIM SUCESSIVAMENTE...# #.LOAD> LOAD CARREGA O MESMO TIPODE INFORMACAO QUE SE ESPECI-FICA COM E .PORISSO HA TRES TIPOS DEGRAVACAO, E ASSIM TRES TIPOSDE CARGA:% %LOAD "PEDRO"& &OBTEREMOS A CARGA COMPLETADO PROGRAMA, E AS VARIAVEISBASIC QUE SE ENCONTRAM NAFITA COM O NOME DE.% %A OPERACAO:& &LOAD "GATOS" DATA X()& &CARREGA A NOVA MATRIZ SUBSTI-TUINDO A ANTERIOR (SE EXIS-TIR). O NOME DA NOVA MA-TRIZ EM MEMORIA PODE SER DI-FERENTE DAQUELE COM QUE SEGRAVOU:& &SAVE "NOME" DATA Y()% %LOAD "NOME" CODE XXX,YYY& &TRANSFERE NO LUGAR INDICA-DO POR DA MEMORIA, OSNOVOS DADOS, ELIMINANDO OSQUE EXISTIAM ANTERIORMENTE. O COMPRIMENTO E A DIRECCAO DEINICIO PODEM SER OMITIDOS, EMTAL CASO ASSUMIREMOS QUE SETRATAM DOS ESPECIFICADOS DU-RANTE . TAMBEM E POSSI-VEL ESPECIFICAR UMA DIRECCAODE CARGA DIFERENTE.# ##MERGE> #A INSTRUCAO E ANA-LOGA A , MAS NAO ELIMI-NA O PROGRAMA NEM AS VARIA-VEIS BASIC, QUE PODERIAM ES-TAR ANTERIORMENTE EMMEMORIA.% %O RESULTADO E' QUE A NOVAINSTRUCAO SE ENCAIXA NAANTERIOR COM BASE NO NUMERO DELINHA. EM CASO DOS VALORESSEREM IGUAIS, SO SE CONSERVA ALINHA NOVA.% %ANTERIOR NOVA& &10 REM A 15 REM 20 REM B 20 REM Y 30 REM C 25 REM Z& &O RESULTADO DE MERGE...& &10 REM A 15 REM X 20 REM Y 25 REM Z 30 REM C% %NO CASO DO NOME SEROMITIDO EM QUALQUER OPE-RACAO DE LEITURA, UTILIZA-SEO PROXIMO BLOCO DE DADOSDA FITA MAGNETICA. # #