ZXTape! VIDEOBREAK\ 1000  EDICOES LATINAS x=500767 a=(15616=+x) 32000}+x,a #0,0;x (x 2""32264~ <""32264~+168 dH12 ,4;"AB";13 ,4;"CD";14,4;"EF": nH12 ,4;"AG";13 ,4;"HI";14,4;"JK": xH12 ,4;"AB";13 ,4;"CD";14,4;"JK": H12 ,4;"AG";13 ,4;"HI";14,4;"EF": c7,21;"YZ";8,21;"[\]";9 ,21;"^_`a";10 ,23;"bc": v3,2;" R " ;4,2;" STUW " ;5,2;" VX " %n=0.01z# =:23560\,255 v3,2;" R " ;4,2;"N STUW " ;5,2;"Q VX " n,-30 u3,2;" R " ;4,2;"MN STUW " ;5,2;"PQ VX " n,-30 v3,2;" R " ;4,2;"LMN STUW " ;5,2;"OPQ VX " n,-30 u3,2;" R " ;4,2;" LMN STUW " ;5,2;" OPQ VX " n,-30 u3,2;" R " ;4,2;" LMNSTUW " ;5,2;" OPQ VX " n,-30 u3,2;" LMN " ;4,2;" OPQTUW " ;5,2;" VX " .003xD,10 u3,2;" LMN " ;4,2;" OPQUW " ;5,2;" VX " .003xD,30 u3,2;" LMN " ;4,2;" OPQW " ;5,2;" VX " .003xD,10 u3,2;" RLMN " ;4,2;" SOPQ " ;5,2;" VX " n,-30 u3,2;" R LMN " ;4,2;" STOPQ " ;5,2;" VX " n,-30 u3,2;" R LMN " ;4,2;" STUOPQ " ;5,2;" VX "  n,-30 u3,2;" R LMN" ;4,2;" STUWOPQ" ;5,2;" VX "  n,-30 v3,2;" R " ;4,2;" STUW LMN" ;5,2;" VX OPQ"  n,-30 "v3,2;" R " ;4,2;"N STUW LM" ;5,2;"Q VX OP" ' n,-30 ,v3,2;" R " ;4,2;"MN STUW L" ;5,2;"PQ VX O" 10n,-30:23560\=255180 3 6236077\,60<: @236077\,124|:  320@ KW$=" "+W$+" " G=1̱W$-31 T3106:#1;1,0;3;7;W$(GG+31):320@ S$=W$(G+31)  NU=2 0S$="O"S$="A"S$="I"S$="U"S$="E"NU=0 >.73333NU=NU+1 100d+NU*10 G   110n 1:100d F=14 ,G=08:.011z49X,-30:G  1:10 +G=012 :.01z# =,30:G 1:502 &F 0 X S=(X1-X2) ]X=X1X22*(X2-X1) bx32 -X,144-X:80P+X*2,0:0,X*2:-2*X-80P,0:0,-X*2 gX=X+S:1:32 -X,144-X:80P+X*2,0:0,X*2:-2*X-80P,0:0,-X*2:0 X   3106: 8:8 zw$="DESPOIS DESTA LICAO, ENCONTRO-ME UM POUCO CANSADO, QUERIA DESCANSAR UM MOMENTO. "  400  510 $X1=0:X2=25:600X T3106:#0;1,0;"PRIME UMA TECLA PARA CONTINUAR":320@  150  140 G 1100L LX=250-2 Qx32 -X,144-X:80P+X*2,0:0,X*2:-2*X-80P,0:0,-X*2 SX=X+1:1:32 -X,144-X:80P+X*2,0:0,X*2:-2*X-80P,0:0,-X*2:0 VQ,T:.1}L*T,Q `X jA7,2,4,2,2,2,0,2 tA2,1,4,1,2,1,4,1 ~A7,2,4,2,2,2,0,2 A2,1,4,1,2,1,4,1 7,2,4,2,7,2,9 ,2,4,2,9 ,2,7,2,4,2,2,2,0,4 ,3,2;8;" "  120x 9W$="AGORA, ESTOU PRONTO PARA CONTINUAR":400  3106 /W$=" POE EM MARCHA O GRAVADOR ":400  120x GG=05:G,0;5;5,:G:8:8 1,0; "" s(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:31999| 7:7:  3106 ""32000} "" 7:0 1W$=" PARA O GRAVADOR ":400:120x  1000 CAR BREAK } $$$~$$~$>(> >bd&F(*D:  >>> < >>\),0:(23613=\+256*23614>\+1),0 y7:7:"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: 1+"23617",Z:A$=°"14""23617",u:"880" 4(a$="12"ƱW$-uw$=w$(̱w$-u):"880" 90FL=Z:N="2"̱w$:w$(N)"0"w$(N)"9"N:FL=U >6(FLW$(W$)="")a$"A"a$"Z"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" ~-15,u;:"8300":RR:"8400":"8300" A$,B$:1360P  PHASE 1 -7,z;:lm="16-(T$/2)":tx:'':lm=u ( :"8300" 2/13 ,9 ;"- - - - - -"''':150 < "8300" P.RR:"8400":T$:T$9000(#:1300  MITAD V:b="7":i=zb:j=zb:"4+j","10+i";"+":j:i:b,"3";u;" ":ڰ"8":i="4":j=i u"18",Z;U;"MOVE O CURSOR COM <5678>","POE UM PONTO COM ","APAGA-O COM ",,"PRIME <0> QUANDO ACABARES" M"4+j","10+I";u;u;" ":z:a$=:"4+j","10+I";Z;u;" ":װ".01","28" `a$="5"ii=i-u ta$="8"iER=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" RuER="3"LM=U:T$="TALVEZ SEJA MELHOR LERES OPROGRAMA E TENTA DE NOVO!":8400 :TX:RR:ST=I:b=u:"3900" zNt$(u)="1292"(B)y="t$(u+u)-48":y,"17";:t$=t$("3"):tx:BU"9050" T$(U)="*"b=u"9050" 6I="20""118","36":"6",Z:Z,"60":"-26",Z tT$(U)"%"i ~#b=U+Ulm=u:rr:"8400":"8300" Bɰ"3""":RR <b $T$:T$4900$ %"8400":LM=U:"8300":RR:"8400" 47,U;:LM=5:T$="ESCOLHE, "+N$+":":TX 11 ,6;"C CARREGAR A";12 ,O;"PARTE SEGUINTE";14,6;"I INTRODUCAO";16,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:"" 1502: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; En=u̱t$:C=C+U:P;T$(N)t$(n)"";:T$(N)" ".001wn,40( .t$(n)=""ž"23688"Uc=z:u;lm;:"8390" 'T$(N)=".".1}L,30:9 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: # DATA $q"AGORA, "+N$+"","REALIZAREMOS TODAS AS OPERA-COES NECESSARIAS PARA DEFI-NIR UM CARACTER GRAFICO (UDG).","" $Ǣ"EM PRIMEIRO LUGAR,POR MEIO DEUM SIMPLES ELABORARASUM CARACTER QUE GOSTES.DEPOIS ESCREVEREMOS JUNTOSUMA ROTINA QUE O INTRODUZIRANA MEMORIA.","" $2" PREPARACAO DE UM "," CARACTER GRAFICO" $O"11 - FASE DE INPUT","QUAIS SAO OS ELEMENTOS NECES-SARIOS AO PROBLEMA ?","" $]"Os dados necessarios, sao:- Caracter a fazer;- Formacao do proprio carac- ter.","" %<"22 - FASE DE CALCULO","COMO FAREMOS O CARACTER?","" %0}"Empregando um ciclo FOR-NEXT,introduziremos os 8 bytes queconstituem a area dememoria reservada aos UDG.","" %D:"43 - FASE DE OUTPUT","QUAL E O RESULTADO FINAL ?","" %Nc"O resultado final consiste emdispor de um novo caractergrafico definido a teu gosto.","","" %y"AGORA, "+N$+"","TRANSFORMAREMOS A ANALISEANTERIOR NUM DIAGRAMA DEFLUXO, DEPOIS EM INSTRUCOES.","" %GRAPHICS %v"121 I N P U T ","042INTROD. ","043CARACT. ","#820","2310C$","*1 ","045 ABRE ","046 CICLO ","#823","2520I=07" %@"1:2 ELABORACAO ","049 LE ","04: DATA ","#82;","2930N" %u"04= MEMOR. ","04>O ","#82;","2=40C$+I,N","02AFECHA CICLO","<<1;","2A50I","04C DATA ","#813","2B60"+X$ % "*1 ","% " %"BEM, "+N$+"AGORA TENTA ESCREVER O PRO-GRAMA COM BASE NO DIAGRAMA DEFLUXO .OBSERVA QUE NO CIMO DO DIAGRA-MA ESTAO INDICADOS OS 8 VALO-RES QUE CONSTITUEM O CARAC-TER QUE TU FORMASTE.","" &"BEM, "+N$+"CONSEGUISTE REALIZAR TODOSOS PASSOS QUE CONDUZEM AREDEFINICAO DE UM CARACTERGRAFICO.TAMBEM APRENDESTE O USOCORRECTO DAS INSTRUCOES." &4"" zuo p  Jl BcNB CARACTER GRAFICO *X0,0,0,0,0,0,0,0yY IME UMA TECLA PARA CONTINUAR PRW T 046 CICLO APOE O GRAVADOR EM MARCHA>CAR PROG | M+#$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >>>  > >> x !X 6# x !@@~ #................................... f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 *  EDICOES LATINAS * ç:ç:ڼ:ټ:缧::"31969":"10",;ٰ"7";" ESTOU CARREGANDO 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,";17,19;"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*** {718,1;"A TUA PONTUACAO E ";s;" SOBRE 20." 3620$ h9050Z#: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,3;" 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 uma 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 MELHORAR, VOLTA A LER";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<" > DATA QUANTOS BYTES SAO NECESSARIOSPARA DEFINIR UM CARACTER 8 DEVOLVE A LEITURA DE ALINHA INDICADA RESTORE TIPO DE MEMORIA QUE GUARDA OJOGO DE CARACTERES ROM ESTA CORRECTO LER UM DADO NU-MERICO COM NAO ECRAN @, {/% O*2{߀*1{߀*]*???*?! 0{7@ "߀܀߀]p?y@ w@"?yǀǀx~~">#@{ }1ba}~ "<@{2~C1~?޿|]?޿ C?? C??!1$;ڀ"1_ǀw_ǀ?~]p? # #<y`?dgH=@ "go׀  DO" *"VIDEOBASIC." +"" -"" ."" ELE FICOU SEM GASOLINA NA" /""SUA NAVE E AGORA ESTA EM" 0""ORBITA EM REDOR DE UM PLANETA" 1""DESCONHECIDO, ONDE TEM QUE" 2"TENTAR SOBREVIVER." 3"","" 4"" MAS NAO E TAO FACIL COMO PA-" 5""RECE! TERA QUE EVITAR UNS" 6#" QUE AU-" 7""MENTAM COM O NIVEL DE DIFI-" 8"CULDADE DO JOGO." <%""," PARA JOGAR USA AS SEGUINTES" =""TECLAS: " >%""," " ?"" | " @"" | " A"" --*--

" B"" | " C"" | " D"" " E4"","",""," DIVERTE-TE ! ! ! ","","","" 20502:A$=" *PRIME UMA TECLA PARA CONTINUAR" ڟ#0;6;1;;1,1;A$(8);1,12 ;A$(9 16);1,23;A$(1724):.002xn,30 ,""10 +(3000 PAGINA=1) A$=A$(2)+A$(1)  2010 F30::10 ,0;" POE O GRAVADOR EM MARCHA " aI=1502:.007ye`A,(*30)+17:.003xD,I:I:200:5::"" (23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:5:5:31969|:"":236077\,60<:236066\,0:10 ,7;1;" PARA O GRAVADOR " _I=30-15-1:.007ye`A,(*30)+17:.003xD,I:I:100d: agin32 A A PARA CONTINUAR *PRIME UMA TECLCAR JOGO |ŀ*"$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0:ٰ"7":ڰ"7":"30999":ç,ç;"":"""31000":"23606","244":"23607","120":"23658","8" dS$(32 ):H$="CPU":TOP="1000":C2="2":C4="4":C5="5":C6="6":C7="7":C8="8":C="10" aC4:#ç;C7;C4;;"  PARA O GRAVADOR  " oA=C5̰"1.5"Ͱ"-.1":.01z# =,A*C5:0.01z# =,"50"-A:.01z# =,A*C:A:.5,ç:װ".5","-1":װ"1","3" 8"23675",ç:"23676","127":"50":C7:C7::"9000" W4::I=ç̰"30"C2:J=ç̰"18"Ͱ"18":J,I;"";J+,I;"";J+C2,I;"":J:I LJ=̰"15"ͺ:I=ç̰"30"Ͱ"30":J,I;"";J+,I;"";J+C2,I;"":I:J 7#ç;ۼ;,C6;" RECORDE ";H$(3);" 0";TOP;" " JI=ç:A$=" <1> JOGO * <2> MUDAR O NOME * <3> VIDEONEXT * <4> FIM * " cC6,C4;I;" ";C7,C4;" ";C8,C4;" " |,C4;I;" ";C,C4;" ":J="11"̰"13":J,C4;I;" ":J ("14",C4;I;" " .008zn,I*6 ""Z$=:"29" -21,ç;A$(32 ):.008zn,I*C8 >.004yn,I*10 :A$=A$(C2)+A$():I=I+:I=C7I=ç  15 Z$ǰ"48"ůZ$Ȱ"53""20" 9.5,Z$*C:"50":Z$="2""23296",ç:"9000":C6 Z$="1""100" !Z$="3""9900" " Z$="4" #C dSC4:C4:ç::ç,ç:ܼ;"255",ç:ܼ;ç,"175":ܼ;"-255",ç:ܼ;ç,"-175" i9LV=ç:A$=" NIVEL DE DIFICULDADE":Y=:"9100" x~I=C2̰"27"C5:װ".01",I:LV=LV+:,I+;ܼ;LV:I*C8,"88":ܼ;"23",ç:ܼ;ç,"23":ܼ;"-23",ç:ܼ;ç,"-23":I m,;"1";"15",C5;"<----  O   P  ---->";"18",C7;"ENTER PARA TERMINAR":X=:X1= װ".8","35" +LV=X:X2=X1:Z$=:Z$="O"X=X-:"139" Z$="P"X=X+:"139" Z$=°"13"LV=X:"150" "135" X=çX=C6 X=C7X= X1=+C5*(X-) 8װ".2","20":,X1;ܼ;ۼ;X:,X2;ܼ;LV:"135" =PALL=(LV/C2+".5"):BONUS="900"+LV*"100":VIT=C4+(LV>C6) !C7:ټ:缧::׼,"50":PUNT=ç W$="":G$(,"32") VG$(C2)="":G$()="" lܼ;ç,ç;"NIVEL NUM. 0";LV;" ****RECORDE 0";("0"TOP<"10000");TOP;"GASOLINA";,"19"+LV;S$(̰"13"-LV) *#ç;"PONTOS 000000 %%% TEMPO 0";BONUS W$="":G="32000":I=PALL %G,(*"29"+):G+,(*"13"+C4) AG+C2,(*-):G+,(*-):(G+C2)=çž(G+)=ç"440" :G+C4,(*C4+C2)+"128"*(>".5"):G+C5,"255":G=G+C5:I :"20",ç;C2;G$(C2);G$():X="15":Y=C2:T$="":VL=ç BONUS=BONUS- ,C7;C2;W$;#ç;,12 -(PUNT);PUNT;,28;("000"BONUS<10 );("00"BONUS<100d);("0"BONUS<1000);BONUS 6X1=X:Y1=Y:X=X+(="P")-(="O"):Y=Y+(="A")-(="Q") X=X+(X=)-(X=31):K$=G$(+(Y+VL=19)+C2*(Y+VL=20),X+X+C2):Y=Y+(Y=)-(Y+VL=21(Y+VL>18K$" ")) BY1,X1;" ";Y1+1,X1;" ":VL=1Y1+2,X1;" " CY,X;"";Y+1,X;"":VL=1Y+2,X;2;T$ &L=31000y 0V(Y,X)579ū(Y+,X)579ū(Y,X+)579ū(Y+,X+)579"1000" :zVL=ç(K$(C2)=""K$(C2)=""K$(C2)="")װ".01",:װ".1",C2:T$=K$:VL=1:G$(Y-"16",X+X+C2)=" " DVL=çYC2"500" NBVL=ç:C4,X;" ":.01z# =,C4:.1}L,-4:.01z# =,C2 X}W$=W$+""+(""T$(1)="")+(""T$(1)=""):PUNT=PUNT+"25"*(T$()="")+"50"*(T$()="")+"100"*(T$()="") bW$<("12"+LV)"500" g="18",ç;ۼ;"TERMINASTE O NIVEL NUM. ";("0"LV) II=çC:J=̺:װ".05",I*J:J:I:"100":"18",ç;S$(̰"32"):"460" y"18",ç;ۼ;" QUE HORROR! FOSTE DESTRUIDO ":A="40"̰"-30"Ͱ"-1":װ".01",A+C2:װ".01",A-C2:A::TOPC"9015" #85:A$=" ESTA BEM ESCRITO, "+N$+"?":Y="11":"9100" #95װ".5",C:"( S / N ) ";Z$:Z$="N""9014" #:Z$"S""9017" #;DN=̱N$:"23296"+N,N$(N):N:"23296"+N,"127":"23296","127" #< #I=A$̼-1 #A$" ".003xD,20 #Y,;A$(I) #I: 'g:A$=" POE O GRAVADOR EM MARCHA":Y=C8:"9100":A$=" CARREGO O VIDEONEXT":Y="12":"9100":"" oc 333K@}n[ yxalonuiung}l# HCPUNA NIVEL DE DIFICULDADEZ e WTK CAR JOGO yр*!}~("_V>z{> > #####!}~݆( ~Dw~( ~Dw~݆w~݆w~( >O~˿82\V>z~y y #####IyROBERTO$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >||x|>>?||<>>\),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 12 ":9020<# 8=K=K+1:p$="VIDEOHARDWARE: ":9020<# 9/p$="A Tableta Grafica ":9020<# :.p$="e o Lapis Optico ":9020<# ;=K=K+1:P$="VIDEOBASIC-A LINGUAGEM: ":9020<# =K=K+1:p$="VIDEOBREAK: ":9020<# ?/p$="Qix ":9020<# @=K=K+1:p$="VIDEOBASIC-A PROGRAMACAO: ":9020<# B/p$="Tracamos um Grafico ":9020<# K=K=K+1:p$="VIDEO-JOGO: ":9020<# L/p$="O Serpintao ":9020<# Z.I=0:150:1000:8990# nR:8994"#:13 ,10 ;"ATE A PROXIMA";18,19;"VIDEOBASIC" Ln=1502:.01z# =,*60<:*7:n:2:7: ,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 ROTATIVOS 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: @?#Y PRIME UMA TECLA PARA CONTINUAR S PRIME UMA TECLA PARA CONTINUAR aVP VIDEONEXTLCAR NEXT 8|"$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >