DECLARE SUB Typer1 (n$)
CLS
Typer1 "Hello   you are dead"
Typer1 "And you will always be dead"
Typer1 "---------------------------"
Typer1 "/\/\/\/\/\/\/\/\/\/\/\/\/\/"
Typer1 "<><><><><><><><><><><><><><"
Typer1 "!@#$% !@#$%^&*() !@#$%^&*()"
Typer1 "???????????????????????????"
10
Typer1 CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13) + CHR$(RND * 240 + 13)
GOTO 10

SUB Typer1 (n$)
LOCATE CSRLIN + 1, 1
FOR qw% = 1 TO LEN(n$)
IF MID$(n$, qw%, 1) = " " THEN sn% = 70 ELSE sn% = 0
IF qw% = 80 THEN PRINT "": w% = 1 ELSE w% = qw%
LOCATE CSRLIN - 1, w%, 0: PRINT MID$(n$, qw%, 1): LOCATE CSRLIN - 1, qw% + 1: PRINT "_": SOUND sn%, 1
SOUND 0, 1
NEXT qw%
LOCATE CSRLIN - 1, LEN(n$) + 1: PRINT " "
END SUB