Ahh mis habilidades con el BASIC de c64 no estan tan mal
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 (doh
)
Ajustando el ultimo bucle en la linea 11 varia la velocidad.
(Fijense que hay un espacio al final de la cadena A$)