Bien, este tema es para pedir ayuda o ofrecer rutinas utiles para los programas que estén haciendo para la competencia.

Pongo esta rutinita que ya habia posteado hace mucho, es un scroller, aparece en la primera linea de pantalla. Ajustando el bucle de la linea 11 se varia la velocidad.

1 A$="POR SIEMPRE COMMODORE 64 ": A=LEN(A$)
2 PRINT"[CLR]";
3 FORI=39TO-ASTEP-1
4 IF I>=0THEN PRINTSPC(I);
5 IF I+A>=39THEN T=1:F=40-I:GOTO10
6 IF I<0 THEN T=-I:F=A:GOTO10
7 T=1:F=A
10 PRINTMID$(A$,T,F);"[HOME]";
11 FORJ=1TO50:NEXTJ,I:GOTO3

[CLR] es shift + clr/home
[HOME] es home

Para los que quieran tener sprites y sonido en la C64 y no se quieran complicar con POKES, tienen el SPRITE BASIC acá en mi blog: LINK

Claro que como es una expansión del BASIC, lo que hagan va para la categoria libre.

El jueguito que yo voy a presentar esta escrito con esta expansión, solo le faltan detalles.

Bien, este tema es para pedir ayuda o ofrecer rutinas utiles para los programas que estén haciendo para la competencia.

Pongo esta rutinita que ya habia posteado hace mucho, es un scroller, aparece en la primera linea de pantalla. Ajustando el bucle de la linea 11 se varia la velocidad.

1 A$="POR SIEMPRE COMMODORE 64 ": A=LEN(A$)
2 PRINT"[CLR]";
3 FORI=39TO-ASTEP-1
4 IF I>=0THEN PRINTSPC(I);
5 IF I+A>=39THEN T=1:F=40-I:GOTO10
6 IF I<0 THEN T=-I:F=A:GOTO10
7 T=1:F=A
10 PRINTMID$(A$,T,F);"[HOME]";
11 FORJ=1TO50:NEXTJ,I:GOTO3

[CLR] es shift + clr/home
[HOME] es home

No te puedo creer...fue lo primero que hice , casi lo primero, en mi curso de basic en el año 86, fui 5 clases nomas por que no saliamos de la animacion pedorra, pero era basicamente eso. Ahora no toy en casa, pero sino tiro alguna data, me parece interesante el post.

Y yo que estaba contento porque me habia venido la inspiración ese día y lo habia escrito en 2 patadas...  ;D

Yo estoy preparando algo para Spectrum usando el BASin, un IDE de BASIC para la Spectrum:

http://paul.dunn.googlepages.com/BASin_r14b.exe

Es completísimo, tiene editor de UDGs, debbuger, editor de pantallas, de todo!!!

Excelente programa, lo estuve probando un poco y se ve muy bien hecho  [smiley=thumbsup.gif]

Señores, se que lo que voy a decir esta mal tomado por los puristas, que no cumple con las normas eticas de la programacion, pero viendo la rutina animera que postearon aca no me queda otro que decirlo...

COMO ME GUSTA EL GOTO  !!!

Yo en mi proyecto no solo hago abuso deshonesto del GO TO sino tambien del GO SUB!!

Yo en mi proyecto no solo hago abuso deshonesto del GO TO sino tambien del GO SUB!!

Con el GOSUB no me llevo tanto... "me tira para abajo" ese comando...

Con el GOSUB no me llevo tanto... "me tira para abajo" ese comando...

Nooo... es lo mejor que hay. No me acuerdo en que foro de Spectrum alguien tenía de firma "Programmers don't die. They RETURN without GOSUB"  ;D ;D

("7 RETURN without GOSUB" es uno de los mensajes de error de la Spectrum cuando justamente metés un RETURN sin GOSUB).