ZXTape! 2-VIDEO BASIC (EDICOES LATINAS) - TAPE 6 SIDE AEDICOES LATINAS, LDA / JACKSON PORTUGUESSPECTRUM BASIC COURSENONE ORIGINAL TAPE20 TAPES COURSEVIDEOBASIC(3, *  EDICOES LATINAS  f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 *317997|:7:7:7: Mn=09 :n,0;" ":n Cn=16:n,4;" ":n (>n=35:n,10 ;" ":n 216,23;" ";17,21;" ";18,21;" ";19,20;" ";20,20;" "    1#7133@ 9#;433 ~-#+<>3 ? '#+563?`@###133B~  qw{<?  000000000000000000000000000000000000000000000000000000000000000000000000001111111111111022200000000000000211111111111112222000000000000002222211122222222220000000000000028288888882222222200000000000000000000000000000000000000666666666000000000066000000000006660088888888888888888880666660000000888===============8000000088888888?===============8888888888888888?<<<<<<<<<<<<<<<8888888888888888?;;;;;;;;;;;;;;;8888888888888888?;;;;;;;;;;;;;;;8888888888888888?:::::::::::::::8888888888888888?:::::::::::::::8888888888???888888888888888888:8888888888???8888????88?????::::8888888888???????889999999989:::888888888?88888888888888889999998888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888VIDEOLIST  J *  EDICOES LATINAS * f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0  317997| |23658j\,8:236099\,20:20,0;:""318008|: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 TV e o Monitor ":K=7:0710 <p$="VIDEOBASIC-A LINGUAGEM: ":k=10 :0710 ;p$="AT - TAB - INK - PAPER ":k=11 :0710 :p$="FLASH - OVER - INVERSE ":k=12 :0710 9p$="RND - RANDOMIZE ":k=13 :0710 <p$="VIDEOBREAK: ":k=15:0710 ;p$="Monologo ":k=16:0710 <p$="VIDEOBASIC-A PROGRAMACAO: ":k=18:0710 ;p$="Uso de e ":k=19:0710 8100d: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$="VIDEOJOGO: ":k=13 :0710 :p$="Labirinto ":k=14:0710 ;p$="VIDEONEXT: ":k=17:0710 :p$="No proximo numero... ":k=18:0710  100d #0490:1::0630v ". ............... , 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;" " ^H10 ,7;" Esta bem escrito";11 ,9 ;n$;" ? (s/n)" h=""360h r="s"Ŧ="S"400 |j="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 ,,,,,,,,,,,,,,,,,,, y$=" PRIME UMA TECLA PARA CONTINUAR ":s$=y$:i=131:#0;1;5;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 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: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  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 : 7aa=2:bb=11 :p$="VIDEOLIST":0680: LETREIROS  Bn=1̱p$:k,32 -n;p$(N):.002xn,k*n/8:n: 2(`CAR 8|g,"ROBERTO$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >x=07 Hy=074J Rl=(y,175-x) Wy,175-x \ad+x*75K+y,l fy px  Ķ(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:31231y:7:7:"":236077\,121y:236066\,0 X7:1::1:11 ,8;"PARA O GRAVADOR":0:200: 'F$=" PRIME UMA TECLA PARA CONTINUAR " #0;0,0;F$ .01z# =,20  """": F$=F$(2)+F$(1)  5  5010 @1:7::3,3:4;248,0:4;0,169:4;-248,0:4;0,-169: #(NF=17:F,1;" ":F:p=6 #2eZ=1:N=1̱P$:7;X,Z;P$(N):P$(N)" ".001wn,40(:E=12:E #<1Z=Z+1:Z=31Z=1:X=X+1 #F(P$(N)=".".1}L,30:20 #PN:P=7: &`8000@:X=11 :P$=" QUERES VER DE NOVO ESTA LICAO ? (S/N)":9000(# &="S"Ŧ="s" &="N"Ŧ="n"9997 ' &J.005y# =,30:.005y# =,10 :.005y# =,0:9910& ' J:7:1:11 ,0;" POE O GRAVADOR EM MARCHA " '?1,10 :502:0:7:31969|:"" %(#pz~2#2#F PRIME UMA TECLA PARA CONTINUAR ~ I%P~NATURALMENTE,TUDO ISTO SE REA-LIZA A UMA VELOCIDADE TAL, QUEA VISTA HUMANA NAO E CAPAZ DEPERCEBER O DESENROLAR DO MECA-NISMO.CAR/CODE Xz3-Z$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0 _"31999":z=ç:u=::"23609","20":"23658","8":"":"23606",z:"23607","124":ڰ"7":z::ڰ"8":u;"10",z;" PARA O GRAVADOR ":I=Z̰"10":װ".01","I*5":I dٰ"9":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 f"4"::T$="ATE AGORA TEMOS UTILIZADO ASINSTRUCOES MAIS CONHECIDASCOMO, ""PRINT""...":"8330" 4 "100":U zٰ"9":"4","3";" mas o ";:i=ṵ"14":ڥ*"7";"<< SPECTRUM >>"(i);:װ".01",I:i:"8","7";ڰ"5";"...PERMITE-TE..." [t$=" ... MUITO MAIS !!!! ":y="13":i=z̰"29":u;o$():װ".01",i:װ".01",u:i Y:t$="AQUI ESTA A FORMA COMO INDICARA ""PRINT"" O QUE DESEJASESCREVER:":"8330"  T$=°"17"+°"7"+°"23"+°"6"+Z:"200"::'''" OS PARAMETROS A USAR SAO..."'''t$;"AT - linha, posicao"''t$;"TAB - posicao"''t$;" ' - (apostrofe)"''t$;" , - (virgula)"''t$;" ; -(ponto e virgula)":"100":''" continuemos..." m"8150"::t$="O ECRAN ESTA IMAGINARIAMENTEDIVIDO EM QUADRADOS COMO... "+°"6":"8210" ,i=z̰"7":"a"+i,"08LfL800"(i+u)-"48":i ph=z: l236077\,60<::i=z̰"255"Ͱ"8":i,z:z,"175":i:z,z;"01234567890123456789012345678901" Fw$=" ":i=z̰"21":w$()=i:z,i*"8":"255",z:u;i,z;ڰ"6";w$:i 236077\,124| }"100":phy,x,a$:y="99"t$="AGORA TENTA INTRODUZIR ASCOORDENADAS ""FILA"" E ""COLUNA""":"8210":ph=u:"200" uPHT$="INTRODUZ SO VALORES NUMERICOS.NAO TE ENGANES PORQUE O PROGRAMA APAGA-SE!!!":"8210":"200":"" GPHu;"PRIME 'ENTER' DEPOIS DO NUMERO";Z,Z;z;"PRINT AT ";Y;",";X ;(X<0Y<0)(X>31Y>21)3037 Yt$="PRINT AT "+Y+","+X+";"""+a$+"""":"8210":i=zx:y,i;u;"":װ".1",-502:i Xi=zy:i,x;u;"":װ".1","-20":i:"23607","60":y,x;ڰ"6";u;a$:"23607","124" 9ph#0;" R  REPETIR ***  C  CONTINUAR" PHƦ="R""3010" PHƦ"C"3056 @ph#Z;U,Z;U;" PRIME UMA TECLA PARA CONTINUAR",:Z:"3010" "8400":T$="PODES UTILIZAR PARA IN-DICAR A COLUNA DE IMPRESSAO.SE O SEU ARGUMENTO E INFERIORA COLUNA ACTUAL, DESLOCA-SEPARA A LINHA SEGUINTE.":"8330" }'':T$="PRINT AT 18,20; ""ALI"";TAB 10; ""AQUI""":"8330":"14",U;"Resulta:"''"18","20";"ALI";"10";"AQUI" t@"8150":"8400":t$=".este e o efeito da pontuacao:":"8330" c"5","13";" ' ":T$="OBRIGA A POSICAO DE IMPRESSAONO COMECO DA LINHA SEGUINTE.":"8330" ]"11","13";" , ":T$="LEVA A POSICAO DE IMPRESSAOA METADE DA LINHA.":"8330" J"16","13";" ; ":T$="NAO MUDA A POSICAO DE IMPRES-SAO.":"8330" f"8150"::U:"Exemplos..."''"10 PRINT ""ISTO"";""E O"";""BASIC"""''ڰ"5";"ISTO E O BASIC", Wu,z:''''"10 PRINT ""ISTO"",""E O"",""BASIC"""'ڰ"5"'"ISTO","E O","BASIC",, \u,+u:''''"10 PRINT ""ISTO""'""E O ""'""BASIC"""'ڰ"5"'"ISTO",,"E O ",,"BASIC",, [u,u+u:"800":Z:"8150":x="21":"8400":T$="AQUI ESTA COMO DAR COR A TEXTO":"8330" R"21",z;ٰ"4";"1":I=Z̰"7":J=Z̰"7":"15-J","13+I";ڰ"5";ݩ(i,j);" ":J:I 8U;"8","4";"PAPER ____";"12","4";"INK _________" Z"100":'''':t$="PODES USAR PARA A TIN-TA E PARA O PAPEL...":"8330" @'':"8150":"8400":i=z̰"7":"7","i*3+4";i;" ";i;" ":i ?'''':t$="...SEGUIDOS DOS CODIGOS DE CORESCOLHIDOS.":"8330" ͚"8150":"8400":T$="PODES AINDA UTILIZAR <8> PARANAO MUDAR A COR E <9> PARAOBTER AUTOMATICAMENTE O MAXIMOCONTRASTE ENTRE E.":"8330" "8150":"8400":T$="PODES USAR , , E PARA ESCRI-TURAS ESPECIAIS. O ARGUMENTO<0> ANULA O SEU EFEITO; <1>ACTIVA-O;<8> NAO O ALTERA (SOE VALIDO PARA E).":"8330" c"8150":"8400":u::''"INK (PRIMEIRO TERMO)":i=z̰"7":"2",x;ڰ"9";i;" BASIC ":װ".5",I:I h?''"PAPER (FUNDO)":I=Z̰"7":"5",x;i;" BASIC ":װ".5",i:I +''"FLASH (INTERMITENCIA)";x;U;" BASIC " 0%''"BRIGHT (BRILHO)";x;U;" BASIC " (''"INVERSE (INVERSSO)";x;U;" BASIC " S''"OVER (SOBREPOSICAO) BASIC";"17",x;u;"_______"'" (BASIC + _____ )"  "8150":ڰ"7"::ڰ"8":"8400" \"12",z:T$="AGORA ESCOLHE TU OS PARAMETROS(EXEMPLO: , ,ETC.). USA O TECLADO COMOHABITUALMENTE.":"8330" per="126":"8480" 5U,Z;U;" PRIME AO TERMINAR ";z,z;i$ I$=U+U((I$(u)=""I$(u)="")(I$(U+U)"0"I$(U+U)"9"))(i$(u)""i$(u)"")(i$(u+u)="0"i$(u+u)="1"i$(u+u)="8")4800 ?#z;u;" ERRO !!! - TENTA OUTRA VEZ ":U,U:"50":"4750" .(i$-"201");°i$(u+u);"6","13";"BASIC!" .7#;,ç;" R  OUTRA VEZ ***  C  CONTINUAR" 3="R""4750" 8"C""4900"  ----- Q"8400":T$="E AQUI VAO ALGUNS EXEMPLOS DE INSTRUCOES DE .":"8330" "100":i$="":"6500" 1ڰ"7"::w$="":y="20":x=z:i$=""7000X t$,i$:T$=""5010  w$=w$+i$ "20",z;u;ڰ"6",,,, y,x;u;t$:w$ $x=x+t$:x>"31"x=x-"32":y=y+u ?#Z;Z,Z;U;" PRIME UMA TECLA PARA CONTINUAR ":װ".2","20":Z  5020 zm10 ,6,"BASIC",21,31,"*",0,0,"LATINAS",10 ,4,n$,99c,z,"*" dZ"PRINT AT 2,4;""*""",°"22"+°"2"+°"4"+"*",";TAB 10;1234",°"23"+°"10"+Z+"1234","","" n"PRINT AT 2,8;PAPER 5;""DESCR.""",°"22"+°"2"+°"8"+°"17"+°"5"+"DESCR.",";AT 2,20;INVERSE 1;""IMPORTE""",°"22"+°"2"+°"20"+°"20"+U+"IMPORTE","","" x"PRINT AT 2,3;""TODO""",°"22"+°"2"+°"3"+"TODO",";TAB 24;""OK""",°"23"+°"24"+Z+"OK",";AT 10,4;FLASH 1;"""+N$+"""",°"22"+°"10"+°"4"+°"18"+U+N$,"","" Z:"8070":"1100" @<y="10":t$=" POE EM MARCHA O GRAVADOR ":"7":ڰ"7": Ji=Z̰"29":װ".05","2*i" T'o$():i>"1"i<"28"y,i;u;u;" " hi r5"8","30";" ";"9","30";" ";"10","30";" " | ٰ"7":"" )"7",U;:T$=" ESCOLHE, "+n$:"8330" r"11","6";"F FIM";"13","6";"I INICIO";"15","6";"C CARREGAR A PARTE";"16","6";" SEGUINTE"  ="F"  ="I" ="C""8000"  "8090" 't$=" PRIME UMA TECLA PARA CONTINUAR " /#Z;ڰ"6";U+U;U;U,Z;t$:.001wn,30 Kt$=t$(u+u)+t$(U):.0004uQX,45-:.0006vIQ,557:"""":  "8160" t$ "#z;z,z,,,,z,z;u;t$,:"300": 'u;u;:c=Z:N=U̱t$ (T$(N)="%"8150:"8400":vc=u: +T$(N);:OPT$(N)" ".001wn,40( (OPT$(N)=".".1}L,30:"20" c=c+u:c="30"c=Z:U;" "; N: _a="4":XL="248":YL="169":u+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:"13",U;: ! A=U+U:J="60"̰"70"Ͱ"10":"128"-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: zuaJc  y xA*PF !~IWT POE EM MARCHA O GRAVADOR NCAR }b+$$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),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 dHBO="8330":DI="8400":TA="8150":ٱ:CEN=Z:OP=U:"100":a="127" i"23296"=a"160" n:"10",;"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:"23295"+i,(a+n$+a)(i):i .n$="":i="23297"̰"1e6":ian$=n$+¾i:i dDI:t$="ANTES DE CONTINUAR, E CONVE-NIENTE OBSERVAR UMA PECULIARI-DADE DO PARAMETRO .":BO LT$="ESTE SOBREPOE OS CARACTERESDE UMA FORMA MUITO PARTICULAR:PARA CADA PONTO CONSIDERADO,REALIZA A SEGUINTE OPERACAO:":BO ,U:''"  ANTES AGORA RESULT. " Q'':I=Ṵ"4":"2";""(I);"12";"+ ";""(I);"22";"= ";""(I):':I xTA:DI:T$="ESTA OPERACAO LOGICA CHAMA-SE, E CONSISTE EM CAN-CELAR COMPLETAMENTE O CARACTERSOBREPOSTO, CONSISTE EM VOLTARA ESCREVE-LO NO MESMO LUGAR.":"8330" U:ER="68":"8480":17,1;" 10 PRINT AT 13,28;""O""";"13","28";"O":U,Z:"150":18,1;" 20 PRINT 1;AT 13,28;""+""";"13","28";U;"+"'':U,U:"150":19,1;" 30 PRINT 1;AT 13,28;""+""";"13","28";"+":U,U+U НZ:TA:DI:T$="TODOS OS ATRIBUTOS VISTOS ATEAGORA, TINHAM UM CARACTER TEM-PORARIO,VISTO QUE O SEU EFEITOCESSA QUANDO TERMINAR A INS-TRUCAO .":BO MU:''" Exemplo:"''" 10 PRINT PAPER 2;"" ISTO E"";"'" 20 PRINT "" BASIC """ <''" resulta como..."''" ";ڰ"2";" ISTO E";:" BASIC ":TA DI:T$="ENTAO, USANDO-OS COMO COMAN-DOS, E POSSIVEL ATRIBUIR-LHESUMA VALIDADE PERMANENTE, DEFORMA QUE INFLUENCIA TAMBEM OS SUCESSIVOS.":BO e''" Exemplo:"''" 10 PAPER 2"'" 20 PRINT "" ISTO """'" 30 PRINT "" E """'" 40 PRINT "" BASIC """ 4_'" resulta como..";U+U;"17",2;" ISTO ";"18",2;" E ";"19",2;" BASIC " fTA:DI:t$="OS ATRIBUTOS PERMANENTES SAO,ASSIM, AQUELES QUE UTILIZAM, SE ESTE NAO ESPECIFI-CAR NENHUM VALOR TEMPORARIO.":BO '''''" Exemplo:"''" 10 3"'" 20 PRINT ""BASIC"" BASIC"'" 30 PRINT PAPER 6;""BASIC"" BASIC"'" ";"40 PRINT ""BASIC"" BASIC" ^TA:DI:T$="POR ULTIMO, AQUI ESTA UMA INS-TRUCAO QUE PERMITE DAR COR AOBORDO DO ECRAN:":BO N"11","10";ڰ"5";"BORDER ":I=Z̰"7":"11","18";ڰ"5";ç;I:I:U,I:I TA:A$="INPUT":"8410" pT$="TUDO QUANTO TEMOS DITO SOBRE, E TAMBEM VALIDO PARA, MAS COM ALGUMAS DIFE-RENCAS.":BO:TA y"4":U+U::''''ں'" UTILIZA NORMALMENTE APARTE SUPERIOR DO ECRAN (22LINHAS). " .P#Z;Z,Z;7;"... A PARTE INFERIOR"," (NORMALMENTE 2 LINHAS)", `e"200":Z,Z;" PRIME UMA TECLA PARA CONTINUAR ":K=ç1E10:װ".01",*"40":"""2420" jK tڰ"7":DI:ڰ"8":T$="TODOS OS PARAMETROS ASSOCIADOSA ,REFEREM-SE UNICAMEN-TE A SUA PARTE DO ECRAN. ESTA,INICIALMENTE DE 2 LINHAS, AM-PLIA-SE AUTOMATICAMENTE EMCASO DE NECESSIDADE:":BO TA::#Z;Z,Z;"A INSTRUCAO"'4'"10 INPUT 0,0;""LINHA 0"";8,3;""LINHA 8"";16,6;""LINHA 16"" ; XX",,'U;"EXECUTA-SE ASSIM", (w#Z;"6",Z;"LINHA 0";13 ,;"LINHA 8";20,6;"LINHA 16"''" PRIME UMA TECLA PARA CONTINUAR",:Z ڰ"8":DI:T$="ENQUANTO QUE E, EVI-DENTEMENTE, UMA INSTRUCAO DE, PODE EXE-CUTAR SIMULTANEAMENTE AS DUASFUNCOES:":BO V"11",U;"10 INPUT ""MENSAGEM "";IMPORTE"'"  (OUTPUT) (INPUT)" NTA:DI T$="QUANDO A MENSAGEM PARAE UMA CONSTANTE,NAO HA PROBLE-MA; MESMO QUANDO NECESSITA-SEDE UTILIZAR OUTRA VARIAVEL.PARA EVITAR A AMBIGUIDADE DE-VE-SE FECHAR ENTRE PARENTISISA VARIAVEL DE .":"8330" ''" Exemplo:"''" 10 INPUT(A$);B$"'ڰ"8"':T$=" E , E PORTANTO,APARECERA COMO MENSAGEM; E, E ASSIGNARA-SE-A ME-DIANTE O TECLADO.":BO:TA DI:T$="EXISTE A POSSIBILIDADE DE ELI-MINAR AS <"" "">, QUE NORMAL-MENTE APARECEM COM O CURSOR NOINICIO DE CADEIAS: ATE AO FIM,EMPREGAMOS O PARAMETRO ,SITUANDO-O IMEDIATAMENTE ANTESDA VARIAVEL DE .":"8330" hhTA:DI:" Exemplo:"'''" 10 INPUT ""ESCOLHE "";I$"''" aparece como..."''" ESCOLHE""";U;"C";Z;"""" '" ------------------------------"''" ...entao..."''" 10 INPUT ""ESCOLHE"";I$"''" aparece como.."''" ESCOLHE";U;"C":ڰ"8" "200":TA:DI:T$="VISTO QUE A ASSIGNACAO PORE TOTALMENTE EQUIVALEN-TE A DE, ESTA ADMITE TAN-TO VALORES CONSTANTES, COMOVARIAVEIS OU EXPRESSOES."  Z,Z:BO 7''" Exemplo:"''" 10 LET ANO=1985"'" 20 INPUT NASC"''' $T$="AO DA LINHA 20 PODESRESPONDER, OU COM A TUA DATADE NASCIMENTO, OU COM<1985-15>(SUPONDO QUE TENHAS 15 ANOS),OU INCLUSIVE COM .":BO TA:DI:'''':T$="ALGO SIMILAR OCORRE COM O DE CADEIAS, MAS PARAINTRODUZIR VARIAVEIS TEREMOSQUE ELIMINAR AS VIRGULAS.":BO Z:TA:DI:"8070":"1000" @0A$=" POE EM MARCHA O GRAVADOR ":"7":ڰ"7": JN=Z̰"29":װ".05","2*N" TCٰ"4";"8",N;" @";,N;4;" ~|";"10",N;4;" \]" ^*N>"2"N<"29"U;"8",N;A$(N-2) hN r4"8","30";" ";,"30";" ";"10","30";" " | ٰ"7":"" '"7",U;:T$=" ESCOLHE, "+N$+":":BO |"11","6";"F FIM";"13","6";"I VOLTA AO PRINCIPIO";"15","6";"C PASSAR A PARTE";"16","6";" SEGUINTE"  ="F"  ="I" ="C""8000"  "8090" 't$=" PRIME UMA TECLA PARA CONTINUAR " )#Z;ڰ"6";U+U;U;U,Z;t$:װ".001","30" @t$=t$("2")+t$(U):װ".0004","45":װ".0006","55":"""":  "8160" lUA=Z:J=rc̰"9999":F$(J,"30")"%"F$(J,"30")"#"A=A+U+("2"F$(J,"30")="&"):J mVC"10-a/2",U; n T$=F$(rc) vBO:T$("30")="#"rc=rc+u: {$F$(rc,"30")="%"rc=rc+u:"8300" rc=rc+u:"8302" !ڰ"8":ٱ:U;U;:c=Z:N=U̱t$ T$(N)="%""8150":DI:vc=u: T$(N)="`"T$=N$:BO T$(N)="&"'U''" ";: T$(N)="#"P="8": ,T$(N);:OPT$(N)" ".0009vkC,30 +OPT$(N)=".".1}L,30:20 "c=c+u:c=30c=Z:U;" "; N: ^a="4":XL="248":YL="169":"2"::U+U,U;:,: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:"13",U;: ! t$:ñt$ !cenu;"16-t$/2"; ! BO:"8450" !1J=U+a̱+a:j,u;6+(a=10 ),a$:j: ! A=U+U:J="26"̰"32"Ͱ"6":"228"-J/A,ER+J/A*".7":J,Z:A,-A,/A:Z,-J*.73333,Z:-A,-A,-/A:-J,Z:-A,A,/A:Z,J*.73333:A,A,/A:J: zu[t$ eaNcA TEXISTE A POSSIBILIDADE DE ELI-MINAR AS <" ">, QUE NORMAL-MENTE APARECEM COM O CURSOR NOINICIO DE CADEIAS: ATE AO FIM,EMPREGAMOS O PARAMETRO ,SITUANDO-O IMEDIATAMENTE ANTESDA VARIAVEL DE .CARACTERES |Qh"$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >