ZXTape! 2-VIDEO BASIC (EDICOES LATINAS) - TAPE 6 SIDE BEDICOES LATINAS, LDA / JACKSON PORTUGUESSPECTRUM BASIC COURSENONE ORIGINAL TAPE20 TAPES COURSEDESENHO {  EDICOES LATINAS  f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 32767  ""25800d <&X=3271332724:Q:X,Q:X Fo17,0,64@,33!,200,100d,1,0,27,237,176,201 P32713 ZH0:7:7:4,0;:23570\,16:"" hECRAN cH 00 @ -!@? @?@08"@ S@ :@? 0p8!@!@b `0?! @~@A@ @! A<@!@ @?#! @&:@ @@@@!  ?@~0 @A` @@@@! ??@~ @@|3 @?3π0  ???? ~ p ~<G `?0 ?0 ?`x??  >~?@10#?A?`<O>0p@G??~ 0 8 ? @Ac~@< H??!} @G << #?@!~@ H?!{ ?>?| '@H~?x< ??x8 ?? ?   ? ?  ??  ? ? ::888:9999:::::::::::::::::::::::::8899:99:::::::::::::::::::::::::::99::9:::::::::::::<99999999:::::999999::::::::::::999999999:::::999999::::::::::::912119999::::::9999:::::::::::::912221999::::999999:::::::999:::911121999::::99999::::::::999:::991111999:::::99999::::88899<<999))))9999:::::999999:;;;;89:<<99)))))9999::::999999++++;;:::<<;;999)9999:::::99999///++;;::==9;;9999999:8:::999999//;;/:;;:==9999>>>>988::::999:://;;++;;:9999!!>>>>>88::::888:://+//+:::999!!&>>>>>88::::88888////8::999!!"&>>>>88::::88800888888::99!!"&&>>>88::::88800088888888'!"&&>>88::::8880000ppp88888 &&&88::::888000xppp888888 88888::::888000xppp8888888 888888888::::8880000pppppppx000888888888:::::8888888ppp8888xxxxxxxxx888::::::8888888ppp88888888888888::::RND Z    EDICOES LATINAS  Zf(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 _"31969":23570\,6:z=ç:u=:236099\,20:23658j\,8:236066\,Z:236077\,124|:7:7::8:""31970|:""F$() dç:ç:4::I=Z30.5:.02{# =,I:U;10 ,6;" PARA O GRAVADOR ":5:I:U,31:ٰ"9":CEN=Z:OP=U:"100":a="127" i"23296"=a"160" n:"10","5";"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 67:ٰ"9":::TX="8330":rr="8150":in="8400" 4PN=U:VC=Z:RC=U:a$=" RND ":"8410":"8300":RR &"8070":E"500" ,VC=Z:a$="RANDOMIZE":"8410":"8300":RR 0ڰ"7"::Z,Z;U;" SERIE DE NUMEROS ", U:i=z̰"1.99"*Ͱ".314" #װ".01",*20:a$=()(̰"3") )"3*i-10+9*i","14+14*i";ڥ*"6";a$ hi 0A"127","40":"70","50",U:"-6","-3":"6","3":Z,-6 'U;"21",Z;"COM PODES ESCOLHER...." *"200":U;"4","9";"<- UM PONTO":U,U \%U;"13","3";"<- ..OUTRO":U,"4" nU;"7","14";"UM OUTRO ->":U,"12":"200":"21",Z;Z,,"21",Z;:T$="..COMO PRINCIPIO DA SERIE.":TX RR:"8070":E"1000" @80:A$=" POE EM MARCHA O GRAVADOR ":"7":ڰ"7": JN=Z̰"29":װ".05","2*N" T>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:"" E=Z 1IN:"7",U;:T$=" ESCOLHE, "+N$+":":"8330" |"11","6";"F FIM";"13","6";"I VOLTA AO PRINCIPIO";"15","6";"C PASSAR A PARTE";"16","6";" SEGUINTE"  ="F" ="I"E=U:rc=PN: ="C"PN=rc:  "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 ldA=Z:J=rc9999':F$(J,30)"%"F$(J,30)"#"A=A+U+(2F$(J,30)="&"):J mVC"10-a/2",U; n T$=F$(rc) v1"8330":T$="30"T$(30)="#"rc=rc+u: {'F$(rc,30)="%"rc=rc+u:"8300" rc=rc+u:"8302" U:ڰ"8":U;:c=Z N=U̱t$ (T$(N)="%"8150:"8400":vc=u: T$(N)="`"T$=N$:"8335" 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;" "; 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":"126-XL/2","142":XL,Z:Z,YL:-XL,Z:Z,-YL:U,-U:XL,Z:Z,YL:"13",U;: ! t$:ñt$ !cenu;"16-t$/2"; ! "8330":"8450" !5J=U+a9 +a:j,u;6+(a=10 ),a$:j: ! A=U+U:J="26"̰"32"6:"28"-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: zu \ E UMA FUNCAO BASTANTEESPECIAL: GERA NUMEROS ALEA-TORIOS, OU SEJA, QUE NAO SE-GUEM NENHUMA 0RDEM PRE-ESTA-BELECIDA.% %E CERTO QUE MUITAS VEZES JAJOGASTE AO LOTO, AS CARTASE AOS DADOS... JA TE HAVERA OCORRIDOESCREVER UM PROGRAMA DELOTO "ELECTRONICO", QUE SEJACAPAZ DE EXTRAIR NUMEROS DEUMA BOLSA, BARALHAR AS CAR-TAS, OU TIRAR OS DADOS !% %BEM, ` ESCREVER UM PROGRAMA DESTETIPO NAO E MUITO DIFICIL, MASREQUER A RESOLUCAO DE UMPROBLEMA MUITO PARTICULAR: AEXTRACCAO DE NUMEROS, DE UMIMAGINARIO BOMBO.% EXISTEM VARIOS SISTEMAS MATE-MATICOS PARA OBTER VALORESALEATORIOS: O UTILIZADO POR, CONSISTE EM MANIPULARUMA DETERMINADA , QUEMUDA CADA VEZ, DE MANEIRA QUESE OBTENHA UM RESULTADO ALEA-TORIO QUE PODE IR DESDE <0>ATE <1> (EXCLUIDO O <1>).%A UTILIZACAO DE EIMEDIATA:& 10 PRINT RND 20 GO TO 10& &IMPRIMIRA CONTINUAMENTE NUME-ROS ENTRE <0> E <1> SEM RELA-CAO APARENTE.# #O COMANDO , UTILI-ZA-SE PARA FORCAR A UNS VALO-RES DETERMINADOS, OS NUMEROSOBTIDOS POR .% %OS NUMEROS QUE GERA NAO SAO REALMENTE CASUAIS. SAOOBTIDOS MEDIANTE OPERACOESMATEMATICAS COM UMA CERTA (SEED) DOS BYTES,QUE POR TANTO, SO PODEM SERDE 65536 NUMEROS DIFERENTES.%%E FACIL INTUIR QUE, ANTES OUDEPOIS, ESTA SEMENTE VOLTARA ATER O VALOR INICIAL, E PORTANTO, A SERIE DE NUMEROS GE-RADOS SE REPETIRA. EFECTIVAMENTE, A GAMA COMPLE-TA COMPREENDE 65536 VALORES;MEDIANTE O COMANDO E POSSIVEL INDICAR O PONTO DEINICIO DA SEQUENCIA, OBTEN-DO ASSIM DIVERSAS SERIES DE.% %10 RANDOMIZE 1 20 PRINT RND 30 GO TO 10& &O PROGRAMA FORCA O INICIODA SERIE SEMPRE A MESMA; ASSIM POIS O NUMEROESCRITO SERA SEMPRE IGUAL.% %, UTILIZADO SEM AR-GUMENTO, DETERMINA A SEGUNDO O CONTADOR INTERNO.ES-TE SE INCREMENTA RAPIDAMENTE,DEPENDENDO O VALOR NUM DE-TERMINADO MOMENTO, DO TEMPO--MAQUINA, O QUAL PERMITEOBTER SEMENTES QUASE TOTAL-MENTE ALEATORIAS. DESTA MANEIRA, EMPREGA-SE AOINICIO DOS PROGRAMAS QUE RE-QUEREM SEQUENCIAS SEMPRE DI-FERENTES DE VALORES . USA-SE PARA FA-CILITAR A CORRECCAO DE PRO-GRAMAS QUE UTILIZAO , DEFORMA QUE OBTEM-SE SEMPREUMA SEQUENCIA PREVIAMENTE CO-NHECIDA DE NUMEROS.# # [t$eaN  A RND 8 'l c TGUEM NENHUMA 0RDEM PRE-ESTA-CAR |SO "ROBERTO$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" > E UMA FUNCAO BASTANTEESPECIAL: GERA NUMEROS ALEA-TORIOS, OU SEJA, QUE NAO SE-GUEM NENHUMA ORDEM PRE-ESTA-BELECIDA.% %E CERTO QUE MUITAS VEZES JAJOGASTE AO LOTO, AS CARTASE AOS DADOS... DECERTO QUE JA TE OCORREUESCREVER UM PROGRAMA DELOTO "ELECTRONICO", QUE SEJACAPAZ DE EXTRAIR NUMEROS DEUMA BOLSA, BARALHAR AS CAR-TAS, OU TIRAR OS DADOS !% %BEM, ` ESCREVER UM PROGRAMA DESTETIPO NAO E MUITO DIFICIL, MASREQUER A RESOLUCAO DE UMPROBLEMA MUITO PARTICULAR: AEXTRACCAO DE NUMEROS, DE UMAIMAGINARIA TOMBOLA.% EXISTEM VARIOS SISTEMAS MATE-MATICOS PARA OBTER VALORESALEATORIOS: O UTILIZADO POR, CONSISTE EM MANIPULARUMA DETERMINADA , QUEMUDA CADA VEZ, DE MANEIRA QUESE OBTENHA UM RESULTADO ALEA-TORIO QUE PODE IR DESDE <0>ATE <1> (EXCLUIDO O <1>).%A UTILIZACAO DE EIMEDIATA:& 10 PRINT RND 20 GO TO 10& &IMPRIMIRA CONTINUAMENTE NUME-ROS ENTRE <0> E <1> SEM RELA-CAO APARENTE.# #O COMANDO , UTILI-ZA-SE PARA REFORCAR UNS VALO-RES DETERMINADOS, OS NUMEROSOBTIDOS POR .% %OS NUMEROS QUE GERA NAO SAO REALMENTE CASUAIS. SAOOBTIDOS MEDIANTE OPERACOESMATEMATICAS COM UMA CERTA (SEED) DOS BYTES,QUE POR ISSO, SO PODEM SERDE 65536 NUMEROS DIFERENTES.%%E FACIL DEDUZIR QUE, ANTES OUDEPOIS, ESTA SEMENTE VOLTARA ATER O VALOR INICIAL, E PORTANTO, A SERIE DE NUMEROS GE-RADOS REPETIR-SE-A.% EFECTIVAMENTE, A GAMA COMPLE-TA COMPREENDE 65536 VALORES;MEDIANTE O COMANDO E POSSIVEL INDICAR O PONTO DEINICIO DA SEQUENCIA, OBTEN-DO ASSIM DIVERSAS SERIES DE.% %10 RANDOMIZE 1 20 PRINT RND 30 GO TO 10& &O PROGRAMA DIRIGE O INICIODA SERIE SEMPRE PARA A MESMA; ASSIM POIS O NUMEROESCRITO SERA SEMPRE IGUAL.% %, UTILIZADO SEM AR-GUMENTO, DETERMINA A SEGUNDO O CONTADOR INTERNO.ES-TE INCREMENTA-SE RAPIDAMENTE,DEPENDENDO O VALOR NUM DE-TERMINADO MOMENTO, DO TEMPO--MAQUINA, O QUAL PERMITEOBTER SEMENTES QUASE TOTAL-MENTE ALEATORIAS. DESTA MANEIRA, EMPREGA-SE NOINICIO DOS PROGRAMAS QUE RE-QUEREM SEQUENCIAS SEMPRE DI-FERENTES DE VALORES . USA-SE PARA FA-CILITAR A CORRECCAO DE PRO-GRAMAS QUE UTILIZAM , DEFORMA QUE SE OBTEM SEMPREUMA SEQUENCIA PREVIAMENTE CO-NHECIDA DE NUMEROS.# # VIDEOBREAK  xk s(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:31231y F7:7:7:23624H\,63?::.01z# =,1 1"":236077\,121y:236066\,0 "" 8 'p$="PARA O GRAVADOR, E PRIME 'ENTER'" '1;0,0;1;p$ 3p$=p$(2)+p$(1):.01z# =,*23 =""17 8:8 Z 1000 d(6,16;" !"+34"+"#" i(6,16;" !"+34"+"#" n7,16;"$%&'(" x8,16;")*+,-." 9 ,16;"/01234"  6,16;"5678" 7,16;"9:;<=" 8,16;">?@ABC" 9 ,16;"DEFGHI"  11 ,15;"JKLMN"  12 ,15;"OPQRS"  "11 ,15;"JKTUVWXY" , 12 ,15;"Z[\]" 6 236077\,124|  100d  260  I=1  21004 K$=T$(I+25):K$="O"K$="A"K$="E"K$="I"K$="U"290":.02{# =,30+(3K$="A")-(8K$="O")+(10 K$="I")-(15K$="U"):3:260 @I<350^1+>1.9s333200:2:100d 236077\,121y 50,0;5;0;T$(II+31) 236077\,124| $ I=I+1 )i=360h2500 .i4051030 236077\,121y  3000 46t$=" OLA, EU SOU O TEU AMIGO SPECTRUM. JA NOTASTE COMO VAIS PROGREDINDO DESDE QUE LES A VIDEOBASIC? RECORDA-TE DE QUANTO SABIAS E QUANTO SABES AGORA. ATE AO NUMERO SEIS TENS APRENDIDO BASTANTE MAS, QUANDO CHEGARES AO NUMERO VINTE, SABERAS MUITO MAIS!" >T$=T$+" ACONSELHO-TE QUE CONTINUES A COMPRAR-ME PORQUE MODESTAMENTE SOU ... MUITO INTERESSANTE!!! " f x=60<1428 g1;1;2;8;105i,x:1;1;2;8;98b,0 x  x2:0,1;1;1;;"PRIME UMA TECLA PARA CONTINUAR":="".01z# =,*30:3000  h5:5::x=021:x,0;ں(x/4);" ":x 8:9 &1,8;"PRIME UMA TECLA E" 5,15;"POE" 9 ,12 ;"EM MARCHA" 13 ,16;"O" 17,13 ;"GRAVADOR" #21,9 ;" VIDEOBASIC" L=""::0:1:2::3:4::5:3060 ,7:7:7:31969|:"" i P ARA O GRAVADOR, E PRIME 'ENTER'PT OLA, EU SOU O TEU AMIGO SPECTRUM. JA NOTASTE COMO VAIS PROGREDINDO DESDE QUE LES A VIDEOBASIC. RECORDA-TE DO QUANTO SABIAS E QUANDO SABES AGORA. ATE AO NUMERO SEIS TENS APRENDIDO BASTANTE MAS, QUANDO CHEGARES AO NUMERO VINTE, SABERAS MUITO MAIS! ACONSELHO-TE QUE CONTINUES COMPRANDO-ME PORQUE MODESTIAMENTE SOU ... MUITO INTERESSANTE!!! K VB y >$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" > P P P 33]BREAK g*?xo~m~?m?gm?im???n~m~om??`om`m`?oo_o_g`_O ml?oooo_oa_y_Oo?oo~_o_~_wO?oƆw?o8o?_o?__??xo?oWov8?_o`p__?ofow?oa_o__P@o3o_o{_o_O?o7o_o_o_Os@??>???@? ? ????? ? ??? ??<?,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,*,,,,,<<<<<<<<<<<,,,,,,,,,,,,,,,*,,,<<<<<<<<<<<<<<<<<<,((,,,,,,,*,,,<8888888888<<<<<<<,((((,,,,,*,,,<88888888888<<<<<<,(((((,****,,,<88888888888<<<<<$,(((8))**,,,,,<88888888888<<<<<$,(8(899:)*,,,,<88888888888<<<44$,(899).....<<88888888888<<<>>$,(899)....><<88888888888<<<>>$,((899)>>>>><<88888888888<<<>>$,(((899*>>>>.,<88888888888<<<>>$,..(()**.....,<<<<<<<<<<<<<<<>>$,.....**....,, <<<<>>$,.,.......,,, <<<>>$,.,,,,,,,,,,< <<<>>,,.,,,,,,,,,<< <<<<>>,,.,,,,,,,,,<<<<<<<< <<<<<>>,,.,,,,,,,,,,<<<<<<<<<<<<<<<,,>>,,.,,,,,,,,,,<<<<<<<<<<<<<<<,,>>,,.,,,,,,,,,,,,,,,,,<<<<<<<,,,>>............,,,,,,,,,,,,,,,,,,....PROGRAMA @` B  EDICOES LATINAS  f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 t"31969":IMP=0:z=ç:u=:o="8":"23609","20":"23658","8":"""31970":"23606",z:"23607","124" -I=U7:32023}+I,""(I):I 2:7::RR="8150":TX="8330":P=O-U:Z:O::"10",Z;2;7;" PARA O GRAVADOR ":N=z̰"10":װ".01","N*5":N:"200" <IMP020 "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: Lj"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  MITAD GRAFICOS 0: 5st=Z:b=ṵ"4":"9640":i=z̰"21":o;i,"17",:i bɰ"4":"127",z:z,"175" 9BU"21",z;u;"D$=DES. IMP=IMPORTE TOT=TOTAL " ;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;" REPETE..":"100":U,"18",:ER=ER+u:"3400" RER="3"LM=U:T$="TALVEZ SEJA MELHOR VOLTARES APASSAR O DESENVOLVIMENTO DOPROGRAMA E TENTA DE NOVO MASCOM MAIS CUIDADO.":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" 7I="26""112","36":"10",Z:Z,"92":"-26",Z tT$(U)"%"i ~#b=U+Ulm=u:rr:"8400":"8300" Bɰ"3""":RR <b Pj:#Z;Z,Z;U;"BEM, "+N$,,"AGORA INTRODUZ , E VERAS FUNCIONAR O TEU PROGRAMA.",:Z:"R""3920" nI=Z x7"DESCR.";I$:"IMP.";B:I$;"22";B:I=I+B:B"3960" "TOTAL";"22";I:"8150" $T$:T$4900$ %"8400":LM=U:"8300":RR:"8400" 07,U;:LM=6:T$="ESCOLHE, "+N$:TX 10 ,6;"C CARREGAR A";11 ,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 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:"" '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: # DATA $c"DESTA VEZ, "+N$,"APRENDEREMOS A USAR NA PRA-TICA NOVOS PARAMETROS DA INS-TRUCAO .","" $"QUEREMOS UM PROGRAMA QUE IM-PRIMA COM DETALHE OS NOSSOSGANHOS E PERDAS, E QUE CAL-CULE A IMPORTANCIA TOTAL DOSMESMOS. A DESCRICAO DEVE ESCREVER-SENA COLUNA <0>. OS SALDOS E O TOTAL NA COLUNA<22>.","" $2" IMPRIME UM CABECALHO "," 'GANHOS E PERDAS' " $K"11 - FASE DE INPUT","QUAIS SAO OS ELEMENTOS DONOSSO PROBLEMA ?","" $F"Deveremos introduzir:-DESCRICAO GANHOS/PERDAS ;-IMPORTANCIA.","" %6"22 - FASE DE CALCULO","COMO OBTER O TOTAL ?","" %0"Obteremo-lo somando com umavariavel numerica os valoresteclados. Introduzindo uma im-portancia de <0>, obteremos ototal final.","" %D8"43 - FASE DE OUTPUT","QUAL E O RESULTADO FINAL ?","" %NP"O resultado final consiste nodetalhe das entradas/saidase o total.","","" %m"AGORA, "+N$,"TRANSFORMAREMOS A ANALISE NUM DIAGRAMA DE FLUXO, QUE POSTERIORMENTE TRADUZIREMOS AO ." %h"ACONSELHO-TE QUE LEIAS ATENTAMENTE AS MENSAJENS E RESPOSTAS SOBRE AS INSTRUCOES E ","" %GRAFICOS %"151 I N P U T ","042INICIO ","043CONTAB. ","#820","2310TOT=0","045INTROD. ","046","#820","2520""DESCR."";D$","048INTROD. ","049 ","#823","2830""IMP."";IMP" %"*1 " %L"1;2 ELABORACAO ","04;ACTUAL. ","04< TOTAL ","#823","2;40TOT=TOT+IMP" %"*1 " %Ъ"1?4 O U T P U T ","04>IMPRIME ","04?DETALHE ","#823","2>50D$;22;IMP","03A IMP0 ? ","<:13","0=?S","2A60IMP020","04C TOTAL ","#813","2C70""TOTAL "";22;TOT" % "*1 ","% " %"BEM, "+N$+"AGORA TENTA ESCREVER O PROGRA-MA COM BASE NO QUE APRENDESTE.RECORDA-TE DE NUMERAR AS INS-TRUCOES DE 10 EM 10, A PARTIRDE 10." %K"LE TAMBEM AS MENSAGENS E RE-COMENDACOES DE , E DE.","" &f"BEM, "+N$+"CONSEGUISTE FAZER UM PROGRAMAUTILIZANDO OS PARAMETROS RELA-TIVOS A E ." &4"" mzuoJ p N MARIO LUISl Bc y * W K10TOT=0B K10TOT=0IY PRIME UMA TECLA PARA CONTINUAR TESCOLHE, MARIO LUISA POE EM MARCHA O GRAVADOR CAR |*"ROBERTO$$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >>>  > >> x !X 6# x !@@~ #...................................   EDICOES LATINAS  f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 ڼ:ټ:缧::"31999":"10",;ٰ"7";"ESTOU CARREGANDO VIDEOTEST":"23609","20":"23658","8":ټ:"":""32000},768:"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 a proxima,";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":"" ***respostas 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*** {718,1;"A TUA PONTUACAO E ";s;" SOBRE 30." 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 TENTATIVA** II=2:PP=5:9050Z#:t=1:Q$(Q,1)<313 ,3;"A RESPOSTA E MUITO CURTA";15,4;" NAO POSSO AJUDAR-TE":9041Q#:150:9050Z#:31200 -13 ,1;"AQUI ESTA UMA SUGESTAO:" \15,18;q$(q,66B);b$(3̯q$(q,1));q$(q,65A+q$(q,1)) +20,10 ;0;"TENTA AGORA" 31200 * ***CLS*** 4 9550N% > ***prime*** 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,2;"PARA MELHORARES, VOLTA A LER";17,11 ;1;"VIDEOBASIC":9041Q#:200:500 .>s>2215,2;"muito bem, finalmente certo!" 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 } $$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >"9"0.2~L,-10 :a  0.04|# =,0::diff=y$ gk$="008004002255002004008000016016016016146084056016016032064255064032016000016056084146016016016016" 23561 \,10 :23562 \,1::go=0:a="o""s"-1:go=go+1:a,k$(go*3-2go*3):a $k$="":7:7:4: a$(6,2) `g(4):g(1)=1:g(2)=32 :g(3)=-1:g(4)=-32 <"i=19-diff*219 P>i,1;0;7;" " Ui ZKi=1918-diff*2-1:i,3;" ";i,15;" " di g\21-6*(diff3)-2*diff*(diff<3),3;7;0;" " h721-2*diff,15;7;0;" " i719-2*diff,15;7;0;" " j19,27;" " na=23165}Z x a,5 j=4-(*4) i=j b=a+g(j)*2 b=568200 j=j*(j<4)+1 ji150 240 b,j (a+b)/2,0 a=b 130 j=a a,0 j=5290" a=a-g(j)*2  130 "a=1diff*1.7Y $go1=(*27)+2:go=19-(*(1+2*diff)):(go,go1-1)ɫ(go-1,go1)ƫ(go,go1)=568ƫ(go,go1+1)=(go,go1-1)ƫ(go-1,go1)=(go+1,go1)go,go1;0;0;"o":a:1100L % 292$  290" La=1:1108T:a=22528X23231Z:9472%+a,a:a:add=32637}:chrs=161:2:250:1111W M NE5:5::a=22528X23231Z:a,(9472%+a):a Rua1=add-32000}:(a1/32 ),(a1/32 -(a1/32 ))*32 ;4;1;0;1;chrs Sz#1,0,0;"Ainda te faltam ";max-pass;" metros."'"A seta indica-te a posicao e adireccao em que vais." T3;7;0;20,20;"ENTRADA-";18-diff*2,1;"-SAIDA!!!"'" ";0;6;"#":1:1+600X*(a=23232Z): W ܓvista=0:inc=0:pass=0:max=(58:^2+(diff*15)^2):in=0:add=32637}:punt=4:go=g(punt) @ cM95_,2+4*(63?64@):5100:1639g+salto h add=add+go r4a1=0:s=addadd+5*gogo:a1=a1+1 go=32 go=-32 a$(a1,1)=(0=(s+go)):a$(a1,2)=(0=(s-go)):s0a$(a1,1)="2":a$(a1,2)=(5*(s=6)) go=1go=-1a$(a1,1)=(0=(s-32 *go)):a$(a1,2)=(0=(s+32 *go)):s0a$(a1,1)="2":a$(a1,2)="2" s:salto=0a$(1,1)=a$(1,2)a$(1,1)="1"a$(1,1)="1"ƾ(add+go)=0ƾ(add-go)=0salto=0ž(add-go)=0ƾ(add+go)=0a$(1,2)="1"salto=0inc=inc+1 5000:1600@: +2:3:0::7;20,12 ;"estas aqui";#1;1;5;0;0,0;"Estas andando por aqui ";chrs;" "'"Prime ""V"" para ver onde estas":0,0:255,0:0,175:-255,0:0,-175 7a=15:r=a$(a,1):d=a$(a,2) Md=56;3;1;1;10 ,14;"SAIDA": r=25300: x=(235/(6+2*a)+0.5):y=(150/(7+a*2)+0.5):r;x,y:x1=23677}\:-x,0:r;x,0:255-2*x1,0 d;x-1,-y+1:d;-x+1,y-1:d;x-1,0:d;-x+1,0:0,175-2*23678~\ d;x-1,y-1:d;-x+1,-y+1:x1=254-23677}\:d;x-1,0:d;-x+1,0:-253+2*x1,0 ěr;-x+1,y-1:r;x-1,-y+1:r;-x+1,0:r;x-1,0:y1=175-23678~\:0,-175+2*y1 a:passmax6000p Ua$(a,2)="5"6;3;1;1;10 ,14;"SAIDA": !a$(a,1)="2"5300: 10 ,14;" ":  *in=0in=2:salto=10 : go1=go:punt1=punt 2:0:y$=:0.04|# =,30:punt1=punt1+(y$="8")-(y$="5")+2*(y$="6"):punt1=punt1+4*(punt1=0)-4*(punt15):go=g(punt1) My$="v"punt1=punt:vista=vista+1:1101M:5000:5120 chrs=157+punt1 =""6819 :y$<"5"y$>"8"0.1}L,0:punt1=punt:5120 (add+go)=6a=-10 303:0.01z# =,a-3:0.01z# =,a-2:0.01z# =,a-1:0.01z# =,a:0.01z# =,a+1:0.02{# =,a+2:a:6000p  >(add+go)00.1}L,0:punt1=punt:5120 Opunt=punt1:go=go1pass=pass+1:31830V|+pass,punt:salto=0: punt=punt1:salto=10 :  Y1;(a=2);0;6;10 ,14;"MURO":passmax6000p  p zpass1);" ao labirinto"  6070 6;0;10 ,5;" Bem acabaste: ";((inc+1)*diff*900/((5*vista+1)*pass));" pontos " ^#1;0,0;"Agora prime uma tecla, e poderas ver o caminho que percorreste " ""6800 !2:0:a=23232Z \a=1:5:5::1108T:a=22528X23231Z:a,(9472%+a):a \#1;0,0;" Esta foi a rota que seguiste! " #1;1,0;" Prime uma tecla":add=23165}Z:a=1pass:chrs=32 :6824:add=add+g((31830V|+a)):chrs=157+(31830V|+a):6824:=""a:6818 g #0;0,0;"prime  R  para repetir  C  para continuar " 1:0  ="r" "c"6821  8000@ {go1=add-22528X:(go1/32 ),(go1/32 -(go1/32 ))*32 ;3;1;0;1;chrs: J7:7:7 LA: 10 ,0;"  POE EM MARCHA O GRAVADOR " O"" T "" #(s(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:32599W #-0:0:7: #2610 ,0;" PARA O GRAVADOR " #<1:200 #AX23676|\,127:23675{\,88X:236077\,60<:236066\,0 #F )ifK002520202020 ZjbZojdjZhristnas)a;unalt~~rrdxyuntY7 VIDEONEXT O Q*  EDICOES LATINAS * f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 317997|:7:7:7:0::23658j\,8:236099\,20:20,0;:"":236066\,86V:236077\,123{ e23570\,6:#0;0,0; " PARA O GRAVADOR " 23624H\,579 -n=1502:.01z# =,*60<:n ( 1000 * 8990# - SUMARIO 21::90102# 7M.6,21:P$=" No numero 7 ":k=4:9020<# 8;p$="VIDEOHARDWARE: ":K=7:9020<# 9:p$="A Zona de Comunicao ":k=8:9020<# :9p$="do Spectrum ":k=9 :9020<# ;<P$="VIDEOBASIC-A LINGUAGEM: ":k=11 :9020<# <;p$="STOP-CONTINUE-NEW-BREAK ":k=12 :9020<# =:p$="CLEAR - AND - OR - NOT ":k=13 :9020<# ><p$="VIDEOBREAK: ":k=15:9020<# ?;p$="Lar, Doce Lar ":k=16:9020<# @<p$="VIDEOBASIC-A PROGRAMACAO: ":k=18:9020<# A;p$="Os Operadores Logicos ":k=19:9020<# K<p$="VIDEO-JOGO: ":k=21:9020<# L;p$="Crucigrama ":k=22:9020<# _ 150 d1000:8990#::8994"#:L=10 :v=5:a$=" ATE A PROXIMA ":3000 :l=16:v=18:a$="VIDEOBASIC.":3000 :9999':5:0:5: n 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 ROTULO ROTATIVO y$=" PRIME UMA TECLA PARA CONTINUAR ":s$=y$:i=131:#0;6;2;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 #!HOMBRECILLO #"'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-2:cc=p$*8+4:bb,aa:cc,0:0,12 :-cc,0:0,-12 :bb+1,aa-1:cc,0:0,12 : #27aa=2:bb=11 :p$="VIDEONEXT":9000(#: #;ROTULOS ENTRANTES #<k=229050Z# #FLn=1̱p$:k,32 -n;p$(N):.002xn,(k-3)*n/8:n: #Z[n=1̱p$:#0;0,32 -n;p$(N):.002xn,(k-3)*n/8:n: 'En=1502:.01z# =,*60<:*7:n:200: F# S PRIME UMA TECLA PARA CONTINUAR Y MA TECLA PARA CONTINUAR PRIME UMaVLk Pdo Spectrum CCAR 8|  SOFTIDEA(COMO)T.031-240959 $$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >