ZXTape! AND EXER ]Pb _  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 *I=U:PN=U:A$=" AND - OR - NOT":"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 4"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":"124-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 !"12",U;:"8450" " "8150" " "8600" "$u,u;:T$="AGORA, "+N$+",":"8330":"3",u;:T$="PROPONHO-TE UM NOVO TESTE:UTILIZA O TECLADO COMO TENSVINDO A USAR NAS LICOES ANTE-RIORES, E ESCREVE OS COMANDOSQUE TE SEJAM PEDIDOS.":"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)=""x=x+u "ER="9"c$=b$(i):"9040" #(#z;z,z;u;"K":z:c$=:"" #2!i=uC$<""C$=(C$+165) #4+I>UB$(I-U)=""C$<""C$=(C$+"165") #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 #TEr"100":"8","7";"TENTA DE NOVO !!":װ".5","32":"8470":ER=Z:"8850" # "8810" $ D A T A  $"PONHAMOS AGORA EM PRATICA OSCONCEITOS ANTERIORMENTE EXPLI-CADOS, TENDO EM CONTA COMOSE UTILIZAM OS OPERADORESLOGICOS.","" %y"IF A=3 AND B=7 THEN PRINT...","SE A VARIAVEL NUMERICA EIGUAL A <3>, E E IGUAL A<7> EXECUTA-SE .","" %!s"IF X<0 OR Y>X THEN...","SE TOMA UM VALOR INFERIORA <0>, OU TOMA UM VALORSUPERIOR A , ENTAO...","" %&"IF INP<0 OR INP>9 THEN...","E AQUI, UMA INSTRUCAO MUITOUTILIZADA PARA VERIFICAR SE UMVALOR ESTA COMPREENDIDO NUMDETERMINADO INTERVALO ( NESTECASO ENTRE <0> E <9>).","" %("IF A=3 AND(B=5 OR C=9) THEN..","...UTILIZANDO OS PARENTESISPODEMOS ALTERAR AS PRIORIDA-DES HABITUAIS DUMA CONDI-CAO.","" %+"LET ERR = DATO<0","AS COMPARACOES DEVOLVEMSEMPRE COMO RESULTADO <1> OU<0>. PORTANTO, PODEM SERUTILIZADAS COMO EXPRESSOES.","" %,"IF ERR THEN GOTO FIM","ANALOGAMENTE, UMA VARIAVELPODE SER UTILIZADA PARA RE-PRESENTAR UMA CONDICAO: SEERR NAO E <0> ( CONDICAO CUM-PRIDA) EXECUTA-SE O .NOCASO CONTRARIO, CONTINUA NAINSTRUCAO SEGUINTE.","" %-"IF NOT ERRO THEN PRINT ""OK""","E MUITO USADO PARA INVER-TER O RESULTADO DA CONDI-CAO: SE NAO SE CUMPRE,ENTAO IMPRIMIRA .","" %.b"PRINT (T$ AND A<0)","SE A<0 IMPRIME-SE A CADEIA; CASO CONTRARIO NAO SEIMPRIMIRA.","" %/o"PRINT BRIGHT A>9;TOT","ESTE E UM COMODO SISTEMA PARAINTRODUZIR AUTOMATICAMENTE OSATRIBUTOS DE .","" %0"" %: INTER %Da"A=3B=5","SE A VARIAVEL ","E IGUAL A <3>","E E IGUAL A <5>","ENTAO IMPRIME","" %N;"X=YA$=B$","SE X=Y OU A$=B$","ENTAO TERMINAMOS","" %XW"ER","SE A CONDICAO SE","CUMPRIR( DIFERENTE DE <0> )","ENTAO IMPRIME","" %be"OUT","SE A CONDICAO ","NAO SE CUMPRIR","(QUANDO E IGUAL A <0>)","ENTAO IMPRIME","" &G"" zu72!eac JN !TuAS COMPARACOES DEVOLVEMSEMPRE COMO RESULTADO <1> OU<0>. PORTANTO, PODEM SERUTILIZADAS COMO EXPRESSOES.A POE O GRAVADOR EM MARCHA 8CAR EXER |P*"$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0:4:4:4:31000y:""31202y:236066\,0:236077\,121y:""32330J~:32330J~:"" 0 B#0;0,0;"  PARA O GRAVADOR  " X=60<0-1 236066\,X:.004yn,X  >#0;1,0;" PRIME UMA TECLA PARA CONTINUAR " X  1:0:;:20 *X=60<0-1 +236066\,X:.004yn,X ,A#0;1,0;" PRIME UMA TECLA PARA CONTINUAR ":x u0:x=255-1-1:236066\,x:#0;1,0;" POE EM MARCHA O GRAVADOR " 8X=X-X/40(:.004yn,255/5-X/5 X:200 4:18,0; 32337Q~:31969|:"" CAR yK "$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >pp!?HȀBREAK <J~>>(G^F@@ x > ECRAN @Y*BB!!!BB BA!BA! AA ! AB   BAA@  @   B@  @@ @ @ A @BB!!!AA! BA!BA A ! !AA  BAA@ @A  @ @ @? !!!A A!B!  !AA !A@ AA  A BB!B!B!B@ B! A!A @  !AA  A AA A ?B!AB!BB!@!!! A B!A A@ !!AA  A@ A@ A@?!BB!AB! A!!! BB!!!A AAAAAAAA @ A@ A ?!!B!!B BAA!!BBB A!!B AAAAAAA@@ A B@@ A A@@ A A@?!BB!!BBBA!!BA! A!!B  BAAAAA  A A B@@@ @ @ @ A ?!@a0 @_ *J*C*L @*B @Z@@ J|?|A@?@j * UUU**** >>>>>>>>>>>   88888888888888888:::::::::::::::888::::::::::::::::::::88:;:::::888::::::::::::::::::::88999::::88:::::::::::::::::::::88999::::88::::::::::::::::::::::88::::::8::::::::::::::::::::::::8888888888888888888888888888888888888888:9999999999999999999999988888888888ss000000000000000psss8888888::88ss0pppppppphh0000psss8888888<<<8ss0((((((((hh0000psss<<<<<<\),0:(23613=\+256*23614>\+1),0 g"31969":z=ç:u=:o="8":"23609","20":"23658","8":"""31970":"23606",z:"23607","124" -I=U7:32023}+I,""(I):I 0:0:7::RR="8150":TX="8330":P=O-U:O::"10",5;" PARA O GRAVADOR ":N=z̰"10":װ".01","N*5":N:"200" z:"23296"="""260" Ҙ9 ::"10","3";"ESCREVE O TEU NOME NO";"3";"TECLADO E PRIME":n$::"10","4";"ESTA BEM ESCRITO ? (S/N)";"6","15-n$/2";u;n$ ="N""210" "S"215 .I=U̱N$+U+U:"23295+I",(""+N$+"")(I)::I 1N$="":i="23297"̰"9e5":¾i""n$=n$+¾i:i  "1000" *#Z;Z,u;U;"K":w$=" ":j=uuz:z:a$=¾"23560":װ".01",o:a$="13"װ".1","32":b$="":w$=w$+t$("3"):j=u̱w$:b$=b$+(w$(j)w$(j)" "w$(j)""):j: 0A$=°"14""23617",U:"890" 4(a$="12"ƱW$-uw$=w$(̱w$-u):"880" >W(a$>"A"a$"z"w$(w$)"9"w$(w$)"0")w$(w$)=""w$(w$)=":":a$=(a$+165) Cw$=w$+(a$a$" ") p "23617",Z z#u;z,z;w$;u;"K";z,,:j lm=u: Lh"8400":"4","10";"VIDEOBASIC":a$="A PROGRAMACAO":YP="6":XP="8":L=U+U+U:YP,XP;a$:"8410" ~*"12",u;:"8300":RR:"8400":"8300" A$,B$:"1360" *"7",z;:lm="16-(T$/2)":tx:'':lm=u ( :"8300" 2&"13","9";"- - - - - -"''':"150" < "8300" P(RR:"8400":T$:T$"9000":"1300" x "8300":rr 5st=Z:b=ṵ"4":"9640":i=z̰"21":o;i,"17",:i bɰ"4":"127",z:z,"175" 9BU"21",z;u;" C$=CARACTER INTRODUZIDO " ;lm="17":b="2"z,z;:t$="5 TRADUCAO  AO BASIC ":TX I=Ṵ"1E3":T$ GT$(u)="0"xp="t$(2)-48":yp="t$(3)-48":YP,XP;bɰ"3";T$("4") !T$(U)="#"t$(u)="<"9100# >ER=U Hb="4"T$(U)="2"IST"":800 :u,"18",:b$(̱b$/2)b$(b$/2+u)U,"18";U;"ERRO !!":U,-o-o:"150":ER<"3"u,"18";U;"OUTRA VEZ!":"100":U,"18",:ER=ER+u:"3400" RER="3"LM=U:T$="CREIO QUE E MELHOR VOLTARESA LER COM CALMA O PROGRAMA,E TENTA DE NOVO.":8400 :TX:RR:ST=I:b=u:"3900" zTt$(u)="1292"(B)y="t$(u+u)-48":y,"17";:t$=t$(3):tx:BU9050Z# T$(U)="*"b=u"9050" 7I="14""107","80":"10",Z:Z,"64":"-21",Z .I="11""24","108":"-10",Z:Z,"10" tT$(U)"%"i ~#b=U+Ulm=u:rr:"8400":"8300" Bɰ"3""":RR <b PLM=U:"8400":T$="DADA A BREVIDADE DESTE PRO-GRAMA, NAO FOI PREVISTA AOPCAO DE SAIDA.PELO QUE TE PERGUNTAREI SEQUERES TENTAR DE NOVO.":TX b#Z;Z,Z;U;"BEM, "+N$,,"AGORA PRIME , E VERAS FUN-CIONAR O PROGRAMA.",:Z:"R""3980" M:"18",Z;" (INTRODUZ OS CARACTERES)"''" <0> PARA COMECAR";Z,Z; Z:T$=:T$="0":"4100" T$"A"T$"Z"T$;  "4000" a.2~L,:#0;ç,;"R  COMECAR *** C  CONTINUAR ":Z:="R""":"3990" "C""4100" $T$:T$4900$ %"8400":LM=U:"8300":RR:"8400" 07,U;:LM=6:T$="ESCOLHE, "+N$:TX 11 ,6;"C CARREGAR A PARTE";12 ,O;"SEGUINTE";13 ,6;"I INTRODUCAO";15,6;"E EXERCICIO" #0:A$=:A$="I"1000 A$="E"3000  A$="C"8000@  5110 @#:A$="POE O GRAVADOR EM MARCHA" J8I=Z̰"29":װ".05","2*I":o,i;" @";i;" ~|";i;" \]" ^'i>"2"i<"29"U;O,i;A$(i-2) hi rG8,30;" ";9 ,30;" ";10 ,30;" " | 7:"" 'Y$=" PRIME UMA TECLA PARA CONTINUAR " N#0;6;2;1;1,0;Y$:.001wn,30 KY$=Y$(2)+Y$(U):.0004uQX,45-:.0006vIQ,557:""  8160 mJ=Ṵ"t$(2)-48":yp,xp;u;" ":xp=xp+"t$(3)-49":yp=yp+"t$(4)-49":yp,xp;u;u;" ":װ".1","25":j:  8j=uz-u:"t$(3)-48","t$(2)-48";j;t$("4"̰"10") &jװ".5",U:"150" 0j: :"t$(u)="f""8200":t$=t$("5") D#t$(u)="d""8220":t$=t$("11") Nt$(u)"""8250" X l!T$:T$8330 :8300l v 0O:o:o+u:t$(u)=""p=t$(u+u):t$=t$("3") C=Z:U;lm; Hn=u̱t$:C=C+U:P;T$(N)t$(n)"";:T$(N)" ".001wn,40(:U "t$(n)=""c=z:u;lm;:"8390" (T$(N)=".".1}L,30:20 C=30C=Z:U;lm; N:Z:P=o-u: ЂPL=4:XL=248:YL=169:2:7::U+U,U;:3,3:PL;XL,Z:PL;Z,YL:PL;-XL,Z:PL;Z,-YL: rYG="(21-YP)*8-2":YS="L*8+3":XG="XP*8-4":XS="6+8*a$":XG,YG:XS,Z:Z,YS:-XS,Z:Z,-YS:U,-U:XS,Z:Z,YS: !4 t$:ñt$ !9Qt$(u)="t"yp="t$(3)-48":lm="t$(2)-48":xp=lm:yp,u;:T$=T$(4):tx !>t$(u)="<"T$(U)="#""9100" !C "8500" #(<YP="4":XP=YP:U+U,XP;A$;YP,XP;B$:xs=a$:8410 : #Z)"200"B>"2":j=z̰"20":j,z;u,:j: #xs="(t$(2)-48)*8+2":XG="XP*8-2":YG="(21-YP)*8-2":YS="(t$(3)-48)*4+2":n=yst$(u)="<":XG,YG:XS,Z:n,YS:-n,ys:-XS,Z:-n,-ys:n,-ys:"xg+xs/2",yg+ys*"2":z,t$("4")-"48": #li=u̱t$:xp=xp+(t$(i)="d")-(t$(i)="s"):yp=yp+(t$(i)="b")-(t$(i)="a"):yp,xp;u;u;" ":װ".03","18":i: # DATA $Ž"DESTA VEZ, "+N$,"UTILIZAREMOS O OPERADOR LOGI-CO , PARA VERIFICAR A VA-LIDADE DE UM CARACTER INTRODU-ZIDO PELO TECLADO NUM JOGO.","" $,"ESTE PEQUENO JOGO CONSISTEPOIS EM INTRODUZIR UM CA-RACTER PARA IR FORMANDO UMAPALAVRA COM SENTIDO COMPLETO.PERDE O PRIMEIRO JOGADOR QUENAO PUDER COLOCAR UMA LETRA.SO SAO VALIDOS OS CARACTE-RES ENTRE E ; APRESSAO DE <0> PRODUZ O RE-TORNO AO INICIO DO JOGO.","" $9" - O JOGO DA - "," --- PALAVRA --- " $Y"11 - FASE DE INPUT","QUAIS SAO OS ELEMENTOS QUEAPARECEM NO NOSSO PROGRAMA ?","" $S"O unico elemento que aparece,e o caracter que introduzi-mos de cada vez.","" %8"22 - FASE DE CALCULO"," QUE DEVEMOS VERIFICAR?","" %0s"Deveremos comprovar se ha al-gum caracter fora do limite... e se queremos reco-mecar, premir <0>.","" %D:"43 - FASE DE OUTPUT","QUAL E O RESULTADO FINAL ?","" %N_"O resultado final sera a im-pressao da palavra introdu-zida caracter a caracter.","","" %x"AGORA, "+N$,"TRANSFORMAREMOS EM ANALISE,PRIMEIRO NUM DIAGRAMA DE FLU-XO, E SEGUIDAMENTE EM INSTRU-COES ." %"ACONSELHO-TE A LER COM CUI-DADO AS INDICACOES REFEREN-TES A INSTRUCAO .OBSERVA QUE NA INTRODUCAOUSAREMOS ,COM O OBJECTIVO DE OBTER UMSO CARACTER DE CADA VEZ.","" %GRAFICOS %"131 I N P U T " %4"043INTROD. ","044CARACT. ","#820","23100:C$=" %"*1 ","182 ELABORACAO " %"006RUN","019S.","048C$=""0"" ?","<81C","2820C$=""0""","04; FORA ","04""Z""10" %"*1 ","1A4 O U T P U T" %@"04@IMPRIMIR","#81C","2@40C$;","04CINICIO ","#81;","2C5010" % "*1 ","% " %"BEM, "+N$+"AGORA TENTA VOLTAR A ESCRE-VER O PROGRAMA COM BASE NODIAGRAMA DE FLUXO.LEMBRA-TE DE NUMERAR AS LI-NHAS DE 10 EM 10, A PARTIR DE10.","" &"BEM "+N$+"ESCREVESTE UM PROGRAMA UTILI-ZANDO UMA TECNICA FUNDAMENTALNA ELABORACAO DE DADOS: OTRATAMENTO DOS DADOS INTRO-DUZIDOS." &4"" zuo[[ p  NAA PROGRAMACAOlv<~CAR |HC)"$$$~$$~$$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >>>  > >> x !X 6# x !@@~ #................................... f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 *   EDICOES LATINAS * ڼ:ټ:缧::"31999":"10",;ٰ"7";" CARREGANDO VIDEOTEST ":"23609","20":"23658","8":ټ:"":""32000},768:"23606",ç:"23607","124":""Q$():""16384@,2048 2:DISP=(23636T\*256+23635S\-23755\):copy=23760\+DISP:cls=23772\+DISP:attr=23813]+DISP:SCROLL=23828]+DISP dڰ"7":ټ:9550N%:attr:"15",ç;" PARA O GRAVADOR ":"9040":"200":"9010" kP="7":I=ç:Y="14":A$="VIDEOTEST ":"9050":N="2"̰"28":"9510":N>"10"N<"21"y,N;A$(N-"10") ($.03{u\,N*2:N:95200% <"9000":"3020"  "9000" "9050":ATTR:0;"11","6";"PRIME";"14","6";"R REPETIR";"16","6";"C CARREGAR O VIDEOJOGO";"18","6";"F FIM" ="R"0:"30" ="C"0:"800" ="F"33804 :5,14;"FIM";13 ,1;"Guarda a cassete na caixa";14,1;"e desliga a alimentacao do";15,1;"SPECTRUM. Concluiste a,";17,18;"VIDEOBASIC":5,0: &"510"  57:7:"23675","88":"23676","127": *LY=8:A$="POE O GRAVADOR EM MARCHA":N=228:9510&% 43N>2N<291;Y,N;A$(N-2) >.01z# =,2*N:N HG8,29;" ";9 ,29;" ";10 ,29;" " p ٰ"7":"" ***respostas flash*** *s=0:x=15:B$="------------" ,Y(15):q=115:y(q)=q:q \q=115:12 ,11 ;q$(q,66B):20:.2~L,(q+10 ):q 9050Z#:3490 ***bloco principal*** .w=115:z=(*x+1):q=y(z)  x=x-1 n=zx:y(n)=y(n+1):n -15,1;5;"PERGUNTA N. ";w &c=13 :t=2 +II=1:PP=5 0h17,1;q$(q,231);18,1;q$(q,32 61=):"RESPOSTA = ";i$ : i$="" D7i$q$(q,66B65A+q$(q,1))3250 Ns=s+t:3220 X3400H :9050Z# bw l***pontuacao*** {618,2;"A TUA PONTUACAO: ";s;" SOBRE 30." 3620$ e9050Z#:12 ,2;"MUITO BEM ";n$;15,10 ;i$;17,19;" EXACTO." 3540 :3160X ERRO .5,-20:9050Z# 113 ,2;"""";i$;""" estas enganado." 9000(# t=23320 ^9050Z#:13 ,3;"A resposta correcta e:";15,11 ;q$(q,66B) 3160X **AJUDA** II=2:PP=5:9050Z#:t=1:Q$(Q,1)<313 ,3;"A RESPOSTA E MUITO CURTA";15,3;"NAO TE POSSO AJUDAR":9041Q#:150:9050Z#:31200 +13 ,1;"E AGORA UMA SUGESTAO:" \15,18;q$(q,66B);b$(3̯q$(q,1));q$(q,65A+q$(q,1)) +20,10 ;0;"R E P E T E" 31200 ****CLS EM BAIXO*** 4 9550N% >****** H 9000(# p***INPUT controlado*** z""3450z =""3460 k$=:  VISUALIZACAO :YY=(*3)*3:XX=(*5)*6+1 (YY,XX)183550 R1;II;PP;YY,XX;" ";YY+1,XX;" ";YY+2,XX;" "  ***comentario final*** 13 ,4;N$;"," $s<1515,2;"PARA MELHORAR, VOLTA A LER A";17,11 ;1;"VIDEOBASIC":9041Q#:200:500 .6s>2215,4;"Muito bem, exelente!" 8rn=18:.1}L,26:n:a=1:n=14:.15~,26:.1}L,30:n B!I=0255:SCROLL:I L 500  3650B #(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" #6S9550N%:"10","3";"ESCREVE O TEU NOME NO TECLADO E PRIME " #7ON$:"50":9550N%:"11","4";N$;"13","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":I=0 #H\N="1"̱T$:P;I;X,Y;T$(N):T$(N)" ".001wn,40(:Q=*10 :E=1Q:E #I1Y=Y+1:Y=31Y=1:X=X+1 #JT$(N)="."װ".1","30":"20" #KN:P="7":I=0: #Q N=ç̰"10":װ".01",N*"5":N: #[i"2":ڰ"7":9550N%:"3","3":ڰ"4";"248",ç:ڰ"4";ç,"98":ڰ"4";-"248",ç:ڰ"4";ç,-"98": %&O7;3;Y,N;" {|";Y+1,N;2;" }_";Y+2,N;" []": %0FY,29;" ";Y+1,29;" ";Y+2,29;" ": %N<L=23624H\:CC=(L/8):23820 ],CC*8+CC %XH9 ,0;:cls:21,31;" ":.001wn,30: &H&X=23760\24000]:X,X:X & шMINSTRUCAO BASIC QUE APAGA ASVARIAVEIS CLEAR INSTRUCAO QUE APAGA O PROGRAMAE AS VARIAVEIS NEW INTERROMPE A EXECUCAO DOPROGRAMA STOP CONTINUA O PROGRAMA DEPOISDUM STOP CONTINUE FUNCAO LOGICA QUE EFECTUA OPRODUTO DOS SEUS ARGUMENTOS AND RESTITUI 1 SE AO MENOS UMA DASENTRADAS VALER 1 OR FUNCAO QUE CALCULA A NEGACAODO ARGUMENTO NOT TIPO DE TRANSMISSAO EM QUE SEEMITE UM BIT DE CADA VEZ SERIE TIPO DE TRANSMISSAO QUE EMITEUM BYTE DE CADA VEZ PARALELA INTERFACE STANDARD SERIE RS232 RESULTADO DA EXPRESSAO (NOT 7) OR (NOT 3) 0 RESULTADO DA EXPRESSAO (NOT 5) = (NOT 3) 1 DISPOSITIVO QUE ESTA A RECE-BER AGORA MESMO DADOS EM SERIE TELEVISOR DISPOSITIVO QUE ESTA TRANSMI-TINDO DADOS EM PARALELO TECLADO OPERADOR LOGICO DE MAIOR PRIO-RIDADE NOT isop\l\tt]crol]lpBysx  zc tN B ------------N IORYPRIME UMA TECLA PARA CONTINUAR SPRIME UMA TECLA PARA CONTINUAR aWjwAPOE O GRAVADOR EM MARCHACAR }! $$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >D?8@`??20 p0?D??x{0?G  ?~p0&?|x`G?< x?X%?!?pGp|x`?9?$0?>!?0c<0P??$!~?~?8?9xH??? >@ ?cH?0~@?APVIDEO-JOGOH&P $7:2:9 :0 "" 23658j\,8 d!"1","2","1","MAR, EM INGLES" n"1","6","1","VOGAL" x"1","8","1","VOGAL" "1","10","1","GOSTAR DE..." "2","1","1","ORDENADOR" "2","12","1","NOTA MUSICAL" "3","2","1","OS GATOS..." "3","9","1","ANDAR A RODA" ("4","1","1","DO MEMBRO INFERIOR..." &"4","4","1","SUPERFICIE NAO LISA" 3"4","11","1","TRES LETRAS INICIAIS DE ORIENTE" 1"5","1","1","PONTA DE CIGARRO, AO CONTRARIO" /"5","7","1","LAJE SOBRE QUE ACENDE O LUME" '"6","1","1","ESCLARECER, EXPLICAR" "6","10","1","VAZIO, OCO" '"7","2","1","DONA DA CASA, PATRAO" 5"7","6","1","PESSOA A QUEM SE TRIBUTA VENERACAO" ,"7","13","1","LINGUAGEM DE PROGRAMACAO" 1"8","1","1","TRES LETRAS INICIAIS DE OSEIAS" :"8","5","1","NOME DE CITRINO NO PLURAL, AO CONTRARIO" "8","12","1","VOGAL" ""9","1","1","SIMBOLO DO IODO" "2"9","3","1","GRUPO DE LETRAS SEM SIGNIFICADO" ,"9","9","1","SOCO" 6 "10","1","1","RACA DE PATO" @"10","8","1","MES DO ANO" J"10","13","1","VOGAL" T("11","2","1","RANDON ACCESS MEMORY" ^"11","6","1","PARA FORA" r+"11","12","1","QUATRO EM LETRA ROMANA" |)"12","1","1","CORTAR A RAMA INUTIL " }"12","7","1","VAZIO, OCO" ~*"12","11","1","IMPOSTO, AO CONTRARIO" <"13","1","1","HUMOR AQUOSO QUE VEM A SUPERFICIE...PELE" ""13","6","1","ACTO DE CORRER" 2"13","12","1","MISTURA DE GASES DA ATMOSFERA" +"2","1","2","LENGUAGEM DE PROGRAMACAO" "4","1","2","PROGENITOR" 5"8","1","2","CANTO DE AVE JOVEM, AO CONTRARIO" ("12","1","2","INICIAIS DUM PARTIDO" -"1","2","2","VERBO SALTAR, AO CONTRARIO" "10","2","2","VERBO ARAR" )"1","3","2","COMPANHIA DISCOGRAFICA" )"5","3","2","AMPLIADO, ACRESCENTADO" !"1","4","2","VERBO APARECER" "9","4","2","ADICIONAR" &"2","5","2","URUBO SEM O E COM I" "8","5","2","ASTRO" "12","5","2","CONSOANTE" %"1","6","2","GATA, AO CONTRARIO" 7"6","6","2","COMER SO ALGUNS ALIMENTOS, NO PLURAL" &,"13","6","2","LINGUAGEM DE PROGRAMACAO" 0."2","7","2","PROFISSAO QUASE EM EXTINCAO" :"11","7","2","PAI DO PAI" D+"1","8","2","PREPOSICAO, AO CONTRARIO" I,"4","8","2","VERBO MORAR, AO CONTRARIO" N$"10","8","2","MIADOS, DAR MIOS" S*"2","9","2","REZAR, FALAR EM PUBLICO" X!"7","9","2","HOMEM QUE LIMA" b1"1","10","2","PEQUENO CIRCULO, ARGOLA, ARCO" l"5","10","2","PROGREDIO" m"13","10","2","VOGAL" n"1","11","2","CONSOANTE" o""3","11","2","SENTIA UMA DOR" p"9","11","2","LETRA GREGA" q4"12","11","2","DIGITO HEXADECIMAL COM VALOR 10" r"1","12","2","PRENDO, ATO" s1"8","12","2","MISTURA DE GASES DA ATMOSFERA" t"11","12","2","IMPOSTO" u"1","13","2","VERBO RIR" v,"7","13","2","LINGUAGEM DE PROGRAMACAO" w)"9","13","2","UM DOS CINCO SENTIDOS" M1,2,"SEA",1,6,"A",1,8,"E",1,10 ,"AMAR",2,1,"COMPUTADOR",2,12 ,"MI",3,2,"MIARAM",3,9 ,"RODAR",4,1,"PE",4,4,"RUGOSA",4,11 ,"ORI",5,1,"ATAEB",5,7,"LAREIRA",6,1,"ILUCIDAR" 6,10 ,"VAO",7,2,"AMO",7,6,"IDOLO",7,13 ,"C",8,1,"OSE",8,5,"SEOMIL",8,12 ,"A",9 ,1,"I",9 ,3,"NSOTR",9 ,9 ,"MURRO",10 ,1,"PATOLA",10 ,8,"MAIO",10 ,13 ,"U",11 ,2,"RAM",11 ,6,"SAIDO",11 ,12 ,"IV",12 ,1,"PODAR",12 ,7,"VAO",12 ,11 ,"AVI",13 ,1,"SUOR",13 ,6,"CORRE",13 ,12 ,"AR"  Q$(13 ,13 ) 700:P=136$ y,x,A$  Q$(Y,X)=A$ P X=1:Y=1 e$(40() X1=2:Y1=2 8:8 4F$=:236077\,60< 9S6:"":#0;0,0;" PRIME: F PARA TERMINAR " >,X=X+(F$="8"X<13 )-(F$="5"X>1) H,Y=Y+(F$="6"Y<13 )-(F$="7"Y>1) R9Y+1,X+1;5;2;1;" " WX1=XY1=Y2200 \7Y1+1,X1+1;7;0;1;" " f X1=X:Y1=Y ="0"2500 ="F"6000p 1:2 ` 21004 /r$(2,40()::236077\,124| 2 P=172H a,b,c,a$ a=yb=xr$(c)=a$ p <r$(1)=e$r$(2)=e$1,1:21004 7R$(1)E$o=6:p$=r$(1):8000@ 8R$(2)E$o=14:p$=r$(2):8000@ S=0 R$(1)=E$S=2 R$(2)=E$S=1 S026102 O#0;0,0,," VERTICAL HORIZONTAL " !I$=:I$"V"I$"H"2580 I$="V"S=2 (I$="H"S=1 2$1,0;"RESPOSTA: ";W$ 3236077\,124| 4 9400$ 7-S=1W$+X>14W$=""5000 8-S=2W$+Y>14W$=""5000 <S=13000 FS=24000 P T=0̱W$-1 T$=Q$(Y,X+T) W$(T+1)T$5000 T T=0̱W$-1 FY+1,X+T+1;"_";1;Y+1,X+T+1;Q$(Y,X+T) T  21004 T=0̱W$-1 T$=Q$(Y+T,X) W$(T+1)T$5000 T T=0̱W$-1 FY+1+T,X+1;"_";1;Y+1+T,X+1;Q$(Y+T,X) T  21004 ;#0;1,0;"ESTAS ENGANADO ! TEM ATENCAO!"  9400$ 1:200 ""  21004 o q236077\,124| r 4 u P=-23 zY=214 X=214 (Y,X)="_"6040  P=P+1 X Y 236077\,60< 9"":#0;1,4;" FIZESTE ";P;" PONTOS." E#0;0,7;" PRIME UMA TECLA ":1:0  Ű#0;21,0;10 ,0;" POE EM MARCHA O GRAVADOR ";20,0;" " 7:7:"" J p=17 #-236077\,124| #2i=1̱p$ #<p$(i)=" "9200# #F o,p;p$(i) #P2p=p+1:p=30p=17:o=o+1 #Zi #_236077\,60< #d #g=i+1̱p$ #p$(g)=" "9230$ $g $:(g-i)>(30-p)o=o+1:p=17:i=i+1 $ $4J=611 :J,17;" ":J $5J=13 20:J,17;" ":J $ &Hs(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:31999| &R14:4:4:""::""32000} &W"" &\'P$=" PARA O GRAVADOR " &aC=031 &dK#0;1,0;(C/4);"" &f2#0;0,0;ڥ*7;9 ;P$ &k .02,*C &pP$=P$(2)+P$(1) &zC & 1 CAR }$. $$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >|~~|0fjhN`~ffb`FbFf><~~<|<<<< 808~||808008x0~800~|D8D|88D88||8@88|x|x|88D8lDD@DDlD@@D@D@@c8D@D@DDlLxTD(p@DT`|8p@@|8p?xpDp@DTT;pDD(@DDD?pD@D@D?0@@@D@DDDd`D8|88D~Dx|8|Dxa|@|x|88D8 }>111111111111111111111111111111111<<<<<<<<<<<<<<1<<<<<<<<<<<<<<111<8888888881<8888888888888111<8888888888881<8::::::::::::111<888888888881<8999999999999111<888888888881<8;;;;;;;;;;;;111<8888888888881<8888888888888111<888888888881<8888888888888111<8888888881<8888888888888111<88888888881<8888888888888111<888888888881<8888888888888111<888888888881<8888888888888111<88888888881<8<<<<<<<<<<88111<888888888881<8888888888888111<888888888881<8888888888888111111111111111111<8888888888888111<<<<<<<<<<<<<<1<8888888888888111<11111111111111<8888888888888111<11111111111111<8888888888888111<11111111111111<8888888888888111<11111111q11111<888888888888811111111111111111111111111111111118888888888888888888888888888888888888888888888888888888888888888VIDEONEXT AU` C   EDICOES LATINAS  f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 317997|:7:7:7:0::23658j\,8:236099\,20:20,0;:""318008|:236066\,86V:236077\,123{ p23570\,6:1::#0;0,0; " PARA O GRAVADOR " 23624H\,579 -n=1502:.01z# =,*60<:n ( 1000 * 8990# - SUMARIO 21::90102# 7P.6,21:P$=" no numero 8 ":k=4:9020<# 8;p$="VIDEOHARDWARE: ":K=7:9020<# 9:p$="O gravador ":k=8:9020<# ;<P$="VIDEOBASIC-A LINGUAGEM: ":k=10 :9020<# <;p$="DIM - SAVE - LOAD ":k=11 :9020<# =:p$="VERIFY - MERGE ":k=12 :9020<# ><p$="VIDEOBREAK: ":k=14:9020<# ?;p$="Caleidoscopio ":k=15:9020<# @<p$="VIDEOBASIC-A PROGRAMACAO: ":k=17:9020<# A;p$="Uso de Vectores e Matrizes ":k=18:9020<# K<p$="VIDEO-JOGO: ":k=20:9020<# L;p$="Solitario ":k=21:9020<# _ 150 d1000:8990#::8994"#:L=10 :v=10 :a$="Ate a proxima":3000 :l=16:v=18:a$="VIDEOBASIC.":3000 :9999':10000' 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 LETREIROS ROTATIVO 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-:.000>vIQ,557:"""": i:1000 %ROTINA PARA MAQUINA DE ESCREVER Zl,v;"";:q=1̱a$:a$(q);:a$(q)" ".0005vn,40(:m=1̥*5:m 4a$(q)=".".2~L,0:23692\,255 q: #LE OS 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 #!HOMEMZINHO #"'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&# #& #'ENQUADRO #(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$="VIDEONEXT":9000(#: #;LETREIROS #<k=229050Z# #FLn=1̱p$:k,32 -n;p$(N):.002xn,(k-3)*n/8:n: #Z[n=1̱p$:#0;0,32 -n;p$(N):.002xn,(k-3)*n/8:n: ':n=1502:.01z# =,*60<:*7:n: 32'aVLkPSolitario Y PRIME UMA TECLA PARA CONTINUAR S PRIME UMA TECLA PARA CONTINUAR lv   A VIDEOBASIC.)CAR 8|U"$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >