Qbasic

y a une methode un peu crassouille, mais ki marche
entre chake lettre tu mets un

for i=0 to 1000
next i

c pas tres propre mais bon....
remarke, il y a peut etre une primitive "sleep"ki traine, mais je suis franchement pas sur

Fais plutôt comme ceci:

CLS
CLEAR
f$=CHR$(27)

PRINT("Tapez votre texte: ")
DO
e$=INKEY$
IF(e$<>f$) THEN
PRINT e$;
END IF
LOOP UNTIL e$=f$

PRINT
PRINT ("Saisie du texte terminée")
END

Tu peux définir le caractère qui termine la saisie en modifiant la valeur de f$. Ci-dessus, CHR$(27) corrspond à la touche <ESC>

;-)
HackTrack

affiche de texte deroulant vers la droite (mode a l'americaine)

CYCLE = 1750000
f$ = CHR$(27)
i = 1

CLS

INPUT "tapez votre texte:"; txt$
LOCATE 10, 30

DO

PRINT MID$(txt$, i, 1);

i = i + 1

FOR K = 1 TO CYCLE: NEXT K

LOOP UNTIL i = LEN(txt$) + 1

END