Basisversion

10  A$ = " Ihr Text hier ... C64 Laufschrift "
20  B$ = " "
30  N  = len(A$)    ' (Klein geschrieben, weil es sonst das Wiki verreist)
35  J  = 0

40  FOR I=1 TO 40
50    J  = J + 1
60    B$ = B$ + MID$(A$, J, 1)
70    IF J=N THEN J=0
80  NEXT

90  B$ = MID$(B$, 2, 39)
95  J  = J  + 1
100 B$ = B$ + MID$(A$, J, 1)

110 IF J=N THEN J=0
120 PRINT "Shift+ClrHome-Symbol"
130 PRINT B$

140 GOTO 90

Erweiterung der Basisversion

5   PRINT "Shift+ClrHome-Symbol"

81  C$ = B$
82  K  = N
91  C$ = MID$(A$, K, 1) + MID$(C$, 1, 39)
96  K  = K - 1

111 IF K=0 THEN K=N
120 PRINT "ClrHome-Symbol"    ' (Anmerkung: Gegen das Flimmern)
131 PRINT C$
132 PRINT B$
133 PRINT C$