ZXTape! 2.VIDEO BASIC (EDICOES LATINAS) - TAPE 12 SIDE BEDICOES LATINAS, LDA / JACKSON PORTUGUESSPECTRUM BASIC COURSENONE ORIGINAL TAPE20 TAPES COURSEVIDEOBREAK-M,/  EDICOES LATINAS  0:7:0:  #1;0;0,,,, 40,0;" PRIME UMA TECLA PARA TERMINAR " (5:1 P q=16 Z n=0 d6u=30+(*200):i=20+(*100d) n6o=30+(*200):p=20+(*100d) xh=6:j=9 k=8:l=5 n=n+1 u=u+h:i=i+j o=o+k:p=p+l u>240u<15h=-h o>240o<15k=-k i>160i<15j=-j p>160p<15l=-l 0;u,i:0;o-u,p-i ""2000 w=4*(n-(n/q)*q) ,s=4*((n+1)-((n+1)/q)*q) "20672P+w,u:w+20673P,i "20674P+w,o:20675P+w,p (z=(20672P+s):x=(20673P+s) (c=(20674P+s):v=(20675P+s) 1;z,x:1;c-z,v-x 132 (23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:SU=20:P$=" PARA O ":W$=" GRAVADOR " 0:7:0: X1=4:Y1=0 X=2:Y=10  N=0 A=1:B=1 X=X+A:Y=Y+B  !N-(N/8)*8:9 X>18X<2A=-A Y>19Y<1B=-B .003xD,SU 5Y1,X1;" ";Y1+1,X1;" " $Y,X;P$;Y+1,X;W$ . X1=X:Y1=Y 8IN>64@SU=40(:P$=" PRIME UMA ":W$=" TECLA ":N=0 B N=N+1 L=""1030 V $0:0:7:7  4W$=" LIGA O GRAVADOR " > G=4+W$5-1 HO$=W$(G-4) R F=1G \10 ,F;" ";1;O$ a!.003xD,F+G*2-20 fF kG m 2 pX=127 z11 ,X;"_" X 'X=14:11 ,X;" ":X 7:7:"" qnui-op|hj klwszxcvP PARA O W GRAVADOR yabPROGRAMA P 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" -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" >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"  FASE 1 *"7",z;:lm="16-(T$/2)":tx:'':lm=u ( :"8300" 2&"13","9";"- - - - - -"''':"100" < "8300" P(RR:"8400":T$:T$"9000":"1300"  "8300":RR GRAPHICS 5st=Z:b=ṵ"4":"9640":i=z̰"21":o;i,"17",:i bɰ"4":"127",z:z,"175" 5BU"21",z;u;"Y=INP. YR=SALV.Y I=CON. P=PONTOS" ;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" RER="3"LM=U:T$="TALVEZ SEJA MELHOR VOLTARES ALER O PROGRAMA, E TENTA DENOVO.":8400 :TX:RR:ST=I:b=u:"3900" zLt$(u)="1292"(B)y="t$(u+u)-48":y,"17";:t$=t$():tx:BU"9050" T$(U)="*"b=u"9050" 2I="26""118","44":"4",Z:Z,"56":"-26",Z tT$(U)"%"i ~#b=U+Ulm=u:rr:"8400":"8300" Bɺ"":RR <b FbB$="":LM=U:"8400"::T$="BEM, "+N$+"AGORA PRIME E VERAS FUN-CIONAR O TEU PROGRAMA.":TX PV''':T$="A DEVERAS INTRODU-ZIR O NUMERO DE VALORES QUEDESEJES.":TX Z=Z$=:#1;1,0;"K":Z$"R"3930Z [.#Z;U,Z;"RUN C":13 3931[ n+:T$="P ":"9150":a>"255"A"175"a PARA TERMINAR",:Z:"E""3950" $T$:T$"4900" %"8400":LM=U:"8300":RR:"8400" ."7",U;:LM="6":T$="ESCOLHE, "+N$+":":TX x"11","6";"C CARREGAR A";"12",O;"PARTE SEGUINTE";"14","6";"I INTRODUCAO";"16","6";"E EXERCICIOS" Z: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 r5"8","30";" ";"9","30";" ";"10","30";" " | ٰ"7":"" ."40":Y$=" PRIME UMA TECLA PARA CONTINUAR " 3#Z;6;2;U;U,Z;Y$:.001wn,"30" 2Y$=Y$("2")+Y$(U):װ".006","(*55)+10":""  "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:  7j=uz-u:"t$()-","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)=""c=z:u;lm;:"8390" (T$(N)=".".1}L,30:20 C=30C=Z:U;lm; N:Z:P=o-u: iPL="4":XL="248":YL="169":"2":ڰ"7"::U+U,U;:,: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: #9(t$);i$:i$j=u̱i$:i$(j)"0"i$(j)"9"j:a=i$: #=#z;u;" VALOR NAO ACEITAVEL ",:U,Z:"100":"9150" # DATA $j"DESTA VEZ "+N$+"","USAREMOS AS INSTRUCOES QUETEMOS APRENDIDO PARA ESCREVERUM PROGRAMA GRAFICO.","" $v"QUEREMOS UM PROGRAMA QUE TRACEO DIAGRAMA DE UM NUMERO, CU-JOS VALORES TENHAM SIDO INTRO-DUZIDOS PELO TECLADO.","" $3" TRACAMOS UM "," GRAFICO " $U"11 - FASE DE INPUT","QUAIS SAO OS ELEMENTOS NECES-SARIOS NO NOSSO PROBLEMA ?","" $n"E necessario indicar:  * o numero de valores a introduzir; * os valores(entre<0>e<175>).","" %<"22 - FASE DE CALCULO","COMO OBTEREMOS O GRAFICO ?","" %0s"Utilizando um ciclo FOR-NEXTdevidamente inicializado, tra-caremos uma recta para cadavalor introduzido.","" %D:"43 - FASE DE OUTPUT","QUAL E O RESULTADO FINAL ?","" %Na"O resultado final consiste nografico de um numero de va-lores eleitos a teu gosto.","","" %v"AGORA, "+N$+"","TRANSFORMAREMOS A ANALISEANTERIOR NUM DIAGRAMA DEFLUXO, E DEPOIS EM INSTRUCOES." %"A FUNCAO NA LINHA<50> SERVE PARA EVITAR QUE ASSUCESSIVAS APROXIMACOES CON-DUZAM A VALORES INACEITAVEISPARA .","" %GRAFICOS %["151 I N P U T ","043INIC. YR","#810","2310YR=0","045INT. ""P""","#813","2520""P "";P" %Q"047IN.CICLO","#813","2730I=1P","049INT. ""Y""","#813","2940""Y "";Y","#813" %"*1 ","1<4 O U T P U T " %O"04; TRACA ","04< LINHA ","#823","2;50(255/P),Y-YR","04>SALVA YR","#813" %"*1 " %D"2>60YR=Y","02@FIM CICLO ?","<<13","2@70I","04B FIM ","#813" % "*1 ","% " %"BEM, "+N$+"AGORA TENTA ESCREVER O PRO-GRAMA COM BASE NO DIAGRAMA DEFLUXO.LEMBRA-TE DE NUMERAR AS LI-NHAS DE 10 EM 10 A PARTIR DE10." %" ","" &"BEM, "+N$+"ESCREVESTE CORRECTAMENTE O TEUPRIMEIRO PROGRAMA GRAFICO. DE-CERTO QUE ESTE TEMA TE LEVARAA APLICACOES MAIS COMPLEXAS." &4"" zuoJ p  lBc N  y#W 10YR=0ZRa,BI44Y RIME UMA TECLA PARA CONTINUAR PT ESCOLHE, :APOE O GRAVADOR EM MARCHACAR 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;"Guarda a cassete na sua caixa";14,1;"e desliga a alimentacao ao teu";15,1;"SPECTRUM. Ate breve,";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":"" ***respostas 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$ 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 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, 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<" > SE O PIXEL ESPECI-FICADO ESTA ACESO POINT ACENDE UM PIXEL PLOT NUMERO MAXIMO DE PIXELS UTILI-ZAVEIS NA HORIZONTAL 256 TIPO DE LAPIS PARA ESCREVER NOECRAN OPTICO UNIDADE DE MEDIDA PARA ASLINHAS CURVAS RADIANOS UM SEMI-CIRCULO HORARIO NECES-SITA DUM ANGULO... NEGATIVO SISTEMAS COMPUTORIZADOS DESTI-NADOS A PROJECTOS GRAFICOS CAD SISTEMAS ELECTRICOS PARA OCONTROLO DE MAQUINAS CAM ECRAN @/몾|>?@@A@ @p@|*Ç?@A7?@@`p@r|묾?@@AAG?@ @@ |묺> @A00@0p@@?@@@Q @p@@s@ =@A#@p@p@n@ @@A, @p@릺| @@@` 00@p@kVIDEO-JOGOs#s u: 3"23562",U:Z:Z:Z:Z:ڰ"6":"6"::a$("3500") a=Z15:s:"a"+a,s:a  Z:9 ,Z;" PRIME ""T"" IR PARA CIMA";10 ,Z;" PRIME ""V"" IR PARA BAIXO";11 ,Z;" PRIME ""F"" IR PARA A ESQUERDA";12 ,Z;" PRIME ""G"" IR PARA A DIREITA";18,Z;"NAO TOQUES NAS OUTRAS TECLAS !!!";21,7;" PRIME UMA TECLA " (3:Z: x=16:y=19:schermi=1:4:sfo=2:2:ste=4:8900":inc=6:pap=5:fl=0:piu=1:pun=0:w=1:i=2:y=19:x=16:yy=19:xx=16 19,16;"" 23560\,"g" a=0 a=a+piu s$=(23560\) 8x=x+(s$="g")-(s$="f"):y=y+(s$="v")-(s$="t"):a$(i)=s$ Vl$=(y,x):l$32 Ʃ(x*8+4,171-y*8)=01000 ll$="*"0.05|L,20:pun=pun+1:6;0;1;21,15;pun:221 Al$" "x=x-(s$="g")+(s$="f"):y=y-(s$="v")+(s$="t"):205 ,10;sfo;yy,xx;" ";fl;inc;pap;y,x;"" 6pun40(1300  i=i+1 a>10 195 Kw=w+1:xx=xx+(a$(w)="g")-(a$(w)="f"):yy=yy+(a$(w)="v")-(a$(w)="t")  200 <f=030:0.01z# =,f:0.02{# =,30-f:f  1310 schermi=1ste=1:schermi=2:21,15;" ":a$(4000):yy=y:xx=x:i=2:w=1:pun=0:piu=4:sfo=6:4:6:21,15;" ":8900":inc=3:pap=5:fl=1:ste=1:200 Qyy=0:ys=4:xs=2:p$=" FIZESTE ":6:5:TX (qyy=32 :ys=7:p$=(pun+40(*(schermi=2)):xs=32 /(p$):2:4:1:TX 2YZ:yy=32 +7*8:ys=10 :xs=5:p$="PONTOS":U:3:U:TX <Z:Z:yy=168:ys=U:xs=2:p$=" PRIME UMA TECLA ":6:3:Z:TX:YY=YY+8:U:P$=" F PARA TERMINAR ":TX:3:Z F="f"9200# PU "ΩZ,Z;" " " sfo;" " " :y,x;"" "f=140( "jxxx=(*31):yyy=(*20):(yyy,xxx)=" "yyy,xxx;ste;"*":0.01z# =,yyy*2+xxx:f: " 8930" " #(0,24,60<,102f,102f,60<,24,0,0,126~,126~,126~,126~,126~,126~,0 #(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:"32255":TX="9998":Z=ç:U=:C7="7":C6="6":C7:C7:C7: #?"":"23658",Z:"23606",Z:"23607","60":"2":U:U:C6: #7p$=" PARA O ":YY=0:YS=8:XS=2:TX #:p$=" GRAVADOR ":YY=88X:YS=8:XS=2:TX #X8:p$="PRIME UMA TECLA":YY=175:YS=2:XS=2:TX:U:Z:1 #3:p$=" LIGA O ":YY=Z:YS=8:XS=2:TX #Ep$=" GRAVADOR ":YY=88X:YS=8:XS=2:TX:U:"350" $C7:C7:C7::"" ''xx=(256-8*xs*p$)/2 '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~: CCAR JOGO ,~$-.![~#"[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(// PaVIDEONEXT v x*  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 13 ":9020<# 8=K=K+1:p$="VIDEOHARDWARE: ":9020<# 9/p$="O Plotter ":9020<# ;=K=K+1:P$="VIDEOBASIC-A LINGUAGEM: ":9020<# =K=K+1:p$="VIDEOBREAK: ":9020<# ?/p$="Graficos Complexos ":9020<# @=K=K+1:p$="VIDEOBASIC-A PROGRAMACAO: ":9020<# A/p$="Area e Perimetro ":9020<# B.p$="de um Quadrado ":9020<# K=K=K+1:p$="VIDEO-JOGO: ":9020<# L/p$="Visita Medica ":9020<# f150:1000::8994"#:13 ,13 ;"ATE A PROXIMA":18,20;"VIDEOBASIC":1,0:1,30:1,502: 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: "#aVLkPVisita Medica S PRIME UMA TECLA PARA CONTINUAR Y ME UMA TECLA PARA CONTINUAR PRIM;CAR NEXT 8|ʀY"$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >