ZXTape! EXERCICIOSV~X  EDICOES LATINAS  f(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$=" ...RECAPITULANDO!":"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 '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)" ".001wn,40(:U +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: ڱ"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" "$lu,u;:T$="BEM, "+N$:"8330":U+U,u;:T$="AGORA ESCREVE AS INSTRUCOESQUE TE SEJAM PEDIDAS.":"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" #.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  $W"E AGORA... VAMOS REVER ALGUNSCAPITULOS SIGNIFICATIVOS DATOTALIDADE DO CURSO.","" $|"PRINT VAL""5-SQR VAL B$*X"""," E UMA DAS FUNCOES MAISCARACTERISTICAS DO SPECTRUM. ASUA POTENCIA E EXCEPCIONAL.","" %"LET B=SGN 3+4","SE FALTAM OS PARENTISIS, CADAFUNCAO AFECTA APENAS O ARGU-MENTO QUE SE LHE SEGUE. ASSIM,A EXPRESSAO SGN(3+4) NAO E VA-LIDA, MAS, NO CASO DE SER,(SGN 3)+4, SIGNIFICA<5>.","" %"INPUT (MES);X","A VARIAVEL ESTA ENTRE PA-RENTISIS E O SEU CONTEUDO SERA COMO UMA MENSAGEMEXPLICATIVA DO . EMTROCA, SERA O ." ,"" %"DEF FN A(X)=X^2","AS FUNCOES DEFINIDAS SAO UMEXCELENTE MEIO PARA SIMPLIFI-CAR OS PROGRAMAS E MELHORAR ASUA LEGIBILIDADE.","" %&"PRINT A$(7, TO 10)","AS MATRIZES USAM-SE EM SUBSTI-TUICAO DE ARQUIVOS. ESTA INS-TRUCAO IMPRIME OS PRIMEIROS 10CARACTERES DO ELEMENTO 7.","" %+L"PLOT A,B:DRAW X,Y","E... NAO DUVIDES DOS GRAFICOSDE ALTA RESOLUCAO !","" %-"REM ROTINA DE BUSCA "," NAO TEM MUITA IMPORTAN-CIA NOS EFEITOS DO PROGRAMA,MAS EVITA ARDUOS TRABALHOS DEINTERPRETACAO.","" %0"" %: INTER %DL"","IMPRIME UM NUMERO A SORTE","ENTRE <0> INCLUIDO","E <1> EXCLUIDO.","" %NB"B$","INTRODUZ EM UMA CADEIA","LIDA POR UM ","" %XO"A3""SIM""","SE E MAIOR OU","IGUAL A 3,","ENTAO IMPRIME .","" %bX"21,31;""*""","IMPRIME UM ASTERISCO NO","CANTO INFERIOR DIREITO","DO ECRAN.","" %lW"X=94-1","INICIALIZA UM CICLO NO QUAL"," TOME OS VALORES","9;8;7;6;5;4.","" %vN"","QUE INSTRUCAO CONCLUI","CADA SUBROTINA EM LINGUAGEM"," ?","" &G"" zu "eac  NA #xC"B 21,31;"*"T DO ECRAN.CAR EXER |n."$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >\),0:(23613=\+256*23614>\+1),0 l236066\,0:236077\,60<:0:0:1:31700{:23624H\,0:"" >9 '''" estou carregando ""VIDEOBREAK"" "'''''''':"" ""16384@+32 *64@:2,0;9 ;" PARA O GRAVADOR ! ! ! ! ! ! !"'" " 2;6;10 ,21;"LASTIMO";11 ,21;"QUE SEJA";12 ,20;" O ULTIMO";13 ,21;"NUMERO." (M236066\,86V:236077\,123{:23624H\,7:A=0 2h1:0:::::::::::::::::::::::::::::::::::::::::A=A+1:7:A1000502 F>0:2,0;" " Xb0:0:0:9 ;1;0,2;" POE EM MARCHA O GRAVADOR ! ":"" a/CAR BREAK 8|O $$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >(?`>`0P@<<>B<0~ qB?@ P`@BBBB  JB@B@B0@@@B@BB_<@ FBB@DB! @#@ 0?@@P~B<>BB @<<~<~B8 ~~<~>B<>@@B 8@H`0  |@/@@`#pUf UUUPU`UUUUU2UXUcUUUpUUTUUVUUUUUUUUU_UUP?UXʱ ꪪ0=ʪ>x~<!j|<<><@UUQ(UUUH@U`Q@UUsUUT?ՁUg9UUUHUc d`cUUUUUVU UUUUUUׁcc` bUYUPp`a 檪?>9ʪc b|cꪪj|c< ` ꪭ  UU\pcUUUUH05UPUUqUUVՁ Uc9UUUՁc b`cUUUUUUUU WUU@߁c `UV 8P*ʪ9$ d`cj@ccC b ꪬUUVH'pUUUUbuUXUqUUUU UX9UUUՁ>x~<UUUUUUUU@_UU`_|c<><UT!PP*rj ʪ 8jj@;!GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG8888888888x88xxx8xxxx88xxxxxxxx88xxxxxxxx88xxxxxxxx88xxxxxxxx88xxxxxxxx88xxxxxxxx88xxxxxxx PROGRAMA v`   EDICOES LATINAS  f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 g"31969":z=ç:u=:o="8":"23609","20":"23658","8":"""31970":"23606",z:"23607","124" RR="8150":TX="8330":P=O-U:Z:ڰ"7"::u;"10",z;" PARA O GRAVADOR ":N=z̰"10":װ".01","N*5":N:"200" "23296"="""260" Ҏ:"10","3";"ESCREVE O TEU NOME NO";"3";"TECLADO E PRIME":n$::"10","4";"ESTA BEM ESCRITO ? (S/N)";"6","15-n$/2";u;n$ ="N""210" "S"215 .I=U̱N$+U+U:"23295+I",(""+N$+"")(I)::I 1N$="":i="23297"̰"9e5":¾i""n$=n$+¾i:i  "1000" *#Z;Z,u;U;"K":w$=" ":j=uuz:z:a$=¾"23560":װ".01",o:a$="13"װ".1","32":b$="":w$=w$+t$("3"):j=u̱w$:b$=b$+(w$(j)w$(j)" "w$(j)""):j: 0+"23617",Z:a$=°"14""23617",u:"890" 4(a$="12"ƱW$-uw$=w$(̱w$-u):"890" >J(a$>"A"a$"z"w$(w$)"9"w$(w$)"0")w$(w$)=""a$=(a$+165) Cw$=w$+(a$a$" ") z#u;z,z;w$;u;"K";z,,:j   MAIN  lm=u: Lh"8400":"4","10";"VIDEOBASIC":a$="A PROGRAMACAO":YP="6":XP="7":L=U+U+U:YP,XP;a$:"8410" ~-12 ,u;:"8300":RR:"8400":"8300" A$,B$:1360P  PHASE 1 -7,z;:lm="16-(T$/2)":tx:'':lm=u ( :"8300" 2/13 ,9 ;"- - - - - -"''':150 < "8300" P.RR:"8400":T$:T$9000(#:1300 Yj=zu:"8400":LM=U:t$=("Aqui a parte de C/M"j)+("... esta e a traducao"j):tx 4<"9580":i=ṵ"5":a$,b$,t$:"i*3+4",u;u;a$;:jt$=b$ lm="17":tx:i:RR:j %LM=U:"9600":"8400":"8300":RR GRAFICOS 5st=Z:b=ṵ"4":"9640":i=z̰"21":o;i,"17",:i bɰ"4":"127",z:z,"175" }BU"21",z;u;"I:VAR.CONTR. X:VAR.AUXIL.";Z,Z;" 62,2,205,1,22,58,8,92,215,201","20","17";" CM: 30000", lm="17" I=Ṵ"1E3":T$ GT$(u)="0"xp="t$(2)-48":yp="t$(3)-48":YP,XP;bɰ"3";T$("4") !T$(U)="#"t$(u)="<"9100# >ER=U Hb="4"T$(U)="2"IST"":800 :u,"18",:b$(̱b$/2)b$(b$/2+u)U,"18";U;"ERRO !":U,-o-o:"150":ER<"3"u,"18";U;"OUTRA VEZ!":"100":U,"18",:ER=ER+u:"3400" RER="3"LM=U:T$="TALVEZ SEJA MELHOR VOLTARES ALER O PROGRAMA, E TENTA DENOVO.":8400 :TX:RR:ST=I:b=u:"3900" zTt$(u)="1292"(B)y="t$(u+u)-48":y,"17";:t$=t$(3):tx:BU9050Z# T$(U)="*"b=u"9050" 7I="15""102","100":"8",Z:Z,"16":"-13",Z 4I="30""97","20":"8",Z:Z,"40":"-8",Z tT$(U)"%"i ~#b=U+Ulm=u:rr:"8400":"8300" Bɰ"3""":RR <b PLM=U::Z,Z;"BEM, "+N$,,,,"AGORA INTRODUZ E OBSERVACOMO CADA TECLA QUE PRIMES APA-RECE NO ECRAN SEM USAR .",,:Z:"R""3920" n:i=ṵ"20":Z:;:I h:#z;u;" INTRODUZ PARA TERMINAR",:Z:"F""3950" $T$:T$4900$ %"8400":LM=U:"8300":RR:"8400" 07,U;:LM=6:T$="ESCOLHE, "+N$:TX 11 ,6;"C CARREGA A";12 ,O;"PARTE SEGUINTE";13 ,6;"I INTRODUCAO";15,6;"E EXERCICIO" #0:A$=:A$="I"1000 A$="E"3000  A$="C"8000@  5110 @#:A$=" POE O GRAVADOR EM MARCHA " J8I=Z̰"29":װ".05","2*I":o,i;" @";i;" ~|";i;" \]" ^'i>"2"i<"29"U;O,i;A$(i-2) hi rG8,30;" ";9 ,30;" ";10 ,30;" " | 7:"" 'Y$=" PRIME UMA TECLA PARA CONTINUAR " N#0;6;2;1;1,0;Y$:.001wn,30 KY$=Y$(2)+Y$(U):.0004uQX,45-:.0006vIQ,557:""  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 l!T$:T$8330 :8300l v 0O:o:o+u:t$(u)=""p=t$(u+u):t$=t$("3") C=Z:U;lm; Hn=u̱t$:C=C+U:P;T$(N)t$(n)"";:T$(N)" ".001wn,40(:U "t$(n)=""c=z:u;lm;:"8390" (T$(N)=".".1}L,30:20 C=30C=Z:U;lm; N:Z:P=o-u: ЂPL=4:XL=248:YL=169:2:7::U+U,U;:3,3:PL;XL,Z:PL;Z,YL:PL;-XL,Z:PL;Z,-YL: rYG="(21-YP)*8-2":YS="L*8+3":XG="XP*8-4":XS="6+8*a$":XG,YG:XS,Z:Z,YS:-XS,Z:Z,-YS:U,-U:XS,Z:Z,YS: !4 t$:ñt$ !9Qt$(u)="t"yp="t$(3)-48":lm="t$(2)-48":xp=lm:yp,u;:T$=T$(4):tx !>t$(u)="<"T$(U)="#""9100" !C "8500" #(DYP=4:XP=4:U+U,XP;A$;YP,XP;B$:xs=a$:8410 : #Z)"200"B>"2":j=Ṵ"19":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": # # DATA $e"BEM, "+N$,"VAMOS AGORA ESCREVER UM PRO-GRAMA QUE ACEDA DIRECTAMENTEAO SISTEMA OPERATIVO.","" $"EFECTUAREMOS UMA OPERACAO DEIMPRESSAO NO ECRAN NAO USANDO.FAREMOS ENTAO UMA ROTINA EXISTENTE NA . ISTO E MUITO UTIL PARA PROGRA-MAS EM C/M QUE OBVIAMENTENAO DISPOEM DE .","" $2" UTILIZEMOS O "," SISTEMA OPERATIVO" $?"11 - FASE DE PREPARACAO ","QUE ELEMENTOS NECESSITAMOS?","" $|"Necessitamos duma parte BASICe duma rotina em C/M. O C/M eintroduzido atraves de linhasDATA com um ciclo FOR-NEXT.","" %>"22 - FASE INTERMEDIA ","PARA QUE SERVE A ROTINA C/M ?","" %0"Situa no registo do Z80 atecla premida (LASTK). ExecutaRST 10, e decerto, um CALL arotina de impressao do sistemaoperativo.","" %D6"43 - FASE DE OUTPUT","COMO OBTER O RESULTADO ?","" %N" espera a pressao deuma tecla; RANDOMIZE USR.....chama a rotina C/M que por suavez faz um CALL ao sistemaoperativo.","","" %l"LD A,2","Prepara o regpara...","62 2","CALL 1601","...activar ocanal de dis-play","205 1 22","LD A,(23560)","Premir LASTK(ultima tecla)","58 8 92","RST 10","Chama a ro-tina de im-pressao","215","RET","Retorna","201" %p"AGORA, "+N$,"TRANSFORMAREMOS A ANALISEANTERIOR NUM FLUXOGRAMA E SE-GUIDAMENTE EM INSTRUCOES ." %"" %GRAFIICOS %"172 PREPARACAO " %q"042RESERVA ","#810","221029999","044INICIAL.","045CICLO I","#823","2420I=3000030009","047MEMORIZ.","#813" %}"2630X","2740I,X","049FECHA I","<813","2950I","04;LINHAS ","04ESPERA ","#810","2>700","04@EXECUTA ","04AROT. C/M","#823","2@8030000","04CREPETE ","#813","2C9070" % "*1 ","% " %"BEM, "+N$+"TENTA ESCREVER O PROGRAMACOM BASE NO FLUXOGRAMA. LEMBRA-TE NUMERAR AS LINHAS DE10 EM 10 A PARTIR DE 10." %"" &"BEM, "+N$+"ESTE PROGRAMA SERVIU PARADEMONSTRAR COMO SE ACTUA DI-RECTAMENTE NO SISTEMA OPERATI-VO. PODES AGORA APROFUNDAR OSTEUS CONHECIMENTOS NESTEAPAIXONANTE CAMPO." &4"" zuo p [[lcNA UTILIZEMOS O B SISTEMA OPERATIVOY PRIME UMA TECLA PARA CONTINUAR TAqui a parte de C/MCAR PROG |Q,#$$$~$$~$$$~$$~$~~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 A CARREGAR TESTE ":"23609","20":"23658","8":ټ:"":""31970|:"23606",ç:"23607","124":""Q$():""16384@,2048 2:"":DISP=(23636T\*256+23635S\-23755\):copy=23760\+DISP:cls=23772\+DISP:attr=23813]+DISP:SCROLL=23828]+DISP eڰ"7":ټ:9550N%:attr:"15",ç;" PARA O GRAVADOR ":"9040":"200":"9010" kP="7":I=ç:Y="14":A$="VIDEOTEST ":"9050":N="2"̰"28":"9510":N>"10"N<"21"y,N;A$(N-"10") ($.03{u\,N*2:N:95200% <"9000":"3020"  "9000" "9050":ATTR:0;"11","6";"PRIME";"14","6";"R REPETIR";"16","6";"C CARREGAR O VIDEO-JOGO";"18","6";"F FIM" ="R"0:"30" ="C"0:"800" ="F"33804 :5,14;"FIM";13 ,1;"Guarda a cassette na sua caixa";14,1;"e desliga a alimentacao ao teu";15,1;"SPECTRUM. ATE BREVE,";19,18;"VIDEOBASIC":5,0: &"510"  2:7:0: %3,6;"AGORA VAMOS CARREGAR"'" O VIDEO-JOGO"''" MAS ATENCAO, HOJE VAI SER "''" DIFERENTE DO COSTUME !"'''" PRIMEIRO VOU APAGAR-ME!"'" DEPOIS SO E PRECISO QUE FACAS"''" LOAD""""ENTER " (\17,8;"E SEGUIDAMENTE",19,0;"  POE O GRAVADOR EM MARCHA " *R#0;" PRIME UMA TECLA PARA EXECUTAR ":0:1,30: 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=10 :B$="------------" ,Y(10 ):q=110 :y(q)=q:q \q=110 :12 ,11 ;q$(q,66B):20:.2~L,(q+10 ):q 9050Z#:3490 ***bloco principal*** .w=110 :z=(*x+1):q=y(z)  x=x-1 n=zx:y(n)=y(n+1):n -15,1;5;"PERGUNTA N. ";w &c=13 :t=2 +II=1:PP=5 0g17,1;q$(q,231);18,1;q$(q,32 61=):"RESPOSTA = ";i$ : i$="" D7i$q$(q,66B65A+q$(q,1))3250 Ns=s+t:3220 X3400H :9050Z# bw l***pontuacao*** {719,1;"A TUA PONTUACAO E ";s;" SOBRE 20." 3620$ 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,5;"NAO POSSO AJUDAR-TE":9041Q#:150:9050Z#:31200 -13 ,1;"AQUI TENS UMA SUGESTAO:" \15,18;q$(q,66B);b$(3̯q$(q,1));q$(q,65A+q$(q,1)) )20,10 ;0;"OUTRA VEZ" 31200 * ***CLS*** 4 9550N% >***prime tecla*** H 9000(# p***INPUT controlado*** z""3450z =""3460 k$=:  VISUALIZACAO BLOCO :YY=(*2)*4:XX=(*5)*6+1 (YY,XX)183550 1;II;PP;YY,XX;" ";YY+1,XX;" ";YY+2,XX;" ";YY+3,XX;" ":YY=4YY+4,XX;II;PP;1;" "  ***comentario final*** 13 ,4;N$;"," $s<10 15,4;"PARA MELHORARES LE DE NOVO";17,11 ;1;"VIDEOBASIC":9041Q#:200:500 .6s>1515,4;"Muito bem, parabens!" 8rn=18:.1}L,26:n:a=1:n=14:.15~,26:.1}L,30:n B!I=0255:SCROLL:I L 500  3650B #(Y$="PRIME UMA TECLA PARA CONTINUAR ":S$=Y$:I=131:#ç;6;2;1;1,ç;Y$:.001wn,30:"""": #)QY$=S$(I)+S$(1I):.0004uQX,45-:.0006vIQ,557:"""": #* I:"9000" #2."23296"="127"N="23297":N$="":"9012" #3 "9014" #4N="127""9020" #5N$=N$+¾N:N=N+"1":"9012" #6S9550N%:"10","5";"ESCREVE O TEU NOME NO TECLADO E PRIME " #7ON$:"50":9550N%:"11","4";N$;"13","4";"ESTA BEM ESCRITO ? (S/N)" #8="N""9014" #9="S"N$=N$+" ":"9019" #: "9016" #;FN="1"̱N$:"23296"+N,N$(N):N:"23296"+N,"127":"23296","127" #< #GP="6":I=0 #H\N="1"̱T$:P;I;X,Y;T$(N):T$(N)" ".001wn,40(:Q=*10 :E=1Q:E #I1Y=Y+1:Y=31Y=1:X=X+1 #JT$(N)="."װ".1","30":"20" #KN:P="7":I=0: #Q N=ç̰"10":װ".01",N*"5":N: #[i"2":ڰ"7":9550N%:"3","3":ڰ"4";"248",ç:ڰ"4";ç,"98":ڰ"4";-"248",ç:ڰ"4";ç,-"98": %&O7;3;Y,N;" {|";Y+1,N;2;" }_";Y+2,N;" []": %0FY,29;" ";Y+1,29;" ";Y+2,29;" ": %N<L=23624H\:CC=(L/8):23820 ],CC*8+CC %XH9 ,0;:cls:21,31;" ":.001wn,30: &H&X=23760\24000]:X,X:X & CAR TEST |X "ROBERTO$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >@><<A`  ?p @ ? x x0x` `    o 0 ` `  @ π xLJ |>~><<<x p8 a ? @  $ H@ H0 B@BB` ~p8 }  C   O@ x@H p B|@B`ax?`0 p | H@   J@@p |@@B?aC`p x VIDEO-JOGOmY0   EDICOES LATINAS  f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 X"23606",ç:"23607","60":"23658","8":"32767"::ç:ç:ç:ç:ç:ܼ:ٰ"7":  P1="8500" " PARA O GRAVADOR "''''"ESTAS EM INFORMATOPOLIS E TENSA OPORTUNIDADE DE ABRIR UMA EM-PRESA NO SECTOR DO MOBILIARIO."''"O JOGO CONSISTE EM TOMAR A GES-TAO DA EMPRESA DURANTE UM MES." P1: "O TEU CAPITAL E': 1.000 MILHOES DE VB(UNIDADE MONETARIA DO PAIS)E POSSUIS AINDA UMA FABRICA QUESERA A SEDE DA TUA EMPRESA." '"DEVES ADMINISTRAR OS TEUS RECUR-SOS E LUTAR CONTRA A INFLACAO, AINCOMPETENCIA, OS CONCORRENTES,ETC."''"TERAS QUE REALIZAR A TOTALIDADE DO PROCESSO DE FABRICACAO."''"BOA SORTE !!!":P1 2CL=ç:PC=ç:PV=ç:TR=ç:T(6):S(6):X=̰"6":A$:S(X)=A$:X:"80","90","60","30","20","6":TV=ç:CO="8100":VE="8E3":PG="8600":G=:CA="1E9":MS=ç:SC=ç:CAG=CA FPG:'"PRIMEIRO TERAS QUE CONTRATARPESSOAL."'"UM TRABALHADOR PEDE 300.000 VBPOR CONTRATO E 8.000 VB POR HORA"'"PORTANTO, TODOS OS DIAS TERAS DEPAGAR AOS TEUS EMPREGADOS !!!" KOY="3E5":"QUANTOS EMPREGADOS CONTRATAS?"'"(0 - ";(CA/Y);")?"'X:CO:"75+R" LOP=X:CA=CA-X*Y:VE PPG:'"DEVES COMPRAR ALGUNS HECTARES DEMATA PARA OBTER A MATERIA PRIMA;CADA UMA CUSTA 500.000 VB. UMEMPREGADO PODE TRABALHAR EM ME-DIA UM HECTAR DE MATA."''"A TRABALHAR NA MATA, TENS ";OP/"2";"."'"(OS OUTROS TRABALHAM NA FABRICA)" UWY="5E5":"QUANTOS HECTARES COMPRAS ?"'"(0 - ";(CA/Y);") ?"'X:Y="5E5":CO:"85+R" VAC=X:CA=CA-X*Y:VE dL="100":LC=ç n"6E3":OP2=(OP/"2") r*>".67"G>2S<"9500"4000 u6G>"1"ƥ>".3"PG:(*9 )*502+4549 xOP2>MSť>".7""1E3" OP2>SCť>".7"1500 >".86"3500 TV<"300"ť>".5"2000 )OP/"4"".7"2500 OP/"4">ACť>".7"3000 CA<"1E8"ť>".7"5000 -CL=CL*(SC>ç):LCçCL=(CL-CL/"100"*LC) pTR1=O*OP2-(OP2/"2"-AC)*2+((S-"8E3")/"50"):MS+SCç)*"1.5") TR1=(TR1/"100"*L):TR=TR+TR1 ^ETV=ç:X=̰"6":T(X)=T(X)-(T(X)>0):TV=TV+(T(X)>ç)*S(X):X hTR/"15"ç):CA=CA-TA CA<ç500 :"CHEGASTE AO FIM DO ";G;"'"'"DIA."''''''"O CAPITAL E AGORA"'"DE VB ";(CA/"1E3");"000."'''"O CAPITAL ANTERIOR ERA"'"DE VB ";(CAG/"1E3");"000." !''"RESUMO DO ";G;"'"'"DIA:":P1 Z:X=CA-CAG:X=X*(X>ç):::"VENDAS EFECTIVAS ";CL;" SALAS"'"PRECO DUMA SALA: VB.";PS ="TRABALHADORES: ";OP'"HORAS POR INDIVIDUO:";O'"SALARIO:VB. ";S'"DESPESAS VARIAS: VB ";L'"MOVEIS PRODUZIDOS: ";TR1'"MOVEIS EM ARMAZEM: ";TR'"ALIMENT./DESLOC.: ";PV;" MILHOES"'"CONT./IMPOSTOS: ";(TA/"1E6");" MILHOES"'"MOTOSERRAS: ";MS'"SERRAS CIRCULARES: ";SC'"HECT. DE MATA: ";AC (CAG=CA:P1:G=G+:G<"31"100d :"AGUENTAS-TE ATE' ";G;"'"'"DIA E..."'':VE:''"AINDA POSSUIS ";((OP*"3E5"+"4E5"*(MS+SC)+"5E5"*AC+TR*"8E3")/"1E6");" MILHOES"'"CONVERTIDOS EM MOTOSERRAS, MATA,ETC..." :''''" QUERES VOLTAR A JOGAR (S/N) ?":0:="S" &>:''''''"  POE EM MARCHA O GRAVADOR  ":ç:ç::"" pg:''"TENS ";OP2;" EMPREGADOS QUE TRABALHAM"'"NA MATA."'"TENS "'MS;" MOTOSERRAS."''"SE QUERES COMPRAR MAIS, O SEUCUSTO E DE 400.000 VB CADA." @"QUANTAS (0 - ";(CA/"4E5");") ? ";X:Y="4E5":CO:"1020+R" MS=MS+X:CA=CA-X*Y:VE  pg:''"TENS ";OP2;" EMPREGADOS QUE TRABALHAM"'"NA FABRICA"'"E AINDA"'SC;" SERRAS CIRCULARES."'"SE DESEJAS ADQUIRIR MAIS, O SEU CUSTO E DE 400.000 VB CADA." @"QUANTAS (0 - ";(CA/"4E5");") ? ";X:Y="4E5":CO:"1520+R" SC=SC+X:CA=CA-X*Y:VE  mPG:'"DEVES AUMENTAR A TUA ACTIVIDADEPUBLICITARIA E INFORMAR-TE DOCUSTO DA PUBLICIDADE NA TELEVI-SAO." "(NAO MAIS DE 9)" E''" TV. # CUSTO #NUM.#ADQUIS. #MILHAO.#SPOT#NOVOS"'' ('"TVB 1.........80....";T();"......" )"TVB 2.........90....";T("2");"......" )"CANAL 5.......60....";T("3");"......" )"BIT 1.........30....";T("4");"......" )"RED 4.........20....";T("5");"......" )"TELEVB.........6....";T("6");"......" 4h:X=16:"12"+X,27;޼;" ";"21",ç;ç;"CAPITAL: ";(CA/"1E6");" MILHOES" >A$=:A$<"0"A$>"9""2110" H"(A$+"*1E6")*S(X)>CA2400` R(T(X)=T(X)+A$:CA=CA-S(X)*("1E6*"+A$) \."12"+X,27;A$:"12"+X,20;T(X)  X::VE: `DPG:'''"O TEU CAPITAL NAO TE PERMITEMAIS ANUNCIOS !!!"'':VE: ΞPG:''"PODES CONTRATAR NOVO PESSOAL."'"UM EMPREGADO CUSTA 300.000 VBPOR CONTRATO E NAO TE ESQUECASDE EFECTUAR O PAGAMENTO DIARIO A8.000 VB A HORA." vY="3E5":"AGORA TENS ";(OP);" EMPREGADOS."'"QUANTOS EMPREGADOS CONTRATAS ?"'"(0 - ";(CA/Y);")? ";X:CO:"2520+R" OP=OP+X:CA=CA-X*Y:VE: :PG:'"PODES COMPRAR MAIS HECTARES DEMATA."'"UM HECTARE VALE 500.000VB.UM EM-PREGADO TRABALHA EM MEDIA UMHECTARE DE MATA."'"TU TENS AGORA ";AC;" HECTARES E ";(OP/2)'"EMPREGADOS QUE TRABALHAM NA MATA" NY="5E5":"QUANTOS HECTARES(0 - ";(CA/Y);")? ";X:Y="5E5":CO:"3030+R" AC=AC+X:CA=CA-X*Y VE: O=O/2::PG:''''"HOJE A CHUVA IMPEDE QUE OS EM-PREGADOS TRABALHEM NA MATA,ASSIMESTES VAO PARA CASA."'"ISTO LIMITA A PRODUCAO.":L=0:LC=502:P1: f:PG:'''"HOJE HA' FOLGA."'"A ACTIVIDADE PARA, PORTANTO OSCLIENTES IRAO COMPRAR NA CONCOR-RENCIA." 7L=0:LC=(502+*20):O=0:P1: ;X=(TR/"3"):''"ESTA NOITE ROUBARAM-TE ";X;" MOVEIS" qTR=TR-X:CA>"1E8""GASTAS 50 MILHOES NUM SISTEMA DE ALARME."'''"EM VEZ DE";TR;" MOVEIS E":CA=CA-"5E7":VE: P1:  *aX=(MS/"3"):MS=MS-X:PG:'''"O COMBUSTIVEL FALTOU ";X'"MOTOSERRAS....SAO PARA RETIRAR.":P1: \CA<"2E7"4750 fX=(OP/20):'''"UMA EXPLOSAO CAUSOU A BAIXA DE";X;" EMPREGADOS."''"ISSO IMPLICA UM GASTO DE"'"10 MILHOES EM ASSISTENCIA.":CA=CA-"1E7":VE:OP=OP-X: P''"UMA EMPRESA ALEMA OFERECE A TUAFIRMA 50 MOTOSERRAS.":P1:MS=MS+502: CA<"3E7""4850" l'''"E PRECISO QUE SE RENOVEM AS INS-TALACOES DA EMPRESA."''"O GASTO E' DE 20 MILHOES.":CA=CA-"2E7":VE: c''''"A TUA FIRMA GANHOU UM CONCURSO ERECEBE 50 MILHOES EM MOEDAS DEOURO."'':CA=CA+"5E7":VE: $CA<"4E7"4850 VJAC=AC+100d:''''"HERDASTE DUM AMIGO 100 HECTARESDE TERRENO.":P1:  vPG:''"A TITULO DE PROMOCAO,VAIS OFERE-CER VIAGENS/ESTADIAS NO ALGARVE."''"AGORA GASTAS ";PV;" MILHOES POR"'"DIA." @"QUANTO (EM MILHOES 0 - 50) ?"'PV:PV<çPV>"50"5020  pPG:>".8"PCç6100 upPC=(*"100"+"100")*"1E4":''"O PRECO MEDIO DUMA SALA, NA CON-CORRENCIA,E' DE"''"VB ";PC/"1E3";".000." z8"QUAL E'O PRECO DE UMA DAS TUAS"'"SALAS ? (EM VB) ";PS q:PG:''"QUANTO PAGAS POR UMA HORA DETRABALHO DUM EMPREGADO ?"''"O MINIMO FIXADO PELO SINDICATO E8.000 VB." )"QUANTO ? ";S:S<8000@6110 8CL=(CL/"2"+"7"*PV+"10"+(TV/"3")^"1.4"+(PC-PS)/"4E3"+op/"25"):CL=CL*(CL>0)+(CL<"3E6"):O=6+(*(S-"8E3")/"100"):O>"15"O="15"  @4CA>"1E6"A$=(CA/"1E6")+" MILHOES":8010J EA$=CA J*'"O CAPITAL E AGORA"'"DE VB ";A$:P1: X=X:R=(X<çX*Y>CA): !4N#1;1;" PRIME UMA TECLA ":1:0:"": !!:0,0;"DIA ";G: 4!G!!PZ<^P@!g7@5"a2@yCPrp5ld-sop8rVA 323 MILHOESWVIDEOEND ^#   EDICOES LATINAS  f(23613=\+256*23614>\),0:(23613=\+256*23614>\+1),0 317997|:7:7:7:0:0:0::23658j\,8:236099\,20:""318008|:236066\,86V:236077\,123{ 23570\,6:23675{\,88X:23676|\,127:1::#0;0,0; " PARA O GRAVADOR " [23624H\,579:n=1502:.01z# =,*60<:n:1000:8990# - SUMARIO 7[:90102#:.6,21:K=11 :P$="AQUI FINALIZA VIDEOBASIC ":9020<# <9K=13 :P$="MAS COMECA PARA TI..... ":9020<# f#100d:1000:502: hO8994"#:A$="A EPOCA DA INFORMATICA!!!":L=10 :V=3:3000 m]A$="FELIZ PROGRAMACAO!":L=12 :V=(32 -A$)/2:1:3000 :0 nNn=1502:.01z# =,*60<:*7:n:2000:0 ,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-:.0001sQX,557:"""": i:1000 Мy$=" PRIME UMA TECLA PARA COMECAR!! ":s$=y$:i=131:#0;1;5;1;1,0;y$:.001wn,30:"""": Qy$=s$(i)+s$(2i):.0004uQX,45-:.0001sQX,557:"""": I:2000 ROTINA MAQUINA DE ESCRVER Zl,v;"";:q=1̱a$:a$(q);:a$(q)" ".0005vn,40(:m=1̥*5:m 4a$(q)=".".2~L,0:23692\,255 q: #LE OS UDG #4:8991#:n=063?:a:"a"+n,a:n: #00,31,16,16,18,16,16,491,0,240,8,8,72H,8,8,204,80P,144,63?,32 ,63?,2,2,2,10 ,9 ,252,4,252,64@,64@,64@,2,4,4,8,8,568,121y,1,64@,64@,64@,64@,64@,64@,192,192,2,2,2,2,2,2,14,62>,64@,64@,124|,12 ,12 ,4,4,0 #!HOMENZINHO #"&n=302-1:8 #$t(n/2)=(n/2)17,n;" ";18,n;" ";19,n;" ":.01z# =,30:n:8998&# #%Z17,n;" ";18,n;" ";19,n;" ":.01z# =,40(:n:8998&# #& #'ENQUADRO #(aa,bb;p$:aa=(21-aa)*8-2:bb=bb*8-2:cc=p$*8+4:bb,aa:cc,0:0,12 :-cc,0:0,-12 :bb+1,aa-1:cc,0:0,12 : #2B9999':AA=1:BB=11 :P$="VIDEOEND":9000(#: #FYn=1̱p$:k,31-n;p$(N):.002xn,(k-3)*n/8:n:K=K+1: 'a0,0:255,0:0,175:-255,0:0,-174: F#S PRIME UMA TECLA PARA CONTINUAR Y IME UMA TECLA PARA CONTINUAR PRIaVDk PMAS COMECA PARA TI..... CAR END 8|ۀ #$$$~$$~$$$~$$~$~~bd&F(D(Zz  >>> @8Dp| |8H~|>@ƒB<" >