Miguel-busy-Sky os desea Felices Fiestas y diversión a raudales sin moderación ninguna.
¡¡ Pasadlo genial !!
Felices Fiestas 2015-2016
Re: Felices Fiestas 2015-2016
Felices fiestas, chicos. Y que Alan Sugar os traiga muchos regalos (el tipo cada día se parece más a Papá Noel, pero con cara de mala leche. ).
Re: Felices Fiestas 2015-2016
Felicidades a todo el mundo. No se yo si Sugar traerá regalos pero bueno.
Salu2,
Arta
Arta
Re: Felices Fiestas 2015-2016
Tienes razón. En realidad Sugar es el Grinch.
-
- Me voy lanzando
- Mensajes: 30
- Registrado: Sab 19 Sep , 2009 1:49 pm
- Ubicación: Santa Cruz de Tenerife
Re: Felices Fiestas 2015-2016
Felices fiestas a todos y prospero año nuevo.
Aficionado a lo retro en grado principiante.
- XeNoMoRPH
- I am The Forum
- Mensajes: 2281
- Registrado: Lun 08 Abr , 2013 5:55 pm
- Ubicación: Galaxia de Magallanes
- Contactar:
Re: Felices Fiestas 2015-2016
igualmente a todos
- cpcbegin
- Forum Addict
- Mensajes: 415
- Registrado: Vie 25 Jun , 2010 7:49 pm
- Ubicación: Málaga
- Contactar:
Re: Felices Fiestas 2015-2016
Felices fiestas para todos y que tengamos un buen 2016
--------------------------------------
CPC, GNU/Linux y Tente 3D para principantes entre otras cosas
CPC, GNU/Linux y Tente 3D para principantes entre otras cosas
Re: Felices Fiestas 2015-2016
Felices fiestas mozos!! ;·) Que empecéis bien el año! =)
Re: Felices Fiestas 2015-2016
Código: Seleccionar todo
10 DEFINT a-z:MODE 2:INK 0,0:INK 1,13:BORDER 0:PAPER 0:PEN 1:CLS
20 nLines=0:maxLen=0:READ a$:WHILE a$<>"*":nLines=nLines+1:maxLen=MAX(maxLen,LEN(a$)):PRINT a$:READ a$:WEND
30 DEF FNl(size)=size*8-1:limitX=FNl(maxLen):limitY=FNl(nLines)
40 DIM p(limitY,limitX):FOR y=0 TO limitY:FOR x=0 TO limitX:p(y,x)=TEST(x,398-y*2):NEXT x,y
50 CLS:INK 1,26
60 DEF FNp(total,size)=(total-size*8)\2+1:cx=FNp(80,maxLen):cy=FNp(25,nLines):FOR y=limitY TO 0 STEP -1:FOR x=0 TO limitX:GOSUB 90:NEXT x,y
70 SPEED INK 30,30:BORDER 0,27:RANDOMIZE TIME:FOR i=1 TO 500:PLOT RND*640,RND*400:NEXT
80 GOTO 80
90 IF p(y,x) THEN fx=cx+x:fy=cy+y:py=1:WHILE py<fy:LOCATE fx,py:PRINT CHR$(238);:py=py+1:CALL &BD19:LOCATE fx,py-1:PRINT" ";:WEND:LOCATE fx,fy:PRINT CHR$(127);
100 RETURN
110 DATA Felices,fiestas,*
- LexSparrow
- Master of The Forum
- Mensajes: 1009
- Registrado: Dom 18 Dic , 2005 3:17 am
- Contactar:
- jgonza
- Keeper of The Forum
- Mensajes: 962
- Registrado: Mié 04 Abr , 2007 9:21 pm
- Ubicación: Alboraya (Valencia)
Re: Felices Fiestas 2015-2016
¡Felices Reyes Magos!
Visita mi canal de YouTube http://www.youtube.com/c/jgonza
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro
La Comunidad Española |