ZXTape! EXER.DIM /5 1f(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 dCEN=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 +I=U:PN=U:A$=" DIM - GRAVADOR ":"8410" $ "8500" ~"8075":E"1000" @/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"  ="F" ="E"I=PN:E=U: ="C"I=I+U:PN=I:  8090 140(: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)=" "8380 .001wn,30 *OPT$(N)=".".1}L,30:4 "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":"124-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":"3",u;:T$="PROPONHO-TE UM NOVO TESTE:UTI-LIZA O TECLADO COMO JA APREN-DESTE EM LICOES ANTERIORES,E ESCREVE O QUE TE SEJA PEDI-DO.":"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)=""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" #2!i=uC$<""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":"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 #OEr"100":"8","8";"TENTA DE NOVO !":װ".5","32":"8470":ER=Z:"8850" # "8810" $ D A T A  $k"... AQUI ESTAMOS A ENFRENTARO , E AS OPERACOESRELATIVAS AO GRAVADOR. OBSERVAO SEU USO.","" $Q"DIM A(10,20)","DIMENSIONA UMA MATRIZ NUMERICA EM 10 FILAS E 20 COLUNAS.","" $x"DIM F$(3,20):PRINT F$(I)"," IMPRIMIRA UMA CADEIADE 20 CARACTERES, TOMANDO APOSICAO INDICADA POR .","" %"LET C(X+3*Y,INT B)=SQR VR","COMO E HABITUAL SAO VALIDASTODAS AS EXPRESSOES QUE, UMAVEZ RESOLVIDAS, TEM O VALORADEQUADO.","" %q"LET F$(I)=F$(I+1)","ESTA E A FORMA MAIS UTILIZADAPARA AUMENTAR UMA POSICAONOS ELEMENTOS DUMA MATRIZ.","" %"SAVE ""BASIC"" LINE 10","ESTE COMANDO GRAVA NA FITAMAGNETICA O PROGRAMA E ASVARIAVEIS. DEPOIS DE CARREGARO PROGRAMA, COMECARA AUTOMA-TICAMENTE A PARTIR DA LINHA10.","" %k"VERIFY ""BASIC""","... AGORA, O SPECTRUM VERI-FICARA SE A GRAVACAO FOI COR-RECTAMENTE EFECTUADA.","" %U"LOAD """"","... PARA CARREGAR O PRIMEIROPROGRAMA QUE O GRAVADOR ENCON-TRE...","" %!Y"SAVE ""PAN""SCREEN$","SERVE PARA GRAVARES AS TUASMELHORES COMPOSICOES GRAFICAS.","" %&x"LOAD ""MATR"" DATA F$()","...ASSIM PODES GRAVAR OS DADOSARMAZENADOS EM MATRIZ, PARADEPOIS OS PODERES UTILIZAR.","" %+w"MERGE ""UTIL""","ESTA E UMA INSTRUCAO MUITOUTILIZADA PARA UNIR UM PROGRA-MA DE USO COMUM AO PROGRAMABASE.","" %0"" %: INTER %D="C$(30)","DIMENSIONA A MATRIZ ","EM 30 CARACTERES","" %N["A(3,8,20)","IMPRIME O NUMERO CONTIDO","NA MATRIZ ","NA POSICAO: 3,8,20","" %Xb"F$(5)=""BASIC""","INTRODUZ NO ELEMENTO <5>","DA MATRIZ , A","CONSTANTE ","" %bL"A$F$()","E AGORA GRAVA A MATRIZ F$","COM O NOME CONTIDO EM A$","" %gn"""MEM""10000,301"," GRAVA COM O NOME DE A"," PARTE DE MEMORIA QUE VAI","DE 10000 A 10300","" &G"" zu72!eaNc<; A !T ARA CONTINUAR PRIME UMA TECLA PCAR.EXER |/"$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0 I31969|:""31970|:236066\,0:236077\,124| 23658j\,8:10 ,0;" PARA O GRAVADOR ":I=1100d:.01z# =,I-40(:I:100d :COL=(*7):COL:9 :COL::.01z# =,1 502:VEDUTO=0 2H#1;1,0;" F FINALIZAR R RETARDAR " P23562 \,0 Zn=(*8):n=n*8 dx=(*22) ny=(*22) xs=22528X+5 x+y*32 +s,n 21-x+y*32 +s,n x+(21-y)*32 +s,n &21-x+(21-y)*32 +s,n y+x*32 +s,n 21-y+x*32 +s,n y+(21-x)*32 +s,n &21-y+(21-x)*32 +s,n %="F".1}L,30:3106 %="R".05|L,10 :10 , 80P 6#1;1,0;"T PARA TERMINAR * E PARA VOLTAR ":1:0:="T".5,0:350^ @$="E".1}L,20:502 J 3106 ^H#1;1,0;" SEGUIMOS? - (S/N) ":Z$= _,Z$="S"VEDUTO1,35#:30 h-Z$="S"VEDUTO1,25:1000 rz$"N"350^ |11,502:20:VEDUTO1000 1,30:30:0:0:5:0::20:a$=" POE EM MARCHA O GRAVADOR ":0:i=2010 -1:.04|# =,I:1:i,0;a$:i+1,0;" ":i A$=" CARREGO: A PROGRAMACAO":0,0;A$:1:I=112 :.04|# =,I:1::I,0;A$:I-1,0;A$:I  0:"" -VEDUTO=1:0:7:0: J#1;1,0;" F FINALIZAR R RETARDAR " x0=0:y0=0 f=0.1}L311 %="R".05|L,10 :10 9x1=f:y1=21:="F".1}L,20:3020 J#1;1,0;" F FINALIZAR R RETARDAR " 3023 f f=210.1}L-1 +x0=0:x1=31:y1=f:y0=0 3023 f 350^ ̈#1;1,0;"T PARA TERMINAR * E PARA VOLTAR":1:0:Z$=:Z$="T".5,0:350^ Z$"E"3020 .5,15:3007 m=(y1-y0)/(x1-x0) m>13042 x=x0x1 %="R".05|L,10 :10 y=y0+(x-x0)*m i=(y,x) o=(((y,x))) O=O+1:O$=O $i=(i/8)+1:y,x;i;o$ x  y=y0y1 %="R".05|L,10 :10 x=x0+(y-y0)/m i=(y,x) o=(((y,x))) O=O+1:O$=O $i=(i/8)+1:y,x;i;o$ &="S".1}L,21:3060 y  #1;1,0;"T PARA TERMINAR * E PARA VOLTAR ":1:0:Z$=:Z$="T".5,0:350^ Z$"E"3060 .5,15:3054 ed oedutnxysXxCAR BREAK |H)"ROBERTO$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0 g"31969":z=ç:u=:o="8":"23609","20":"23658","8":"""31970":"23606",z:"23607","124" 'I=Ṵ"7":"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",;" ESCREVE O TEU NOME NO";;"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: 0A$=°"14""23617",U:"890" 4(a$="12"ƱW$-uw$=w$(̱w$-u):"880" >T(a$>"A"a$"z"w$(w$)"9"w$(w$)"0")w$(w$)=""w$(w$)=":":a$=(a$+"165") Cw$=w$+(a$a$" ") p "23617",Z z#u;z,z;w$;u;"K";z,,:j 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$:"1360" ,"7",Z;:lm="16-(T$/2)+1":tx:'':lm=u ( :"8300" 2%"13",;"- - - - - -"''':"150" < "8300" P(RR:"8400":T$:T$"9000":"1300" x "8300":rr 5st=Z:b=ṵ"4":"9640":i=z̰"21":o;i,"17",:i bɰ"4":"127",z:z,"175" 5BU"21",z;u;"F$=MATRIZ 12,30 M=MES " =lm="17":b="2"z,z;:t$="5 TRADUCAO  AO BASIC ":TX I=Ṵ"1E3":T$ ET$(u)="0"xp="t$(2)-48":yp="t$(3)-48":YP,XP;bɺ;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=LM=U:T$="OBSERVA COM ATENCAO O DESEN-VOLVIMENTO DO PROGRAMA,E VOLTAA TENTAR DE NOVO.":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" 3I="16""103","76":"14",Z:Z,"20":"-21",Z 2I="28""98","20":"20",Z:Z,"40":"-21",Z tT$(U)"%"i ~#b=U+Ulm=u:rr:"8400":"8300" Bɺ"":RR <b e#Z;Z,Z;U;"BEM, "+N$,,"AGORA PRIME , E VERAS FUN-CIONAR O TEU PROGRAMA.",:Z:"R""3980" ,:C$("12","30"):I=Ṵ"12":(I);C$(I):I M"MES ";I$:A=Z:I$I=U̱I$:I$(I)"0"I$(I)"9"I:I$>ZưI$<"13"A=U DA#Z;U;" ";i$;" NAO ESTA CORRECTO ",:u,u:"100":"4005"  I$'C$(I$) 3#Z;"R REPETIR O OUTRA VEZ C CONTINUA" Z$=:Z$="R";:"4005" Z$="O""3990" Z$"C""4101" $T$:T$"4900" %"8400":LM=U:"8300":RR:"8400" *"7",U;:LM="6":T$="ESCOLHE, "+N$:TX w"11","6";"C CARREGAR A";"12",O;"PARTE SEGUINTE";"13","6";"I INTRODUCAO";"15","6";"E EXERCICIO" Z: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 r5"8","30";" ";"9","30";" ";"10","30";" " | ٰ"7":"" 'Y$=" PRIME UMA TECLA PARA CONTINUAR " )#Z;ڰ"6";U+U;U;U,Z;Y$:װ".001","30" ;Y$=Y$(U+U)+Y$(U):װ".0004","45":װ".0006","55":""  "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 lT$:T$"8330":"8300" v 0O:o:o+u:t$(u)=""p=t$(u+u):t$=t$("3") C=Z:U;lm; 2N=U̱T$:C=C+U:t$(n)=""c=z:u;lm;:"8390" "P;T$(N);:T$(N)=" "8370 .001wn,30 T$(N)="."װ".1","30" 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$ !9Nt$(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" #(9YP="4":XP=YP: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 $k"DESTA VEZ, "+N$,"ESTUDAREMOS UM PROGRAMA QUEUTILIZA UMA ESTRUTURA MUITOIMPORTANTE: A .","" $Ǟ"DESEJAMOS UM PROGRAMA QUE IM-PRIMA UMA MENSAGEM CURTA IN-TRODUZIDA ANTERIORMENTE NUMAMATRIZ, RELACIONADA COM O MESDE NASCIMENTO DE UM...VOLUNTA-RIO!" $ɲ°"13","NA PRIMEIRA PARTE ESCOLHERASAS FRASES QUE DESEJES PARA CA-DA MES.",13 ,"NA SEGUNDA, AS FRASES APARECE-RAM EM RELACAO AO NUMERO ANTE-RIORMENTE INTRODUZIDO.","" $8" --- O HOROSCOPO --- "," ELECTRONICO " $W"11 - FASE DE INPUT","QUAIS SAO OS ELEMENTOS QUEAPARECEM NO NOSSO PROBLEMA ?","" ${"Na primeira parte introduzimosfrases curtas de 30 caracteresna segunda entram os numeroscorrespondentes aos meses.","" %9"22 - FASE DE CALCULO","QUE SUCEDE NA ELABORACAO ?","" %0i"Visto que o programa se reduza impressao dum elemento dumamatriz,nao existe fase de ela-boracao.","" %D8"43 - FASE DE OUTPUT","QUAL E O RESULTADO FINAL ?","" %Ns"O resultado final consiste naimpressao do numero assignado,seguido da frase corresponden-te a cada caso.","","" %\"AGORA, "+N$,"TRANSFORMEMOS A ANALISE DI-RECTAMENTE EM INSTRUCOES.","","" %GRAPHICS %"161 INICIO " %h"043 INICIO ","044 MATRIZ ","#820","2310F$(12,30)","046 INICIO ","047 CICLO ","#823","2620M=112" %"*1 ","1;2 I N P U T " %T"049 INTRO. ","04: FRASE ","#823","2930(M);F$(M)","04<12 CICLO","<813","2<40M" %"*1 ","1A4 F A S E 2" %{"04>INT. MES","#813","2>50""MES "";M","04@IMPRIME ","04AHOROSC. ","#823","2@60M'F$(M)","04C REPETE ","#813","2C7050" % "*1 ","% " %"BEM, "+N$+"AGORA TENTA ESCREVER O PRO-GRAMA COMO TE FOI EXPLICADO, ERECORDA-TE DE NUMERAR ASLINHAS DE 10 EM 10, A PARTIRDE 10.","" &c"BEM, "+N$+"ACABASTE DE ESCREVER UM PRO-GRAMA EMPREGANDO UMA TECNICAFUNDAMENTAL: A MATRIZ." &4"" zuoJ p  Nl Bc  yZ#m  aI1W 10F$(12,30)10F$(12,30)B10F$(12,30)10F$(12,30)ZCY RIME UMA TECLA PARA CONTINUAR PT ESCOLHE, A POE EM MARCHA O GRAVADOR CAR |,"$$$~$$~$$~~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 CARREGANDO VIDEOTEST":"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 fڰ"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 cassete 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;"PREGUNTA 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$ 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;"TENS AQUI 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 MELHORAR, LE";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" #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 & шMSERVE PARA GRAVAR DADOS NUMAFITA SAVE SERVE PARA CARREGAR DADOS DEUMA FITA LOAD SERVE PARA VERIFICAR OS DADOSDE UMA FITA VERIFY MISTURA UM PROGRAMA EM MEMORIACOM OUTRO DE UMA FITA MERGE CRIA ESPACO NA MEMORIA PARAUMA MATRIZ OU UM VECTOR DIM OPCAO DE 'SAVE' PARA GRAVARBYTES CODE OPCAO DE 'SAVE' PARA GRAVARUMA MATRIZ OU UM VECTOR DATA ESPECIFICA, QUE DESEJAMOS GRA-VAR UM ECRAN SCREEN$ CONTEM O NOME E A LONGITUDEDOS DADOS EM FITA HEADER VELOCIDADE DE GRAVACAO DOS DA-DOS (EM BAUDIOS) 1500 TEM SENTIDO O COMANDO VERIFY ~~ SCREEN$ (SIM/NAO) NAO TIPO DE VARIAVEL COM VARIOSINDICES MATRIZ TIPO DE VARIAVEL COM UM INDICE VECTOR QUANTOS BYTES DE LONGITUDE TEMO HEADER? 17 LONGITUDE MAXIMA DO NOME DE UMPROGRAMA 10 CAR TEST |r "ROBERTO$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >$? $! @$H$ `?x0@ GO   @@H@ A  H@><@  ` $1 OG'@ @@  x0    @H@ A H@ B>$@(/ ) b@`@H(   $ #`  @ @H@ A H@ B>"@b@H/%@@A@ @H0@g  "` @H@ A H@ B>8@! !_H?%@@0@`0@( @"(  A`@(@@ @H@ A @H@ B>@! @""@`' @ p C@ A"H  @@ @ @@ ! H@ A 884VIDEO-JOGOYF [(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:6:6:6:"31969":"""31970":"""A":"23607","124":"23606",ç:"23658","8":"23609","20" ?C2="2":C4="4":C5="5":C6="6":C7="7":C8="8":C="10" Cç::A$=" PARA O GRAVADOR ":Y=C:"9100":׼,-C:"75"  "9000" ç:ç:C7:  9200# )A$=" FAZ A TUA ESCOLHA:":Y=:"9100" (A$=" 1 - JOGO":Y=7:"9100" (A$=" 2 - INSTRUCOES":Y=C:"9100" +A$=" 3 - VIDEONEXT":Y="13":"9100" %A$=" 4 - FIM":Y="16":"9100" (Z$=:Z$=""40( *1,20 -X40(+(160Z$="4")+(260Z$="1")+(2000Z$="2")+(8000@Z$="3") e5:23624H\,45-::''''''''" OBRIGADO POR TERES JOGADO"''''12 ;" ADEUS! " 85:: :::::::::::::::::::::::0:::201 60:0:C7:ç: Jç:I=ç̼:J=çC2:K=çC2 T5C4+C4*J,C+C4*K+C2*I;" ";C5+C4*J,C+C4*K+C2*I;" " Y=C6+J*C4,"12"+K*C4-C2*I;" ";C7+J*C4,"12"+K*C4-C2*I;" " ^ K:J:C5:I ç:I=ç̼:J=çC2 "16",C+C4*J+C2*I;" " "17",C+C4*J+C2*I;" " C4+C4*J+C2*I,"22";" " C5+C4*J+C2*I,"22";" " #J:C5:ç;"16"+I,"22";" ":I ,I=C4C7:J=çCC:I,C+J;C7;" ":J:I 2I="14"̰"17":J=çCC:I,C+J;C7;" ":J:I X(C8:I="17"C5Ͱ"-2":J="24"C8Ͱ"-1" l:I,J;"_ ":J:I %I="22"̱Ͱ"-2":J="18"C2Ͱ"-1" !J,I;"";J+1,I;" ":J:I "C7:I=̰"13"C2:J=C̰"22"C2 I,J;"":J:I !I=C5̰"17"C2:J="14"̰"18"C2 I,J;"":J:I ;0:I=C7:+C2*I,C6;("64"+I);ç,C8+C2*I;I:I  ç;"11","16";;" " 8:M=:P="32" ROTINA PRINCIPAL s"19","20";" ";"21",;" ":C:"19",;"MOVE O NUMERO ";M;" * DE ?";8; Q$="DE ORIGEM ":"1510" +FO=(F$-"64")*C2+:CO=F$(C2C2)*C2+C8 (FO,CO)" ""1090" . "1340" B"30":" A ?";C8; LQ$="DE CHEGADA ":"1510" V.FD=(F$-64@)*C2+:CD=F$(C2C2)*C2+C8 `(FD,CD)=" ""1150" t "1340" ~FOFDCOCD"1340" COCD"1210" (FO-FD)C4"1340" FM=FO+C2*(FD-FO):CM=CO  "1260" (CO-CD)C4"1340" CM=CO+C2*(CD-CO):FM=FO %(FM,CM)=C7ū(FM,CM)="47""1260"  "1340" M=M+ )FO,CO;" ";C7;FD,CD;"";FM,CM;" " I=çC2:װ".05","35"+I*C:I (P=P-:P>"1000" 2 "1360" 514,1;"ESTE NAO E UM BOM RESULTADO.":1450 xJP=514,0;"ESTE E UM MEDIOCRE RESULTADO.":1450 EP=414,2;"ESTE E UM BOM RESULTADO.":1450 PP=314,2;"E VERDADEIRAMENTE UM BOM RESULTADO.":1450 HP=214,4;"UN  B O M  RESULTADO.":1450 523624H\,5:502:9300T$:10 'װ".05","50":"FILA/COLUNA ";(Q$);F$ .F$="?"2,-30:502:"1370" F$C2"1510" :F$<"65"ůF$>"71"F$(C2C2)<"1"F$(C2C2)>"8""1510" F$;:װ".2",C *F$="A1"F$="A2"F$="A6"F$="A7""1340" "*F$="B1"F$="B2"F$="B6"F$="B7""1340" ,*F$="F1"F$="F2"F$="F6"F$="F7""1340" 6*F$="G1"F$="G2"F$="G6"F$="G7""1340" @ INSTRUCOES :0:6:6  :9200#:1:2,12 ;" REGRAS ":83S,149:90Z,0:0,14:-90Z,0:0,-14 \0:20:Y=621:A$:A$="".5,20:30:21004  'A$="#".5,40(:2250 * 9100# 4Y 99300T$:2060  9300T$:10 `"O TABULEIRO DE DAMAS CHINES","E COMPOSTO DE 34 CASAS, EM","QUE COLOCAMOS 33 PEOES." "","O OBJECTIVO DESTE JOGO E","CONSEGUIR FICAR COM SO UM","PEAO, ""COMENDO-SE"" AS OUTRAS","PEDRAS ATE UM MAXIMO DE 32","JOGADAS, A PRIMEIRA DAS","QUAIS DEVERA OBVIAMENTE TER","COMO PONTO DE DESTINO A UNICA" P"CASA DISPONIVEL NO INICIO","DO JOGO: A CENTRAL.","","","","POR EXEMPLO, A PRIMERA JOGADA","PODE SER: B4 (ENTER) - D4","(ENTER).","","SE EM UM CERTO PONTO DO JO-","GO NAO CONSEGUES COMER NENHUN","PEAO, PRIME ""?"" E O JOGO","INTERROMPER-SE-A AUTOMATICA-","MENTE MOSTRANDO A PONTUACAO DA","ULTIMA PARTIDA.","" #""," QUE FACAS UM BOM JOGO","#" hVIDEONEXT r)0:5:5::9200# |;A$=" POE EM MARCHA O GRAVADOR ":Y=10 :9100# =A$=" CARREGO O PROGRAMA: VIDEONEXT":Y=12 :9100# 1:A$=" ":J=07:Y=10 12 2:J:9 :9100#:254=2558150 Y:J ,5:5:23570\,16:"" #2."23296"="127"N="23297":N$="":"9012" #3 "9014" #4 N="127" #5N$=N$+¾N:N=N+:"9012" #6n:׼,"-20":A$=" ESCREVE O TEU NOME NO ":Y=C:"9100":A$=" TECLADO E PRIME ":Y="12":"9100" #77װ".3","34":"MAX 10 CARACTERES ";N$:N$>C"9015" #85:A$=" ESTA BEM ESCRITO, "+N$+"?":Y="11":"9100" #92װ".3","35":" SIM - NAO ";Z$:Z$>> @8Dp| |8H~|>@ƒB<" >>BB<DHpHDB@@@@@~BfZBBBBbRJFB\),0:(23613=\+256*23614>\+1),0 317997|:7:7:7:0:0:0::23658j\,8:236099\,20:""318008|:236066\,86V:236077\,123{ p23570\,6:1::#0;0,0; " PARA O GRAVADOR " 23624H\,579 -n=1502:.01z# =,*60<:n ( 1000 * 8990# - SUMARIO 21::90102# 7O.6,21:P$=" no numero 9 ":k=4:9020<# 8;p$="VIDEOHARDWARE: ":K=7:9020<# 9:p$="O JOYSTICK ":k=8:9020<# ;<P$="VIDEOBASIC-A LINGUAGEM: ":k=10 :9020<# <;p$="LEN - STR$ - VAL - VAL$ ":k=11 :9020<# =:p$="TO - IN - OUT ":k=12 :9020<# ><p$="VIDEOBREAK: ":k=14:9020<# ?;p$="Flores Electronicas ":k=15:9020<# @<p$="VIDEOBASIC-A PROGRAMACAO: ":k=17:9020<# A;p$="Operacoes de trocea ":k=18:9020<# B:p$="de cadeias ":k=19:9020<# K<p$="VIDEO-JOGO: ":k=21:9020<# L;p$="O enforcado ":k=22:9020<# _150:1000:8990#:8993!#:15,15;"Ate a proxima.":18,20;"VIDEOBASIC":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-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(#: #<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: 'Mn=1502:.01z# =,*60<:*7:n:1:70F: "#aVLkPO enforcado Y PRIME UMA TECLA PARA CONTINUAR S PRIME UMA TECLA PARA CONTINUAR {CAR NEXT |P"$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >