1 ' Character printing 2 ' by B Naff 3 ' Amstrad Action    August 87 10 ' *Setup* 20 MODE 1: CLS: RESTORE: ENV 1,15,1,7 30 ' *Read string and Start* 40 READ a$ 50 FOR t=1 TO LEN(a$) 60 PRINT MID$(a$,t,1); 70 ' *Set delay and the sound-effect* 80 FOR delay=0 TO 50 90 NEXT delay 100 IF MID$(a$,t,1)<>" " THEN SOUND 1,50,2,10,1,1,1 110 NEXT t 120 READ a$: WHILE a$<>"^": GOTO 50: WEND 130 ' *The text to be sent to the screen* 140 DATA ----------------------------------------You have now got character-by-character slow printing. Alter the value held in  line 80 to determine the rate at which  characters are printed. Place the text  you wish to appear in DATA starting from 150 DATA line 140. You must place an up-arrow    (^) -- it shares a key with the pound   sign -- in the last DATA line.          ---------------------------------------- 160 DATA ^