ZXTape! 2-VIDEO BASIC (EDICOES LATINAS) - TAPE 4 SIDE AEDICOES LATINAS, LDA / JACKSON PORTUGUESSPECTRUM BASIC COURSENONE ORIGINAL TAPE20 TAPES COURSEVIDEOBASICq^! sd *  SOFTIDEA (Como) * *Via Indipendenza 88* * Tel. 031-240.959 * 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;" " 3H ? '#+563?`@###133~  qw{?  000000000000000000000000000000000000000000000000000000000000000000000000001111111111111022200000000000000211111111111112222000000000000002222211122222222220000000000000028288888882222222200000000000000000000000000000000000000666666666000000000066000000000006660088888888888888888880666660000000888===============8000000088888888?===============8888888888888888?<<<<<<<<<<<<<<<8888888888888888?;;;;;;;;;;;;;;;8888888888888888?;;;;;;;;;;;;;;;8888888888888888?:::::::::::::::8888888888888888?:::::::::::::::8888888888???888888888888888888:8888888888???8888????88?????::::8888888888???????889999999989:::888888888?88888888888888889999998888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888VIDEOLIST o   VIDEOBASIC  f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 ~317997|:23658j\,8:236099\,20:20,0;:"":236066\,86V:236077\,123{ P#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 MEMORIA ":k=7:0710 x;p$=" o mapa da memoria ":k=8:0710 <p$="VIDEOBASIC-A LINGUAGEM: ":k=10 :0710 ;p$="AS FUNCOES ":k=11 :0710 :p$="SQR-INT-SGN-ABS-PI ":k=12 :0710 9p$="PEEK - POKE ":k=13 :0710 <p$="VIDEOBREAK: ":k=15:0710 ;p$="bordado electronico ":k=16:0710 ;p$="VIDEOBASIC-A PROGRAMACAO: ":k=18:0710 ;p$="O CONTADOR ":k=19:0710 :p$="CICLOS CONTROLADOS ":k=20:0710 8200: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$="Campo Minado ":k=14:0710 ;p$="VIDEONEXT: ":k=17:0710 :p$="no proximo numero... ":k=18:0710  150 #0490:1::0630v " HOMEM  , 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 ,8;"NO TECLADO";11 ,8;"E PRIME ":n$ Tp9 ,7;" ";10 ,8;" ";11 ,8;" " ^G10 ,8;"Esta bem escrito ?";11 ,8;n$;" (s/n)" h=""360h r="s"Ŧ="S"400 |h="n"Ŧ="N"10 ,7;" ";11 ,7;" ":330J  360h Nn=1̱n$:n+23296[,n$(n):n:n+23296[,"":23296[,""  0530 38&,64@,38&,79O,-2,38&,79O,38&,100d,-1,38&,100d,44,,112p,-2,44,,112p,72H,114r,-1 72H,114r,94^,118v,-2,94^,118v,134,110n,-1,134,110n,165,116t,-2 165,116t,197,111o,-1,197,111o,222,107k,-2,222,107k,220,90Z,-1 Ž220,90Z,215,70F,-1,215,70F,190,63?,-2,190,63?,160,65A,-2 ̺160,65A,130,60<,-2,130,60<,115s,63?,-2,115s,63?,90Z,59;,-2,90Z,59;,60<,65A,-2 *-2,0,0,0,0 ROTULO ROTATORIO 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:0490  TEXTO :0630v:13 ,13 :22,0:0,30:-22,0:0,-30:11 ,0;" Poe o gravador em marcha " i=116:.04|# =,36$-i:i:150:11 ,0;" ":10 ,0;" estou a carregar "''" 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: N GRAFICOS  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: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  QUADRO 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: ROTULOS ENTRANTES 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 UaVLkPVIDEOBASIC-A PROGRAMACAO : CAR V|o+$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0:"31799":"23675","88":"23676","127":"23658","8":"23609","20":"""32600":"""31800":"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 V"10",ç;" VIDEOHARDWARE curso de hardware ":"219"  w=0  "9010" U:''"BEM "+n$+",":'"SEGUE COM ATENCAO ESTAS NOTAS SOBRE A MEMORIA DO 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" Keܰ"1":ڰ"6":"3","6";" ":n="4"̰"7":n,"6";" ":n L-n="142"̰"114"-"4":"8",n:"239",ç:n MIm="2":n="55"̰"223"Ͱ"24":n,"148":ç,m:-(n-"8"),ç:m=m+"2":n NX="15":A$="A MEMORIA RAM DO SPECTRUM ESTAFISICAMENTE CONSTITUIDA PORUMA SERIE DE INTEGRADOS,UNIDOSAO C.P.U. POR MEIO DE CIRCUI-TOS.":"220":"290" Ox="14":a$="A CARACTERISTICA PRINCIPALDA MEMORIA RAM E PODER SERLIDA OU ESCRITA EM QUALQUERMOMENTO.A INFORMACAO QUE ARMA-ZENA DESAPARECE QUANDO SE COR-TA A ALIMENTACAO.":"220":"290" P"219":ܰ"1":ڰ"5":"8","11";" ";"9","11";" ";"10","11";"  R O M  ";"11","11";" ";"12","11";" " U ܰ"1":ڰ"6" Xx="14":a$="A ROM, AO CONTRARIO DA RAM,NAO SE APAGA QUANDO SE DESLIGADA ENERGIA. CONTEM AS INSTRU-COES INDISPENSAVEIS PARA OFUNCIONAMENTO DO SPECTRUM. NAROM NAO E POSSIVEL ESCREVER.":"220":"290" Zun="1"̰"12":n,"1";" ":n:"15","160":"225",ç:ç,-"41":-"225",ç:ç,"41" [x="15":a$="A Z80A PODE ACEDER A 65536BYTES DE MEMORIA. A TOTALI-DADE DA MESMA ESTA REPRESENTA-DA PELO RECTANGULO SUPERIOR.":"220":"290" ](fl="1":"1000":u="1"̰"8":"1000" ^\x="15":fl:n="2"̰"6":n,b;w;d;b$:n:fl="1"fl=ç:"5000":"220":"290":"94" _ fl="1":u d"190"  5x="15":a$="Queres repetir a 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 O GRAVADOR EM MARCHA ":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  _______________________ 7n=ç5.1}L:.01z# =,60<*((n)):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" d,w,b,b$,a$: f"1","3","2"," ","A ROM ALBERGA O INTERPRETE DEBASIC E OCUPA OS PRIMEROS 16KDE MEMORIA." {ç,"4","10"," ","6144 BYTES DA MEMORIA SAO OCU-PADOS PELO FICHEIRO DE IMAGEM.CADA BIT REPRESENTA UM PONTODO MESMO." \ç,"5","13"," ","OS ATRIBUTOS DEFINEM A COR DECADA CARACTER. ESTA AREA OCUPA768 BYTES." l"1","2","14"," ","BUFFER DA IMPRESSORA, E A AREAQUE CONTEM A INFORMACAO DESTI-NADA A ESTE PERIFERICO." r"0","7","15"," ","AS VARIAVEIS DE SISTEMA SAODADOS QUE O PROGRAMADOR UTILI-ZA PARA SUA PROPRIA INFORMACAO" "1","4","16"," ","AQUI ESTA MEMORIZADO O PROGRA-MA EM LINGUAGEM BASIC.ESTA ZO-NA E COMPOSTA POR 8844 BYTESNA VERSAO DE 16K E 41473 NADE 48K." r"1","5","28"," ","ESTA ZONA DE MEMORIA E USADAPELO PROGRAMADOR PARA VARIA-VEIS DEFINIDAS PELO PROGRAMA." v"1","1","29"," ","OS ULTIMOS 168 BYTES DA MEMO-RIA ESTAO RESERVADOS AOS GRA-FICOS DEFINIDOS PELO UTILIZA-DOR." ç:u*"10"+"5000" ,"8","2";w;" ";ڰ"6";" ROM ": ,"9","2";w;" ";ڰ"6";" FICH.IMAG. ": ,"10","2";w;" ";ڰ"6";" ATRIBUTOS ": ,"11","2";w;" ";ڰ"6";" B.IMPRESSORA": +"8","17";w;" ";ڰ"6";" VAR.SISTEMA": +"9","17";w;" ";ڰ"6";" PROG. BASIC": ,"10","17";w;" ";ڰ"6";" VAR. PROG. ": ,"11","17";w;" ";ڰ"6";" UDG ": #2."23296"="127"n="23297":n$="":"9012" #3 "9014" #4n="127""9020" #5n$=n$+¾n:n=n+"1":"9012" #6/:"10","2";"ESCREVE O NOME E PRIME" #7Cn$:"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" #< wNZX$mxy[Z]dbYPRIME UMA TECLA PARA CONTINUAR SPRIME UMA TECLA PARA CONTINUAR B AZAS VARIAVEIS DE SISTEMA SAODADOS QUE O PROGRAMADOR UTILI-ZA PARA SUA PROPRIA INFORMACAOCHAR Xi}p 1HP? ? @@@8y@@@@@@>@@| ????ffffCAR 8|i6) ROBERTO$$$~$$~$~~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 6rc=u:PN=U:A$=" SQR ":"8410":"8070":E"1000" *A$=" SGN ":"8410":"8070":E"2000" *A$=" ABS ":"8410":"8070":E"3000" *A$=" INT ":"8410":"8070":E"4000" *A$=" PI ":"8410":"8070":E"5000" @/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:"" :"8400":7,U;:T$=" ESCOLHE, "+N$+":":8330 E=Z:11 ,6;"F FIM";13 ,6;"I INTRODUCAO";15,6;"C PASSO P/A PARTE";16,6;" SEGUINTE" T$=:T$="F" T$="I"rc=PN:E=U: T$="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 lcA=Z:J=rc124|:F$(J,30)"%"F$(J,30)""A=A+U+(2F$(J,30)="}"):J mVC"10-a/3",U; n T$=F$(rc) v,"8330":t$("30")=""rc=rc+u:"8150": {'F$(rc,30)="%"rc=rc+u:"8300" rc=rc+u:"8302" c=Z:N=U̱t$ "T$(N)="%"8150:"8400": T$(N)="{"T$(N)=N$ T$(N)="}"'U''" ";: T$(N)=""P="6": .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";"13",U;:vc=z:"8300":"8400":vc=u:"8300": ! 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: &H"X=11000:F$(X);X:X zuƹA FUNCAO (RAIZ QUADRA-DA) E A OPERACAO INVERSA ADA ELEVACAO AO QUADRADO. EXEMPLO: A RAIZ DE <9> E <3>PORQUE MULTIPLICANDO <3> PORSI MESMO OBTEMOS NOVAMENTEO VALOR DE PARTIDA <9>; ANA-LOGAMENTE,A RAIZ DE <16> E<4>,POSTO QUE 4*4=16.% %SUPOE QUE TENS DE ESCREVERO CONTEUDO DA VARIAVEL. A INSTRUCAO NECESSARIANESTE CASO E EVIDENTEMENTE:} }PRINT A% %SE O QUE DESEJAS E ESCREVERA RAIZ QUADRADA DE A, VAI SERNECESSARIO REALIZAR UM BREVEPROGRAMA (MAIS EXACTAMENTE,UMA'ROTINA')QUE TE PERMITA CAL-CULAR A RAIZ QUADRADA, TALCOMO PODES APRENDER NA ESCO-LA.% %EFECTIVAMENTE, UMA SOLUCAO DEESTE TIPO E TOTALMENTE COR-RECTA. MAS EM TODO O CASO, SERA MAISCOMODO E PRATICO ESCREVER UMAHIPOTETICA INSTRUCAO COMO : } }PRINT RAIZ DE A} }COMO CERTAMENTE ESTARAS TEN-TADO A FAZER!% %...BEM, { ESTA VEZ A LINGUAGEM BASICVEM EM TUA AJUDA PERMITINDO-TEEMPREGAR ESTA FUNCAO DOMESMO MODO QUE A IMAGINASTEO UNICO FAVOR QUE TE PEDEEM TROCA E QUE A ESCREVAS EMINGLES, SUA LINGUA:} }PRINT SQR A% %O QUE NAO DEVES PENSAR E QUE OTEU SPECTRUM LEVA A CABO ESTAFUNCAO DE UMA MANEIRA MILA-GROSA: ESTE TEM ESCRITA EM SUAMEMORIA ROM A ROTINA QUEPERMITE A OBTENCAO DA RAIZQUADRADA, DE FORMA MAIS OU ME-NOS PARECIDA COM O QUE TUFARIAS, E UTILIZA-A CADA VEZQUE SE VE EM NECESSIDADE DETAL.% %NA REALIDADE,ALEM DO QUE VIMOSO BASIC DISPOE DE DIVERSAS EVARIADAS FUNCOES,QUE GRADUAL-MENTE TE DIREI COMO SE USAM. O QUE NAO DEVES PENSAR E QUETUDO O QUE PRECISAS ENCON-TRA-SE JA NA MEMORIA: SERIANECESSARIA UMA MEMORIA GIGAN-TESCA! CONTUDO AS FUNCOES MAISCOMUNS, JA TRATADAS , PODEMSER ENCONTRADAS NA MEMO-RIA.% %TODAS AS FUNCOES PRECISAMDE UM OU MAIS ARGUMENTOS,E DE-VOLVEM SEMPRE UM RESULTADOQUE PODES UTILIZAR DA FOR-MA QUE ACHES OPORTUNA:LET X=FUNC Y PRINT FUNC W O ARGUMENTO DE UMA FUNCAOPODE SER CONSTANTE, EXPRESSAO,VARIAVEL OU OUTRA FUNCAO. A FUNCAO SERVE PARAINDICAR O SINAL DO SEU ARGU-MENTO. SE ESTE E POSITIVO, E DECERTOMAIOR QUE <0>, OBTEM-SE <1>;SE E <0>, OBTEM-SE <0>; E SEE NEGATIVO E INFERIORA <0>, O RESULTADO SERA <-1>. O ARGUMENTO PODE SER QUAL-QUER NUMERO INTEIRO OU DECI-MAL. O OBJECTIVO DA FUNCAO E OBTER O VALOR ABSO-LUTO, E PORTANTO, O COMPRI-MENTO DO SEU ARGUMENTO. ESTE RESULTADO OBTEM-SE SIM-PLESMENTE SUPRIMINDO O SINALDO ARGUMENTO, DE FORMA QUE OSNEGATIVOS SE CONSIDERAM TAMBEMCOMO POSITIVOS. UM EXEMPLO DA SUA UTILIZACAOE CONHECER A DISTANCIA ENTREDOIS NUMEROS INDEPENDENTEMENTEDO SEU SINAL.} PRINT ABS (N1-N2) A FUNCAO UTILIZA-SEPARA OBTER A PARTE INTEIRADE UM NUMERO DECIMAL. ESTA FUNCAO UTILIZA-SE MUITOFREQUENTEMENTE: PARA ARREDONDAR UM NUMERO AOVALOR SUPERIOR OU INFERIOR;OB-TER O QUOCIENTE E RESTO DEUMA DIVISAO, SABER SE DETER-MINADO NUMERO E INTEIRO OU DE-CIMAL...  NAO PODE SER CONSIDERADOPROPRIAMENTE UMA FUNCAO AINDAQUE O USO SEJA SIMILAR: REPRESENTA O VALOR 3.14159.QUE E A RELACAO ENTRE OCOMPRIMENTO DE UMA CIRCUNFE-RENCIA E O SEU DIAMETRO, CONS-TANTE CUJO O USO E MUITO FRE-QUENTE NA MATEMATICA. NORMALMENTE UTILIZA-SE EM EX-PRESSOES,DO MESMO MODO QUEUMA CONSTANTE NUMERICA.  [t$eaNA SQR |l c pT A PARA CONTINUAR PRIME UMA TECLsCAR | P $$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" > (RAIZ QUADRA-DA) E A OPERACAO INVERSA ADA ELEVACAO AO QUADRADO. EXEMPLO: A RAIZ DE <9> E <3>PORQUE MULTIPLICANDO <3> PORSI MESMO OBTEMOS NOVAMENTEO VALOR DE PARTIDA <9>; ANA-LOGAMENTE,A RAIZ DE <16> E<4>,POSTO QUE 4*4=16.% %SUPOE QUE TENS DE ESCREVERO CONTEUDO DA VARIAVEL. A INSTRUCAO NECESSARIANESTE CASO E EVIDENTEMENTE:} }PRINT A% %SE O QUE DESEJAS E ESCREVERA RAIZ QUADRADA DE A, VAI SERNECESSARIO REALIZAR UM BREVEPROGRAMA (MAIS EXACTAMENTE,UMA'ROTINA')QUE TE PERMITA CAL-CULAR A RAIZ QUADRADA, TALCOMO PODES APRENDER NA ESCO-LA.% %EFECTIVAMENTE, UMA SOLUCAO DEESTE TIPO E TOTALMENTE COR-RECTA. MAS EM TODO O CASO, SERA MAISCOMODO E PRATICO ESCREVER UMAHIPOTETICA INSTRUCAO COMO : } }PRINT RAIZ DE A} }COMO CERTAMENTE ESTARAS TEN-TADO A FAZER!% %...BEM, { ESTA VEZ A LINGUAGEM BASICVEM EM TUA AJUDA PERMITINDO-TEEMPREGAR ESTA FUNCAO DOMESMO MODO QUE A IMAGINASTEO UNICO FAVOR QUE TE PEDEEM TROCA E QUE A ESCREVAS EMINGLES, SUA LINGUA:} }PRINT SQR A% %O QUE NAO DEVES PENSAR E QUE OTEU SPECTRUM LEVA A CABO ESTAFUNCAO DE UMA MANEIRA MILA-GROSA: ESTE TEM ESCRITA EM SUAMEMORIA ROM A ROTINA QUEPERMITE A OBTENCAO DA RAIZQUADRADA, DE FORMA MAIS OU ME-NOS PARECIDA COM O QUE TUFARIAS, E UTILIZA-A CADA VEZQUE SE VE EM NECESSIDADE DETAL.% %NA REALIDADE,ALEM DO QUE VIMOSO BASIC DISPOE DE DIVERSAS EVARIADAS FUNCOES,QUE GRADUAL-MENTE TE DIREI COMO SE USAM. O QUE NAO DEVES PENSAR E QUETUDO O QUE PRECISAS ENCON-TRA-SE JA NA MEMORIA: SERIANECESSARIA UMA MEMORIA GIGAN-TESCA! CONTUDO AS FUNCOES MAISCOMUNS, JA TRATADAS , PODEMSER ENCONTRADAS NA MEMO-RIA.% %TODAS AS FUNCOES PRECISAMDE UM OU MAIS ARGUMENTOS,E DE-VOLVEM SEMPRE UM RESULTADOQUE PODES UTILIZAR DA FOR-MA QUE ACHES OPORTUNA:LET X=FUNC Y PRINT FUNC W O ARGUMENTO DE UMA FUNCAOPODE SER CONSTANTE, EXPRESSAO,VARIAVEL OU OUTRA FUNCAO. A FUNCAO SERVE PARAINDICAR O SINAL DO SEU ARGU-MENTO. SE ESTE E POSITIVO, E DECERTOMAIOR QUE <0>, OBTEM-SE <1>;SE E <0>, OBTEM-SE <0>; E SEE NEGATIVO E INFERIORA <0>, O RESULTADO SERA <-1>. O ARGUMENTO PODE SER QUAL-QUER NUMERO INTEIRO OU DECI-MAL. O OBJECTIVO DA FUNCAO E OBTER O VALOR ABSO-LUTO, E PORTANTO, O COMPRI-MENTO DO SEU ARGUMENTO. ESTE RESULTADO OBTEM-SE SIM-PLESMENTE SUPRIMINDO O SINALDO ARGUMENTO, DE FORMA QUE OSNEGATIVOS SE CONSIDERAM TAMBEMCOMO POSITIVOS. UM EXEMPLO DA SUA UTILIZACAOE CONHECER A DISTANCIA ENTREDOIS NUMEROS INDEPENDENTEMENTEDO SEU SINAL.} PRINT ABS (N1-N2) A FUNCAO UTILIZA-SEPARA OBTER A PARTE INTEIRADE UM NUMERO DECIMAL. ESTA FUNCAO UTILIZA-SE MUITOFREQUENTEMENTE: PARA ARREDONDAR UM NUMERO AOVALOR SUPERIOR OU INFERIOR;OB-TER O QUOCIENTE E RESTO DEUMA DIVISAO, SABER SE DETER-MINADO NUMERO E INTEIRO OU DE-CIMAL...  NAO PODE SER CONSIDERADOPROPRIAMENTE UMA FUNCAO AINDAQUE O USO SEJA SIMILAR: REPRESENTA O VALOR 3.14159.QUE E A RELACAO ENTRE OCOMPRIMENTO DE UMA CIRCUNFE-RENCIA E O SEU DIAMETRO, CONS-TANTE CUJO O USO E MUITO FRE-QUENTE NA MATEMATICA. NORMALMENTE UTILIZA-SE EM EX-PRESSOES,DO MESMO MODO QUEUMA CONSTANTE NUMERICA.  EX.FUNC Z  FL=Z  Z:C$=:C$=°"14"FL=U:"7" ^FLC$=¾"23556":C$=¾(491+C$+(26C$¾23559\)+(79OC$"0"C$"9")) FL=Z: EF=U Z(C$"0"C$"9")(C$="-"ñT$B$(I-U)"")(C$="."PN)T$=T$+C$:EF=Z:C$="."PN=U  Z)(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:"31969":z=ç:u=::"23609","20":"23658","8":""31970|:"23606",ç:"23607","124":ڰ"7":z::ڰ"8":u;"10",z;" PARA O GRAVADOR ":I=Z̰"10":װ".01","I*5":I d"Z: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 $I=U:A$="SQR - SGN - ABS":"8410" $ "8500" ~"8075":E"1000" @/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:""  8150 5"8400":7,U;:T$=" ESCOLHE, {:":8330 E=Z:11 ,6;"F FIM";13 ,6;"E EXERCICIOS";15,6;"C PASSO P/A PARTE";16,6;" SEGUINTE" T$=:T$="F" T$="E"E=U: 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 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 ejercicios";8,U;: ! t$:ñt$ !cenu;"15-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$="NOS EXERCICIOS SEGUINTES,DEVE-RAS INTRODUZIR AS INSTRU-COES QUE EU TE PECA, PODENDOOBSERVAR OS RESULTADOS REAISDE CADA FUNCAO.":"8330" "`"8150":cen=u:"8470":ER=Z "e "9530" "j b$:ñB$ "t"14",u;:"8450" "0PN=Z:T$="":u+U,u;ٰ"6";b$;:x="23688/2-U" " i=u̱b$ "ER="9"B$(I)=""I=I+U "b$(i)=""x=x+u "ER="9"c$=b$(i):"9040" #(."2":I=UC$"A"C$"Z"C$=(C$+165) #-t$>"7"c$=°"13" #2^B$(I)=""ƱT$#Z;Z,Z;Z;" PRIME AO TERMINAR",:C$=°"13""5",X;" ";:"9160" #<B$(I)=""C$>"9"C$="?" #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 #EF=Z:B$(I)="""20" #B$(I)""C$B$(I)EF=U #EFER=ER+U:u;"9","10";"ERRO !";"5",X;C$:U,"-18":"50":er<"3""9","10";U;"TENTA DE NOVO !":"50":װ".1","20":"9","10",A$:"9000" #Ier="3""8470":U,U;7;U;"POR EXEMPLO ...:":er="9":"8860" #X="33-23688" #.1}L,i*3 #ERɰ"9"ER=Z #B$(I)=""I=I-U #I #Ner"9","11";u;"EXACTO !":"8150":J=Ṵ"20":J,U;J="10",A$:J #TEr"150":"8","10";U;"TENTA OUTRA VEZ !":U,"32":"8470":ER=Z:"8850" #f#Z;Z,Z;U;"BEM!!! - AGORA INTRODUZ ""RUN""PARA EXECUTAR A INSTRUCAO ",,:Z:"R""9160" #Mװ".1","20":T$=(B$(I-U)+T$):U;"8","8-T$/2";" RESULTADO: ";T$;" " #"200":װ".1",U:#Z;Z,Z;ڰ"1";"PRIME:(R) PARA OUTRA INSTRUCAO "'" (C) PARA CONTINUAR",:Z:="R""":"8470":"8860" #-"":J=Ṵ"20":J,U;J="10",A$:J:"8810" $ D A T A  $X"VEJAMOS AGORA UNS EXEMPLOSCONCRETOS RELACIONADOS COM ASFUNCOES ANTERIORES.","" %_"LET L=SQR 20","CALCULA A RAIZ QUADRADA DE 20E ARMAZENA O RESULTADO NAVARIAVEL .","" %&|"LET VAR1=SQR (A-B)","A RAIZ, NESTE CASO, AFECTATODA A INFORMACAO DAEXPRESSAO ENTRE PARENTESIS(A-B).","" %+q"PRINT SQR(A*A+B*B)","ISTO NAO E OUTRA COISA QUE OTEOREMA DE PITAGORAS PARA OCALCULO DA HIPOTENUSA. ","" %-Y"PRINT SGN (A-B)","ESTA INSTRUCAO IMPRIMIRA <1>SE A>B, <-1> SE A SEA=B.","" %/k"LET DIFF=ABS(A-B)","NESTE CASO, OBTEMOS ADIFERENCA ABSOLUTA ENTRE ASVARIAVEIS E .","" %0q"PRINT ABS A-B","NESTA INSTRUCAO, A FUN-CAO UTILIZADA SEM PARENTE-SIS, AFECTA SO A VARIAVEL.","" %5"LET X=SQR ABS INT Y","..OUTRA FUNCAO PODE-SE UTI-LIZAR COMO ARGUMENTO; CON-TEM A RAIZ DO VALOR AB-SOLUTO DA PARTE INTEIRA DE.","" %9"" %: INTER %N_"16","ESCREVE UMA INSTRUCAO QUE","IMPRIMA A RAIZ DE UM","NUMERO A TUA ESCOLHA","" %X_"-6","ESCREVE UMA INSTRUCAO QUE","IMPRIMA O SINAL DE UM","NUMERO A TUA ESCOLHA","" %bc"-5","ESCREVE UMA INSTRUCAO QUE","IMPRIMA O VALOR ABSOLUTO","DE UM NUMERO A TUA ESCOLHA","" &G"" zu"eacJ#NZxC BeTCAPOE O GRAVADOR EM MARCHACAR | }g+ \Wq MQ ?v>$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >a)(a$="-"i=a)ef=z /0efa$=","k2=k1:k1=t$(ai-u):a=i+u:pt=z 0ef 2i: Z7:7 _&(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:"31999":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 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 Krc=u:PN=U:A$="POKE":"8410":b=zu:vc=b:"8300":"8150":"8400":b "8070":e"1000" ?A$="PEEK":"8410":b=zu:vc=b:"8300":"8150":"8400":b  main `,:"5","9";:t$=" ":i=z̰"4":j=z̰"4" 9t$()=(J*"5"+I):ڰ"5";t$;ڰ"7";" ";:j:'''"9";:i xp=z:yp=z:u,10 ;u;" M E M O R I A ";"19",Z;ڰ"5";"es: POKE 14,35 ..........."," PRINT PEEK 12",U+U;"INDICA ""F"" PARA TERMINAR ..", Dw$=" ":i=z̰"5":68D,i*24+30:158,0 (<i<"5"w$()=i:ڰ"8";"i*3+4","11";"0 0 0 0 0" i T/i="67"̰"240"Ͱ"32":i,30:z,"120":i er="133":"8480" v!"":EF=Z:t$="":#Z;Z,Z;U;"K" H"6":t$=t$+c$:t$=uC$>" "C$"Z"t$=(t$+"165"):YP,XP;U;" " C$="F""3900" '#Z;Z,Z;t$;U;"K":c$°"13""3200" 't$(u)""t$(u+(uƱt$>u))""ef=u $efer=t$(u)="":i=u+u+er:"30" ERK2ɰ"9999"EF=U erk2=k1 *k1"255"k2<0k2>"24"ef=u =EFu+U,u;U;" ERRO ! ":U,"-10":U+U,U," ":"3190" #w$=" ":erw$("4"-k1)=k1 -yp="(k2-(k2/5)*5)*3+4":xp="(k2/5)*4+9" Hu;er;yp,xp;w$:װ".5","15" 9ERI=ZU+U:"5","2"+I;U;(YP,XP+I):װ".1","30":I "3190" <"8400":"8070":e"1200"  e"1500" @/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, {:":8330 E=Z:11 ,6;"F FIM";13 ,6;"I VOLTA AO PRINCIPIO";15,6;"C PASSO P/A PARTE";16,6;" SEGUINTE"  ="F" ="I"rc=PN:E=U: ="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" 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-12 ,Z:Z,YL:-(XL-12 ),Z:Z,-YL:U,-U:XL-12 ,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: &H6*"M";1;"PEEKPOKEIN":*"M";1;"PEEKPOKEIN" & &8s="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) & &261479':*"m";1;"toolcode"61480( 'A"programa p/carregar: ";i$:"mC ou gravar(M/c) ";w$:w$="t"i$ 'w$"t"*"m";1;i$ '  '61480( zuơ RDESTA VEZ VAMOS ESTUDAR UMAINSTRUCAO BASTANTE TIPICADA LINGUAGEM BASIC: . A SUA FUNCAO E A COMUNICACAODIRECTA COM A MEMORIA DOCOMPUTADOR. TERAS OBSERVADO QUETODAS AS FUNCOESQUE JA APRENDESTE OPERAM EX-CLUSIVAMENTE SOBRE VARIAVEIS,OU SEJA,VALORES QUE O TEUSPECTRUM PODE LOCALIZAR NAMEMORIA ATRAVES DA BUSCA DEUM NOME.% %PODES VIR A NECESSITARINTRODUZIR UM VALOR DETER-MINADO NUMA POSICAO DE MEMORIANESTE CASO,A AJUDA VEMPOR PARTE DO COMANDO .ESTA FUNCAO PRECISA DE DOISVALORES: A ZONA DE MEMORIAABRANGIDA E O VALOR A ES-CREVER.} }POKE ENDERECO,VALOR.% %O ENDERECO PODE SER QUAL-QUER DA MEMORIA, E O VA-LOR DEVE VARIAR ENTRE0 E 255;ESTE NAO SE DEVECONSIDERAR SIMPLESMENTE COMOUM NUMERO, MAS SIM COMO UMAINFORMACAO. E EVIDENTE QUE O NAO TEM UTILIDADE QUANDO SEEMPREGA NA MEMORIA ROM, POSTOQUE ESTA NAO PODE SER ALTERADADE NENHUM MODO.% %EMPREGA-SE FUNDAMENTALMENTE NADEFINICAO DE CARACTERESESPECIAIS; A INTRODUCAO DE PROGRAMASEM CODIGO MAQUINA;A ALTERACAO DAS VARIAVEISDE SISTEMA, QUE CONTROLAM OFUNCIONAMENTO GERAL DO TEUSPECTRUM.% %RECORDA QUE E UM CO-MANDO,PORTANTO, A DIFERENCADAS FUNCOES NAO DEVOLVENENHUM VALOR. A FUNCAO E UM COMPLE-MENTO DO E SERVE PARAENCONTRAR UM DADO DA MEMO-RIA. A SUA UTILIZACAO E PARECIDACOM TODAS AS OUTRAS FUN-COES.SEU ARGUMENTO ESTA CONS-TITUIDO PELA DIRECCAO ABSOLU-TA DE MEMORIA DA QUE DEVELER O DADO ; EFECTIVAMENTE,A LINHA SEGUINTE: 10 PRINT PEEK 25300} }IMPRIME O NUMERO CONTIDO NAPOSICAO DE MEMORIA 25300.ESTA FUNCAO COMO TODAS ASOUTRAS, NAO PODE SER UTILIZADAINDIVIDUALMENTE (EXEMPLO: PEEK30000):DEVE USAR-SE CONJUNTA-MENTE COM UMA FUNCAO QUEUTILIZE O RESULTADO (LET,PRINT...).% %A DIFERENCA DO COMANDO,A FUNCAO EUTIL QUALQUER QUE SEJA A DI-RECCAO QUE INVESTIGUE, SEM-PRE E QUANDO, ESTA NAO SUPEREO NUMERO DE POSICOES DISPO-NIVEIS. NO EXEMPLO SEGUINTE UTI-LIZA-SE UMA MEMORIA RAM DE 25POSICOES, NA QUAL PODERASESCREVER E LER (POKE E PEEK) 2dea NZXAPOKE'l cSdpTA SUA FUNCAO E A COMUNICACAOCAR }a $$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >. A SUA FUNCAO E A COMUNICACAODIRECTA COM A MEMORIA DOCOMPUTADOR. TERAS OBSERVADO QUETODAS AS FUNCOESQUE JA APRENDESTE OPERAM EX-CLUSIVAMENTE SOBRE VARIAVEIS,OU SEJA,VALORES QUE O TEUSPECTRUM PODE LOCALIZAR NAMEMORIA ATRAVES DA BUSCA DEUM NOME.% %PODES VIR A NECESSITARINTRODUZIR UM VALOR DETER-MINADO NUMA POSICAO DE MEMORIANESTE CASO,A AJUDA VEMPOR PARTE DO COMANDO .ESTA FUNCAO PRECISA DE DOISVALORES: A ZONA DE MEMORIAABRANGIDA E O VALOR A ES-CREVER.} }POKE ENDERECO,VALOR.% %O ENDERECO PODE SER QUAL-QUER DA MEMORIA, E O VA-LOR DEVE VARIAR ENTRE0 E 255;ESTE NAO SE DEVECONSIDERAR SIMPLESMENTE COMOUM NUMERO, MAS SIM COMO UMAINFORMACAO. E EVIDENTE QUE O NAO TEM UTILIDADE QUANDO SEEMPREGA NA MEMORIA ROM, POSTOQUE ESTA NAO PODE SER ALTERADADE NENHUM MODO.% %EMPREGA-SE FUNDAMENTALMENTE NADEFINICAO DE CARACTERESESPECIAIS; A INTRODUCAO DE PROGRAMASEM CODIGO MAQUINA;A ALTERACAO DAS VARIAVEISDE SISTEMA, QUE CONTROLAM OFUNCIONAMENTO GERAL DO TEUSPECTRUM.% %RECORDA QUE E UM CO-MANDO,PORTANTO, A DIFERENCADAS FUNCOES NAO DEVOLVENENHUM VALOR. A FUNCAO E UM COMPLE-MENTO DO E SERVE PARAENCONTRAR UM DADO DA MEMO-RIA. A SUA UTILIZACAO E PARECIDACOM TODAS AS OUTRAS FUN-COES.SEU ARGUMENTO ESTA CONS-TITUIDO PELA DIRECCAO ABSOLU-TA DE MEMORIA DA QUE DEVELER O DADO ; EFECTIVAMENTE,A LINHA SEGUINTE: 10 PRINT PEEK 25300} }IMPRIME O NUMERO CONTIDO NAPOSICAO DE MEMORIA 25300.ESTA FUNCAO COMO TODAS ASOUTRAS, NAO PODE SER UTILIZADAINDIVIDUALMENTE (EXEMPLO: PEEK30000):DEVE USAR-SE CONJUNTA-MENTE COM UMA FUNCAO QUEUTILIZE O RESULTADO (LET,PRINT...).% %A DIFERENCA DO COMANDO,A FUNCAO EUTIL QUALQUER QUE SEJA A DI-DIRECCAO QUE INVESTIGUE, SEM-PRE E QUANDO, ESTA NAO SUPEREO NUMERO DE POSICOES DISPO-NIVEIS. NO EXEMPLO SEGUINTE UTI-LIZA-SE UMA MEMORIA RAM DE 25POSICOES, NA QUAL PODERASESCREVER E LER (POKE E PEEK)