Листинг программы:
10 CLS
20 COLOR 15, 4: pause = 3000
30 a$ = SPACE$(80)
40 b$ = "(C) 1999 DENIS SOFTLAND"
50 c$ = a$ + b$ + a$
60 FOR n = 1 TO LEN(c$) - 79
70 d$ = MID$(c$, n, 80)
80 LOCATE 1, 1: PRINT d$
90 FOR i = 1 TO pause
100 IF LEN(INKEY$) <> 0 THEN GOTO 140
110 NEXT i
120 NEXT n
130 GOTO 60
140 COLOR 7, 0
150 END