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