ZXTape! 2-VIDEO BASIC (EDICOES LATINAS) - TAPE 3 SIDE AEDICOES LATINAS, LDA / JACKSON PORTUGUESSPECTRUM BASIC COURSENONE ORIGINAL TAPE20 TAPES COURSEVIDEOBASICx f *  SOFTIDEA (Como) * *Via Indipendenza 88* * Tel. 031-240.959 * \ *  EDICOES LATINAS * f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 *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???????889999999889:::888888888?88888888888888889999998888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888VEDEOLIST )q *  SOFTIDEA (Como) * *  EDICOES LATINAS * f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 |23658j\,8:236099\,20:20,0;:""318008|:236066\,86V:236077\,123{ P#0;0,0; " PARA O GRAVADOR " -n=1502:.01z# =,*60<:n ( 1000 * 8990# - SUMARIO 21::90102# 7.6,21 8;p$="VIDEOHARDWARE: ":K=8:9020<# 9:p$="o microprocessador ":k=9 :9020<# ::p$="do SPECTRUM ":k=10 :9020<# ;<p$="VIDEOBASIC-A LINGUAGEM: ":k=12 :9020<# <<p$=" REM - CLS - GOTO - IF THEN ":k=13 :9020<# =<p$="VIDEOBREAK: ":k=15:9020<# >;p$="o relogio do SPECTRUM ":k=16:9020<# ?<p$="VIDEOBASIC-A PROGRAMACAO: ":k=18:9020<# @;p$="o SPECTRUM decide ":k=19:9020<# A8200:1000::90102#:.6,18 F:p$="VIDEOTEST: ":k=8:9020<# G9p$="jogo de adivinhas sobre ":k=9 :9020<# H9p$="os temas da licao ":k=10 :9020<# K;p$="VIDEO-JOGO: ":k=13 :9020<# L:p$="Tragaperras ":k=14:9020<# P;p$="VIDEONEXT: ":k=17:9020<# Q:p$="no proximo numero... ":k=18:9020<# _ 150 d#1000:1::8994"# ePEDIDO DO NOME f g12:aa,bb,cc,dd,ee:aa=-2105i h"aa,bb:cc-aa,dd-bb,ee:103g i60<,65A:-30,-19:8,18:1:9 ,7;"ESCREVE O TEU NOME";10 ,11 ;"NO TECLADO";11 ,8;"E PRIME ":n$ kq9 ,7;" ";10 ,9 ;" ";11 ,8;" " nI10 ,7;" Esta bem escrito ?";11 ,9 ;n$;" (s/n)" x=""120x ="s"Ŧ="S"200 j="n"Ŧ="N"10 ,7;" ";11 ,7;" ":105i 120x Nn=1̱n$:n+23296[,n$(n):n:n+23296[,"":23296[,"" 2000 ,38&,64@,38&,79O,-2,38&,79O,38&,100d,-1,38&,100d,44,,112p,-2,44,,112p,72H,114r,-1 672H,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 J220,90Z,215,70F,-1,215,70F,190,63?,-2,190,63?,160,65A,-2 T160,65A,130,60<,-2,130,60<,115s,63?,-2,115s,63?,90Z,59;,-2,90Z,59;,60<,65A,-2 ^*-2,0,0,0,0 ROTULO ROTATIVO y$=" PRIME UMA TECLA PARA CONTINUAR ":s$=y$:i=131:#0;6;2;1;1,0;y$:.001wn,30:"""": Qy$=s$(i)+s$(2i):.0004uQX,45-:.0006vIQ,557:"""": i:1000  TEXTO 4:8994"#: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 `l,0;"";:q=1̱a$:a$(q);:a$(q)" ".0005vn,40(:m=1̥*5:m 4a$(q)=".".2~L,0:23692\,255 q: #LEITURA DOS UDG #4:8991#:n=063?:a:"a"+n,a:n: #00,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 #!HOMBRECILLO #"'n=302-1:10 #$t(n/2)=(n/2)17,n;" ";18,n;" ";19,n;" ":.01z# =,30:n:8998&# #%Z17,n;" ";18,n;" ";19,n;" ":.01z# =,40(:n:8998&# #& #'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 : #27aa=2:bb=11 :p$="VIDEOLIST":9000(#: #;ROTULOS ENTRANTES #akPno proximo numero... Y PRIME UMA TECLA PARA CONTINUAR S PRIME UMA TECLA PARA CONTINUAR NmadjijdCAR 8|̀g- ROBERTO$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0:"31799":"23675","88":"23676","127":"23658","8":"23609","20":"":"23606","86":"23607","123":ڰ"6":"6":ç:ܰ"1": "10",ç;۰"1";" PARA O GRAVADOR ":c="1"̰"3":n=ç̰"7":n:"":װ".1",n:n:c:"200":"10",ç;" VIDEOBASIC apresenta." Kn=ç60<:.01z# =,n:.01z# =,60<-n:.01z# =,*60<:n N"10",ç;" VIDEOHARDWARE curso de hardware " 5n=ç5.1}L:.01z# =,60<*((n)):n  "9010" Y:''" BEM "+n$+",":'"SEGUE COM ATENCAO ESTAS NOTASSOBRE A C.P.U DE UM COMPUTADOR." "290" ç:ڰ"5":ٰ"0": Gn="1"̰"12":n,"1";ڰ"6";ܰ"1";" ":n (Hn="14"̰"20":n,"1";ڰ"7";ܰ"1";" ":n 27"4","4":"247",ç:ç,"63":-"247",ç:ç,-"63" <:"4","68":"247",ç:ç,"105":-"247",ç:ç,-"111" Fkܰ"1":ڰ"6":ç:"4","11";"":n="5"̰"7":n,"11";"":n:"8","11";"" G"6","14";"Z80A" Kx="15":a$="A C.P.U. DO SPECTRUM E A Z80A.E UM CHIP DE 40 PATILHAS QUECONTROLA E DIRIGE TODAS ASOPERACOES.":"220":"290" PRn="3"̰"11":f="2"̰"29"Ͱ"2":װ".002",f+"30":n="6"(f="14"f="16")f:n Qn,f;"":f:n:"1000" SX="14":A$="GRACAS A SOFISTICADA TECNO-LOGIA DE INTEGRACAO, ESTE CHIPENCERRA NO SEU INTERIOR MI-LHOES DE COMPONENTES. OS TRESELEMENTOS FUNDAMENTAIS DO Z80ASAO:":220:290" U}ç:ٰ"4":"5","20";" ";"6","21";" ";"7","22";"";"8","23";"";7;"10","22";"A L U" Wٰ"9" Z{x=16:a$="A UNIDADE ARITMETICA-LOGICA(A.L.U.), QUE SE OCUPA DE REA-LIZAR OPERACOES MATEMATICAS.":"220":"290" _Oz="11":"8",z;"A UNIDADE";"9",z;" de ";"10",z;" CONTROLO" dx=15:a$="A UNIDADE DE CONTROLO, QUE SEENCARREGA DE CONTROLAR E SIN-CRONIZAR A CORRECTA EXECUCAODAS INSTRUCOES.":"220":"290" iz="3":ܰ"1":"4",z;"B C B'C'";"5",z;"D E D'E'";"6",z;"H L H'L'";"7",z+"2";" IX ";"8",z+"2";" IY ";"9",z+"2";" SP ";"10",z+"2";" PC " jaç:"6","12";" A   F ";"7","12";" A'  F'":"96","112":"55",ç:ٰ"9" nx=15:a$="E OS REGISTOS, QUE SAO MEMO-RIAS RESERVADAS A C.P.U., NOSQUAIS SE GUARDAM TEMPORARIA-MENTE OS RESULTADOS DAS OPERA-COES EM CURSO.":"220":"290" s:ܰ"1":ڰ"6":ç:"2","2";"";"1","4";"DADOS" xx=15:a$="AS OITO PATILHAS DO Z80A QUETEM A MISSAO DE ENVIAR ERECEBER DADOS, SAO DENOMINADOSCIRCUITOS DE DADOS. ":"220":"290" }8"2","14";"";"1","17";"DIRECCOES" x="15":a$="COM OUTRAS 16 PATILHAS, O Z80ALOCALIZA A CELULA OU DISPOSI-TIVO, COM QUE TROCA INFORMA-COES ATRAVES DO CIRCUITO DEDADOS.":"220":"290" '"12","2";" CONTROLES" x=15:a$="O CIRCUITO DE CONTROLO INFORMAA C.P.U. SOBRE O TIPO DE INS-TRUCOES QUE SE EXECUTAM EM CA-DA MOMENTO.":"220":"290":"190" : 6x="16":a$="queres rever esta licao? (S/N)":"220" +װ".001",*"30"+"30":="s"Ŧ="S""25" ,װ".001",*"30"+"30":="n"Ŧ="N""200" "193" ٰ"1":ڰ"7"::"204" _"10","2";ٰ"7";ڰ"2";ܰ"1";" POE EM MARCHA O GRAVADOR ":i="1"̰"16":װ".04","30"-i:i !"7":װ"1",ç:"150":ٰ"7":"" n="30"̰"2"-"1":"10" [(n/"2")=(n/"2")"17",n;" ";"18",n;" ";"19",n;" ":װ".01","30":n:"207" ?"17",n;" ";"18",n;" ";"19",n;" ":װ".01","40":n   V0:y="1":n="14"̰"20":n,"1";ڰ"7";ܰ"1";" " n q=1̱a$ x,y;7;1;1;a$(q);:y=y+1:y=31y=1:x=x+1:x=21400:n=1520:n,1;7;1;" ":n:x="15":y="1" a$(q)" "װ".001","40" a$(q)="."װ".2",ç q  "50": "5"150":y$="PRIME UMA TECLA PARA CONTINUAR ":s$=y$ $Mi="1"̰"31":#ç;ڰ"6";ٰ"2";ܰ"1";"1",ç;y$::װ".001","30":"""": %@y$=s$(i)+s$("1"i):װ".0004","45":װ".01","40":"""": & i:"291" Zh="7"̰"5"-"1":h,"14";" ";h-"1","14";"Z80A":.1}L,h*5:h: #2."23296"="127"n="23297":n$="":"9012" #3 "9014" #4n="127""9020" #5n$=n$+¾n:n=n+"1":"9012" #6I:"10","5";"ESCREVE O TEU NOME NO TECLADO E PRIME " #7Dn$:"50"::"8","4";n$;"10","3";"ESTA BEM ESCRITO ? (S/N)" #8="n"Ŧ="N""9014" #9="s"Ŧ="S""9019" #: "9016" #;Fn="1"̱n$:"23296"+n,n$(n):n:"23296"+n,"127":"23296","127" #< '!  EDICOES LATINAS  'e----------------------- -  SOFTIDEA COMO - ----------------------- $xyjiPz N GGGGGGGGGSPRIME UMA TECLA PARA CONTINUAR Y RIME UMA TECLA PARA CONTINUAR PRAiA UNIDADE DE CONTROLO, QUE SEENCARREGA DE CONTROLAR E SIN-CRONIZAR A CORRECTA EXECUCAODAS INSTRUCOES.CAR 8|,^+ROBERTO$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >@@| ??ffffBIN / DEC u (23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:"31799":"23675","88":"23676","127":"23658","8":"23609","20":"":"23606","86":"23607","123":ڰ"6":"6":ç:ܰ"1": c"10",ç;۰"1";" PARA O GRAVADOR ":c="1"̰"3":n=ç̰"7":n:"":װ".1",n:n:c:  "9010" o$="" Ia1=ç:b$="tu o":w(8):q=18:w(q)="2"^(q-"1"):q cont=ç :''"BEM "+n$+",":'"ESTE PROGRAMA PERMITE-TE CAL-CULAR UM NUMERO BINARIO CONHE-CENDO O SEU CORRESPONDENTE DECI-MAL E VICE-VERSA.":290" P$="B":29 :''" BEM "+n$+",":'"O PROGRAMA QUE VISTE, PERMITE-TE CALCULAR UM NUMERO BINARIOCONHECENDO O SEU CORRESPONDENTEDECIMAL E VICE-VERSA." F''" PARA A TRANSFORMACAO: "''" BINARIO-DECIMAL prime B" r'" DECIMAL-BINARIO prime D"''" FIM prime F"''" faz a tua escolha :";1;"";0 #="B"Ŧ="b"P$="B":"27":"29" #="D"Ŧ="d"P$="D":"27":"29" ="F"Ŧ="F""200" װ".001",*"30"+"30":"23" "18","19";P$ F=1500:F: ç:ڰ"5":ٰ"0": Gn="1"̰"12":n,"1";ڰ"6";ܰ"1";" ":n %a1=ç:d="1":z$="10110011":j$="" (Hn="14"̰"20":n,"1";ڰ"7";ܰ"1";" ":n 27"4","4":"247",ç:ç,"63":-"247",ç:ç,-"63" <:"4","68":"247",ç:ç,"105":-"247",ç:ç,-"111" =-1:ܰ"1":ڰ"6":p$="d"p$="D""5000" AJt=ç:contçz$="":"8200":l=z$:z$="00000000"+z$:z$=z$((l+"1")) BCONT70F Cv=ç:x="15":a$="ENQUANTO O SISTEMA DECIMALUSA DEZ DIGITOS (DE 0 A 9), OBINARIO UNICAMENTE UTILIZADOIS: 0 E 1.":"220":"290" F/"191","162":-"74",ç:ç,-"69":"74",ç KEf="8"̰"1"-"1":f+"1","16";"=2";("162"-f);"=";w("9"-f):f P)f="1"̰"8":z$(ff)="0"w$="":"84" Rw$="" T'f+"1","2";z$(ff);"__";w$;"___":f UV=0:CONT90Z VX=14:A$="O SISTEMA BINARIO, E IDENTICOAO DECIMAL, E POSICIONAL, EDECIDE O VALOR DE CADA CIFRA(0 ou 1), DEPENDENDO DA POSI-CAO OCUPADA PELA MESMA A PAR-TIR DA DIREITA (OBSERVA AFIGURA).":220:290": Z2n="1"̰"8":z$(nn)="1"q=n+"1":r=q:"1000" _n a-f="1"̰"8":z$(ff)="0"f+"1","11";"0" df n,n="2"̰"8":n,"13";"+":n:n,"13";"=" s"72","92":"24",ç x5v$=v:h=v$:v$=" "+v$:v$=v$(h):"11","9";v$ }CONT190 X="15":A$="CADA NUMERO VALE O PRODUCTO DESI MESMO, PELA POTENCIA DEDOIS QUE CORRESPONDE A SUA PO-SICAO (CONTANDO-A SEMPRE APARTIR DA DIREITA: 2^0, 2^1,etc...).":"220":"290":"190"  װ".001",*"30"+"30":"8000" "193" ٰ"1":ڰ"7"::"204" _"10","2";ٰ"7";ڰ"2";ܰ"1";" POE EM MARCHA O GRAVADOR ":i="1"̰"16":װ".04","30"-i:i !"7":װ"1",ç:"150":ٰ"7":"" n="30"̰"2"-"1":"10" [(n/"2")=(n/"2")"17",n;" ";"18",n;" ";"19",n;" ":װ".01","30":n:"207" ?"17",n;" ";"18",n;" ";"19",n;" ":װ".01","40":n  V0:y="1":n="14"̰"20":n,"1";ڰ"7";ܰ"1";" " n PN="15"̰"20":N,"1";ڰ"7";ܰ"1";" ":N:Y="1" q="1"̱a$ 2 Zx,y;7;1;1;a$(q);:y=y+1:y=31y=1:x=x+1: a$(q)" ".001wn,40( a$(q)=".".2~L,0 q  "50": "5"150":y$="PRIME UMA TECLA PARA CONTINUAR ":s$=y$ $Mi="1"̰"31":#ç;ڰ"6";ٰ"2";ܰ"1";"1",ç;y$::װ".001","30":"""": %@y$=s$(i)+s$("1"i):װ".0004","45":װ".01","40":"""": & i:"291" s="21":f=ss+"5":r,f-"1";" ";r,f;w("9"-n):װ".005",f+"30":f:s=s+"5":f=r̰"11":f-"1",s;" ";f,s;w("9"-n):װ".005",f+"30":f:r="11" f=s(s-"14")-((w("9"-n)))-"1":r,f+"1";" ";r,f;w("9"-n):װ".005",f+"30":f:s=(s-"14")-((w("9"-n))):f=rr-("10"-n)-"1":f+"1",s;" ";f,s;w("9"-n):װ".005",f+"30":f v=v+w("9"-n):  z$="100":w=ç:z="100":u1=z contç"5600" ="2","2";"CONVERSAO";4,2;"DECIMAL > BINARIO" CONTx="14":a$="EXAMINEMOS AGORA O CASOOPOSTO, OU SEJA, A CONVERSAODUM NUMERO DECIMAL EM BINA-RIO. O METODO MAIS SIMPLES EFAZER UMA SERIE DE DIVISOESPOR 2.":"220":"290" "5100":s="11" ;f="4"̰"10":f,"1";" ":f Il=u1:"4","2";"N. DECIMAL = ";:x1="126":y1="134":"5700":u1 _w=w+"1":l=z:"7","5";z;:x1="38":y1="110":"5700":"7",l+"6";"/ 2 = ";(z/"2") '(z/2)*2=zr=ç:"5045" r="1" "9","3";"RESTO = ";r E"5","26";"NUM.";"6","26";"DIV.";"7","27";"=";"8","27";d  5500| CONT5060 f=1200:f ^f="6"̰"9":f,"1";" ":f:z=(z/2):zçd=d+"1":"5030" *l="13"+j$:x1="30":y1="78":"5700"  8000@  z1=z +a1=a1+"1":z1=(z1/"2"):z1ç"5105" >f=1a1:j$=j$+"-":f:"11","4";"N. BINARIO = ";j$: |:f="10"("16"+j$)-d:"9",f;" ";r:װ".005",f+"35":f Of="9"̰"10":f,("17"+j$)-d;" ";f+"1",("17"+j$)-d;r:װ".01","50"+f:f  z=0:z$="":i0="1" bf="1"̰"12":f,"1";" ":f:"3","1";"Escreve o numero (N<256)" 0c$=:c$ɰ"13"(c$<"48"ůc$>"57")"5620" &Z$=0C$=13 5600 Jװ".05","40":z$=z$+c$:z$>255z$="":"5","14";" ":"5620" -"5","14";z$:z$="3"ůc$="13""5650"  "5620" Ku1=z$:z=u1:f="1"̰"12":f,"1";" ":f: DEx1,y1:ç,"12":(l*"8")+"4",ç:ç,-"12":-((l*"8")+"4"),ç: @?x="16":a$=" Queres indicar "+b$+" numero? (S/N) ":"220" E+="s"Ŧ="S"b$="outro":cont="1":"29" G3="n"Ŧ="N"P$="D"b$="tu o":cont=ç:20 J6="n"Ŧ="N"b$="tu o":cont=ç:P$="D"::29 O װ".005",*"30"+"30":"8005" g="1"̰"12":g,"1";" ":g:"5","1";"Poe um numero/max 8 caracteres";"7","1";"composto de 0/1 e prime ENTER" c$= (c$ɰ"48"Ưc$ɰ"49"Ưc$ɰ"13""8205" c$="13""8240" "װ".05","40":t=t+"1":z$=z$+c$ !"9","11";z$ &t="8""8240" + "8205" 0=f="1"̰"12":f,"1";" ":f: #( #2."23296"="127"n="23297":n$="":"9012" #3 "9014" #4n="127""9020" #5n$=n$+¾n:n=n+"1":"9012" #6I:"10","5";"ESCREVE O TEU NOME NO TECLADO E PRIME " #7En$:"50"::"8","4";n$;"10","3";" ESTA BEM ESCRITO ? (S/N)" #8="n"Ŧ="N""9014" #9="s"Ŧ="S""9019" #: "9016" #;Fn="1"̱n$:"23296"+n,n$(n):n:"23296"+n,"127":"23296","127" #< '  EDICOES LATINAS  '-  SOFTIDEA COMO - NOBtu o+ ion$dtvxyYPRIME UMA TECLA PARA CONTINUAR SPRIME UMA TECLA PARA CONTINUAR WPBZ10110011JAiENQUANTO O SISTEMA DECIMALUSA DEZ DIGITOS (DE 0 A 9), OBINARIO UNICAMENTE UTILIZADOIS: 0 E 1.CAR 8|*ROBERTO$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >@@| <~~~~<\),0:(23613=\+256*23614>\+1),0  EDICOES LATINAS   - SOFTIDEA COMO - 31999|:""  2: ,236077\,124|:236066\,0 23658j\,8 -23675{\,88X:23676|\,127 (+236099\,20:23562 \,1 2 8000@ 7 9500% < 8700! F)Q$="BEM "+N$+",":Y=4:8600! PY=6:Q$="COM ESTE PROGRAMA PODES CON-VERTER UM NUMERO ESCRITO NUMABASE QUALQUER (DECIMAL, HEXA-DECIMAL OU BINARIA) E OBTERESO SEU CORRESPONDENTE VALOR EM..." Z 8600! d'Q$="DECIMAL ":Y=13 :8600! n+Q$="HEXADECIMAL ":Y=15:8600! x'Q$="BINARIO ":Y=17:8600! 7500L :8700! UQ$="ESCREVE DE CADA VEZ UM NUMERO SEGUIDO PELA LETRA...":Y=4:8600! 1Q$="'H' SE E EM BASE 16":Y=7:8600! 1Q$="'B' SE E EM BASE 2":Y=9 :8600! 2Q$="'D' SE E EM BASE 10":Y=11 :8600! 7500L  8800`" ERROR=9200# P$(L)="H"1000 P$(L)="D"2000 P$(L)="B"4000 140 , HEXADECIMAL>DECIMAL  6P$=P$(1L-1) ; DEC=0 @I=L-11-1 J'C=P$(I)-480-7*(P$(I)>"9") OC<0C>15ERROR T"DEC=DEC+C*16^(L-1-I) ^I h D$=DEC r.1}L,30 | BINARIO>DECIMAL P$=P$(1L-1)  DEC=0 I=L-11-1 C=P$(I)-480 C<0C>1ERROR !DEC=DEC+C*2^(L-1-I) I  D$=DEC .1}L,20   DECIMAL>BINARIO  DEC>65535ERROR &B$="":B=(DEC/256):520 -B=DEC-(DEC/256)*256:520  16384@,B I=07 B$=B$+((I,175)) &I 0 X DECIMAL HEXADECIMAL  bH$=" ":H(4) gD1=DEC lH(1)=(DEC/4096) v<DEC=DEC-H(1)*4096:H(2)=(DEC/256) :DEC=DEC-H(2)*256:H(3)=(DEC/16) -DEC=DEC-H(3)*16:H(4)=DEC I=14 /H$(I)=(H(I)+7*(H(I)>9 )+480) I DEC=D1   300, H$=P$ W$(30)  500  1 W$(15)=D$:Y=2 Q$=W$:8600! $W$(15)=H$:Y=6 )Q$=W$:8600! +W$(15)=B$:Y=10 .Q$=W$:8600! 3 0  6000p P$=P$(1L-1) I=1L-1 P$(I)<"0"P$(I)>"9"ERROR I D$=P$  DEC=P$  600X  1025  400  600X  1025 p 7500L z*Q$="BEM "+N$+",":Y=13 :8600! *Y=15:Q$=" PRIME: ":8600! rY=17:Q$=" F PARA TERMINAR C PARA CONTINUAR R PARA OUTRA CONVERSAO":8600! =""6040  ="F" ="R"200 ="C"7000X  6040 X5::9 ,0;"   POE EM MARCHA O GRAVADOR   " b v65:5:5:"":0,0;:"" B L'T$=" PRIME UMA TECLA PARA CONTINUAR " V'BB=23624H\:23624H\,13 ["" ` Y1=1 jS2=1:S1=100d t 85004! 6 @'T$=" PARA O GRAVADOR " E1BB=23624H\:23624H\,128+22 J%Y1=1:S2=1:S1=64@ T 85004! !* !4#0;Y1,0;T$ !>.01z# =,Y1 !HT$=T$(2)+T$(1) !R.01z# =,Y1+20 !\*S1=S1-1:S1=0S28580! !z=""85004! !"" !23624H\,BB:"" ! !8:1 ! X=1 !I=1̱Q$ ! Y,X;Q$(I); !@Q$(I)" "Q$(I)".".001wn,20:G=12:G !Q$(I)=".".1}L,1 !1X=X+1:X31Y=Y+1:X=1 !I ! !I3,3:4;249,0:4;0,169 ":4;-249,0:4;0,-169 " "` "e/252,3:4;0,169 "j-3,3:4;0,169 "-3,3:4;249,0 "/3,172:4;249,0 "83,172-32 :4;249,0 "'Y=2:Q$="DECIMAL: ":8600! "83,172-64@:4;249,0 "*Y=6:Q$="HEXADECIMAL:":8600! "83,172-96`:4;249,0 "'Y=10 :Q$="BINARIO:":8600! #(23624H\,64@+22 #2~.01z# =,40(:0,0;" ESCREVE O NUMERO A CONVERTER ";1,10 ;P$ #<23624H\,23 #FL=P$:L=09000(# #P+P$(L)"H"P$(L)"D"P$(L)"B"9000(# #Z#P$(L)="H"(L>1L<6) #d#P$(L)="D"(L>1L<7) #n$P$(L)="B"(L>1L<18) #x 9000(# # ERRO #BB=23624H\ #(T$=" CUIDADO COM EQUIVOCACOES " $1Y1=1:S2=1:S1=32 :85004! $ 200 %$23296[1279700% %&N$="" %N$X=23297[23296[+30 %XX=127 %b N$=N$+(X) %lX %v % 8700! %WQ$=" ESCREVE O TEU NOME NO TECLADO E PRIME ":Y=8:8600! %N$ &p23296[,127:X=1̱N$:23296[+X,N$(X):X:23296[+X,32 :23297[+X,127 & 8Q$="ESTA BEM ESCRITO "+N$+" ?":Y=20:8600! &=""9750& & ="N":9700% &*: ]y&TS!!NATONIOF BISNOYSKYlrro#ecbP1D1H0001! 0000000000000001B0000000000000001T UMA TECLA PARA CONTINUAR PRIME QS F PARA TERMINAR C PARA CONTINUAR R PARA OUTRA CONVERSAOKCAR },$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0 "31969":z=ç:u=::"23609","20":"23658","8":"":""f$():"23606",z:"23607","124":ڰ"7":z::ڰ"8":u;"10",z;" PARA O GRAVADOR ":I=Z̰"10":װ".01","I*5":I CEN=Z dOP=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 /vc=z:I=u:PN=U:A$="REM":"8410":"8300" L*8150:8400 :vc=u:8300l "8070":e1000 $vc=z:A$="CLS":"8410":"8300" )vc=u:8150:8400 :"8300" [Z:"V"#0;Z,Z;U;6;2;" PRIME A TECLA ""V"" !",:2000 {"":I=Z29:I*8,Z:7;7;Z,175:18,i;" @";i;" ~|";i;" \]":.1}L,i+10 :I ;:10 ,u;:t$=" ... COMPRENDIDO ? ...":8330 "8070":e"1500" @/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:""  8150 8"8400":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;" SIGUINTE"  ="F" ="I"I=PN:E=U: ="C"PN=I:  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 lcA=Z:J=I9999':F$(J,30)"%"F$(J,30)""A=A+U+(2F$(J,30)="}"):J mVC"10-a/2",U; nI=i9999':T$=F$(I) v'8330 :T$(30)=""i=i+u: {'F$(I,30)="%"i=i+u:8300l I 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:11 ,U;: ! t$:ñt$ !cenu;"16-t$/2"; ! "8330":"8450" !5J=U+a9 +a:j,u;6+(a=10 ),a$:j: ! A=U+U:J="18"̰"24"6:208-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: zu4 E A FUNCAO BASICQUE SERVE PARA ... NADA !!!DE RESTO,QUANDO O TEU SPECTRUMA ENCONTRA, IGNORA-A COM-PLETAMENTE E PASSA A LINHASEGUINTE. NA REALIDADE, A UTILIDADEDESTA FUNCAO CONSISTE EMOFERECER A POSSIBILIDADE DEINTRODUZIR COMENTARIOS,TITULOSE DESCRICOES NO PONTO DOPROGRAMA QUE DESEJES, SEM QUEISTO ALTERE O NORMAL DESEN-VOLVIMENTO DO MESMO.% %POR EXEMPLO, ESCREVE:} }10 REM GEOMETRIA} }PARA DARES UM TITULO AO TEUPROGRAMA.SEM PROBLEMAS...} }30 LET S=B*H/2: REM CALCULO.PARA COMENTAR UMA INSTRUCAO RECORDA QUE APOS A FUNCAO NAO PODES SITUAR NENHUMCOMANDO SE QUERES QUE SEJACONSIDERADO COMO TAL : SENDOASSIM, DEVERAS COLOCA-LO NALINHA SEGUINTE.% %FIXA O EXEMPLO QUE TEPROPONHO. A INSTRUCAO NAO SERA EXECUTADASE ESTIVER SITUADA APOSREM.} }10 REM PRINT 'OK'} }20 REM GEOMETRIA:PRINT 'OK' O COMANDO SERVE PARALIMPAR COMPLETAMENTE O ECRAN,DE FORMA QUE POSSA SERUTILIZADO PARA NOVOS DADOS. POR ISSO, COLOCA-SE FREQUENTE-MENTE NO INICIO DOS PROGRA-MAS, PARA ELIMINAR OSDADOS QUE EVENTUALMENTE POSSAMESTAR NO ECRAN. QUANDOHA GRANDE NUMERO DE INFORMA-COES PARA ESCREVER NOECRAN, UTILIZA-SE CLS COM FRE-QUENCIA. ISTO TRADUZ-SE NUMAMAIOR CLAREZA E LEGIBILIDADEDOS DADOS. SE QUERES UMA DE-MONSTRACAO DO FUNCIONAMENTO,PRIME A TECLA (QUE COR-RESPONDE A LETRA ). 'n eaNOKAREM( 'l c TQUE SERVE PARA ... NADA !!!CAR }ڀW $$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" > E A FUNCAO BASICQUE SERVE PARA ... NADA !!!DE RESTO,QUANDO O TEU SPECTRUMA ENCONTRA, IGNORA-A COM-PLETAMENTE E PASSA A LINHASEGUINTE. NA REALIDADE, A UTILIDADEDESTA FUNCAO CONSISTE EMOFERECER A POSSIBILIDADE DEINTRODUZIR COMENTARIOS,TITULOSE DESCRICOES NO PONTO DOPROGRAMA QUE DESEJES, SEM QUEISTO ALTERE O NORMAL DESEN-VOLVIMENTO DO MESMO.% %POR EXEMPLO, ESCREVE:} }10 REM GEOMETRIA} }PARA DARES UM TITULO AO TEUPROGRAMA.SEM PROBLEMAS...} }30 LET S=B*H/2: REM CALCULO.PARA COMENTAR UMA INSTRUCAO RECORDA QUE APOS A FUNCAO NAO PODES SITUAR NENHUMCOMANDO SE QUERES QUE SEJACONSIDERADO COMO TAL : SENDOASSIM, DEVERAS COLOCA-LO NALINHA SEGUINTE.% %FIXA O EXEMPLO QUE TEPROPONHO. A INSTRUCAO NAO SERA EXECUTADASE ESTIVER SITUADA APOSREM.} }10 REM PRINT 'OK'} }20 REM GEOMETRIA:PRINT 'OK' O COMANDO SERVE PARALIMPAR COMPLETAMENTE O ECRAN,DE FORMA QUE POSSA SERUTILIZADO PARA NOVOS DADOS. POR ISSO, COLOCA-SE FREQUENTE-MENTE NO INICIO DOS PROGRA-MAS, PARA ELIMINAR OSDADOS QUE EVENTUALMENTE POSSAMESTAR NO ECRAN. QUANDOHA GRANDE NUMERO DE INFORMA-COES PARA ESCREVER NOECRAN, UTILIZA-SE CLS COM FRE-QUENCIA. ISTO TRADUZ-SE NUMAMAIOR CLAREZA E LEGIBILIDADEDOS DADOS. SE QUERES UMA DE-MONSTRACAO DO FUNCIONAMENTO,PRIME A TECLA (QUE COR-RESPONDE A LETRA ). GOTO  ~ f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 "31969":z=ç:u=::"23609","20":"23658","8":"":""f$():"23606",z:"23607","124":ڰ"7":z::ڰ"8":u;"10",z;" PARA O GRAVADOR ":I=Z̰"10":װ".01","I*5":I  0 CEN=Z dOP=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 /vc=z:I=u:PN=U:A$="GO TO":"8410":"8300" L*8150:8400 :vc=u:8300l SV=I :8150:8400 /u,10 ;2;6;"E X E M P L O" <I=3183:t$:i,3;:8330 :i v"100":I=39 3:J=216:I,J;U;U;" ":.05|L,I:.05|L,I+2:J:"50":I o9 ,6;U;U;" ":.3,U:502:18,3;U;U;" ":.3,20 `U100d:J="7"̰"18":"18",j;u;u;" ":.05|L,"30":.05|L,32 :j ^"10 LET ERR=0","20 INPUT A$","30 GO TO 300","40 PRINT A$","......","300 PRINT ""BEM""" un="2":I=2426:"227-I",491-I:I,z:n,n:z,I*.73333:-n,n:-I,z:-n,-n:z,-I*.73333:n,-n:I &17,26;U;"OK" I=SV *8150:8400 :vc=u:8300l "8070":e"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:""  8150 8"8400":7,U;:T$=" ESCOLHE, {:":8330 E=Z:11 ,6;"F FIM";13 ,6;"I INTRODUCAO";15,6;"C PASSAR A PARTE";16,6;" SIGUINTE"  ="F" ="I"I=PN:E=U: ="C"I=I+U:PN=I:  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 lcA=Z:J=I9999':F$(J,30)"%"F$(J,30)""A=A+U+(2F$(J,30)="}"):J mVC"10-a/2",U; nI=i9999':T$=F$(I) v'8330 :T$(30)=""i=i+u: {'F$(I,30)="%"i=i+u:8300l I 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(:U +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:5,10 ;" introducao";11 ,U;: ! t$:ñt$ !cenu;"16-t$/2"; ! "8330":"8450" !5J=U+a9 +a:j,u;6+(a=10 ),a$:j: ! A=U+U:J="18"̰"24"6:208-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ƥ0A INSTRUCAO QUERDIZER: VAI PARA, E VAI SEMPRESEGUIDA DE UM NUMERO EM FORMADE CONSTANTE, VARIAVEL OU EX-PRESSAO NUMERICA. NA PRATICA, QUANDO O TEUSPECTRUM ENCONTRA UMA INS-TRUCAO DESTE TIPO, EM VEZDE CONTINUAR NA LINHA SE-GUINTE, 'SALTA' PARA AQUELAQUE SE INDICA ATRAS DO,PROSSEGUINDO A PARTIR DAQUELEPONTO, COMO NADA TIVESSEOCORRIDO. COMO TENS PODIDO COMPROVAR, AINSTRUCAO ALTERAA EXECUCAO NORMAL DOPROGRAMA, FORCANDO UM SALTO ALINHA 300. QUANDO ESTA LINHANAO EXISTE, CONSIDERA-SE OSALTO A LINHA POSTERIOR.% %POR EXEMPLO, PODES ESCREVER:}40 GO TO 7*A^2} }PARA INDICAR A LINHA DE DES-TINO EM FORMA DE EXPRESSAO.OU ENTAO:} }50 GOTO ERRO} }NESTE CASO, A DIRECCAO DOSALTO ESTA CONTIDA NA VARIAVEL A QUAL ANTERIORMENTESE TINHA ASSIGNADO UM VALOR.% %UM PROGRAMA ESCRITO DESTAFORMA TEM UMA GRANDE LEGI-BILIDADE, MODIFICANDO-SE E IN-TERPRETANDO-SE COM FACILIDADE,MESMO QUE TENHA SIDO FEITOHA MUITO TEMPO.} }SE BEM QUE A INSTRUCAO SEJA MUITO PRATICA, ACONSELHO--TE A SUA UTILIZACAO COM CERTAPRECAUCAO, PARA EVITAR TORNAROS PROGRAMAS DEMASIADO LENTOS,INTERROMPENDO EXCESSIVAS VEZESA EXECUCAO CONTINUA E DIFICUL-TANDO AS FASES DE CORRECCAO EDE RE-LEITURA.  'n ea8 'l c  peN HBHBHYTDGJKAGO TOTA INSTRUCAO QUER_CAR }~ $$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" > QUERDIZER: VAI PARA, E VAI SEMPRESEGUIDA DE UM NUMERO EM FORMADE CONSTANTE, VARIAVEL OU EX-PRESSAO NUMERICA. NA PRATICA, QUANDO O TEUSPECTRUM ENCONTRA UMA INS-TRUCAO DESTE TIPO, EM VEZDE CONTINUAR NA LINHA SE-GUINTE, 'SALTA' PARA AQUELAQUE SE INDICA ATRAS DO,PROSSEGUINDO A PARTIR DAQUELEPONTO, COMO NADA TIVESSEOCORRIDO. COMO TENS PODIDO COMPROVAR, AINSTRUCAO ALTERAA EXECUCAO NORMAL DOPROGRAMA, FORCANDO UM SALTO ALINHA 300. QUANDO ESTA LINHANAO EXISTE, CONSIDERA-SE OSALTO A LINHA POSTERIOR.% %POR EXEMPLO, PODES ESCREVER:}40 GO TO 7*A^2} }PARA INDICAR A LINHA DE DES-TINO EM FORMA DE EXPRESSAO.OU ENTAO:} }50 GOTO ERRO} }NESTE CASO, A DIRECCAO DOSALTO ESTA CONTIDA NA VARIAVEL A QUAL ANTERIORMENTESE TINHA ASSIGNADO UM VALOR.% %UM PROGRAMA ESCRITO DESTAFORMA TEM UMA GRANDE LEGI-BILIDADE, MODIFICANDO-SE E IN-TERPRETANDO-SE COM FACILIDADE,MESMO QUE TENHA SIDO FEITOHA MUITO TEMPO.} }SE BEM QUE A INSTRUCAO SEJA MUITO PRATICA, ACONSELHO--TE A SUA UTILIZACAO COM CERTAPRECAUCAO, PARA EVITAR TORNAROS PROGRAMAS DEMASIADO LENTOS,INTERROMPENDO EXCESSIVAS VEZESA EXECUCAO CONTINUA E DIFICUL-TANDO AS FASES DE CORRECCAO EDE RE-LEITURA.  GOTO EX z   EDICOES LATINAS  f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 "31969":z=ç:u=::"23609","20":"23658","8":"":"23606",z:"23607","124":ڰ"7":z::ڰ"8":u;"10",z;" PARA O GRAVADOR ":I=Z̰"10":װ".01","I*5":I dCEN=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  I=U:PN=U:A$="GO TO":"8410" $ "8500" ~"8075":E"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:""  8150 7"8400":7,U;:T$=" ESCOLHE, {:":8330 E=Z:11 ,6;"F FIM";13 ,6;"E EXERCICIOS";15,6;"C PASSAR A PARTE";16,6;" SEGUIENTE"  ="F" ="E"I=PN:E=U: ="C"I=I+U:PN=I:  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 l"u'u;:I=I9999':T$=F$(I) v%8330 :n<31T$(N)="" I 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(:U +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":"124-XL/2","142":XL,Z:Z,YL:-XL,Z:Z,-YL:U,-U:XL,Z:Z,YL:5,5;"exemplos e exercicios";8,U;: ! t$:ñt$ !cenu;"16-t$/2"; ! "8330":"8450" !5J=U+a9 +a:j,u;6+(a=10 ),a$:j: ! A=U+U:J="18"̰"24"6:208-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: !4 INTER !9-CEN=Z:"9400":"14",U;:"8450":"8150" !>Aa$=" ":"8400":ڰ"4";"4","91":ڰ"4";"246",z !4a="10":"8470":a=Z:"8470":T$:t$="""8740" !:"5","15-t$/2";:"8330":I=Z̰"50"Ͱ"5":װ".01",I:I !"12",U;:"8450" " "8150" " "8600" "$u,u;:T$="AGORA "+N$:"8330":"3",u;:T$="PROPONHO-TE UM NOVO TESTE: UTILIZA O TECLADO DO MODO QUEJA APRENDESTE NAS LICOES AN-TERIORES E INTRODUZ AS INSTRU-COES QUE EU TE VOU PEDINDO.":"8330" "`"8150":cen=u:"8470":ER=Z "j b$:ñB$ "t"14",u;:"8450" "#u+U,u;ٰ"6";b$;:x="23688/2-U" " i=u̱b$ "b$(i)=""x=x+u "ER="9"c$=b$(i):"9040" #(#z;,z;u;"K":z:c$=:"" #2!i=uC$<""C$=(C$+165) #4+I>UB$(I-U)=""C$<""C$=(C$+"165") #n\"5",x;a$(̰"(10X<21)+(30-X)*(X>20)"):c="(*3+2)"i=u:c=uj=ux:"5",j;U;" ";c$; #s3c="2"j=u+(ER="9")̰"4":j,u,a$;j+u,x;U;c$; #xKc="3"u+U,u;ٰ"6";c$;:j="23688-2"x-u:"5",j;U;c$;z;" ";°"8"; #}/c="4"j="9"̰"6"-u:j,u,a$;j-u,x;U;c$; #U:j #c$b$(i)u;"9","10";" ERRO !";"5",X;C$:U,"-18":"50":er=er+u:er<"3""9","5";U;" TENTA DE NOVO !":"50":װ".1","20":"9","5",A$:"9000" #Ser="3""8470":U,U;7;U;"ESTA E A INSTRUCAO EXACTA:":er="9":"8860" #X="33-23688" #.1}L,i*3 #ERɰ"9"ER=Z #Li:er"9","11";u;"EXACTO !":"8150":J=Ṵ"20":J,U;J="10",A$:J #PEr"100":"9","5";" TENTA DE NOVO !":װ".5","32":"8470":ER=Z:"8850" # "8810" $ D A T A  $|"APLIQUEMOS AGORA OS CONCEITOSANTERIORMENTE EXPOSTOS, OBSER-VANDO COMO SE UTILIZA, NA REA-LIDADE, A INSTRUCAO .","" %: INTER %Ds"GO TO 1000","O COMPUTADOR INTERROMPE ASEQUENCIA NORMAL DE INSTRU-COES, PARA CONTINUAR NA LINHA1000.","" %NW"GO TO ERRO","NESTE CASO, A LINHA DE DESTI-NO ESTA CONTIDA NA VARIAVEL'ERRO'.","" %X"GO TO 2000+DIR*100","NESTE CASO, O TEU CALCULA O VALOR DA EXPRESSAO2000+DIR*100, DEPOIS DO QUALVAI A LINHA OBTIDA.","" %b "","200","VAI A LINHA 200","" %lA"ERR","SALTA AO NUMERO DA LINHA","CONTIDO NA VAR. .","" %vU"DIR*100","VAI A LINHA OBTIDA","MULTIPLICANDO A VARIAVEL"," POR 100.","","" &G"" zu72!eaNc_ A !T_O COMPUTADOR INTERROMPE ASEQUENCIA NORMAL DE INSTRU-COES, PARA CONTINUAR NA LINHA1000.CAR }6$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >