ZXTape! 2-VIDEO BASIC (EDICOES LATINAS) - TAPE 1 SIDE AEDICOES LATINAS, LDA / JACKSON PORTUGUESSPECTRUM BASIC COURSENONE ORIGINAL TAPE20 TAPES COURSEVIDEOBASICta vg  EDICOES LATINAS,LDA.    col. SOFT. Amilcar  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???????889999999989:::888888888?88888888888888889999998888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888VIDEOLIST ~ *  SOFTIDEA * *Via Indipendenza 88* *22100 COMO T.240959* 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 (4:1000 * 8990# - SUMARIO 21::90102# 7.6,21 8;p$="VIDEOHARDWARE: ":K=8:9020<# 9:p$="o esquema de um computador ":k=9 :9020<# ::p$="o teclado do Spectrum ":k=10 :9020<# ;<p$="VIDEOBASIC-A LINGUAGEM: ":k=12 :9020<# <;p$="LET - PRINT ":k=13 :9020<# =<p$="VIDEOBREAK: ":k=15:9020<# >;p$="caleidoscopio ":k=16:9020<# ?<p$="VIDEOBASIC-A PROGRAMACAO: ":k=18:9020<# @;p$="o modo imediato ":k=19:9020<# A8200:1000::90102#:.6,18 F:p$="VIDEOTEST: ":k=8:9020<# G9p$="vamos fazer um teste sobre ":k=9 :9020<# H9p$="os temas da licao... ":k=10 :9020<# K;p$="VIDEO-JOGO: ":k=13 :9020<# L:p$="key-basket ":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 ,7;"ATRAVES DO TECLADO";11 ,8;"E PRIME ":n$ kv9 ,6;" ";10 ,8;" ";11 ,8;" " nZ10 ,5;" Esta bem escrito ? (s/n) ";11 ,6;n$; x=""120x ="s"Ŧ="S"200 h="n"Ŧ="N"10 ,5;" ";11 ,5;" ":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 MENSAGEM RATATIVA y$=" PRIME UMA TECLA PARA CONTINUAR":s$=y$:i=131:#0;6;2;1;1,0;y$:.001wn,30:"""": ?y$=s$(i)+s$(2i):F1,45-:F2,557:"""": i:1000  TEXTO  *a$=" OK "+n$+",":l=1:3000 Ma$="O objectivo e aprenderes o BASICdepressa e bem.":l=3:3000 za$="A minha tarefa e fazer com queo consigas de uma forma perfeitae o mais divertida possivel.":l=6:3000 a$="Le atentamente no livrinho quete fornecemos, o texto referentea licao respectiva, e faz todosos exercicios que o teu maravi-lhoso SPECTRUM, te proponha." l=10 :3000 kl=18:a$=" BOM TRABALHO,":3000 :l=20:3:a$=" Videobasic." 83000 :F1=.0004uQX:F2=.0006vIQ:1000 >1:a$=" COMECEMOS, "+n$+" !":l=1::3000 A$="O 'BASIC' E UMA LINGUAGEM INTER-PRETE QUE RESIDE NUMA MEMORIAESPECIAL DO TEU SPECTRUM, CHAMA-DA 'ROM'.":l=3:3000 a$="ESCREVENDO EM BASIC,PODES CONSE-GUIR QUE O TEU COMPUTADOR FACA OQUE DESEJARES. MAS E NECESSARIOQUE AS INSTRUCOES QUE LHE COMU-NICAS ATRAVES DO TECLADO SEJAMPRECISAS E FORMALMENTE CORRECTAS":L=7:3000 a$="PARA ISSO DEVERAS CONHECER MUITOBEM O TECLADO DO SPECTRUM. ASSIMEVITARAS OS ERROS QUANDO TECLASAS INSTRUCOES EVITANDO INCOMPRE-ENSOES ENTRE O INTERPRETADOR DOBASIC E TU PROPRIO." L=14:3000 `A$="COMECEMOS COM UMA OLHADELA PELAPARTE FISICA DO TEU COMPUTADOR. CHAMAR-LHE-EMOS HARDWARE." 2L=21:3000 :F1=ç:F2=ç:1000 4:8994"#:13 ,13 :22,0:0,30:-22,0:0,-30:11 ,0;" Para carregares VIDEOHARDWARE, poe em marcha o gravador " >zi=116:.04|# =,36$-i:i:7:236066\,0:236077\,60<:0,0;"":"" %RUTINA PARA MAQUINA DE ESCRIBIR `l,0;"";:q=1̱a$:a$(q);:a$(q)" ".0005vn,40(:m=1̥*5:m 4a$(q)=".".2~L,0:23692\,255 q: #LEE LOS 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&# #& #'RECUADRO #(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(#: #;MENSAJES ENTRANTES #lZY N akPno proximo numero... NAYCOMECEMOS COM UMA OLHADELA PELAPARTE FISICA DO TEU COMPUTADOR. CHAMAR-LHE-EMOS HARDWARE.S PRIME UMA TECLA PARA CONTINUARY RA CONTINUAR PRIME UMA TECLA PAR+CAR 8|~. SOFTIDEA(COMO)T.031-240.959 $$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0 o"31799":"23658","8":"23609","20":"""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 L"10",ç;" VIDEOHARDWARE curso de hardware " 5n=ç5.1}L:.01z# =,60<*((n)):n  90102#  "8990" d:''" OK "+N$+",":'" SEGUE COM ATENCAO ESTAS BREVES NOTAS SOBRE O HARDWARE DE UM COMPUTADOR." "290"  ç:ڰ"5": Fn="1"̰"9":n,"1";ڰ"6";ܰ"1";" ":n (Hn="11"̰"20":n,"1";ڰ"7";ܰ"1";" ":n 27"4","4":"247",ç:ç,"87":-"247",ç:ç,-"87" <8"4","92":"247",ç:ç,"79":-"247",ç:ç,-"79" F5"5","6";ٰ"7";ڰ"1";ܰ"1";"ESQUEMA DO SPECTRUM " PX="12":a$="O CORACAO DO SPECTRUM ENCON-TRA-SE NO INTERIOR DA SUA CAI-XA NUMA OUTRA CAIXINHA PRETA,QUE SE PODE ANTEVER ATRAVESDAS ABERTURAS POSTERIORES. CHAMA-SE 'CPU', QUE SIGNIFICA:UNIDADE CENTRAL PROCESSAMENTO":"220":"290" Z"5","6";ڰ"6";ܰ"1";" ":n="3"̰"7":n,"12";ڰ"3";" ":n:n=".001"̰".1"Ͱ".005":"4","13";٥*"8";ڰ"3";;"C.P.U.":n,"50":n:"4","13";ٰ"7";ڰ"3";"C.P.U." dX="13":a$="AQUI SE PROCESSAM, QUER DIZER,PROCURAM-SE, RECONHECEM-SE ESE EXECUTAM AS INSTRUCOES DOPROGRAMA QUE SE ENCONTRA NAMEMORIA.":"220" x"290" X="11":a$="A 'CPU' TROCA INFORMACOES COMA MEMORIA DO COMPUTADOR, RECE-BE OS DADOS DELA, ELABORA-OS EVOLTA A COLOCA-LOS NA MEMORIA." "220" ް"1";ڰ"3";۰"1";;ٰ"7";"3","11";" ";"4","11";" ";"5","11";" ";ڰ"7";ٰ"3";"6","11";" MEMORIA ";"7","11";" " @n=ç̰"30":װ".01",n:װ".01","60"-n:װ".01",*"60":n:"50" S a$="A MEMORIA E A PARTE DE TEUSPECTRUM QUE ACOLHE E CONSERVAAS INFORMACOES." x="16":Y="1":"240" "290" X="12":a$="HA DOIS TIPOS DE MEMORIA: *ROM (READ ONLY MEMORY) OU ME-MORIA DE LEITURA: A 'CPU' SO LHE PODE LER DADOS.TEM A VANTAGEM DE NAO DESAPA-RECEREM OS DADOS QUANDO SEDESLIGA O SPECTRUM.":"220":"290" X="12":a$="*RAM (RANDOM ACCESS MEMORY) OUMEMORIA DE LEITURA/ESCRITA: A 'CPU' PODE TOMAR OU METER DADOS NA MEMORIA, MAS ESTES PER-DEM-SE QUANDO SE DESLIGA OCOMPUTADOR. PARA INTRODUZIR ASINFORMACOES A ELABORAR E NE-CESSARIO UM DISPOSITIVO DE IN-PUT.":"220":"290" n="3"̰"7":n,"2";ڰ"1";" ":n:n=".001"̰".1"Ͱ".005":"5","3";٥*"8";ڰ"1";"INPUT":n,"30":n:"5","3";ڰ"1";ٰ"7";"INPUT" X="11":a$="O TECLADO E O DISPOSITIVO DEINPUT MAIS IMPORTANTE: ATRAVES DELE, PODES FAZER CHE-GAR A 'CPU' AS INFORMACOES AELABORAR." a$=A$+" OUTRO DISPOSITIVO DE INPUT E OGRAVADOR QUANDO TRANSMITE IN-FORMACOES DA CASSETTE PARA AMEMORIA DO COMPUTADOR.":"220":"290" X="13":a$="MAS PARA SER UTIL, O TEU SPEC-TRUM DEVE TRANSMITIR OS RESUL-TADOS DAS ELABORACOES DE MODOA QUE POSSAM SERVIR-TE. ESTA TAREFA COMPETE AOS DISPO-SITIVOS DE OUTPUT.":"220" n="3"̰"7":n,"22";ڰ"4";" ":n:n=".001"̰".1"Ͱ".005":"5","23";٥*"8";ڰ"4";"OUTPUT":n,"20":n:"5","23";ç;ڰ"4";"OUTPUT" "290" X="13":a$="OS TELEVISORES E MONITORES SAODISPOSITIVOS DE OUTPUT: ATRAVES DUM DELES O COMPUTADORMOSTRA-TE AS INFORMACOES ELA-BORADAS.":"220":"290" X="13":a$="TAMBEM A IMPRESSORA, E O GRA-VADOR, QUANDO RECEBE E ARMAZE-NA NA CASSETTE OS DADOS DOCOMPUTADOR, SAO PERIFERICOS DEOUPUT.":"220":"290" `n="11"̰"20":n,"1";ڰ"7";ܰ"1";" ":n:a$="> > >":"15","3";ٰ"7";ڰ"1";ܰ"1";" FLUXO DAS INFORMACOES ":n="1"̰"20":ڰ"6";ٰ"2";ç;"5","9";a$("1"̰"2");"5","20";a$("1"̰"2"):װ".01","20":װ".01","30":ڰ"6";ç;ٰ"2";"5","9";a$("2"̰"3");"5","20";a$("2"̰"3"):װ".01","50":װ".01","60":n Sx="15":a$=" QUERES VOLTAR A REVER ESTA LICAO? [S/N]":"220":I=̰"333" ="S""25" ="N""184" I:"180" ٰ"1":ڰ"7"::"189" ["10","4";ٰ"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:"210" ?"17",n;" ";"18",n;" ";"19",n;" ":װ".01","40":n  _Y=1:n=11 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=11 20:n,1;7;1;" ":n:x=11 :y=1 8a$(q)" ".001wn,40(:m=1̥*3:m a$(q)=".".2~L,ç q  "100":  "7":ڰ"7" "5"150":y$=" PRIME UMA TECLA PARA CONTINUAR":s$=y$ $di=131:#ç;6;2;1;1,ç;y$:.001wn,30:"""": %@y$=s$(i)+s$("1"i):װ".0004","45":װ".01","40":"""": & i:"291" ,Fç:N="11"̰"20":N,"1";" ":"":N: #LEITURA DOS UDG #,:"8991":n=ç63?:a:"a"+n,a:n: #00,31,16,16,18,16,16,491,0,248,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 #& #2."23296"="127"N="23297":N$="":"9012" #3 "9014" #4N="127""9020" #5N$=N$+¾N:N=N+"1":"9012" #6Q:10 ,5;"ESCREVE O TEU NOME NO TECLADO E PRIME " #7PN$:"50"::8,4;N$;10 ,5;"ESTA BEM ESCRITO ? (S/N)" #8="N""9014" #9="S""9019" #: "9016" #;IN=1̱N$:"23296"+N,N$(N):N:"23296"+N,"127":"23296","127" #<:SOFTIDEA Como  NaIڢMxy0/hHS PRIME UMA TECLA PARA CONTINUARY PRIME UMA TECLA PARA CONTINUAR PA/ QUERES VOLTAR A REVER ESTA LICAO? [S/N]yCAR 8|j[- ROBERTO$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0 u317997|:23658j\,8:236099\,20:""318008|:236066\,86V:236077\,123{ (6:0:6::K=6 ,n=05:.01z# =,n*10 :n (=10 ,0;1;" PARA O GRAVADOR " 2200:90102# <,:2,6;"O TECLADO DO SPECTRUM" F>A=20:B=150:C=12 :D=223:8000@ Z)A$="BEM "+N$+",":X=5:7000X dlA$=" O PROGRAMA SEGUINTE TEM POR OBJECTIVO FAZER ACOSTUMAR- -TE AO SPECTRUM.":X=7:7000X xRA$=" LE COM ATENCAO AS INSTRU- COES QUE SE SEGUEM.":X=11 :7000X QA$=" O PROGRAMA ESTA DIVIDIDO EM 3 FASES DISTINTAS.":X=14:7000X rA$=" PARA PASSAR DE UMA FASE PARA OUTRA E CARREGAR O PROGRAMA BASTA PREMIR .":X=17:7000X 7100 *:2,13 ;"FASE 1":7200  7300:K=7 A$=" A PRIMEIRA FASE SERVE PARA APRENDER A USAR AS LETRAS INDICADAS A BRANCO SOBRE AS TECLAS, COMO NUMA MAQUINA DE ESCREVER.":X=6:7000X TA$=" PRIME PARA OBTER AS MAIUSCULAS.":X=13 :7000X 7100 *:2,13 ;"FASE 2":7200  7300 sA$=" A SEGUNDA FASE INDICA COMO TECLAR OS COMANDOS OU SIMBO- LOS MARCADOS NAS TECLAS.":X=6:7000X A$=" PRIME PARA OBTER OS SIMBOLOS E CO- MANDOS MARCADOS A VERME- LHO.":X=13 :7000X  7100 *:2,13 ;"FASE 3":7200   7300 "A$=" NA TERCEIRA FASE DEVES SITU- AR-TE EM MODO EXTENDIDO PRE- MINDO SIMULTANEAMENTE E .":X=5:7000X ,jA$=" APARECERA UM PARA TE IN- DICAR QUE TE ENCONTRAS EM MODO EXTENDIDO.":X=9 :7000X 6A$=" ESTE MODO PERMITE OBTER OS SIMBOLOS E COMANDOS A VERDE, SITUADOS POR CIMA DAS TECLAS. PARA OBTER OS SIMBOLOS E CO- MANDOS A VERMELHO SITUADOS POR BAIXO DAS TECLAS, DEVES TAMBEM PREMIR .":X=12 :7000X ;8A$=" Consulta o VIDEOLIVRO":X=20:7000X @ 7100 Je:K=6:A$=" DESEJAS VOLTAR A VER AS INSTRUCOES? (S/N) ":X=6:7000X T="S"60< ^="N"370r h 340T rN:A$=" POE EM MARCHA O GRAVADOR E ":X=6:1:7000X:0 |=A$="CARREGA O PROGRAMA ":X=10 :7000X  6:"" W X y=1 ]q=1̱a$ bxx,y;K;1;a$(q);:y=y+1:y=31y=1:x=x+1:x=21400:x=11 :y=1 l8a$(q)" ".001wn,40(:m=1̥*3:m va$(q)=".".2~L,ç q  502: 8150:y$=" PRIMA UMA TECLA PARA CONTINUAR":s$=y$ di=131:#ç;6;2;1;1,ç;y$:.001wn,30:"""": @y$=s$(i)+s$("1"i):װ".0004","45":װ".01","40":"""": i:7120  ?A=95_:B=150:C=12 :D=60<:8000@: MN=420:N,1;7;" ":N <A=7:B=7:C=137:D=241:8000@  @`A,B:D,0:0,C:-D,0:0,-C:A+1,B-1:D,0:0,C: #2:23296[=127N=23297[:N$="":90124# #3 90146# #4N=1279020<# #5$N$=N$+¾N:N=N+1:90124# #6O:10 ,5;" ESCREVE O TEU NOME NO TECLADO E PRIME " #7SN$:502::8,4;N$;10 ,4;"ESTA BEM ESCRITO ? (S/N)" #8="N"90146# #9="S"9019;# #: 90168# #;XN=1̱N$:23296[+N,N$(N):N:23296[+N,127:23296[,127 #< ' kNabcdxy^a]RlY PRIMA UMA TECLA PARA CONTINUARS PRIMA UMA TECLA PARA CONTINUARAa PRIMA PARA OBTER OS SIMBOLOS E CO- MANDOS MARCADOS A VERME- LHO.CAR 8|. ROBERTO$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0 S"23606",ç:"23607","60":"23658",ç:"23609","20":ٰ"7":ڰ"7":"6"::"" (iç:"20",1;۰"1";" PARA O GRAVADOR ":n=ç̰"5":װ".05",n*"5":n:"9920":"100" 2\#ç;ç,ç;ڰ"1";ٰ"7";;" PRIME A TECLA PARA TROCAR DE FASE " #ٰ"7":"200","166":"48",ç:ç  "9810" <ç;ٰ"7";ç,"25";"FASE 1":n=ç̰"10":װ".01",n*"5":n ~cc="19":A$=" TECLA A LETRA REQUERIDA, USA PARA AS MAIUSCULAS ":"9800":"9900":"150":cc="20":"9810" K=(*"26") K1=(*"20") K1Ȱ"10"K=K+"65" K1<"10"K=K+"97" A$="TECLA "+K:"9800"  "6000" #LAST=K"9910":"9810":"1190"  LAST="32""2000" VI=A(K-"54"-("32"K>"96")) (FL="128":F="1" -#VI=A(K-"54"-("32"K>"96")) 2"1400":"5100" 7/KȰ"65"Kǰ"90"VI="23040":F="2":"5100" <"1":"400" A<FL=-"128":F="1":VI=A(K-"54"-("32"K>"96")):"5100" F/KȰ"65"Kǰ"90"VI="23040":F="2":"5100" n"9810":"1200" x "4000" 2A$="TU TECLASTE "+LAST+" ":"9800":"9810" (A$=" DEVIAS TER TECLADO "+K:"9800"   "9810" <ç;ٰ"7";ç,"25";"FASE 2":n=ç̰"10":װ".01","5"*n:n CC="19":A$=" TECLA AGORA OS COMANDOS E OS SIMBOLOS QUE ESTAO ESCRITOS SOBRE AS TECLAS.":"9800":"9900":"150":CC="20":"9810" K=(*"25")+"1" K1=(*"20") K1Ȱ"10"K=K+"26" &A$="TECLA "+B$(K):"9800":"6000" LAST="32""9810":"3000" .2LAST=K+"96"K1<"10""9910":"9810":"2200" `9B(K-("26"K1Ȱ"10"))=LAST"9910":"9810":"2200" aK1Ȱ"10""2500":"2200" e "4000" gVLASTȰ"97"LASTǰ"122"A$="TU TECLASTE "+B$(LAST-"96"):"9800":"9810":"2412" hKN="1"̰"26":B(N)=LASTA$="TU TECLASTE "+B$(N+"26"):"9800":"9810" jN l*A$="DEVIAS TER TECLADO "+B$(K):"9800" o+VI=A(K+"10"):FL="128":F="1":"5100" t"1":"400" ~FL=-"128":"5100" "9810":"2300" "4000" VLASTȰ"97"LASTǰ"122"A$="TU TECLASTE "+B$(LAST-"96"):"9800":"9810":"2600" KN="1"̰"26":B(N)=LASTA$="TU TECLASTE "+B$(N+"26"):"9800":"9810" N (*A$="DEVIAS TER TECLADO "+B$(K):"9800" +VI=A(K-"16"):FL="128":F="1":"5100" VI="23065":"5100" "200":"400" FL=-"128":"5100" VI=A(K-"16"):"5100" "9810":"2300" "9810" <ç;ٰ"7";ç,"25";"FASE 3":n=ç̰"10":װ".01",n*"5":n ׆cc="19":A$=" TECLA E PARA TROCAR O MODO DO CURSOR":"9800":"9900":"150":cc="20":"9810" K=(*"25")+"1" K1=(*"20") K1Ȱ"10"K=K+"26" A$="TECLA "+C$(K):"9800" "6000":LAST="32""9500" 'LASTɰ"14""4000":"4100":"3200" "4920":"6000" K1Ȱ"10""3700":"3200" H)LAST=K+"96""9910":"9810":"3200" R "4000" W!LAST<"97"LAST>"122""3422" \>A$="TU TECLASTE "+C$(LAST-"96"):"9800":"9810":"3430" ^KN="1"̰"26":B(N)=LASTA$="TU TECLASTE "+C$(N+"26"):"9800":"9810" `N f*A$="DEVIAS TER TECLADO "+C$(K):"9800" +VI=A(K+"10"):F="1":FL="128":"5100" "1":"400" FL=-"128":"5100" "9810":"3300" t,LAST=B(K-"26")"9910":"9810":"3200" ~*LASTȰ"97"LASTǰ"122""3800":"3730"  "4000" N="27"̰"52" GLAST=B(N-"26")A$=" TU TECLASTE "+C$(N):"9800":"9810":"3730" N *A$="DEVIAS TER TECLADO "+C$(K):"9800" #VI=A(K-"16"):FL="128":"5100" VI="23065":"5100" "1":"400" $VI=A(K-"16"):FL=-"128":"5100" VI="23065":"5100" "9810":"3300" )LAST=K+"96""9910":"9810":"3200" >"4000":A$="TU TECLASTE "+C$(LAST-"96"):"9800":"9810"  N="10"-"40"-"2" "1":װ".01",N:N "9810":"9930":"9810"  ,A$=" NAO MUDASTE O CURSOR ":"9800" )VI="23040":FL="128":F="2":"5100" VI="23065":F="1":"5100" ""1":"400" ,*VI="23040":FL=-"128":F="2":"5100" 6VI="23065":F="1":"5100" @ "9810" ^ 8A$="E":"9850": B A$=" ": FL1=FL:N=çF FL=FL+(VI+N)  VI+N,FL FL=FL1  FL=FL+(VI+N+"32") VI+N+"32",FL FL=FL1 N ( p "23617",ç z "23560",ç LAST="23560" LAST=ç"6020"  #( #2 # %n=ç̰"10":װ".01",n*"5":n:"9810":cc="19":a$=" QUERES CARREGAR O PROGRAMA SEGUINTE? (S/N)":"9800":"9900" %&="s"Ŧ="S""9600" %0="n"Ŧ="N""1000" %: "9510" %Lڰ"7":"7"::ݰ"1";"10",ç;" POE EM MARCHA O GRAVADOR ":ٰ"7":"" &Hڰ"6";ٰ"1";cc,ç;a$: &RL"100":n="19"̰"21":n,ç;ڰ"6";" ":n: &z۰"1";"21",ç;A$: &+n=ç̰"2":װ"0.3","10":װ".1","25":n: &װ".1","30":װ".1","50": &'"9921":n="a""a"+"47":a:n,a:n &<ç,"16","144","87","61","253","12","12","56","126","254","215","255","171","130","198","13","13","15","15","15","15","63","63","252","254","255","255","255","255","255","255","63","127","255","255","127","61","120","240","255","254","252","252","254","255","247","98" & &ee$=" ERRO!":n="1"̰"29":ڰ"6";ٰ"2";"19",n;" ";"20",n;" ";"21",n;" ":װ".005",n*"2" &?n>"11"n<"18"ڰ"2";ٰ"7";ܰ"1";۰"1";"20",n;e$(n-"11") &n: yabxw&sk4~\{}|][asfYfl$XXXXXXXXXXYZ ZYYYYYYYYYZZYYY YY YY ZYZYZ*?^-+=.,;"<>/`:4 NEW BORDER CONTINUE DIM REM FOR GO TO GO SUB INPUT LOAD LIST LET PAUSE NEXT POKE PRINT PLOT RUN SAVE RANDOMIZEIF CLS DRAW CLEAR RETURN COPY STOP * ? STEP >= TO THEN ^ AT - + = . , ; " <= < NOT > OR / <> ` AND : >READ BIN L PRINT DATA TAN SGN ABS SQR CODE VAL LEN USR PI INKEY $ PEEK TAB SIN INT RESTORE RND CHR $ L LIST COS EXP STR $ LN ~ BRIGHT PAPER \ ATN { } CIRCLE IN VAL $ SCREEN $ATTR INVERSE OVER OUT  ASN VERIFY | MERGE ] FLASH ACS INK [ BEEP FORMAT DEF FN FN LINE OPEN $ CLOSE $ MOVE ERASE POINT CAT E ERRO!ADEVIAS TER TECLADO CHR $ ZTECSCREEN @&/8999@<9888999~Bv\x@|H %~<~<~~~~<~~~<~<<<$b cHB'tDJw'x{888999$8x88DhEH@@H,%(rBNBB~@r@NBB~BFJ~>d(R4hBU>D>lETADB9$qq$rXw>rrgwur`8g8999@DD  DTeH@@H$%rN B(~|r|NB<~BJV$(S,XBWDTgWADs!4B"&STB(BETTF%P?9989998Dx  DTEH@@H@<9~<~~HrrBrrB~>R^$>*R$HBT>D>DFqAC"9,B"%rr>CEVve%`?998999 $x@  DTvHzzd 2~@~B~~rBrBrrB~b@~ &Db$Hz$wDDuWyDB $B#$bT BETDE'P?998999~Bx@< 8T>~~~<~~<~<~~<~<<<$>F: 9$q"$RXr>rrgGu%``8989@<$W<B~|B><|$t'gDwD:rKw|x)xrWwR'H'p#SE<$"NB<<x~<BD@KrWbDyrrruB&D!'WuR>w>#BB@B DLB''BB$TRUDTl*UjT@-HUdUZOThT@Q4Rm &RDw&wwa:s&8sI CKBw@Dw@rBB8H@j"ETRlBE$EDETD!(@EPU(D(QB@t\AAbHT<B'B"|rB(BURBBtRWDvT:uZvp+xuVwVOWXTpQ,SU %RDTUTBRB4U BTJB4J(BB<BE|%@M~Tp@>["uVRTbU%UuEUD! EU>t>QC@BATARhX$R@BA@| BVRB|DRVTdD2gJd@)@ETFROqHtq$RE $RDvUvrRrV8r\JC,K~rBw@%NKBB>H>@J*TRDBU%UEuD$! EW  qBaAAbXT<J'Z"@rDBVrB@G"e(WD+UKW@)HBWEROWHWpQ$#E $#dudSuKB$HBBD@%BIBBD@>wgKu'bDAr"rwrVt=u]%>w>QB@BAARHT( ?<$~B <%>R<@<BWVWrbsV8s2{{Br<xt@"JBD0VG( TEBD EHDU`JGPP0TDRG@DS UFI$  $ B$BFBrE0eu( TrBw:rJwpbTKE$P0%gtREDG8b"uI??~Bn< |BB0zTuR0t%?00(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((2(((((((((((((((((((((((((((((((424,6666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666660000000000000000000000000000000000000000000000000000000000000000VVARIAVEIS r*EDICOES LATINAS LDA* f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 7:7:7:317997|:236099\,20:23658j\,8:""318008|:236066\,86V:236077\,123{ Z11 ,0;6;2;1;1;" PARA O GRAVADOR " En=060<:.01z# =,n:.01z# =,60<-n:n:800  (2:7:0 2 9510&% Z39900&:t$="OK "+Q$+", COMECEMOS":1000 dx=3:y=2:t$="COM AS INSTRUCOES DO BASICQUE PERMITEM INTRODUZIR DA-DOS NA MEMORIA DO TEU SPEC-TRUM. ESTAS SAO MUITO POTEN-TES E UTILIZAM-SE COM FRE-QUENCIA EM CADA PROGRAMA.":1001  ix=11 :y=2:t$="ACTUAM SOBRE AS VARIAVEIS.AS VARIAVEIS (NOMES CONVEN-CIONAIS FORMADOS POR UMACERTA SEQUENCIA DE CARACTE-RES) TOMAM UM VALOR, QUE TU,COMO PROGRAMADOR OU UTILIZA-DOR DO PROGRAMA, DESEJES A-TRIBUIR-LHES." j 1001 l9000(#:9900& n]t$="O NOME DAS VARIAVEIS IDENTI-FICA UMA DETERMINADA ZONA DAMEMORIA, QUE CONTEM O VALORQUE UMA VARIAVEL POSSUI EMDETERMINADO MOMENTO. PARA SABER QUAIS E QUANTOSCARACTERES PODE SER COMPOSTAUMA VARIAVEL, LE PRIMEIRO OVIDEO-LIVRO E CONTINUA A SE-GUIR COM O VIDEO-BASIC PARAFALARMOS SOBRE A INSTRUCAO'LET'." o1000:9000(# w5:5::8,0;1; " VIDEOLIVRO: ""as variaveis""":''0;" PRIMA:";13 ,10 ;3;7;"R";5;0;" Repetir";15,10 ;3;7;"C";0;5 ;" Carregar " x="R"90Z ="C"150 120x 5A$=" POE EM MARCHA O GRAVADOR ":7:7: )N=029:.01z# =,N*2 >2;8,N;" ";9 ,N;" ";10 ,N;" " BN>2N<298,N;0;7;A$(N-2) N G8,30;" ";9 ,30;" ";10 ,30;" " N=013 @2;12 ,N;" ";13 ,N;" ";14,N;" " NA=30-N:4;12 ,A;" ";13 ,A;" ";14,A;" " :.05|L,0+10 *((N/2)=(N/2)):N  7:""  8:N=012 *8-1:A:"A"+N,A:N: *15,13 ,15,15,1,3,7,79O,224,96`,224,224,0,128,192,226,255,79O,7,3,1,1,31,31,255,226,192,128,0,0,240,240,31,31,1,1,15,8,28,8,240,240,0,0,224,32 ,112p,32 41,3,18,27,31,19,1,0,192,224,240,240,224,192,134,134,193,255,3,3,7,7,15,15,132,252,224,240,248,248,248,240,3,1,1,1,3,6,4,8,224,192,128,128,192,192,96`,16 x=2:y=2 j6:0:n=1̱t$:x,y;t$(n):t$(n)" ".001wn,40(:q=*4:e=1q:e 1y=y+1:y=30y=2:x=x+1 't$(n)=".".3,0:502 n  #(-y$=" PRIME UMA TECLA PARA CONTINUAR":s$=y$ #2Ji="1"̰"31":#ç;ڰ"6";٧-;ܼ;"1",ç;y$:װ".001","30":"""": #" %+SQ$:502::8,4;Q$;10 ,4;"ESTA BEM ESCRITO ? (S/N)" %,="N"9514*% %-="S"9519/% %. 9516,% %/XN=1̱Q$:23296[+N,Q$(N):N:23296[+N,127:23296[,127 %0 &2:2::n=120:n,1;6;" ":n:7:4,4:247,0:0,167:-247,0:0,-167:0 & 'b236099\,20:23658j\,8:236066\,86V:236077\,123{:20 xy/%q;@;@ a2#TVO NOME DAS VARIAVEIS IDENTI-FICA UMA DETERMINADA ZONA DAMEMORIA, QUE CONTEM O VALORQUE UMA VARIAVEL POSSUI EMDETERMINADO MOMENTO. PARA SABER QUAIS E QUANTOSCARACTERES PODE SER COMPOSTAUMA VARIAVEL, LE PRIMEIRO OVIDEO-LIVRO E CONTINUA A SE-GUIR COM O VIDEO-BASIC PARAFALARMOS SOBRE A INSTRUCAO'LET'.S PRIMA UMA TECLA PARA CONTINUARY UMA TECLA PARA CONTINUAR PRIMA UA POE EM MARCHA O GRAVADOR QCAR 8|k) ROBERTO$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0 iڰ"7":ٰ"7":"7":"23609","20":"23658","8":"31799":"""31800":"23606","86":"23607","123" Gç:"10",ç;ݼ;" PARA O GRAVADOR ":"9600":"150" d"9900":"5","14";ڰ"6";ٰ"1";"LET":"108","126":"30",ç:ç,"12":-"30",ç:ç,-"12":"109","125":"30",ç:ç,"12" x="9":y="2":t$="A INSTRUCAO 'LET' GUARDA AVARIAVEL QUE A SEGUE E O VA-LOR QUE SE ENCONTRA INDICADODEPOIS DO SIMBOLO '='. E O METODO MAIS SIMPLES PARAINTRODUZIR UM VALOR NA MEMO-RIA DO TEU SPECTRUM.":"1001":"9000" "9900":x="4":y="2":t$=" SE O VALOR A GUARDAR, E DOTIPO NUMERICO, A VARIAVELDEVE SER NUMERICA; SE O VA-LOR E DO TIPO TEXTO, DEVERA'SER UMA VARIAVEL TEXTO OUCADEIA, IDENTIFICADA PELOSIMBOLO '$'.":"1001" dX="14":Y="2":T$="VAMOS AGORA VER ALGUNS EXEM-PLOS PARA CLARIFICAR ESTESPRIMEIROS CONCEITOS." "1001":"9000" "9950" t$="LET A=237":x="5":y="10":"1001":"9600":X="14":Y="2":t$=" GUARDA NA VARIAVEL 'A' OVALOR 237 E LE-SE: 'A' RECEBE O VALOR 237.":"2005":"9000":"8000":"8010" T$="LET Z=(3.14*15/4)^2":X="5":Y="6":"1001":"9600":t$=" GUARDA NA VARIAVEL 'Z' OVALOR OBTIDO PELO CALCULO DAEXPRESSAO CONTIDA A' DIREITADO SIMBOLO = . LE-SE: 'Z' TOMA O VALOR DA EXPRES-SAO (3.14*15/4)^2.":"2000":"9000":"8000":"8010" T$="LET C=A+Z":X="5":Y="11":"1001":"9600":t$=" GUARDA NA VARIAVEL 'C' OVALOR DA VARIAVEL 'A' SOMADOAO VALOR DA VARIAVEL 'Z'. 'C' TOMA O VALOR DE 'A' MAISO VALOR DE 'Z'.":"2000":"9000":"8000":"8010" T$="LET T$=""TEMPO""":X="5":Y="9":"1001":"9600":t$=" GUARDA NA VARIAVEL DE CA-DEIA 'T$' O VALOR DE TEXTO'TEMPO'. E IMPORTANTE NOTARQUE O TEXTO DEVE ESCREVER-SEENTRE ASPAS ("""").":"2000":"9000":"8000" "8010":T$="LET D$="" DE "" ":X="5":Y="9":"1001":"9600":t$=" GUARDA NA VARIAVEL DE CA-DEIA 'D$' O VALOR DE TEXTO' DE '. ('DE' COM UM ESPACOANTES E DEPOIS DA PALAVRA).":"2000":"9000":"8000" "8010":T$="LET B$=""BASIC""":X="5":Y="9":"1001":"9600":t$=" GUARDA NA VARIAVEL 'B$' OVALOR DE TEXTO 'BASIC'.":"2000":"9000":"8000" "8010":T$=" F$=T$+D$+B$ SABERIAS DIZER O QUE CONTEM'F$'?. ESCREVE A RESPOSTA ETECLA .":X="3":Y="2":"1001" N"F$ = ";R$:R$="TEMPO DE BASIC""9600":"9","12";۰"1";"EXACTO":"254" 0۰"1";"9","11";" EQUIVOCADO :":װ"1",-"40" t$="VISTO QUE FORAM GUARDADAS NAVARIAVEL 'F$' A SOMA DOS VA-LORES DE TEXTO DAS VARIAVEIS'T$'+'D$'+'B$' PELA ORDEMINDICADA, 'F$' CONTEM AGORAO VALOR DE TEXTO 'TEMPO DEBASIC'.":"2000":"9000":"8000":"8010" t$="E AGORA, PARA VER SE FOMOSCLAROS, PROPONHO-TE UM TESTE ***FAZ O QUE TE PEDEM PREMINDO AS SEGUINTES TECLAS:":"1000" _ڰ"5":ç:"14","3";" para a instrucao 'LET' ";"15","3";" para a variavel " U"16","3";" para a express.numerica";"17","3";" para o texto " "18","3";"<=> <""> ou <$> para os ";"19","3";"caracteres correspondentes.";"20","3";"Nao esquecas SYMBOL SHIFT "  ڰ"7":ç:"23658",ç:"9000" W~"12","2";ڰ"7";" ":"8010":x="12":t$=" GUARDA UM VALOR NUMERICO ":"2000":"9600":ڰ"6" X="""600" Y"l""910" Z "5000" [="""603" \"v""910" ] "5050" ^="""606" _"=""910" ` "5080" a="""609" b"e""910" c "5110" lu"12","2";ڰ"7";" ":x="12":t$=" GUARDA UM VALOR DE TEXTO ":"2000":"9600":ڰ"6" v "8010" ="""640" "l""900"  "5000" ="""643" "v""900"  "5050" ="""646" "$""900"  "5140" ="""649" "=""900"  "5080" ="""652" """""900" ye="18":"5170" ="""655" "t""900" ="t""5210" ="""658" """""900" =""""ye="24":"5170" G"8010":n="1"̰"50":װ".001",n:"5","13";1;"BRAVO!"  "9000" """690" h"9900":ڰ"6":"7","4";"TECLA:";"9","5";"R para repetir";"11","5";"E para exercicios" M"13","5";"P para instrucao PRINT ";"15","5";"F para terminar" ="r""100"  ="f" ="p""800" ="e""9950":"260" "702"  Bڰ"7":"7"::"11",ç;ݰ"1";" POE EM MARCHA O GRAVADOR ! " "ڰ"7":ٰ"7":"7":"" "8010":"5","12";" ERRO":׼,-"5":"8010":re="2":"9100":"5000":"9101":"5050":"9106":"5140":"9104":"5080":ye="18":"9105":"5170":"9103":"5200":ye="24":"9105":"5170":"9000":"620" "8010":"5","12";" ERRO":װ"1",-"5":"8010":re="1":"9100":"5000":"9101":"5050":"9104":"5080":"9102":"5110":"200":"599" x="2":y="2" :ڰ"6":ç:n=̱t$:x,y;t$(n):t$(n)" "װ".001","40" !y=y+:y="30"y="2":x=x+ t$(n)="."װ".2",ç:"50" n  x="12":y="2" :ڰ"7":ç:n=̱t$:x,y;t$(n):t$(n)" "װ".001","40" !y=y+:y="30"y="2":x=x+ t$(n)="."װ".2",-:"20" n  Cװ".1","10":n="1"̰"9":"5",n;"LET":n>"1""5",n-"1";" " n: Gװ".1","20":n="1"̰"5":n,"13";"VAR":n>"1"n-"1","13";" " n: Jװ".1","30":n="30"̰"17"-"1":"5",n;"=":n<"30""5",n+"1";" " n: Oװ".1","40":n="9"̰"5"-"1":n,"19";"EXP.":n<"9"n+"1","19";" "  n: Iװ".1","25":n="9"̰"5"-"1":n,"17";"$":n<"9"n+"1","17";" " (n: <>װ".1","40":n="1"̰"5":n,ye;"""":n>"1"n-"1",ye;" " Fn: ZQװ".1","50":n="9"̰"5"-"1":n,"19";"TEXTO":n<"9"n+"1","19";" " dn: ABn="11"̰"20":n,"1";ڰ"7";" ":n B K@n="1"̰"9":n,"1";ڰ"6";" ":n L #(4t$="":y$="PRIME UMA TECLA PARA CONTINUAR ":s$=y$ #2Fi=̰"31":#ç;ڰ"6";ٰ"2";ܼ;,ç;y$:װ".001","30":"""": #<@y$=s$(i)+s$("1"i):װ".0004","45":װ".01","40":"""": #F i:"9010" #B"9210":۰"1";"14","4";"L":"9200":"14","4";"L":ڰ"6": #B"9210":۰"1";"15","4";"V":"9200":"15","4";"V":ڰ"6": #B"9210":۰"1";"16","4";"E":"9200":"16","4";"E":ڰ"6": #B"9210":۰"1";"17","4";"T":"9200":"17","4";"T":ڰ"6": #B"9210":۰"1";"18","4";"=":"9200":"18","4";"=":ڰ"6": #D"9210":۰"1";"18","8";"""":"9200":"18","8";"""":ڰ"6": #D"9210":۰"1";"18","14";"$":"9200":"18","14";"$":ڰ"6": #n=ç̰"100":n: # ڰ"5":ç: %!N=ç̰"10":װ".005",N*"6":N: &"2":ڰ"2": &n="1"̰"20":n,"1";ڰ"6";" ":n:ٰ"7":"4","4":"247",ç:ç,"167":-"247",ç:ç,-"167":ç & &ފڰ"5"::n="1"̰"9":n,"1";ڰ"6";" ":n:n="11"̰"20":n,"1";ڰ"7";" ":n &7"4","4":"247",ç:ç,"87":-"247",ç:ç,-"87" &:"4","92":"247",ç:ç,"79":-"247",ç:ç,-"79": &x y 2#SPRIME UMA TECLA PARA CONTINUAR Y RIME UMA TECLA PARA CONTINUAR PRTA INSTRUCAO 'LET' GUARDA AVARIAVEL QUE A SEGUE E O VA-LOR QUE SE ENCONTRA INDICADODEPOIS DO SIMBOLO '='. E O METODO MAIS SIMPLES PARAINTRODUZIR UM VALOR NA MEMO-RIA DO TEU SPECTRUM.CAR 8|5 ROBERTO$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >