ZXTape! 2.VIDEO BASIC (EDICOES LATINAS) - TAPE 14 SIDE AEDICOES LATINAS, LDA / JACKSON PORTUGUESSPECTRUM BASIC COURSENONE ORIGINAL TAPE20 TAPES COURSEVIDEOBASIC>+ @(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;" " 3H ? '#+563?`@###133~  qw{>?  000000000000000000000000000000000000000000000000000000000000000000000000000100000001111022200000000000000211000000011112222000000000000002222200022222222220000000000000020200000002222222200000000000000000000000000000000000000666666666000000000066000000000006660088888888888888888880666660000000888===============8000000088888888?===============8888888888888888?<<<<<<<<<<<<<<<8888888888888888?;;;;;;;;;;;;;;;8888888888888888?;;;;;;;;;;;;;;;8888888888888888?:::::::::::::::8888888888888888?:::::::::::::::8888888888???888888888888888888:8888888888???8888????88?????::::8888888888???????889999999999:::888888888?88888888888888889999998888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888VIDEOLIST |-."e********************** ***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=5:p$="VIDEOHARDWARE: ":0710 n/p$="MICRODRIVE e ":0710 x.p$="FLOPPY DISK DRIVE ":0710 =K=K+1:p$="VIDEOBASIC-A LINGUAGEM: ":0710 /p$="Os arquivos: PRINT# - INPUT#":0710 .p$="Instrucoes relativas ":0710 -p$="ao Interface 1 ":0710 =K=K+1:p$="VIDEOBREAK: ":0710 /p$="Evolucao dum desenho ":0710 =K=K+1:p$="VIDEOBASIC-A PROGRAMACAO: ":0710 /p$="Arquivo ":0710 90490::AA=2:0690:.6,18 :K=7:p$="VIDEOTEST: ":0710 .p$="Jogo de adivinhas sobre ":0710 -p$="os temas da licao ":0710 <K=K+1:p$="VIDEO-JOGO: ":0710 .p$="Biorritmos ":0710 <K=K+1:p$="VIDEONEXT: ":0710 .p$="No proximo numero... ":0710 #0490:1::0630v " 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 ,8;"E PRIME ":n$ Tn9 ,7;" ";10 ,9 ;" ";11 ,8;" " ^J10 ,5;" ESTA BEM ESCRITO ? ";11 ,7;N$;" (S/N)" r="S"400 |d="N"10 ,5;" ";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 l BONECO 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: vakPNo proximo numero... Y!*PRIME UMA TECLA PARA CONTINUAR *N MARIO LUIS%CAR LIST 8|>+"$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >178  425 h=082 J206,h+2:0,-2:480,0:0,2 h p206,10 :480,0:-5,0:0,568:-38&,0:0,-568 230,36$,4 &230,36$,16 0M246,40(:0,23:245,64@:-30,0 :(214,63?:14,-30 D  7:0:7:  OP=0 LJw$="ESTA LICAO E DEDICADA AO MICRO-DRIVE E AO FLOPPY DISK.":9500% VW$="JA TERAS NOTADO O INCOMODO QUE EA GRAVACAO EM MEMORIA DE MASSA.O TEMPO QUE EMPREGA PARA LER EGRAVAR DADOS EM CASSETTE, E OSPROBLEMAS QUE OCASIONA A SUA ES-CASSA FIDELIDADE DE GRAVACAO.":9500% `W$="E NAO E SO ISSO: TAMBEM TENS QUETER ANOTADOS OS NOMES DE TODOSOS PROGRAMAS GRAVADOS, PARA NAOPERDERES HORAS A PROCURA-LOS.":9500% jW$="POR TODAS ESTAS RAZOES, TEM-SEINVENTADO OUTROS DISPOSITIVOSCAPAZES DE GUARDAR DADOS SOBRESUPORTE MAGNETICO, E CUJA VELO-CIDADE DE EXECUCAO E MUITO MAIOR":9500% tmW$="ESTAMOS A FALAR DAS PARA E DOS PARA .":9500% ~100d:220  350^ W$="AMBOS NECESSITAM UM INTERFACEPARA OS PODERMOS LIGAR AOSPECTRUM. NO CASO DO MICRODRIVETRATA-SE DO INTERFACE 1.":9500% xW$="ALEM DE MANEJAR ATE 8 MICRODRI-VES, O INTERFACE 1 PODE LIGAR 64SPECTRUM E QL. CONTEM UM INTER-FACE SERIE RS232."  9500% _W$="NA LICAO DA ""LINGUAGEM"" TERAS APOSSIBILIDADE DE APRENDER OS CO-MANDOS DO INTERFACE 1."  9500% ĦW$="O MICRODRIVE EMPREGA COMO SUPOR-TE, CARTUCHOS CONSTITUIDOS PORALGUNS METROS DE FITA ENROLADAEM ESPIRAL SOBRE UMA RODA, COMOS EXTREMOS UNIDOS.":9500% nW$="DESTA MANEIRA, QUANDO A FITATIVER CHEGADO AO FIM, VOLTA AU-TOMATICAMENTE AO PRINCIPIO.":9500%  500 ؜W$="EM ALGUNS DESTES CARTUCHOS PODEMEMORIZAR-SE APROXIMADAMENTE 95KE A LEITURA DA TOTALIDADE DA FI-TA EFECTUA-SE NUM MAXIMO DE 7/8SEGUNDOS.":9500% NW$="PORTANTO E EVIDENTE A COMODIDA-DE DO USO DESTE PERIFERICO.":9500% W$="A UNIDADE DE FLOPPY DISK E MUITOMAIS RAPIDA E POTENTE, MAS TEMCOMO DESVANTAGEM SER MAIS CARAQUE UM MICRODRIVE.":9500% W$="TEM EM CONTA QUE O ACESSO A UMADISQUETTE REALIZA-SE EM POUCOSSEGUNDOS, E A SUA CAPACIDADE PO-DE CHEGAR A 400 K.":9500% W$="ESTES DISPOSITIVOS SAO INDIS-PENSAVEIS PARA QUEM TENHA QUECARREGAR E MEMORIZAR DADOSCONSTANTEMENTE.":9500%  W$="A LEITURA E A ESCRITA SOBRE UMFLOPPY DISK, REALIZA-SE MEDIANTEUMA CABECA DESLOCADA RADIALMENTESOBRE A DISQUETTE QUE GIRA RAPI-DAMENTE MOVIDA POR UM MOTOR.":9500%  400 W$="MEDIANTE O ENVIO DE INFORMACOESADEQUADAS, A CABECA MAGNETIZAAREAS DA DISQUETTE, CONSERVANDOASSIM OS DADOS.":9500% @_W$=" ESCOLHE: R REPETIR C CONTINUAR " J9500%:9 T24,11 ;4;1;1;" " ^25,11 ;2;1;1;" " h="R"1 r="C"8070 | 8040h >7::X=07:X+2,0;X;X;,,:X QX=29 :X,3;8;9 ;" POE EM MARCHA O GRAVADOR ":X /15,0;:7:7:7 200:31969|:"" #('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;,,:x:x=11 21:x,0;3;,,:x $" $Tyx=10 0-1:x,0;1;2;,,:x:x=10 0-1:x,0;7;,,:x $^`0,172:4;255,0:255,91[:4;-255,0 $h %O=0:P=0 %! 9300T$ %&ST=5-(W$/60<) %0O=O+ST %:!OP=1O,P;W$:9595{% %NJ=1̱W$ %X W$(J)" ".004yn,30 %b O,P;W$(J) %l1P=P+1:P=32 P=0:O=O+1 %qW$(J)=".".1}L,30 %vJ %{ 9000(# % %x(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:32135}:"" %.236077\,124|:236066\,136 %M23676|\,127:23675{\,88X:23658j\,8:0: % OP=0 %4W$=" PARA O GRAVADOR":9500%:1 &6s="u"+256*("u"+1):s+1,1 &x=s+2818 &a=s+99c & 9914&:21,0; &.("u"+256*("u"+1)+101e) &x:x &+a="u"+256*("u"+1)+2 &9914&:9905& &z$ &"""";z$;"""" & 9905& &a+1,(x/256) &a,x-256*(x/256) & opT$poN%u l53WoMEDIANTE O ENVIO DE INFORMACOESADEQUADAS, A CABECA MAGNETIZAAREAS DA DISQUETTE, CONSERVANDOASSIM OS DADOS.Q A TECLA PARA CONTINUAR PRIME UM CAR HARD }G,$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >R  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 Xb$=" ":U="1":Z=U-U:RR="8150":TX="8330":IN="8400" ڰ"8":A$=" ARQUIVO":"8410" T$="O ARQUIVO E UMA SEQUENCIAORDENADA DE INFORMACOES:PO-DE COMPARAR-SE COM UM FICHEIROCLASSICO DE UM ESCRITORIO.":TX:RR pIN:T$="O SEU USO NO CAMPO DE TRATA-MENTO DE DADOS E FUNDAMENTALE E MUITO IMPORTANTE NA INFOR-MATICA.":TX RR:IN:"7950" U:"3",u;" ROSA AV.ROMA, 15 204758"''" PEDRO R.1, 116 267288"''" LENA P.CHILE, 18 741670"''" CARLOS V. BASIC, 14 898955" }t$="O ARQUIVO ESTA COMPOSTO PORELEMENTOS CHAMADOS QUE CONTEM INFORMACAO EESTAO INTERLIGADOS.":"7940" .e"200":U,U;U;" - REGISTO - ":i=ṵ"4":"i*2+1",u;u;u;b$:װ".5",i:"100":"i*2+1",u;b$:i `rr:"7950":t$="CADA REGISTO ESTA POR SUA VEZDIVIDIDO EM QUE CON-TEM INFORMACOES UNICAS.NESTEEXEMPLO EXISTEM TRES CAMPOS:NOME, DIRECCAO, E NUMERO DETELEFONE.":"7940" !i=ṵ"10":z;i,u;b$iɰ"7":i o"2500":i=ṵ"3":a$,t$,a:"5",a;u;u;a$;"7",a;ڰ"7";;t$:u,i*"5":"150":Z;"5",U;b$;"7",u;b$:i S"Nome "," ","2"," Direccao "," ","10","Telef."," ","23" rr:in:t$="O COMPRIMENTO DE CADA REGISTOPODE SER CONSTANTE, (COMO NOEXEMPLO ANTERIOR) OU VARIA-VEL, NESTE CASO NAO SERA CONS-TITUIDO PELA SOMA DOS COMPRI-MENTOS DOS CAMPOS MAS SIM PRO-PORCIONAL AO COMPRIMENTO DASINFORMACOES NELES CONTIDAS:":TX '''" ";ڰ"4";"LUISAR.DIREITA, 15181920":'" ";ڰ"4";"ALBERTOP.GIRALDO,8123456":'" ";ڰ"5";"JULIALG. D.JOAO, 3135791" rr:in:t$="ESTE ULTIMO TIPO DE ARQUIVOUSA A TOTALIDADE DO ESPACOQUE OCUPA, MAS O SEU USO EMAIS COMPLICADO; ENTAO EMPRE-GA-SE UNICAMENTE NAQUELASAPLICACOES NAS QUAIS AOCUPACAO EXCESSIVA DE MEMORIAPODE SER IMPORTANTE.":TX %RR:A$="METODO DE ACESSO ":"8410" ңT$="OS METODOS DE ACESSO ASINFORMACOES CONTIDAS NUMARQUIVO SAO FUNDAMENTALMENTEDOIS: * SEQUENCIAL ; * ALEATORIO (RANDOM).":TX:RR hin:"7950":T$="O ACESSO SEQUENCIAL TRATA OSREGISTOS CONSECUTIVAMENTE,ES-CREVENDO OU LENDO UM A SE-GUIR AO OUTRO SEGUINDO UMAORDEM ASCENDENTE.":"7940" Yu,u;u;"ACESSO SEQUENCIAL":"4250":"100":i=ṵ"4":t$:"12",u+u;u;t$:"100" Az:j="11"̰"1+i*2"-u:j+u,u;b$:װ".01",j:"5":j,u+U;t$:j }"ROSA AV.ROMA,15 204758","PEDRO R.1, 116 267288","LENA P.CHILE, 18 876542","CARLOS V. BASIC,14 898955" i:rr Hu,u;u;" ACESSO SEQUENCIAL ":"4250":"100":i=Ṵ"4":t$:"100" Ru;"i*2+1",u;u;b$:"12",u+u;u;t$:װ".1",i:"150":z;u;"i*2+1",u;b$:i i:rr t$="O ACESSO ALEATORIO, AO CONTRA-RIO, PERMITE LER OU ESCREVERDIRECTAMENTE NUM PONTO QUAL-QUER DO ARQUIVO.":IN:"7950":"7940" #I=ṵ"4":"i*2+1",u;u;i;")":i u,u;U;"ACESSO ALEATORIO":"4250":i=ṵ"4":t$:t$=" "+t$:"12",u;ڰ"6-*4";t$;" ":"5937"(i),u;:u:tx:z:"200":i ڰ"7";z;"12",u;b$:rr:u,u;u;" ACESSO ALEATORIO ":I=Ṵ"4":j="3"̰"30":u;"3795"(i),u;u;b$:u+u;"12",j;("3795"(i),j);:װ".01",j:j ?"100":u;ڰ"7";"3795"(i),u;ڰ"8";b$;z;"12",u;b$:i:rr pin:t$="EXISTE AINDA UM SEGUNDO METODODE ACESSO DIRECTO: A LEITURADE ARQUIVOS COM BASE NO CON-TEUDO DOS SEUS CAMPOS.":TX T$="ESTES SAO MANEJADOS A PARTEPELO SISTEMA OPERATIVO,QUE OS MANTEM ORDENADOS DE MO-DO A QUE A SUA BUSCA SEJA MAISRAPIDA.":TX:RR IN:T$="MAS O ACESSO A INDICES RE-QUERE UMA GRANDE CAPACIDADE DEMEMORIA, E SOFISTICADAS ROTI-NAS DE GESTAO POR PARTE DOSISTEMA OPERATIVO, SENDO ESTEMETODO USADO COM GRANDES COM-PUTADORES.":TX dRR:IN:T$="INDEPENDENTEMENTE DO TIPO DEACESSO USADO, UM ARQUIVO E MA-NEJADO POR QUATRO TIPOS DIS-TINTOS DE OPERACOES:":TX }RR:IN:U:U+U,U;ڰ"4";"LEITURA",:T$="O REGISTO INDICADO E TRANS-FERIDO DESDE O ARQUIVO AOSCAMPOS DE ENTRADA.":TX ,100d:'" ";ڰ"2";"SOMA",:T$="UM NOVO REGISTO, QUE CONTEMINFORMACOES GERADAS PELOPROGRAMA, E SOMADO AOS JAEXISTENTES.":TX Z100d:'" ";ڰ"6";"APAGAR",:T$="O REGISTO INDICADO E ELIMI-NADO DO ARQUIVO.":TX 100d:'" ";U;"MODIFICACAO",:T$="O CONTEUDO DO REGISTO IN-DICADO, E MODIFICADO COM BASEEM INFORMACOES PROPORCIONADASPELO PROGRAMA.":TX  RR:ڰ"8":IN:"8070":"1000" "14",U:TX: Ki=ṵ"20":i,u;i<"12";ڰ"7-(i>13)";b$:i:"3","67":ڰ"4";"248",z: @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" 20:U;U;:c=Z:N=U̱t$ (T$(N);:T$(N)=" "5:8385 6OPT$(N)=".".1}L,30:9 :8385 .003xD,32 "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: zueaNB  c JTCAPOE O GRAVADOR EM MARCHA oCAR LING 1 |>m."$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),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" 9D=Z:S="13":ڰ"8":A$="ARQUIVOS E O SPECTRUM":"8410" JT$="O SPECTRUM SEM INTERFACE 1 NAOE CAPAZ DE MANEJAR ARQUIVOS.":TX:RR xIN:T$="MAS E POSSIVEL SUPERAR ESTADIFICULDADE USANDO UMA ES-TRUTURA MANEJAVEL PELO BASIC,E BASTANTE APTA PARA SIMULARARQUIVOS: A MATRIZ.":TX RR:IN:t$="QUANDO OS DADOS A MEMORIZARSEJAM TANTO NUMEROS COMO LE-TRAS, COSTUMA-SE DIMENSIO-NAR UMA MATRIZ ALFANUMERICA,ASSIM, CONSIDERA-SE FORMADAPOR CADEIAS E CADA UM DOS SEUSELEMENTOS E SUBDIVIDIDO EMCAMPOS.":TX НRR:IN:T$="AS VARIAVEIS , E CONTEM AS INFORMA-COES QUE DESEJAMOS MEMORIZARNOS RESPECTIVOS CAMPOS DOREGISTO <2>.":"7950" 4r"200":U,U;U;"----CAMPO----":" ";ڰ"2";"NOME : 1...8":" ";ڰ"4";"IDADE: 9..10":" ";ڰ"6";"TELEF: 11..18" fx"132","138":"106",Z:Z,"18":"-106",Z:Z,"-18":"8","130":"110",Z:Z,"40":"3","17";U+U;"DIM A$(3,18)" kU,U:"100":I=Ṵ"3":"4+I*2","5";U;I;")";ڰ"7";" ";ڰ"4";" ";ڰ"5";" ";ڰ"6";" ":I `uU,U:"2400":i=ṵ"3":a$,t$,a:"12",u;:tx:"200":j=u̱a$:"8",a+j;a$(j):װ".1",J:j:RR:Z;"12",U;B$:i y"CARLOS","LET A$(2, TO 8)=N$","8","18","LET A$(2,9 TO 10)=STR$ IDADE","16","987654","LET A$(2,11 TO )=STR$ TEL","18" @T$="IGUALMENTE SERA POSSIVEL LEROS DADOS COM:":IN:"7950" 7"3050":I=ṵ"3":a,t$:"i*2+2","5";a;t$:u,i:i K"4","LET N$=A$(2,8)","2","LET IDADE=A$(910)","5","LET TEL=A$(11)" ]D=U:RR:IN:T$="DESTA MANEIRA, TORNA-SE FACILEXTRAIR INFORMACOES DOS REGIS-TOS.":"7950" "3600":"7940" tn"10 INPUT ""IDADE:"";X","20 FOR I=1 TO 3","30 IF VAL A$(I,9 TO 10)=X THEN PRINT A$(I)","40 NEXT I","" ؊0:rr:t$="OS <3> REGISTOS SAO UM EXEM-PLO. NA REALIDADE O NUMERO DEREGISTOS ESTARA SEMPRE CON-TIDO NUMA VARIAVEL.":"7950" D=Z:"3820":S="15":RR:in:U,U;U;"ARQUIVO=A$ N=NUMERO REGISTO ":T$="SE OS REGISTOS SAO SEQUEN-CIAIS E POSSIVEL UTILIZAR OMETODO DE ORDENACAO.":"7950":"7940" " ","10 INPUT ""DADO SOLICITADO"";X$","20 LET H=N:LET L=1","30 LET P=INT((H+L)/2)","40 IF A$(P)X THEN LET H=P" e"60 IF A$(P)=X$ THEN LET L=P:GOTO 80","70 IF H<>L THEN GOTO 20","80 PRINT ""NUMERO REGISTO "";L","" LRR:T$="A VARIAVEL CONTERA ONUMERO DO REGISTO PEDIDO.":"7950" <D=U:S="13":RR:IN:T$="E AQUI COMO E POSSIVEL COLO-CAR REGISTOS NA SEQUENCIACORRECTA. PARA SIMPLIFICARTRABALHAREMOS COM UM CAMPO:":"7950" n?U,"1";U;"ARQUIVO=A$ N=NUMERO REGISTO ":"3950":"7940" "10 INPUT ""NOVO NOME "";X$","20 LET N=N+1","30 FOR I=N TO 2 STEP -2","40 IF A$(I-1)>X$ THEN LET A$(I)=A$(I-1):NEXT I","50 A$(I)=X$","" |D=U:RR:IN:T$="SE DESEJARMOS ORDENAR OS RE-GISTOS DE UM ARQUIVO PODE EM-PREGAR-SE O SIMPLES ":"7950" "4550":"7940" Ѝ"10 FOR J=N-1 TO 1 STEP-1","20 FOR I=1 TO J","30 IF A$(I)>A$(I+1) THEN LET W$=A$(I):LET A$(I)=A$(I+1):LET A$(I+I)=W$","40 NEXT I:NEXT J","" \D=0:S="16":"4600":RR:IN:T$="...O RAPIDO ALGORITMO DE SHELL":"7950":"7940"  " ","10 LET H=N","20 LET H=INT(H/2)","30 FOR L=1 TO N-H","40 FOR I=L TO 1 STEP -1","50 LET J=I+H","60 IF A$(I)>A$(J) THEN LET W$=A$(I):LET A$(I)=A$(J):LET A$(J)=W$:NEXT I","70 NEXT L","80 IF H>L THEN GOTO 20","" "4630":D=U:S="13":RR:IN:U,U;U;"XX=INICIO CAMPO YY=FIM CAMPO":T$="TODOS ESTES ALGORITMOS PODEMMODIFICAR-SE PARA CONSIDERARUM UNICO CAMPO:":"7950":"7940"  P"10 ....","20 ....","30 IF A$(I,XX TO YY)>A$(XX TO YY) THEN ....","40 ....","" ls="15":RR:IN:"18",u;:T$="E AGORA INTRODUZ NOMES. OB-SERVA O EFEITO DA SUA ORDENA-CAO.":"7950" o$("10","10"):i=ṵ"10" 4("reg. ";i;" ");o$(i):i+u,"3";ڰ"*7";o$(i):i T$="...E AQUI COMO SE ORDENA UM ARQUIVO:":"7950":j="9"u-u:i=uj:o$(i)>o$(i+u)a$=o$(i):o$(i)=o$(i+u):o$(i+u)=a$ .i:j:i=ṵ"10":i+u,"18";ڰ"*7";o$(i):i pRR:IN:T$="MAS E IMPORTANTE QUE TODASAS OPERACOES DE BUSCA DEDADOS SEJAM RELATIVAS A TOTA-LIDADE DO ARQUIVO,CASO CONTRA-RIO AS UNIOES LOGICAS PERDEM--SE.":TX  RR:ڰ"8":IN:"8070":"1000" *U,z;:i=uuz:t$:°"13"D:t$tx:i  Ni=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)=" "7:8385 6OPT$(N)=".".1}L,30:9 :8385 .003xD,43+ "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: zueaNB  ds cJT20 ....A POE O GRAVADOR EM MARCHA 4CAR LING 2 |Rj+"$$$~$$~$$$~$$~$~~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  U=:Z=ç 9vc=z:rc=u:a$="INTERFACE 1":"8410":"8300":"8150" h"4":U::"18",U;:T$="AGORA VAMOS REALIZAR ALGUMASOPERACOES SOBRE O MICRODRI-VE....":"8330" FT$="FORMAT ""M"";1;""VBASIC""":"2","10";:ڰ"6":"8330":"7950" "18",Z,,,,,,;"18",U;:T$="O CARTUCHO ESTA PREPARADO PA-RA MEMORIZAR DADOS, CUJOS NO-MES SERAO LISTADOS POR...":"8330" )ڰ"6":"5","10";:T$="CAT 1":"8330" "7950":z,z;ڰ"7";"VBASIC "'" "'"Dados 1 "'"Arqu. 1 "'"Arqu. 2 "'"Progr 1 "'"Progr 2 "'" "'"36 ":z,"100":ڰ"4";"67",z:ڰ"4";z,"75" W"8150":"18",Z,,,,,,;"18",U;:T$="E AQUI COMO SE INTERPRETA UM :":"8330" 3a="-150":b="-.08":x="203":y="160":"7940" hLx="166":y="94":"7940":"10","14";:t$="KBYTE DISPONIVEIS":"8330" ]x="80":y="70":a="-50":b=-U:"7940":"14","8";:t$="ARQUIVOS E PROGRAMAS":"8330" P"8150":"18",Z,,,,,,;"18",U;:T$="ESTE E O EFEITO DE ":"8330" =ڰ"5":"8","10";:T$="ERASE ""M"";1;""Progr 1""":"8330" e"7950":A="-150":y="112":X="203":b="-.12":"7940":"100":"5",z;:t$="-------":"8330" /ڰ"7":U+U:"8150":"8400":"8070":"1000" +i=zaͰ"-3":i+x,i*b+y:װ".01","20":i: :I=Ṵ"40":װ".05",-40(:*5:I:"50":"4": @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" 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)=" "5:8385 6OPT$(N)=".".1}L,30:9 :8385 .002xn,35# "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:"12",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: zuEO INTERFACE 1 E UMA DASEXPANSOES MAIS INTERESSANTESPARA O . PODE MANEJAR TRES TIPOS DEUNIDADES PERIFERICAS: ,,(ATE 64 SPECTRUM).% %O MICRODRIVE E UMA UNIDADECAPAZ DE MEMORIZAR SOBRE UMCARTUCHO COM FITA ADEQUADA,APROXIMADAMENTE 90 KBYTES DEPROGRAMAS OU DE DADOS. A VELOCIDADE DE TRANSFERENCIAE MUITO SUPERIOR A DOGRAVADOR, O QUE PERMITE APLI-CACOES COMO A GESTAOAUTOMATICA DE ARQUIVOS OU PRO-GRAMAS, QUE DE OUTRO MODO ERAMIMPENSAVEIS, SEM CITAR A CO-MODIDADE DERIVADA DO GRANDEGANHO DE TEMPO. A INTERCAMBIABILIDADE DOSCARTUCHOS PERMITE AINDA AU-MENTAR BASTANTE A QUANTIDADEDE DADOS MEMORIZADOS.% %VEJAMOS AS INSTRUCOES PRO-PRIAS DESTE DISPOSITIVO:& &FORMAT "M";drive;nome& &LIGADO A O NUMEROQUE LHE CORRESPONDA, E A O NOME DO CARTUCHO.% %A INICIALIZACAO CONSISTE NOAPAGADO COMPLETO DA FITAE ASSIM DO SUCESSIVO GRUPODE MENSAGENS ESPECIAISQUE SERVEM PARA SINCRONIZAROS CIRCUITOS ELECTRONICOS COMO MOVIMENTO MECANICO. E UMA OPERACAO IN-DISPENSAVEL PARA UTILIZAR UMNOVO CARTUCHO, E E SEMPREACONSELHAVEL QUANDO, DEPOIS DEUM CERTO USO, SE APRESENTAMANOMALIAS DE FUNCIONAMENTO.% %CAT ^, &ENVIA AO CANAL ESPECIFICO OCATALOGO DO CARTUCHO, E DE-CERTO, O NOME DO CARTUCHO,A LISTAGEM DO CONTEUDO, E OESPACO LIVRE EM KBYTES. BEM:& &CAT & &VISUALIZA ESTAS INFORMACOESNO ECRAN.% %OS BLOCOS CUJOS NOMES COME-CAM COM , NAO SAOVISUALIZADOS, PORTANTO, EPOSSIVEL APROVEITAR-SE DISTOPARA MEMORIZAR INFORMACOESSEM QUE APARECAM NO CATA-LOGO.% %ERASE "M";drive;nome& &APAGA O PROGRAMA OU O ARQUIVOCOM NOME EXISTENTENO MICRODRIVE .# # [t$eaNh 'l cJTWO CARTUCHO ESTA PREPARADO PA-RA MEMORIZAR DADOS, CUJOS NO-MES SERAO LISTADOS POR...A POE O GRAVADOR EM MARCHA rCAR LING 3 |F"$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >. PODE MANEJAR TRES TIPOS DEUNIDADES PERIFERICAS: ,,(ATE 64 SPECTRUM).% %O MICRODRIVE E UMA UNIDADECAPAZ DE MEMORIZAR SOBRE UMCARTUCHO COM FITA ADEQUADA,APROXIMADAMENTE 90 KBYTES DEPROGRAMAS OU DE DADOS. A VELOCIDADE DE TRANSFERENCIAE MUITO SUPERIOR A DOGRAVADOR, O QUE PERMITE APLI-CACOES COMO A GESTAOAUTOMATICA DE ARQUIVOS OU PRO-GRAMAS, QUE DE OUTRO MODO ERAMIMPENSAVEIS, SEM CITAR A CO-MODIDADE DERIVADA DO GRANDEGANHO DE TEMPO. A INTERCAMBIABILIDADE DOSCARTUCHOS PERMITE AINDA AU-MENTAR BASTANTE A QUANTIDADEDE DADOS MEMORIZADOS.% %VEJAMOS AS INSTRUCOES PRO-PRIAS DESTE DISPOSITIVO:& &FORMAT "M";drive;nome& &LIGADO A O NUMEROQUE LHE CORRESPONDA, E A O NOME DO CARTUCHO.% %A INICIALIZACAO CONSISTE EMAPAGAR COMPLETAMENTE A FITAE ASSIM DO SUCESSIVO GRUPODE MENSAGENS ESPECIAISQUE SERVEM PARA SINCRONIZAROS CIRCUITOS ELECTRONICOS COMO MOVIMENTO MECANICO. E UMA OPERACAO IN-DISPENSAVEL PARA UTILIZAR UMNOVO CARTUCHO, E E SEMPREACONSELHAVEL QUANDO, DEPOIS DEUM CERTO USO, SE APRESENTAMANOMALIAS DE FUNCIONAMENTO.% %CAT ^, &ENVIA AO CANAL ESPECIFICO OCATALOGO DO CARTUCHO, E DE-CERTO, O NOME DO CARTUCHO,A LISTAGEM DO CONTEUDO, E OESPACO LIVRE EM KBYTES. BEM:& &CAT & &VISUALIZA ESTAS INFORMACOESNO ECRAN.% %OS BLOCOS CUJOS NOMES COME-CAM COM , NAO SAOVISUALIZADOS, PORTANTO, EPOSSIVEL APROVEITAR ISTOPARA MEMORIZAR INFORMACOESSEM QUE APARECAM NO CATA-LOGO.% %ERASE "M";drive;nome& &APAGA O PROGRAMA OU O ARQUIVOCOM NOME EXISTENTENO MICRODRIVE .# # LINGUAGEM4 )! 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  U=:Z=ç 0vc=z:rc=u:a$="INTERFACE 1":"8410":"8300" '"3000":"8150":"4":ڰ"6":"8400" xl="5":i=ṵ"7":t$,a,a$:i "i*2+5",u;:"8330" +j="i*2+5"̰"2"-u:j,a;"^":װ".01",j:j HD"2",xl;u;a$:"8150":xl=xl+a$:"2",u;u;ڰ"8"," " i "Salva ","7","SAVE " T"Interf.1 ","10","*","Microdrive..","13",";""M""","Unidade1........","16",";1;" $z"Nome do bloco ..","19","""B""","Inform. tipo DADOS.....","23"," DATA","Nome matriz em memoria....","28"," F$()" ڰ"8":"8400":"8300" /ڰ"7":U+U:"8150":"8400":"8070":"1000" +i=zaͰ"-3":i+x,i*b+y:װ".01","20":i: 4I=Ṵ"40":װ".05",-40(:*5:I:"50": @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"8: 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" 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,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: چ"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:"12",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 <O INTERFACE 1 A DIFERENCA DOECRAN, DO TECLADO, E DAZX PRINTER, NAO TEM CANAISLIGADOS AUTOMATICAMENTE, PELOQUAL E NECESSARIO EXECUTARCOM ANTERIORIDADE UM ( OU VA-RIOS), SE DESEJAMOS REA-LIZAR OPERACOES SOBRE ARQUI-VOS.% %POR EXEMPLO:& &OPEN ^6;"M";2;"BASIC"& CONECTA A CORRENTE 6 COM OARQUIVO DO MICRODRIVE<2>; SE JA EXISTIRA UM ARQUI-VO COM ESTE NOME, SERA CON-SIDERADO DE LEITURA, E ACEITA-RIA UNICAMENTE OPERACOES DEINPUT;SE NAO FOR ASSM, E INI-CIALIZADO UM, E LIGADO PARALEITURA. DEPOIS DE ACORRENTE ESTA DISPONIVEL PARATODAS AS INSTRUCOES DE ACES-SO (LIST, PRINT, INPUT, ETC)EXISTENTES NO SPECTRUM.% %TODAS AS OPERACOES POSSIVEISCOM O GRAVADOR, TAMBEM SAOREALIZAVEIS PELO MICRODRIVE;MAS SAO NECESSARIAS ALGUMASINFORMACOES COMPLEMENTARES. POR EXEMPLO:& &LOAD *"M";1;"VIDEOBAS"& CARREGA EM MEMORIA O PROGRAMA EXISTENTE NO MI-CRODRIVE <1>;% %SAVE *"M";2;"TEL" DATA K()& &GUARDA A MATRIZ NOCARTUCHO DO MICRODRIVE <2>,DANDO-LHE O NOME DE . A INSTRUCAO REALIZA-SEUNICAMENTE COM PROGRAMASQUE HAJAM SIDO GUARDADOS SEMO PARAMETRO , PARA OARRANQUE AUTOMATICO.# #SE SE MEMORIZAR EM CARTUCHOUM PROGRAMA COM NOME ,ESTE PODERIA CARREGAR-SE DESDEO MICRODRIVE 1 AO LIGAR-SE OSPECTRUM OU DEPOIS DE ,TECLEANDO MAIS .E POSSIVEL PROTEGER UM CARTU-CHO CONTRA MUDANCAS, ROMPEN-DO A LINGUETA SITUADA NOLADO DIREITO. E MUITO IMPORTANTE EVITAR LI-GAR OU APAGAR O SPECTRUM,SE UM CARTUCHO ESTIVER NOMICRODRIVE:ESTA OPERACAO PRO-VOCA A PERDA SEGURADUM BLOCO DE DADOS.# # [t$eaNh 'l cJTZX PRINTER, NAO TEM CANAISA POE O GRAVADOR EM MARCHA CAR LING 4 |〵"$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >, SE DESEJAMOS REA-LIZAR OPERACOES EM ARQUI-VOS.% %POR EXEMPLO:& &OPEN ^6;"M";2;"BASIC"& LIGA O CANAL 6 COM OARQUIVO DO MICRODRIVE<2>; SE JA EXISTIR UM ARQUI-VO COM ESTE NOME, SERA CON-SIDERADO DE LEITURA, E ACEITA-RIA UNICAMENTE OPERACOES DEINPUT;SE NAO FOR ASSIM, E INI-CIALIZADO UM, E LIGADO PARALEITURA. DEPOIS DE OCANAL ESTA DISPONIVEL PARATODAS AS INSTRUCOES DE ACES-SO (LIST, PRINT, INPUT, ETC)EXISTENTES NO SPECTRUM.% %TODAS AS OPERACOES POSSIVEISCOM O GRAVADOR, TAMBEM SAOREALIZAVEIS PELO MICRODRIVE;MAS SAO NECESSARIAS ALGUMASINFORMACOES COMPLEMENTARES. POR EXEMPLO:& &LOAD *"M";1;"VIDEOBAS"& CARREGA EM MEMORIA O PROGRAMA EXISTENTE NO MI-CRODRIVE <1>;% %SAVE *"M";2;"TEL" DATA K()& &GUARDA A MATRIZ NOCARTUCHO DO MICRODRIVE <2>,DANDO-LHE O NOME DE . A INSTRUCAO REALIZA-SEUNICAMENTE COM PROGRAMASQUE TENHAM SIDO GUARDADOS SEMO PARAMETRO , PARA OARRANQUE AUTOMATICO.# #MEMORIZANDO EM CARTUCHOUM PROGRAMA COM NOME ,ESTE PODERIA CARREGAR-SE DESDEO MICRODRIVE 1 AO LIGAR-SE OSPECTRUM OU DEPOIS DE ,DIGITANDO MAIS .E POSSIVEL PROTEGER UM CARTU-CHO CONTRA IMPREVISTOS PAR-TINDO A LINGUETA SITUADA NOLADO DIREITO. E MUITO IMPORTANTE EVITAR LI-GAR OU DESLIGAR O SPECTRUM,SE UM CARTUCHO ESTIVER NOMICRODRIVE:ESTA OPERACAO PRO-VOCA A PERDA DE UMBLOCO DE DADOS.# # =LINGUAGEM5R T  EDICOES LATINAS  Zf(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 _"31809":z=ç:u=::"23609","20":"23658","8":"""31810":""F$():"23606",z:"23607","124":ڰ"7":z::ڰ"8":u;"10",z;" PARA O GRAVADOR ":I=Z̰"10":װ".01","I*5":I `!"23675","66":"23676","124" 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  U=:Z=ç >ڰ"7":vc=z:rc=u:a$="REDE LOCAL":"8410":"8300":"8150" j=zu ڰ"5"::i=ṵ"4":xl="12GD"(i)-"48":yl="2=3<"(i)-"48":yl,xl;u;i:i;yl+i,xl;"";"yl+i+u",xl;"";yl+i+"2",xl;"";yl+i+"3",xl;"":i *"24","152":z,"8":"176",z:z,"-32" +"192","128":z,"8":"-16",z:z,"-88" H+"168","48":z,"16":"-136",z:z,"-8" \ڰ"3" Wj"8",Z;:t$="SAVE *""N"";3":"8330":T$="LOAD *""N"";1":"11","21";:"8330" $Xj"20",Z;:t$="MERGE *""N"";4":"8330":T$="SAVE *""N"";2":"20","18";:"8330" tڰ"2" ؉JT$=" IF A=B THEN LET B=5+6 PRINT X+""BASIC"" FOR X=3 TO 24":I=Ṵ"80":Z,"3";ڰ"6";T$(̰"22"):T$()=T$(T$)+T$:װ".1","*30":I JT$=" FOR J=Q TO 5 << PRINT AT 6,12;""BASIC"" << IF A=B":I=Ṵ"80":"12","4";ڰ"6";T$(̰"17"):T$()=T$(u+u)+T$(u):װ".1","*30":I  "8150":j 4VC=Z:ڰ"7":A$="INTERFACE RS232":"8410":"8300" /ڰ"7":U+U:"8150":"8400":"8070":"1000" +i=zaͰ"-3":i+x,i*b+y:װ".01","20":i: 4I=Ṵ"40":װ".05",-40(:*5:I:"50": @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 ljڰ"8":A=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)="&"'U''" ";: T$(N)="#"P="8": T$(N)="^""#";:8382 T$(N);:T$(N)=" "8385 6OPT$(N)=".".1}L,30:9 :8385 .002xn,45- "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:"12",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 ^DOIS OU MAIS COMPUTADORES ( NOCASO DO SPECTRUM ATE UM MA-XIMO DE 64) QUE SE COMUNICAMENTRE ELES CONSTITUEM UMARED LOCAL (N). NO SPECTRUMA CONEXAO FISICA REALIZA-SEATRAVES DO CABO ENTREGUECOM O INTERFACE 1,INSERTANDO--O NO CONECTOR ADEQUADO.% %PARA PODER ENTRAR NA RED, ACADA UNIDADE ATRIBIUSE-LHEUMA DIRECAO COMPREENDIDA EN-TRE 1 E 64, MEDIANTE:& & FORMAT "N",XX& &ONDE E O NUMERO ALIGAR. AS OPERACOES DE GRAVACAO,LEITURA, ETC., EXECUTAM-SE NAFORMA HABITUAL MAS ESPECI-FICANDO O NUMERO DE UNIDADECOM QUE SE DESEJA CONECTAR:%SAVE *"N";4& &ENVIA O PROGRAMA (DO QUE NAOSE ESPECIFICA O NOME) AUNIDADE N.4; OBVIAMENTE QUETERA DE SE EXECUTAR COM ANTE-CEDENCIA:& &FORMAT "N",4 LOAD "N";2& &SUPONDO QUE A UNIDADETRANSMISSORA TENHA PRECISA-MENTE A DIRECAO <2>.% %INDICANDO <0> COMO DIRECAO,A COMUNICACAO SE REALIZARACOM QUALQUER UNIDADE, INDEPEN-DENTEMENTE DO NUMERO QUETENHA LIGADO.% %OS ARQUIVOS GESTIONAM-SE COMODE COSTUME COM: PRINT, INPUT,ETC., DIRECCIONADOS A COR-RENTE QUE NO CASO DARED, DEVE SER ABERTO COM:& &OPEN ^4 corrente;"N"# #O INTERFACE E DE TI-PO GERAL, E DECERTO, NAO ESTAORIENTADO A NENHUM USO ESPECI-FICO.% %PODE-SE CONECTAR COM QUAL-QUER UNIDADE DE E/S, (MODEM,PLOTTER,IMPRESSORA, ROBOT) DO-TADA DE IGUAL DISPOSITIVO. ATRANSFERENCIA DE DADOS PODEREALIZAR-SE EM DIFERENTES VE-LOCIDADES SELECCIONAVEIS PORMEIO DE:& &FORMAT "T",vel.& &vel>(EXPRESSADO EM BAUDIOS=BITPOR SEGUNDO) PODE TOMAR OSSEGUINTES VALORES:50/110/300/600/1200/2400/4800/9600/19200%O INTERFACE RS232 TEM DOISCANAIS DISTINTOS DE ACESSO: (TEXTO), E (BINARIO). TRANSMITE CARACTERES IM-PRIMIVEIS (CODIGOS DE 32 A127); OS (RUN, GOTOETC.) TRANSFORMAM-SE NOSRESPECTIVOS CARACTERES QUEFORMAM O SEU NOME; OS CODIGOSINFERIORES A 32 (EXCLUINDO O13) SAO IGNORADOS. ESTE TIPO DE DESCODIFICACAO EUTIL PARA ENVIAR LISTAGENS DEPROGRAMAS BASIC.% %O CANAL EM TROCA TRATAINTEGRAMENTE QUALQUER INFOR-MACAO, SEM EFECTUAR NENHUMCONTROLO OU TRANSFORMACAO. EUTIL, POR EXEMPLO, PARA TRANS-FERIR PROGRAMAS, BLOCOS DEMEMORIA,OU PARA ENVIAR CARAC-TERES DE CONTROLO A IMPRESSO-RAS,PLOTTER,ETC, ABERTO SIMUL-TANEAMENTE COM O CANAL .%%OPEN ^ corrente,"T" OPEN ^ corrente;"B"& &LIGANDO AS CORRENTES ESPE-CIFICAS A O ;& &SAVE, LOAD, ETC.,NAO REQUEREMNOMES NEM DIRECCOES QUANDOTOMAM A FORMA:& &SAVE "B" MERGE "B" etc.# #[t$eaNX 'l cJTATRAVES DO CABO ENTREGUEA POE O GRAVADOR EM MARCHA CAR LING 5B|= kkkhPP̙3g??????~~????ROBERTO$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" > E O NUMERO ALIGAR. AS OPERACOES DE GRAVACAO,LEITURA, ETC., EXECUTAM-SE NAFORMA HABITUAL MAS ESPECI-FICANDO O NUMERO DE UNIDADEQUE SE PRETENDE LIGAR:%SAVE *"N";4& &ENVIA O PROGRAMA (DE QUE NAOSE ESPECIFICA O NOME) AUNIDADE N.4; OBVIAMENTE QUETERA DE SE EXECUTAR COM ANTE-CEDENCIA:& &FORMAT "N",4 LOAD "N";2& &SUPONDO QUE A UNIDADETRANSMISSORA TENHA PRECISA-MENTE A DIRECCAO <2>.% %INDICANDO <0> COMO DIRECCAO,A COMUNICACAO REALIZA-SECOM QUALQUER UNIDADE, INDEPEN-DENTEMENTE DO NUMERO QUETENHA LIGADO.% %OS ARQUIVOS GESTIONAM-SE COMODE COSTUME COM: PRINT, INPUT,ETC., DIRECCIONADOS AO CANALQUE NO CASO DA REDE,DEVERA SER ABERTO COM:& &OPEN ^4 corrente;"N"# #O INTERFACE E DE TI-PO GERAL, E DECERTO, NAO ESTAORIENTADO A NENHUM USO ESPECI-FICO.% %PODE LIGAR-SE COM QUAL-QUER UNIDADE DE E/S, (MODEM,PLOTTER,IMPRESSORA, ROBOT) DO-TADA DE IGUAL DISPOSITIVO. ATRANSFERENCIA DE DADOS PODEREALIZAR-SE EM DIFERENTES VE-LOCIDADES SELECCIONAVEIS PORMEIO DE:& &FORMAT "T",vel.& &vel>(EXPRESSADO EM BAUDIOS=BITPOR SEGUNDO) PODE TOMAR OSSEGUINTES VALORES:50/110/300/600/1200/2400/4800/9600/19200%O INTERFACE RS232 TEM DOISCANAIS DISTINTOS DE ACESSO: (TEXTO), E (BINARIO). TRANSMITE CARACTERES IM-PRIMIVEIS (CODIGOS DE 32 A127); OS (RUN, GOTOETC.) TRANSFORMAM-SE NOSRESPECTIVOS CARACTERES QUEFORMAM O SEU NOME; OS CODIGOSINFERIORES A 32 (EXCLUINDO O13) SAO IGNORADOS. ESTE TIPO DE DESCODIFICACAO EUTIL PARA ENVIAR LISTAGENS DEPROGRAMAS BASIC.% %O CANAL ,AO CONTRARIO, TRA-TA. INTEGRAMENTE QUALQUER IN-FORMACAO, SEM EFECTUAR NENHUMCONTROLO OU TRANSFORMACAO. EUTIL, POR EXEMPLO, PARA TRANS-FERIR PROGRAMAS, BLOCOS DEMEMORIA,OU PARA ENVIAR CARAC-TERES DE CONTROLO A IMPRESSO-RAS,PLOTTER,ETC, ABERTO SIMUL-TANEAMENTE COM O CANAL .%%OPEN ^ canal ,"T" OPEN ^ canal ;"B"& &LIGANDO OS CANAIS ESPE-CIFICoS A O ;& &SAVE, LOAD, ETC.,NAO REQUEREMNOMES NEM DIRECCOES QUANDOTOMAM A FORMA:& &SAVE "B" MERGE "B" etc.# #