thegoodfellas/blogset-br huggingface dataset:
Musica, alegria, imitacoes e boas historias sao a receita para combater o mau humor. E nesta terca-feira, 2 de agosto, a partir das 18h30, no Teatro Sao Joao.Acao da Secretaria de Cultura do Estado (lei numero 13.811, de 16 de agosto de 2006) e apoio cultural da Coelce e da Prefeitura Municipal, a segunda edicao do TERCA DE GRACA em Sobral apresenta o show de Alex Nogueira, renomado humorista cearense, mestre nas imitacoes e na arte de fazer rir. OProjeto tem a Direcao Geral e e uma criacao do humorista sobralense Bene Barbosa. TALENTO DESDE CRIANCADesde os 8 anos de idade o dom de fazer rir acompanha Alex Nogueira; a familia e os amigos brigavam para ter sua companhia nas ferias escolares. Desde garoto, ja contava piadas e imitava pessoas e personagens como um verdadeiro profissional.Aos 17 anos, cantou na noite, fez musicas imitando vozes de cantores conhecidos... Ao perceber que agradava, passou a contar piadas. Tinha inicio, assim, seu primeiro show humoristico. Alex ganhou destaque nacional no Programa Show do Tom (Record); depois venceu o quadro Quem Chega La, do Domingao do Faustao.Em seu espetaculo, ele interpreta de cara limpa, intercalando imitacoes de personalidades, cantores nacionais e internacionais; tambem conta anedotas e causos vividos por personagens criados pelo proprio humorista.UM PROJETO DIFERENTENa primeira versao do Projeto em Sobral, no ano de 2013, o publico superou os 10 mil espectadores. Bene Barbosa explica que o TERCA foi especialmente estruturado, em 2016, para comportar os aspectos Inovador, Social e Cultural. Ao todo, sao 13 espetaculos e, nos finais de semana, 8 oficinas.SERVICOTerca de Graca 2016 em SobralShow de Alex NogueiraTeatro Sao Joao18h30Entrada gratuita Nossa praia e humor! O consagrado artista, criador do hilario personagem Tizil - das Garras da Patrulha, se apresenta noNAEC Nucleo de Arte, Educacao e Cultura a partir das 18h, levando a populacao da regiao e turistas do mundo todo o melhor humor feito no Brasil. Acao da Secretaria de Cultura do Estado (lei numero 13.811, de 16 de agosto de 2006) e apoio cultural da ENEL e da Prefeitura Municipal, a edicao 2017 do TERCA DE GRACA de Jijoca de Jericoacoara apresenta o talento, a irreverencia e a alegria de Ery Soares, o Tizil da televisao. O Projeto, de entrada gratuita, tem a Direcao Geral (e e uma criacao) do humorista sobralense Bene Barbosa (Papudim). O CRIADOR DA CRIATURAEry comecou a carreira artistica fazendo apresentacoes em casas de shows e pequenos teatros de Fortaleza. Logo depois fixou-se como produtor, redator e humorista da Radio Cidade FM, trabalhando ao lado de grandes nomes do humor local e nacional: Rossiclea, Adamastor Pitaco, Skolastica e Wellington Muniz (o Ceara do Panico). Foi tambem humorista e produtor da radio O POVO CBN e da Radio e TV Jangadeiro. Atualmente, faz o Ceara inteiro se abrir pelo Sistema Verdes Mares (programa Nas Garras da Patrulha). Esteve nos principais programas da TV brasileira, como Tom Cavalcante, O Melhor do Brasil. Finalista do Domingao do Faustao da Rede Globo, foi eleito o melhor humorista do Estado em 2012. Agenda sempre lotada de espetaculos. A propria criaturaO
personagem Tizil e um fenomeno, tem milhares de acessos nas redes sociais. O sucesso e tanto que virou ate musica. O cara que projeta maravilhosamente e sempre se da mal. Portal da Molecagem CearenseCriado e coordenado pelo humorista-empreendedor Bene Barbosa (Papudim), o Terca de Graca representa e mantem viva a historica gaiatice cabeca-chata, dos patriarcas (Quintino Cunha e Paula Nei) aos ilustres de agora (Tom Cavalcante e Falcao). Vamos qualificar os novos talentos do humor, com atencao especial as mulheres, e tambem das artes relacionadas. E inovar com a criacao do nucleo de teledramaturgia para a TV, considera Bene, que ensina: Somos de uma geracao de excelencia, acostumamo-nos com o que e bom. ServicoTerca de Graca 2017 em Jijoca de JericoacoaraEry Soares, o Tizil das Garras na PatrulhaNAEC Nucleo - Rua Vereador Edva Esmerino, No 5, Jijoca de Jericoacoara -CE05 de setembro de 201718h30Entrada gratuita
Valorizando a nossa culturaApresentacao acontece nesta terca-feira, dia 26 de julho. A partir das 18h30, no Teatro Sao Joao. Para se encantar, refletir e rir!Acao da Secretaria de Cultura do Estado (lei numero 13.811, de 16 de agosto de 2006) e apoio cultural da Coelce e da Prefeitura Municipal, a segunda edicao do TERCA DE GRACA em Sobral apresenta o artista Rafael Brito, com o show Os Bordadores de Estorias, um resgate da cultura tradicional nordestina em forma de poesia. O Projeto tem a Direcao Geral e e uma criacao do humorista sobralense Bene Barbosa. OS BORDADORES DE ESTORIAS DO RAFAEL BRITOUma colcha de retalhos da lindissima Cultura Popular Nordestina, e essa a essencia do espetaculo, composto de poemas, musicas e estorias que resgatam um pouco as nossas raizes. Trata-se de uma mostra limpa e pura do fazer, pensar e agir regional. Nosso modo de falar, nossas manias, nosso jeito simples de ser, tudo isso e mostrado nesse show, de modo a incentivar cada vez mais a divulgacao e a valorizacao do que e e sente a gente nordestina.MAIS: Um refinado espetaculo em que sao apresentados poemas e cancoes autorais fortemente marcadas pela influencia dos tradicionais menestreis. A ideia e manter viva a nossa linda cultura, valorizando o que temos de bom, e mostrando para o Brasil e o Mundo o quanto somos ricos naquilo que somos, tempera Rafael.UM PROJETO DIFERENTENa primeira versao do Projeto em Sobral, no ano de 2013, o publico superou os 10 mil espectadores. Bene Barbosa explica que o TERCA foi especialmente estruturado, em 2016, para comportar os aspectos Inovador, Social e Cultural. Todos os espetaculos do ano em curso tem a casa lotada. Ao todo sao 13 espetaculos e, nos finais de semana, 8 oficinas.SERVICO Terca de Graca 2016 em Sobral Os Bordadores de Estorias com Rafael Brito Teatro Sao Joao 18h30 Entrada gratuita Nascomemoracoes dos seus 243 anos, a Princesa do Norte recebe o hilario personagemTizil (Garras da Patrulha). E terca-feira (5/7), a partir das 18h30, no TeatroSao Joao.Acaoda Secretaria de Cultura do Estado (lei numero 13.811, de 16 de agosto de 2006)e apoio cultural da Coelce e da Prefeitura Municipal, a segunda edicao do TERCADE GRACA em Sobral apresenta o talento e a alegria de Ery Soares, oTizil da televisao. O Projeto, de entrada gratuita, tema Direcao Geral (e e uma criacao) do humorista sobralense Bene Barbosa (Papudim).OCRIADOR DA CRIATURAErycomecou a carreira artistica fazendo apresentacoes em casas de shows e pequenosteatros de Fortaleza. Logo depois fixou-se como produtor, redator e humoristada Radio Cidade FM, trabalhando ao lado de grandes nomes do humor local e nacional:Rossiclea, Adamastor Pitaco, Skolastica e Wellington Muniz (o Ceara do Panico).Foi tambem humorista e produtor da radio O POVO CBN e da Radio e TV Jangadeiro.Atualmente, faz o Ceara inteiro se abrir pelo Sistema Verdes Mares (programaNas Garras da Patrulha). Esteve nos principais programas da TV brasileira, como Tom Cavalcante, O Melhor do Brasil; por ultimo, foi finalista do Domingao do Faustao da Rede Globo. Ery foi eleito o melhor humorista do Estado em 2012. APROPRIA CRIATURAOpersonagem Tizil e um fenomeno,
tem milhares de acessos nas redes sociais. O sucessoe tanto que virou ate musica. UMPROJETO DIFERENTENaprimeira versao do Projeto em Sobral, no ano de 2013, o publico superou os 10mil espectadores. Bene Barbosa explica que o TERCA foiespecialmente estruturado, em 2016, para comportar os aspectos Inovador, Sociale Cultural. Serao 13 espetaculos e, nos finais de semana, um total de 8oficinas. SERVICOTercade Graca 2016 em SobralErySoares, o Tizil das Garras na PatrulhaTeatroSao Joao05de julho18h30EntradagratuitaGratopela divulgacao.BENEBARBOSA85- 98879.4037 / 99645.4689www.papudim.com.brshowpapudim@gmail.compapudim@gmail.com
desenvolveram no Brasil, nos ultimos 10 anos, e tambem uma das 30 melhores para se morar, Sobral se orgulha de sua historia e de sua gente; de seus encantos exaltados em prosa e verso; do seu rumo certo, do novo jeito de ser, e por estar cada vez melhor. SERVICOLancamento do TERCA DE GRACA 2016 em SobralDia: 31 de maioHorario: 18h30Local: Teatro Sao JoaoEntrada gratuita
a serultrapassado antes de comecar a viver.Um trabalho nao terminado, umaconta a ser paga...Ai sim, a vida de verdadecomecaria.Por fim, cheguei a conclusao deque esses obstaculos eram a minhavida de verdade.Essa perspectiva tem me ajudadoa ver que nao existe um caminho paraa felicidade. A felicidade e o caminho.Assim, aproveite todos os momentos que voce tem.E aproveite-os mais se voce temalguem especial para compartilhar.Especial o suficiente para passar seutempo.E lembre-se que o tempo naoespera ninguem.Portanto, pare de esperar ate quevoce termine a faculdade;ate que voce volte para faculdade;ate que voce perca 5 quilos;ate que voce ganhe 5 quilos;ate que voce tenha tido filhos;ate que seus filhos tenham saido de casa;ate que voce se case;ate que voce se divorcie;ate sexta a noite;ate segunda de manha;ate que voce tenha comprado umcarro ou uma casa nova;ate que seu carro ou sua casa tenhamsido pagos;ate o proximo verao, outono, inverno;ate que voce esteja aposentado;ate que a sua musica toque;ate que voce tenha terminado seudrinque;ate que voce esteja sobrio de novo;ate que voce morra...E decida que nao ha hora melhorpara ser feliz do que agora mesmo!Lembre-se:"Felicidade e uma viagem,nao um destino."
Bastaria Oooh Meu Deus Era Tudoo Que eu QUERIA ! Ser mulher e viver mil vezes em apenas uma vida, e lutar por causas perdidas e sempre sair vencedora, e estar antes do ontem e depois do amanha, e desconhecer a palavra recompensa apesar dos seus atos.Ser mulher e caminhar na duvida cheia de certezas, e correr atras das nuvens num dia de sol e alcancar o sol num dia de chuva.Ser mulher e chorar de alegria e muitas vezes sorrir com tristeza, e cancelar sonhos em prol de terceiros, e acreditar quando ninguem mais acredita, e esperar quando ninguem mais espera.Ser mulher e identificar um sorriso triste e uma lagrima falsa, e ser enganada e sempre dar mais uma chance, e cair no fundo do poco e emergir sem ajuda.Ser mulher e estar em mil lugares de uma so vez, e fazer mil papeis ao mesmo tempo, e ser forte e fingir que e fragil pra ter um carinho.Ser mulher e se perder em palavras e depois perceber que se encontrou nelas, e distribuir emocoes que nem sempre sao captadas.Ser mulher e comprar, emprestar, alugar, vender sentimentos, mas jamais dever, e construir castelos na areia, ve-los desmoronados pelas aguas e ainda assim ama-las.Ser mulher e saber dar o perdao, e tentar recuperar o irrecuperavel, e entender o que ninguem mais conseguiu desvendar.Ser mulher e estender a mao a quem ainda nao pediu, e doar o que ainda nao foi solicitado.Ser mulher e nao ter vergonha de chorar por amor, e saber a hora certa do fim, e esperar sempre por um recomeco.Ser mulher e ter a arrogancia de viver apesar dos dissabores, das desilusoes, das traicoes e das decepcoes.Ser mulher e ser mae dos seus filhos e dos filhos de outros e ama-los igualmente.Ser mulher e ter confianca no amanha e aceitacao pelo ontem, e desbravar caminhos dificeis em instantes inoportunos e fincar a bandeira da conquista.Ser mulher e entender as fases da lua por ter suas proprias fases. E ser "nova" quando o coracao esta a espera do amor, ser "crescente" quando o coracao esta se enchendo de amor, ser cheia quando ele ja esta transbordando de tanto amor e minguante quando esse amor vai embora.Ser mulher e hospedar dentro de si o sentimento do perdao, e voltar no tempo todos os dias e viver por poucos instantes coisas que nunca ficaram esquecidas.Ser mulher e cicatrizar feridas de outros e inumeras vezes deixar as suas proprias feridas sangrando.Ser mulher e ser princesa aos 20, rainha aos 30, imperatriz aos 40 e especial a vida toda.Ser mulher e conseguir encontrar uma flor no deserto, agua na seca e labaredas no mar.Ser mulher e chorar calada as dores do mundo e em apenas um segundo ja estar sorrindo.Ser mulher e subir degraus e se os tiver que descer nao precisar de ajuda, e tropecar, cair e voltar a andar.Ser mulher e saber ser super-homem quando o sol nasce e virar cinderela quando a noite chega.Ser mulher e ter sido escolhida por Deus para colocar no mundo os homens.Ser mulher e acima de
a essa regra padrao e find(). Uma gravacao nao precisa acontecer quando find() ou getReference() e chamado, porque localizar por meio de uma chave primaria e algo que nao seria afetado por nenhuma atualizacao.Podemos controlar e alterar esse comportamento padrao usando a enumeracao javax.persistence.FlushModeType:AUTO e o comportamento padrao descrito no trecho do codigo anterior. COMMIT significa que alteracoes so sao gravadas quando a transacao e confirmada, nao antes de nenhuma consulta.FlushModeType.COMMIT faz sentido por razoes de desempenho. A melhor maneira de ajustar um aplicativo de banco de dados e remover chamadas desnecessarias ao banco de dados. Algumas implementacoes de fornecedores farao todas as atualizacoes necessarias com uma chamada JDBC em lote. Utilizar COMMIT permite que o gerenciador de entidades execute todas as atualizacoes em um grande lote, limita a quantidade de tempo que a transacao tem nesse bloqueio de banco de dados, mantendo-o somente ate o fim da confirmacao JTA.
configurado, agora vamos criar de fato nosso web service. Crie um novo projeto do tipo Dynamic Web Project normalmente. Um detalhe muito importante que muita gente esquece e que o Axis2 nao da suporte para o Dynamic Web Module 3.0 ou JSP 3.0 como tambem e conhecido, portanto defina o DWM como no maximo 2.5 no momento da criacao do projeto.Com o projeto ja criado, crie um pacote e uma classe qualquer dentro do mesmo. Nesta classe definiremos quais as funcoes estarao presentes no nosso web service.Copie o exemplo abaixo (ridiculamente simples):public int somar(int x,int y){ return x+y;}E importante lembrar que como se trata de um web service os tipos de dados retornados devem ser sempre de tipos primitivos para dar suporte a outras linguagens de programacao acessa-lo tambem. E possivel retornar objetos complexos (objetos) em um web service, mas isso fica para um outro post.Com a classe criada e o metodo tambem criado clique com o botao direito em cima da classe no eclipse e va nas opcoes NEW->WEB SERVICE.Uma nova janela sera aberta e na opcao "Service implementation" deve estar o FQN da sua classe.Procure por "Configuration" e clique no segundo link: "Web service runtime: Apache Axis". Este link vem apontando para o AXIS por default, porem queremos utilizar o AXIS2 entao escolha a opcao AXIS2 e confirme para voltar a tela de configuracoes.Apos esses passos clique em "Next". Na proxima aba na opcao para criar o services.xml mantenha a opcao selecionada e clique novamente em "Next". Na proxima aba se o seu servidor de aplicacao nao estiver no ar, havera um botao chamado "Start server" para inicia-lo. Clique no botao e espere o servidor subir. Clique novamente em "Next" e na proxima aba em "Finish".Pronto, seu web service esta criado. Agora suba seu projeto como um projeto web normalmente para ver como ficou sua estrutura. Quando o projeto subir voce vera uma tela de WELCOME da apache, para verificar o metodo que voce criou dentro do projeto clique em "Services", la estara o nome e os parametros do metodo criado.E importante lembrar que esse web service esta no formato SOAP, portanto deve haver um WSDL (Web Service Discription Language) que e um arquivo de mapeamento dos metodos contidos no web service para a sua classe criada. O lindo do Axis2 e que ele gera automaticamente o arquivo WSDL para voce e voce pode visualiza-lo clicando na opcao "Services" e no nome da sua classe que esta como um link nessa pagina.E isso pessoal, nos proximos posts vou mostrar como consumir esse web service atraves de um STUB e tambem vou mostrar como consumir um web service que utilize tipos complexos. Tambem irei mostrar como consumir esses web services com o Android, entao fique ligado !Abracos !!!
Data: " + new String(uncompressedData)); } catch (Exception e) { System.err.println("An error occurred:"+e.toString()); } } public static void packZip(File output, List<File> sources) throws IOException { ZipOutputStream zipOut = new ZipOutputStream(new FileOutputStream(output)); zipOut.setLevel(Deflater.DEFAULT_COMPRESSION); for (File source : sources) { if (source.isDirectory()) { zipDir(zipOut, "", source); } else { zipFile(zipOut, "", source); } } zipOut.flush(); zipOut.close(); } private static String buildPath(String path, String file) { if (path == null || path.isEmpty()) { return file; } else { return path + "/" + file; } } private static void zipDir(ZipOutputStream zos, String path, File dir) throws IOException { if (!dir.canRead()) { return; } File[] files = dir.listFiles(); path = buildPath(path, dir.getName()); for (File source : files) { if (source.isDirectory()) { zipDir(zos, path, source); } else { zipFile(zos, path, source); } } } private static void zipFile(ZipOutputStream zos, String path, File file) throws IOException { if (!file.canRead()) { return; } zos.putNextEntry(new ZipEntry(buildPath(path, file.getName()))); FileInputStream fis = new FileInputStream(file); byte[] buffer = new byte[4092]; int byteCount = 0; while ((byteCount = fis.read(buffer)) != -1) { zos.write(buffer, 0, byteCount); } fis.close(); zos.closeEntry(); } public static void unzipFile(File arquivoZip,String pastaDestino) throws Exception{ FileInputStream fin = new FileInputStream(arquivoZip); ZipInputStream zin = new ZipInputStream(fin); ZipEntry ze = null; while ((ze = zin.getNextEntry()) != null) { System.out.println("Unzipping " + ze.getName()); FileOutputStream fout = new FileOutputStream(pastaDestino+ze.getName()); for (int c = zin.read(); c != -1; c = zin.read()) { fout.write(c); } zin.closeEntry(); fout.close(); } zin.close(); } }
E meus amigos,Nao sou tao velho, mas participei do primordio da computacao, hj com computadores rapidos, internet movida a fibra, pessoas impacientes por esperar 5 seg para abrir uma pagina.Participei da epoca do tk90x, um computador que na epoca era o top, com seu processador Z80 (3,58 MHz) em 8 bits.Meu pai programava nele e eu ficava olhando, lembro ate hoje ele com as revistas Input na mao e a minha mae ditando os programas para ele (Nao sabia nem o q eles estavam fazendo).Foi meu primeiro contato direto com a computacao, lembro do meu pai programando e fazendo figuras usando apenas a programacao (enchergava aquilo como se meu pai pudesse fazer qualquer coisa ... e pode!).Apartir daquele momento veio uma revolucao absurda na minha cabeca e uma obsessao que ate hoje sinto, gracas a meu pai e o TK-90X.Esse ai e o cara, ligado em uma televisao colorida e um gravador de fitas k7 como "HD" ele fazia a "magica".Usava-se a tao procurada caixa de divisao de sinal(caixa comutadora).Sinto ate hoje o cheiro do manual e das revistas da Input, devorei aquilo como louco.Pena que como todo muleque (sim, muleque derivado de MULA), nao dei valor no tkzinho e vendi para melhorar meu "poder de processamento"(mentira, queria saber so de jogar).Sinto falta desse tempo, quem acha nostalgico ouvir o barulho de um modem 56k discando, nao sabe o que e dar LOAD em um programa, apertar o play do gravador de k7 e ir soltar pipa enquanto o programa carrega.Segue o codigo do Gorilla, que uma vez fiquei 1 mes para copiar ele de uma revista, hj faria com o pe nas costas... ' DEFINT A-Z 'Sub Declarations DECLARE SUB DoSun (Mouth) DECLARE SUB SetScreen () DECLARE SUB EndGame () DECLARE SUB Center (Row, Text$) DECLARE SUB Intro () DECLARE SUB SparklePause () DECLARE SUB GetInputs (Player1$, Player2$, NumGames) DECLARE SUB PlayGame (Player1$, Player2$, NumGames) DECLARE SUB DoExplosion (x#, y#) DECLARE SUB MakeCityScape (BCoor() AS ANY) DECLARE SUB PlaceGorillas (BCoor() AS ANY) DECLARE SUB UpdateScores (Record(), PlayerNum, Results) DECLARE SUB DrawGorilla (x, y, arms) DECLARE SUB GorillaIntro (Player1$, Player2$) DECLARE SUB Rest (t#) DECLARE SUB VictoryDance (Player) DECLARE SUB ClearGorillas () DECLARE SUB DrawBan (xc#, yc#, r, bc) DECLARE FUNCTION Scl (n!) DECLARE FUNCTION GetNum# (Row, Col) DECLARE FUNCTION DoShot (PlayerNum, x, y) DECLARE FUNCTION ExplodeGorilla (x#, y#) DECLARE FUNCTION Getn# (Row, Col) DECLARE FUNCTION PlotShot (StartX, StartY, Angle#, Velocity, PlayerNum) DECLARE FUNCTION CalcDelay! () 'Make all arrays Dynamic '$DYNAMIC 'User-Defined TYPEs TYPE XYPoint XCoor AS INTEGER YCoor AS INTEGER END TYPE 'Constants CONST SPEEDCONST = 500 CONST TRUE = -1 CONST FALSE = NOT TRUE CONST HITSELF = 1 CONST BACKATTR = 0 CONST OBJECTCOLOR = 1 CONST WINDOWCOLOR = 14 CONST SUNATTR = 3 CONST SUNHAPPY = FALSE CONST SUNSHOCK = TRUE CONST RIGHTUP = 1 CONST LEFTUP = 2 CONST ARMSDOWN = 3 'Global Variables DIM SHARED GorillaX(1 TO 2) 'Location of the two gorillas DIM SHARED GorillaY(1 TO 2) DIM SHARED LastBuilding DIM SHARED pi# DIM SHARED LBan&(x), RBan&(x), UBan&(x), DBan&(x) 'Graphical picture of banana DIM SHARED
GorD&(120) 'Graphical picture of Gorilla arms down DIM SHARED GorL&(120) 'Gorilla left arm raised DIM SHARED GorR&(120) 'Gorilla right arm raised DIM SHARED gravity# DIM SHARED Wind 'Screen Mode Variables DIM SHARED ScrHeight DIM SHARED ScrWidth DIM SHARED Mode DIM SHARED MaxCol 'Screen Color Variables DIM SHARED ExplosionColor DIM SHARED SunColor DIM SHARED BackColor DIM SHARED SunHit DIM SHARED SunHt DIM SHARED GHeight DIM SHARED MachSpeed AS SINGLE DEF FnRan (x) = INT(RND(1) * x) + 1 DEF SEG = 0 ' Set NumLock to ON KeyFlags = PEEK(1047) IF (KeyFlags AND 32) = 0 THEN POKE 1047, KeyFlags OR 32 END IF DEF SEG GOSUB InitVars Intro spam: GetInputs Name1$, Name2$, NumGames GorillaIntro Name1$, Name2$ PlayGame Name1$, Name2$, NumGames LOCATE 11, 24 COLOR 5 PRINT "Would you like to play again?" COLOR 7 a = 1 DO again$ = INKEY$ LOOP UNTIL (again$ = "y") OR (again$ = "n") CLS IF again$ = "y" THEN GOTO spam DEF SEG = 0 ' Restore NumLock state POKE 1047, KeyFlags DEF SEG END CGABanana: 'BananaLeft DATA 327686, -252645316, 60 'BananaDown DATA 196618, -1057030081, 49344 'BananaUp DATA 196618, -1056980800, 63 'BananaRight DATA 327686, 1010580720, 240 EGABanana: 'BananaLeft DATA 458758,202116096,471604224,943208448,943208448,943208448,471604224,202116096,0 'BananaDown DATA 262153, -2134835200, -2134802239, -2130771968, -2130738945,8323072, 8323199, 4063232, 4063294 'BananaUp DATA 262153, 4063232, 4063294, 8323072, 8323199, -2130771968, -2130738945, -2134835200,-2134802239 'BananaRight DATA 458758, -1061109760, -522133504, 1886416896, 1886416896, 1886416896,-522133504,-1061109760,0 InitVars: pi# = 4 * ATN(1#) 'This is a clever way to pick the best graphics mode available ON ERROR GOTO ScreenModeError Mode = 9 SCREEN Mode ON ERROR GOTO PaletteError IF Mode = 9 THEN PALETTE 4, 0 'Check for 64K EGA ON ERROR GOTO 0 MachSpeed = CalcDelay IF Mode = 9 THEN ScrWidth = 640 ScrHeight = 350 GHeight = 25 RESTORE EGABanana REDIM LBan&(8), RBan&(8), UBan&(8), DBan&(8) FOR i = 0 TO 8 READ LBan&(i) NEXT i FOR i = 0 TO 8 READ DBan&(i) NEXT i FOR i = 0 TO 8 READ UBan&(i) NEXT i FOR i = 0 TO 8 READ RBan&(i) NEXT i SunHt = 39 ELSE ScrWidth = 320 ScrHeight = 200 GHeight = 12 RESTORE CGABanana REDIM LBan&(2), RBan&(2), UBan&(2), DBan&(2) REDIM GorL&(20), GorD&(20), GorR&(20) FOR i = 0 TO 2 READ LBan&(i) NEXT i FOR i = 0 TO 2 READ DBan&(i) NEXT i FOR i = 0 TO 2 READ UBan&(i) NEXT i FOR i = 0 TO 2 READ RBan&(i) NEXT i MachSpeed = MachSpeed * 1.3 SunHt = 20 END IF RETURN ScreenModeError: IF Mode = 1 THEN CLS LOCATE 10, 5 PRINT "Sorry, you must have CGA, EGA color, or VGA graphics to play GORILLA.BAS" END ELSE Mode = 1 RESUME END IF PaletteError: Mode = 1 '64K EGA cards will run in CGA mode. RESUME NEXT REM $STATIC 'CalcDelay: ' Checks speed of the machine. FUNCTION CalcDelay! s! = TIMER DO i! = i! + 1 LOOP UNTIL TIMER - s! >= .5 CalcDelay! = i! END FUNCTION ' Center: ' Centers and prints a text string on a given row ' Parameters: ' Row - screen row number ' Text$