ZXTape! 2-VIDEO BASIC (EDICOES LATINAS) - TAPE 2 SIDE AEDICOES LATINAS, LDA / JACKSON PORTUGUESSPECTRUM BASIC COURSENONE ORIGINAL TAPE20 TAPES COURSEVIDEOBASICr_#7 td *  SOFTIDEA (Como) * *Via Indipendenza 88* * Tel. 031-240.959 *  * * *  EDICOES LATINAS * * Av.Miguel Bombarda * * 133-2. Esq. LISBOA * * Telefone : 563320 * * * 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;" " @``~@2b*@)8y@@ <0 @a`@|xxx@y|xxaF@*TM@xC@B 0 @ad`@3@%&@ Ą`@)@@K8(88x@d@Bdx`@)8@ x@'~@ʵ@z 0@DD 0h`@@R 0@)@ @h@B< 08DD`98a@@ @(@ @n@`lBD (DDa@p@ M|xxx2* @*@ |x@@j@B<<$x8D@@l2*L@([@@ j@<~?   ~??  ~?    ??  ?  ???     ~    @~ ???  ?  ?! ?  ~      ???  ?  ?!@<(   ~     ' ??  ? 8 ?!b@?   ~!    <7< ?? ` ? <  m    ~# ?  x  | ?? 8  ?? ??  ~    ~#   ? x ?? 8? ???       ~?   w ? p ?? ? ???      c~8   1#7133D 9#;433 ~-#+<>3 ? '#+563p?`@###133~  qw{?  000000000000000000000000000000000000000000000000000000000000000000000000001111111111111022200000000000000211111111111112222000000000000002222211122222222220000000000000028288888882222222200000000000000000000000000000000000000666666666000000000066000000000006660088888888888888888880666660000000888===============8000000088888888?===============8888888888888888?<<<<<<<<<<<<<<<8888888888888888?;;;;;;;;;;;;;;;8888888888888888?;;;;;;;;;;;;;;;8888888888888888?:::::::::::::::8888888888888888?:::::::::::::::8888888888???888888888888888888:8888888888???8888????88?????::::8888888888???????889999999989:::888888888?888888888888888899999988888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888886VIDEOLIST k m*  SOFTIDEA (Como) *  * * *  EDICOES LATINAS * * Av.Miguel Barbosa * * 133-2.Esq. LISBOA * * Telefone : 563320 * * * 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$="todos os perifericos ":k=9 :9020<# ::p$="do Spectrum ":k=10 :9020<# ;<p$="VIDEOBASIC-A LINGUAGEM: ":k=12 :9020<# <;p$="INPUT - LIST - RUN ":k=13 :9020<# =<p$="VIDEOBREAK: ":k=15:9020<# >;p$="concerto do computador ":k=16:9020<# ?<p$="VIDEOBASIC-A PROGRAMACAO : ":k=18:9020<# @;p$="o primeiro programa ":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$="Spry Wars ":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 ,9 ;" NO TECLADO";11 ,8;"E PRIME ":n$ kn9 ,7;" ";10 ,9 ;" ";11 ,9 ;" " nK10 ,7;" Esta bem escrito ?";11 ,8;n$;" (s/n)" x=""120x ="s"Ŧ="S"200 h="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 LETREIRO 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&# #& #'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(#: #;ROTULOS INICIAIS #>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0:"31799":23675{\,88X:23676|\,127:"23658","8":"23609","20":"""23383":"""31800":"23606","86":"23607","123":ڰ"6":"6":ç:ܰ"1": FL=:"10",ç;FL;" 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  w=0  "9010" "23675","87":"23676","91" i:''"BEM "+n$+",":'"SEGUE COM ATENCAO ESTAS EXPLI-CACOES SOBRE OS PERIFERICOSDE UM COMPUTADOR." "290" ç:ڰ"5":ٰ"1":  "23675","87":"23676","91" Gn="1"̰"13":n,"1";ڰ"6";ܰ"1";" ":n (Hn="15"̰"20":n,"1";ڰ"7";ܰ"1";" ":n 27"4","4":"247",ç:ç,"55":-"247",ç:ç,-"55" <:"4","60":"247",ç:ç,"111":-"247",ç:ç,-"111" FY"10","13";"";"11","13";"";"12","13";"";"13","13";"" Px="15":a$="O TEU SPECTRUM PODE SER O CEN-TRO DE UM SISTEMA DE APARELHOSELECTRONICOS, ATRAVES DO QUALPODES DESCOBRIR MUITISSIMASFUNCOES.":"220" Q"290" R;fl:"10","4";ڰ"6";ܰ"1";ٰ"1";"";"11","4";"" S2"103","83":-"47","0":"11","9";ڰ"6";"<" Tfl="0""90" U۰"0":x="16":a$="O TELEVISOR E OU MONITOR SAOAPARELHOS DESTINADOS A VI-SUALIZACAO DA INFORMACAO PRO-VENIENTE DO TEU SPECTRUM.":"220":"290":fl="0":"82" Z"300" \5fl:"3","8";"";"4","8";"";"5","8";"" ]D"107","96":"0","11":-"32","0":"0","21":"8","10";"" ^fl="0""100" _۰"0":x="15":a$="O GRAVADOR E A MEMORIA DE BASEMAIS UTILIZADA. E INDISPEN-SAVEL PARA ARMAZENAR DADOS EPROGRAMAS QUE SE PERDERIAMQUANDO APAGASSES O SPECTRUM.":"220":"290":fl="0":"92" d"300" f1fl:"5","12";" ";"6","12";" " g+"131","96":"0","31":"7","16";"^" hfl="0""110" i۰"0":x="15":a$="AS IMPRESSORAS UTILIZAM-SE PA-RA ESCREVER SOBRE O PAPEL NU-MEROS E TEXTOS. A SUA VELOCI-DADE DE IMPRESSAO VARIA DESDEMENOS DE 30 ATE A MAIS DE 400CARACTERES POR SEGUNDO.":"220":"290":fl="0":"102" n"300" p-fl:"5","21";" ";"4","21";" " qC"147","96":"0","11":"40","0":"0","20":"8","20";"" rfl="0""120" s۰"0":x="15":a$="O MICRODRIVE E UMA MEMORIA DEMASSA MUITO MAIS VELOZ QUE OGRAVADOR. EXISTEM TAMBEM IN-TERFACES PARA CONECTAR UNIDA-DES DE DISCO.":"220":"290":fl="0":"112" x"300" z+fl:"11","25";"";"10","25";"" {,"152","83":"47","0":"11","21";"" |fl="0""130" }۰"0":x="16":a$="GRACAS AO MODEM, PODES TRANS-MITIR DADOS E PROGRAMAS ATRA-VEZ DA LINHA TELEFONICA.":"220":"290":fl="0":"122" |n="1"̰"9":n,"1";" ":n:n="10"̰"13":n,"1";" ";n,"19";" ":n !"23675","88":"23676","127" "400" "300" +fl:"8","2";" ";"9","2";" " 6"107","96":"0","3":-"52","0":"9","9";">" fl="0""160" ۰"0":x="16":a$="O LAPIS OPTICO E CAPAZ DERECOLHER INFORMACAO DO ECRANDO TELEVISOR, ASSIM COMO DESE-NHAR NO MESMO.":"220":"290":fl="0":"152" "300" ;fl:"3","11";"";"4","11";"";"5","11";"" +"107","96":"0","31":"7","13";"^" fl="0""170" ۰"0":x="16":a$="O PLOTTER E UM DISPOSITIVOQUE PERMITE DESENHAR GRAFICOSDE ALTA RESOLUCAO SOBRE PAPEL.":"220":"290":fl="0":"162" "300" Afl:"3","17";" ";"4","17";" ";"5","17";" " +"147","96":"0","31":"7","18";"^" fl="0""180" ۰"0":x="16":a$="O ROBOT PODE CONSIDERAR-SECOMO O BRACO MECANICO DO COM-PUTADOR, MEDIANTE O QUAL PODEMOVER DIVERSOS OBJECTOS.":"220":"290":fl="0":"172" "300" <fl:"8","25";" ";"9","25";"";"10","25";" " 6"147","96":"0","3":"56","0":"9","22";"<" fl="0""190" ۰"0":x="16":a$="O JOYSTICK E UM DISPOSITIVO DEENTRADA QUE TE FACILITA A IN-TRODUCAO DE DADOS. UTILIZA--SE MUITO FREQUENTEMENTE NOSJOGOS.":"220":"290":fl="0":"182" Gx="16":a$=" queres repetir esta licao ? (S/N)":"220" +װ".001",*"30"+"30":="s"Ŧ="S""25" ,װ".001",*"30"+"30":="n"Ŧ="N""200" "193" "196" ٰ"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  _______________________  My="1":n="15"̰"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" ,fl="1":ܰ"1":ڰ"6":  '"400":n=ç̰"159":a:"a"+n,a:n: p"0","31","16","16","18","16","16","49","0","248","8","8","72","8","8","204","80","144","63","32","63","2","2","2","10","9","252","4","252","64","64","64","2","4","4","8","8","56","121","1","64","64","64","64","64","64","192","192","2","2","2","2","2","2","14","62","64","64","124","12","12","4","4","8" P"127","255","255","127","0","0","0","0","0","1","226","18","18","12","0","0","224","16","9","9","49","66","68","56","6","7","15","7","15","7","15","7","60","60","60","126","126","255","255","255","1","3","7","15","30","60","60","60","128","192","224","240","56","84","146","137" "255","255","255","255","79","79","79","79","240","240","240","240","255","240","240","255","0","0","0","0","255","0","0","255","79","79","79","79","255","15","15","255","79","79","79","79","255","255","255","255" #2."23296"="127"n="23297":n$="":"9012" #3 "9014" #4n="127""9020" #5n$=n$+¾n:n=n+"1":"9012" #6I:"10","3";" 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" #< XUDG W[5d kkkhPP̙3g??????~~????$$$CAR 8|5 ( SOFTIDEA(COMO)T.031-240.959 $$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0 317997|:7:7:7::236099\,20:23658j\,8:""318008|:236066\,86V:236077\,123{ P=7:0::1;10 ,0;" PARA O GRAVADOR ":N=010 :.01z# =,N*5:N:1000:200:90102# 9050Z#:3,13 ;"INPUT":103g,142:42*,0:0,11 :-42*,0:0,-11 :104h,141:42*,0:0,11 # 5,10 ;"introducao" (Y=1:X=8:T$="A INSTRUCAO FAZ COMQUE O SPECTRUM ESPERE UMA IN-FORMACAO QUE SERA INTRODUZIDAPELO TECLADO.":9032H# 2Y=1:X=13 :T$="DEPOIS DA INFORMACAO TER SIDOTECLADA E DE SE PREMIR EFECTUA-SE A ASSIGNACAO DAVARIAVEL QUE E INDICADA NAINSTRUCAO.":9032H# < 9000(# F9050Z#:Y=1:X=2:T$="QUANDO O COMPUTADOR ESPERA UMDADO, IMPRIME NO ECRAN UMCURSOR INTERMITENTE. DESDEESSE MOMENTO, TODOS OS CARAC-TERES TECLADOS SAO IMPRIMI-DOS NO ECRAN, ATE QUE SE PRIMA, QUE DA POR FINALIZA-DA A INTRODUCAO DO DADO.":9032H# PY=1:X=12 :T$="O BASIC PERMITE IMPRIMIR UMTEXTO NA INSTRUCAO ,QUE APARECERA NO ECRAN ANTESDO CURSOR INTERMITENTE, PARACOMUNICAR A0 USUARIO D0 PRO-GRAMA QUE TIPO DE DADOS TEMQUE INTRODUZIR.":9032H# Z 9000(# d9050Z#:Y=1:X=5:T$="O TEXTO ENCERRADO ENTRE ASPAS,QUE SE SEGUE AO , ESTASEPARADO DA VARIAVEL POR UMCARACTER PARA TAL FIM <;,'>.":9032H# nY=1:X=12 :T$="SE SE VAI INTRODUZIR MAIS DEUM DADO, ENTRE AS VARIAVEISCORRESPONDENTES HA QUE IN-TERPOR QUALQUER DOS CARACTERESSEPARADORES.":9032H# x 9000(# E9050Z#:X=5:Y=1:T$=" AGORA "+N$+",":9032H# 4Y=1:X=7:T$=" ESCOLHE:":9032H# 11 ,6;"F FIM";13 ,6;"I INTRODUCAO";15,6;"C CARREGAR A SEGUNDA";16,6;" PARTE DE " ="F" ="I"30 ="C"800  160  5A$=" POE EM MARCHA O GRAVADOR ":7:7: *)N=029:.05|L,2*N />4;8,N;" ";9 ,N;" ";10 ,N;" " 49N>1N<281;8,N;A$(N-1) HN RG8,30;" ";9 ,30;" ";10 ,30;" "  7:"" (:N=047/:A:"A"+N,A:N: 3,7,15,15,7,3,97a,97a,128,192,72H,216,248,200,128,0,33!,63?,7,15,31,31,31,15,131,255,192,192,224,224,240,240,7,3,1,1,3,3,6,8,192,128,128,128,192,96`,32 ,16 #(Y$="PRIME UMA TECLA PARA CONTINUAR ":S$=Y$:I=131:#0;6;2;1;1,0;Y$:.001wn,30:"""": #)QY$=S$(I)+S$(1I):.0004uQX,45-:.0006vIQ,557:"""": #*I:9000(# #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::9 ,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 #< #G P=6 #H_Y=1:N=1̱T$:P;X,Y;T$(N):T$(N)" ".001wn,40(:E=14:E #I1Y=Y+1:Y=31Y=1:X=X+1 #J(T$(N)=".".1}L,30:20 #KN:P=7: #Z2:7::3,3:4;248,0:4;0,169:4;-248,0:4;0,-169: p*aNMSXy xH#(#SPRIME UMA TECLA PARA CONTINUAR Y RA CONTINUAR PRIME UMA TECLA PART ESCOLHE:A POE EM MARCHA O GRAVADOR CAR 8|5~' SOFTIDEA(COMO)T.031-240.959 $$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0 kڰ"7":ٰ"7":"7"::"31799":"23609","20":"23658","8":"""31800":"23606","86":"23607","123" \ڰ"7":ٰ"1"::"10",ç;۰"1";" PARA O GRAVADOR ":"9040":"200":"9010" z"9050":"3","13";"INPUT":"102","142":"44",ç:ç,"12":-"44",ç:ç,-"12":"103","141":"44",ç:ç,"12" (*5,5;"exemplos e exercicios" 2Y="1":P="7":T$="BEM "+N$+",":X="10":"9032":Y="1":T$="CONTINUAMOS FALANDO DA INS-TRUCAO , VENDO ALGUNSEXEMPLOS.":X="12":"9032" < 9000(# :"9060":Y="11":X="5":T$="INPUT A":"9031":"9040" Y="1":X="13":T$="O COMPUTADOR ESPERA A INTRO-DUCAO DE UM VALOR NUMERICOQUE ASSILANARA A VARIAVEL A.DESPOIS DE TERES TECLADO ONUMERO, PRIME .":"9032":"9000" ;"9090":X="5":Y="11":T$="INPUT C$":"9031":"9040" ܒX="14":Y="1":T$="O SPECTRUM ESPERA A INTRO-DUCAO DE UM TEXTO (UMA CADEIADE CARACTERES) QUE DESIGNARAA VARIAVEL C$.":"9032":"9000" D"9090":X="5":Y="7":T$="INPUT ""TEXTO"",M$":"9031":"9040" X="13":Y="1":T$="O COMPUTADOR ESPERA A ASSIGNA-CAO DE UMA CADEIA A VARIAVELM$. A FRASE IMPRIME--SE NO ECRAN PARA INDICAR OTIPO DE DADO A INTRODUZIR.":"9032" "9000" ="9090":X="5":Y="9":T$="INPUT A,B,C":"9031":"9040" X="13":Y="1":T$="ESPERA QUE SE INTRODUZAM OSVALORES NUMERICOS QUE IRAO SERASSIGNADOS AS VARIAVEIS A, B,E C, RESPECTIVAMENTE. PARAISSO, DEVEM TECLAR-SE OS VALO-RES E PREMIR .":"9032":9000 (# "F"9090":X="5":Y="5":T$="INPUT ""TEXTO"",A$,B":"9031":"9040" ,X="13":Y="1":T$="ANTES DE REPRESENTAR A PALA-VRA , ESPERA A INTRO-DUCAO DE UMA CADEIA, QUE SERAASSIGNADA A VARIAVEL A$ E DEUM VALOR NUMERICO PARA A VA-RIAVEL .":"9032":"9000" 6"9090":X="2":Y="1":T$="AGORA "+N$+",":"9031":X="4":Y="1":T$="PROPONHO-TE UM TESTE. FAZ O QUE EU TE PECO, PREMINDO AS SEGUINTES TECLAS:":"9031" @"9100":"100":"9070" JO"9070":"9200":X="13":Y="1":T$=" INPUT DE UM VALOR NUMERICO":"9032" TR$="IV":D$="13":O("2"):S("4"):C$("5","2"):O("1")="10":O("2")="16":S("1")="16":S("2")="8":S("3")="17":S("4")="8" ^TK$=°"238"+" ":J$="VAR ":N="1"̰"5":C$(N,"1")=K$(N):C$(N,"2")=J$(N):N: h "1000" mERR=1330J rV"9000":"9070":"9200":X="13":Y="1":T$=" INPUT DE UMA CADEIA":"9032" |R$="IV$":D$="123":O("3"):S("6"):C$("5","3"):O("1")="10":O("2")="16":O("3")="19":S("1")="16":S("2")="8":S("3")="17":S("4")="8":S("5")="19":S("6")="12" rK$=°"238"+" ":L$="VAR ":Z$="$ ":N="1"̰"5":C$(N,"1")=K$(N):C$(N,"2")=L$(N):C$(N,"3")=Z$(N):N: !"1000":ERR=1370r  9000(# P"9070":"9200":X="13":Y="1":T$="INPUT COM TEXTO DE UMA CADEIA":"9032" R$="I""T"",V$":D$="1232323":O("7"):S("14"):C$("5","7"):O("1")="5":O("2")="11":O("3")="12":O(4)=17:O(5)=18:O(6)=19:O(7)=22 &S(1)=16:S(2)=8:S(3)=19:S(4)=8:S(5)=18:S(6)=8:S(7)=19:S(8)=8:S(9 )=19:S(10 )=16:S(11 )=17:S(12 )=8:S(13 )=19:S(14)=12 K$=°"238"+" ":L$=""" ":Z$="TEXTO":X$=", ":W$="VAR ":V$="$ ":N="1"̰"5":C$(N,"1")=K$(N):C$(N,"2")=L$(N):C$(N,"3")=Z$(N):C$(N,4)=L$(N):C$(N,5)=X$(N):C$(N,6)=W$(N):C$(N,7)=V$(N):N: !"1000":ERR=1405  9000(# "9050":"5","5";"PRIME";"9","6";"I INICIO ";"11","6";"E EXERCICIOS";"13","6";"C CARREGAR ";"15","6";"F FIM" ="I""30" ="E""9060":"310" ="C""800"  ="F" &"510"  R"7":ڰ"7"::"10",ç;۰"1";" POE EM MARCHA O GRAVADOR ":ڰ"7":ٰ"7":"" n="1":ERR=0 ="""1001" r$(n)"1200" R$=N"9500":"1100": "9500":N=N+"1":"1001" LMڰ"2";ٰ"6";ܰ"1";۰"1";"9",(("27"-N$)/"2");" BEM "+N$+"!":"9040": "9070":ڰ"6";"5","11";"ERRO !!":װ".5",-"30":װ".5",-"40":"9070":N="1"̱R$:ڰ"5":ٰ"1":۰"1";S("2"*N-"1"),S("2"*N);R$(N):K=ç̰"150":K:S("2"*N-"1"),S("2"*N);R$(N):"9500":N: "200":"100":ERR=1: #(Y$="PRIME UMA TECLA PARA CONTINUAR ":S$=Y$:I=131:#ç;6;2;1;1,ç;Y$:.001wn,30:"""": #)QY$=S$(I)+S$(1I):.0004uQX,45-:.0006vIQ,557:"""": #* I:"9000" #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"::"9","4";N$;"10","4";"ESTA BEM ESCRITO ? (S/N)" #8="N""9014" #9="S"N$=N$+" ":"9019" #: "9016" #;FN="1"̱N$:"23296"+N,N$(N):N:"23296"+N,"127":"23296","127" #< #GP="6" #HXN="1"̱T$:P;X,Y;T$(N):T$(N)" ".001wn,40(:Q=*3:E=1Q:E #I1Y=Y+1:Y=31Y=1:X=X+1 #JT$(N)="."װ".1","30":"20" #K N:P="7": #Q N=ç̰"10":װ".01",N*"5":N: #[a"2":ڰ"7"::"3","3":ڰ"4";"248",ç:ڰ"4";ç,"169":ڰ"4";-"248",ç:ڰ"4";ç,-"169": #eSڰ"4"::"3","3":"248",ç:ç,"169":-"248",ç:ç,-"169":"9070":"9080" #f0"3","92":"248",ç:"3","91":"248",ç: #oBN="1"̰"9":ڰ"6";N,"1";" ":N: #yDN="11"̰"20":ڰ"7";N,"1";" ":N: #"9070":"9080": #16,7;5;1;" para input ";17,7;" para variavel ";18,7;" para texto ";19,7;"<""> <$> <;> para os ";20,7;"respectivos caracteres": #DN="12"̰"15":N,"1";ڰ"7";" ":N: %0ڰ"6":M$="":K="1"̰"5":C$(K,N)=" ""9502" %M$=M$+C$(K,N):K %D$(N)="1""9600" %D$(N)="2""9700" % D$(N)="3""9800" %! %K="1"O(N):"5",K;M$ %K>"1""5",K-"1";" " %K:װ".2","5"*N: %K="1"̰"5":K,O(N);M$ %K>"1"ް"1";K-"1",O(N);M$ %K:װ".2","5"*N: &H$K="31"-M$O(N)-"1":"5",K;M$ &IK<"31"-M$"5",K+M$;" " &JK:װ".2","5"*N: Q#N ypx q,,H# (#rH&JVAR T INPUT DE UMA CADEIARIV$D123 ! V$ A R K LVAR Z$ M$SPRIME UMA TECLA PARA CONTINUAR Y A TECLA PARA CONTINUAR PRIME UMA-CAR 8|50 SOFTIDEA(COMO)T.031-240.959 $$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0:ڰ"7":ٰ"7":"2":"31663":"""31664":""F$():"23658","8":8030^ C#0;0,0;" PARA O GRAVADOR " "8300" "8030" I=23296[:N$="" C=I+1I+28 C127N$=N$+¾C:C I=127300, 8000@ f8;1;10 ,5;"ESCREVE O TEU NOME NO TECLADO E PRIME ":N$: `10 ,4;"ESTA BEM ESCRITO ? (S/N)";6,15-N$/2;1;" ";N$;" " "N"Ʀ"S"270 ="N"240 ":I,127:C=1̱N$:C+I,N$(C):C:C+I,127 ,)b$=" introducao":A$="LIST":8040h 6Y=8:8100 ;0:0:6: @x=09 E.002xn,x+12 J 8350 T@6;17,x;" ";18,x;" ";19,x;" " ^ 8360 hE3;18,24-x;" ";19,24-x;" " rx w 8350 |x=10 0-1 S8+x,x;" ";9 +x,x;" ";10 +x,x;" ";11 +x,x;" " .005y# =,x x x=0-8-1 .005y# =,x+12 k8+x,0;" ";9 +x,0;" ";10 +x,0;" ";11 +x,0;" " x 0,0;" ":Y=18:Y,0;" ":Y:9 ,0;"";10 ,0;" ";11 ,0;" ";12 ,0;"" v1:20:x=03:11 ,2+x;3;"LIST"(x+1):.05|L,30:4:x  8360  y=4-1-1 x=013 +y c19-x,21-y-x;1;"":.001wn,20:19-x,21-y-x;1;"" x $q$:4;6-y,2;q$ y P"10 REM ADEUS","20 INPUT N","30 PRINT N","40 REM GOTO","50 GOTO 10","60 STOP " E.1}L,20:11 ,2;3;"0 OK, 0:1":10 9.1}L,12 :.1}L,0:.1}L,-12 9.1}L,12 :.1}L,0:.1}L,-12 &9.1}L,12 :.1}L,0:.1}L,-12 0 8300l : b$=" exercicios ":8040h X)y=8:t$="FAZ }":8130 l 85004! m$W$=" " q+10 ,1;W$;11 ,1;W$ v6R$="K"T$=" ESTA EXACTO ! }":8130:700 1Y=10 :T$="RECORDA QUE ":8130 CY=11 :T$="CORRESPONDE A TECLA }":8130:620l  8040h 0Y=8:T$="AGORA FAZ ":8130  85004! *8,1;W$;;9 ,1;W$ BR$"K0"R$"K9999"T$=" ESTA EXACTO ! }":8130:800  XY=8:T$="FAZ ":8130:T$=" SENDO MENOR QUE 9999} ":8130  720  8040h *aY=8:T$="PARA TERMINAR, FIXA COMO":8130:T$="FUNCIONA O ":8130 +1y=12 :t$="NAO PRIMAS ":8130 4 8300l 97:0: >Y=122 HCY-1,0;" ";(8Y>9 );Y*10 ;" ";"REM" RY \#0;"scroll?" fG1:0:i=23560\:i=78Nži=2261000 p"":y1=22 zy=y1y1+22  3190v B21,0;" ";(8Y>9 );Y*10 ;" ";"REM" Y>9991000 y #0;"scroll?" G1:0:i=23560\:i=78Nži=2261000 "" y1=y1+22:890z "" #Y>999#0;"0 OK, 0:0" 5Y<999#0;"D BREAK - CONT repeats, 0:0" Qx=030:.005y# =,x:.005y# =,x+1:.005y# =,x+2:x  8040h Vy=8:t$=" BEM, FIZESTE TUDO":8130:t$=" CORRECTAMENTE !!!":8130 6Y=11 :T$="QUERES REPETIR ? (S/N)":8130 $51:0:23560\=78N1100L . 145 L 8000@ V8,5;1;N$;0;10 ,3;"ESCOLHE :";12 ,3;"F FIM";14,3;"I INTRODUCAO";16,3;"C CARREGAR A PARTE";17,5;"SEGUINTE" ` ="F" j="I"140 t="C"1160 ~ 1120` ڰ"2":ٰ"2":"2": r11 ,0;1;2;6,,"POE EM MARCHA O GRAVADOR PARA CARREGAR O PROXIMO PROGRAMA " "" 6 @7:0:2: J3,3:3;248,0:3;0,169:3;-248,0:3;0,-169 T ^0236066\,176:236077\,122z: c-236066\,0:236077\,60<: h.8000@:3,15-A$/2;A$ rXL=8*A$+16:120x-XL/2,142:XL,0:0,11 :-XL,0:0,-11 :1,-1:XL,0:0,11 :5,9 ;b$;8,1;: X=139'  T$=F$(X) L=1̱T$  L$=T$(L) L$="%"8340 +L$="}"Y=Y+1:20:8260D L$="#"8300l  Y,L;L$ 3L$" ".001wn,40(:E=12:E L$=".".1}L,30 :L D Y=Y+1 XX b l'T$=" PRIME UMA TECLA PARA CONTINUAR " vN#0;6;2;1;1,0;T$:.001wn,30 UT$=T$(2)+T$(1):.0004uQX,45-:.0006vIQ,557:"""": 8310v /8300l :8040h:Y=8:8280X 023675{\,176:23676|\,126~: /23675{\,88X:23676|\,127: !4 P=1 !5R$="" !;!#0;1;"L";8; !<1:0 !=K$=(23560\) !@.01z# =,30 !CK$=13 "": !DK$=12 "":85004! !F R$=R$+K$ !HYk=k$:P=1K<91[K>64@#0;(k+165);:P=2:85059! !\P1#0;K$; !f 85059! Ƶ( E A INSTRUCAO QUETE PERMITE VER AS LINHAS DOPROGRAMA QUE SE ENCONTRA NAMEMORIA EM CADA MOMENTO.} UTILIZA-SE, PORTANTO, PARA'LISTAR' ORDENADAMENTE TODASAS LINHAS DO PROGRAMA.% EMPREGA-SE TANTO NOMODO IMEDIATO COMO NO MODOPROGRAMA.} USAR DENTRO DE UM PRO-GRAMA, SIMPLESMENTE NAO E UTILPORQUE PROVOCA A DETECCAODO MESMO.% COM PODES VER TODASAS INSTRUCOES DA PRIMEIRAA ULTIMA.} SE DESEJAS LISTAR UMA DETER-MINADA LINHA, DEVES ESCREVERO SEGUINTE:} LIST N } ONDE N E O NUMERO DAPRIMEIRA LINHA A LISTAR.% 'N' PODE SER CONSTANTE, VA-RIAVEL OU EXPRESSAO NUMERICA.}QUANDO EXECUTAMOS UM O SPECTRUM MOSTRA-NOS ASLINHAS DO PROGRAMA EM MEMO-RIA. BASTA LISTAR NO ECRAN.}CHEGANDO A ESTE PONTO, O COM-PUTADOR EMITE A MENSAGEM DE'SCROLL?', ESPERANDO QUE LHEINDIQUES SE DEVE PROSSEGUIR.%PARA INTERROMPER A LISTAGEM,PODES PREMIR 'N', 'STOP' OU'BREAK'.} CASO CONTRARIO, PODES CONTI-NUAR PREMINDO QUALQUER OUTRATECLA.% VAMOS PRATICAR UM POUCO.% i["NB introducaoALIST0y!' L%T ECLA PARA CONTINUAR PRIME UMA TCAR P{I%| R$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >H  0 OO` p =?>< p @!À 8```0x H(Ј<~ffffpp?? p7?=PPLIST I( E A INSTRUCAO QUETE PERMITE VER AS LINHAS DOPROGRAMA QUE SE ENCONTRA NAMEMORIA EM CADA MOMENTO.} UTILIZA-SE, PORTANTO, PARA'LISTAR' ORDENADAMENTE TODASAS LINHAS DO PROGRAMA.% EMPREGA-SE TANTO NOMODO IMEDIATO COMO NO MODOPROGRAMA.} USAR DENTRO DE UM PRO-GRAMA, SIMPLESMENTE NAO E UTILPORQUE PROVOCA A DETECCAODO MESMO.% COM PODES VER TODASAS INSTRUCOES DA PRIMEIRAA ULTIMA.} SE DESEJAS LISTAR UMA DETER-MINADA LINHA, DEVES ESCREVERO SEGUINTE:} LIST N } ONDE N E O NUMERO DAPRIMEIRA LINHA A LISTAR.% 'N' PODE SER CONSTANTE, VA-RIAVEL OU EXPRESSAO NUMERICA.}QUANDO EXECUTAMOS UM O SPECTRUM MOSTRA-NOS ASLINHAS DO PROGRAMA EM MEMO-RIA. BASTA LISTAR NO ECRAN.}CHEGANDO A ESTE PONTO, O COM-PUTADOR EMITE A MENSAGEM DE'SCROLL?', ESPERANDO QUE LHEINDIQUES SE DEVE PROSSEGUIR.%PARA INTERROMPER A LISTAGEM,PODES PREMIR 'N', 'STOP' OU'BREAK'.} CASO CONTRARIO, PODES CONTI-NUAR PREMINDO QUALQUER OUTRATECLA.% VAMOS PRATICAR UM POUCO.% RUN uw*** SOFTIDEA ***   EDICOES LATINAS **** 22100 COMO **** f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 kڰ"7":ٰ"7":"7"::"31799":"23609","20":"23658","8":"""31800":"23606","86":"23607","123" hڰ"7":ٰ"1"::"10",ç;۰"1";" PARA O GRAVADOR ":"9040":5000:"200":"9010" 9050Z#:5,14;"RUN":107k,126~:32 ,ç:ç,12 :-32 ,ç:ç,-12 :108l,125}:32 ,ç:ç,12 2X=11 :Y="1":P="7":T$="O COMANDO ORDENA AOSPECTRUM A EXECUCAO DO PRO-GRAMA EXISTENTE NA MEMORIA,CO-MECANDO DESDE A PRIMEIRA INS-TRUCAO.":"9032" < 9000(# F9050Z#:Y=1:X=5:T$="SE AO COMANDO SE SEGUIRUM NUMERO, A EXECUCAO DOPROGRAMA COMECARA A PARTIR DALINHA INDICADA PELO DITONUMERO.":9032H# ZY=1:X=11 :T$="O COMANDO , ANTES DEEXECUTAR O PROGRAMA, APAGA TO-DAS AS VARIAVEIS QUE PODERAOEXISTIR, DEVIDO AS INSTRUCOES OU ANTERIORES.":9032H# d 9000(# 6"9060":Y="13":X="5":T$="RUN":"9031":"9040" [Y="1":X="14":T$="EXECUTA O PROGRAMA DESDE APRIMEIRA INSTRUCAO.":"9032":"9000" ;"9090":X="5":Y="11":T$="RUN 1000":"9031":"9040" SX="14":Y="1":T$="EXECUTA O PROGRAMA DESDE ALINHA 1000.":"9032":"9000" z"9050":"5","5";"PRIME";"9","6";"R REPETIR";"11","6";"C CARREGAR ";"13","6";"F FIM" ="R""30" ="C""800"  ="F" &"510"  7:7: *Z$=" ":A$=" ":B$=" ":C$=" ":D$=" " 4'K=35:N=030 >N=290-1 HR$=A$:T$=B$:S$=C$:M$=D$ RE(N/2)=(N/2)K,0;Z$+A$+B$+C$:.01z# =,0 \F(N/2)ɺ(N/2)K,0;Z$+A$+B$+D$:.01z# =,20 fxA$=R$(2)+R$(1):B$=T$(2)+T$(1):C$=S$(2)+S$(1):D$=M$(2)+M$(1) pN:K O1;10 ,0;" POE EM MARCHA O GRAVADOR ":ڰ"7":ٰ"7":"" 8:N=011 *8-1:A:"A"+N,A:N: 0,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,0,64@,64@,64@,64@,64@,64@,192,192 p2,2,2,2,2,2,14,62>,64@,64@,124|,12 ,12 ,4,4,0,60<,126~,174,254,142,254,0,254,254,0,254,254,254,0,102f,102f,238,238,238,238,238,0,102f,102f #(Y$="PRIME UMA TECLA PARA CONTINUAR ":S$=Y$:I=131:#ç;6;2;1;1,ç;Y$:.001wn,30:"""": #)QY$=S$(I)+S$(1I):.0004uQX,45-:.0006vIQ,557:"""": #* I:"9000" #2."23296"="127"N="23297":N$="":"9012" #3 "9014" #4N="127""9020" #5N$=N$+¾N:N=N+"1":"9012" #6I:"10","3";" ESCREVE O TEU NOME NO TECLADO E PRIME " #7FN$:"50"::"10","4";N$;"11","4";" ESTA BEM ESCRITO ? (S/N)" #8="N""9014" #9="S"N$=N$+" ":"9019" #: "9016" #;FN="1"̱N$:"23296"+N,N$(N):N:"23296"+N,"127":"23296","127" #< #GP="6" #HXN="1"̱T$:P;X,Y;T$(N):T$(N)" ".001wn,40(:Q=*4:E=1Q:E #I1Y=Y+1:Y=31Y=1:X=X+1 #JT$(N)="."װ".1","30":"20" #K N:P="7": #Q N=ç̰"10":װ".01",N*"5":N: #[a"2":ڰ"7"::"3","3":ڰ"4";"248",ç:ڰ"4";ç,"169":ڰ"4";-"248",ç:ڰ"4";ç,-"169": #eSڰ"4"::"3","3":"248",ç:ç,"169":-"248",ç:ç,-"169":"9070":"9080" #f0"3","92":"248",ç:"3","91":"248",ç: #oBN="1"̰"9":ڰ"6";N,"1";" ":N: #yDN="11"̰"20":ڰ"7";N,"1";" ":N: #"9070":"9080": >afN xy pqH#(#Y UMA TECLA PARA CONTINUAR PRIME UZ 4R T S M A B C D CAR 8| SOFTIDEA(COMO)T.031-240.959 $$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >