ZXTape! 2.VIDEO BASIC (EDICOES LATINAS) - TAPE 17 SIDE BEDICOES LATINAS, LDA / JACKSON PORTUGUESSPECTRUM BASIC COURSENONE ORIGINAL TAPE20 TAPES COURSEVIDEOBREAKl?   EDICOES LATINAS  f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 825500c:236066\,0:236077\,60< b=13:a=07:a:0:a:7:0:0:0::10 ,0;"E agora... VIDEO BREAK" CA:b:20,0;9 ;"UM MOMENTO...";0,0 #Ya=11 13 :a,0;0;7;" ":a ( "":"" 2P9 ,0;0;9 ;1;" PARA O GRAVADOR " <'A=-30502:0.01z# =,A:A F0A=502-30-1:0.01z# =,A:A KR9 ,0;1;2;6;" Prime ""SPACE"" para continuar " PI10 :80P:26000e:23560\32 Ʀ" "80P ZP9 ,0;0;9 ;1;" POE EM MARCHA O GRAVADOR " _@a=205023:0.007ye`A,a:a:=" "95_ bq4:4:0:31500 {:9 ''''''" POE EM MARCHA O GRAVADOR ":a=1300,:a d"" ,CAR BREAK emy >\gAIR00000000000000000000High Score 000000 Score 000000GameOverPPfgPVW2VW22+32+3223@23@2222fg2VW2`V22+02+0220D20D2222rs2LM2LM22&02&0220D20D2222rs2LM2LM22&32&3223@23@2222fg2VW2@A22 +2 +22+32+32222fg2VW2@A22 &2 &22&02&022rs2rs2`a2LM2L2LM2LM2L2[\2VW23234234232@A2fgdfg2rsdLM2VW22rf`VfVVQ`QQVfVVrf`VfVVQ`QQVVVVrf`VfVVQ`QQVfVVrf`VfV@VffVVVVX >2e!eltxݾ(ݾ2]xݾ(ݾ2]:]<2]:Z(>G!XXw_/WK B {=? !W~D5Ñ!)cX#!)!@@62܀@!H!H:܀O o g:܀/_@C !XX:܀ Gw:܀2܀ !O@ͺ!S@ͺy@2X<@2X<@2X<@2X<@2X<@2X<@2X<@2X  ̅:2 :$=2:(G :o&Rs$p2͊!_>x2Y~! HK~## Œ:!p:k N:nˇ!hw͂:;ʢ#ʢ:n<2nD<W :sB :nʖ( ƒ:h :*l@:2̺:M(&:V( #:2̺:M(:V( : +݋݋:kʃ!jˎʜ<2kW :sB :h2ho\g:lo"l>2k>2k:h2h͂>2k!jˎM|G x xG : $$w%%:k 2k:D(# :o_x _x_x_x_:Y( x/_{**({(:jO! ~2j~x x :Y(xg(2n<2k:j:jʌ:i(=2i*l+ :;:h( :;ȷR:;R"l>2i:i(<2i*l## :;:h( :;ȷR:;R+"l2i>2kâ!~ȷ(P: C~((#0415,~ 664~ 665!\ :):;>' <<<< : ({_z/W6w!~ȷ(:nfw#ww#w~_:8 ((nf:t(:ۀ( :܀=(2܀:܀\g:t> :w: w#ww#ww#w!݀~ʟ~0w4~ ~w~w6^og~_~@\g~o~_!݀~4~8 0w~Dw~_og~_~@\g~o~_2t!u~(H(9^V !,6 ~G~w2tV!Ւ#####:t!*:l :m :((:w#ww#w*A(w,A(w-$| |g} o |gЯ:< a:Z:](R`!S@!@!SX6/#6/6'#6'#6E#6E6F#6G6#62_yG{  2>?!XXw = :Z‘<ʑ!.!)zPͺ:/?W>B>B 60+}* >2X:W<2W~9(4*p]T:rG:o ~$$N q,~$$N!\:ۀ:u:q_('!q~ %|w : 2q_2_>r2ˀ 6.|g6!\ 2܀<2ۀ: 2O^2P^!Op6,6-$:ۀ(V:܀d(I2܀O:sA y_og: @_!,:܀xo&))}o>_>2ۀ: _!`>D2/\20\2\2\:l<:m:e&u6$6$6*l_#__#_:hO_#_ : y(: w:M:V:h&o:j_:i_:lO~fow#w##~˒#zW &o)))~#~OVz6P^{6( V ^ ~68~68###vv!\~ ɷ(gx DEC Ex JR NZ,NOFLP6 LD E,(HL) XOR 24NOFLP6 DJNZ TM51 DEC C JR NZGECRAN @R.DDD;*"$BB$?)?QR @$$@@@$@@@$@DHHH$BB h1BD"B$/JpJ? @@@@B@H,B$ $$$  - jajn )2LB$"BD| J`H HH H $ bH ,@@ ?o?*:E4,D$D"B*@(?x,,,, ,*$ , * '` x fffff{wp?U?"BB$BI???,.,,...,...,.`H@Hb@.?$$   @fffff{w?U0 $$$B$Q??U|,,,,,$BdbbBB- ʀ`fffff?UP0< BD"BDU|>UUABBHB@T 7&fffff?E0 eoeoe~?UQR====s=}=?88CH$P[PlPP$p~pကUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU|$<|<<~$((`8X4P]P$PPlက""""""""""""""""""""""""""""""""Bh8$@BBB@$x888x8xD8888 X4X4VP$X4QကB 0TD\),0:(23613=\+256*23614>\+1),0 g"31969":z=ç:u=:o="8":"23609","20":"23658","8":"""31970":"23606",z:"23607","124" -I=U7:32023}+I,""(I):I |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: 0+"23617",Z:a$=°"14""23617",u:"890" 4(a$="12"ƱW$-uw$=w$(̱w$-u):"890" >J(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: Li"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 GRAPHICS 5st=Z:b=ṵ"4":"9640":i=z̰"21":o;i,"17",:i bɰ"4":"127",z:z,"175" 9BU"21",z;u;"D:DURACAO A$:TECLA PREMIDA" ;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" 7I="11""103","92":"19",Z:Z,"56":"-25",Z 6I="14""24","68":"-16",Z:Z,"56":"20",Z KI="24"U;"17",U;"^";"10",U;"^":"30","20":"-22",Z:Z,"50" tT$(U)"%"i ~#b=U+Ulm=u:rr:"8400":"8300" Bɰ"3""":RR <b PQLM=U::Z,Z;"BEM, "+N$,,,,"AGORA PRIME E TOCA...",,:Z:"R""3920" ZY:"18",Z;:T$="(PRIME PARA TERMINAR E PARA ESTABELECER A DURACAO)":"8330" d4U,Z;"(TAMBEM VALIDA COM DECIMAIS)";Z,Z;"D=";i$ iI$ƱI$<"10"a=z:i=u̱i$:a=a+(i$(i)="."):(i$(i)"0"i$(i)"9")i$(i)="."i:aui$(i$)"."A=I$:Aaǰ"10":"3960" n@#z;z,z;u;" VALOR NAO ACEITE",:U,Z:"100":"3940" xI$= }I$"0"I$"9"a,I$ I$="D""3940" i$"F""3960" $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=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": # # DATA $n"AGORA, "+N$,"TENTAREMOS TRANSFORMAR O SPEC-TRUM NUM MINI ORGAO ELECTRONI-CO, NUM SPECTRUM...HARMONICO!","" $"CADA TECLA DA PRIMEIRA FILATEM QUE PRODUZIR UM SOM, COR-RESPONDENTE AO NUMERO INDICA-DO SOBRE ELA.A DURACAO (EM SEGUNDOS),PODER--SE-A ESTABELECER AO PRINCIPIOPREMINDO A TECLA .","" $1" O SPECTRUM.... "," ....HARMONICO" $Y"11 - FASE DE INPUT","QUAIS SAO OS ELEMENTOS NECES-SARIOS PARA O NOSSO PROBLEMA ?","" $l"Necessitaremos:* Duracao da nota (D)* Um numero entre <0> e <9>que corresponde ao tom da nota","" %="22 - FASE DE CALCULO","COMO OBTEREMOS O RESULTADO?","" %0\"O calculo consiste em escolhera funcao a executar com baseno que se tenha indicado.","" %D:"43 - FASE DE OUTPUT","QUAL E O RESULTADO FINAL ?","" %N"A SAIDA e constituida pelo somde uma nota compreedida entreo e o , com a dura-cao escolhida pelo programador","","" %k"AGORA, "+N$,"TRANSFORMAREMOS EM ANALISE UMFLUXOGRAMA E DEPOIS ANALIZARE-MOS AS SUAS INSTRUCOES " %"" %GRAPHICS %_"141 I N P U T ","043INT. ","#810","2310""D="";D","046INT.","#81;","2620A$= " %"*1 ","1;2 ELABORACAO " %o"04:TECLA","<81C","0=9S.","2:30A$=""D""10","04=A$ 0..9 ","<81;","01>N.","2=40A$<""0""A$>""9""20" %"*1 ","1@4 O U T P U T " %C"04@ SOM ! ","#81;","2@50D,A$","04C VOLTA ","#81;","2C6020" % "*1 ","% " %"BEM, "+N$+"AGORA, COMO DE COSTUME, TENTAESCREVER O PROGRAMA COM BASENO FLUXOGRAMA.LEMBRA-TE DE NUMERAR AS LINHASDE 10 EM 10 A PARTIR DE 10." %?"OBSERVA OS SINAIS DE PONTUACAOE AS MENSAGENS DE .","" &"BEM "+N$+"ESCREVESTE UM PROGRAMA QUE TEPERMITE O USO EFICAZ DA INS-TRUCAO , SE QUISERESPODES APERFEICOA-LO..." &4"" zuo[[ pYX NAA PROGRAMACAOlv4cTY ONTINUAR PRIME UMA TECLA PARA C6CAR PROG |1"$$$~$$~$$~~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"  2:7:0: %3,6;"AGORA VAMOS CARREGAR"'" O VIDEO-JOGO"''" MAS ATENCAO, HOJE VAI SER "''" DIFERENTE DO COSTUME !"'''" PRIMEIRO VOU APAGAR-ME!"'" DEPOIS SO E PRECISO QUE FACAS"''" LOAD""""ENTER " (\17,8;"E SEGUIDAMENTE",19,0;"  POE O GRAVADOR EM MARCHA " *R#0;" PRIME UMA TECLA PARA EXECUTAR ":0:1,30: 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 |XL "ROBERTO$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" > ? NAO PODE OUVIR-SE O SOM PELA SAIDA ? SIM QUAL E O CIRCUITO USADO PARAGERAR UM SOM ? OSCILADOR ECRAN @,2`?@? 0`~@ @~x>?@@}cx  @{p@\@ @@p~3?~<@@0r  `?`@| @ z@ _X!x@pp ? @c3 ~`@0@ @@0L@?`q ? 8a@P (?@?8 @ =<AF3x?@?G`?? <? @pA~_ @,@ ??@ 0À?@?|0?2 ?p|C?@?? }?0&@ @?@0 p ?8GQ@  x<`@ @@ y@?@q  xVIDEO-JOGO  pf.   EDICOES LATINAS  (23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:3:7:4::10 ,3;1;" PARA O GRAVADOR ":.5,20:100d:0:.5,10 nq=100d _q$(nq,32 ):a$(nq,2):r$(1):a=1100d:a$(a)=0+0:a  qf=8 n=1qf/2-1 (%q$(n):a$(n,1):a$(n,2) 2n <n=nqf-1 F q$(n):n dp236066\,0:236077\,60<:23658j\,16:0:0:6:6:0: n1::"Pensa num animal e..."''"Prime uma tecla." xwa=12000:=""a:'''''''"PENSAS SEMPRE TAO LENTAMENTE ?! ":0 :c=1 #a$(c,1)=0300, p$=q$(c):910:"? "; 1000 in=1:r$="s"210 in=2:r$="n"210 1,-10 :160 r$:c=a$(c,in):140 6"'''''"Ja' esta'! Pensavas em..." @p$=q$(c):900:"?" J 1000 Tr$="s"400 ^r$="n"500 hR:::'1;"Quando te falo,responde bem,ok? ":2,-20:300, ):'"Ja' pensei bastante!...":800  {qf>nq4,0;"Estou certo que o teu animal emuito interessante,mas agora naotenho sitio para ele":800  q$(qf)=q$(c) )::'"Que animal e'? ":q$(qf+1) 3''''''"Faz-me uma pergunta,para eu dis-tinguir "' &p$=q$(qf):900:" de "; 0p$=q$(qf+1):900 : s$:i=s$ Ds$(i)="?"i=i-1 Nq$(c)=s$(i) X&''''''"Esta e' a tua resposta para " b-p$=q$(qf+1):900:"? "'"[S/N]"' l 1000 vin=1:io=2 r$="s"700 in=2:io=1 r$="n"700 315,7;"Assim esta' mal!!!":600X &a$(c,in)=(qf+1):a$(c,io)=qf qf=qf+2 ,:5,7;"BEM !!! Ja' jogaste !" *@10 ,0;"Queres voltar a jogar ? [s/n] ":1000 4r$="s"100d Hx''''"Se quiseres gravar o programacom todas as informacoes adqui-ridas prime ,caso nao queirasgravar prime " \ 1000:r$="s"3000 far$="l":10 ,1;" Poe o gravador em marcha.":150:6:6::"" z 860\  n=32 1-1 p$(n)" "940 n  p$(n);: 2:0:r$=: D "E' um Mamifero ",4,2 A "Vive no Mar ",5,3 = "E' feroz",6,7 Z "um gato","um atum","um crocodilo","um pardal","um rato" $95_,31:"ZOO"100d :"para o gravador ":1,-10 :''';"vais usar? (S/N)":1:0:="s":" Pronto para ."''"Em caso de erro prime 1 tecla GOTO3000 e efectuar-se-a nova gravacao"'"":"ZOO"::"~VERIFY~ OK!":1,20 j:100d:''"Agora volta a correr VIDEO BASICe.... ...poe o gravador emmarcha"'''''''"Adeus..." P6:1:100d:0,0;" ":"" VIDEONEXT dr   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 18 ":9020<# 8=K=K+1:p$="VIDEOHARDWARE: ":9020<# 9/p$="Dentro do microprocessador ":9020<# :.p$="Anatomia do Z80 ":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$="O TEU primeiro programa ":9020<# B.p$="em Linguagem Maquina ":9020<# K=K=K+1:p$="VIDEO-JOGO: ":9020<# L/p$="SIMULADOR DE VOO ":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 #!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: /22CAR NEXT 8|s"$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >