ZXTape! EXERCICIOSMY   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 2I=U:PN=U:A$=" EXP - LN - DEF FN - FN":"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 9"8400":7,U;:T$="ESCOLHE, "+N$+":":8330 E=Z:11 ,6;"F FIM";13 ,6;"E EXERCICIOS";15,6;"C PASSO P/A PARTE";16,6;" SEGUINTE" Z$=:Z$="F" Z$="E"I=PN:E=U: Z$="C"I=I+U:PN=I:  8090 1502: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)="}"'U''" ";: T$(N)=""P="8": .T$(N);:OPT$(N)" ".001wn,40(:U *OPT$(N)=".".1}L,30:9 "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$="TENTA ESCREVER AS INSTRU-COES DAS PERGUNTAS QUE TEVA FAZENDO. ESTOU CERTO QUE NAO ENCONTRA-RAS GRANDES DIFICULDADES.":"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 #LEr"100":"8","10";"OUTRA VEZ !":װ".5","32":"8470":ER=Z:"8850" # "8810" $ DATA  $W"AGORA OBSERVEMOS O USO PRA-TICO DAS NOVAS INSTRUCOESQUE ACABAMOS DE VER.","" $R"LET A=EXP -1.5","A FUNCAO ACEITA ARGU-MENTOS DECIMAIS E NEGATIVOS.","" $I"LET C=LN 0","ERRO ! SO ACEITA ARGU-MENTOS MAIORES QUE <0>.","" $c"DEF FN D()=PI*2","MESMO QUANDO NAO TIVERMOS PA-RAMETROS, E OBRIGATORIO O USODE PARENTISIS.","" $̇"DEF FN A$(POS,A$)","O NOME NAO TEM NADAA VER COM O PARAMETRO ,NEM COM A EVENTUAL PRE-SENTE NO PROGRAMA.","" $~"DEF FN X(B)=A+B+C","NESTE CASO E ,NAO ESTAN-DO PRESENTES ENTRE OS PA-RAMETROS, SERAO OBTIDOS PELOPROGRAMA.","" $^"PRINT FN Z(""B"",C/3,ABS Y)","POR EXPRESSOES COMO ESTA PO-DEM IMPRIMIR-SE PARAMETROS.","" $є"DEF FN C()=FN A(X)+Y","AS FUNCOES DEFINIDAS SAOVALIDAS PARA TODOS OS EFEITOS,E PODEM SER UTILIZADAS POR SUAVEZ PARA GERAR OUTRAS NOVAS.","" %9"" %: INTER %??"A=2"," FICA COM O VALOR"," ELEVADO","" %DD"Q(X)=X^3","DEFINE A FUNCAO ","QUE DEVOLVE O CUBO DE ","" %Ig"U$(A$)=A$(A$)","DEFINE A FUNCAO ","QUE DEVOLVE O ULTIMO CARAC-","TER DO ARGUMENTO ","" %Ne"M(X,Y)=(X+Y)/2","DEFINE A FUNCAO ","QUE DEVOLVE A MEDIA","DOS ARGUMENTOS E ","" %Xp"M(A/2,""BASIC"")","IMPRIME O RESULTADO DA","FUNCAOASSIGNANDO-LHE OS","PARAMETROS E ","" &G"" zu"eac  #NA xC)BT ESCOLHE, :eZ SCAR EXER |M .#$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0 ~:5:5:("A"-1):"""A":""16384@:#1;8;1,0;" PARA O GRAVADOR " 1 x(10 ):y(10 ) a=15 y(a)=(*10 ) |s=0:x(a)=(*33!):25:a:#1;1,0;4;6;" " <a=15:x(a+5)=x(a):y(a+5)=y(a):a (a=15:y(a)=y(a)+(+0.9ffff):x(a)=x(a)+2*(-0.5)+(x(a)2)-(x(a)29):y(a)>21y(a)=(*10 ):#1;4;6;1;+0.1}L,x(a);(144+*3):x(a)=(*30+1) -bs=12;5;y(a+5),x(a+5);(144+(a-1)/4*3) /G6;8;y(a),x(a);(144+(a-1)/4*3) 1v""0:#1;1,0;1;9 ;" POE EM MARCHA O GRAVADOR ":0,0;:"" 2a <s=1:30 5 46@`mQ@PC;@@`mQ@P5   (sUDG BREAK X@ >BB<DHpHDB@@@@@~BfZBBBBbRJFB?<??| <??||??<|8p?pp@???~>8~?@|@<x` |``x.<?x?<.s ? ?8~???<~@??8??~?>>?@?<=<@p? ??|8?.<?|<x.:`? ???<??<|<x??|`???|??~?|~x??`???p??~p~p??`???`8?<?`<p?`???<?? >p? ???p??>? ??????????????**********************************************.*****************************************.************.*************************.*****..***+*********.******.*.************++**************************************************..*****+*********************..*******.+*********************..***********.**********.****......*****************************************.**************************.*******.**************************.**.*******************************************************************************************************************************************************************************************************************************************************,,,,,,,,,******"""**,,,,,,,,,,,,%%%%%%%%%%%"""""""""%%%%%%%%%%%%""""""""""""""""""""""""""""""""'PROGRAMA o=  EDICOES LATINAS  f(23613=\+256*23614>\),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 |RR="8150":TX="8330":P=O-U:Z:O::u;"10",z;" PARA O GRAVADOR ":N=z̰"10":װ".01","N*5":N:"200" "23296"="""260" ҏ:"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: 0+"23617",Z:a$=°"14""23617",u:"890" 4(a$="12"ƱW$-uw$=w$(̱w$-u):"890" >K(a$>"A"a$"z"w$(w$)"9"w$(w$)"0")w$(w$)="":a$=(a$+165) Cw$=w$+(a$a$" ") z#u;z,z;w$;u;"K";z,,:j   MAIN  lm=u: Lh"8400":"4","10";"VIDEOBASIC":a$=" A PROGRAMACAO ":YP="6":XP="7":L=U+U+U:YP,XP;a$:"8410" ~-12 ,u;:"8300":RR:"8400":"8300" A$,B$:1360P  FASE 1 -7,z;:lm="16-(T$/2)":tx:'':lm=u ( :"8300" 2/13 ,9 ;"- - - - - -"''':150 < "8300" P.RR:"8400":T$:T$9000(#:1300 "9600":"8400":"8300":RR GRAFICOS 5st=Z:b=ṵ"4":"9640":i=z̰"21":o;i,"17",:i bɰ"4":"127",z:z,"175" TBU"21",z;u;"CI=CAP.INIC ; CF=CAP.FIN ;I=INT ";Z,Z;U;"T=LN(CF/CI)/LN I" ;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$="TALVEZ SEJA MELHOR VOLTARES ALER O PROGRAMA DE NOVO PARATENTARES OUTRA VEZ.":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" 6I="26""96","28":"16",Z:Z,"91":"-16",Z tT$(U)"%"i ~#b=U+Ulm=u:rr:"8400":"8300" Bɰ"3""":RR <b PF:#Z;Z,Z;U;"BEM, "+N$,,"AGORA PRIME ....",:Z:"R""3920" nY:"CI=";A$'"CF=";B$'"I=";c$:j="10":t$=c$:"9150":t$=a$:"9150":t$=b$:"9150" sGj="7"J=J-(b$Ȱa$)-(a$ǰ"9")-(b$<"9")-(c$<"4")-A$-B$-C$ xRJ"20",z;u;"VALOR NAO ACEITAVEL-OUTRA VEZ":U,Z:"100":"20",z,,:"3950" ""((b$/a$)/(c$/100+u)+.5)" 8#z;u;" PRIME PARA TERMINAR",:Z:"E""3950" $T$:T$4900$ %"8400":LM=U:"8300":RR:"8400" 47,U;:LM=6:T$="ESCOLHE, "+N$+":":TX 11 ,6;"C CARREGA A";12 ,O;"PARTE SEGUINTE";13 ,6;"I INTRODUCAO";15,6;"E EXERCICIOS" #0:A$=:A$="I"1000 A$="E"3000  A$="C"8000@  5110 @#:A$=" POE O GRAVADOR EM MARCHA " JAI=Z̰"29":װ".05","2*I":0: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" #(DYP=4:XP=4: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: #-t$i=u̱t$:t$(i)"0"t$(i)"9"i:j=j-u # # DATA $X"O PROGRAMA DESTA LICAO EFINANCEIRO E REFERE-SE AO TI-PO JURO ACRESCENTADO.","" $ǥ"PODEREMOS RESOLVER PROBLEMASPARA: DETERMINAR QUANTO TEMPO (T) LEVARA ATE QUE O CAPITAL (CI) INVERTIDO COM O JURO (I) ALCANCE O VALOR (CF).","" $2" - JURO ACRESCENTADO - "," CALCULO DO TEMPO" $Q"11 - FASE DE INPUT","QUAIS SAO OS ELEMENTOS QUEINTERVEM NO PROBLEMA ?","" $b"Os dados necessarios sao:* CAPITAL INICIAL (CI);* TAXA DE JURO (I);* CAPITAL FINAL (CF).","" %;"22 - FASE DE CALCULO","COMO OBTEREMOS O RESULTADO ?","" %0"Transformaremos os interesesde percentagens a decimais. Aplicando depois uma formulafinanceira adequada, obteremoso tempo.","" %D8"43 - FASE DE OUTPUT","QUAL E O RESULTADO FINAL ?","" %N"O resutado final consiste naimpressao do tempo arredondado(ou por periodos) necessariopara que se verifiquem as pe-ticoes.","","" %c"AGORA, "+N$+"TRANSFORMAREMOS PRIMEIRO EMANALISE UM FLUXOGRAMA E DEPOISAS INTRUCOES ." %|"OBSERVA ATENTAMENTE AS MENSA-GENS RELATIVAS AO INPUT.","O ARREDONDAMENTO OBTEM-SEATRAVES DUMA FUNCAO DEFINIDA.","" %GRAFICOS %"151 I N P U T ","043DEFIN. ","044FN A(N) ","#820","2310A(N)=(N+.5)","046INT.","047 ","#820","2620""CI="";CI'""CF="";CF'""I="";I" %"*1 ","1:2 ELABORACAO " %o"049CONVERT.","04:1+I/100 ","#823","2930I=1+I/100","04","#823","2<40T=(CF/CI)/I" %"*1 ","1?4 O U T P U T " %Q"04?IMPRIME ","04@PERIODO ","#823","2?50A(T)","04B VOLTA ","#813","2B6020" % "*1 ","% " %"BEM, "+N$+"AGORA TENTA ESCREVER O PRO-GRAMA COM BASE NO DIAGRAMA DEFLUXO.LEMBRA-TE DE NUMERAR AS LINHASDE 10 EM 10 A PARTIR DE 10." %-"OBSERVA AS MENSAGENS DOS.","" &n"BEM, "+N$+"CONSEGUISTE ESCREVER UMPROGRAMA DE USO FINACEIROUSANDO UMA FUNCAO DEFINIDA PORTI." &4"" zuo[[ p  lc  yZ#NMARIOA - JURO ACRESCENTADO - B CALCULO DO TEMPOY UMA TECLA PARA CONTINUAR PRIMETCOMO OBTEREMOS O RESULTADO ?CAR PROG |D/#$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >>>  > >> x !X 6# x !@@~ #................................... *  EDICOES LATINAS * f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 ç:ç:ڼ:ټ:缧::"31969":"10",;ٰ"7";" ESTOU A CARREGAR TESTE ":"23609","20":"23658","8":ټ:"":""31970|:"23606",ç:"23607","124":""Q$():""16384@,2048 2:"":DISP=(23636T\*256+23635S\-23755\):copy=23760\+DISP:cls=23772\+DISP:attr=23813]+DISP:SCROLL=23828]+DISP eڰ"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 VIDEO-JOGO";"18","6";"F FIM" ="R"0:"30" ="C"0:"800" ="F"33804 :5,14;"FIM";13 ,1;"Guarda a cassette na sua caixa";14,1;"e desliga a alimentacao ao teu";15,1;"SPECTRUM. ATE BREVE,";19,18;"VIDEOBASIC":5,0: &"510"  57:7:"23675","88":"23676","127": *LY=8:A$=" POE EM MARCHA O GRAVADOR ":N=228:9510&% 43N>2N<291;Y,N;A$(N-2) >.01z# =,2*N:N HG8,29;" ";9 ,29;" ";10 ,29;" " p ٰ"7":"" ***resposta flash*** *s=0:x=10 :B$="------------" ,Y(10 ):q=110 :y(q)=q:q \q=110 :12 ,11 ;q$(q,66B):20:.2~L,(q+10 ):q 9050Z#:3490 ***bloco principal*** .w=110 :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 0g17,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*** {719,1;"A TUA PONTUACAO E ";s;" SOBRE 20." 3620$ g9050Z#:12 ,2;"MUITO BEM ";n$;15,10 ;i$;17,19;"ESTA EXACTO." 3540 :3160X ERRO .5,-20:9050Z# 013 ,2;"""";i$;""" estas enganado." 9000(# t=23320 [9050Z#:13 ,3;"A resposta correcta e:";15,11 ;q$(q,66B) 3160X **AJUDA II** II=2:PP=5:9050Z#:t=1:Q$(Q,1)<313 ,3;"A RESPOSTA E MUITO CURTA";15,5;"NAO POSSO AJUDAR-TE":9041Q#:150:9050Z#:31200 -13 ,1;"AQUI TENS UMA SUGESTAO:" \15,18;q$(q,66B);b$(3̯q$(q,1));q$(q,65A+q$(q,1)) )20,10 ;0;"OUTRA VEZ" 31200 * ***CLS*** 4 9550N% >***prime tecla*** H 9000(# p***INPUT controlado*** z""3450z =""3460 k$=:  VISUALIZACAO BLOCO :YY=(*2)*4:XX=(*5)*6+1 (YY,XX)183550 1;II;PP;YY,XX;" ";YY+1,XX;" ";YY+2,XX;" ";YY+3,XX;" ":YY=4YY+4,XX;II;PP;1;" "  ***comentario final*** 13 ,4;N$;"," $s<10 15,4;"PARA MELHORARES LE DE NOVO";17,11 ;1;"VIDEOBASIC":9041Q#:200:500 .6s>1515,4;"Muito bem, parabens!" 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","5";"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 & CAR TEST |X# #ROBERTO$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >UM ARGUMENTO ZERO ? NAO O QUE FAZ COM QUE OS CIRCUITOSTENHAM PO ? CALOR ECRAN @6/-@6 2;w8?@?}?7<?|_ /8^ 8C  yQ8?7tw@ '?< p7?p0<|~}1᯿8^~ @-$d@@}y@?= < 8^ _!܀O|?Uۿ ߽? |l}|~`xX?yW}xA?!p~??x hDxx!pp??ưAy>~iomp@p8>ԁN0@~p{(b`A<I {g|`?@?@?V8Pw!x$߽ fpoX<8???@?`wQ8^pVIDEO-JOGO '7,   EDICOES LATINAS  {236066\,0:236077\,60<:95_,2:95_,2+4*(63?64@)::32200} Xj=07:"a"+j,10000001+01111110~*((j=0)+(j=7)):j #j=07:k:"b"+j,k:j dA23561 \,20:23562 \,1:236099\,10 nvite1=3:vite2=3:punti1=0:punti2=punti1:xs=16:ys=16:yy=0:p$="GO":5:6:2: sf16,0;1;9 ;" PARA O GRAVADOR ";0,0;:9998' x100d:j=111 :(J<9 );6;1;"":j j=12 2508:k=68D1708:(j,k)=122528X+(j/8)+((175-k)/8)*32 ,1+5*(j<138)+8+(8*5*(j>138))+128 k:j 0:yy=176-6*8:ys=2:xs=1:p$="  1986 by VIDEO BASIC ":4:2:1:9998':0 0:yy=176-2*8:ys=1:xs=2:p$="Prime uma tecla":3:6:1:9998':0:0 (="")+146 23658j\,8:9 ::'''''''"VAIS JOGAR ? (S/N)"::ç:="N":" poe em marcha o gravador "::20:ټ:""  A=1300,:A::21,0;" PRIME UMA TECLA PARA COMECAR";0,11 ;"INSTRUCOES..."''"E AGORA UM JOGO PARA DOIS AD-VERSARIOS: PARA GANHAR DEVES TO-MAR O MAIOR NUMERO POSSIVEL DETESOUROS """" CUJO VALOR E DE 20PONTOS CADA UM, EVITANDO CHOCARCONTRA O MURO """". A PARTIDATERMINA AO ACABAR AS TRES HIPO-TESES DE CADA JOGADOR."'"E... ATENCAO!! OBTERAS UM PREMIOCADA 300 PONTOS."'''"AS TECLAS SAO:"''" 1' JOGADOR W,A,S,Z"'" 2' JOGADOR I,J,K,M" 1:0 (="")+153 0:6:3:6::yy=0:ys=5:xs=2:xx=0:p$="Jogador N'1 ?":9999':n$:n$=""n$=" " N$>11 N$=N$(11 ) ^U=300,:Y=300,:yy=40(:ys=5:xs=2:xx=0:p$=n$:9999' {yy=0:ys=5:xs=2:xx=256-16:p$=n$(1):1:4:9999':3:0 fyy=80P:ys=5:xs=2:xx=0:p$="Jogador N'2 ?":9999':m$:m$=""m$=" " M$>11 M$=M$(11 ) Eyy=120x:ys=5:xs=2:xx=0:p$=m$:9999' |yy=80P:ys=5:xs=2:xx=256-16:p$=m$(1):1:4:9999':3:0 Zyy=168:ys=1:xs=2:p$="Prime uma tecla":9998':5:0 6P3000 :g$=(n$):h$=(m$):x1=10 :x2=21:y1=10 :y2=y1 @Mx3=x1:x4=x2:y3=y1:y4=y2:x1=x1-(65022=190)+(65022=189):y1=y1+(65278=189)-(64510=189):x2=x2+(49150=187)-(49150=183):y2=y2+(32766=187)-(57342=187):(x3x1y3y1)ƫ(y1,x1)31(x4x2y4y2)ƫ(y2,x2)313500 Tby3,x3;"";y1,x1;7;2;g$;y4,x4;"";y2,x2;2;7;h$:320@  PUNTI1>Y:10 ,3;"PREMIO PARA ";N$:A=120:B=07:B:B:A:Y=Y+300,:VITE1=VITE1+1 PUNTI2>U:10 ,3;"PREMIO PARA ";M$:A=120:B=07:B:B:A:VITE2=VITE2+1:U=U+300, 0,0:3:7:j=211 :23692\,255:95_,2+4*(63?64@):"":j [j=115:0;1;(*19+1),(*29+1);"":j |0,0;4;0;"";21,0;"" ֊#1;0,0;" ":#1;0,0;"";((20*vite1*15+punti1)>(punti2+20*15*vite2));7;2;N$;" ";VITE1;((vite2*15*20+punti2)>(punti1+20*15*vite1));0,28+(VITE2<10 )-M$;M$;" ";;VITE2;;0;"":254,0: {(y1,x1)-128>0j=-2035#3:0.01z# =,j:j:punti1=punti1+20:3030 :3510 o(y2,x2)-128>0j=-2035#3:0.01z# =,j:j:punti2=punti2+20:3030 (y2,x2)=4j=35#-20-3:0.01z# =,j:j:vite2=vite2-1:(vite1>0vite2>0)ƫ(y1,x1)43000 :y1=10 :y2=y1:x1=10 :x2=21:320@ ʿ(y1,x1)=4j=35#-20-3:0.01z# =,j:j:vite1=vite1-1:3000 :y1=10 :x1=10 :y2=10 :x2=21:vite1>0vite2>0320@ (vite1>0vite2>0340T ކ3,-27:2:2:1::0:4:yy=12 :ys=2:xs=2:xx=0:p$=n$:9998' vite11=vite2:vite22=vite1 y4:yy=36$:ys=2:xs=2:xx=0:p$=" Fizeste "+(punti1+vite11*20*15):9998' S4:yy=60<:ys=2:xs=5:xx=0:p$="PONTOS":9998' _5:yy=175/2+12 :ys=2:xs=2:xx=0:p$=m$:9998' 5:yy=175/2+36$:ys=2:xs=2:xx=0:p$=" Fizeste "+(15*20*vite22+punti2):9998' e5:yy=175/2+60<:ys=2:xs=5:xx=0:p$="PONTOS":9998' س:"200":缧:ڼ::j=ç:r$="GAME OVER":r=ç23025:1:ٺ(*5+2):j=j+1:xx=r:yy=0:xs=3:ys=24:p$=r$(j):9999':r bj=0:r$="GAME OVER":r=123025:1:ٺ(*5+2):j=j+1:xx=r:yy=0:xs=3:ys=3:p$=r$(j):9999:r 0:yy=180:ys=1:xs=2:p$=" Prime uma tecla":1:6:1:9998':0:5 Rvite1=4:vite2=4:punti1=0:punti2=0:0:150 !400100100$,00100000 ,10101111,00100000 ,00000100,11110101,00000100,00100100$ ' ' (23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:95_,2:95_,26+4*(63?64@):32200}:"":"23606",ç:"23607","60": ''xx=(256-8*xs*p$)/2 'i=23306 [:i,xx:i+1,yy:i+2,xs:i+3,ys:i+4,8:i=i+4:w=p$:n=1w:i+n,p$(n):n:i+w+1,255:w=32256~: k$iteiteuntiuntiPGOi[w' CAR GO ,~70/![~#"[o<&)))K6\ >2[: [2 [: [2[> 2[~#"[2[:[= 2:[= :[G: [O: [ 2 [*[~2[: [G: [2 [*[ ~2[: [G: [2[: [Oͤ~:[<2[ :[<2[ :[0~@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!~xO F![F(// PaVIDEONEXT _k a  EDICOES LATINAS  f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 317997|:7:7:7:0:0:0::23658j\,8:236099\,20:""318008|:236066\,86V:236077\,123{ 23570\,6:23675{\,88X:23676|\,127:1::#0;0,0; " PARA O GRAVADOR " [23624H\,579:n=1502:.01z# =,*60<:n:1000:8990# - SUMARIO 7\:90102#:.6,21:K=3:P$=" no numero 17 ":9020<# 8=K=K+2:p$="VIDEOHARDWARE: ":9020<# 9/p$="A voz do Spectrum ":9020<# ;=K=K+1:P$="VIDEOBASIC-A LINGUAGEM: ":9020<# =K=K+1:p$="VIDEOBREAK: ":9020<# ?/p$="VALSA ":9020<# @=K=K+1:p$="VIDEOBASIC-A PROGRAMACAO: ":9020<# A/p$="Musica com o Spectrum ":9020<# Bp$="":9020<# K=K=K+1:p$="VIDEO-JOGO: ":9020<# L/p$="ZOO ":9020<# Zk 150:1000::8994"#:13 ,10 ;"ATE A PROXIMA":18,19;"VIDEOBASIC" nMn=1502:.01z# =,*60<:*7:N::2:7: 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 502: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 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 #!HOMENZINHO #"&n=302-1:8 #$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 : #2C9999':AA=1:BB=11 :P$="VIDEONEXT":9000(#: #FYn=1̱p$:k,31-n;p$(N):.002xn,(k-3)*n/8:n:K=K+1: 'a0,0:255,0:0,175:-255,0:0,-174: 2naVLkPZOO S PRIME UMA TECLA PARA CONTINUAR Y RIME UMA TECLA PARA CONTINUAR PRCAR NEXT |I#$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >