ZXTape! 2.VIDEO BASIC (EDICOES LATINAS) - TAPE 10 SIDE AEDICOES LATINAS, LDA / JACKSON PORTUGUESSPECTRUM BASIC COURSENONE ORIGINAL TAPE20 TAPES COURSEVIDEOBASIC>+G@(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?`@###133b~  qw{><?  000000000000000000000000000000000000000000000000000000000000000000000000000100000001111022200000000000000211000000011112222000000000000002222200022222222220000000000000020200000002222222200000000000000000000000000000000000000666666666000000000066000000000006660088888888888888888880666660000000888===============8000000088888888?===============8888888888888888?<<<<<<<<<<<<<<<8888888888888888?;;;;;;;;;;;;;;;8888888888888888?;;;;;;;;;;;;;;;8888888888888888?:::::::::::::::8888888888888888?:::::::::::::::8888888888???888888888888888888:8888888888???8888????88?????::::8888888888???????889999999999:::888888888?88888888888888889999998888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888VIDEOLIST r \********************** ** 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{ m7: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$="A Impressao ":0710 =K=K+1:p$="VIDEOBASIC-A LINGUAGEM: ":0710 /p$="Os Canais: OPEN# - CLOSE# ":0710 .p$="Codigos de controlo ASCII ":0710 -p$="LLIST - LPRINT - COPY ":0710 =K=K+1:p$="VIDEOBREAK: ":0710 /p$="Chapeu 3D ":0710 =K=K+1:p$="VIDEOBASIC-A PROGRAMACAO: ":0710 /p$="Output, sua Impressao ":0710 D100d:0490::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$="Master Mind ":0710 <K=K+1:p$="VIDEONEXT: ":0710 .p$="No proximo numero... ":0710 .100d:0490:1::0630v "PEDIDO DE NOMBRE , 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;" " ^K10 ,5;" ESTA BEM ESCRITO ? ";11 ,9 ;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 240(: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 lHOMBRECILLO 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 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,32 -N;P$(N):.002xn,K*N/8:N:K=K+1: wCAR LIST |L+"$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0 67:7:7:31969|:"":"":"" d236077\,124|:236066\,0:9 :23675{\,88X:23676|\,127 VX=07:"B"+X,0:X:"B"+3,255:"B"+4,255 hx=07:x+14,11 ;"O GRAVADOR ",21-X,0;" PARA":.03{u\,X:X S$=6+6 HY=1421:.02{# =*Y,30:Y,0;S$Y19:Y  1:100d * 1 4Y:W=0100d:1:2:3:4:5:6:7:W 9 >lY=0203:Y/3;9 ;Y,Y;" CONECTA O ";Y+1,Y+1;" GRAVADOR ":Y HWW=0200:1:2:3:4:5:6:7:W R(150:7:7:7: \""  3000 &P=15+(2-(W$/64@)) O=P:P=0 G=1̱W$  ="!"  O,P;W$(G) W$(G)=".".1}L,10 W$(G)" ".002xn,0 1P=P+1:P=32 P=0:O=O+1 G 1:502  2300  'P$=" PRIME UMA TECLA PARA CONTINUAR " ).003xD,40(:.003xD,0 9#1;2;7;1;1,0;P$ $""2400` .P$=P$(2)+P$(1) 8 2310 `"": ^X=1421:2;X,0,,:X:X=1421:7;X,0,,:X :14,0;"" :21,0;""   Sp olkWkOS COMPUTADORES PODEM TER INTER-FACES SERIE OU PARALELO, E EMFUNCAO DESSE TIPO ESCOLHE-SE AIMPRESSORA.P PRIME UMA TECLA PARA CONTINUAR CAR HARD |X  "$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" ><3l|<|<<|~<<R fp&|<?|<|~@)JRHB<|<D<BÀ@B@π BB )JRH?@B@~~BBB<@B<<~BB<@@fx3m  8? (JRH@@  px 8? |<|~@ ||<~B||~<<B@B~<B<<~BB  @ ?  H``````hhh0000000iiiiiiiiiiiiiiii``````hhh00 iiiiVVVVVVVVViii``````hhh0((((((iiiiiiiiiiiiiiii``````hhhh((((((iiiiiiiiNiiWWWWWWW`xx((((((iiiiiiiii^^^^^iiWWWWWWW``xxxxxxx88888888iiiiiiii````a````xxxxxxx88888888iiiiiiiiqqqqqqqqqqqqqqqqxxxxxxxxxxxxxxxxqqqqqqqqqqqqqqqqxxxxxxxxxxxxxxxxqppppppppqqqqqqqxxxxxxxxxxxxxxxxqqqqqqqqqqqqqqqwxxxxxxxxxxxxxxxxqqqqpppppqqqqqqwxxxxxxxx(((((((xqqqqqqqqqqqqqqqwxxxxxxxxxxxxxxxxppppppqqqWWWWWWWxxxxxxxxxxxxxxxx88888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888   2E *  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" 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 9ٰ"9":U="1":Z=U-U:RR="8150":TX="8330":IN="8400" 4RC=U:A$=" OPEN # - CLOSE #":"8410":"8300":RR "9000" SZ:"300":n=z̰"29":װ".1",n:ٰ"4";"19",N;" @";"20",N;" ~|";"21",N;" \]" 5n="18""19","21";u;" ? ? ?":u,"-10":"100" n RR:IN:"8300":RR:"9000" PGa$="145":j=Ṵ"3":Z:"21",z;u;"OPEN #";a$(J);",""";"SKP"(J);"""" di="16"̰"19":"a$(j)*2+3",i;j*2;"*":i:i="a$(j)*2+3"̰"4+""039""(j)"-u:j*2;i,"19";"*":i:n="19"̰"22":j*2;i,n;"*":n U,"J*5":rr:j *IN:"8300":RR:IN:"8070":I"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:"" /I=Z:"7",U;:T$="ESCOLHE, "+N$+":":"8330" ~"11","6";"F FIM";"13","6";"I VOLTAR AO PRINCIPIO";"15","6";"C PASSO P/A PARTE";"16","6";" SEGUINTE" Z$=:Z$="F" Z$="I"I=U:  Z$="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" RC=34"2,0; ڰ"8":U:U;:c=Z:N=U̱t$ (T$(N)="%"8150:"8400":vc=u: T$(N)="&"'U''" ";: T$(N)="#"P="8": T$(N)="^"T$(N)="#" T$(N);:T$(N)=" "8385 *OPT$(N)=".".1}L,30:9 .001wn,20 "c=c+u:c=30c=Z:U;" "; N: ta=4:XL=248:YL=169:2::U+U,U;:3,3:a;XL,Z:a;Z,YL:a;-XL,Z:a;Z,-YL: ڌVC=Z:"8400":"3","15-A$/2";A$:YL="11":XL="8*A$+16":"126-XL/2","142":XL,Z:Z,YL:-XL,Z:Z,-YL:U,-U:XL,Z:Z,YL:"13",U;: #(n:a="110":"131","162":-a,z:z,-a:a,z:z,a:i=u+ṵ"14":i,"3";ڰ"4",:i:"8","4";ڰ"6";" C.P.U. " #2:i=z̰"5":ڰ"6";"3"+i*"2","13";"#";i;" ";:U;" ":i #<1i=u+ṵ"6":i,"24";ڰ"3+2*(i>5)";;" ":i #=!"4","25";"S";"6","25";"K" #>ka="44":b="34":i="5":j=-/(u+u):"193","117":-i,i,j:z,b:i,i,j:a,z:i,-i,j:z,-b:-i,-i,j:-a,z #@ka="54":b="50":i="5":j=-/(u+u):"188","105":-i,i,j:z,b:i,i,j:a,z:i,-i,j:z,-b:-i,-i,j:-a,z #B)i="194"̰"234"Ͱ"20":i,"111","3":i #P5u+u;"12","22";" ";"13","22";" P " #d zuCAR B|< kkkhPP̙3g??????~~????ROBERTO$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" > E SERVEM PARA O IN-TERCAMBIO DE DADOS ENTRE AUNIDADE CENTRAL E AS UNIDADESPERIFERICAS (E/S).% %O DISPOE DE NUME-ROSAS INSTRUCOES DE ENTRADAE SAIDA: LIST, INPUT, PRINT,ETC; E EXISTEM VARIAS UNIDADESCAPAZES DE USAR ESTAS INSTRU-COES: ECRAN, IMPRESSORA,MICRODRIVE E OUTRAS. PORTANTO TEM QUE EXISTIRA POSSIBILIDADE DE PODER CON-TROLAR A CONEXAO, ENTRE ASINSTRUCOES DE E/S E A UNI-DADE ESCOLHIDA.% %A SOLUCAO CONSISTE EM ATRI-BUIR A CADA INSTRUCAO DEE/S UM NUMERO COMPREENDIDO EN-TRE 0 E 15. ISTO SERVE PARA IDENTIFICAR OCANAL (STREAM) PARA O QUALSE ENVIAM OS DADOS:& &LIST ^7 INPUT ^12 PRINT ^0& &...E ASSIM SUCESSIVAMENTE.% %MAS A OPERACAO TODAVIA FICAINCOMPLETA: ESTABELECEU-SEO CANAL A USAR, MAS NAO EM QUEUNIDADE ESTA SITUADA NO EX-TREMO OPOSTO.# #O NIVELAMENTO OBTEM-SECOM OPEN ^, TENDO EM CONTAQUE O SPECTRUM SEM EXTENSAODE MEMORIA PODE COMANDAR A:& &* PARTE INFERIOR DO ECRAN :(K); * PARTE SUPERIOR DO ECRAN :(S); * ZX-PRINTER: (P).% %A INSTRUCAO OPEN ^ TOMA ASEGUINTE FORMA:& &OPEN ^X,D& &ONDE E O NUMERO DO CA-NAL, E E O DISPOSITIVO DOGRUPO EXT. (, OU

).% QUANDO O SPECTRUM E ACTI-VADO, ABRE AUTOMATICAMENTEOS PRIMEIROS 4 CANAIS, LIGAN-DO-OS AOS DISPOSITIVOS:& &'K' (0-1), 'S' (2), 'P' (3).%%TAMBEM SE PODEM FAZER ASSEGUINTES COMBINACOES:& &INPUT ^1 = ; PRINT ^2, LIST ^2 = ; LPRINT ^3, LLIST ^3 =

.& &PORTANTO, SE AS COMBINA-COES SAO AS DESEJADAS, PO-DES USAR DIRECTAMENTE ESTASINSTRUCOES SEM NENHUMA IN-DICACAO SUPLEMENTAR. ISTONAO EXCLUI POR ABSOLUTO,A POS-SIBILIDADE DE DIRECIONAMENTOSALTERNATIVOS.% %AO TENTARES UTILIZAR UM CANALQUE NAO ESTA ABERTO, ENCONTRA-RAS UMA MENSAGEM DE ERRO.##PARA FECHAR UM CANAL UTILIZA-MOS CLOSE ^. ESTA OPERACAO EUTIL, POR EXEMPLO, PARA RE-UTILIZAR UM CANAL ANTERIORMEN-TE ABERTO, OU PARA COMPLETARA TRANSFERENCIA DE DADOS AOTERMINARES O PROGRAMA. # # CHR$ U"\ WZf(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 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 9ٰ"9":U="1":Z=U-U:RR="8150":TX="8330":IN="8400" 1ڰ"7":RC=U:A$=" OS CARACTERES ASCII":"8410" L"11",ç:t$="NO LUGAR DA ZX-PRINTER PO-DEMOS CONECTAR NO SPECTRUMOUTRAS IMPRESSORAS. NESTE CASOPARA ACTIVAR AS NOVAS FUN-COES, RECORREMOS AOS CA-RACTERES DE CONTROLE.":TX:RR IN:'':T$="ESTES SAO CARACTERES NORMAIS,MAS COM A CARACTERISTICA DENAO PRODUZIR NENHUM SINAL IM-PRIMIVEL.":TX:':T$=" ":TX n':T$="ESTES ESTAO SITUADOS NAPARTE INFERIOR DO QUADROASCII (CODIGOS ENTRE <0> E<31>).":TX RR:IN:''''':T$="VEJAMOS AGORA COMO SE AGRUPAMPOR CLASSES HOMOGENEAS DE FUN-COES, OS CARACTERES DOQUADRO .":TX:RR ܮZ:Z:23624H\,Z::A$=" ":T$=" "::I=-ṵ"16":A$()=((I*16)iziǰ"15"):t$():i+"3","5";ڰ"6";A$;ڰ"4";" ";ڰt$(u);t$(u+u);ڰ"4";" ":i @"4","5 CARACTERES DE","5 CONTROLE","2","2","2 CARACTERES","2 DE IMPRESSAO","2","2","6","6","6 CARACTERES","6 GRAFICOS","6 E","6 INSTRUCOES","6","6","4" rvZ,"5";U;"A CODIFICACAO ASCII":i=ṵ"12":i+"4","3";U;" CODIGOS "(I):I:ڰ"7":23614>\,Z:100d Дrr:in:t$="AS FUNCOES QUE POSSUI, E ASSEQUENCIAS DE CARACTERES PARASUA ACTIVACAO, ESTAO ESPECIFI-CADAS NO MANUAL DE CADA IM-PRESSORA.":TX 80P:U;'''" Exemplos:"''" TAB = CHR$ 9"''" CURSOR/BAIXO= CHR$ 10"''" ESPACO = CHR$ 27+""W1"""''" SUBLINHADO = CHR$ 27+""-1""" `RR:ڰ"7":IN:''''''':T$="PARA OBTER O MELHOR PARTIDODAS POSSIBILIDADES QUE OFERE-CE UMA IMPRESSORA,QUE NAO SEJAA ZX-PRINTER, PODE SER UTILAGRUPAR AS FUNCOES DE IM-PRESSAO POR CATEGORIAS...":TX ڰ"3":RR: U'" INICIALIZACAO",:''ڰ"5";"* ELEICAO DO TIPO DE CARACTER","* COLOCACAO DO ","* ELEICAO DO ESPACO","* REDEFINICAO DE CARACTERES", vU''" POSICIONAMENTO",,'':U;"* TAB VERTICAL",,"* TAB HORIZONTAL","* AVANCAR LINHA",,"* AVANCAR PAGINA ETC...", eU''" TIPO DE IMPRESSAO",'':ڰ"6";"* NORMAL",,"* EXPANDIDO",,"* GRAFICO",,"* EM COR ETC...", $ "100":RR  U:U+U: ~1:23624H\,8::ڰ"5";"TAB FUNCIONA DE FORMA DISTINTADA QUE TEMOS EMPREGADO ATEAGORA:":"6",Z;U,, P2"20",U;:T$="..ESTABLECEM-SE AS POSICOES":TX dI=Z̰"31":"5",I;".":I AI=Ṵ"2":"7","5B"(I)-"43";ڰ"6";"^":װ".1","25":"50":I t"100":"20",U;0;" ":"19",U:T$="..DEPOIS EXECUTA-SE A IMPRES-SAO":TX f502:Z:ڰ"6";"18",Z,,"LPRINT ""ISTO""; ";U; "9";Z;";""E ""; ";U;"9";Z;";""BASIC""",,,, "6",Z;U;"ISTO":װ".1","10":"100":"6","10";U;"E ":װ".1","15":"100":"6","23";U;"BASIC":װ".1","20":"110":RR pڰ"7":IN:'''''':T$=" VERTICAL E SEMELHANTE,MAS NO LUGAR DE POSICOES DEIMPRESSAO FAZ-SE REFERENCIA AONUMERO DE LINHA NO AMBITODUMA PAGINA.":TX:RR XIN:'':T$="O CONTROLO MEDIANTE CARACTERESESPECIAIS NAO E SO EXCLUSI-VO DA IMPRESSAO SOBRE PA-PEL: TAMBEM PARA TRABALHAR EMECRAN PODE EMPREGAR-SE UMSISTEMA SEMELHANTE.":TX l''':T$="COM EFEITO, EM LUGAR DA FOR-MA HABITUAL, E POSSIVEL ENVIAROS ATRIBUTOS (BRIGHT,INVERSE,ETC.) MEDIANTE CARACTERES ADE-QUADOS:":TX DRR:U:U:23624H\,15::U;Z,"6";"ATRIBUTOS CODIGOS" dI=Z̰"7":"2*I+2","7";ڰ"5";" "I>5;°"I+217-(51(I>5))";"2*I+2","20";ڰ"3";I+"16":I u''ڰ"5";0;"Exemplo..."'ں;7;"PAPER 5 = CHR$ 17+CHR$ 5","AT 13,5 = CHR$ 22+CHR$ 13+CHR$ 5":110n RR:30:7:8:IN:" TAB USANDO 2 CARACTERES"''"  1 car = X-(X/256)*256 "'"  2 car = (X/256) "'' et$="...QUE REPRESENTAM RESPECTIVA-MENTE, A PARTE INTEIRA E ORESTO DA OPERACAO .":TX  |60<:'''" Portanto:"''" ";ڰ"2";" PRINT TAB 14 ":''" ...converte-se em:"''" ";ڰ"5";" PRINT CHR$ 23;CHR$ 14;CHR$ 0 " [RR:IN:'':T$="TAMBEM E POSSIVEL INDICAR OSATRIBUTOS DIRECTAMENTE PELOTECLADO.":TX ''':T$="NESTE CASO AS TECLAS DE <0>A <7> CONVERTEM-SE EM ; <8> TRANSFORMA-SE EM E <9> EM ; AS MESMAS TECLAS COM CONVERTEM-SE EM, E .":TX RR:IN:"8070":I"1000" @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:"" /I=Z:"7",U;:T$="ESCOLHE, "+N$+":":"8330" ~"11","6";"F FIM";"13","6";"I VOLTAR AO PRINCIPIO";"15","6";"C PASSO P/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" ڰ"8":U:U;:c=Z:N=U̱t$ (1:T$(N);:T$(N)=" "8385 *OPT$(N)=".".1}L,30:9 .002xn,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;: zu reaN c A TO CONTROLO MEDIANTE CARACTERESESPECIAIS NAO E SO EXCLUSI-VO DA IMPRESSAO SOBRE PA-PEL: TAMBEM PARA TRABALHAR EMECRAN PODE EMPREGAR-SE UMSISTEMA SEMELHANTE.#CHR$ CAR |"/"$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0 _"31809":z=ç:u=::"23609","20":"23658","8":"""31810":"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 ITX="8330":RR="8150":IN="8400":A$="LPRINT - LLIST - COPY":"8410" LnT$="ESTE GRUPO DE INSTRUCOESSERVE PARA ENVIAR DADOS PARA AIMPRESSORA ZX-PRINTER,OU COM-PATIVEIS.":TX ~RR:IN:U''''" ";:T$="DEIXANDO DE PARTE ,O SEUUSO E PARECIDO COM E, DE TAL MODO QUE O IN-TERCAMBIO E POSSIVEL SEM MODI-FICACOES...":TX:RR TIN _ٰ"4";"10","13";"";"11","13";"";"12","13";"";"13","13";"" =ٰ"6";"10","4";ڰ"6";ܰ"1";ٰ"1";"";"11","4";"" ,"103","83":-"47","0":"11","9";"<" 3ٰ"2";"5","12";" ";"6","12";" " +"131","96":"0","31":"7","16";"^" }"20",U;U;" PRINT - LIST ":"150":j=ṵ"5":I="11"̰"7"-U:"11",I;U;U;" ":װ".1","30"-i+j:"11",I;U;" ":I:j RJ=UZ-U:I="9"̰"12":ٰ"8";I,"3";J;U;" ":I:"200*J+1":"20",U,:J zU,U;U;" LPRINT - LLIST ":"150":j=ṵ"5":I="9"̰"6"-U:I,"16";U;U;" ":װ".1","30"-i+j:I,"16";U;" ":I:j cJ=UZ-U:I="4"̰"6":ٰ"8";I,"11";J;U;" ":I:"200*J+U":"20",U," ":J:RR:IN /T$="MAS A IMPRESSAO NAO SE EFEC-TUA IMEDIATAMENTE. OS DADOSSAO ARMAZENADOS TEMPORARIAMEN-TE NUMA AREA ESPECIAL DA ME-MORIA CHAMADA , A ESPERA QUE A LINHA DEPREPARACAO SE COMPLETE, OUTERMINE O PROGRAMA. SO ENTAOTERA LUGAR A OPERACAO DE IM-PRESSAO NO SENTIDO FISICO." U'''" ";:TX:RR:IN:T$="EMPREGAM-SE UNICAMENTE OSATRIBUTOS E .OS DEMAIS(BRIGHT, INK, ETC..)SAO IGNORADOS SEM PROVOCARERROS.":TX z'U'" ";:T$="QUANTO AO PARAMETRO DE POSI-CIONAMENTO , USA-SE SO-MENTE A PARTE QUE SE REFEREAS COLUNAS.":TX d"15",U;U+U;"13,20":"200":"94","40":"25","25":"94","65":"25","-25":U,"-10":RR IN:U''''" ";:T$="A INSTRUCAO SERVEPARA IMPRIMIR COM A ZX-PRINTER A TOTALIDADE DO CON-TEUDO DO ECRAN, INCLU-INDO CARACTERES E SIMBOLOSGRAFICOS. USA-SE SEM PARAME-TROS, E COMO AS INSTRUCOESANTERIORES IGNORA QUALQUERATRIBUTO EXISTENTE.":TX RR: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" ~"11","6";"F FIM";"13","6";"I VOLTAR 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) 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);: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: چ"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[t$eaN  ALPRINT - LLIST - COPY c fe TeQUANTO AO PARAMETRO DE POSI-CIONAMENTO , USA-SE SO-MENTE A PARTE QUE SE REFEREAS COLUNAS.|CAR B|kkkhPP̙3g??????~~????ROBERTO$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >