quarta-feira, abril 9

Copiado da FSP.

RELATO

As mentiras que os EUA contam

Há algum setor das forças militares norte-americanas que passou a odiar a imprensa e quer tirar do caminho jornalistas que estejam em Bagdá?

ROBERT FISK
DO "INDEPENDENT", EM BAGDÁ
Primeiro mísseis americanos atingiram o correspondente da Al Jazeera e seu cinegrafista. Depois -num intervalo de quatro horas- os EUA atacaram o escritório da Reuters, em Bagdá, e atingiram um de seus câmeras, pai de uma criança de oito anos, além de outros integrantes da equipe e um cinegrafista do canal espanhol Telecinco.
É possível acreditar que isso tenha sido um acidente? Ou é possível que a palavra certa para as mortes decorrentes desses ataques seja assassinato?
Não são, obviamente, as primeiras mortes de jornalistas na invasão anglo-americana do Iraque. Tampouco podemos nos esquecer dos civis iraquianos que estão sendo mortos e mutilados às centenas e que -diferentemente dos convidados jornalistas- não podem deixar o país e voar para casa de classe executiva.
Ou seja que os fatos de ontem devem falar por si. Infelizmente para os americanos, tudo o que aconteceu se parece muito com assassinato.
Vejamos o míssil que atingiu a sede da Al Jazeera às margens do rio Tigre. O correspondente da rede de televisão, um jordaniano-palestino chamado Tareq Ayyoub, estava no topo do prédio com seu segundo cinegrafista, um iraquiano chamado Zuheir, registrando uma batalha que ocorria entre tropas norte-americanas e iraquianas.
Como Maher Abdullah, colega de Ayyoub, contaria mais tarde, "o avião voava tão baixo que pensávamos que pousaria no topo do prédio. Foi um ataque direto -o míssil chegou a explodir contra o nosso gerador".
Agora resta aos americanos o problema de explicar isso. Em 2001, os Estados Unidos atingiram com um míssil o escritório da Al Jazeera em Cabul, no Afeganistão -de onde vídeos de Osama bin Laden ganharam exibição para todo o mundo. Explicações nunca foram dadas.
Mais perturbador, no entanto, é o fato de que a Al Jazeera -a rede de televisão árabe independente, que conseguiu despertar a fúria de autoridades norte-americanas e iraquianas por sua cobertura ao vivo da guerra- havia informado ao Pentágono as coordenadas de seu escritório em Bagdá há dois meses e recebeu a garantia de que o local não seria atingido.
O ataque seguinte veio logo depois, quando um tanque Abrams apontou seu canhão em direção ao hotel Palestine, onde jornalistas estrangeiros estão hospedados na capital iraquiana.
A munição explodiu entre a equipe da agência de notícias Reuters e atingiu o cinegrafista ucraniano Taras Protsyuk, o britânico Paul Pasquale e dois outros jornalistas, incluindo a repórter libanesa-palestina Samia Nakhoul, além de José Couso, do canal espanhol Telecinco.
Os americanos se justificam com o que todas as evidências provam ser uma clara mentira. O general Bufford Blount, da 3ª Divisão de Infantaria, afirmou que seus veículos estavam sob fogo de francos-atiradores instalados no hotel Palestine.
O testemunho do general não é verdadeiro. Eu estava passando por uma rua entre os tanques e o hotel no momento em que ele foi atingido -e não havia nenhum tiroteio.
Algo de muito perigoso parece haver pairado ontem. Há alguma lição que os jornalistas devem reter disso? Há algum setor das forças militares norte-americanas que passou a odiar a imprensa e quer tirar do caminho jornalistas em Bagdá, ferindo aqueles a quem nosso próprio (britânico) ministro do Interior, David Blunkett, maliciosamente afirmou estar trabalhando "atrás das linhas inimigas"?
Eu conheci Tareq Ayyoub. Disse-lhe o quão fácil esse escritório de Bagdá seria, como alvo, para os americanos, se eles quisessem destruir a cobertura que faziam -vista em todo o mundo árabe-, com imagens das vítimas civis dos bombardeios.
Taras Protsyuk dividia por vezes o elevador inacreditavelmente lento do hotel Palestine comigo. Samia, aos 42 anos, é uma amiga desde a guerra civil libanesa entre 1975 e 1990. Ontem à tarde, estava coberta de sangue, num hospital de Bagdá.
E o general Blount insinua que essa mulher e seus bravos colegas eram francos-atiradores. O que isso, me pergunto, nos diz sobre a guerra no Iraque?

piada infame:

Analise a seguinte sentença.

"Engravidaram a loura burra"

Qual é o sujeito da frase?

R: Só fazendo DNA.

CAIU, VIADO.

segunda-feira, abril 7

hhauhauhaua
I'm on fire!

HUAHUAHUAHAUHAUA all your base are belong to us!

all your base are belong to us!
all your base are belong to us!
all your base are belong to us!
all your base are belong to us!
all your base are belong to us!
all your base are belong to us!
all your base are belong to us!

Gente, eu sei que os japoneses são organizados, mas aí já é demais...

Caracas... se alguém ouviu AM Radio (I just wanna be loved) e pensou estar ouvindo New Year's Day, do U2, não está muito louco não. Que chupada monstruosa!

.... e enquanto estamos no tópico cinema e continuações, não custa lembrar...

há uma diferença entre SABER o caminho...
... e ANDAR por ele.

Não vou falar muito para não estragar a surpresa.... clique aqui (requer quicktime).

Digamos que 12 anos depois e 30 milhões de dólares mais ricos, Schwarzenegger mudou de idéia.

=)

"She'll be back!"

Ø CANALPOP Ø Ouvimos e dissecamos a trilha sonora de SMALLVILLE: The Talon Mix ÁLBUM: SMALLVILLE THE TALON MIX (ELEKTRA/ASYLUM )

1. Save Me / Remy Zero
2. Inside Out / VonRay
3. Island In The Sun / Weezer
4. Superman / Five For Fighting
5. Nuclear / Ryan Adams
6. Lonely Day / Phantom Planet
7. Fight Test / The Flaming Lips
8. Don't Dream It's Over / Sixpence None The Richer
9. Wave Goodbye / Steadman
10. I Just Wanna Be Loved / AM Radio
11. Everything / Lifehouse
12. Time After Time / Eva Cassidy

domingo, abril 6

Duas palavras:

Corrida maluca.

Que novidade...

Info Black

Your Heart is Black

What Color is Your Heart?
brought to you by Quizilla

You're the smirk,a frown-smile hybrid that's a
little bit cocky and usually associated with
evil or arrogant,but attractive people.You
probably just don't give a damn,but it's
everyone else's fault if you don't because
you're too awesome to have any real faults.

What Kind of Smile are You?
brought to you by Quizilla

Notícias boas sempre vêem com um lado ruim. O SBesTeira está apresentando a primeira temporada de Smallville, dublado, é claro. Se ficasse só aí, tudo bem, dá para aguentar e cá pra nós, o Brasil tem alguns dos melhores dubladores e ninguém respeita o trabalho deles. Mas todo mundo lembra da voz do He-Man (que por sinal está voltando em uma série nova, respeitada lá fora).

...o big deal é o subtítulo. Não vou nem digitar, vai ctrl-c/ctrl-v (copiar/colar) direto da página: "AS AVENTURAS DO SUPER BOY"

Com esse subtítulo, até eu fiquei com vontade de escrever slashfic. Geez!

Não entendeu o que é slash fiction?

Slash [slashfic, slash fiction] (subst.)

Fanfic que caracterizam dois (ou mais) indivíduos do mesmo gênero romanticamente e/ou sexualmente envolvidos. Não deve ser confundido com 'slasher', um tipo de filme de horror.

E se você estiver se borrando de medo da SARS ou das armas químicas do Saddam, que tal se proteger com estilo?

Liberdade de expressão é tudo... :)

quinta-feira, abril 3

sabia que se você botar:

sabrina putinha
sabrina bbb
sabrina pelada
sabrina nua
sabrina e dhomini

no seu blog, os acessos triplicam? :)

Isso é que são férias... reativando código em BASIC, pegando esse troço espaguete e debugando a caceta, além de atualizar algumas coisas... nem de longe isso está otimizado, por sinal, então nem vem comentando sobre a habilidade de programar. Só fiz escanear um livro velho, tirar as linhas desnecessárias e mudar um pouco para o ambiente windows (isso aí em cima roda em qbasic embaixo do windows, tanto que em vez de usar a impressora ele chama o notepad para ler o arquivo)

Fui!

Post louco, pra variar!

REM "METODO AOKI-VELLOSO"

DIM N(99), L(20), S(20), K(99), PL(99), PP(99), ALFA(99)

30 CLS

PRINT "LEGENDA - TIPOS DE SOLO"

PRINT "100 = AREIA"

PRINT "120 = AREIA SILTOSA"

PRINT "123 = AREIA SILTO ARGILOSA"

PRINT "130 = AREIA ARGILOSA"

PRINT "132 = AREIA ARGILO SILTOSA"

PRINT "200 = SILTE"

PRINT "210 = SILTE ARENOSO"

PRINT "213 = SILTE ARENO ARGILOSO"

PRINT "230 = SILTE ARGILOSO"

PRINT "231 = SILTE ARGILO ARENOSO"

PRINT "300 = ARGILA"

PRINT "310 = ARGILA ARENOSA"

PRINT "312 = ARGILA ARENO SILTOSA"

PRINT "320 = ARGILA SILTOSA"'

PRINT "321 = ARGILA SILTO ARENOSA"

VIEW PRINT 18 TO 24

INPUT "NO.DE CAMADAS"; C

FOR I = 1 TO C

PRINT : PRINT "PROF. DA CAMADA ("; I; ")"; : INPUT L(I)

PRINT "SOLO. DA CAMADA ("; I; ") "; : INPUT S(I)

FOR G = INT(L(I - 1) + 1) TO INT(L(I))

IF S(I) = 100 THEN K(G) = 100: ALFA(G) = .014

IF S(I) = 120 THEN K(G) = 80: ALFA(G) = .02

IF S(I) = 123 THEN K(G) = 70: ALFA(G) = .024

IF S(I) = 130 THEN K(G) = 60: ALFA(G) = .03

IF S(I) = 132 THEN K(G) = 50: ALFA(G) = .028

IF S(I) = 200 THEN K(G) = 40: ALFA(G) = .03

IF S(I) = 210 THEN K(G) = 55: ALFA(G) = .022

IF S(I) = 213 THEN K(G) = 45: ALFA(G) = .028

IF S(I) = 230 THEN K(G) = 23: ALFA(G) = .034

IF S(I) = 231 THEN K(G) = 25: ALFA(G) = .03

IF S(I) = 300 THEN K(G) = 20: ALFA(G) = .06

IF S(I) = 310 THEN K(G) = 35: ALFA(G) = .024

IF S(I) = 312 THEN K(G) = 30: ALFA(G) = .028

IF S(I) = 320 THEN K(G) = 22: ALFA(G) = .04

IF S(I) = 321 THEN K(G) = 33: ALFA(G) = .03

NEXT: NEXT

VIEW PRINT 1 TO 25

CLS

PRINT TAB(15); "SPT'S"

PRINT TAB(15); "-----"

PRINT

FOR J = 1 TO INT(L(C))

PRINT TAB(3); USING "##"; J;

INPUT N(J)

NEXT

350 CLS

PRINT TAB(10); "TIPO DE ESTACA"

PRINT TAB(10); "=============="

PRINT : PRINT

PRINT TAB(3); "(0) PRE-MOLDADA"

PRINT TAB(3); "(1) FRANKI"

PRINT TAB(3); "(2) ESCAVADA"

PRINT TAB(3); "(3) STRAUSS"

PRINT : PRINT

INPUT "TIPO "; Z

    IF Z = 0 THEN 500

    IF Z = 1 THEN 580

    IF Z = 2 THEN 620

    IF Z = 3 THEN 700

    IF Z > 3 THEN 350

500 PRINT

    INPUT "SECAO QUADRADA OU CIRCULAR (Q/C) "; PM$

    IF UCASE$(PM$) = "C" THEN 550 ELSE 530

530 INPUT "DE O LADO EM cm"; LD

    U = 4 * LD / 100: A = LD ^ 2 / 10000: F1 = 1.75: F2 = 3.5: GOTO 570

550 INPUT "DIAMETRO (cm)"; D

    U = 3.1416 * D / 100: A = 3.1416 * (D / 100) ^ 2 / 4: F1 = 1.75: F2 = 3.5

570 GOTO 720

580 INPUT "DIAMETRO (cm) "; D

    INPUT "VOLUME BASE (l)"; V

    U = 3.1416 * D / 100: A = 3.1416 * ((V / 1000) * 3 / (4 * 3.1416)) ^ (2 / 3): F1 = 2.5: F2 = 5

    GOTO 720

620 INPUT "BARRETE/ESTACAO (B/E) "; Z$: IF UCASE$(Z$) = "B" THEN 660 ELSE 630

630 INPUT "DIAMETRO (cm) "; D: U = 3.1416 * D / 100

    A = (D ^ 2) * 3.1416 / 4 / 10000: F1 = 3: F2 = 6

    GOTO 720

660 INPUT "DIMENSOES DO BARRETE EM (cm) (A,B) "; A0, B0

    U = 2 * (A0 + B0) / 100

    A = A0 * B0 / 10000: F1 = 3: F2 = 6

    GOTO 720

700 INPUT "DIAMETRO (cm) "; D: U = 3.1416 * D / 100

    A = (D ^ 2) * 3.1416 / 4 / 10000: F1 = 3: F2 = 6

720 CLS

    INPUT "NIVEL DO TERRENO "; NT

    INPUT "COTA DE ARRASAMENTO"; CA

    L0 = NT - CA

    FOR H = INT((L0) + 1) TO INT(L(C))

    O = K(H) * N(H) / F1

    FS = ALFA(H) * N(H) * K(H) / F2

    PL(H) = PL(H - 1) + FS * U

    PP(H) = A * O

    NEXT

    CLS

    PRINT "PROF."; TAB(8); "N"; TAB(15); "PL"; TAB(25); "PP"; TAB(35); "PR"

    PRINT " (m) "; TAB(14); "(kN)"; TAB(24); "(kN)"; TAB(34); "(kN)": PRINT

    FOR H = INT((L0) + 1) TO INT(L(C))

    PRINT USING "##"; H; : PRINT TAB(7); USING "##"; N(H); : PRINT TAB(12); USING "#####"; PL(H) * 10; : PRINT TAB(22); USING "#####"; PP(H) * 10; : PRINT TAB(32); USING "#####"; (PP(H) + PL(H)) * 10

    NEXT

    PRINT : INPUT "QUER IMPRESSAO EM PAPEL (S/N)"; I$

I$ = UCASE$(I$)

    IF I$ = "S" THEN 950

900 INPUT "TEM MAIS ESTACAS (S/N)"; I$

I$ = UCASE$(I$)

    IF I$ = "S" THEN 350 ELSE 920

920 INPUT "TEM NOVA SONDAGEM (S/N)"; I$

I$ = UCASE$(I$)

    IF I$ = "S" THEN 30 ELSE 940

940 END

950 REM "ROTINA DE IMPRESSAO"

T$ = CHR$(9)

OPEN "tempfile.txt" FOR OUTPUT AS #1

    PRINT #1, "_____________________________________________________"

    PRINT #1, T$; "CAPACIDADE DE CARGA DE ESTACAS"

    PRINT #1, T$; T$; "METODO AOKI-VELLOSO"

     PRINT #1, "_____________________________________________________"

     PRINT #1,

     PRINT #1,

     PRINT #1, "_____________________________________________________"

     PRINT #1, T$; T$; "COTA DO TERRENO:"; USING "###.##"; NT

     PRINT #1, T$; T$; "COTA DE ARRASAMENTO:"; USING "###.##"; CA

     PRINT #1, T$; T$; "SONDAGEM: (           )"

     PRINT #1, T$; T$; ""

1040 IF Z = 0 THEN 1210

     IF Z = 1 THEN E$ = "FRANKI": GOTO 1160

     IF Z = 2 THEN 1080

     IF Z = 3 THEN 1120 ELSE 1040

1080 IF Z$ = "B" THEN 1090 ELSE 1100

1090 E$ = "BARRETE": GOTO 1130

1100 IF Z$ = "E" THEN 1110 ELSE 1160

1110 E$ = "ESTACAO": GOTO 1160

1120 E$ = "STRAUSS": GOTO 1160

1130 PRINT #1, T$; T$; "TIPO DE ESTACA :"; E$; :

     PRINT #1, A0; "x"; B0; " cm"

     GOTO 1270

1160 PRINT #1, T$; T$; "TIPO DE ESTACA :"; E$; :

     PRINT #1, " D = "; D; " cm"

     IF E$ = "FRANKI" THEN 1190 ELSE 1200

1190 ' PRINT #1, T$; T$; T$; T$; " VOL.BASE="; V; "L"

1200 GOTO 1270

1210 IF PM$ = "Q" THEN 1220 ELSE 1250

1220 E$ = "PRE-MOLDADA"

     PRINT #1, T$; T$; "TIPO DE ESTACA :"; E$; :

     PRINT #1, LD; " x "; LD; " cm": GOTO 1270

1250 E$ = "PRE-MOLDADA": PRINT #1, TAB(11); "TIPO DE ESTACA :"; E$;

     PRINT #1, " D "; D; " cm"

1270 PRINT #1, : PRINT #1, : PRINT #1,

     PRINT #1, "_____________________________________________________"

     PRINT #1, TAB(11); "PERFIL GEOTECNICO"

     PRINT #1, : PRINT #1,

     FOR I = 1 TO C

     IF S(I) = 100 THEN SOLO$ = "AREIA"

     IF S(I) = 120 THEN SOLO$ = "AREIA SILTOSA"

     IF S(I) = 123 THEN SOLO$ = "AREIA SILTO ARGILOSA"

     IF S(I) = 130 THEN SOLO$ = "AREIA ARGILOSA"

     IF S(I) = 132 THEN SOLO$ = "AREIA ARGILO SILTOSA"

     IF S(I) = 200 THEN SOLO$ = "SILTE"

     IF S(I) = 210 THEN SOLO$ = "SILTE ARENOSO"

     IF S(I) = 213 THEN SOLO$ = "SILTE ARENO ARGILOSO"

     IF S(I) = 230 THEN SOLO$ = "SILTE ARGILOSO"

     IF S(I) = 231 THEN SOLO$ = "SILTE ARGILO ARENOSO"

     IF S(I) = 300 THEN SOLO$ = "ARGILA"

     IF S(I) = 310 THEN SOLO$ = "ARGILA ARENOSA"

     IF S(I) = 312 THEN SOLO$ = "ARGILA ARENO SILTOSA"

     IF S(I) = 320 THEN SOLO$ = "ARGILA SILTOSA"'

     IF S(I) = 321 THEN SOLO$ = "ARGILA SILTO ARENOSA"

     PRINT #1, TAB(15); USING "##.##"; L(I - 1); : PRINT #1, TAB(21); "a"; :

     PRINT #1, TAB(23); USING "##.##"; L(I); :

     PRINT #1, TAB(30); SOLO$

     NEXT

     PRINT #1, : PRINT #1, : PRINT #1,

     PRINT #1, "_____________________________________________________"

     PRINT #1, TAB(10); "RESULTADOS (kN)"

     PRINT #1, : PRINT #1,

     PRINT #1, TAB(5); "PROF."; TAB(13); "N"; TAB(20); "PL"; TAB(30); "PP"; TAB(40); "PR"

     PRINT #1, TAB(5); " (m) "; TAB(19); "(kN)"; TAB(29); "(kN)"; TAB(39); "(kN)": PRINT #1,

     FOR H = INT((L0) + 1) TO INT(L(C))

     PRINT #1, TAB(5); USING "##"; H;

     PRINT #1, TAB(11); USING "##"; N(H);

     PRINT #1, TAB(17); USING "#####"; PL(H) * 10;

     PRINT #1, TAB(27); USING "#####"; PP(H) * 10;

     PRINT #1, TAB(37); USING "#####"; (PL(H) + PP(H) * 10);

     NEXT: PRINT #1, : CLOSE : SHELL "NOTEPAD TEMPFILE.TXT": GOTO 900

quarta-feira, abril 2

Em dias como hoje, sabe a melhor forma de baixar o stress?

Mate a barata!

Entre se quiser