ZXTape! EXERCICIOSY[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 d(0: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 0I=U:PN=U:A$=" CANAIS --- IMPRESSAO":"8410" $ "8500" ~"8075":E"1000" @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:""  8150 4"8400":7,U;:T$="ESCOLHE, {:":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 '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)="{"T$=N$:"8330" T$(N)="}"'U''" ";: T$(N)=""P="8": .T$(N);:OPT$(N)" ".001wn,40(:U +OPT$(N)=".".1}L,30:20 "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 QUE TE VAO PEDINDO.ESTOU SEGURO 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" #/EC$=""C$="~"C$="|"C$="\"C$="{"C$="}"C$="]"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":Z;"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" $ D A T A  $"VEJAMOS AGORA ALGUNS EXEMPLOSPRATICOS E EXERCICIOS SOBREO USO DAS NOVAS INS-TRUCOES QUE TEMOS APRENDI-DO.","" $|"OPEN #IND,""P""","ESTA INSTRUCAO ABRE O CANALCUJO NUMERO ESTA CONTIDO NAVARIAVEL ,ACTIVANDO A IM-PRESSORA.","" $f"PRINT #0;A$","O CONTEUDO DA VARIAVEL VISUALIZARAR-SE-A NAPARTE BAIXA DO ECRAN.","" $"OPEN #2,""K""","COM ESTA INSTRUCAO TODO, QUE NORMALMENTE ESTALIGADO AO CANAL , E EN-VIADO A IMPRESSORA.","" %"CLOSE #2","POSTO QUE OS CANAIS DE 0A 3 SAO LIGADOS AUTOMATICA-MENTE, ESTA INSTRUCAO TEMO EFEITO DE FECHAR O CA-NAL 2 DO PERIFERICO .","" %"LLIST 3000","SE NAO SE INTRODUZIRAM MODI-FICACOES, A ZX-PRINTER IM-PRIMIRA A LISTAGEM DO PROGRA-MA EXISTENTE EM MEMORIA A PAR-TIR DA LINHA 3000.","" % y"LPRINT PAPER 5;""OK""","POSTO QUE A ZX-PRINTER NAOADMITE COR, O ATRIBUTO SERA COMPLETAMENTE IGNORADO.","" %e"COPY","ESTA SIMPLES INSTRUCAO GERANA ZX-PRINTER UM (COPIA FISICA, DO ECRAN).","" %|"LPRINT CHR 27;""-1"";""OK""","NORMALMENTE UMA IMPRESSORA ES-TANDARDIZADA EXECUTA ESTA INS-TRUCAO IMPRIMINDO ""OK"".","" %0"" %: INTER %D>"7,""K""","ABRE O CANAL 7","A PARTE BAIXA DO ECRAN","" %IO"SC","FECHA O CANAL CUJO","NUMERO ESTA CONTIDO NA","VARIAVEL ","" %N<"","COPIA O CONTEUDO DO","ECRAN PARA A ZX-PRINTER","" %SM"9","ENVIA UMA ORDEM DE ","A UMA IMPRESSORA ESTANDAR","(TAB = 9)","" %XV"","IMPRIME A LISTAGEM DO PROGRA-","MA EM MEMORIA COMECANDO PELA","LINHA <1>","" %]^"#3;""OK""","USANDO A INSTRUCAO PRINT","IMPRIME COM A ZX-PRINTER A","PALAVRA .","" %b3"#6;T$","ENVIA AO CANAL <6> A","VARIAVEL T$","" &G"" zu"eaNc A n#B7,"K"TxCCAR EXERC. |m>"$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >318008|x=29501=s %x=x ( 22 dE0,0,4,7,12 ,16,14,11 nE12 ,12 ,11 ,11 ,5,5,5,5 xE9 ,9 ,7,7,-1,-1,-1,-1 A9 ,9 ,7,7,0,0,0,0 E0,0,4,7,12 ,16,14,11 E12 ,12 ,11 ,11 ,5,5,5,5 C9 ,9 ,7,7,5,5,-1,-1 A0,0,4,4,0,0,0,0 B69E,0,4,7,9 ,9 ,9 ,9 A9 ,9 ,9 ,9 ,7,7,7,7 d7,69E,-1,-1,2,5,9 ,9 ,7,7,0,0 !4,4,0,0 68D  21 (23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:7:7:7::29500#0;1,0;" PARA O GRAVADOR "  7 S=88X89Y 32621m,S 5X=0255:32620l,X:32613e:X S 0:7:1  0  "":1  1 ,7:0::7::32599W 510 ,0;" POE O GRAVADOR EM MARCHA " 32621m,88X ?X=0255:32620l,255-X:32613e:X 7:0:""  #CAR BREAK =s!X[v\X!X>BREAK @RK)?8?A7 D!Bv @` @0(i $ HK? 0`000 x"` "!$@ GD@ z<? <a8@ ?1A @ADFD`@@$p! B$)`?` `A pg?I @  I3!B"@@"!B9?~??``B @`!D@`8"@@0" I@0I80` ! Bp"D  "?w$ @INJ@ DB9pxx0``    a"!B"@p$ ?H $ `Ƙ0p`0 0@ HB@!$LU@Ux*DB!$*fŸ2H) B!J &| P '0h@A@AD*F""8`p1$@(Daá @B$ $PB!/`D@0BB``8!!P@@L ̂ A OL?! DB ~SPJR%PT0x$D@`D(0I"!=^8B"IP@ p  )U "!x B"HUJ~30`@fy (A( A $% $ /R B0iD K!HHT$  ` @rIJA AI@@" " "H" `E " p"@QH @ @p}_$ * <0 B2$*@0@D~eOHP@ S`%HgUA@AU3 RJ {D @!$$)=*D0b@ 0D$*OdH"!0B" TAP@D}@@@0gH_p2@d  ?؀$ D$ @""@""B DB ;)@Jn !$*8 0 @@UA0@ A UbVBH @ H !|E' @@,@Qp8H @@@ C2@ a D\@HC| HT@TRD d%\8D#0? |?(J0 P " ` "@`! BK_Xn  @ H; w%H " J"(?Rw@@! ?I"?"q!BG "~"I@L0AT$@@ A A"! B"A@*D@@` * p@@ @  @ @`@D p@ @@ P!$A8` ABHA` A $ $A0 AD@A  A@@@@  @P D@@ " " 0 @ @@@BI`I!$"`" "" H@`   ` ` *"@"*!B @ @! B!B`@    `< $ D <  HB ! B ! 0 DB@ !@@@@ @@ ?` $`@H@@ @`$@ @@x  `888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888PROGRAMA  l 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: 1+"23617",z:A$=°"14""23617",u:"890" >T(a$>"A"a$"z"w$(W$)"9"w$(w$)"0")ƱW$<"4"w$(w$)="":a$=(a$+165) Cw$=w$+(a$a$" ") H a$="12"ƱW$-uw$=w$(̱w$-u) 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 T"8300":"8150" GRAFICOS 5st=Z:b=ṵ"4":"9640":i=z̰"21":o;i,"17",:i bɰ"4":"127",z:z,"175" 9BU"21",z;u;"I$=CANAL C=COLUNA N=VAR.AUX." Ilm="17":b="2"z,z;:t$=" TRADUCAO  P/ BASIC ":P="5":TX:P="8" 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" 2I="26""118","36":"6",Z:Z,"70":"-26",Z tT$(U)"%"i ~#b=U+Ulm=u:rr:"8400":"8300" Bɰ"3""":RR FRB::#Z;Z,Z;"BEM, ";N$'"AGORA PRIME ""R"" PARA EXECUTAR ":Z:"R"3910F :"S/P";I$:I$"S"I$"P"20,Z;U;"NAO!!, DEVES INTRODUZIR ou

":U,-20:"100":20,Z;U;" OUTRA VEZ !",:100d:"4000" nI=Ṵ"13":#"2"+(I$="P");"1X2"((*3+U)):I:#Z;" INTRODUZ PARA TERMINAR":Z:"E"4000 $T$:T$4900$ %"8400":LM=U:"8300":RR:"8400" 10 ,6;"C CARREGAR O VIDEOTEST";12 ,6;"I INTRODUCAO";14,6;"E EXERCICIO";16,6;"F FIM" #0:A$=:A$="I"1000 A$="E"3000  A$="C"8000@  A$="F"  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: 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: # DATA $8"DESTA VEZ, "+N$+"","VERAS O TOTOBOLA ELECTRONICO!","" $Ǜ"QUEREMOS UM PROGRAMA QUE IM-PRIMA NO ECRAN OU NA IM-PRESSORA, UMA COLUNA DE TOTO-BOLA FORMADA POR 13 SINAISDE <1X2> ESCOLHIDOS A SORTE.","" $." VAMOS TENTAR! "," SORTE !" $O"11 - FASE DE INPUT","QUAIS SAO OS ELEMENTOS NECES-SARIOS NO PROBLEMA ?","" $^"Teremos que indicar ou

para eleger respectivamen-te ou .","" %="22 - FASE DE CALCULO","COMO OBTEREMOS OS SIMBOLOS?","" %0"Teremos que gerar numerosinteiros aleatorios entre 1 e3, que depois se utilizam paradireccionar uma cadeia quecontenha <1X2>.","" %D5"43 - FASE DE OUTPUT","COMO ESCOLHER A SAIDA ?","" %N<"Usaremos o canal 6 que abri-remos com ou

.","","" %~"AGORA, "+N$+"","TRANSFORMAREMOS A ANALISEANTERIOR NUM DIAGRAMA DEFLUXO, E DEPOIS EM INSTRU-COES .","" %GRAFICOS %x"141 I N P U T ","042INTROD. ","043 ","#820","2310""S/P"";I$","045 ABRE ","046 CANAL ","#823","26206,I$" % "*1 ":"5*" %}"1:2 ELABORACAO ","048 INICIO ","049 CICLO ","#823","2830C=113","04; N=INT ","04IMPRIME ","04?< 1X2 > ","#823","2>50""1X2""(N)","02AFIM CICLO ?","<<13","0=?S.","2A60C","04C FIM ","#813" % "*1 ","% " %"BEM, "+N$+"AGORA TENTA ESCREVER O PRO-GRAMA EM BASE NO DIAGRAMA DEFLUXO.LEMBRA-TE DE NUMERAR AS LI-NHAS DE 10 EM 10, A PARTIR DE10.","" &"BEM, "+N$+"DESTA VEZ ESCREVESTE CORRECTA-MENTE UM PROGRAMA PRATICO,UTILIZANDO UMA TECNICA FUNDA-MENTAL: A GESTAO DE CANAIS." &4"" zuo p [[lcNA VAMOS TENTAR! B SORTE !TY UMA TECLA PARA CONTINUAR PRIME CAR PROG. |'"$$$~$$~$$$~$$~$~~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;"Poe a cassette na sua caixa,";14,1;"e desliga a alimentacao ao teu ";15,1;"SPECTRUM. Ate a proxima,";17,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=15:B$="------------" ,Y(15):q=115:y(q)=q:q \q=115:12 ,11 ;q$(q,66B):20:.2~L,(q+10 ):q 9050Z#:3490 ***bloco principal*** .w=115: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*** {618,1;"A TUA PONTUACAO E ";s;" SOBRE 30" 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,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=(*3)*3:XX=(*5)*6+1 (YY,XX)183550 R1;II;PP;YY,XX;" ";YY+1,XX;" ";YY+2,XX;" "  ***comentario final*** 13 ,4;N$;"," $s<1515,4;"PARA MELHORARES, LE A";17,11 ;1;"VIDEOBASIC":9041Q#:200:500 .6s>2215,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" #6R9550N%:"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 & lCAR TEST |X "ROBERTO$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" > 6 RETROCEDE A CABECA DA IMPRES-SORA UMA POSICAO CHR$ 8 TIPO DE IMPRESSORA QUE ESCREVECARACTER A CARACTER MARGARIDA CARACTER QUE SE UTILIZA PARATABULACAO HORIZONTAL 9 ABRE O SEGUNDO CANAL PARA AIMPRESSORA OPEN #2,"P" CANAL ABERTO PARA A IMPRESSORA 3 INTERFACE SERIE PARA A IMPRES-SORA RS232 INTERFACE PARALELO PARA A IM-PRESSORA CENTRONICS ECARN @)?0@P FP`  P`A0 A(XQ@.@ "@"P"@"P!!@@00@`P P9@ A101??PA "@"P"@"P<xAT2I0@S! 0`E@ P yB ! 0"@&P`"@"P ?"@"P!~? 0@A2I0A@W ! y0P !@0! "@&P x0"@"P !"@"P `@@ AW*I0A^ 9AfP ?@`9"@"P `"@"P@"& D@@ ATT*I0| !A 9uxP !"@"Pm@"@"P@!0&@*?@ H@ AT&I0q !|qP 9e ԁ!"@"P"@"P@?P*@2`X?@ AT&I0 !APA 4 @ !"@"P|"@"Q2@"!~?VIDEO-JOGOQe,Sh:(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 p"23570","6":K="127":TX="9100":PT="9991":C2="2":C4="4":C5="5":C6="6":C7="7":C8="8":C="10" _ٱ:T$="PRIME UMA TECLA PARA CONTINUAR* ":P$="* PARA O GRAVADOR * * "+T$:PT:"9000" /ç:C5:ç::A$="ESCOLHE, "+N$+":":Y=C7:TX !A$=" 1 - JOGO":Y="11":TX &A$=" 2 - VIDEONEXT":Y="13":TX A$=" 3 - FIM":Y="15":TX Z$=:Z$=""ůZ$>"110""15" E׼,Z$-"50":"15"+("85"Z$="3")+("185"Z$="1")+("9685"Z$="2") d}C6:C6::J=ç̰"21":I=ç̰"28"2*C4:J,I;ں(*7);ٺ(*7);" ADEUS! ":(*7):.01z# =,I+J:I:J w׼,"60":23624H\,9 x#I=ç1E30I:缧:"""125" y%C6:::::::::::::::::::::::::::::::I }"23624",:ç: ç:ç:C4: oA$=" ESCOLHE, "+N$+":":Y=C7:TX:A$=" 1 - ADIVINHAS TU":Y=C:TX:A$=" 2 - ADIVINHO EU":Y="12":TX Z$=:Z$<"1"Z$>"2""202" "900"+("100"Z$="2") 7C5:ç:C5::B$("20",C4):N("20"):B("20"):NT=ç /G$="":K=C4:E$=((*C6)+):G$=G$+E$:K Fç,ç;ç;"O MEU CODIGO E: ";ç;" ";C5;" F M" 2װ".1","40":" E A TUA VEZ ";S$:S$C4"920" &I=C4:S$(I)<"1"S$(I)>"6""920" I NT=NT+:B$(NT)=S$:D$=S$ BK=C4:J=C4:G$(K)=D$(J)B(NT)=B(NT)+:D$(J)="0":"945" J K )K=C4:G$(K)=B$(NT,K)N(NT)=N(NT)+ K:B(NT)=B(NT)-N(NT) wNT*C2+,ç;"TENTATIVA NUM.";ݼ;" ";NT;" ";ç;" ";:I=C4:B$(NT,I);" ";:I:" ";B(NT);" ";N(NT):װ".2","25" ^NT=N(NT)5"INTRODUZ O TEU CODIGO ";Z$:Z$C4Z$="""1342" A'I=C4:Z$(I)<"1"Z$(I)>"6""1342" BI CQç,ç;"O TEU CODIGO E:  ";:I=C4:ݼ;Z$(I);" ";:I:" F M" F "2000" PN(NT)=C4"1940" ZNB=N(NT)+B(NT) dNB=C4D$=B$():"1700" n#NB=A1=:A2=C2:A3=:A4=C5 x#NB=C2A1=:A2=C2:A3=C5:A4=C6 #NB=A1=:A2=C5:A3=C5:A4=C6 #NB=çA1=C5:A2=C5:A3=C6:A4=C6 NT=C2 $B$(C2)=Q$(A1)+Q$(A2)+Q$(A3)+Q$(A4)  "3000"  "2000" N(NT)=C4"1940" $N(NT)+B(NT)=C4D$=B$(C2):"1700" H1=NB*C4+N(NT)+B(NT)+ 'H$="00000202031316070318281000001207" H=(H$(H1*C2-H1*C2)) H=ç"1870" 1170+H1*C  C$(H,C4) K=H  Q:C$(K)=Q K " K=1H , NT=NT+ 6HB$(NT)=Q$((C$(K,)))+Q$((C$(K,C2)))+Q$((C$(K,)))+Q$((C$(K,C4))) @ "3000" JET=NT=NT-:"1650" T "2000" ^N(NT)=C4K=H:K:"1940" h N(NT)+B(NT)=C4K=H:D$=B$(NT) rK |N(NT)+B(NT)C4"1870" D"1190"-(N(NT)+)*C:Z=(N(NT)=C2)*C6+(N(NT)=)*C8+(N(NT)=ç)* K=Z  Q:F$(K)=Q  NT=NT+ DE$=D$((F$(K,)))+D$((F$(K,C2)))+D$((F$(K,)))+D$((F$(K,C4))) H=NT-1 Y=H %E$=B$(Y)NT=NT-:Y=H:Y:"1860" NN=ç  J=C4 E$(J)=B$(Y,J)NN=NN+ J $NNN(Y)NT=NT-:Y=H:Y:"1860" &Y + B$(NT)=E$ 0'"2000":N(NT)+B(NT)C4K=Z:"1860" :N(NT)=C4K=Z:K:"1940" DK l1P$="* * COMETESTE UM ERRO * * "+T$:PT:"1000" .P$="* ADIVINHEI O TEU CODIGO * * "+T$:PT:C `NT*C2+,ç;"TENTATIVA NUM.";ݼ;" ";NT;" ";ç;" ";:I=C4:B$(NT,I);" ";:I:װ".3","30" 6"QUANTOS FERIDOS? ";B(NT):"QUANTOS MORTOS? ";N(NT) LB(NT)<çB(NT)>C4N(NT)<çN(NT)>C4N(NT)+B(NT)<çN(NT)+B(NT)>C4"2010" " ";B(NT);" ";N(NT) #ç;"ESTOU PENSANDO...": ET=ç Z=NT- Y=Z Z="3160" #B$(NT)=B$(Y)ET=:Y=Z:"3240" D$=B$(Y) BB=ç  J=C4  W=C4 +B$(NT,J)=D$(W)BB=BB+:D$(W)="0":W=C4 &W 0J D#N(Y)+B(Y)BBET=:Y=Z:"3240" NY:Y=1Z X D$=B$(Y) bNN=ç l J=C4 vB$(NT,J)=D$(J)NN=NN+ J N(Y)=NN"3240" ET=1:Y=Z "3500" Y  J=123 ET=ç PE$=B$(NT,(F$(J,)))+B$(NT,(F$(J,C2)))+B$(NT,(F$(J,)))+B$(NT,(F$(J,C4))) X=Y D$=B$(X) NN=ç W=C4 E$(W)=D$(W)NN=NN+ W N(X)NNX=Y:ET= X $ ET=çJ="23":J:B$(NT)=E$: .J 3ET= 8 #2)"23296"=KN="23297":N$="":"9012" #3 "9014" #4N=K #6:A$=" ESCREVE O TEU NOME NO ":Y=C:TX:A$=" TECLADO E PRIME ":Y="12":TX:"MAX. 10 CARACTERES ";N$:N$>C"9014" #74C::A$=" ESTA BEM ESCRITO ? "+N$+".":Y="11":TX #8%"S/N ";Z$:Z$="""9016" #9Z$="N"Z$="n""9014" #:0Z$="s"Z$="S""9020":Z$"S"Z$"s""9016" #; N=̱N$:"23296"+N,N$(N):N #<"23296"+N,K:"23296",K: #!I=̱A$:A$(I)=" "9110# #>Y,I;"":1:Y,I;A$(I):A$(I)=" "9110# # .01z# =,I #I: &?C7:ç:ç::A$=" POE EM MARCHA O GRAVADOR ":Y=C:"9100" &:A$=" CARREGO VIDEONEXT ":Y="12":"9100":ç:"" '&#;,ç;P$(32 ):"""": '5.005y# =,*(C8*C8):P$=P$(C2)+P$():9991' j#'c n[  #N 316452- 31645522 a124313241432213432144231134214232314243131243241413242132143234124133142341234214123431243215 5 a8qZ4444zT PRIME UMA TECLA PARA CONTINUAR* P<NUAR* * PARA O GRAVADOR * * PRIME UMA TECLA PARA CONTIA TECLADO E PRIME VIDEONEXT l/n*  EDICOES LATINAS * f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 23675{\,88X:23676|\,127:317997|:7:7:7:0:0:0::23658j\,8:236099\,20:""318008|:236066\,86V:236077\,123{ r23570\,6: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 11 ":9020<# 8=K=K+1:p$="VIDEOHARDWARE: ":9020<# 9/p$="O Robot ":9020<# ;>K=K+1:P$="VIDEOBASIC-A LINGUAGEM: ":9020 <# -P$="USR - BIN ":9020<# @=K=K+1:p$="VIDEOBREAK: ":9020<# A/p$="O Computador Cansado ":9020<# B=K=K+1:p$="VIDEOBASIC-A PROGRAMACAO: ":9020<# D/p$="Definicao de Caracteres ":9020<# K=K=K+1:p$="VIDEO-JOGO: ":9020<# L/p$="Baloes ":9020<# Z.I=0:150:1000:8990# n|:8994"#:A$=" ATE A PROXIMA":L=11 :V=10 :3000 :A$="VIDEOBASIC":L=18:V=20:3000 Nn=1502:.01z# =,*60<:*7:n:7:10000' 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:10 #$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-3:cc=p$*8+4:bb,aa:cc,0:0,12 :-cc,0:0,-12 :bb+1,aa-1:cc,0:0,12 : #27AA=1:BB=12 :P$="VIDEONEXT":9000(#: #FYn=1̱p$:k,32 -n;p$(N):.002xn,(k-3)*n/8:n:K=K+1: ' "" F#S PRIME UMA TECLA PARA CONTINUAR Y A CONTINUAR PRIME UMA TECLA PARAa]Lk PUSR - BIN KCAR NEXT 8|€Q"$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >