Ejemplo de marquesina rotante en BASIC

Bueno, es simplemente un texto que va de derecha a izquierda en pantalla, aparece y desaparece en bucle. 

Como nosotros leemos de izquierda a derecha, lo conveniente es que el texto aparezca de derecha a izquierda. 

Puedes descargar el código fuente en formato TAP de este enlace.

Abajo el código BASIC.

Es muy sencillo 

10 CLS
20 PRINT AT 0,0;"Pulsa q para terminar"
30 LET M$="MARQUESINA"
40 LET C=1
50 FOR I=31 TO 0 STEP -1
60 PRINT AT 20,I;M$(1 TO C)
70 IF C<LEN (M$) THEN LET C=c+1
80 IF (31-i)>=LEN (m$) THEN PRINT AT 20,i+LEN (m$);" "
90 GO SUB 170
100 NEXT I
110 FOR i=1 TO LEN (m$) STEP 1
120 PRINT AT 20,0;m$(i TO LEN (m$))
130 PRINT AT 20,LEN (m$)-i;" "
140 GO SUB 170
150 NEXT i
160 GO TO 40
170 LET i$=INKEY$
180 IF i$="q" THEN STOP
190 RETURN