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{?  000000000000000000000000000000000000000000000000000000000000000000000000001111111111111022200000000000000211111111111112222000000000000002222211122222222220000000000000028288888882222222200000000000000000000000000000000000000666666666000000000066000000000006660088888888888888888880666660000000888===============8000000088888888?===============8888888888888888?<<<<<<<<<<<<<<<8888888888888888?;;;;;;;;;;;;;;;8888888888888888?;;;;;;;;;;;;;;;8888888888888888?:::::::::::::::8888888888888888?:::::::::::::::8888888888???888888888888888888:8888888888???8888????88?????::::8888888888???????889999999989:::888888888?88888888888888889999998888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888VIDEOLIST  7[    EDICOES LATINAS  f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 (7:7:7:317997| q23658j\,8:236099\,20:20,0;:"":236066\,86V:236077\,123{ R#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$="A zona de comunicacao ":k=7:0710 x;p$=" do SPECTRUM ":k=8:0710 <p$="VIDEOBASIC-A LINGUAGEM: ":k=10 :0710 ;p$="STOP - CONTINUE - NEW ":k=11 :0710 :p$="CLEAR - AND - OR - NOT ":k=12 :0710 <p$="VIDEOBREAK: ":k=15:0710 ;p$="Lar, Doce Lar ":k=16:0710 <p$="VIDEOBASIC-A PROGRAMACAO: ":k=18:0710 ;p$="Uso avancado dos ":k=19:0710 :p$="Operadores Logicos ":k=20: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$="Crucigrama ":k=14:0710 ;p$="VIDEONEXT: ":k=17:0710 :p$="No proximo numero... ":k=18:0710  502 #0490:1::0630v "PEDIDO 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 ,8;"ESCREVE O TEU NOME";10 ,11 ;"NO TECLADO";11 ,9 ;"E PRIME ":n$ Tt9 ,7;" ";10 ,9 ;" ";11 ,8;" " ^K10 ,5;" Esta bem escrito ? ";11 ,7;n$;" (s/n)" h=""360h r="s"Ŧ="S"400 |i="n"Ŧ="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 y$=" PRIME UMA 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 DE 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 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: S PRIME UMA TECLA PARA CONTINUAR Y UMA TECLA PARA CONTINUAR PRIME Ua&d,kPOperadores Logicos pN _CAR V| &$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >X=52478N3:194,X:3,0:X  13:"":44,,0:0,79O _X=2112 -1:1;0;7;1;;X,1;" ":X <X=2112 -1:X,20;"":X !12 ,22;1;"U" 16,21;"Z80"  0 X=07 /60<,X*4+16:99c,0 X  CX=12 21:X,1;3;" ":X 8,24:568,0:0,480:-568,0:0,-480:2,2:44,,0:0,44,:-44,,0:0,-44, =X=2970F3:579,X:3,0:X &65A,61=:100d,0 &=X=13 18:1;X,1;"  ":X N b<X=02:502+X,4:0,68D:X lfY=02:35#,65A+Y:30,15:35#,60<+Y:30,15:Y =X=02:200+X,4:0,68D:X hY=02:185,65A+Y:30,15:185,60<+Y:30,15:Y /35#,67C:8;0,-502 165A,74J:8;-30,-60< A65A,74J:150,0,1:6,-60< B35#,67C:150,0,1:35#,-557   10:7:1:3::8: "9200":"9300" "20" "190" "9E3"  "9200" "20" "300" w$="SEMPRE QUE E NECESSARIO EN-VIAR INFORMACOES DE UM COMPU-TADOR A OUTRO, OU A UM PERIFE-RICO, EFECTUAMOS UMA TRANS-MISSAO DE DADOS"  W$=W$+"." $ "9500" .&34",36$:186,0 8/34",36$:1;186,0 BqW$="O TECLADO DO SPECTRUM, POREXEMPLO, TRANSMITE A C.P.U. OSCODIGOS DOS CARACTERES TECLA-DOS.":9500% VEW$="O SPECTRUM TRANSMITE TAMBEM OSDADOS: AO TELEVISOR.":9500% `W$="A DIFERENCA PRINCIPAL ENTREESTAS DUAS TRANSMISSOES,RESIDENO NUMERO DE DADOS ENVIADOSSIMULTANEAMENTE POR UMA LINHA.":9500% j "9200" t"400" ~W$="PELO TECLADO, QUANDO PREMIDOENVIA OS CODIGOS A C.P.U., FA-LO ATRAVES DO BUS(CIRCUITO) DEDADOS DE 8 BITS, (O BYTE COM-PLETO QUE IDENTIFICA UM CARAC-TER)."  "9500" V1,20:18,3;4;0;1;"":1,40( X=718:.04|# =,X:16,X;"";17,X;"";18,X;"";19,X;"":.04|# =,x+24:X "9E3" sw$="ESTE TIPO DE TRANSMISSAO CHA-MA-SE 'PARALELA', QUE CONSISTEEM ENVIAR OS DADOS EM PARALELOAO RESPECTIVO BUS."  "9500" "5E2" ΩW$="SE A LINHA DE TRANMISSAO ECONSTITUIDA POR UM UNICO CABO,CHAMA-SE EM 'SERIE', VISTOQUE CADA BIT E ENVIADO NA CON-TINUACAO DO ANTERIOR,EM SERIE.":9500% :N=13 S$="" SG=18:S$=S$+((*2)):G+12 ,25+N*2;S$(G):G G=18  O=S$(G) AG+12 ,25+N*2;1;6*O;9 ;" " O$=O X=189 -1 .003xD,X+G 15,X;O$;" " .003xD,X+G*3  X cO:20+G*2,502-N*3:20+G*2+1,502-N*3:0 15,9 ;" " G (N 2|W$="ESTE E O SISTEMA DE TRANS-MISSAO QUE E UTILIZADO PARAENVIAR INFORMACOES AO TELEVI-SOR OU MONITOR.":9500% x0:"9200":"37" "600" pW$="A TRANSMISSAO EM SERIE ADAPTA--SE PERFEITAMENTE A COMUNICA-CAO ATRAVES DA LINHA TELEFONI-CA.":9500% bW$="PRIME: R PARA REPETIR C PARA CONTINUAR " 9500%:9 24,11 ;4;1;1;" " 26,11 ;2;1;1;" " ="R"1 ="C"2000  "1460" >7::X=07:X+2,0;X;X;L$:X R X=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;l$:x:x=11 21:x,0;3;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:32135}:"" %'l$=" " %.236077\,124|:236066\,136 %M23676|\,127:23675{\,88X:23658j\,8:0: %5W$=" PARA O GRAVADOR ":9500%:1 L op \[N%ulP A TRANSMISSAO DE DADOS R A TRANSMISSAO DE DADOS S10011000O0W[PRIME: R PARA REPETIR C PARA CONTINUAR Q UMA TECLA PARA CONTINUAR PRIME xCAR 1 x}ꀇG!z$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0:32135}:"" %7:9 : %'l$=" " %.236077\,124|:236066\,136 % 23658j\,8:0: %6W$=" PARA O GRAVADOR ":9500%:1 op  N%ulL  WPRIME: R REPETIR C CONTINUAR Q MA TECLA PARA CONTINUAR PRIME UCAR 2 x}a-z$$$~$$~$~~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","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 Lrc=u:PN=U:A$=" STOP":"8410":b=zu:vc=b:"8300":"8150":"8400":b "8070":e"1000" @80: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, `:":8330 E=Z:11 ,6;"F FIM";13 ,6;"I VOLTA AO PRINCIPIO";15,6;"C PASSAR A PARTE";16,6;" SEGUINTE"  ="F" ="I"1000 ="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 lbA=Z:J=rc60<:F$(J,30)"%"F$(J,30)"#"A=A+U+(2F$(J,30)="&"):J mVC"10-a/2",U; nRC=5798075 o T$=F$(rc) pRC=6RC=418,U; qRC=12RC=26RC=46,U; 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": T$(N)="`"T$=N$:"8330" 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: چ"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 <ESTA INSTRUCAO UTILIZA-SEPARA PARAR UM PROGRAMA. NAOOBSTANTE, E COMPLETAMENTE DI-FERENTE DE .% %A DIFERENCA CONSISTE NOSEGUINTE: INTERROMPETEMPORARIAMENTE O PROGRAMA; INTERROMPE-O, DEVOL-VENDO O CONTROLO AO SISTEMAOPERATIVO.% ESTA CARACTERISTICA E EXTRE-MAMENTE INTERESSANTE, PARA ACOMPROVACAO E CORRECCAO DEPROGRAMAS COMPLEXOS. GRACAS AO, TEMOS A POSSIBILIDA-DE DE INTERROMPER O PROGRAMANO SEU PONTO MAIS CRITICO,PARAASSIM PODER OBTER PELO MEIO DE (EM MODO DIRECTO), OSVALORES DAS VARIAVEIS DE-SEJADAS, ALTERA-LAS SE FORNECESSARIO, E PROSSEGUIR DESDEESSE PONTO ( OU DESDE OUTROQUALQUER) A EXECUCAO.% %TAMBEM E POSSIVEL UTILIZAR COMO COMANDO DIRECTO,NA RESPOSTA A UM . MASHA QUE TER EM ATENCAO OCASO DE ENTRADAS DE CADEIA, ENECESSARIO ELIMINAR AO MENOSUMA DAS ASPAS QUE ASCARACTERIZA, PARA QUE SEJA CONSIDERADO COMO UM CO-MANDO, E NAO COMO UM CARACTER.TENHAMOS EM CONTA, QUE SE PA-RA O TEMOS UTILIZADOO PARAMETRO , A INTER-RUPCAO SO E OBTIDA ME-DIANTE .% %MESMO ASSIM, E ACONSELHAVELTERMINAR A EXECUCAO DOS NOSSOSPROGRAMAS COM UM .% %NAO OBSTANTE, AS APLICACOESDESTINADAS A OUTROS USUARIOSDEVEM TER UMA GRANDE FACILIDA-DE DE USO, SEM PRECISAR DENENHUM CONHECIMENTO DO SISTE-MA OPERATIVO DO .PORTANTO, NESTES CASOS, EMAIS OPORTUNO CONCLUIR OS PRO-GRAMAS COM UM RETORNO AO INI-CIO, OU AO MENU DE OPCOES , EMVEZ DE ACABAR O PROGRAMA ME-DIANTE UM , DE FORMA QUEPASSE O CONTROLO AO SISTEMAOPERATIVO.# # [t$eaN A STOP<l c =<TOPERATIVO.% CAR STOP |~( "$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >.% %A DIFERENCA CONSISTE NOSEGUINTE: INTERROMPETEMPORARIAMENTE O PROGRAMA; INTERROMPE-O, DEVOL-VENDO O CONTROLO AO SISTEMAOPERATIVO.% ESTA CARACTERISTICA E EXTRE-MAMENTE INTERESSANTE, PARA ACOMPROVACAO E CORRECCAO DEPROGRAMAS COMPLEXOS. GRACAS AO, TEMOS A POSSIBILIDA-DE DE INTERROMPER O PROGRAMANO SEU PONTO MAIS CRITICO,PARAASSIM PODER OBTER PELO MEIO DE (EM MODO DIRECTO), OSVALORES DAS VARIAVEIS DE-SEJADAS, ALTERA-LAS SE FORNECESSARIO, E PROSSEGUIR DESDEESSE PONTO ( OU DESDE OUTROQUALQUER) A EXECUCAO.% %TAMBEM E POSSIVEL UTILIZAR COMO COMANDO DIRECTO,NA RESPOSTA A UM . MASHA QUE TER EM ATENCAO OCASO DE ENTRADAS DE CADEIA, ENECESSARIO ELIMINAR AO MENOSUMA DAS ASPAS QUE ASCARACTERIZA, PARA QUE SEJA CONSIDERADO COMO UM CO-MANDO, E NAO COMO UM CARACTER.TENHAMOS EM CONTA, QUE SE PA-RA O TEMOS UTILIZADOO PARAMETRO , A INTER-RUPCAO SO E OBTIDA ME-DIANTE .% %MESMO ASSIM, E ACONSELHAVELTERMINAR A EXECUCAO DOS NOSSOSPROGRAMAS COM UM .% %NAO OBSTANTE, AS APLICACOESDESTINADAS A OUTROS USUARIOSDEVEM TER UMA GRANDE FACILIDA-DE DE USO, SEM PRECISAR DENENHUM CONHECIMENTO DO SISTE-MA OPERATIVO DO .PORTANTO, NESTES CASOS, EMAIS OPORTUNO CONCLUIR OS PRO-GRAMAS COM UM RETORNO AO INI-CIO, OU AO MENU DE OPCOES , EMVEZ DE ACABAR O PROGRAMA ME-DIANTE UM , DE FORMA QUEPASSE O CONTROLO AO SISTEMAOPERATIVO.# # CONTINUE ZT Zf(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 _"31969":Z="0":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","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" 8PN=U:VC=Z:RC=U:a$=" CONTINUE":"8410":"8300":RR &"8070":E"500" "2","2 RESERVADO","2","2" R"510 LET A=5","520 PRINT A","530 LET B=A*8","540 PRINT B","550 LET X$=""BASIC""" "4A5","4B40","4X$BASIC" "6","6 LIVRE","6" "2 RESERVADO" A$=" NEW ":"8410" L~T$="O COMANDO SERVE PARAAPAGAR A ZONA DE MEMORIA DOTEU SPECTRUM QUE CONTEM O PRO-GRAMA E AS VARIAVEIS.":TX:RR ~VIN:'''':T$="...AGORA INTRODUZ E VE O QUE SUCEDE !!!":TX:#Z;U;"C" "A""1160" #Z;U,Z;"NEW C" 13 1163 _"23607","60"::Z::Z:;:7:"70":ڰ"7"::#Z;" 1982 Sinclair Research Ltd":"300" 7"23607","124":IN:u+u,"13";u;" - MEMORIA - " xL:T$=" ":I="4"̰"19":T$():I,"13";ڰT$(U);T$(U+U):I @2"10",U+U;U;"PROGRAMA ";"14",U+U;"VARIAVEL " F"200":ڰ"8":"18",u;" @"'" ~|"'" \]";"18","5";u;"NEW":u,u `EZ:T$()="":I="18"̰"8"-U:I,"13";6;T$(U+U):װ".3",I:I :"50":"13","18";:I=Ṵ"6":"LIVRE "(I);:װ".2",I:I (5"10","50":"83","20":"10","70":"83","-20" 6"10","82":"83","20":"10","102":"83","-20" rr:in:t$="COMO JA TIVESTE OPORTUNIDADEDE VER, O EFEITO DE E...DESTRUIDOR!":20:TX:::T$="...TEM O CUIDADO EM NAO O IN-TRODUZIRES POR ENGANO !!!":TX 20:::T$="ESTE COMANDO USA-SE QUASE EX-CLUSIVAMENTE PARA LIMPAR AMEMORIA COM VISTA AO CARREGA-MENTO DE OUTRO PROGRAMA.":TX RR:"8070":E"1000" A$="CLEAR":"8410" T$=" E MENOS DRASTICO QUE. UNICAMENTE APAGA AS VARIAVEISE O ECRAN, SEM AFECTAR O PRO-GRAMA.":TX:RR UIN:''':T$="TENTA INTRODUZIR E VE-RAS O QUE ACONTECE!...":TX:#Z;U;"C" "X""4030" 0#Z;U,Z;"CLEAR C":13 4031 TF:#Z;"0 OK, 0:1":200:Z:IN:u+u,"13";u;" - MEMORIA - " YL:T$=" ":I="4"̰"19":T$():I,"13";ڰT$(U);T$(U+U):I ^2"10",U+U;U;"PROGRAMA ";"14",U+U;"VARIAVEL " hK"200":ڰ"8":U;"18",u;" @"'" ~|"'" \]";"18","5";u;"CLEAR":u,u G"":T$()="":I="18"̰"13"-U:I,"13";6;T$(U+U):װ".3",I:I :"50":"15","18";:I=Ṵ"6":"LIVRE "(I);:װ".2",I:I ="10","50":"83","20":"10","70":"83","-20":RR:IN 0T$=" PODE UTILIZAR-SE COMUM ARGUMENTO NUMERICO; NESTECASO, ALEM DOS EFEITOSANTERIORMENTE MENCIONADOS, IN-DICA O ULTIMO BYTE DE MEMORIADESTINADO AO .":TX :T$="ATE AO MOMENTO TEMOS INDICADOO EFEITO DO CARACTER CLEAR;UMADAS SUAS FUNCOES QUE E COSTUMEUTILIZAR, SEVE PARA PRESERVARPARTE DA MEMORIA COM DESTINOAO CODIGO MAQUINA, CARACTERESALTERNATIVOS OU DADOS A CON-SERVAR.":TX:RR "8070":E"4000" @80: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:"" E=Z 0IN:"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"E=U:rc=PN: ="C"PN=rc:  "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" 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);: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: zuy&O COMANDO UTILIZA--SE UNICAMENTE NO MODO DI-RECTO, E SERVE PARA CONTINUARA EXECUCAO DE UM PROGRAMAPREVIAMENTE INTERROMPIDO.% %AS CAUSAS DA DITA INTERRUP-CAO PODEM SER MUITAS:& &*NAS SUAS DIVERSSAS FOR-MAS; * A PULSSACAO DE (CAPSSHIFT + SPACE); * UM ERRO NO PROGRAMA, OUUM FUNCIONAMENTO ERRADO DEALGUM PERIFERICO.& &EM TODOS ESTES CASOS, A PARA-GEM MANIFESTA-SE COM UMA MEN-SAGEM NA PARTE DE BAIXO DOECRAN, E A DEVOLUCAO DO CON-TROLO AO SISTEMA OPERATIVO.%COM O COMANDO EPOSSIVEL CONTINUAR O PROGRAMA,A PARTIR DA INSTRUCAO SEGUIN-TE, SITUADA IMEDIATAMENTEAPOS O PONTO DE INTERRUP-CAO. OBVIAMENTE, A CONTINUACAODO PROGRAMA, QUANDO FOR DETI-DO POR UM ERRO, SO SERAUTIL SE ESTE FOR SUBSTITUIDOPOR UMA INSTRUCAO CORRECTA.% %RECORDA AINDA QUE CADA VEZQUE SE EFECTUA UMA PARAGEMO PONTO DE PARTIDA DA RE--EXECUCAO MUDA.# # [t$eaN  A CONTINUE'l c^ TATE AO MOMENTO TEMOS INDICADOO EFEITO DO CARACTER CLEAR;UMADAS SUAS FUNCOES QUE E COSTUMEUTILIZAR, SEVE PARA PRESERVARPARTE DA MEMORIA COM DESTINOAO CODIGO MAQUINA, CARACTERESALTERNATIVOS OU DADOS A CON-SERVAR.CAR CONT |D "$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" > UTILIZA--SE UNICAMENTE NO MODO DI-RECTO, E SERVE PARA CONTINUARA EXECUCAO DE UM PROGRAMAPREVIAMENTE INTERROMPIDO.% %AS CAUSAS DA DITA INTERRUP-CAO PODEM SER MUITAS:& &*NAS SUAS DIVERSSAS FOR-MAS; * A PULSSACAO DE (CAPSSHIFT + SPACE); * UM ERRO NO PROGRAMA, OUUM FUNCIONAMENTO ERRADO DEALGUM PERIFERICO.& &EM TODOS ESTES CASOS, A PARA-GEM MANIFESTA-SE COM UMA MEN-SAGEM NA PARTE DE BAIXO DOECRAN, E A DEVOLUCAO DO CON-TROLO AO SISTEMA OPERATIVO.%COM O COMANDO EPOSSIVEL CONTINUAR O PROGRAMA,A PARTIR DA INSTRUCAO SEGUIN-TE, SITUADA IMEDIATAMENTEAPOS O PONTO DE INTERRUP-CAO. OBVIAMENTE, A CONTINUACAODO PROGRAMA, QUANDO FOR DETI-DO POR UM ERRO, SO SERAUTIL SE ESTE FOR SUBSTITUIDOPOR UMA INSTRUCAO CORRECTA.% %RECORDA AINDA QUE CADA VEZQUE SE EFECTUA UMA PARAGEMO PONTO DE PARTIDA DA RE--EXECUCAO MUDA.# # AND OR ZZ{ 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 d%ٰ"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 $TX="8330":RR="8150":IN="8400" t$=" AND - OR - NOT":"8410" t$="OS OPERADORES LOGICOS: , E , SERVEM PARA RE-LACIONAR DUAS CONDICOES, A FIMDE SE OBTER UM RESULTADOLOGICO FACILMENTE UTILIZAVEL.":TX:RR:IN (T$="SE, POR EXEMPLO, QUISERMOSEFECTUAR UM PRINT, SEMPRE EQUANDO A VARIAVEL VALHA<3> E A VARIAVEL VALHA<5>, PODEREMOS ESCREVER:":TX 7''U'" IF A=3 AND B=5 THEN PRINT..."''':502 T^T$="...SABENDO QUE COM A INSTRUCAO SE ASSEGURA A TRADUCAODA INSTRUCAO IMEDIATA. ":TX sRR:IN:T$="DA MESMA MANEIRA, SE QUISERMOSEXECUTAR PRINT QUANDO VALHA<3> OU VALHA <5>, ESCREVE-REMOS:":TX 6''U'" IF A=3 OR B=5 THEN PRINT..."''':502 T$="DAQUI SE DEDUZ FACILMENTE, QUE CUMPRE-SE QUANDO SE CON-CRETIZAM AS DUAS CONDICOESRELACIONADAS,E PARA BASTAQUE SE CONCRETIZE UMA DELAS.":TX tmER="140":RR:IN:"2",U;" LET A=3 : LET B=5";"8",U;"IF A=3 AND B=5 THEN PRINT ""OK""":"8480" ~["100":"7","3";5;"VERDADE ";:װ".1",U:"50":"11";ڰ"5";"VERDADE ":װ".1",U L"50":װ".1","10":"6","3";U;"V E R D A D E!! ":"4","26";U;"OK " )I=Ṵ"30":"11",I;"-":װ".1",I:I fER="60":"13",U;" LET A=3 : LET B=4";"18",U;"IF A=3 AND B=5 THEN PRINT ""OK""":"8480" \"100":"17","3";5;"VERDADE ";:װ".1",U:"100":"11";ڰ"2";" FALSO":U,"-15" 5"50":װ".1","10":"16","3";U;" F A L S O !! "  SE A=5 E <0> SEA<>5.":TX 8RR:IN:'''':T$="PORTANTO,E POSSIVEL SUBSTITUIRA CONDICAO USADA COM UM POR UMA VARIAVEL OU EXPRESSAO.A INSTRUCAO EXECUTAR-SE-AUNICAMENTE SE O RESULTADO FI-NAL FOR <1>, OU MAIS CONCRETA-MENTE, DIFERENTE DE <0>.":TX RR:IN:T$="OUTRA CARACTERISTICA DOS OPE-RADORES LOGICOS E A POSSIBILI-DADE DE RELACIONAR DIRECTA-MENTE EXPRESSOES NUMERICAS OUDE CADEIA.":TX 2''U'" LET B = 10 AND A=5"''':502:T$="A EXPRESSAO <10 AND A=5> VALE<10> SE E<0>SE .":TX FRR::U;"A operacao NUM AND cond",'Z'" devolve: "''" NUM se cond e VERDADE"'" <0> se cond e FALSA " P''U;"A operacao CAD. AND cond",'Z'" devolve: "''" CADEIA se cond e VERDADE ""  NULA se cond e FALSA " Z''U;"A operacao NUM OR  cond",'Z'" devolve: "''" <1> se cond e VERDADE"'"  NUM se cond e FALSA ":200:RR r:''"Exemplo:"''''"10 LET TOT=-5";"8",z;"20 PRINT (""DEVER""TOT<0) +(""HAVER ""TOT0);TOT":"500" '''"ESTA EXPRESSAO";"8","11";U;U;" ":"500":"13","17";"VALE DEVER...":"200":"8",U;U,,"15",Z;"...E ESTA E NULA.";"9",5;U;U;" " 3"250":"19",Z;"Resultado: DEVER-5"'':U,U ;100d:T$=8+"... O CONTRARIO E TOT0.":TX:RR Z:"8070":"1000" @/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:"" 0IN:"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" ="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" U;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);: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-t$/2";t$:YL="11":XL="8*t$+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:"220"-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: zudeaN  c  <&  !T A PARA CONTINUAR PRIME UMA TECLCAR AND |Z"$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >