ZXTape! PRINT t  EDICOES LATINAS LDA. f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 kڰ"7":ٰ"7":"7"::"31799":"23609","20":"23658","8":"""31800":"23606","86":"23607","123" Xڰ"7":ټ::"10",ç;ۼ;" PARA O GRAVADOR ":"9040":"200":"9010" z"9050":"3","13";"PRINT":"101","142":"44",ç:ç,"12":-"44",ç:ç,-"12":"102","141":"44",ç:ç,"12" 2Y=:P="7":T$=" BEM "+N$+",":X="6":"9032":Y=:T$="EXAMINEMOS AGORA UMA INSTRUCAOBASIC MUITO IMPORTANTE.":X="8":"9032" <Y=:T$="AS INFORMACOES SOBRE AS QUAISOPERA O TEU SPECTRUM, PODEMSER UNICAMENTE DE DOIS TIPOS: NUMEROS OU TEXTOS (CADEIAS).":X="11":"9032":Y=:T$=" E A INSTRUCAO QUE PER-MITE IMPRIMI-LAS NO ECRAN.":X="16":"9032":"9000" FY=:"9050":T$="A CADEIA (PALAVRA USADA PARADEFINIR UMA INFORMACAO DO TIPOTEXTO) CONSISTE EM UMA SERIEDE SIMBOLOS OU CARACTERES QUESE CONSIDERAM COMO UMA ENTIDA-DE UNICA.":X=:"9032" PY=:X="10":T$="PARA IDENTIFICAR UMA CADEIA EDISTINGUI-LA DUM NOME DE UMAVARIAVEL, ENCERRAMO-LA ENTREASPAS.":"9032" ZxY=:X="15":T$="A INSTRUCAO ANTECEDE ACONSTANTE OU AS VARIAVEIS QUEDEVEM SER IMPRESSAS.":"9032":"9000" dY=:"9050":X=:T$="UMA VIRGULA <,> IMEDIATAMENTEDEPOIS DE , LEVA A PO-SICAO DE IMPRESSAO PARA A DE-CIMA SEXTA COLUNA NO ECRAN.":"9032" naY=:X="9":T$="O APOSTROFE <'> LEVA A POSICAODE IMPRESSAO PARA A LINHA SE-GUINTE.":"9032" xY=:X="14":T$="O PONTO E VIRGULA <;> NAO AL-TERA A POSICAO DE IMPRESSAO,MAS SERVE PARA SEPARAR AS IN-FORMACOES A VISUALIZAR.":"9032":"9000" Y=:"9050":X=:T$="COM UMA SO INSTRUCAO ,PODES IMPRIMIR VARIAS INFORMA-COES, COM A UNICA CONDICAO DEESTAREM SEPARADAS ENTRE ELASCOM <;>, <,>, OU <'>, SEGUNDOAS NECESSIDADES DE COLOCACAO.":"9032" Y=:X="14":T$="VEJAMOS AGORA, "+N$+",":"9032":Y="1":X="16":T$="ALGUNS EXEMPLOS NO EMPREGO DAINSTRUCAO .":"9032":"9000" ;"9060":Y="11":X="5":T$="PRINT 10":"9031":"9040" zY=:X="14":T$="IMPRIME O NUMERO 10 NO EXTREMOESQUERDO DO ECRAN, OU SEJA APARTIR DA COLUNA ZERO.":"9032":"9000" B"9090":X="5":Y="9":T$="PRINT ,""BASIC""":"9031":"9040" ZX="14":Y="1":T$="IMPRIME O TEXTO NA DE-CIMA SEXTA COLUNA.":"9032":"9000" :"9090":X="5":Y="11":T$="PRINT A":"9031":"9040" BX="11":Y="1":T$="IMPRIME NA COLUNA ZERO O VALORCONTIDO NA VARIAVEL 'A'. A VARIAVEL DEVERA TER SIDO AN-TERIORMENTE DEFINIDA COM: LET A=VALOR NUMERICO SE NAO, INCORRE-SE EM MENSAGEMDE ERRO ,QUER DIZER , E O PROGRAMA NAO PODE-RA FUNCIONAR.":"9032" "9000" <"9090":X="5":Y="10":T$="PRINT ,A$":"9031":"9040" X="12":Y="1":T$="IMPRIME NA DECIMA SEXTA COLUNAO TEXTO CONTIDO NA VARIAVEL A$QUE, COMO NO CASO ANTERIOR DE-VERA SER DEFINIDA ASSIM: LET A$=""TEXTO"" DE OUTRO MODO AO CORRER O PRO-GRAMA, DARA COMO MENSAGEM DEERRO: .":"9032":9000 (# "="9090":X="5":Y="8":T$="PRINT A$;B$":"9031":"9040" ,X="12":Y="1":T$="IMPRIME OS TEXTOS CONTIDOS NASVARIAVEIS A$ E B$, UMA A SE-GUIR A OUTRA, PELA SUA ORDEM,A PARTIR DA COLUNA ZERO. O <;> SERVE SO COMO SEPARADORPARA RESPEITAR A CORRECTA SIN-TAXE DA INSTRUCAO.":"9032":"9000" 6"9090":X="2":Y=:T$=" AGORA "+N$+",":"9031":X="4":Y=:T$="PROPONHO-TE UM TESTE. FAZ OQUE TE PEDIMOS PREMINDO AS TE-CLAS SEGUINTES:":"9031" @"9100":"200":"9070" Jb"9070":"9200":X="13":Y=:T$="IMPRIME UM VALOR NUMERICO CON-TIDO NUMA VARIAVEL.":"9032" TR$="PV":D$="13":O("2"):S("4"):C$("5","2"):O()="10":O("2")="16":S()="16":S("2")="7":S("3")="17":S("4")="7" ^PK$=°"245"+" ":J$="VAR ":N=̰"5":C$(N,)=K$(N):C$(N,"2")=J$(N):N: hI=ç:"1000" rx"9000":"9070":"9200":X="13":Y=:T$="IMPRIME UM TEXTO (CADEIA) CON-TIDO NUMA VARIAVEL, NA COLUNA 16":"9032" |R$="P,V$":D$="1233":O("4"):S("8"):C$("5","4"):O()="8":O("2")="14":O()="15":O("4")="18":S()="16":S("2")="7":S("3")="18":S("4")="7":S("5")="17":S("6")="7":S("7")="18":S("8")="13" K$=°"245"+" ":L$=", ":J$="VAR ":Z$="$ ":N=̰"5":C$(N,)=K$(N):C$(N,"2")=L$(N):C$(N,)=J$(N):C$(N,"4")=Z$(N):N: I="40":"1000":"9000" "9050":"5","5";"TECLA";"9","6";"R REPETIR";"11","6";"E EXERCICIOS";"13","6";"C CARREGA VIDEOBREAK";"15","6";"F FIM" ="R""30" ="E""9060":"310" ="C""800"  ="F" &"510"  Pڰ"7":"7"::"10",ç;ۼ;" POE EM MARCHA O GRAVADOR ":ڰ"7":ٰ"7":"" n= ="""1001" r$(n)"1200" R$=N"9500":"1100": "9500":N=N+:"1001" LLڰ"2";ٰ"6";ܼ;۰"1";"9",(("27"-N$)/"2");"CERTO "+N$+"!":"9040": "9070":ڰ"6";"5","11";"ERRO !":װ".5",-"30":װ".5",-"40":"9070":N=̱R$:ڰ"5":ټ:ۼ;S("2"*N-),S("2"*N);R$(N):K=ç̰"150":K:S("2"*N-"1"),S("2"*N);R$(N):"9500":N "150":"330"+I #(sY$="PRIME UMA TECLA PARA CONTINUAR ":S$=Y$:I=̰"31":#ç;ڰ"6";ٰ"2";ܼ;,ç;Y$:װ".001","30":"""": #)BY$=S$(I)+S$("1"I):װ".0004","45":װ".0006","55":"""": #* I:"9000" #2."23296"="127"N="23297":N$="":"9012" #3 "9014" #4N="127""9020" #5N$=N$+¾N:N=N+:"9012" #6G:"10",;" ESCREVE O TEU NOME NO TECLADO E PRIME " #7EN$:"50"::"8","4";;N$;"10","4";"ESTA BEM ESCRITO ? (S/N)" #8="N""9014" #9="S"N$=N$+" ":"9019" #: "9016" #;DN=̱N$:"23296"+N,N$(N):N:"23296"+N,"127":"23296","127" #< #GP="6" #H7N=̱T$:P;X,Y;T$(N):T$(N)" "װ".001","40": #I"Y=Y+:Y=31Y=:X=X+ #JT$(N)="."װ".1","30":"20" #K N:P="7": #Q N=ç̰"10":װ".01",N*"5":N: #[a"2":ڰ"7"::"3","3":ڰ"4";"248",ç:ڰ"4";ç,"169":ڰ"4";-"248",ç:ڰ"4";ç,-"169": #eSڰ"4"::"3","3":"248",ç:ç,"169":-"248",ç:ç,-"169":"9070":"9080" #f,,"92":"248",ç:,"91":"248",ç: #o>N=̰"9":ڰ"6";N,;" ":N: #yBN="11"̰"20":ڰ"7";N,;" ":N: #"9070":"9080": #"16","6";ڰ"5";"

para PRINT ";"17","6";" para variavel ";"18","6";"<,> e <$> para os ";"19","6";"caracteres desejados": #BN="12"̰"15":N,;ڰ"7";" ":N: %.ڰ"6":M$="":K=̰"5":C$(K,N)=" ""9502" %M$=M$+C$(K,N):K %D$(N)="1""9600" %D$(N)="2""9700" % D$(N)="3""9800" %! %K="1"O(N):"5",K;M$ %K>"1""5",K-"1";" " %K:װ".2","5"*N: %K=̰"5":K,O(N);M$ %K>޼;K-,O(N);M$ %K:װ".2","5"*N: &H"K="31"-M$O(N)-:"5",K;M$ &IK<"31"-M$"5",K+M$;" " &JK:װ".2","5"*N:"55":  Q#ypx(#H&L, Z$ YPRIMA UMA TECLA PARA CONTINUAR SPRIMA UMA TECLA PARA CONTINUAR T1IMPRIME UM VALOR NUMERICO CON-TIDO NUMA VARIAVEL.RPVD13  V A R K JVAR MVARNBCAR 8|F& ROBERTO$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0 kڰ"7":ٰ"7":"7"::"31799":"23609","20":"23658","8":"""31800":"23606","86":"23607","123" \ڰ"7":ٰ"1"::"10",ç;۰"1";" PARA O GRAVADOR ":"9040":"200":"9010" 9050Z#:5,11 ;"VIDEOBREAK":85U,126~:85U,0:ç,12 :-85U,ç:ç,-12 :86V,125}:85U,ç:ç,12 2?X=11 :Y="1":P="7":T$="FINALMENTE, "+N$+",":"9032" <Y=1:X=13 :T$="CHEGAMOS A UMA PAUSA MERECIDA.VAMOS MOSTRAR-TE PARA RELACHARALGUNS DESENHOS GEOMETRICOS.":9032H# P9000(#:900 d6:1:1: eYB=020:M=(B*5):N=((((140-B)^2)-(M^2)+.5)) f:125},15+B:M,N:125},15+B:-M,N:B g9000(#:900 h&1:4:0:6: iA=*255:B=*175 jDM=0255.8L:A,B:M-A,-B:A,B:M-A,175-B:M kDM=0175.8L:A,B:-A,M-B:A,B:255-A,M-B:M l9000(#:900 mr7:2:3::B=025:M=(B*5):N=(((150^2)-(M^2)+.5)) nk125},7:M,N:125},7:-M,N:125},167:M,-N:125},167:-M,-N:B o9000(#:900 pN=017510 :0,0:255,N:255,0:-255,N:0,175:255,-N:255,175:-255,-N:N q9000(#:900 r]4:0:2::0:I=290Z5:I,I,I:255-I,I,I:I s9000(#:900 tb0:6::N=-22.1}L:130,100d:.5,N,1.99~Q*:N u 9000(# "9050":0;"5","5";"TECLA";"9","6";"R REPETIR";"11","6";"C CARREGAR PROGRAMA";"13","6";"F FIM" ="R"0:"30" ="C"0:"800"  ="F" &"510"  X7:7::"10",ç;۰"1";" POE EM MARCHA O GRAVADOR ":ڰ"7":ٰ"7":"" +999:1:1000:0: 0:7: N=0:K=1 N128 {Y=(.68.z*N):A=255-2*N:B=175-2*Y:N,Y:A,0:0,B:-A,0:0,-B+1 *N=N+1.5@*K:K=K+1:1001 #(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" #6H:"10","5";"ESCREVE O TEU NOME NO TECLADO E PRIME " #7NN$:"50"::8,4;N$;10 ,"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" #HXN="1"̱T$:P;X,Y;T$(N):T$(N)" ".001wn,40(:Q=*5:E=1Q:E #I1Y=Y+1:Y=31Y=1:X=X+1 #JT$(N)="."װ".1","30":"20" #K N:P="7": #Q N=ç̰"10":װ".01",N*"5":N: #[a"2":ڰ"7"::"3","3":ڰ"4";"248",ç:ڰ"4";ç,"169":ڰ"4";-"248",ç:ڰ"4";ç,-"169": }LtxyOpqJXJXH#TXCHEGAMOS A UMA PAUSA MERECIDA.VAMOS MOSTRAR-TE PARA RELACHARALGUNS DESENHOS GEOMETRICOS.(#ka(m}LkSPRIMA UMA TECLA PARA CONTINUAR Y MA UMA TECLA PARA CONTINUAR PRIMNCAR 8|=1 ROBERTO$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0 kڰ"7":ٰ"7":"7"::"31799":"23609","20":"23658","8":"""31800":"23606","86":"23607","123" eڰ"7":ٰ"1"::"10",ç;۰"1";" PARA O GRAVADOR ":"9040":"9500":"200":"9010" |P="7":I=ç:Y="4":A$="VIDEOBASIC":"9050":N="2"̰"28":9510&%:N>10 N<214,N;A$(N-10 ) $.03{u\,N*2:N:95200% (lY="6":A$=" A PROGRAMACAO "::N="2"̰"28":9510&%:N>6N<256,N;A$(N-6) )*.03{u\,568-2*N:N:"9520" -a"48","112":"158","0":"0","41":"-158",ç:ç,"-41":"49","111":"158",ç:ç,"41" 23Y=ç:X="13":T$=" FINALMENTE "+N$+",":"9032" 3Y=ç:X="15":T$="CHEGAMOS A PARTE CENTRAL DOTEMA QUE NOS OCUPA:":"9032":Y="7":X="19":T$="A PROGRAMACAO":"9032" <"9000":"9051":X="2":Y=ç:I=ç:T$="PROGRAMAR SIGNIFICA PROPORCIO-NAR AO COMPUTADOR TODAS AS NE-CESSARIAS INSTRUCOES PARA CON-SEGUIR O OBJECTIVO A ALCANCAR.":"9032" >gX="8":Y=ç:T$="PARA PROGRAMAR E NECESSARIO":"9032":X="9":Y=ç:T$="CONHECER:":"9032" ?bP=ç:I="9":X="12":Y=ç:T$="1":"9032":P="7":T$=" -O OBJECTIVO A ALCANCAR":"9032" @bP="2":I="7":X="14":Y=ç:T$="2":"9032":P="7":T$=" -O PROCEDIMENTO A SEGUIR":"9032" AP="3":X="16":Y=ç:I="7":T$="3":"9032":P="7":I=ç:T$=" -A LINGUAGEM PARA COMUNICAR":"9032":X="17":Y="4":T$="COM O COMPUTADOR." F"9032":"9000":"9050":X="2":Y=ç:I=ç:T$="O BASIC E UMA DAS LINGUAGENSEM QUE PODES COMUNICAR COM OCOMPUTADOR E TRANSMITIR A INS-TRUCAO A EXECUTAR.":"9032" IhX="7":Y=:T$="HA DUAS MANEIRAS POSSIVEIS PA-RA DIZER O QUE DEVE EXECUTAR OTEU SPECTRUM :":"9032" K_X="14":Y=ç:P=ç:I="7":T$="1":"9032":P="7":I=:T$=" -O MODO IMEDIATO":"9032" L`X="16":Y=ç:P="2":I="7":T$="2":"9032":P="7":I=:T$=" -O MODO PROGRAMA":"9032" PF"9000":"9050":I=ç: X="2":Y="8":T$="MODO IMEDIATO":"9032" RY=ç:X="5":T$="O MODO IMEDIATO E O QUE TU EM-PREGASTE ATE AGORA NOS EXER-CICIOS: TU INTRODUZES AS INS-TRUCOES ATRAVES DO TECLADO E OTEU SPECTUM EXECUTA-AS DEPOISDE TERES FEITO .":"9032" TzX="14":Y=ç:T$="PODES TAMBEM TRANSMITIR MAISDE UMA INSTRUCAO, DESDE QUE ASSEPARES COM <:> (DOIS PONTOS).":"9032" ZE"9000":"9050":X="2":Y="8":I=ç:T$="MODO PROGRAMA":"9032" [X="5":Y=ç:T$="NO MODO PROGRAMA, AS TUAS INS-TRUCOES FICAM ANOTADAS ALGURESNA MEMORIA, E SAO EXECUTADASSUCESSIVAMENTE DE ACORDO COM AORDEM ESPECIFICADA.":"9032" \X="12":Y=ç:T$="O COMPUTADOR RECONHECE O MODOPROGRAMA, PORQUE A INSTRUCAO,OU GRUPO DE INSTRUCOES, ESTAOPRECEDIDAS POR UM NUMERO.":"9032":"9000" _)9050Z#:"3","92":ڰ"4";"248",ç dI=ç:X="12":Y=:T$="POR AGORA, VAMOS OCUPAR-NOS SODO MODO IMEDIATO.":"9032":I=:X="16":Y=:T$="AGORA "+N$+",":"9032":X="17":Y=:T$="PROPONHO-TE ALGUMAS INSTRUCOESEM PORTUGUES E TU VAIS TRADU-ZI-LAS PARA O BASIC.":"9032" f"9000":4000 nXY=:T$="IMPRIME O TEXTO ""RUN""":O$="""RUN""":"9400":K$O$Q=ç"2000":"110" oQ="110" "5000":"3000":"4000" ~Y=:T$="METE NA VARIAVEL N$ O VALOR DETEXTO ""VIDEOBASIC""":O$="N$=""VIDEOBASIC""":"9400":K$O$Q=ç"2000":"150" Q=150 "5000":"3000":"4000" eY=:T$="METE NA VARIAVEL NUMERICA Z OVALOR 27":O$="Z=27":"9400":K$O$Q=ç"2000":"170" Q=170 "5000":"3000":"4000" Y=:T$="ESCREVE NA MESMA LINHA AS SE-GUINTES INSTRUCOES: METE EM X O VALOR 132 E IMPRI-ME A VARIAVEL X.":O$="X=132:X":"9400":K$O$Q=ç"2000":"190" Q=190 "5000" "9050":ç;"5","3";"TECLA";"9","3";"R REPETIR DESDE O PRINCIPIO";"11","3";"E DESDE OS EXERCICIOS";"13","3";"C CARREGAR VIDEOTEST";"15","3";"F FIM" ="R"ç:"30" ="C"ç:"800" ="E":ç:"95"  ="F" &"510"  "7":ڰ"7": *@Y="9":A$="POE EM MARCHA O GRAVADOR":N="3"̰"28":"9510" 43N>2N<291;Y,N;A$(N-2) >.01z# =,2*N:N HG8,29;" ";9 ,29;" ";10 ,29;" " p ٰ"7":"" ЋI=ç:X="15":Y="12":T$="ERRADO":"9032":I="30"çͰ"-1":.01z# =,I:I:"17","6";M$;"18","6";"esta inexacto!!":"9000": :I=ç̰"9":I,ç;" ":I: =I="12"̰"19":I,ç;" ":I: u"13","6";M$:X="15":Y="14":I=ç:T$="CERTO !":"9032":װ".5","0":װ".5","4":װ".5","8":"75":"4000": #(Y$="PRIME UMA TECLA PARA CONTINUAR ":S$=Y$:I="1"̰"31":#ç;ڰ"6";ٰ"2";ܰ"1";"1",ç;Y$:.001wn,30:"""": #)NY$=S$(I)+S$("1"I):.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" #6H:"10","5";"ESCREVE O TEU NOME NO TECLADO E TECLA " #7CN$:"50"::"10","4";"ESTA BEM ESCRITO ?(S/N)";"8","4";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 #HDN=1̱T$:P;I;X,Y;T$(N):T$(N)" ".001wn,40(: #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: #[a"2":ڰ"7"::"3","3":ڰ"4";"248",ç:ڰ"4";ç,"169":ڰ"4";-"248",ç:ڰ"4";ç,-"169": $A"4000":Q=ç:"3000":I=ç:X="5":"9032":C=ç:F=C:M$="" $"20",;"TECLA ? PARA AJUDA":װ".005","35":N=ç̰"4":N:#ç;"1",ç;M$;۰"1";("75"-"8"*(F="1"));ç;" " $0:A$=:A$="""9402" $fA$="?""15","6";"A TRADUCAO E :";"17","6";ۼ;O$::"9000":"3000":"4000":K$="":Q=: $A$=":"F=0 $L(A$)="13"#ç;"1",ç;" ":9600%: $a((A$)="12"C>ç)C=C-"1":F="1"-(M$(C+"1")>""F="1"M$(C+"1")""F=ç):M$=M$("1"C) $,A$"0"A$"9"M$=M$+A$:C=C+"1":"9401" $H(A$"A"A$"Z")F=çM$=M$+((A$)+"165"):C=C+"1":F="1":"9401" $,A$" "A$""M$=M$+A$:C=C+"1":"9401" $A$=":"F=ç $ "9401" %29501%:N="A""A"+47/:M$:N,M$:N: %"3","7","0","5","5","5","5","15","128","192","0","192","192","192","192","240","8","10","8","10","8","8","13","14","16","16","80","80","80","80","48","176","12","4","5","5","5","5","15","15","96","32","32","32","32","32","224","224" %&O7;3;Y,N;" ";Y+1,N;2;" ";Y+2,N;" ": %0v4,29;" ";5,29;" ";6,29;" ";7,29;" ";8,29;" ": %K$="":N="1"̱M$ %M$(N)" "K$=K$+M$(N) %N: )H#M224Np(#y A A PROGRAMACAO xSPRIME UMA TECLA PARA CONTINUAR Y UMA TECLA PARA CONTINUAR PRIME UTNO MODO PROGRAMA, AS TUAS INS-TRUCOES FICAM ANOTADAS ALGURESNA MEMORIA, E SAO EXECUTADASSUCESSIVAMENTE DE ACORDO COM AORDEM ESPECIFICADA.yCAR 8|Y* ROBERTO$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0 }317997|:10 ,1;6;1;1;" ESTOU CARREGANDO VIDEOTEST ":7:7:0:"":"" TESTE 1  p  EDICOES LATINAS LDA. : t* se interromperes este programa, para continu- ar, nao deves fazer RUN mas sim, GOTO 30 * : f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 ڰ"1":ٰ"7":"1"::"10",1;" ESTOU CARREGANDO VIDEOTEST":"23609","20":23561 \,60<:"23658","8":ټ:"":"":"23606","86":"23607","123" e"""23316":ڰ"7":ټ::"10",ç;ۼ;" PARA O GRAVADOR ":"9040":"200":"9010" "23675","88":"23676","127":P="7":I=ç:Y="4":A$="VIDEOTEST ":"9050":N="2"̰"28":"9510":N>"10"N<"21""4",N;A$(N-"10") ($.03{u\,N*2:N:95200% 2E"23675","20":"23676","91":e$=" " <"9000":"3020"  "9000" "9050":0;"11","6";"TECLA";"14","6";"R REPETIR";"16","6";"C CARREGAR O VIDEOJOGO";"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 do teu";15,1;"SPECTRUM. hte 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>1N<281;Y,N;A$(N-1) >.01z# =,2*N:N HG8,29;" ";9 ,29;" ";10 ,29;" " p ٰ"7":"" ***respoesta 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 33804 :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;"PERGUNTA N. ";w &c=13 :t=2 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 :33804 bw l***puntuacao*** v711 ,1;"A TUA PONTUACAO E ";s;" SOBRE 30." 3620$ d33804 :12 ,2;"MUITO BEM ";n$;15,10 ;i$;17,19;"CORRECTO." 3540 :3160X ERRO 3.5,-20:33804 :i$=""3280 013 ,2;"""";i$;""" estas enganado." 9000(# t=23320 Z33804 :13 ,3;"h resposta correta e:";15,11 ;q$(q,66B) 3160X **AJUDA** 33804 :t=1:Q$(Q,1)<313 ,3;"A RESPOSTA E MUITO CURTA";15,3;"NAO TE POSSO AJUDAR":9041Q#:150:33804 :31200 -13 ,1;"AQUI TENS UMA SUGESTAO:" \15,18;q$(q,66B);b$(3̯q$(q,1));q$(q,65A+q$(q,1)) ,20,7;1;"TENTA DE NOVO" 31200 ****CLS BAIXO*** 4(n=9 20:n,1;e$:n: >***premi tasto*** H9000(#: p***INPUT controlado*** z""3450z =""3460 k$=: ***FUNDO*** <1,1;1;" " >2,1;1;" " <3,1;1;" " <4,1;1;" " 36,1;" " 37,1;" " %t$=" "  ***trafego*** =n=16:.1}L,36$:.05|L,24:n !5,1;t$(w*2)  ***comentario final*** 13 ,4;N$;"," $s<1515,4;"PARA MELHORAR VOLTA A LER";17,11 ;1;"VIDEOBASIC":9041Q#:200:500 .4s>2215,4;"muito bem, optimo!" 8rn=18:.1}L,26:n:a=1:n=14:.15~,26:.1}L,30:n =020,8;1;" prime uma tecla " B5,1;0;7;T$:T$=T$(2)+T$(1):.002xn,30:=""4:.002xn,36$:3650B 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" #6H:"10","5";"ESCREVE O TEU NOME NO TECLADO E PRIME " #7DN$:"50"::"8","4";N$;"10","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: #["2":ڰ"7"::"3","3":ڰ"4";"248",ç:ڰ"4";ç,"169":ڰ"4";-"248",ç:ڰ"4";ç,-"169":8,107k:4;240,0: %&O7;3;Y,N;" ";Y+1,N;2;" ";Y+2,N;" ": %0H4,29;" ";5,29;" ";6,29;" ": *p(#ysx шMA POSICAO DE ????????? ?? ECRAN ? ???????? COM O ... CURSOR  A PARTE FISICA DO COMPUTADOR CHAMA-SE: HARDWARE  TERMO EM INGLES QUE SIGNIFI- CA 'PROGRAMAS' NO GERAL E': SOFTWARE QUAL A SIGLA INGLESA PARA:'U- NIDADE CENTRAL PROCESSAMENTO' CPU  PARA INTRODUZIR DADOS UTILI- ZAM-SE DISPOSITIVOS DE... INPUT  O SEU NOME REPRESENTA UM VALOR GUARDADO NA MEMORIA VARIAVEL  QUAL A SIGLA INGLESA PARA 'MEMORIA DE LEITURA/ESCRITA'? RAM TECLA QUE INTRODUZ UMA INSTRU-CAO DEPOIS DE FINALIZADA ? ENTER  INSTRUCAO BASIC PARA GUARDAR O VALOR DE UMA VARIAVEL ? LET  INSTRUCAO BASIC PARA IMPRIMIR UMA INFORMACAO NO ECRAN ? PRINT  CARACTER QUE DISTINGUE AS VARIAVEIS DE CADEIA (TEXTO)? $  AS INSTRUCOES SE EXECUTAM DE IMEDIATO COM O MODO... DIRECTO  QUE TIPO DE INFORMACAO E UTI- LIZADO AO ESCREVER UMA LETRA? TEXTO QUE TIPO DE INFORMACAO E UTI-LIZADO PARA EFECTUAR CALCULOS? NUMERICA  PARA A SAIDA DE DADOS EMPRE- GAM-SE DISPOSITIVOS DE... OUTPUT  zc taWjwNE T SPRIME UMA TECLA PARA CONTINUAR Y UMA TECLA PARA CONTINUAR PRIME IB ------------N A POE EM MARCHA O GRAVADOR CAR 8|& SOFTIDEA COMO T.031-240.959 $$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >*f0xxx00jJ8*UVR(Tcll~gVIDEO-JOGO<>  EDICOES LATINAS LDA. f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 M"31799":"""31800":236066\,"86":236077\,"123":"23658","8" J"6":ڰ"6"::10 ,6;ں;ٰ"7";ۼ;" PARA O GRAVADOR " /n=30:缧+(*7):.1}L,n:n .level=ç:pp=ç:pc=ç:gp=ç:gc=ç:"400" (:"":15,ç;ۼ;" ESCOLHE O NIVEL DE DIFICULTADE ";20,ç;ç;"Usa as teclas '5'e '8' para des-locar o cursor, e prime 'ENTER'" 2@#0;,ç;" 0123456789 " <level>9 level=9 Flevel<0level=0 P;#0;1,11 +level;1;" " Zp="8".1}L,40(:level=level+1:#0;1,10 +level;1;" ":60< dp="5".1}L,10 :level=level-1:#0;1,12 +level;1;" ":60< n=13 130 x 90Z &:n=039':a:"a"+n,a:n 63?,127,255,255,248,240,240,240,252,254,255,255,31,15,15,15,15,15,15,31,255,255,254,252,240,240,240,248,255,255,127,63?,16,16,16,16,16,16,16,16 5:4: 0,0;0;4;" COMPUTADOR = 00 JOGADOR = 00 ";1,0;" ";21,0;" " Nn=220:n,0;"  ":n 10 ,1;"";11 ,1;"  ";12 ,1;"";10 ,29;"";11 ,29;"  ";12 ,29;"" 131,3:0,160:131,84T,19:59;,84T,12 :204,84T,12 :59;,96`:-502,9 :59;,72H:-502,-9 :204,96`:502,9 :204,72H:502,-9 Ia=8:b=16:a,b;5;0;(65A+(*26)) Nn=1(10 -level)*8:.001wn,20:.001wn,40( (a,b)=()240 n 320@ ow=a:t=b:x=a:y=b:x,y;" ":y=y+3:w=8t=16w=14t=16w,t;"" $>.5x=x-3:270  x=x+3 Qx=11 y=3111 ,30;" ":h=13:.2~L,10 :.3,30:h:11 ,30;" ":pp=pp+1:0,18;4;0;"JOGADOR = ";pp;" ":pp=5gp=gp+1:pp=0:pc=0:n=130:.1}L,n:n:100d:420:150 "x=11 y=31190 "y>28x>20x<2(x=2y=16)(x=20y=16)(x=2y=28)(x=20y=28)240 ,Pa=x:b=y:a,b;5;0;(65A+(*26)):.01z# =,10 6 200 @ow=a:t=b:x=a:y=b:x,y;" ":y=y-3:w=8t=16w=14t=16w,t;"" J$>.5x=x-3:350^ T x=x+3 ^Ax=11 y=111 ,2;" ":h=13:.2~L,20:.3,40(:h:11 ,2;" ":pc=pc+1:0,1;4;0;"COMPUTADOR = ";pc;" ":pc=5gc=gc+1:n=301-1:.1}L,n:n:100d:420:150 h!x=11 y=1190 ry<4x>20x<2(x=2y=16)(x=20y=16)(x=2y=4)(x=20y=4)320@ |Pa=x:b=y:a,b;5;0;(65A+(*26)):.01z# =,10  200 `6:6:0::'''''' " ---KEY-BASKET--- " ''" ora bem" F'" desafio-te para jogares "'" contra o teu SPECTRUM" K#0; " PRIME UMA TECLA " 0=""f=(*7):.1}L,f:f:411 .2~L,20:429 5:5::(23*8),480:8,-8:72H,480:8,-8:(14*8),0:0,79O:-8,8:n=68:n,9 ;3;1;" ":n:n=9 15:n,9 ;2;" ":n:7,11 ;7;3;"pontuacao:";2;7;10 ,10 ;"jogador....";gp;14,9 ;"computador..";gc ygc=518,0;" he! ganhei eu!! ":gc=0:gp=0:9999':429 ygp=518,0;" ha! ganhas-te tu!! ":9999':gc=0:gp=0:429  500 pp=ç:pc=pp:6:6::pp,pp;:'''''' " ---KEY-BASKET---  tecla: 1 PARA AS INSTRUCOES 2 PARA JOGAR 3 PARA CARREGAR O PROXIMO PROGRAMA" Di$=:i$=""ůi$>513ůi$<491.2~L,0:430 ui$="3"0:0::10 ,;7;"poe em marcha o gravador";0:1:"":9999':"" i$="2"40( :i$="1"6:6::''" KEY-BASKET" ;''" O jogo consiste em encestar antes do computador." Ж'" Para o conseguir e necessa- rio premir a tecla corres- pondente a letra que aparece no ecran, no menor tempo que te for possivel." <'" Quer dizer, antes que o com- putador consiga jogar." ֟'" Ganhara o jogo quem primeiro totalizar 5 jogos. QUEM GANHAR 5 SERIES SERA C A M P I A O" ;" TECLA ENTER PARA JOGAR ";a$:1,20: '<n=160<:.01z# =,n:.01z# =,60<-n:n: PevefAabwtx yI2 CAR 8|$ SOFTIDEA(COMO)T.031-240.959 $$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0 317997|:7:7:7:0::23658j\,8:236099\,20:20,0;:""318008|:236066\,86V:236077\,123{ P#0;0,0; " PARA O GRAVADOR " -n=1502:.01z# =,*60<:n ( 1000 * 8990# - SUMARIO 21::90102# 7M.6,21:P$=" no numero 2 ":k=4:9020<# 8<p$="VIDEO HARDWARE: ":K=7:9020<# 9;p$="todos os perifericos ":k=8:9020<# ::p$="do spectrum ":k=9 :9020<# ;=p$="VIDEO BASIC-A LINGUAGEM: ":k=11 :9020<# <<p$="INPUT - LIST - RUN ":k=12 :9020<# ==p$="VIDEO BREAK: ":k=14:9020<# ><p$="conceito de computador ":k=15:9020<# ?=p$="VIDEO BASIC-A PROGRAMACAO: ":k=17:9020<# @<p$="o primeiro programa ":k=18:9020<# K=p$="VIDEO JOGO: ":k=20:9020<# L<p$="Spry Wars ":k=21:9020<# _ 150 d1000:8990#::8994"#:L=10 :v=10 :a$="Ate breve,":3000 :l=16:v=18:a$="VIDEOBASIC.":3000 :9999': 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 LETREIRO  y$=" PRIMA UMA TECLA PARA CONTINUAR ":s$=y$:i=131:#0;6;2;1;1,0;y$:.001wn,30:"""": Qy$=s$(i)+s$(2i):.0004uQX,45-:.0006vIQ,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 #!HOMBRECILLO #"'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&# #& #' QUADRO #(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(#: #;LETREIROS #>> @8Dp| |8H~|>@ƒB<" >