ZXTape! VIDEOBASIC>+ @(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:   EDICOES LATINAS " *317997|:7:7:7: Mn=09 :n,0;" ":n Cn=16:n,4;" ":n (>n=35:n,10 ;" ":n 216,23;" ";17,21;" ";18,21;" ";19,20;" ";20,20;" " 3 ? '#+563?`@###133~  qw{>>?  000000000000000000000000000000000000000000000000000000000000000000000000000100000001111022200000000000000211000000011112222000000000000002222200022222222220000000000000020200000002222222200000000000000000000000000000000000000666666666000000000066000000000006660088888888888888888880666660000000888===============8000000088888888?===============8888888888888888?<<<<<<<<<<<<<<<8888888888888888?;;;;;;;;;;;;;;;8888888888888888?;;;;;;;;;;;;;;;8888888888888888?:::::::::::::::8888888888888888?:::::::::::::::8888888888???888888888888888888:8888888888???8888????88?????::::8888888888???????889999999999:::888888888?88888888888888889999998888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888 VIDEOLIST } `*  EDICOES LATINAS * f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 317997|:0:0:0:0:23658j\,8:236099\,20:20,0;:""318008|:236066\,86V:236077\,123{ 23675{\,100d:23676|\,127:7:7:1::1:#0;0,0; " PARA O GRAVADOR " (Cn=1502:.01z# =,*60<:n:490:600X F SUMARIO P,:AA=1:690:.6,21 d;K=5:p$="VIDEOHARDWARE: ":0710 n/p$="O Robot ":0710 =K=K+1:p$="VIDEOBASIC-A LINGUAGEM: ":0710 /p$="READ - DATA - RESTORE ":0710 .p$="Caracteres Graficos (UDG) ":0710 ,P$="USR - BIN ":710 +P$="Gerador de Caracteres ":710 =K=K+1:p$="VIDEOBREAK: ":0710 /p$="O Computador Cansado ":0710 =K=K+1:p$="VIDEOBASIC-A PROGRAMACAO: ":0710 /p$="Definicao dos UDG ":0710 D100d:0490::AA=2:0690:.6,18 :K=8:p$="VIDEOTEST: ":0710 .p$="Jogo de adivinhas sobre ":0710 -p$="os temas da licao ":0710 <K=K+1:p$="VIDEO-JOGO: ":0710 .p$="Baloes ":0710 <K=K+1:p$="VIDEONEXT: ":0710 .p$="No proximo numero... ":0710 .100d:0490:1::0630v "REGISTRO DO NOME , 612:AA,BB,CC,DD,EE:aa=-2330J @"AA,BB:CC-AA,DD-BB,EE:3106 J60<,65A:-30,-19:8,18:1:9 ,7;"ESCREVE O TEU NOME";10 ,9 ;"NO TECLADO";11 ,8;"E PRIME ":n$ Tn9 ,7;" ";10 ,9 ;" ";11 ,8;" " ^J10 ,5;" ESTA BEM ESCRITO ?";11 ,7;N$;" (S/N)" r="S"400 |e="N"10 ,5;" ";11 ,7;" ":330J  360h NN=1̱N$:N+23296[,N$(N):N:N+23296[,"":23296[,""  0530 38&,64@,38&,79O,-2,38&,79O,38&,100d,-1,38&,100d,44,,112p,-2,44,,112p,72H,114r,-1 72H,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 Ž220,90Z,215,70F,-1,215,70F,190,63?,-2,190,63?,160,65A,-2 ̺160,65A,130,60<,-2,130,60<,115s,63?,-2,115s,63?,90Z,59;,-2,90Z,59;,60<,65A,-2 *-2,0,0,0,0 LETREIRO ROTATIVO 340(:Y$="* PRIME UMA TECLA PARA CONTINUAR *" e#0;1,0;1;5;1;Y$(32 ):.001wn,30:"""": TY$=Y$(2)+Y$(1):.0004uQX,45-:.0006vIQ,557:495  TEXTO :0630v:13 ,13 :22,0:0,30:-22,0:0,-30:11 ,0;" Poe em marcha o gravador " I=116:.04|# =,36$-I:I:150:11 ,0;" ":10 ,0;" estou carregando "''" VIDEOHARDWARE ":7:236066\,0:236077\,60<:0,0;"":"" NLE OS UDG X4:0610b:N=063?:A:"A"+N,A:N: b00,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 lHOMENZINHO v&N=302-1:8 t(N/2)=(N/2)17,N;" ";18,N;" ";19,N;" ":.01z# =,30:N:0660 Z17,N;" ";18,N;" ";19,N;" ":.01z# =,40(:N:0660  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 : +BB=11 :P$="VIDEOLIST":0680: ON=1̱P$:K,32 -N;P$(N):.002xn,K*N/8:N:K=K+1: Y"UMA TECLA PARA CONTINUAR ** PRIME aVLk PCaracteres Graficos (UDG) CAR LIST 8|+#$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0:"31969":"""31970" sTX="7000":Z=ç:U=:K2="2":K3=:K4="4":K5="5":K6="6":K7="7":K8="8":K9=:K="10":K7:K7:Z: K"23658",K8:"23675","88":"23676","127":"23607","124":"23606",Z ;A=U 16,96`,8:16,105i:568,0:72H,96`,8:16,87W:568,0 H88X,87W:16,0:-8,0:0,480:-32 ,0:0,-16:-2,-8:2,8:2,-8 R110n,100d:32 ,32 :16,0:-32 ,-32 :-16,0:4,-8,2:16,0:-4,8,-2:32 ,32 :4,-8,-2 X-32 ,-32 Y21,2;1;" CORREIA AVANCA " \T=0480 a.003xD,0 f`1;T+14,106j:1;0,4:T+17,106j:0,4 T 21,2;1;" CORREIA PARADA " 1:502 01,2;1;" FECHA A MAO " .1}L,-20 1:62>,111o:0,4:4,0:0,-4:-1,0:0:0,4:-2,0:0,-4 1:502 11,2;1;"  GIRA O BRACO " T=060< .003xD,40( T=34"990 :1;62>+T,106j:1;0,29 "T34"63?+T,136 (63?+T,106j:0,29 J64@+T,106j:0,8:1,0:0,-8 LT V(110n,100d:32 ,32 [&1:502:.1}L,30 `/1,2;1;" ABRE A MAO " e123{,110n:1;0,4:-2,-4:124|,110n:1;0,4:2,-4 j1:502 t21,2;1;" CORREIA AVANCA " ~T=020 .003xD,0 oT+124|,106j+T:0,4:1,0:0,-4:1,0:0,4 W1;T+123{,111o+T:1;0,-5:1;3,0 T ;1,2;" CORREIA PARADA ":1:7100 FW$=" QUERES QUE REPITA O EXEMPLO (S/N)?":7000X 23560\="S"810* FW$=" QUERES VER DE NOVO A LICAO (S/N) ?":7000X 23560\="S"100d  7200  W X^T=13 20:4;1;T,0,,:T:T=13 20:T,0,,:T b-0,3:4;255,0 l.0,75K:4;255,0 vL=W$ { P=0 $O=11 +(5-(L/64@)) O1=O  G=1L %E$=W$(G):E$" ".01z# =,0  O,P;E$ 1P=P+1:P=32 P=0:O=O+1 E$=".".1}L,30 #="!"O1,0;W$:7090 G 7100: 1p$=" PRIME UMA TECLA PARA CONTINUAR " ""7102 1:502 P$=P$(2)+P$(1) )P$<" ".004yn,30:7105 .003xD,*40( '#0;1,0;9 ;P$ =""7105 ""   *P$=" POE EM MARCHA O GRAVADOR " %3:0:0: *T=201-1 /.002xn,T 4T,0;P$',, >T H)T=04:1,T;" ";P$:T R;T=019:T+1,5;P$;T,0,,:T \T=2010 -1 pT,5;P$',, uT z3T=42-1:10 ,T;P$;" ":T  8:0,0;:"" #' Xzu k aCx@0ypl3po43W3 QUERES VER DE NOVO A LICAO (S/N) ?E?P  PARA O GRAVADOR CAR HARD |KR+#$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0 _"31809":z=ç:u=::"23609","20":"23658","8":"""31810":""F$():"23606",z:"23607","124":ڰ"7":z::ڰ"8":u;"10",z;" PARA O GRAVADOR ":I=Z̰"10":װ".01","I*5":I dF"23675","66":"23676","124":ٰ"9":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 UVC=Z:RC=U:TX="8330":RR="8150":IN="8400":A$="READ - DATA - RESTORE":"8410" L "8300":RR :U;" ..E AQUI COMO FUNCIONA"," ",''':"10""SEG"",""TER"""''"20I=17"''"30G$(I)"''"40""QUA"",""QUI"""''"50I"''"60""SEX"""''"70""SAB"",""DOM""" "4","26";u+u;" " RR:u:i=ṵ"7" ""8",z;u,:װ".1","20":"100" HJ"44::>@@"(i)-"48","0606006"(i)+"8";u;" ":װ".2",i*"2":"100" zN"8",Z,:I+"5","26";I;" ";ڰ"3";"SEGTERQUAQUISEXSABDOM"("I*3-2"̰"I*3") E"44::>@@"(i)-"48","0606006"(i)+"8";ڰ"5";" ":װ".2",i*"2" 1"50":"12",Z;U,:װ".1",Z:"100":"12",Z, i RR:IN:"8300":RR &VC=Z:A$="RESTORE":"8410":"8300" RR:IN:"8070":"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:"" *"7",U;:T$="ESCOLHE, "+N$+":":"8330" z"11","6";"F FIM";"13","6";"I VOLTA AO INICIO";"15","6";"C PASSO P/A PARTE";"16","6";" SEGUINTE" t$=:t$="F"  t$="I" t$="C""8000"  "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) v&"8330":T$(30)="#"rc=rc+u: {'F$(rc,30)="%"rc=rc+u:"8300" rc=rc+u:"8302" c=Z:N=U̱t$ (T$(N)="%"8150:"8400":vc=u: T$(N)="&"'U''" ";: T$(N)="#"P="8": +T$(N);:OPT$(N)" ".001wn,40( *OPT$(N)=".".1}L,30:9 "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: &HP"M";1;"READDATAIN":*"M";1;"READDATAIN":*"M";1;"READDATAIN" zu TO GRUPO SERVEPARA ESTABELECER VARIAVEIS COMINFORMACOES CONTIDAS DI-RECTAMENTE NO PROGRAMA.% %O EFEITO PRODUZIDO E IDENTI-CO AO QUE OBTERIAS COM UMASERIE DE , MAS MAIS CLAROE CONCRETO.% %PARA EXPLICAR, UM EXEMPLO:SUPOE QUE TENS DE ESCREVERUM PROGRAMA, EM QUE SE IM-PRIMA NO ECRAN, POR ORDEM,OS DIAS DA SEMANA(SEGUNDA,TER-CA, QUARTA, ETC). ENCONTRAR-TE-IAS NUM DETERMI-NADO PONTO, COM A NECESSIDADEDE ESTABLECER UMA MATRIZ (M$)COM OS NOMES DOS MESES (JAN,FEV, MAR, ETC), DE MODO QUE& &10 PRINT M$(MES)& &PRODUZ O EFEITO DESEJADO.% %OUTRA FORMA DE O CONSEGUIRSERIA:& &10 LET M$(1)="JAN" 20 LET M$(2)="FEV" 30 ...& &E VALIDO E FUNCIONA SEM NENHUMPROBLEMA. MAS EXISTE UMSISTEMA MUITO MAIS CLARO ECONCRETO:& &10 FOR I=1 TO 12 20 READ M$(I) 30 NEXT I 40 DATA "JAN", "FEV", "MAR"..%NO EXEMPLO PUDESTEVER, QUE A CADA O COM-PUTADOR LE A VARIAVELESPECIFICA E A INFORMA-CAO TOMADA DAS LINHAS, PELA MESMA ORDEM QUEFORAM ESCRITAS. NAO TENDOEM CONTA SE OS VALORESA LER ESTAO CONTIDOS NUMAOU VARIAS LINHAS: DE QUAL-QUER MODO SERAO LIDAS SE-QUENCIALMENTE.# #E POSSIVEL AGRUPAR DISTINTOS NA MESMA INSTRU-CAO:& &READ A,B,C& &E EQUIVALENTE A:& &READ A:READ B:READ C.% %SE BEM QUE NAO HAJA RESTRICOESNA DISPOSICAO DAS ,E ACONSELHAVEL REAGRUPAR ESTASINFORMACOES COM BASE NA SUAFUNCAO LOGICA, PARA OBTERPROGRAMAS CLAROS E ESQUEMATI-COS.# #A INSTRUCAO SERVEPARA ESTABELECER A LINHA DE, ONDE COMECA ALEITURA.% %JA TEMOS VISTO QUE LEAS INFORMACOES DE FORMA SE-QUENCIAL, MAS HA OCASIOESEM QUE NECESSITAMOS QUE ALEITURA COMECE NUM PONTODETERMINADO PELA SEQUENCIAPRE-DEFINIDA. ESTE RESULTADO OBTEM-SE COM, QUE INICIA A LEI-TURA DESDE A LINHA ESPECIFI-CADA NO SEU ARGUMENTO. OBSER-VEMOS O ILUCIDATIVOEXEMPLO DE SEGUIDA.% 10 DATA 10,20 20 DATA 50,15 30 DATA 3,6 40 RESTORE 30& &O PRIMEIRO VALOR LIDO NESTECASO, SERA O <3>.# # [t$eaN  AREAD - DATA - RESTORE 'l c TRECTAMENTE NO PROGRAMA.% %CAR READ B|ykkkhPP̙3g??????~~????ROBERTO$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" > SERVEPARA ESTABELECER VARIAVEIS COMINFORMACOES CONTIDAS DI-RECTAMENTE NO PROGRAMA.% %O EFEITO PRODUZIDO E IDENTI-CO AO QUE OBTERIAS COM UMASERIE DE , MAS MAIS CLAROE CONCRETO.% %PARA EXPLICAR, UM EXEMPLO:SUPOE QUE TENS DE ESCREVERUM PROGRAMA, EM QUE SE IM-PRIMA NO ECRAN, POR ORDEM,OS DIAS DA SEMANA(SEGUNDA,TER-CA, QUARTA, ETC). ENCONTRAR-TE-IAS NUM DETERMI-NADO PONTO, COM A NECESSIDADEDE ESTABLECER UMA MATRIZ (M$)COM OS NOMES DOS MESES (JAN,FEV, MAR, ETC), DE MODO QUE& &10 PRINT M$(MES)& &PRODUZ O EFEITO DESEJADO.% %OUTRA FORMA DE O CONSEGUIRSERIA:& &10 LET M$(1)="JAN" 20 LET M$(2)="FEV" 30 ...& &E VALIDO E FUNCIONA SEM NENHUMPROBLEMA. MAS EXISTE UMSISTEMA MUITO MAIS CLARO ECONCRETO:& &10 FOR I=1 TO 12 20 READ M$(I) 30 NEXT I 40 DATA "JAN", "FEV", "MAR"..%NO ANTERIOR EXEMPLO PODESTEVER, QUE A CADA O COM-PUTADOR LE A VARIAVELESPECIFICA E A INFORMA-CAO TOMADA DAS LINHAS, PELA MESMA ORDEM QUEFORAM ESCRITAS. NAO TENDOEM CONTA SE OS VALORESA LER ESTAO CONTIDOS NUMAOU VARIAS LINHAS: DE QUAL-QUER MODO SERAO LIDAS SE-QUENCIALMENTE.# #E POSSIVEL AGRUPAR DISTINTOS NA MESMA INSTRU-CAO:& &READ A,B,C& &E EQUIVALENTE A:& &READ A:READ B:READ C.% %SE BEM QUE NAO HAJA RESTRICOESNA DISPOSICAO DAS ,E ACONSELHAVEL REAGRUPAR ESTASINFORMACOES COM BASE NA SUAFUNCAO LOGICA, PARA OBTERPROGRAMAS CLAROS E ESQUEMATI-COS.# #A INSTRUCAO SERVEPARA ESTABELECER A LINHA DE, ONDE COMECA A LEITURA.% % JA TEMOS VISTO QUE LEAS INSTRUCOES DE FORMA SE-QUENCIAL, MAS HA OCASIOES EMQUE NECESSITAMOS QUE ALEITURA COMECE NUM PONTODETERMINADO PELA SEQUENCIAPRE-DEFINIDA. ESTE RESULATADO OBTEM-SE COM, QUE INICIA A LEI-TURA DESDE A LINHA ESPECI-FICADA NO SEU ARGUMENTO.OBSER-VEMOS O ELUCIDATIVO EXEMPLO QUE A SEGUIR APRESENTAMOS.% 10 DATA 12,20 20 DATA 50,15 30 DATA 3,6 40 RESTORE 30& &O PRIMEIRO VALOR LIDO NESTECASO, SERA O <3>.# # INTRO.UDG \Zf(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 _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%ٰ"9":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 9ٰ"9":U="1":Z=U-U:RR="8150":TX="8330":IN="8400" )A$="CARACTERES GRAFICOS (UDG)":"8410" T$="ALEM DOS CARACTERES, EXISTE NO SPECTRUMA POSSIBILIDADE DE USAR OUTROSDISTINTOS: ALGUNS PREDEFINI-DOS E OS DEMAIS A DISPOSICAODO PROGRAMADOR.":TX:RR sIN:"4";U;"CARACTERES PRE-DEFINIDOS":I=0̰"7":"5","I*3+4";U;°"I+128";"11","I*3+4";°"I+136":I y"7","4";"8 1 2 3 4 5 6 7";"13","4";"7 6 5 4 3 2 1 8";ڰ"5";"12","28";"CAP";"13","28";"SHF"''' ,T$="ESTES CARACTERES OBTEM-SESITUANDO O TECLADO NO MODOGRAFICO E INTRODUZINDO O NU-MERO INDICADO (+ CAPS SHIFTPARA A LINHA INFERIOR).":TX:RR IN:T$="DESEJAMOS DEFINIR CARACTERESGRAFICOS A NOSSO GOSTO. ENECESSARIO ESCREVER A FORMULADESTES CARACTERES NA AREADE MEMORIA RESERVADA PARATAL.":TX T$="CADA CARACTER OCUPA <8> BYTESE IDENTIFICA-SE COM UMA LETRADE A .A SUA LOCALI-ZACAO DE MEMORIA OBTEM-SECOM A FUNCAO .":TX v'':T$="PRINT USR ""A""":TX:'':T$="QUE DEVOLVE A DIRECCAO DOPRIMEIRO BYTE DO CARACTER GRA-FICO .":TX:RR IN:''''':T$="IGUALMENTE:":TX:''':T$="POKE USR ""C"",255":TX:''':T$="ESCREVERA <255> NO PRIMEIROBYTE CORRESPONDENTE AO CARAC-TER .":TX >RR:IN:I=0̰"7":ڰ"5";I+"3","6";"USR ""C""+";I:I 1I=Z̰"7":ڰ"6";"I+11","6";"USR ""D""+";I:I 0"2","18";U;"MEMORIA":I=0̰"15":"I+3","16";"-->";ڰ"3"+"I/2=(I/2)";" ";U;ڰ"7";" ";"...C... ...D..."(I+U);" ":I :RR:IN:T$="POSTO QUE CADA BYTE QUE COM-POE OS CARACTERES GRAFICOSREPRESENTA UM PONTO DE TINTA,E MAIS COMODO INDICAR DIRECTA-MENTE OS <8> BYTES NA FORMABINARIA, USANDO A FUNCAO QUE CONVERTE AS SERIESDE UNS E ZEROS NOS CORRES-PONDENTES NUMEROS DECIMAIS.":TX l''U;" PRINT BIN 1 ----------> 1"''" PRINT BIN 10 ---------> 2"''" PRINT BIN 10101010 ---> 170"''" ...E ASSIM SUCESSIVAMENTE.":RR Z"CADA CARACTER...","...E COMPOSTO POR 8 LI-NHAS, CADA UMA FORMADA POR 8PONTOS." "A TINTA E REPRESENTADA POR<1>, O PAPEL POR <0>.","LENDO EM FORMA BINARIA ASEQUENCIA DE <0> E <1> QUEFORMAM CADA LINHA, OBTEREMOSOS 8 VALORES A MEMORIZAR..." d"3000"::ذ"43","131","9":k=1̰"4":z:u;"5","5";"1X0"(k):"21",z;ٰ"7";"1X0"(k) Ai=z̰"7":j=z̰"7":"9"-j,i+"12";ڰ"5-4*(i,j)";(I,J):j:i NT$:"7950":rr:k "4");"-->";ڰ"6";" ";I-U;" "  i=urr װ".01",I*"4":i RR:IN:''':T$="PARA O OBTER, TERAS QUESITUAR O TECLADO NO MODO GRA-FICO (CAPS SHIFT+9 OU SIMPLES-MENTE A TECLA NO*PLUS* ), E PRIME A LETRA QUETENHAS ESCOLHIDO PARA GRAFICO.":TX RR:IN:"8070":I"1000" !i=zu:z,"70+i":"255",z:i HI="14"̰"20":I,U;ڰ"6"," ":I:"15",U;:TX:Z: @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:"" /I=Z:"7",U;:T$="ESCOLHE, "+N$+":":"8330" }"11","6";"F FIM";"13","6";"I VOLTA AO PRINCIPIO";"15","6";"C PASSO P/A PARTE";"16","6";" SEGUINTE" Z$=:Z$="F" Z$="I"I=U: Z$="C""8000"  "8090" 1502: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) v&"8330":T$(30)="#"rc=rc+u: {'F$(rc,30)="%"rc=rc+u:"8300" rc=rc+u:"8302" ڰ"8":U:U;:c=Z:N=U̱t$ +T$(N);:OPT$(N)" ".003xD,20 *OPT$(N)=".".1}L,30:9 "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: ڌVC=Z:"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;: &H2*"M";1;"UDGINTRO":*"M";1;"UDGINTRO" zueaN cJ  TvLENDO EM FORMA BINARIA ASEQUENCIA DE <0> E <1> QUEFORMAM CADA LINHA, OBTEREMOSOS 8 VALORES A MEMORIZAR...A POE O GRAVADOR EM MARCHA CAR UDG |,#$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),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 0I=U:PN=U:A$="READ-DATA-RESTORE-UDG":"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" 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)="{"T$=N$:"8330" T$(N)="}"'U''" ";: T$(N)=""P="8": T$(N);:T$(N)=" "8385 .003xD,34" *OPT$(N)=".".1}L,30:9 "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 SEJAM PEDIDAS.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" #.BC$<" "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":"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 #LEr"100":"8","10";"OUTRA VEZ !":װ".5","32":"8470":ER=Z:"8850" # "8810" $ D A T A  $"... ESTAS A FICAR CADA VEZ MAIS ESPERTO!! ESTOU SEGUROQUE SEGUES COM MAIOR FACILIDA-DE EXEMPLOS MAIS COMPLICADOS!!","" $"READ A$,NUM,G(IND)"," PODE CONTER AO MESMOTEMPO VARIAS VARIAVEIS, QUESERAO ELABORADAS SEQUENCIAL-MENTE PELAS QUE DEVE-RAO SER DE TIPO ADEQUADO.","" $z"DATA SGN(Y),""BASIC"",3*B+2","DE IGUAL MODO O CONTEUDO DAS SERA USADO PARA ESTABE-LECER VARIAVEIS EM ","" %"RESTORE 1000+200*VIDEO","E AQUI UM SISTEMA MUITO USADOPARA DIRECCIONAR AUTOMATICA-MENTE GRUPOS DE ,COM BA-SE NO CONTEUDO DAS VARIA-VEIS.","" %"PRINT BIN 10021100","ESTA E UMA INSTRUCAO ERRA-DA ! UM ARGUMENTO BINARIO NAOPODE CONTER VALORES DIFEREN-TES DE <0> OU <1>.","" % "POKE USR ""B"",BIN 11001000","ESTE E UM SISTEMA MUITO USADOPARA INDICAR COM MAIOR FACILI-DADE AS LINHAS DOS CARACTE-RES GRAFICOS.","" %0"" %: INTER %DS"A$,MES","INTRODUZ AS INFORMACOES","LIDAS EM PARA ","E .","" %N["K=31200","SE =<3> INICIA-SE A","LEITURA DAS ","DESDE A LINHA <1200>","" %Xo"""A""+2,255","INTRODUZ A TERCEIRA LINHA","DO CARACTER GRAFICO ","COMPOSTA POR 8 PONTOS DE","TINTA","" %b^"1100110011001100","IMPRIME O VALOR DECIMAL","DO NUMERO BINARIO","<1100110011001100>","" %l_"F$(I)","INTRODUZ NO ELEMENTO ","DA MATRIZ ,","UM VALOR LIDO POR .","" %vb"""S""","IMPRIME A DIRECCAO DA","LOCALIZACAO DE MEMORIA","CORRESPONDENTE AO UDG ","" &G"" zu"eacJ#NxC"BTeZ A POE O GRAVADOR EM MARCHA @CAR EXER. |@.#$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >." 9 ,0;" A TUA ESQUERDA TENS A QUA- DRICULA DE 8*8. DESLOCANDO COM AS TECLAS DO CUR- SOR, PODES ACENDER OU APAGAR OS PIXELS DO CARACTER." 15,0;" A TUA DIREITA TENS A REPRE- SENTACAO(NORMAL OU INVERTIDA) E DO CARACTER. OS COMANDOS DISPONIVEIS ESTAO NAS PRIMEIRAS LINHAS DO ECRAN.":100d 2$A=42*:A$=" *PRIME UMA TECLA" 3#1;1,7;0;6;"-->";1;A$(12 );0;"<--":A$=A$(2)+A$(1):A=A-2.732.:A10 A=42* 7.03{u\,A:=""513 F#0;0;6;1,10 ;"  O.K.  ":10 :10 : 10 :30:.01z# =,30:.01z# =,12 :.01z# =,42*:150:0:9 :0::23658j\,8 Z31:"":X=11 21:X,0,,:X dx=1680P8 n&x-8,16:0,64@ x8,x:64@,0 x Z111o,557:0,9 :9 ,0:0,-9 :-9 ,0 314,14;" ";17,14;" " ^110n,22:0,11 :11 ,0:0,-11 :-11 ,0 7F=23296[:F$=(F+144):F$=F$+F$:F$=F$+F$ -17,18;F$;16,18;F$ ^142,30:35#,0:0,19:-35#,0:0,-19 _21,9 ;" ";#0;0,10 ;"ABCDEFGHIJKLMNOPQRSTU" 30,0;" STOP"," PARA TERMINAR", B0;1,0;"CAPS SHIFT+ 7 "," CURSOR ACIMA ", C1;2,0;"CAPS SHIFT+ 8 "," CURSOR DIREITA", B2;3,0;"CAPS SHIFT+ 6 "," CURSOR ABAIXO", C3;4,0;"CAPS SHIFT+ 5 "," CURSOR ESQUER.", 07;11 ;" 1 "," ACENDER PIXEL", /6;11 ;" 2 "," APAGAR PIXEL", .5;11 ;" 0 "," SELECCIONAR", *3;11 ;" S "," GRAVAR ", ,2;11 ;" C "," CARREGAR ", "-1;11 ;" V "," VERIFICARr", ,C$(8,8) 6Y1=0:X1=0 @ SET=1 J23624H\,15 X=0:Y=0 S=(Y+11 ,X) .2;7;Y+11 ,X;1;" "  X1=X:Y1=Y G#1;1,0;(" RE"SET)+(" "SET)+"SET  " '22528X+(Y+11 )*32 +X,S 7X=X+((=9 )X<9 )-((=8)X>0) 9Y=Y+((=10 )Y<9 )-((=11 )Y>0) ASET=1X>0X<9 Y>0Y<9 1000 ASET=0X>0X<9 Y>0Y<9 1300 ="1"SET=1 &="2"SET=0 0="0"2000 :="S"SP=1:3000 ?="C"SP=2:3000 D="V"SP=3:3000 N=""5000 X 410   C$(Y,X)="" 111o+X,32 -Y .1;Y+11 ,X;5;7;" " !1;111o+X,64@-Y     C$(Y,X)=" " (!1;111o+X,32 -Y 2.1;Y+11 ,X;0;7;" " <111o+X,64@-Y n II=20558NP +#0;1,0;" ESCOLHE " 1,20  2400` X=07 AD=II+X*256 N=AD CH+X,N  X 23296[,X1 4 1 ` X=9 jA6:1;#1;1,X;" ^";1;" " ~X=X-((=8)X>9 ) X=X+((=9 )X<29) ="0"2500 2410j CH=(X-9 )*8+"A" X1=X-9 ""  0,0; 0 Y;12 ,0;3,4;"NOME DOS UDG: ...........";3,23;F$ F$=""SP>13030 &F$<1űF$>10 3010 ַSP=114,1;"CUIDADO!! ESCOLHE UMA CASSETTE QUE NAO SEJA DA PARA GRAVAR OS CARACTERES PODERIAS DESTRUIR O TEU CURSO DE BASIC!" I20,1;" NAO TE ENGANES PODES APAGAR O PROGRAMA " Y#0;0,0;" POE EM MARCHA O GRAVADOR PRIME UMA TECLA " 0 6SP=123736\,181:F$"A",167 #SP=2"":F$"A",167 #SP=3"":F$"A",167 90Z (23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0:31969|:A=0:0:0:0:0::""31970|:236077\,124|:236066\,0 7:I=1521:I-1,2;" ";I,2;" PARA O GRAVADOR ":1.3&fff,1-I:I 1:100d:1 "" ;X=021:X/3;X/3;X,0,,:X H15,0;8;9 ;" POE EM MARCHA O GRAVADOR " 8:8 "" a$0 ACLA *PRIME UMA TEPdfeysFE xCAR UDG |/) >$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >