ZXTape! 2.VIDEO BASIC (EDICOES LATINAS) - TAPE 17 SIDE AEDICOES LATINAS, LDA / JACKSON PORTUGUESSPECTRUM BASIC COURSENONE ORIGINAL TAPE20 TAPES COURSEVIDEOBASIC>+ @(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:   EDICOES LATINAS " *317997|:7:7:7: Mn=09 :n,0;" ":n Cn=16:n,4;" ":n (>n=35:n,10 ;" ":n 216,23;" ";17,21;" ";18,21;" ";19,20;" ";20,20;" " 3 ? '#+563 ?`@###133~  qw{>?  000000000000000000000000000000000000000000000000000000000000000000000000000100000001111022200000000000000211000000011112222000000000000002222200022222222220000000000000020200000002222222200000000000000000000000000000000000000666666666000000000066000000000006660088888888888888888880666660000000888===============8000000088888888?===============8888888888888888?<<<<<<<<<<<<<<<8888888888888888?;;;;;;;;;;;;;;;8888888888888888?;;;;;;;;;;;;;;;8888888888888888?:::::::::::::::8888888888888888?:::::::::::::::8888888888???888888888888888888:8888888888???8888????88?????::::8888888888???????889999999999:::888888888?88888888888888889999998888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888VIDEOLIST /V   EDICOES LATINAS  f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 317997|:0:0:0:0:23658j\,8:236099\,20:20,0;:""318008|:236066\,86V:236077\,123{ 23675{\,88X:23676|\,127:7:7:1::#0;0,0; " PARA O GRAVADOR " (Cn=1502:.01z# =,*60<:n:490:600X F SUMARIO P,:AA=1:690:.6,21 d;K=6:p$="VIDEOHARDWARE: ":0710 n/p$="O circuito sonoro ":0710 =K=K+1:p$="VIDEOBASIC-A LINGUAGEM: ":0710 /p$="BEEP * ATTR * SCREEN$ ":0710 =K=K+1:p$="VIDEOBREAK: ":0710 /p$="VALSA ":0710 =K=K+1:p$="VIDEOBASIC-A PROGRAMACAO: ":0710 /p$="MUSICA com o SPECTRUM ":0710 90490::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$="VIDEOJOGO: ":0710 .p$="ZOO ":0710 <K=K+1:p$="VIDEONEXT: ":0710 .p$="No proximo numero... ":0710 #0490:1::0630v "REGISTO 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 ,7;"ESCREVE O TEU NOME";10 ,9 ;"NO TECLADO";11 ,8;"E PRIME ":n$ Tn9 ,7;" ";10 ,9 ;" ";11 ,8;" " ^F10 ,7;"ESTA BEM ESCRITO";11 ,7;N$;" ? (S/N)" r="S"400 |c="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 ROTULOS ROTATORIOS 3150:Y$="*PRIME UMA TECLA PARA CONTINUAR *" e#0;1,0;1;5;1;Y$(32 ):.001wn,30:"""": TY$=Y$(2)+Y$(1):.0004uQX,45-:.0006vIQ,557:495  TEXTO :0630v:13 ,13 :22,0:0,30:-22,0:0,-30:11 ,0;" Poe 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;"":"" 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  RECUADRO 1000:AA,BB;P$:AA=(21-AA)*8-2:BB=BB*8-2:CC=P$*8+4:BB,AA:CC,0:0,12 :-CC,0:0,-12 :BB+1,AA-1:CC,0:0,12 : +BB=11 :P$="VIDEOLIST":0680: LETREROS ENTRANTES ON=1̱P$:K,31-N;P$(N):.002xn,K*N/8:N:K=K+1: a0,0:255,0:0,175:-255,0:0,-174: aVLkY!TECLA PARA CONTINUAR **PRIME UMA N ALEXANDREPMUSICA com o SPECTRUM CAR LIST |L/"$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0 "23609",:9999' ç:ڰ"6":ٰ"9":"6":"31799":"":17,0;"NESTE NUMERO O HARWARE OCUPA-SEDA PRODUCAO DE SONS COM O COMPU-TADOR."; ٰ"6":23658j\,8:23561 \,10 :23562 \,3:236099\,:9998':""318008|:ç:ç:ç:ç:ç:ç 9998':0:4:4::S=0:A=140(:S=S+254-191:0.002xn,A:19,0;1;19,0;" BEM "''" PARA O GRAVADOR ":A/502 A:S>06 n$="":a=23297[23317[:a127n$=n$+¾a:a::9 ''"ESCREVE O TEU NOME NO TECLADO."'" (NAO MAIS DE 15 LETRAS)"''''N$:N$>151,1:8 EA=23297[23296[+N$:A,N$(A-23296[):A:A,127 u=5000:z=7000X 'S$=" " FBA=12 21:1;A,0;2;6;S$:A PAA=011 :A,0;1;1;1;S$:A R15,1;"UM MOMENTO...":1:25,144,7:25,144,19:A=0̧*2ͧ/6:25+10 *A,144+10 *A:6*(A+0.6),6*(A+0.6),/3:A S 9 b|1:"":3,3:249,0:0,579+16:-249,0:0,-579-16 dٰ"7":M=1:u:AT=13 :P=1:L$="O SOM DO SPECTRUM PROVEM DE UMMINUSCULO ALTIFALANTE SITUADONA ZONA INFERIOR DIREITA DAPLACA DE CIRCUITOS." ez nJA=011 :A,0;1;1;7;1;S$:A xE8000@:9998':0,1;"ALTIF.":6000p u:AT=13 :L$="ESTE ALTIFALANTE E CONTROLADOPOR UM CIRCUITO INTEGRADO: AULA, CUJA MISSAO E REALIZAR AFUNCAO DE INTERFACE ENTRE OMICROPROCESSADOR E OS PRINCI-PAIS PERIFERICOS (ECRAN, GRA-VADOR, TECLADO)." z A=8600!:85004! "P=2:6000p ,AT=13 :u:L$="O SINAL PILOTO DO ALTIFALANTEE DE TIPO LOGICO:E CONSTITUIDOPOR UMA SEQUENCIA DE DOIS NI-VEIS DE TENSAO; A VELOCIDADECOM QUE ESTES SE SUCEDEM DALUGAR A FREQUENCIA DO SOM." 6z  6000p AT=13 :u:L$="CADA NOTA DISTINGUE-SE DEQUALQUER OUTRA PELA FREQUENCIAA NOTA MAIS BAIXA DO SPECTRUME UM ""DO"" COM UMA FREQUENCIADE 8 HERTZ, ENQUANTO A NOTAMAIS ALTA E ""LA""DE 14160 HERTZ(HERTZ = CICLO POR SEGUNDO)." z  6000p AT=13 :u:l$="A PRODUCAO DO SOM COMPETE AOMICROPROCESSADOR: POR ESTA RA-ZAO, DURANTE A EMISSAO SONORAINTERROMPE-SE O CICLO QUE LEO TECLADO." z N 6000p XAT=13 :u:L$="EXISTEM OUTROS METODOS PARAPRODUZIR SONS: POR EXEMPLO COMUM SINTETIZADOR LIGADO COM ACPU MEDIANTE UM INTERFACE;NES-TE CASO, BASTARIAM AS INSTRU-COES DE""OUT"" PARA SELECCIONARAS CARACTERISTICAS." bz  6000p AT=13 :u:L$="NA CONTINACAO O SINTETIZADORPRODUZIRA O SOM, DEIXANDO OPE-RATIVA A CPU. EXISTEM INTERFA-CES SONOROS E POLIFONICOS PARAO SPECTRUM QUE APROVEITAM ES-TA POSSIBILIDADE. ALGUNS ATE""FALAM""" z  6000p  AT=13 :u:L$="COMO SE PODE OBSERVAR NO DIA-GRAMA DE BLOCOS, A ULA CONTRO-LA TANTO O ALTIFALANTE COMO ASENTRADAS MIC E EAR; ISTO FAZCOM QUE SEJA POSSIVEL A AMPLI-FICACAO DO SOM: ":7000X z 6000p u:L$="BASTA LIGAR MEDIANTE UM CABO ATOMADA EAR COM A ENTRADA DUMAMPLIFICADOR (POR EXEMPLO, AENTRADA ""AUX"" DO STEREO).TENTAFAZE-LO ANTES DE VIDEOBREAK E....LOGO ESCUTARAS O MAGNIFICOSOM!!!" AT=13 : z  6000p  1400x ;3:1:7:P=10 :at=15:l$="" u:z BP=10 :6000p L/AT=15:u:P=11 :L$="":7000X  6000p u L$=""  7000X:6000p 5000:L$="" F7000X:6000p x~0:5000:L$="BEM, "+N$+";":AT=14:7000X:AT=16:L$=" QUERES VER DE NOVO ? (S/N) ":7000X /1:0:="S"P=1:100d 0="N"0:4:0::1500  1450 ܇9999':A=120:#1;1;1;(A/2-(A/2));" POE EM MARCHA O GRAVADOR ":A:40( +4:254<1921510 :4:9998':"" @3:1:A=13 20:A,1;S$("3"):A  01;6,A;" ";7,A;" ": zu#1;1;0,0;" ""5"" PAGINA ANTERIOR  ""8"" PAGINA SEGUINTE" (9999':10 :""6100 u#1;1;0,0;" ""5"" PAGINA ANTERIOR  ""8"" PAGINA SEGUINTE" I236066\,85U:236077\,123{:10 :""6100  6000p 19998':="8"P=P+1:"":P*100d 8#="5"P=P-(P>M):"":P*100d  6000p btA=1̱L$:AT+((A-1)/30),1+(((A-1)/30)-((A-1)/30))*30;L$(A) l&0.002xn*(L$(A)" "),0:A: @( A=110 :0.05|L,A:A: !>L$=" ULA CPU":3,7;8;8;"TV TECL.";10 ,0;"MIC EAR":A=15:8;A+2,17;L$(A);A+2,28;L$(A+6):A:8530R!: !R/A:L$,F$:L$,F$:P=1100000CP:l$ !W L$="255" !\0,l$:l$ !a L$="255" !fl$,0:P !"25","125","-24","-10","3","-6","-6","6","3","20","3","6","-6","-6","3","-10","10","53","-1","1","-1","1","-1","1","6","-1","-1","-1","-1","-1","-1","50","40","25","-50","-25","10","0","-10","25","23" !b"1","1","1","1","1","1","1","1","1","1","1","1","1","1","1","1","1","-5","43","5","1","-1","1","-1","1","-1","1","-1","1","-1","1","-1","1","-1","1","-1","1","25","25","-50","-25","25","-1","-1","-1","-1","-1","-1","-1","-1","-1","-1","-1","-1","-1","-1","-1","-1","-1","5","-43","-5","-1","1","-1","1","-1","1","-1","1","-1","1","-1","1","-1","1","-1" !A"1","-1","-23","-25","20","-64","20","10","13","-20","-13","10" !D"-14","-1","-1","-1","-1","-1","-1","6","1","-1","1","-1","1","-1" !A"-6","64","10","-29","10","20","13","-42","-13","22","-10","18" !>"-1","-1","-1","-1","-1","-1","6","1","-1","1","-1","1","-1" !"255" !Y8605!:223,129:A=17:L$:0,l$:l$:l$,0:A #'>9999':1,18;1;"drive impres.": '/236066\,86V:236077\,123{: '"23606",ç:"23607","60": sbNuzXS m pLBASTA LIGAR MEDIANTE UM CABO ATOMADA EAR COM A ENTRADA DUMAMPLIFICADOR (POR EXEMPLO, AENTRADA "AUX" DO STEREO).TENTAFAZE-LO ANTES DE VIDEOBREAK E....LOGO ESCUTARAS O MAGNIFICOSOM!!!DCAR HARD 8|,-$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0 _"31969":z=ç:u=::"23609","20":"23658","8":"""31970":""F$():"23606",z:"23607","124":ڰ"7":z::ڰ"8":u;"10",z;" PARA O GRAVADOR ":I=Z̰"10":װ".01","I*5":I dF"23675","66":"23676","124":ٰ"9":CEN=Z:OP=U:"100":a="127" i"23296"=a"160" n:"10","3";"ESCREVE O TEU NOME NO TECLADO E PRIME":n$::"10","4";"ESTA BEM ESCRITO ? (S/N)";"6","15-N$/2";U;" ";N$;" " ="N""110" "S"130 .i=u̱n$+u+u:23295Z+i,(a+n$+a)(i):i .n$="":i="23297"̰"1e6":ian$=n$+¾i:i ^ٰ"9":b$=" ":U="1":Z=U-U:RR="8150":TX="8300":IN="8400" 1RC=U:ڰ"8":A$=" SCREEN$-ATTR":"8410":tx:rr fw$=" ":u::ڰ"8":i=z̰"31":ں"i/10+3";i-"(i/10)*10";:i:i=ṵ"21":w$()=i:ڰ"5";i,z;w$:i 4.:i="5"̰"14":t$:ڰ"6";u;i,"10";t$;:i HJn="4":a="105":b="89":"75","51":n;a,z:n;z,b:n;-a,z:n;z,-b f"COLIBRICOPO","IECANTAAS","MESGSL","ATEM","CBURLADOR","UUE","ORCASIA","ORTRAS","HESITADO","ROASSOS" Du:"2300":i=ṵ"5":a,b:"21",z;ڰ"*7";z;"(";A;",";B;");", `7z,"(21.5-a)*8":b*"8",z:"8*b+4","175":z,-"a*8" j'"19","i+14";7;u;"BASIC"(I) tHa,b;u;" ":RR:z,"(21.5-a)*8":b*"8",z:"8*b+4","175":z,-"a*8" ~ A,B;" ":i 9"9","14","6","18","13","12","5","16","9","11" )ڰ"7":ڰ"8":A$=" ATTR":"8410":TX:RR rٰ"9":Z:"4000":in:t$=" ":i=z̰"11":t$():t$(u)-"48",t$(u+u)-"48";ڰt$("3");t$("4"):i 0"232FLASH 128","433BRIGHT 64","634 32","734","834PAPER 16","934",":34 8","<35 4","=35",">35INK 2","?35","@35 1" :eI=ZU+UU+U:ذ"215","100","26-I":I:i=ṵ"4":ڰ"5";"17-i","22";""(i);"30";"0700"(I):I wڰ"4";u,z;"EX. FLASH 0/PAPER 4/BRIGHT 1...";U;Z,Z;"INDICA UM ATRIBUTO ";I$:I=ṵ"19":i,u;z;u,z;" ":i 4"20",U;U;"""F"" PARA TERMINAR":I$="F""5000"  Oi$<"2"#Z;Z,Z;U;" ATRIBUTO NAO VALIDO-OUTRA VEZ",:U,Z:"100":"4600" Ka=(i$(u)=""i$(u)="")(i$(2)="0"i$(2)="1"i$(2)="8")  ?aa=(i$(u)=""i$(u)="")(i$(2)"0"i$(2)"9") %ai$="":"4620" *ja="8":a:a:a:a:(i$(u)-"201");°i$(u+u);"8","25";" @ ";"9","25";" ~| ";"10","25";" \] " \3a=("10","26"):b=a:k="128":i="2"̰"16"u+u f7"12"+"4312"(i$-"216"),"22";i$(u);"30";i$(u+u) pa"2"N<"29"1;"8",N;A$(N-2) hN rG8,30;" ";9 ,30;" ";10 ,30;" " | 7:"" *"7",U;:T$="ESCOLHE, "+n$+":":"8330" }"11","6";"F FIM";"13","6";"I VOLTA AO PRINCIPIO";"15","6";"C PASSO P/A PARTE";"16","6";" SEGUINTE" t$=:t$="F"  t$="I" t$="C""8000"  "8090" '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) v1"8330":T$="30"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)="`"N$: T$(N)="&"'U''" ";: T$(N)="#"P="8": T$(N)="^""#"; 6T$(N)"^"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: ڌ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;: !*`a$:a$x="A$(u)-48":y="A$(u+u)-48":b=A$("3"):t$()=a$(4):y,x;B;t$:"8490" !/xl !4;x="x*8-3":y="165-y*8":x,y:xl,z:z,yl:-xl,z:z,-yl: &HP"M";1;"BEPATRSCIN":*"M";1;"BEPATRSCIN":*"M";1;"BEPATRSCIN" zuLAS FUNCOES E SERVEM PARA OBTER INFOR-MACOES RELACIONADAS COM OCONTEUDO DO ECRAN.%% EM CONCRETO& &SCREEN$ (fila,coluna)& &DEVOLVE O CARACTER QUE NOECRAN OCUPA A LOCALIZACAOINDICADA PELAS COORDENADAS(fila, coluna).% %O DIRECIONAMENTO E IDENTICOAO DA COMPLEMENTAR < PRINTAT...>, PELO QUE& &PRINT AT 5,9;"A" LET B$=SCREEN$ (5,9)& &ESTABELECE A VARIAVEL COMO CARACTER .% %O ARGUMENTO DE DEVEENCERRAR-SE SEMPRE DENTRO DEPARENTISIS. SE A LOCALIZACAOINDICADA NAO CONTEM CARACTE-RES VALIDOS (PORQUE POR EXEM-PLO HAJAM SIDO ALTERADOS POR OU POR INSTRUCOESGRAFICAS) E DEVOLVIDA UMA CA-DEIA VAZIA.# # SERVE EM TROCA PARACONHECER OS ATRIBUTOS QUE CA-RACTERIZAM UMA DETERMINADA PO-SICAO DO ECRAN.% %JA QUE AS CARACTERISTICAS DECADA POSICAO DE IMPRESSAO ES-TAO INTEGRALMENTE CONTIDAS NUMSO BYTE, O VALOR DEVOLVIDOESTA COMPREENDIDO ENTRE 0 E255 E CONTEM TODAS AS INFORMA-COES QUE AFECTAM A PROPRIAPOSICAO. COMO...# #NAO E NECESSARIO ESFORCARES-TEMUITO PARA IMAGINARES QUE SEOBTEM COM A INSTRUCAO UM !...% %TODOS AQUELES SONS QUE AMENI-ZAM AS DISTINTAS FASES DEVIDEOBASIC, FORAM OBTIDOS ME-DIANTE ESTA INSTRUCAO. ASSIM:& &BEEP duracao,tom& &PRODUZ UMA NOTA CUJA EXPRESSA-SE EM SEGUNDOSE O SEU NUM NUMERO DESEMITONS.% %EM CONCRETO, UM TOM:& &<0> produz o central; <1> produz um ; <2> produz um E ASSIM SUCESSIVAMENTE. A ESCALA TAMBEM SE EXTENDEABAIXO DO CENTRAL; COMEFEITO:& &<-1> produz SI <-2> produz SIb <-3> produz LA& & E ASSIM SUCESSIVAMENTE.% %E POSSIVEL OBTER VALORES IN-TERMEDIOS TANTO EM FREQUENCIACOMO DURACAO ESTABELECENDOOS PARAMETROS DECIMAIS.& &BEEP 0.34,1.5& &GERA UM SOM COM DURACAO DE0.34 SEGUNDOS COMPREENDIDOSENTRE DO^ E RE. MELHOR QUE MAIS EXPLICACOES,SERA O PROGRAMA DE COMPOSICAOMUSICAL QUE VEM A SEGUIR... # #[t$eal  'l c NB A SCREEN$-ATTRTEM CONCRETO& &CAR LING 1 | "$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" > E SERVEM PARA OBTER INFOR-MACOES RELACIONADAS COM OCONTEUDO DO ECRAN.%% EM CONCRETO& &SCREEN$ (fila,coluna)& &DEVOLVE O CARACTER QUE NOECRAN OCUPA A LOCALIZACAOINDICADA PELAS COORDENADAS(fila, coluna).% %O DIRECCIONAMENTO E IDENTICOAO DA INSTRUCAO COMPLEMENTARPRINT AT...>, PELO QUE& &PRINT AT 5,9;"A" LET B$=SCREEN$ (5,9)& &ESTABELECE A VARIAVEL COMO CARACTER .% %O ARGUMENTO DE DEVEENCERRAR-SE SEMPRE DENTRO DEPARENTISIS. SE A LOCALIZACAOINDICADA NAO CONTEM CARACTE-RES VALIDOS (PORQUE POR EXEM-PLO TENHAM SIDO ALTERADOS POR OU POR INSTRUCOESGRAFICAS) E DEVOLVIDA UMA CA-DEIA VAZIA.# # SERVE EM TROCA PARACONHECER OS ATRIBUTOS QUE CA-RACTERIZAM UMA DETERMINADA PO-SICAO DO ECRAN.% %JA QUE AS CARACTERISTICAS DECADA POSICAO DE IMPRESSAO ES-TAO INTEGRALMENTE CONTIDAS NUMSO BYTE, O VALOR DEVOLVIDOESTA COMPREENDIDO ENTRE 0 E255 E CONTEM TODAS AS INFORMA-COES QUE AFECTAM A PROPRIAPOSICAO. COMO...# #NAO E NECESSARIO ESFORCARES-TEMUITO PARA IMAGINARES QUE SEOBTEM COM A INSTRUCAO UM !...% %TODOS AQUELES SONS QUE AMENI-ZAM AS DISTINTAS FASES DEVIDEOBASIC, FORAM OBTIDOS ME-DIANTE ESTA INSTRUCAO. ASSIM:& &BEEP duracao,tom& &PRODUZ UMA NOTA CUJA SE EXPRESSA EM SEGUNDOSE O SEU NUM NUMERO DESEMITONS.% %EM CONCRETO, UM TOM:& &<0> produz o padrao ; <1> produz um ; <2> produz um E ASSIM SUCESSIVAMENTE. A ESCALA TAMBEM SE EXECUTAABAIXO DO PADRAO; COMEFEITO:& &<-1> produz SI <-2> produz SIb <-3> produz LA& & E ASSIM SUCESSIVAMENTE.% %E POSSIVEL OBTER VALORES IN-TERMEDIOS TANTO EM FREQUENCIACOMO DURACAO ESTABELECENDOOS PARAMETROS DECIMAIS.& &BEEP 0.34,1.5& &GERA UM SOM COM DURACAO DE0.34 SEGUNDOS COMPREENDIDOSENTRE DO^ E RE. MELHOR QUE MAIS EXPLICACOES,SERA O PROGRAMA DE COMPOSICAOMUSICAL QUE VEM A SEGUIR... # #MUSICA q2#s  EDICOES LATINAS  Ta$(a)=21+1+22+a+1+19+1+" " i=in /t/f$(2,i),f$(1,i)-128+ton ""1600@ i  note=f$(1,b)-128 $cnt=note-(note/12 )*12 :dur1="12.3...4.......5...............6"(f$(2,b)) p=(b-top)*2 4l=7-o$(cnt+1,1+(note>11 )) .cnt=o$(cnt+1,3+(note>11 )) "}n8;1;l,p;m$(dur1,cnt,2);l+1,p;m$(dur1,cnt,34);l+2,p;m$(dur1,cnt,5) , JK="#"p3>31710:ton=ton+1:p3=p3-1:1710 TL="b"p3<181710:ton=ton-1:p3=p3+1:1710 ^K="l"p2<181720:t=t*1.16zH:p2=p2+1:1720 hJ="r"p2>31720:t=t/1.16zH:p2=p2-1:1720  '1;1;p3,8;"<--": (1;1;p2,20;"-->": 'atopatop+14for2070 top=a-3a<4 1,0,, i=15 $"________________________________" i ,,,,,, b=toptop+14 b>n2075 1500:Escr.  b  2072 flagfor1500 !i=36:Evidenc.  A0;1;i,last;" ";1;i,(a-top)*2;" " %i (last=(a-top)*2 *  _20,0;1;" | z| x| c| v| b| n| m" lastd=16 p=0:a$="" last=p:flag=p:for=p:lastc=p a=1:top=a G0,0;5;" <- / ent ";0,16;"Ultima.. ", g19,0,19,0;5;"Oitava... ";(oct-127)/12 ,3;" (7/6)", N11 ,0;" ";1;"COMANDOS";11 ,16;"V A L O R E S" " Ve a: (g)"'" Insere(i)"'" Repete(a)","o "'" Modifi(q)"," "'" Fim (e)"'" Canc (d) ","1 2 3 4 5" ;x=3:y=30:l=76L:h=62>:6950& &x=123{:l=112p:6950&  2022 +lastclastc,1;1;" " for=0:flag=for n3240 & a>na=n 00,24;a, :a$=""0:i$= ?ڰ"8";19,22, bi$13 3220 ga$="" la=a+1:a>na=n vnote=f$(1,a)-128 N1/f$(2,a),note:#ç;,ç;ܼ;"BEEP ";"1/f$(2,a)";",";note,, 2000 /a=n19,22;ڰ"8";1;"FIM", i$"a"a$=""3320 a$(14) a$="1" lastc=14 a=n dur=4 5000 Oflag=1n1570":f$(2,a)=(dur):b=a:1500:3270 kflag=2a=a+1:f$(1,a)=(i+oct):f$(2,a)=(dur):b=a:n=a:2000:3270 $1;lastc,1;" " i$="g"a$="":a$(12 ):lastc=12 :"Ve a nota... ";i$:i$k=̱i$:i$(k)"0"i$(k)"9"k:a=i$:an2000 i$="e" 7i$=8a$="":a=a-1a=1:2000 *i$"q"n=ç3440p / 5300 4a$(15):lastc=15 > for=1 H 5000 Rb=a:1500 \$flag=1f$(2,a)=(dur) f<flag=2f$(1,a)=(i+oct):f$(2,a)=(dur) k 1500 zi$"i"n>m3540  5300 a$(13 ):lastc=13 a$="" for=1 i=na-1 Nf$(1)(i+1)=f$(1)(i):f$(2)(i+1)=f$(2)(i) i n=n+1 5000 0f$(1)(a)=(i+oct):f$(2)(a)=(dur) 2000 i$"d"a=3630. 5300 a$(17):lastc=17 a$="" for=1:Forca pagina i=an-1 Nf$(1)(i)=f$(1)(i+1):f$(2)(i)=f$(2)(i-1) i n=n-1:a>na=n $b=a ) 2000 . 3080  a>ma=m  i=13 ?19,8;8;" ";(oct-127)/12 ;" " 0,24;a, "0:i$=:i$=""5040 flag=0 2i$="7"oct<"175"oct=oct+12 :5020 1i$="6"oct>"79"oct=oct-12 :5020 i$<"1"i$>"5"5160( dur="1248@P"(i$)-480 flag=1 p1=12 +i$*3  j=11 16 .1;j,lastd;" ";1;j,p1;" " j # lastd=p1 (i$<"b"i$>"z" 27i="743//68/://;9////1//5/2/0"(i$-97a)-47/ <i Fflag=2 PC.4L,i+oct-128:#ç;,ç;ܼ;"BEEP .4,";i+oct-"128", Z i=15 *.005y# =,12 :.005y# =,17 i  z :9 <x=480:y=30:h=120x:l=7:6950& %x=192:y=30:6950& <x=4:y=4:l=100d:h=160:6950& x=144:6950& Hi=3182:1;i,6;"-";i,24;"-":i F1,2;1;" TOM ";1,20;" TEMPO " C3,3;1;" # ";3,26;2;"RAP." E10 ,3;1;" - ";10 ,26;4;"MED." E17,3;1;" b ";17,26;5;"LEN." =i="1" T#1;0,0;"Estabelece com<#>, , , prime ENTER" 1710:1720 .0:13 1600@:6905 6#1;0,0,,"Modifica a teu gosto..."  1000  &  CAIXA  03x,y:0,h:l,0:0,-h:-l,0 : #2(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:"23606",ç:"23607","60":"23658",ç:"32655":"6":"23675","144":"23676","127":"""a" #3 #7ç:ç:ç::ç:"10","5";ۼ;" PARA O GRAVADOR ":׼,"20":"150":m="97":f$(2,100d):y$("10"):new=ç:ch=ç:n=cH #Fo$(12 ,4) #Pm$(5,4,5) #Z&j=14:i=15 #d m$(i,j) #ni:j #i=112 #o$(i) #i #'oct=127:t=1:ton=0 #p3=10 :p2=p3 #0:1'" --- M U S I C A ---- " #m7,0;" Composicao.. 1"''" Nova musica. 2"''" Executa..... 4"''" Fim ....... 9" #"Escolhe ... ";i$ #i$="1"3000 #i$="2""Estas seguro ? (s/n) ";i$:i$="s"n=0::ܼ;" USA AS DUAS ULTIMAS FILAS"," COMO NUM PIANO. ":"200":"3000" #i$="4"6000p $i$="9""7"::"11",ç;"-- POE EM MARCHA O GRAVADOR --":7:#1;"";0,0;:0:0:0:"" $ 9160# $" D A T A  $6!"o",""," "," "," " $@&" "," "," "," "," " $J!"o#","#","#","# ","# " $T'"","","","","" %XU"0321","0343","0412","0434","1421","1512","1534","2521","2543","2612","2634","3621" mad   en5 032103430412043414211512153425212543261226343621ko o# # # # # Z#cto astpaslaoastaoxyldh'uotnurAI |UDG p-r8D9D88||88||x@@@@@@@@@DHp`@@DHpdHp`8DDDx@8|||88|||x@$$~~$$~~$$@@@@@@@@EXERCICIOS2  EDICOES LATINAS  f(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 dCEN=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 1I=U:PN=U:A$=" SCREEN$ - ATTR - BEEP":"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 3"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"  ="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":"127-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 !"14",U;:"8450" " "8150" " "8600" "$u,u;:T$="AGORA, "+N$:"8330":U+U,u;:T$="ESCREVE AS INSTRUCOES SEGUNDOO QUE TE VA PEDINDO. DECERTOQUE NAO ENCONTRARAS GRANDESDIFICULDADES!":"8330" "`"8150":cen=u:"8470":ER=Z "e "9530" "j b$:ñB$ "t"14",u;:"8450" "#u+U,u;ٰ"6";b$;:x="23688/2-U" " i=u̱b$ "b$(i)=""B$(I)=""x=x+u "ER="9"c$=b$(i):"9040" #(&#z;z,z;u;"K":z:c$=¾"23560":"" #-,"23617",Z:C$=°"14""23617",U:"9000" #.C$<" ""9000" #2(i=uC$<""C$>"9"C$=(C$+165) #4+I>UB$(I-U)=""C$<""C$=(C$+"165") #Z/u+U,u;ٰ"6";c$;:"(32-23688+x)>31"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 #c$b$(i)u;"9","10";"ERRO !";"5",X;C$:U,"-18":"50":er=er+u:er<"3""9","10";U;"OUTRA VEZ !":"50":װ".1","20":"9","10",A$:"9000" #Wer="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 #KEr"100":"8","10";"OUTRA VEZ!":װ".5","32":"8470":ER=Z:"8850" # "8810" $ DATA  $h"VEJAMOS AGORA ALGUNS EXEMPLOSPRATICOS SOBRE AS FUNCOES DELEITURA DO ECRAN E A INSTRUCAO.","" $k"IF SCREEN$ (N-5,LEN X) ...","COMO SEMPRE, OS PARAMETROS PO-DEM PROPORCIONAR-SE ATRAVES DEEXPRESSOES.","" $·"LET A$=SCREEN$ (1.8,6.1)","TAMBEM , COMO TANTASOUTRAS INSTRUCOES,REQUER VALO-RES INTEIROS, PELO QUE <1.8>E <6.1> SERAO ARREDONDADOS AU-TOMATICAMENTE PARA <2> E <6>.","" $DŽ"IF ATTR (7,9)>=128 THEN..","A PRESENCA DO ATRIBUTO,AO TER COMO VALOR <128>, PODECOMPROVAR-SE COM TODA A FACI-LIDADE.","" $̴"IF ATTR (A,N)=56 THEN...","NORMALMENTE OS JOGOS DE VIDEOUSAM OS MESMOS ATRIBUTOS PARAOS OBSTACULOS, DE MANEIRA AQUE A SUA PRESENCA SE POSSACOMPROVAR MEDIANTE .","" $h"BEEP 1,0","ESTA INTRUCAO FAZ COM QUE OSPECTRUM EMITA UM COM DURACAO DE UM SEGUNDO.","" $u"BEEP -2,5","ERRO ! UMA DURACAO NEGATIVANAO TEM SENTIDO E PROVOCA AMENSAGEM < INTEGER OUT OFRANGE >.","" %9"" %: INTER %?f"(21,0)","IMPRIME O CARACTER CONTI-","DO NO CANTO INFERIOR ES-","QUERDO DO ECRAN.","" %Dh"(0,31)="" ""","SE O CANTO SUPERIOR DIREI-","TO DO ECRAN NAO CON-","TEM NADA ENTAO...","" %Ie"(0,0)128","SE O CANTO SUPERIOR ES-","QUERDO DO ECRAN ESTIVER","COLORIDO ENTAO....","" %NI"2,-2","TOCA-SE b PROXIMO AO","DURANTE DOIS","SEGUNDOS","" &G"" zut$eaNA SCREEN$ - ATTR - BEEP TaVEJAMOS AGORA ALGUNS EXEMPLOSPRATICOS SOBRE AS FUNCOES DELEITURA DO ECRAN E A INSTRUCAO.c Ha XCAR EXER |〧"$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >