ZXTape! EXERCICIOS<|V ?  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$=" TRIGONOMETRIA":"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 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)=""P="8": 7T$(N);:OPT$(N)" ".002xn,5+(*10 ) *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 :2,U;:T$="TENTA ESCREVER AS INSTRU-COES QUE TE VA PEDINDO,ESTOU CERTO DE QUE NAO TERASGRANDES 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":"" #,,23617A\,Z:C$=1423617A\,U #-EC$="~"C$="|"C$="\"C$="{"C$="}"C$="]"C$="["C$=""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 #KEr"100":"8","10";"OUTRA VEZ!":װ".5","32":"8470":ER=Z:"8850" # "8810" $ DATA  $O"E AGORA ALGUMAS APLICACOESTRIGONOMETRICAS E... !! NAO TEASSUSTES !!!","" $"LET A=SIN (2*PI)","PERCORRENDO UM COMPRIMENTO DE2*PI*R, UM PONTO DESCREVE UMACIRCUNFERENCIA VOLTANDO APOSICAO INICIAL. PORTANTO COMECARA SENDO <0>. ","" $"PRINT 1-TAN(PI/4)","AINDA QUE TAN(PI/4) SEJA IGUALA <1>, POR CAUSA DOS ARREDON-DAMENTOS NO CALCULO, NAO SEVISUALIZARA <0>, SENDO 4.6566129E-10.","" $"PRINT ASN 2","INSTRUCAO ERRADA: OSARGUMENTOS DE E DEVEM ESTAR COMPREENDIDOSENTRE <-1> E <+1>.","" %"PLOT R*COS A,S*SIN A","FAZENDO VARIAR O ANGULO OBTEM-SE UMA ELIPSE CUJOSRAIOS SERAO RESPECTIVAMENTE E .","" %9"" %: INTER %D4"X=A","LIGA A O SENO","DO ANGULO ","" %NS"(A/180*)","O ANGULO ESTA EXPRESSO "," EM GRAUS.IMPRIME A SUA ","" %XG"RP","IMPRIME O SENO DO ANGULO","QUE TEM POR TANGENTE ","" %b6"A^2","IMPRIME O QUADRADO","DO COSENO DE ","" &G"" zu"eac J#eNxC2BT ESCOLHE, :ZCA POE O GRAVADOR EM MARCHA xCAR EXER ||88*"$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0:  EDICOES LATINAS  E9 ,4,13 ,9 ,11 ,4,14,11 G13 ,9 ,16,13 ,11 ,16,8,11 E9 ,4,13 ,9 ,11 ,4,14,11 G13 ,9 ,16,13 ,11 ,16,8,11 E4,9 ,13 ,9 ,6,11 ,14,11 G8,13 ,16,13 ,9 ,20,21,20 I16,21,25,21,18,23,26,23 I25,21,23,20,69E,21,16,13 G9 ,13 ,11 ,14,13 ,16,8,11 G9 ,13 ,11 ,14,13 ,16,8,11 H9 ,13 ,11 ,14,13 ,16,15,18 I16,20,18,16,23,23,23,23 I16,23,22,23,20,23,16,20 I13 ,21,20,21,18,21,15,18 I11 ,20,18,20,16,20,13 ,16 H9 ,18,16,18,15,18,11 ,15 I16,23,22,23,20,23,16,20 I13 ,21,20,21,18,21,15,18 I11 ,20,18,20,16,20,13 ,16 H9 ,18,16,18,15,18,11 ,15 F8,11 ,16,11 ,13 ,9 ,6,15 E16,11 ,8,4,13 ,9 ,6,15 E16,11 ,8,4,13 ,9 ,6,15 F16,11 ,13 ,9 ,8,16,6,15 E16,11 ,8,4,13 ,9 ,6,15 E16,11 ,8,4,13 ,9 ,6,15 E16,11 ,8,4,13 ,9 ,6,15 F16,11 ,13 ,9 ,8,16,6,15  16 ,23675{\,0:23676|\,124| #N7:9 :31000y:''''"UM MOMENTO....":7:"""a"::"" (9 :C=0:4,7;1;"PARA O GRAVADOR":A=140(:0.01z# =,0:1:0.01z# =,0:0:4:C=C+254-191:A:C>040( *R4,7;1;5;" ":1:100d +:#1;1;0;6;" PRIME UMA TECLA " Z#t=8:c=(*4-4) d#:a=1225:3500 i&a=97aa=197c=c-12 ja=129c=c+12 nn:z=n+c:n=69E:a x0.01z# =*t,z }`""0:0:7:1::'''''''" POE O GRAVADOR EM MARCHA ":9990' a:502 90Z 9y=5:x=(12.5H*(a*0.0558|dq)+12.9Nfff) y,x;"   ";y+1,x;"  ";y+2,x;"  ";y+3,x;"  ";y+4,x;"  ";y+5,x;"  ";y+6,x;" "  105i "5001:"videobreak"1 '0254>2000:32000}:"" ' 9990' c dtyx n z#UDG |!````````?????```???<<~|BB|DB```?4ECRAN @R2UPTU_TUUU@U``` * `?``WPTUWPUUUUU`?``** *```_TUTWPUUUP``` * ```_TU_TpUU@UUU``` * *`````p~```??```?8???``<`???p???``<<??'q??``|p``~``?x??>|~ >>>?< |<@?|? |nnnnnnnhhhhhhhhhhhhhhhhhhhhhhhhhnnnnnnnhnnnnnnnnnnnnnnnnnnnnnnnhnnnnnnnhnnnhhhhnnnnnnnnnnnnnnhhhnnnnnnnhnnnhhhhhhhhhhhhhhhhhhhhhnnnnnnnhnnjjjhjjjjjjjjjjjjjjhjjhoooooooooooooooooooooooooooohooooooooooooooooooooooooooooooohhhhoooooooooooooooooooooooooooohhhhoooooooooooooooooooooooooooohhhhoooooooooooooooooooookkkkkoohhhhjnnnnnnnnnnnnnnnnnnnkkkkkkkkkkkk  OOO      111111111111 111111111110022201111111000000000024271111111100000000000000002244278888888888888888888888888888888888888888888888888888888888888888SPROGRAMA Z  EDICES 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" 7:0::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","5";"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  "8300":RR GRAFICOS 5st=Z:b=Ṵ"4":"9640":i=z̰"21":o;i,"17",:i bɰ"4":"127",z:z,"175" 9BU"21",z;u;"A:ANGULO I:VAR.CON." ;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 QUE VOLTESA LER O PROGRAMA E TENTES DENOVO.":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""118","44":"4",Z:Z,"56":"-26",Z tT$(U)"%"i ~#b=U+Ulm=u:rr:"8400":"8300" Bɰ"3""":RR <b FVLM=U:"8400"::T$="BEM, "+N$+"E AGORA... APONTA BEM E AFUNDAO SUBMARINO !":TX:RR nA:"*21","31";U;"*":T$="G ":"9150":a>"33"A":I 8#z;u;" PRIME PARA TERMINAR",:Z:"E""3950" $T$:T$4900$ %"8400":LM=U:"8300":RR:"8400" 47,U;:LM=4:T$="ESCOLHE, "+N$+":":TX 11 ,7;"C CARREGAR O";12 ,9 ;"PROXIMO PROGRAMA";14,7;"I INTRODUCAO";16,7;"E EXERCICIO" #0:A$=:A$="I"1000 A$="E"3000  A$="C"8000@  5110 @#:A$=" POE EM MARCHA O GRAVADOR " 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:"" 20502: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: #9(t$);i$:i$j=u̱i$:i$(j)"0"i$(j)"9"j:a=i$: #=#z;u;" VALOR NAO ACEITAVEL ",:U,Z:"100":"9150" # DATA $^"DESTA VEZ O PROGRAMA E UM VI-DEO-JOGO, MAS NOS VEREMOS ASINSTRUCOES TRIGONOMETRICAS.","" $ǵ"TENS QUE AFUNDAR UM SUBMARINO(QUE VERAS COMO UM (*)ASTERIS-CO) EMPREGANDO UM TORPEDO DEPROFUNDIDADE (QUE VERAS COMO(>),TENS QUE ESTABELECER A IN-CLINACAO DA TRAJECTORIA.","" $5" TORPEDOS ------------ "," ------DE PROFUNDIDADE" $8"11 - FASE DE PREPARACAO"," IMPRIME O BARCO","" $V"Imprime-se o barco (*) aleato-riamente numa linha qualquer(RND) da coluna 31.","" %:"22 - FASE DE PREPARACAO"," PEDE A TRAJECTORIA","" %0`"Pede o angulo de disparo emGRAUS.Em continuacao realiza-se aconversao em radianos.","" %DH"43 - FASE DE EXECUCAO","IMPRIME AS SUCESSIVAS POSICOESDO TORPEDO","" %N"As coordenadas de cada pontoconstituem os catetos dum tri-angulo rectangulo.A profundidade e dada por:.","","" %o"AGORA, "+N$+"TRANSFORMAREMOS A ANALISEANTERIOR NUM DIAGRAMA DE FLUXOE DEPOIS EM INSTRUCOES.","" %GRAFICOS %`"151 F A S E 1 ","043INICIO ","#810","045DISPARO ","#813","2410*21,31;1;""*""","*1 " %j"182 F A S E 2 ","047INT.""G"" ","#813","2720""G "";A","049GRA>RAD.","#813","2930A=A/180*","#813" %b"*1 ","1>4 F A S E 3","04;INICIAL.","04< CICLO ","#823","2;40I=031","04>IMPRIME>","#813" %L"2>50I*A,I;"">""","02@FIM CICLO ?","<<13","2@60I","04B FIM ","#813" % "*1 ","% " %"BEM, "+N$+"AGORA TENTA ESCREVER O PROGRA-MA A PARTIR DO DIAGRAMA DEFLUXO.RECORDA-TE DE NUMERAR AS LI-NHAS DE 10 EM 10, INICIANDOPELA 10." %:"OBSERVA TAMBEM AS MENSAGENSCONTIDAS NOS .","" &"BEM, "+N$+"ESCREVESTE UM PROGRAMA QUEMESMO SENDO UM JOGO, USA FUN-COES FUNDAMENTAIS NO CAMPOCIENTIFICO: AS FUNCOES TRIGONOMETRICAS." &4"" zuo p   lBc  yZ#W 60I60II1aNB ------DE PROFUNDIDADEY IME UMA TECLA PARA CONTINUAR PRAET*1 CAR PROG |Z',"$$$~$$~$$$~$$~$~~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"  2:7:0: %3,6;"AGORA VAMOS CARREGAR"'" O VIDEO-JOGO"''" MAS ATENCAO, HOJE VAI SER "''" DIFERENTE DO COSTUME !"'''" PRIMEIRO VOU APAGAR-ME!"'" DEPOIS SO E PRECISO QUE FACAS"''" LOAD""""ENTER " (\17,8;"E SEGUIDAMENTE",19,0;"  POE O GRAVADOR EM MARCHA " *R#0;" PRIME UMA TECLA PARA EXECUTAR ":0:1,30: 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<" >0`> !`?>` @ sh 8 ?0 1<?~0`>0 ?p0 p`?>9?3 8? ? ?pc a`<t `0 14tp > `0xxF 0<3  i0 */ `bxD|g0`<` G!@ @ # @`6<L<0xƘ01` x # @ >8VIDEO-JOGOeau ,g(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:236077\,0:236077\,60<:n=0:9e3(# 8e3@:hs=n lv=3:l=1:sc=n $x$="11114331101":y$="32132121216" )4:1:6:n:n:n:n: =a=n24016:b=17315-16:a,b mn,-13 :13 ,n:1,1:-13 ,n:n,13 :1,1:13 ,n:n,-13 b:a (x=16:y=10 2b$="ASZXPLaszxpl" <a=1l*4+5 Adp=2*(*10 ):r=2*(*10 ):q=2*(*15):s=2*(*15) F/r,s;2;5;"";r+1,s;"" K/p,q;0;6;"";p+1,q;"" Pa Ut=15 Z2a=2*(*10 ):b=2*(*16) da=yb=x90Z n;a,b;1;1;4;n;"";a+1,b;"" s=20,n;3;""(i) t 100d uj=i-1n-1 x/y,x;1;6;"";y+1,x;"" ^21,n;"PONTOS=";sc;" ";21,12 ;"RECORDE=";hs;21,25;"VIDAS=";lv 20,j;" " a$= c=112 .a$=b$(c)d=c-(6c>6):170 c j 1d>2y,x;6;" ";y+1,x;" " Zx=x+2*(d=4)-2*(d=3):y=y+2*(d=6)-2*(d=5) d2u=n1:v=n1:y+v,n;:q=32084T}:q=(32000}+(42*d=1)):v:u:x=x+(2d=2)-(2d=1):1e3:j=j-1:j135 d25e3 1E3 a=(y,x) fa=546x=x+2*(d=3)-2*(d=4):y=y+2*(d=5)-2*(d=6) 1e3 Ga=42*.005y# =,30:.005y# =,25:sc=sc+140 a>63?6e3p a=4807e3X sc=sc+10 U.01z# =,(12 d=6)+(d5)+(5d=3)+(17d=4) ,j:5e3 dx=x+(32 x=-2)-(32 x=32 ):y=y+(20y=-2)-(20y=20): j:20,0;0;6;"" Nb=2*(*15):2;5;20,b;"";21,b;"" m9 ,0;" PRIME UMA TECLA QUANDO O HOMENZINHO APARECER SOBRE A BANDEIRA" a=1250:a 9 ,n,,,,,, ,y=n182:x=n302 7.01z# =,502-(X+Y):y,x;"";y+1,x;"" a=n1:""4100 a #y,x;" ";y+1,x;" ":x:y 910 ,N;1;" AI!AI!AI!AI!AI!AI!AI!AI!AI!AI! " >a=255n-5:.01z# =,a/10 :254,a:a a=1502:a  sy,x;" ";y+1,x;" ":a=y+120:a,x;"";a+1,x;"":a-1,x;" ":.01z# =,a:a x=bsc=sc+4e3-(502*y):10 ,n;1;" PONTOS!PONTOS!PONTOS!PONTOS!":b=15:a=3015-1:.005y# =,a:a:b:a=1502:a:  4083 N20,n;" ":a=n2555:.01z# =,a/10 :254,a:a  7020l p n;y,x;"";y+1,x;"" uEb=15:a=3015-1:.005y# =,a:a:b zsc=sc+1e3 "x=x+2-(4x=30)  502 "t:i=i-(i>14):l=l+1  4e3  5 X\a=1502:b=(a/2=(a/2)):b;1;y,x;" ";y+1,x;" ":a b/y,x;7;0;"";y+1,x;"" g:a=111 :װ(y$(a))/5,(x$(a))-1:a llv=lv-1:lv5 vksc>hs21,18;hs;" ":hs=sc:19,n;1;1;" NOVO RECORDE " =20,n;"PRIME UMA TECLA (  0  PARA SAIR)":0 a$=:a$="0"7:7:7::10 ,0;1;1;" POE EM MARCHA O GRAVADOR ":5:200:"" a$=""7050 8320 :2 @0:0:7: T[9 ,6;1;"                   " cK10 ,06;1;" ";0;" B L O K M E N ";1;" " r\11 ,6;1;"                   " |U18,5;" PARA O GRAVADOR ";20,5;" UM MOMENTO POR FAVOR" ^.5,(*40()+10 :.4L,(*33!)+7:.3,(*26)+4  200 600X:.3,-10 & 0T5,5;1;" NIVEIS (0 --> 9)"''n;"0 = FACIL 9 = DIFICIL" 515,n;"--------------------------------TECLAS DE CONTROLO:"''" Z=ESQUERDA X=DIREITA"'" P=ACIMA L=ABAIXO" 74" A=SCROLL ESQUERDA"'" S=SCROLL DIREITA" :!a$=:a$<"0"a$>"9"8250: Di=32 -2*(a$) N #(,9050Z#:a="a""t"+7:b:a,b:a #229100#:a=32000}32138}:b:a,b:a #F #Z 15,79O,63?,9 ,11 ,30,60<,63?,240,242,-4,144,176,120x,60<,-4,63?,63?,b,47/,6,b,30,62>,-4,b,b,244,96`,96`,120x,124| #[ 7,31,b,579,b,63?,29,7,103g,242,-4,31,7,-1,-4,96`,224,248,b,156,b,-4,184,224,230,175,63?,248,224,127,63?,6 #\(0,1,3,15,63?,119w,99c,247,244,245,b,117u,127,63?,15,3,192,128,192,240,-4,238,198,239,47/,175,175,174,-1,-4,240,192 #]n,3,14,62>,126~,62>,14,3,n,b,b,b,b,b,b,b,124|,-4,60<,-4,60<,-4,b,b,124|,12 ,b,b,b,b,b,b #^1,3,15,31,63?,b,127,99c,109m,99c,103g,107k,109m,127,b,b,128,192,240,248,-4,-4,-2,70F,86V,70F,94^,b,b,-2,b,b #17,31,64@,213,225,43+,1,31,0,26,237,184,35#,119w,58:,2,125},254,71G,40(,6,60<,502,2,125},24,229,17,31,88X,213,225,43+,1,31,0,26,237,184,35#,119w,201 #17,0,64@,213,225,35#,26,1,31,0,237,176,43+,119w,58:,44,,125},254,71G,40(,6,60<,502,44,,125},24,229,17,0,88X,213,225,35#,26,1,31,0,237,176,43+,119w,201 $T42*,132,92\,34",43+,125},124|,198,7,502,18,125},1,31,0,9 ,34",1,125},124|,198,7,502,60<,125},58:,137,92\,71G,62>,24,144,38&,0,111o,6,5,41),16,-3,17,31,88X,25,34",28,125},17,225,-1,25,34",70F,125},201 n}}2# i VlVX 11114331101Y 32132121216xyprqs Uu dB ASZXPLaszxplAVIDEONEXT  *  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 7Z:90102#:.6,21:K=3:P$=" no numero 16 ":9020<# 8=K=K+1:p$="VIDEOHARDWARE: ":9020<# 9/p$="Manutencao/Inconvenientes ":9020<# :.p$="Hardware ":9020<# ;=K=K+1:P$="VIDEOBASIC-A LINGUAGEM: ":9020<# =K=K+1:p$="VIDEOBREAK ":9020<# @=K=K+1:p$="VIDEOBASIC-A PROGRAMACAO: ":9020<# A/p$="As Funcoes Definidas ":9020<# B.p$="pelo utilizador ":9020<# K=K=K+1:p$="VIDEO-JOGO: ":9020<# L/p$="Go ":9020<# fj150:1000::8994"#:13 ,10 ;"ATE A PROXIMA":18,19;"VIDEOBASIC" nLn=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 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&# #& #'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 : #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: "#aVLkPGo Y PRIME UMA TECLA PARA CONTINUAR S PRIME UMA TECLA PARA CONTINUAR ~CAR NEXT 8|r"$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >