ZXTape! VIDEOBASIC>+A(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;" "    1#7133@ 9#;433( ~-#+<>3 ? '#+563?`@###133B~  qw{><?  000000000000000000000000000000000000000000000000000000000000000000000000000100000001111022200000000000000211000000011112222000000000000002222200022222222220000000000000020200000002222222200000000000000000000000000000000000000666666666000000000066000000000006660088888888888888888880666660000000888===============8000000088888888?===============8888888888888888?<<<<<<<<<<<<<<<8888888888888888?;;;;;;;;;;;;;;;8888888888888888?;;;;;;;;;;;;;;;8888888888888888?:::::::::::::::8888888888888888?:::::::::::::::8888888888???888888888888888888:8888888888???8888????88?????::::8888888888???????889999999999:::888888888?88888888888888889999998888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888VIDEOLIST SV  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{\,88X:23676|\,127:7:7:1::#0;0,0; " PARA O GRAVADOR " (Cn=1502:.01z# =,*60<:n:490:600X F SUMARIO P,:AA=1:690:.6,21 d;K=6:p$="VIDEOHARDWARE: ":0710 n/p$="Manutencao/inconvenientes ":0710 =K=K+1:p$="VIDEOBASIC-A LINGUAGEM: ":0710 /p$="EXP * LN * DEF FN ":0710 =K=K+1:p$="VIDEOBREAK: ":0710 /p$="Outono ":0710 =K=K+1:p$="VIDEOBASIC-A PROGRAMACAO: ":0710 /p$="Uso das Funcoes ":0710 .p$="Definiveis ":0710 90490::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$="Go ":0710 <K=K+1:p$="VIDEONEXT: ":0710 .p$="No proximo numero... ":0710 #0490:1::0630v "REGISTO 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 ,11 ;"NO TECLADO";11 ,8;" E PRIME ":n$ Tn9 ,7;" ";10 ,9 ;" ";11 ,8;" " ^H10 ,7;"ESTA BEM ESCRITO ? ";11 ,7;N$;" (S/N)" r="S"400 |c="N"10 ,7;" ";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 3150: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 a carregar "''" 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 1000: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,31-N;P$(N):.002xn,K*N/8:N:K=K+1: a0,0:255,0:0,175:-255,0:0,-174: Y!PRIME UMA TECLA PARA CONTINUAR **aVLkPVIDEOHARDWARE: Y\ L&$>@&(#$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >   EDICOES LATINAS  f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 236099\,1:9998':""318008|:32093]},0:23658j\,8:0:0:0:0:0:0 d317997|:n$="":23296[=127:a=23297[23317[:a127n$=n$+¾a:a Zu=5000:z=7000X:1;7;18,6;"ESPERA UM MOMENTO!";n$ ""16384@ `S$=" ":6:0:A=1621:A,0;S$:A u6:"":17,0;"NESTE NUMERO, A MANUTENCAO DOHARDWARE DO COMPUTADOR E DOSSEUS PERIFERICOS."; (""22528X - 0 29998':S=0:A=140(:S=S+254-191:0.002xn,A:#1;1;1,0;" PARA O GRAVADOR ":A/502 <A:S>0502 F.A=1421:A,0;"";S$:A Uj0:"":3,3:249,0:0,579:-249,0:0,-579 dLlat=23693\:at=0:ln=32 :23693\,0:8000@ kٰ"7":M=1:u:AT=15:P=1:L$="COM O USO E COM O TEMPO, O TEUSPECTRUM ESTA EM RISCO DE SEDETERIORAR; UMA BOA MANUTENCAOASSEGURA UM CORRECTO FUNCIONA-MENTO." nz:6000p Ȝu:AT=15:L$="OS PERIFERICOS TAMBEM NECES-SITAM UMA MANUTENCAO ADEQUADA.AGORA UMA SERIE DE NORMAS ASEGUIR PARA QUE O SISTEMA NAOSE DETERIORE:" z 6000p ,u:AT=15:L$="E CONVENIENTE PROTEGE-LO DASPOEIRAS, PARA ASSEGURAR UMACORRECTA DISSIPACAO DE CALORNOS COMPONENTES ELECTRONICOS." 6z ;Llat=23693\:at=0:ln=7:23693\,59;:8000@  6000p U:AT=15:L$="HA QUE TER CUIDADO COM AS PAN-CADAS, POIS PODEM PROVOCAR QUESE PARTAM OS INTERFACES OUPERNOS DE SUSTENTACAO, SOBRETUDO NAS IMPRESSORAS." z Mlat=23693\:at=13 :ln=8:23693\,568:8000@  6000p ~AT=15:u:l$="NAO DEVEMOS EXPOR O NOSSO COM-PUTADOR NEM OS SEUS PERIFERI-COS AO SOL, PARA EVITAR SOBREAQUECIMENTOS." z Llat=23693\:at=7:ln=6:23693\,46.:8000@ N 6000p XyAT=15:u:L$="HA QUE TER MUITO CUIDADO COMOS CABOS E FICHAS MOVENDO-OS OMENOS POSSIVEL E EVITANDO QUE-BRA-LOS." bz gMlat=23693\:at=21:ln=4:23693\,32 :8000@  6000p LAT=15:u:L$="A ROTURA DUM CABO PODE SER DE-FINITIVA E IRREPARAVEL." z  6000p  AT=15:u:L$="FREQUENTEMENTE A AVARIA PRO-DUZ-SE PERTO DO ENCAIXE:SE ES-TE ESTA MEIO QUEIMADO E NECES-SARIO SUBSTITUI-LO; E SE ACON-TECER NUM JOYSTICK ?!?!?" zZ:6000p u:AT=15:L$="O GRAVADOR NECESSITA DUM CUI-DADO ESPECIAL: A CABECA DEVESER LIMPA PERIODICAMENTE (PELOMENOS CADA TRES MESES)." Z: 6000p YU:lat=23693\:at=25:ln=7:23693\,7+128:8000@ 3:1:7:P=10 :at=15:l$="ESTA OPERACAO E FACIL,QUALQUERPESSOA PODE FAZE-LA: CONSISTEEM LIMPAR A CABECA COM UM AL-GODAO EMBEBIDO DE ALCOOL." z Llat=23693\:at=25:ln=7:23693\,7:8000@ BP=10 :6000p LAT=15:u:P=11 :L$="NO QUE SE REFERE AO TECLADO ENECESSARIO SABER QUE O COMPU-TADOR NAO DISTINGUE O GRAU DEPRESSAO QUE SUPORTA A TECLA,MAS UNICAMENTE SE FOI PREMIDA.":7000X  6000p u XL$="PORTANTO E INUTIL PREMIR DE-MASIADO UMA TECLA ,SO ACARRETAUMA AVARIA PREMATURA."  7000X:6000p 5000:L$="E JA POR ULTIMO... HA QUE EVI-TAR O CONTACTO COM LIQUIDOS. AUNICA SOLUCAO NESTE CASO SERADESLIGA-LO IMEDIATAMENTE E ES-PERAR ATE QUE ESTEJA SECO." F7000X:6000p x0:5000:L$="BEM; "+N$+"":7000X:AT=18:L$="QUERES VER DE NOVO ESTA LICAO? (S/N) ":7000X /1:0:="S"P=1:100d ="N"1500  1450 l0:0:A=06:a,0;(A=4)*7;" POE EM MARCHA O GRAVADOR ":a BA=1421:a,0;0;S$:A:0,0 +4:254<1921510 +4,0;S$:0:0:"" @3:1:A=1520:A,1;S$("3"):A  01;6,A;" ";7,A;" ": zr#1;1;0,0;"""5"" PAGINA ANTERIOR  ""8"" PAGINA SEGUINTE" (9999':10 :""6100 ^#1;1;0,0;"""5"" PAGINA ANTERIOR ""8"" PAGINA SEGUINTE" I236066\,85U:236077\,123{:10 :""6100  6000p 19998':="8"P=P+1:"":P*100d 8#="5"P=P-(P>M):"":P*100d  6000p btA=1̱L$:AT+((A-1)/30),1+(((A-1)/30)-((A-1)/30))*30;L$(A) g" L$(A)" "0.003xD,30 lA: @ 23693,56 A{a=05:b=2025:0.002xn,a*4.6333+b:b:1;a,at;s$(1ln):a:23693\,lat: '/236066\,86V:236077\,123{: '-236066\,0:236077\,60<: NuzXS 0/bsa_Amp L/QUERES VER DE NOVO ESTA LICAO? (S/N) CAR HARD 8|S $$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" ><~B<UUUWxUUUUaaUUUUQ~0@UUUA| u_B@@@fB0ꪪ8xр?@p@ꪪ?8xpB<<|ZBBBx UUUx?UUUUqq?UUUUq?xp@UUUU@08~B@B~x@qÏpAjv BBB@BB Wx@ UUUU8 !UUUUQ !UUUUapA>  5UUVp !<<><~BBBBBBC0BBCBBB0BB??ÈA BBBBC PUUS4 @ ( x;@pC/#p0 @*@p $ H@s""" UT@p#@(@p"""BJ@`@@p@G@"9?pCc3333GA%UU?p`@p #?U@pf"??'y@q8@p=! p,y? @%40<@p%(p8  `<@@$5>@pgDDD$@G33338p?P . XN&FFFFFFFFFFFDDDDDDDDFFFFFFFFFFFFFDDDFFFFFFFGGGGGGGGGGGGGGGFFFFFFFDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLINGUAGEM1s8 1l v  EDICOES LATINAS  Zf(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 _"31969":z=ç:u=::"23609","20":"23658","8":"""31970":""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 ^ٰ"9":b$=" ":U="1":Z=U-U:RR="8150":TX="8300":IN="8400" (RC=U:ڰ"8":A$=" EXP":"8410":tx:rr in:"8","3";u;"EXP 3=..." 9n="3":ٰ"4";"4",N;" @";"5",N;" ~|";"6",N;" \]" "4","7";u;" ? ? ? " 0"150":i=zu+u:t$=" "+u:j=ṵ"10" Nװ".01","12":װ".01",z !ڰ"3";"i*2+8","14";t$(̰"9") "10":t$()=t$(u+u):j 4"i*2+8","24";u;("*"i2)+("="i=2) k=z̰"23":װ".01",k:k Hi )i=zu:"105","65"+i:ٰ"3";"80",z:i u;"14","13";"3";"0" i="23"z-u:װ".005",i:i $ "4","7", #ڰ"8":RR:A$=" LN ":"8410":TX 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" }"11","6";"F FIM";"13","6";"I VOLTA AO PRINCIPIO";"15","6";"C PASSO P/A PARTE";"16","6";" SEGUINTE" t$=:t$="F"  t$="I" t$="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) v1"8330":T$="30"T$(30)="#"rc=rc+u: {'F$(rc,30)="%"rc=rc+u:"8300" rc=rc+u:"8302" U;U;:c=Z:N=U̱t$ (T$(N)="%"8150:"8400":vc=u: T$(N)="&"'U''" ";: T$(N)="#"P="8": T$(N);:T$(N)=" "8385 6OPT$(N)=".".2~L,40(:4:8385 .01z# =,15 "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;: ! A=U+U:J="26"̰"32"6:"220"-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[%A FUNCAO E MUITO PARE- CIDA COM A ELEVACAO DE POTEN-CIAS (^), MAS UTILIZA COMOBASE O NUMERO <2.718...> INDI-CADO GERALMENTE COM .% %O MODO DE USAR ESTE NUMERONAO E CASUAL: OBTEM-SEATRAVES DE UM DESENVOLVIMENTOEM SERIE, E UTILIZA-SE EMMUITOS CALCULOS MATEMATICOS,COMO POR EXEMPLO E OUTRASCONSTANTES PARECIDAS. RESTITUI O NUMERO QUESE OBTEM ELEVANDO , APOTENCIA INDICADA COMO ARGU-MENTO.& &EXP 3 = 2.718...^3# # (LOGARITMO NATURAL OU NE-PERIANO) E A FUNCAO COMPLE-MENTAR DE .% %DEVOLVE O LOGARITMO DOARGUMENTO, E DECERTO, A POTEN-CIA PELA QUAL FIZEMOS A ELEVA-CAO PARA OBTER O PROPRIOARGUMENTO. PORTANTO, SE& &A=EXP X& &X E O LOGARITMO DE A & &LN A=X% %OS LOGARITMOS COM BASES DIFE-RENTES DE OBTEM-SE DESTAFORMA:& &LOG(base2) A = LN A/LN 2& &LOG(base 10) A = LN A/LN 10& &e assim sucessivamente.# #[t$eaNB l A EXP0 'l c  TCIDA COM A ELEVACAO DE POTEN-CAR LING 1 |8k #$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" > E MUITO PARE- CIDA COM A ELEVACAO DE POTEN-CIAS (^), MAS UTILIZA COMOBASE O NUMERO <2.718...> INDI-CADO GERALMENTE COM .% %O MODO DE USAR ESTE NUMERONAO E CASUAL: OBTEM-SEATRAVES DE UM DESENVOLVIMENTOEM SERIE, E UTILIZA-SE EMMUITOS CALCULOS MATEMATICOS,COMO POR EXEMPLO E OUTRASCONSTANTES PARECIDAS. RESTITUI O NUMERO QUESE OBTEM ELEVANDO , APOTENCIA INDICADA COMO ARGU-MENTO.& &EXP 3 = 2.718...^3# # (LOGARITMO NATURAL OU NE-PERIANO) E A FUNCAO COMPLE-MENTAR DE .% %DEVOLVE O LOGARITMO DOARGUMENTO, E DECERTO, A POTEN-CIA PELA QUAL FIZEMOS A ELEVA-CAO PARA OBTER O PROPRIOARGUMENTO. PORTANTO, SE& &A=EXP X& &X E O LOGARITMO DE A & &LN A=X% %OS LOGARITMOS COM BASES DIFE-RENTES DE OBTEM-SE DESTAFORMA:& &LOG(base2) A = LN A/LN 2& &LOG(base 10) A = LN A/LN 10& &e assim sucessivamente.# #LINGUAGEM2: =   EDICOES LATINAS  Zf(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 _"31969":z=ç:u=::"23609","20":"23658","8":"""31970":""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 ^ٰ"9":b$=" ":U="1":Z=U-U:RR="8150":TX="8300":IN="8400" +RC=U:ڰ"8":A$=" DEF FN":"8410":tx:rr lIN:u,u;u;" FUNC. DEFINI. PELO UTILIZADOR:":"5","4";ڰ"5";"DEF FN A(";U;"X,Y,Z";ڰ"5";")=(X+Y+Z)/3" ."200":"14",u+u;ڰ"5";"PRINT FN A(3,7,8)" H]J=Z̰"2":A="j*2+13":"14",A;U;U;" ":i="66"̰"124":"107+j*16",i:װ".01","*30":i &"6",A;"^";"5",A;U;U;" ":j:RR tD"5",U;U,,"14",U;U,,"6","20";U;"(3+7+8)/3=6":u,u:"200" |"14","19";"----->":ER="60":"8480":I="7"̰"14":i,"27";u;"6":װ".1",i:"10":i,"27";i="14";iɰ"14";"6":i ڰ"8":RR:IN:TX 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" }"11","6";"F FIM";"13","6";"I VOLTA AO PRINCIPIO";"15","6";"C PASSO P/A PARTE";"16","6";" SEGUINTE" t$=:t$="F"  t$="I" t$="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) v1"8330":T$="30"T$(30)="#"rc=rc+u: {'F$(rc,30)="%"rc=rc+u:"8300" rc=rc+u:"8302" U;U;:c=Z:N=U̱t$ (T$(N)="%"8150:"8400":vc=u: T$(N)="&"'U''" ";: T$(N)="#"P="8": T$(N);:T$(N)=" "8385 7OPT$(N)=".".2~L,20:10 :8385 .01z# =,25 "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:"11",U;: ! A=U+U:J="26"̰"32"6:"220"-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ơ RCOMO JA PUDESTE COMPROVAR, OSPECTRUM DISPOE DE UM CONSI-DERAVEL NUMERO DE FUNCOESPREDEFINIDAS: INPUT, IN, SQRETC. ISTO NAO IMPEDE QUE DEVEZ EM QUANDO NAO POSSAS USARALGUMA FUNCAO NAO INCLUIDAENTRE AS DISPONIVEIS.% %O SPECTRUM OFERECE-TE A POSSI-BILIDADE DE DEFINIR AS NOVASA TEU GOSTO, E SEM LIMITE DECOMPLEXIDADE. A INSTRUCAONECESSARIA CHAMA-SE < FUNCAODEFINIDA> (DEF FN) E PODE SERSITUADA EM QUALQUER PONTO DOPROGRAMA. VEJAMOS UM EXEMPLO QUE TE EX-PLIQUE O QUE FAZER NA PRACTI-CA: NO SPECTRUM EXISTE AFUNCAO QUE DEVOLVE APARTE INTEIRA DO NUMERO, MASNAO EXISTE NENHUMA DECIMAL.TENTEMOS NOS DEFINI-LACHAMANDO-A POR EXEMPLO .% % DEF FN D(N) = N-INT N& &BEM, DESDE ESTE MOMENTO PASSOUPARA TODOS OS EFEITOS AFORMAR PARTE DA BIBLIOTECADE FUNCOES, E PODE SER CHAMADACADA VEZ QUE SE DESEJE MEDIAN-TE A INSTRUCAO .% % NO CASO QUE VIMOS ATRAS DEVE-MOS PROPORCIONAR UM UNICOARGUMENTO SOBRE O QUEEXECUTAR AS OPERACOES. ORESULTADO SERA O OBTIDO RESOL-VENDO A EXRESSAO:& & N-INT N& &QUE NOS MESMOS TENHAMOS ES-TABELECIDO.% %POR EXEMPLO:& &PRINT FN D(1.4)& &IMPRIMIRA COMO DESEJAMOS: 0.4.# #E AQUI ALGUMAS CONSIDERACOESA TER EM CONTA:& &AS VARIAVEIS PROPORCIONADASCOMO PARAMETROS NO AMBITODE NAO TEM NADA AVER COM AS CONTIDAS NOPROGRAMA. O SEU USO LIMITA-SEA ESTA FUNCAO ATE O PONTOEM QUE O SEU NOME PODE SERIGUAL TANTO AS OUTRAS VARIA-VEIS COMO AO DA MESMA FUNCAO,SEM QUE HAJAM QUAISQUERINTERFERENCIAS.% % A FUNCAO PODE TAMBEM ACCEDERA VARIAVEIS DO PROGRAMA,COM A CONDICAO DE QUE O SEUNOME NAO FIGURE ENTRE OS PARA-METROS. * O NOME DA FUNCAO DEVESER CONSTITUIDO POR UMASO LETRA, E DEVE LEVAR OSUFIXO <$> SE O RESULTADO EDO TIPO DE CADEIA. * OS PARAMETROS PODEMRECEBER QUALQUER VALOR, EDEVEM ESTAR SEPARADOS POR UMAVIRGULA. OS PARENTISIS SAOOBRIGATORIOS EM EEM ; * E POSSIVEL DEFINIR FUNCOESATE ESGOTAR AS LETRAS DO ALFA-BETO.# #[t$eaNB l A DEF FNH 'l c T ARA CONTINUAR PRIME UMA TECLA PCAR LING 2 |8hu #$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" > (DEF FN) E PODE SERSITUADA EM QUALQUER PONTO DOPROGRAMA. VEJAMOS UM EXEMPLO QUE TE EX-PLIQUE O QUE FAZER NA PRATI-CA: NO SPECTRUM EXISTE AFUNCAO QUE DEVOLVE APARTE INTEIRA DO NUMERO, MASNAO EXISTE NENHUMA DECIMAL.TENTEMOS NOS DEFINI-LACHAMANDO-A POR EXEMPLO .% % DEF FN D(N) = N-INT N& &BEM, DESDE ESTE MOMENTO PASSOUPARA TODOS OS EFEITOS AFAZER PARTE DA BIBLIOTECADE FUNCOES, E PODE SER CHAMADACADA VEZ QUE SE DESEJE MEDIAN-TE A INSTRUCAO .% % NO CASO QUE VIMOS ATRAS DEVE-MOS PROPORCIONAR UM UNICOARGUMENTO SOBRE O QUEEXECUTAR AS OPERACOES. ORESULTADO SERA O OBTIDO RESOL-VENDO A EXRESSAO:& & N-INT N& &QUE NOS MESMO TENHAMOS ES-TABELECIDO.% %POR EXEMPLO:& &PRINT FN D(1.4)& &IMPRIMIRA COMO DESEJAMOS: 0.4.# #E AQUI ALGUMAS CONSIDERACOESA TER EM CONTA:& &AS VARIAVEIS PROPORCIONADASCOMO PARAMETROS NO AMBITODE NAO TEM NADA AVER COM AS CONTIDAS NOPROGRAMA. O SEU USO LIMITA-SEA ESTA FUNCAO ATE AO PONTOEM QUE O SEU NOME PODE SERIGUAL TANTO AS OUTRAS VARIA-VEIS COMO AO DA MESMA FUNCAO,SEM QUE HAJA QUAISQUERINTERFERENCIAS.% % A FUNCAO PODE TAMBEM ACEDERA VARIAVEIS DO PROGRAMA,COM A CONDICAO DE QUE O SEUNOME NAO FIGURE ENTRE OS PARA-METROS. * O NOME DA FUNCAO DEVESER CONSTITUIDO POR UMASO LETRA, E DEVE LEVAR OSUFIXO <$> SE O RESULTADO EDO TIPO DE CADEIA. * OS PARAMETROS PODEMRECEBER QUALQUER VALOR, EDEVEM ESTAR SEPARADOS POR UMAVIRGULA. OS PARENTISIS SAOOBRIGATORIOS EM EEM ; * E POSSIVEL DEFINIR FUNCOESATE ESGOTAR AS LETRAS DO ALFA-BETO.# #ÀLINGUAGEM3L# O  EDICOES LATINAS  Zf(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 _"31969":z=ç:u=::"23609","20":"23658","8":"""31970":""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 ^ٰ"9":b$=" ":U="1":Z=U-U:RR="8150":TX="8300":IN="8400" /RC=U:ڰ"8":A$=" LINGUAGENS":"8410":tx:rr AIN::t$=" ":xl="94":yl="30":i=zu+u:"8480":i  T$="V V V V " Ei=ṵ"40":j=ṵ"4":u;"j+5","14";t$(j);"j+12","14";t$(j):j  #t$()=t$(t$)+t$:װ".1","*30":i 4f"935","945 B A S I C","955","","9:3 SISTEMA","9;3","9<3 OPERATIVO","","9A1","9B1 HARDWARE","9C1","" rr:in:tx:rr lIN:xl=z:"3000":#z;u,z;u;"..e aqui um exemplo...",:t$=" ":i=z̰"3":"8480":i:"300" e"211BASIC","223","233LET C=4","243","253PRINT X+5","263","273IF A<=B THEN","283","293GOSUB 4000","" ["1;1ASSEMBLER","1<5","1=5LD B,32","1>5","1?5ADD HL,DE","1@5","1A5RRCA","1B5","1C5LDIR","" c"A21PASCAL","A36","A46WHILE A=B","A56","A66 BEGIN","A76","A86 WRITE (B)","A96","A:6 END;","" j"@<1 RPG","@=4","@>4 SETON 15","@?4","@@412 MOVE A B","@A4","@B401 EXSR REP","@C4","@D4 EXCPT AA","" NRR:IN:"5000":t$=" ":xl="t$*8+6":yl="22":i=z̰"9":"8480":i P"222LING.","232BASIC","",";22TRADUC.",";32BASIC","","263LING.","273PASCAL","",";63TRADUC.",";73PASCAL","","2:4LING.","2;4FORTH","",";:4TRADUC.",";;4FORTH","" Zg"2>5LING.","2?5LISP","",";>5TRADUC.",";?5LISP","","2B6LING.","2C6 ....","",";B6TRADUC.",";C6 ....","" d:"F81","F91 LING. ","F:1","F;1","F<1 MAQUINA ","F=1","" ,XL="70":T$=" ":yl="54":"8480" MI=Z̰"4":"76","i*32+24":"8",z:"148","i*32+24":"24","-i*28+56":i xP#Z;U;Z,Z;"CADA LINGUAGEM ESTA TRADUZIDAPARA C/M ",:"300" "":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" }"11","6";"F FIM";"13","6";"I VOLTA AO PRINCIPIO";"15","6";"C PASSO P/A PARTE";"16","6";" SEGUINTE" t$=:t$="F"  t$="I" t$="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) v1"8330":T$="30"T$(30)="#"rc=rc+u: {'F$(rc,30)="%"rc=rc+u:"8300" rc=rc+u:"8302" U;U;: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: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: ڌ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;: !*`a$:a$x="A$(u)-48":y="A$(u+u)-48":b=A$("3"):t$()=a$(4):y,x;B;t$:"8490" !/xl !4;x="x*8-3":y="165-y*8":x,y:xl,z:z,yl:-xl,z:z,-yl: zue PATE AGORA TEMOS CONSIDERADOO BASIC COMO ALGO IMPRESCIN-DIVEL PARA O SPECTRUM, IDEN-TIFICANDO-O COM ELE; NA REA-LIDADE NAO E ASSIM.% %EM LINHAS GERAIS, UM COM-PUTADOR E COMPOSTO POR DUASPARTES DIFERENTES: O HARDWAREE O SISTEMA OPERATIVO. COM OLANCAMENTO DOS COMPUTADORESDOMESTICOS E PESSOAIS ESTABE-LECEU-SE O COSTUME DEDOTAR A ESTAS MARAVILHOSAS MA-QUINAS UM OUTRO SUPORTE QUEPERMITA UM DIALOGO SIMPLES EIMEDIATO COM ELAS: NO NOSSO-CASO O INTERPRETE BASIC.A NECESSIDADE DE SEPARAR OSISTEMA OPERATIVO E A LINGUA-GEM PODE PARECER-TE INUTIL;MASQUANDO CONTINUARMOS A NOSSAEXPLICACAO, TUDO TE VAI PA-RECER OBVIO E NATURAL.% % O SISTEMA OPERATIVO E O SU-PORTE SOFTWARE QUE TEM AMISSAO DE GESTIONAR DE MANEIRADIRECTA OS RECURSOS DO MICRO-PROCESSADOR, ESPECIALMENTE NOQUE DIZ RESPEITO AS OPERACOESE/S. A ELE SOLICITAM-SE TODASAS OPERACOES BASICAS, POR EX:IMPRESSAO, CARREGAR E GRAVAR,GRAFICOS, MANEJO DE ERROS,CONTROLES DE VALIDEZ, ETC. AUNICA LINGUAGEM QUE ACEITA SEMTRABALHO E A LINGUAGEM DO MI-CROPROCESSADOR: A LINGUAGEMMAQUINA.% %DAQUI A NECESSIDADE DE DOTARO COMPUTADOR DE UM SUPORTE ES-PECIAL EM QUE SEJA MAIS FACILE NATURAL O DIALOGO; NOSPECTRUM ESTE SUPORTE ECONSTITUIDO PELO INTERPRETEBASIC, MAS ISTO NAO E UMACONDICAO INDISPENSAVEL: OUTROSCOMPUTADORES ESTAO MUNIDOS DELINGUAGENS DIVERSAS; OS DEMAIORES DIMENSOES SAO CONSTI-TUIDOS UNICAMENTE PELO SISTEMAOPERATIVO, PARA OFERECER APOSSIBILIDADE DE USAR O SEUSUPORTE PREFERIDO. # #E IGUAL A USARMOS UM SOLDA-DOR PARA SOLDAR UM CABO, OU UMMARTELO PARA PREGAR UM PREGO,E FACIL IMAGINAR QUE PARAAPLICACOES DIFERENTES ECONVENIENTE DOTAR O COMPUTADORDE DIVERSAS LINGUAGENS.% % O BASIC E UMA LINGUAGEMSIMPLES, IMEDIATA E UNIVERSAL,MAS NAO E A ADEQUADA PARAAPLICACOES COMERCIAIS, DEINVESTIGACAO,OU DE CONTROLE DESERVOMECANISMOS. PARA TODASESTAS APLICACOES EXISTEM VA-RIAS LINGUAGENS:PASCAL, FORTH,FORTRAN, COBOL, PL1, ALGOL,RPG, ASSAMBLER, CL, LISP... ETANTAS OUTRAS. CADA UMADEVE DISPOR DE UM SUPORTEESPECIFICO QUE COMPREENDA ALINGUAGEM SIMBOLICA E A TRADU-ZA AO COMPUTADOR.# #[t$eaNB l A LINGUAGENS'l c TSISTEMA OPERATIVO E A LINGUA-CAR LING |B$ #$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0 _"31969":z=ç:u=::"23609","20":"23658","8":"""31970":""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 ^ٰ"9":b$=" ":U="1":Z=U-U:RR="8150":TX="8300":IN="8400" :RC=U:ڰ"8":A$=" INTERPRETE/COMPILADOR":"8410":tx:rr g:Z,Z;U;"------- INTERPRETACAO ----------"::t$=" ":xl="62":yl="45":i=zu+u:"8480":i O#z;z,z;u;"O interprete executa cada ins-trucao do programa " _t$="> ":i=ṵ"140":ڰ"2";"5","10";t$;"5","20";t$:t$()=t$(t$)+t$:װ".01","*30":i g"10",Z;U;"---------- COMPILACAO ----------":t$=" ":xl="54":yl="29":i=z̰"4":"8480":i "333PRINT","343","353LET","363","373FOR I=","","=35","=45","=55INTERP.","=65","=75","","G31","G41SISTEMA","G51","G61OPERAT.","G71","" ]"1=3PRINT","1>3","1?3FOR...","","9=5","9>5COMPI.","9?5","","A=6CODIGO","A>6","A?6MAQUI.","" C"AB6CODIGO","AC6","AD6MAQUI.","","IB1SISTE.","IC1","ID1OPERA.",""  E#z;z,z;ڰ"3";"O compilador traduz todo oprograma a C/M ...", kt$="> ":i=ṵ"100":u;"14","7";t$(̰"2");"14","15";t$(̰"2"):t$()=t$("3")+t$:װ".1","*30":i *B#z;z,z;ڰ"3";"...para ser executado num se-gundo momento.",, 4Ni=ṵ"100":ڰ"3";"19","23";t$(̰"2"):t$()=t$("3")+t$:װ".1","*30":i "":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" }"11","6";"F FIM";"13","6";"I VOLTA AO PRINCIPIO";"15","6";"C PASSO P/A PARTE";"16","6";" SEGUINTE" t$=:t$="F"  t$="I" t$="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) v1"8330":T$="30"T$(30)="#"rc=rc+u: {'F$(rc,30)="%"rc=rc+u:"8300" rc=rc+u:"8302" U;U;: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: ڌ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;: !*`a$:a$x="A$(u)-48":y="A$(u+u)-48":b=A$("3"):t$()=a$(4):y,x;B;t$:"8490" !/xl !4;x="x*8-3":y="165-y*8":x,y:xl,z:z,yl:-xl,z:z,-yl: zuƥ0E AQUI OS QUETE PERMITIRAM OS MELHORES RE-SULTADOS COM O MINIMO ESFORCO,ORIENTADOS PARA UMA UTILIZACAOESPECIFICA. % %A TRANSFORMACAO DA LINGUAGEMDE ALTO NIVEL PARA O CODIGOMAQUINA, PODE SER EFECTUADADE DUAS FORMAS: COM O INTER-PRETE OU COM O COMPILADOR.% %E AQUI AS DIFERENCAS: O INTERPRETE LE AS INSTRUCOESDO PROGRAMA UMA POR UMA, TALCOMO APARECEM NA LISTAGEM;CODIFICA-AS, ANALIZA-AS ETRANSFORMA-AS NOUTRAS INSTRU-COES ADAPTADAS AO SISTEMAOPERATIVO, EXECUTANDO-AS IME-DIATAMENTE. O SEU EMPREGO E MUITO PRATICOE FLEXIVEL, ATE AO PONTO DEACEITAR INDIFERENTEMENTE INS-TRUCOES DE MODO DIRECTO OUESCRITAS EN FORMA DE PROGRAMA;MAS A SUA EXECUCAO RESULTALENTA.% %O COMPILADOR PELO CONTRARIO LEO PROGRAMA SEM O EXECUTAR,DES-CODIFICA-O, CONTROLA E TRADUZDE UMA SO VEZ, A LINGUAGEMADAPTADA AO SISTEMA OPERATIVO.NO FINAL DA COMPILACAO TER-SE-AO DUAS VERSOES DO PRO-GRAMA: A SIMBOLICA (FONTE)ESCRITA PELO PROGRAMADOR, EA COMPILADA(OBJECTO OU CODIGO)ADAPTADA AO COMPUTADOR.% % O COMPILADOR E MAIS RIGIDOQUE O INTERPRETE, NAO PERMITECOMANDOS DIRECTOS E EXIGE UMANOVA COMPILACAO PARA CADAMODIFICACAO. EVITANDO SEM TRA-BALHO AO COMPUTADOR CONTINUASDESCODIFICACOES E COMPROVA-COES,PRODUZINDO PROGRAMAS MAISRAPIDOS.# #[t$eaNB l A INTERPRETE/COMPILADOR 'l c TESPECIFICA. CAR LING 4 |O. #$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" > QUETE PERMITIRAM OS MELHORES RE-SULTADOS COM O MINIMO ESFORCO,ORIENTADOS PARA UMA UTILIZACAOESPECIFICA. % %A TRANSFORMACAO DA LINGUAGEMDE ALTO NIVEL PARA O CODIGOMAQUINA, PODE SER EFECTUADADE DUAS FORMAS: COM O INTER-PRETE OU COM O COMPILADOR.% %E AQUI AS DIFERENCAS: O INTERPRETE LE AS INSTRUCOESDO PROGRAMA UMA POR UMA, TALCOMO APARECEM NA LISTAGEM;CODIFICA-AS, ANALIZA-AS ETRANSFORMA-AS NOUTRAS INSTRU-COES ADAPTADAS AO SISTEMAOPERATIVO, EXECUTANDO-AS IME-DIATAMENTE. O SEU EMPREGO E MUITO PRATICOE FLEXIVEL, ATE AO PONTO DEACEITAR INDIFERENTEMENTE INS-TRUCOES DE MODO DIRECTO OUESCRITAS EM FORMA DE PROGRAMA;MAS A SUA EXECUCAO RESULTALENTA.% %O COMPILADOR PELO CONTRARIO LEO PROGRAMA SEM O EXECUTAR,DES-CODIFICA-O, CONTROLA E TRADUZDE UMA SO VEZ, A LINGUAGEMADAPTADA AO SISTEMA OPERATIVO.NO FINAL DA COMPILACAO TER-SE-AO DUAS VERSOES DO PRO-GRAMA: A SIMBOLICA (FONTE)ESCRITA PELO PROGRAMADOR, EA COMPILADA(OBJECTO OU CODIGO)ADAPTADA AO COMPUTADOR.% % O COMPILADOR E MAIS RIGIDOQUE O INTERPRETE, NAO PERMITECOMANDOS DIRECTOS E EXIGE UMANOVA COMPILACAO PARA CADAMODIFICACAO. EVITANDO SEM TRA-BALHO AO COMPUTADOR CONTINUASDESCODIFICACOES E COMPROVA-COES,PRODUZINDO PROGRAMAS MAISRAPIDOS.# #À