10 CLS
20 x = 20: y = 1: pause = 500
30 a$ = "(C) 1999 DENIS SOFTLAND"
40 FOR n = 1 TO LEN(a$)
50 FOR m = 79 TO n + x STEP -1
60 b$ = MID$(a$, n, 1)
70 LOCATE y, m
80 IF b$ = " " THEN GOTO 110
90 PRINT b$; " "
100 FOR i = 1 TO pause
110 IF LEN(INKEY$) <> 0 THEN GOTO 130
120 NEXT i, m, n
130 END