ZXTape! VIDEOBREAKUF Wv! }+} vx ! }+} v x ! }+} v x ......................23760 CANCAO DE OUTONO As longas cordasdos violinosno outonorompem-me o coracaocom uma lassitudemonotona. Cheio de ansiedadee cansado, quandosoam as horas,recordo-mede dias remotose choro. E me abandonoao triste ventoque me trasportaaqui e ali,como umafolha morta. " 23902 (23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:9999':4:4:4:1:0:0:318008|:A=1202:0;A,*20;٥*7;"VIDEO BREAK":A:""318008| ZRO=5100:RA=5200P:TE=5300:TA=5400:DR=5500|:TV=5600 {a=021:a,0;7-a/2+8*(a>15);" PARA O GRAVADOR ":a:4:"" 23760\:0 >A=10-1:A:A:7:A::60<:A (Oa=0300.5:0.01z# =,a+15:0.01z# =,30-a:a dB9999':20,22;"";21,20;"B. TEMPOS ";15,22;" ";16,22;" CPU ";17,22;" ";13 ,19;"R";14,19;"A";15,19;"M";17,19;"R";18,19;"O";19,19;"M" n10 ,29;" ";11 ,29;" T ";12 ,29;" E ";13 ,29;" C ";14,29;" L ";15,29;" A ";16,29;" D ";17,29;" O ";18,29;" ";19,29;" " x 3,21;" ";4,21;" D ";5,21;" R ";6,21;" I ";7,21;" V ";8,21;" E ";9 ,21;" ";5,27;"   ";6,27;" TV ";7,27;"   " )1:502:E$(4,11 ) E$(1)=" " E$(2)=" SOFTWARE" E$(3)=" POESIA " E$(4)=" " A=131 (9998.5:+):B=14:0.001wn,B*10 +10 :B+3,(A-11 )*(A>11 );E$(B,(11 -A)*(A<11 )+111 -(A>21)*(A-21)) B:A:1:70F ,1:B=130:254,0:DR:254,255:TE:254,0:RO:254,255:RA:B 6n254,0:0:te:1:60<:0.4L,0:0.2~L,20:1:100d .9998':0,0;:x=23901]] x=x+1 ¾x=""x=x+1:" "'; x=24189}^4000 7;ܥ+0.4L;¾x; 1:ro:ra:tv:0 ¾x="a"0.1}L,10 ¾x="u"0.1}L,8 ¾x="o"0.1}L,7 ¾x="e"0.1}L,9 ¾x="i"0.1}L,13 H 3010 99999':#1;0,0;"(P. Verlaine)" W1:502:RA:RO:TV:23760\:s$="PRIME UMA TECLA PARA CONTINUAR ... "  0 0.007ye`A,20:1:TA:0:#1;1;1,20;S$(112 ):S$=S$(235#)+S$(1):=""4030 S$=" ":1:A=513568:A*100d:A:0:A=210-1:"":A,0;S$(119+(A<7)):A:1:A=1502:TE:DR:RO:RA:A $9998':5,6;"POE";8,7;"EM";11 ,5;"MARCHA";14,3;"O GRAVADOR":A=130:0.001wn,40(:A .=:TE:RO:RA:DR:9999':"150":2:2::"" L175,36$:-8,0:0,-8:-7,0: PK175,524:-8,0:0,8:-7,0: 1195,31:0,-15,0: (216,43+:15,0: |L188,568:0,21:-8,0:0,18: K204,568:0,480:28,0:0,7: @ '/236066\,86V:236077\,123{: '-236066\,0:236077\,60<: P|1 SOFTWARE POESIA gCAR BREAK 8|р9>$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),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" Z:"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$:"1360"  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 GRAFICA 5st=Z:b=ṵ"4":"9640":i=z̰"21":o;i,"17",:i bɰ"4":"127",z:z,"175" BU"21",z;u;"I:VAR.CON. C$:CAR. X:COMODIN";Z,Z;"DATA 58,0,125,203,175,79,6,0,201";"20","13";"DADO:32000;LM:32001" Flm="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 E TENTAOUTRA 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" 8I="15""103","100":"19",Z:Z,"16":"-25",Z tT$(U)"%"i ~#b=U+Ulm=u:rr:"8400":"8300" Bɰ"3""":RR <b PLM=U::Z,Z;"BEM, "+N$,,,,"AGORA PRIME E OBSERVA OCOMPORTAMENTO DO PROGRAMA. TO-DAS AS LETRAS MINUSCULAS SERAOCONVERTIDAS EM MAIUSCULAS.",,:Z:"R""3920" Z:"23607","60" n]"23658",z:u,z;U;"INTRODUZ UM CARACTER E ."''" ( PARA TERMINAR )",z,z;i$  i$"a"i$"z"(i$-32 ) i$"e"I$="E""3950"  "23607","124":"23658","8" $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 $m"AGORA, "+N$,"VEJAMOS O QUE FAZER NA PRATI-CA PARA MEMORIZAR E DEPOISEXECUTAR UM PROGRAMA EM L/M.","" $"O PROGRAMA EM L/M E UMA SIM-PLES ROTINA QUE TRANSFORMA UMCARACTER DE MINUSCULA PARA ASUA CORRESPONDENTE MAIUSCULA.SEM TRABALHO, O OBJECTIVO DOEXERCICIO E DEMONSTRAR A FACI-LIDADE QUE O SPECTRUM TEM DEEXECUTAR UMA ROTINA EM L/M.","" $1" PROGRAMEMOS EM "," LINGUAGEM MAQUINA" $A"11 - FASE DE PREPARACAO","COMO RESERVAREMOS O ESPACO ?","" $r"Baixando a RAMTOP medianteCLEAR ...reservaremos uma areade memoria compreendida entreo BASIC e os UDG.","" %N"22 - FASE DE MEMORIZACAO","COMO INTRODUZIREMOS O PROGRA-MA EM L/M ?","" %0k"Mediante um ciclo FOR NEXTleremos os codigos de linhasDATA, que se memorizam na areareservada.","" %D?"43 - FASE DE EXECUCAO","COMO TRASFERIREMOS OS DADOS ?","" %N"Envia-los-emos ao programa L/Mmemorizando-os numa determi-nada direcao mediante POKE.Depois sao recebidos atravesdo mesmo USR.","","" %x"AGORA, "+N$,"TRASFORMAREMOS A ANALISE AN-TERIOR NUM FLUXOGRAMA, E DE-POIS DIRECTAMENTE EM INSTRU-COES ." %"" %GRAPHICS %5"121PREPARACAO ","042RESERVA ","#810","221031999" %"*1 ","192MEMORIZACAO " %c"044INICIAL.","045CICLO ","#823","2420I=3200132009","047MEMORIZ.","#813","2730X","2840I,X" %f"049 FIM ? ","<813","2950I","04;LINHA ","04INT.CAR.","#810","2>70C$","04@MEMORIZ.","04AEM 32000","#823","2@8032000,C$" %&"04CIMPRIME ","#813","2B9032001" % "*1 ","% " %"BEM, "+N$+"AGORA, COMO DE COSTUME, TENTAESCREVER O PROGRAMA COM BASENO DIAGRAMA DE FLUXO. LEMBRA-TE DE NUMERAR AS LI-NHAS DE 10 EM 10 A PARTIR DE10." %H"OBSERVA TAMBEM AS DIRECCOESDOS PARAMETROS DO PROGRAMA EML/M. ","" &"EXCELENTE, "+N$+"ESCREVESTE UM PROGRAMA DE NO-TAVEL COMPLEXIDADE. SE APRO-FUNDARES OS TEUS CONHECIMEN-TOS EM L/M CONSEGUIRAS RESUL-TADOS ESPECTACULARES!" &4"" zuo p [[lc NA PROGRAMEMOS EM B LINGUAGEM MAQUINATY NUAR PRIME UMA TECLA PARA CONTICAR PROG |+o)#$$$~$$~$$$~$$~$~~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<" >?@OfA@@>UUUUUUX@ۿAO   ? ?!1(?@0A"?;@_@@@A_  ?#`??_"0?p@@UUUUUU\ zr_ @ '  G @O@@? p ?0??O" @?^@@_  @@G@@@@@_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@~~???V"`@?@]A@~?`??@A?@YA"? Z Ax?ـVIDEO-JOGOp.   EDICOES LATINAS  f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 236066\,0:236077\,60<:6:0:6:32200}:0;"gfgff":"":0:0:0,0;:"":1:502  254<19215 56:0:6::" INSTRUCOES" ''"O JOGO CONSISTE EM CONSEGUIR PI-LOTAR UM AVAO,SIMULADO PELO COM-PUTADOR, FAZENDO-O DESCOLAR EATERRAR CORRECTAMENTE TENDO EMCONTA AS INFORMACOES DOS INS-TRUMENTOS DE BORDO." ("A DESCOLAGEM DEVE FAZER-SE EMLINHA RECTA, A ATERRAGEM TEM DESE REALIZAR COM O TREM DE ATER-RAGEM, EM PERPENDICULAR E ANGULODE INCLINACAO DAS ASAS NULO, E...EM VOO NAO PODES ULTRAPASSAROS 1200Km./h." 2."AS TECLAS SAO: ""ENTER"" AUMENTA A POTENCIA ""L"" DIMINUI A POTENCIA ""P"" ON / OFF MOTOR DIREITO ""O"" ON / OFF MOTOR ESQUERDO ""F"" POE OS FLAP (TRAVA) ";#1;"""D"" TIRA OS FLAP " @ pD@`@@ <@| < x ? ǀ?@? x @?A D4@ O|8 8@ x ?@r(A xEP@ < C  <  `0``@0|@<?@@<"AOI@0   Ap   r?  @  @ K  <@@|@<>@# pp @8 | h@ S?ǀ@? x  D@p@@8À?A  PO@P@ ޿@?D @@@A? 0@Odo@@?@ ?@ zPH ?@?C? @? ||(? p7 FFFFFFFFFFFFFFFFFFEEDDCCCFFFFGGGFFFFFFFFBBBFFFEEEDDCCBBBFFFDDLLDEEEDDDCCCCFFFEEFFFFFFFFFFFFDLLLLEFEDEFDEFBEDCCCCCDDDFFFEEEDDDLLDEFEEDFFDCBDDEFEDEFECCDExxxxxGGGGEFEEDEFEDCDEEDCDEFEDEGxxxxxxGGGGFFEDEFFGFEDEFGFFEDCDExxxxxxxEDEFXXXFFFFFFFFFFFFxxxxxxxxxxxxxFFFFXXXXFFEEDDFFFFDxxxxxxxxxxxxxFFEEXXXXXXFFFFFxxxxxxxxxxxxxxxxxEEEEXXXXXXXFFxxxxxxxxxxxxxxxxxxxEEEEXXXXXXXXxxxxxxxxxxxxxxxxxxxxFFFFXXXXXXX{xxxxxxxxxxxxxxxxxxxxFFFFXXXXXX{{xxxxxxxxxxxxxxxxxxxxCCCFXXXXX{{xxxxxxxxxxxxxxxxxxxxxxCCCXXXXX{xxxxxxxxxxxxxxxxxxxxxxxxCCXXXXCxxxxxxxxxxxxxxxDDDDxxxxxxFFXXXXCCxxx{{{{XXDDDDDDDDDDEEEFFFFXXXXCC{{{XXXXXXXDDEFGGDDDDDDDDDDXXXXXXXXXXXXXXXXXCCCCCCCFFFDDDDDXXXXXXXXXXXXXXXXXXXCFFFFFCBEEEEEXXXXXXXXXXXXXXXXXXXEEEEEEEEEEEEEXXXXXXXXXXXXXXXXXXXEEEEEEDCCCCCCXXXXXXXXXXXXXXXXXXXGCFFFFFCCCCCCCAR ,~.![~#"[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(// PaSIM.VOO UQ [.W  EDICOES LATINAS  (23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:9 :32000}:23562 \,1:7,1;"PRIME:"'''" 1 - JOGO"''" 2 - CARREGAR O PROXIMO"'" PROGRAMA" A$=:A$="2"2000 A$"1"2 &:j=035#:k:"a"+j,k:j 00100110&,01101001i,10101001,00101001),00101001),00101001),00100110&,00000000,00100110&,01101001i,10100001,00100010",00100100$,00101000(,00101111/,00000000 01111110~,01111110~,01111110~,01111110~,01111110~,01111110~,01111110~,01111110~,6,0,33!,10100000,00011111,58:,176,92\,164,181,79O,201 L=0:b=0:cons=0:FUEL=9000(#:SPEED=0:km=0:inc=0:ass=0:flap=0:alt=0:pow=0 *left=1:right=1:car=1 0:0:1:0:1:7::502:159,71G:0,14:0,0:255,0:0,175:-255,0:0,-175 s0,96`:255,0:j=096`96`/4:0,j:254/2,0:j j=0250254/4:j,0:0,96`:j:255/2,96`/2:250/4,0  128 2Kxx=4:yy=80P:xs=1:ys=1:p$="COMBUS.":9999' <p$="Km./h":xx=11 :yy=104h:9999':xx=84T:p$="Km.":9999':yy=80P:p$="CONSUMO":xx=68D:9999' F{255/8*5,(175-80P)/4*3,20:xx=16:yy=152:p$="FLAP":9999' K128,40(:62>,0,/9 :80P:xx=4:yy=128:p$="INCLIN.":9999':xx=68D:p$="ESTABI.":9999':90Z P1:141,38&:5,-14:145,38&:5,-14:150,15:150,15,9 :152,37%:5,-13 :156,37%:4,-11 :156,9 :0,15,*2.83333/2:0: Zxx=67C:p$="ALTITUD":yy=152:9999':j=1579O16:254/8*7-14,j:24,0:j:254/8*7-3,0:0,86V d1:j=082:21-j,28;(j+480);21-j,26;(j+480):j:0:11 ,26;"";11 ,28;"" n(7:10 ,24;"POTENCIA" xxx=176:yy=100d:p$="E":9999':xx=136:p$="O":9999':xx=156:yy=119w:p$="S":9999':yy=81Q:p$="N":9999' ~0.001wn,40( q2;1;13 ,25;" ";13 ,29;" ";12 ,25;" ";12 ,29;" ": **////COMIENZO\\\\** 23728\,57342:CM="D":CM=189CM=188left=(left=0):j=22-pow21:8;j,25;(128+18*left):j 23728\,57342:CM="D":CM=190CM=188right=(right=0):j=22-pow21:8;j,29;(128+18*right):j ~95_,2+4*(63?64@):23728\,65278:CM="D":CM=183car=(car=0):80P 23728\,49150:CM="D":CM=190pow=(pow+(pow<10 )):8;22-pow,25;(128+18*left);22-pow,29;(128+18*right) in1=inc:as1=ass 23728\,49150:CM="D":CM=189pow=pow-(pow>0):8;21-pow,25;" ";21-pow,29;" " X23728\,61438:CM="D":CM=175CM=171ass=ass-(ass>-20) W23728\,61438:CM="D":CM=183CM=179ass=ass+(ass<20) d23728\,61438:CM="D":CM=187CM=171CM=179inc=inc+(inc<20) K23728\,63486:CM="D":CM=175inc=inc-(inc>-20) 1:254,136+as1/2+in1/2:-253,-in1:0:254,136+ass/2+inc/2:-253,-inc T23728\,65022:CM="D":CM=187flap=flap-5*(flap>4) V23728\,65022:CM="D":CM=183flap=flap+5*(flap<19) cons=pow*(left+right)*10 :fuel=fuel-(cons/10 ):speed=((cons*7-speed)/502)+speed-(speed*flap/160)-(speed*ass/170) km=km+speed/1000:alt=(speed*ass/502)+alt-20*(alt>21)*(speed<350^)-(alt>1):pow=pow*(fuel>0):l=l+alt/1000 inc0h=b:b=b-inc/500:159,71G:1:h*14,h*14:0:159,71G:b*14,b*14 S23280Z7#1;1,12 ;" ":0.1}L,40( Lspeed<200ass>2#1;1;1,13 ;"PERDIDA" I speed>1200alt<70Fcar=0alt>2000car=1alt<0alt<1inc0alt>10 speed<20j=502-10 -1:.02{# =,j:j:1,-40(:#1;1;0,12 ;"EXPLOSAO";0;1,0;" Prime uma tecla para jogar ":100d:0: alt=0l0SPEED<1#1;1;1,12 ;"ATERRAJEM":J=-2046.:0.01z# =,J:.01z# =,26-J:J:#1;0,0;" Prime uma tecla para jogar":502:0:  2002 W5:7:0::10 ,0;" POE EM MARCHA O GRAVADOR " #5:200::7:"" 11 ,2;fuel;" ";14,2;speed;" ";20,9 ;alt;" ";17,11 ;ass;" ";17,2;inc;" ";20,3;flap;" ";14,10 ;km;" ";11 ,10 ;cons;" "  128 XQ 0;7;1;2,0;" PARA O GRAVADOR " YHS=0:A=-30502:0.003xD,A:0.003xD,20-A E羽A/502:23728\,254:CM="D":S=S+CM-191:A S>07000X ] 7;0;2,0;" PRIME UMA TECLA PARA JOGAR ":1:0: '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~: A VIDEONEXT _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 19 ":9020<# 8=K=K+1:p$="VIDEOHARDWARE: ":9020<# 9/p$="Novos dispositivos de INPUT ":9020<# :.p$="Raton Trackball Touchscreen":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$="L/M = Velocidade ":9020<# K=K=K+1:p$="VIDEOJOGO: ":9020<# L/p$="Ratoeira ":9020<# fk150:1000::8994"#:13 ,10 ;"ATE A PROXIMA ":18,19;"VIDEOBASIC" nJn=1502:.01z# =,*60<:*7:n:2:7 x ,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 ROTULOS ENTRANTES 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 Zl,v;"";:q=1̱a$:a$(q);:a$(q)" ".0005vn,40(:m=1̥*5:m 4a$(q)=".".2~L,0:23692\,255 q: #LEE LOS 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 #! HOMBRE #"&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(#: #;ROTULOS ENTRANTES #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: F# S PRIME UMA TECLA PARA CONTINUAR Y MA TECLA PARA CONTINUAR PRIME UMaVLkPRatoeira CAR NEXT 8| "$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >