1: DECLARE SUB Typer1 (n$) 2: CLS 3: Typer1 "Hello you are dead" 4: Typer1 "And you will always be dead" 5: Typer1 "---------------------------" 6: Typer1 "/\/\/\/\/\/\/\/\/\/\/\/\/\/" 7: Typer1 "<><><><><><><><><><><><><><" 8: Typer1 "!@#$% !@#$%^&*() !@#$%^&*()" 9: Typer1 "???????????????????????????" 10: 10 11: 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) 12: GOTO 10 13: 14: SUB Typer1 (n$) 15: LOCATE CSRLIN + 1, 1 16: FOR qw% = 1 TO LEN(n$) 17: IF MID$(n$, qw%, 1) = " " THEN sn% = 70 ELSE sn% = 0 18: IF qw% = 80 THEN PRINT "": w% = 1 ELSE w% = qw% 19: LOCATE CSRLIN - 1, w%, 0: PRINT MID$(n$, qw%, 1): LOCATE CSRLIN - 1, qw% + 1: PRINT "_": SOUND sn%, 1 20: SOUND 0, 1 21: NEXT qw% 22: LOCATE CSRLIN - 1, LEN(n$) + 1: PRINT " " 23: END SUB 24: |