Or you could try TXT$="Hello, this is a test" For X=0 to number of letters LOCATE X+5,10:Print TXT$[X] BEEP 9 wait 10 next