ZXTape! LINGUAGEM4ZH EDICOES LATINAS  Zf(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 dF"23675","66":"23676","124":ٰ"9":CEN=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 ^ٰ"9":b$=" ":U="1":Z=U-U:RR="8150":TX="8330":IN="8400" Mb$=" ":lm=U:ڰ"8":A$=" FERRAMENTAS DE PROGRAMACAO":"8410" ЯT$="VEJAMOS AGORA COMO APLICAR OSCONHECIMENTOS ADQUIRIDOS PARAPREPARAR UM PROGRAMA FERRAMEN-TA, QUE E', UM AUXILIAR PA-RA A REDACCAO E CORRECCAO DOSPROGRAMAS.":TX:RR IN:T$="PREPAREMOS UM SUPORTE CAPAZ DENUMERAR AS LINHAS EM EXAME EDE LISTAR AS SUAS VARIAVEISCOLORINDO O SEU NOME EM FUNCAODO SEU TIPO.":TX:RR IN:T$="A FERRAMENTA OU UTILITARIO PO-DE CARREGAR-SE COM UM ,E CHAMA-SE COM UM.AS LINHAS DO PROGRAMA OBJECTOTERAO DE TER NUMEROS INFERIO-RES A 9900.":TX:RR 4vin:t$="PREPAREMOS AGORA A ROTINA DERENUMERACAO. ESTA TEM POR FUN-CAO RENUMERAR AS LINHAS DOPROGRAMA.":TX:RR wIN:"4","156":ڰ"4";"246",Z:U,U;ڰ"6";" ";U;" L L ";ڰ"3";" P P ";ڰ"5";" xxxxxxxxx ";U+U;"CR";ڰ"6";" " V"5",u;u;"recorda que..."::I=Ṵ"4":'':t$:ڰ"1352"(i):TX:t$:ڰ"7":tx:I:rr t" ","e o numero da linha","

","e o comprimento completo","","e o programa"," ","e o caracter 13" hڰ"8":b="99":"4","44":ڰ"4";"246",z:A="8":"4300":i=ṵ"28":j="17"̰"20":j,u;ڰ"6",b$:j @i="11"I="25"u,"5";u;" LISTA DE VARIAVEIS ":B="99" 7b>"15"t$=""b="4":j="4"̰"15":ڰ"7";j,u,b$:j Gt$:b,u;:"8330":b=b+(t$/"30"+u):"17",u;:t$:"8330":rr:i C"9900 REM RENUMERACAO ","REM serve unicamente como co-mentario." "9902 DEF FN C(N)=PEEK N+256*PEEK(N+1)","Esta funcao descodifica o nu-mero escrito no formato Z80 eque esta memorizado na direc-cao N." "9904 LET IND=FN C(23635)","Estabelecemos a variavel INDcom a direccao do inicio doprograma BASIC (var. de sist.PROG)." "9906 INPUT ""Principio "";lin'""Passo"";P","Agora pedimos ao programadorque indique a nova base e opasso de renumeracao." "9908 IF 256*PEEK(IND)+PEEK(IND+1)=9900 THEN RETURN","Obteremos o numero da linha:teremos que terminar quandocomecar o renumerador." 0z"9910 POKE IND,INT(LIN/256)","LIN contem o novo numero delinha. Esta instrucao memori-za o byte mais significativo." Dl"9912 POKE IND+1,LIN-INT(LIN/256)*256","Em troca, a seguinte posicaocontem o byte menos significa-tivo." X"9914 LET IND=IND+FN C(IND+2)+4","IND+2 e IND+3 contem o pon-teiro a que se vai somar 4 pa-ra alcancar a linha seguinte." lM"9916 LET LIN=LIN+P","Actualiza-se o numero de linhapara o ciclo seguinte." 2"9918 GO TO 9908","Volta ao principio do ciclo." VAR LIST ="9920 REM LISTA VARIAVEIS","REM serve apenas de comentario" `"9922 INK 9","Para evitar caracteres poucolegiveis usa-se INK que con-traste com o PAPER." "9926 LET IND=0:LET V=0:LET V1=0:LET IND=FN C(23627)","Para evitar alteracoes duran-te o desenvolvimento todas asvariaveis usadas sao iniciali-zadas." (M"9928 LET V=PEEK IND","V establece-se com o 1 bytena variavel em exame." .Resta-belece-se o PAPER." PG"9932 LET V1=INT (V/32)","Os 3 bits de V contem o tipoda variavel." dI"9934 PAPER V1","Estabelecemos a cor do papelcom o tipo da variavel." xp"9936 PRINT CHR$ (V-V1*32+64);","Os restantes cinco bytes de Vcontem o nome. 64 restabeleceo bit que falta." i"9938 IF V1=2 OR V1=6 THEN PRINT ""$"";","Cadeias e matrizes alfanumeri-cas levam <$> seguido do nome." "9940 IF V1/2=INT(V1/2) THEN LET IND=IND+FN C(IND+1)+3","O comprimento de todos os ti-pos pares esta contido no pon-teiro (2 e 3 byte)." _"9942 IF V1=3 THEN LET IND=IND+6","Tipo 3 da variavel cujo nome eformado por um so caracter." t"9944 IF V1=5 THEN GO SUB 9952","O nome composto por mais ca-racteres descodifica-se comuma rotina adequada." }"9946 IF V1=7 THEN LET IND=IND+19","Este e o grupo FOR-NEXT. Estebloco de instrucoes serve paraactualizar a direccao IND." L"9948 PRINT:GO TO 9928","Concluida a linha de imprssao,repete-se o ciclo." r"9950 REM NOME DE CARACTERES ","Esta e a rotina que descodifi-ca os nomes formados porvarios caracteres." "9954 IND=IND+1:LET V=PEEK IND:IF V<128 THEN PRINT CHR$ V;:GOTO 9954","Os caracteres que se seguem ao1estao escritos na forma nor-mal. O ciclo repete-se ate aofinal." ,"9956 PRINT CHR$ (V-128);:LET IND=IND+6","Em troca, o ultimo caractertem o bit 7 incrementado a 1.Usando 128 voltaremos ao codi-go normal." @L"9958 RETURN","Terminado o ultimo caractervolta-se a rotina principal." IN:"8070":"1000"  in:t$:tx ["4","52":ڰ"4";"246",z:i="16"̰"20":ڰ"6";i,u," ":i:yl:yl Qxl,t$:yl,xl;:i=u̱t$:ڰ"5";t$(i);ڰ"7";" ";:"(2*i+xl)*8-20","166-yl*8" Vװ".1",I:"15",z:z,"11":-"15",z:z,-"11":i:"17",z;:T$:tx:RR:"7922" @2Z: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:"" *"7",U;:T$="ESCOLHE, "+n$+":":"8330" {"11","6";"F FIM";"13","6";"I VOLTA AO PRINCIPIO";"15","6";"C PASSO A PARTE";"16","6";" SEGUINTE" t$=:t$="F"  t$="I" t$="C""8000"  "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 U;ڰ"8";lm;:c=Z:N=U̱t$ (T$(N)="%"8150:"8400":vc=u: T$(N)="`"N$: T$(N)="&"'U''" ";: T$(N)="#"P="8": +T$(N);:OPT$(N)" ".001wn,40( +OPT$(N)=".".1}L,30:20 'c=c+u:c=30c=Z:u;ڰ"8";lm; 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: ڌVC=Z:"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$:a$y="A$(u)-48":x="A$(u+u)-48":b=A$("3"):t$()=a$(4):y,x;B;t$:"8490" !/xl !4;x="x*8-3":y="165-y*8":x,y:xl,z:z,yl:-xl,z:z,-yl: zueaN B A FERRAMENTAS DE PROGRAMACAOc  b  T ESCOLHE, :CAR LING 4 |.#$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0::236066\,0:236077\,60<:32200}:p$=" PARA O GRAVADOR ":8000@:P$=" VIDEO BREAK VIDEO BREAK " 8000@:3000 :8000@::1000:6:6::8002B:t=10 :p=20:x0=127:y0=87W:x1=87W:y1=87W:k=2:n=7:i=-/2:10808 ut=10 :p=20:x0=127:y0=87W:x1=87W:y1=87W:k=2:n=5:i=-:10808 d:8000@:4000::8000@:5::8000@:5000::8000@::2 /0:0:7:0::2 <34",165:-26,-480:202,0 %-6,12 :513,0 '34",165:221,0 #n=480:c=1 (x=-75K119w5 -&x>79On=35#:c=0.94p 27x+77M+32 ,165:x*c*1.35,-x,-n:x FP235,165:20,-20:248,165:7,-5 PR228,165:27,-27:242,165:13 ,-13 Z0:180,165:0,5:-20,0:0,-5:-3,0:0,3:5,2 d_y=122z126~:8,y:203,0:200,y+9 :557,0:y niy=112p116t:480,y-4:120x,0:18,y:1;180,0:y xK480,108l:0,-45-:105i,0:0,7 21,-7:0,3:-21,7:0,-2:21,-7:0,1:-21,7 }0,-9 :7,-2:0,5:7,-2:0,-5:7,-2:0,10 %-6,6:-15,0 $15,0:0,35# -17,0:0,-5:-3,-3:6,0:-3,3:-3,-3:1,-4:4,0:1,4 ^557,100d:80P,0:0,-37%:-80P,0:0,37% ]60<,67C:557,0:0,28:-557,0:0,-28 &120x,63?:0,37% 8x=100d103g:x,63?:0,37%:x !12 ,14;1;"[" C8:480,63?:-17,-17:0,66B 8-10 ,0:0,-66B:10 ,0 D0:37%,102f:9 ,0,-:1,-40( %-7,0:-2,40( "C3:x=32 34":x,16+x:0,95_-x:x ,f0:110n,110n:0,-4:-3,-3:6,0:-3,3 6110n,100d,3 @Kx=1923:x,111o:5,-20:0,-20:x J&31,46.:224,0 T174,579: ^t2,40(:10 ,4,-:-1,1:-2,-44,:-10 ,0:14,-10 h@8:0,65A:10 ,0:0,-65A r^189,111o:3:0,-64@:-1,0:0,64@:0 |210,100d:13 ,0:0,-546:-4,0:0,546:-4,0:0,-546 $-4,0:0,546 "10 ,26;1;"" "15,26;1;"" a224,101e:31,0:0,-2:-30,0::0,-513: ]29,0:242,101e:0,-557:2,0:0,557 Cx=188213:x,159:1;5,-13 :x M188,159:5,-13 :27,0:-5,13 M188,159:5,-10 :27,0:-8,10 &y(x<)=35#*(x/120x*) )x=031:y=1621 4y,x;4;1;8;1;" ":y:x 1x(x)=(20+10 *(x/40(*)) )1:6,26;" "  *1:7,25;" "  *1:8,25;" "  *1:9 ,25;" " 3y=10 15:y,25;"  ":y O240,95_:-10 ,-20,-1:10 ,-30,-1 N%9 ,0;1;"**_" \x=060<2:x,35#-(x(x)/7):1;8;0,y(x):x Px=2002552:1:x,25:0,x(x+200):x Ea=16:(*3)+19,*31;"*":a 1:200: p=110 :x00=100d+(*524):y00=80P+((*11 )):x10=(*40()+40(:y10=(*30)+30:k0=*6+1:n0=(*11 )+2:i=0 z9 :pap=*7:pap:pap::8002B:t=01:x0=x00:y0=y00:x1=x10:y1=y10:k=k0:n=n0:i=0 8(t=1):l=1n Bx1+x0,y0-y1:y1-x1,x1+y1,i C-x1-y1,y1-x1,i D-y1+x1,-x1-y1,i E""7000X Gx1+y1,-y1+x1,i Lx2=x1:x1=x1-(x1-y1)/k y1=y1-(x2+y1)/k l:t p:100d: k0:yy=100d:d=20:xx=40(:q=502:x1=7:x2=4:e=1:y2=6 ̸8:8:Z=115:s=22528X23206Z32 :0:q,d:xx-q,yy-d:xx>244xx<35#x2=((1-2*(xx>244))**10 +1) ""7000X Qq>244q<35#x1=((1-2*(q>244))**9 +1) &d>164e=-(*9 +1) #d<9 e=(*9 +1) Tyy>164yy<9 y2=((1-2*(yy>164))**10 +1) q1:c=s:u=(s+1):c,u:(s+2)-c,(s+3)-u:s,q:s+1,d:s+2,xx:s+3,yy %q=q+x1:xx=xx+x2:d=d+e:yy=yy+y2: s:Z:1:100d: *502,502:x=2:y=-0 $7:a=12002:x,y y=y+(-0.5):x=x+(-0.5):r=*4:y=y+r*(23678~\<70F)-r*(23678~\>100d):x=x+r*(23677}\<70F)-r*(23677}\>180) "a=199:70F,70F :a=348\:100d,70F:y=5:x=-5 a=732100d: ""7000X a ua=02555:a,175:0,-175:255-a,a/255*175:-255,0 ""7000X a 100d::a=025515:a,0:255-a,175*a/255,-/2:-a,175-a/255*175:-255+a,-175*a/255,-/2:a,-175+a/255*175 a t127,87W,20:a=0̧*2ͧ/3:127+10 *a,87W+10 *a,10 :a | Xf2:7:2:0::10 ,0;" POE EM MARCHA O GRAVADOR ":2:"" Ac7:0:7:a=021:a,0;" ":A: BY#1;0,0;" PRIME UMA TECLA PARA CARREGAR O PROXIMO PROGRAMA": 8d[quecuFl AP VIDEO BREAK VIDEO BREAK hd>qe ZZ cu'PROGRAMA >  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" |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: 08"23617"=U"23617",Z:a$=°"14""23617",u:"890" 1/a$=°"15""23617",U+Uƾ"23617"U+U:"890" 4(a$="12"ƱW$-uw$=w$(̱w$-u):"890" >V(a$>"A"a$"z"w$(w$)"9"w$(w$)"0")w$(w$)=""Ʊw$<3a$=(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" 9BU"21",z;u;"N:NUM. B:CICLO 2 I:CICLO 1" ;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" RzER="3"LM=U:T$="TALVEZ SEJA MELHOR VOLTARES ALER 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" 6I="26""102","44":"8",Z:Z,"20":"-13",Z 7I="28""102","28":"16",Z:Z,"80":"-21",Z tT$(U)"%"i ~#b=U+Ulm=u:rr:"8400":"8300" Bɰ"3""":RR <b PcLM=U::Z,Z;"BEM, "+N$,,,,"AGORA INTRODUZ E 5 NUMEROS ENTRE 0 E 21.",,:Z:"R""3920" n :i=ṵ"5" xD"N=";i$:i$j=u̱i$:i$(j)"0"i$(j)"9"j:i$<"22""4000" 8#Z;z,z;u;" VALOR NAO ACEITAVEL",:"100":"3960" &j=z̰i$:"21"-J,"I*5";"":j:i h<#z;u;" INTRODUZ PARA TERMINAR",:Z:"F""3950" $T$:T$4900$ %"8400":LM=U:"8300":RR:"8400" 07,U;:LM=6:T$="ESCOLHE, "+N$:TX 11 ,6;"C CARREGA A";12 ,O;"PARTE 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" #(DYP=4:XP=4:U+U,XP;A$;YP,XP;B$:xs=a$:8410 : #Z)"200"B>"2":j=Ṵ"19":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": # # DATA $"AGORA, "+N$,"TENTAREMOS ESCREVER UM PROGRA-MA QUE EXECUTE UM TIPO DE RE-PRESENTACAO GRAFICA MUITO UTI-LIZADO: O .","" $N"ESTE REPRESENTA NUMEROS ATRA-VES DE BARRAS PROPORCIONAISAOS MESMOS.","" $4" EXECUCAO DE UM "," GRAFICO DE BARRAS" $H"11 - FASE DE INPUT ","QUE ELEMENTOS TEREMOS QUEINTRODUZIR ?","" $`"O input e constituido por 5numeros(entre 0 e 21)que dese-jas representar graficamente.","" %="22 - FASE DE ELABORACAO ","COMO SE PRODUZ O GRAFICO ?","" %0e"Um ciclo FOR-NEXT contara asentradas; um segundo ciclocontara os caracteres a impri-mir.","" %D9"43 - FASE DE OUTPUT","COMO OBTEREMOS O RESULTADO?","" %N^"Imprimiremos um <> em cadalocalizacao indicada pelacombinacao dos 2 ciclos.","","" %j"AGORA, "+N$,"TRANSFORMAREMOS A ANALISEANTERIOR NUM FLUXOGRAMA EDEPOIS EM INSTRUCOES ." %"" %GRAFICOS %"132 INICIALIZA. " %v"042 LIMPA ","043 ECRAN ","#820","*1 ","193 ELABORACAO ","2310","045INICIAL.","046CICLO B ","#823","2520B=15" %V"048INT. ","#813","2830""N="";N","04:INICIAL.","04;CICLO I ","#823","2:40I=0N" %"*1 ","1=4 O U T P U T " %z"04=IMPRIME ","04>21-I,B*5","#823","2=5021-I,B*5;""""","04@FECHA I","<813","2@60I","04BFECHA B","<813","2B70B" % "*1 ","% " %~"BEM, "+N$+"TENTA ESCREVER O PROGRAMA COMBASE NO FLUXOGRAMA. LEMBRA-TE DE NUMERAR ASLINHAS DE 10 EM 10." %|"AS BARRAS TEM QUE SER FORMADASPOR 3 SIMBOLOS <> JUNTOS ETEM QUE COMECAR NAS POSICOES5..10..15..ETC DA LINHA 21.","" &"BEM, "+N$+"O PROGRAMA QUE ESCREVESTE EUMA APLICACAO MUITO USUAL EMINFORMATICA. DESENVOLVE-O E OB-TERAS OPTIMOS RESULTADOS." &4"" zuo pyx [[NAA PROGRAMACAOlv4~cTY NTINUAR PRIME UMA TECLA PARA COCAR PROG |qP"$$$~$$~$$$~$$~$~~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<" >??@x? `D#!x ~G~C?xx?<?x f! p|| | |@>VIDEO-JOGO'Y   EDICOES LATINAS  O"32200":Z=0:236066\,Z:236077\,60<:23658j\,8 start=Z:G=:OT="8000" mang=Z:Z:Z:vite=4:q=Z:tac=Z:ix=G:iy=G:dx=G:dy=G:p$="adeus":q=Z:v$=" ":time=Z:times=Z:go=0.8L:h=(*10 +10 ):u=(*19+1):yy=2:xx=15:ss=11 startZ"50"  TEMP=13 :2:4:٧::dx=7:dy=z:ix=3:iy=10 :p$=" RATOEIRA":ot:5:10 ,z; "        " g:temp=45-:5030:g:2:dy=147:dx=z:iy=4:ix=g:p$="^^PRIME UMA TECLA PARA COMECAR^^":G:ot:z:z (Rq=z:temp=10 :5000:502:temp=30:5030::100d 2101e:9 :0:6:6::" INSTRUCOES"'" ##############"''"O jogo consiste em que nao seja-mos alcancados pelo ratao "" ""no entanto e preciso conseguirir comendo as pastilhas de po-tencia """"." 7"Estas pastilhas, alem de te fa-zerem ganhar 100 pontos, permi-tem-te comer o ratao enquanto oecran estiver emitindo FLASH."'"Se depois de teres comido todasas pastilhas tambem comeres oratao ganhas uma vida." <1:1000:0.5,10 :"So me esqueci de te dizer... Tues um CACA-RATOS""""e para te mo-ver tens que usar as TECLAS: ""W"",""A"",""S"",""Z""" cS"COMO TE CHAMAS ? MAX.6 CARACTERES ";N$:n$=""n$=".......... " d"138" e$:s=z31:sss:"a"+s,sss:s f00011000 nq00111100<,01101110n,11111111,11111111,01111110~,00111100<,00011000 x001110008,01101100l,11111110,11111111,00111111?,11111110,01111100|,001110008 001110008,01101100l,11111110,00001111,00001111,11111110,01111100|,001110008 11000011,11011011,00111100<,01011010Z,01111110~,00111100<,00011000,00100100$  5:z:6:140::s=z7:sss:"e"+s,sss:s:00111100<,01111110~,11111111,10011001,00111100<,00111100<,00011000,00011000 "2000:23658j\,16  Do=2z-1:times=times+time:times=60<4000 8y=h:x=u:cc=xx:uu=yy:xx=(CC+(-((0.5+xx)>u)+((0.5+xx)29)*5):yy=(uu+(-((0.5+yy)>h)+((0.5+yy)19)*5):h=h+(="z")-(="w")+(y<2)-(y>19):u=u+(="s")-(="a")+(x<2)-(x>29) ly,x;" ";uu,cc;(yy,xx);yy,xx;"":v$=(h,u):tac=tac+2:h,u;(144+o):v$" "3000 "%o:0,14;tac:265  !:t=1ss:*17+2,*27+2;"":t:z:21,z;"";z,z;"":t=gvite:21,11 +t*2;" ":t:5:YY,XX;"":6:h,u;"":j=z21:j,z;"";j,31;"":j  v$""5500| ®mang=mang+g:tac=tac+100d:temp=30:5030:v$=" ":xx=xx+0.4L:yy=yy+0.4L:go=-0.5:6:SS=SS-1:g:time=g:2000:290" mang=11 5520 Qxx=xx:yy=yy:v$=" ":times=z:time=z:z:go=0.8L:2000:290" f=z {5050:we=*12 :c=g28:n,t:f=f+()*0.01z# =:n/temp,t+12 +we:c:502:q=zf=z5010  Bj=g3:5070:c=g15:t:0.1}L,t::c:j: Qj=g10 :5070:c=g14:t:0.1}L,t:c:j:1,9 : 75060:c=g25:t,n:t/temp,n+16:c: 1,4,1,0,1,0,1,0,1,4,1,0,1,0,1,0,1,5,1,5,1,4,1,4,4,2,1,5,1,5,1,4,1,4,1,2,1,2,1,9 ,1,9 ,1,7,1,5,1,4,1,2,1,0,1,4,1.43333,0 Ğ1,7,1,4,1,0,1,7,1,4,4,0,1,8,1,5,1,0,1,8,1,5,4,0,1,7,1,4,1,0,1,7,1,4,4,0,0.5,-1,0.5,0,0.5,1,0.5,2,0.5,3,0.5,4,6,5 z4,4,11 ,4,4,9 ,4,4,7,6,7,9 ,7,9 ,4 goz5510 &xx=15:yy=2:q=12 :temp=10 :5000:mang<11 dx=z:dy=z:ix=8:iy=21:p$="O.K.":8000@:100d:z:time=z:times=z:go=.8L:vite=vite+1:tac=tac+502:u=(*27+2):h=(*10 +10 ):2000:265   5520 vite>gtemp=2.5 :85004!:vite=vite-1:u=(*27+3):h=(*10 +10 ):2000:265  ٧:g:temp=2.5 :85004!:dx=z:dy=z:iy=22:ix=8:p$="FIM":z:ot:z:2:g:dx=0:dy=z:ix=255/((n$*8)):iy=6:p$=n$:ot 5:p$=" FIZESTE ":dx=z:dy=175/4+4:iy=4:ix=2:ot:6:p$=(tac+vite*150):iy=6:dx=z:dy=175/2-8:ix=(255/(p$*8)+0.5):ot X4:p$="PONTOS":dy=175*3/4-3:dx=z:iy=:ix=6:ot 23658j\,8:2:p$="JOGAS ? (S/N)":ix=2:iy=2:dx=z:dy=160:ot:4:p$="_":ix=40(:iy=g:dy=150:dx=z:ot:10 :z ="N"6000p &="S"start=12 :5025:  5560 px:TEMP=30:Z=ç:Z:Z:G=:9 :G::s$=" BEM...   E.. ADEUS" zPb=zg:a=b32 :10 ,z;s$(g32 ):s$=s$(264@)+s$(g) a:B=z5030 B HS$=" POE EM MARCHA O GRAVADOR " fa=z32 :10 ,z;s$(g32 ):s$=s$(264@)+s$(g):A:5030:z:S$="":"" JdxZ8030^ T) dx=(256-8*ix*p$)/2  ^i=23306 [:i,dx:i+1,dy:i+2,ix:i+3,iy:i+4,8:i=i+4:w=p$:J=gw:i+J,p$(J):J:i+w+1,255:w=32256~: !4i1/temp,4-24:1/temp,-20:1/temp,-20:4/temp,-24: 'H(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:Z=0:236066\,Z:236077\,60<:Z:Z:6:6:32200}:"":9 :B=120:A=07:0.005y# =,A*4:A+5,0;" PARA O GRAVADOR ":A:A:B: CAR JOGO ,~?,.![~#"[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 ')  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 20 ":9020<# 8=K=K+1:p$="VIDEOHARDWARE: ":9020<# 9/p$="Os computadores do futuro ":9020<# :.p$="Inteligencia artificial ":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$="Aproveite-mos ":9020<# B.p$="o Sistema Operativo ":9020<# K=K=K+1:p$="VIDEO-JOGO: ":9020<# L/p$="O rei dos negocios ":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 #"&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&# #& #(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: 32S PRIME UMA TECLA PARA CONTINUAR Y MA TECLA PARA CONTINUAR PRIME UMCAR NEXT 8|("$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >