En la fiesta había humo, como si fuera una noche londinense, pero dentro de un local. Y del humo emergían todo tipo de animales exóticos: chaperos, productores de discográficas, productores de pornografía, rockeros, chicas mayores y ojerosas que siguen siendo chicas porque en cierta manera viven de eso, uruguayos cocainómanos,.. un desfile infinito de saludos y de invitaciones a todo tipo de todas las cosas imaginables.
Como bióloga, me entretuve varias horas clasificándolos a todos según una sistemática evolutiva, encontrando antecesores comunes y observando las adaptaciones al ambiente. Imagino que ellos también hacían lo mismo a su manera, solo que con la mente llena de humo todo cuesta más de ver.
sábado, 21 de febrero de 2009
sábado, 7 de febrero de 2009
Visual the basic boy
Sub el_chico_perfecto ()
'unidad en la que vamos a trabajar:
Chdir ("Me:\My heart\")
'introducimos las variables:
Dim boy, answer, correctans as string
Dim age as integer
'definimos las variables para romper el hielo:
boy = Inputbox ("¿Cómo te llamas?")
age = Inputbox ("¿Cuántos años tienes?")
'desarrollo del proyecto parte I:
If (age>20) then
msgbox: ("Pues te sientan muy bien.")
else
msgbox: ("¡Qué mono eres! ¿Has venido con tu hermano mayor?")
End if
'desarrollo del proyecto parte II:
answer = Inputbox ("¿Qué te gusta hacer en tu tiempo libre?")
Select case answer
Case answer ="jugar a la consola a todas horas porque vivo con mis padres y me paso el día así sin limpiar ni nada": correctans = "Me encanta la cocina, siempre que puedo me entretengo improvisando platos nuevos."
Case answer = "ver la tele": corectans = "Dedico bastante tiempo a leer. ¿Te gusta Cortázar?"
Case answer = "conocer a todas las tías que puedo": correctans = "Últimamente estoy buscando algo especial a lo que dedicarme en profundidad."
Case answer = "ver porno y follar si se puede": correctans = "Podría gustarme mucho encontrar tu cara al levantarme dormida en mi almohada."
Case else: msgbox : ("Creo que me gustaría conocerte más. ¿Quieres que quedemos otro día?")
End select
'Archivar las variables:
Open "Realboy.txt" for output as #1
print #1, boy; age; answer
Close #1
Open "Perfectboy.txt" for output as #2
print #2, boy; age; correctans
Close #2
'tener en cuenta que no podemos usar el segundo archivo, puesto que son las proyecciones del estereotipo que no existe. solo lo usaremos para fantasear un rato
End sub
'unidad en la que vamos a trabajar:
Chdir ("Me:\My heart\")
'introducimos las variables:
Dim boy, answer, correctans as string
Dim age as integer
'definimos las variables para romper el hielo:
boy = Inputbox ("¿Cómo te llamas?")
age = Inputbox ("¿Cuántos años tienes?")
'desarrollo del proyecto parte I:
If (age>20) then
msgbox: ("Pues te sientan muy bien.")
else
msgbox: ("¡Qué mono eres! ¿Has venido con tu hermano mayor?")
End if
'desarrollo del proyecto parte II:
answer = Inputbox ("¿Qué te gusta hacer en tu tiempo libre?")
Select case answer
Case answer ="jugar a la consola a todas horas porque vivo con mis padres y me paso el día así sin limpiar ni nada": correctans = "Me encanta la cocina, siempre que puedo me entretengo improvisando platos nuevos."
Case answer = "ver la tele": corectans = "Dedico bastante tiempo a leer. ¿Te gusta Cortázar?"
Case answer = "conocer a todas las tías que puedo": correctans = "Últimamente estoy buscando algo especial a lo que dedicarme en profundidad."
Case answer = "ver porno y follar si se puede": correctans = "Podría gustarme mucho encontrar tu cara al levantarme dormida en mi almohada."
Case else: msgbox : ("Creo que me gustaría conocerte más. ¿Quieres que quedemos otro día?")
End select
'Archivar las variables:
Open "Realboy.txt" for output as #1
print #1, boy; age; answer
Close #1
Open "Perfectboy.txt" for output as #2
print #2, boy; age; correctans
Close #2
'tener en cuenta que no podemos usar el segundo archivo, puesto que son las proyecciones del estereotipo que no existe. solo lo usaremos para fantasear un rato
End sub
Suscribirse a:
Entradas (Atom)