'===========================================================================
' Subject: SLOW TYPE EFFECT                  Date: 12-05-96 (18:19)       
' Author:  Andrew Diamond                    Code: QB, QBasic, PDS        
' Origin:  albertad@geocities.com          Packet: GRAPHICS.ABC
'===========================================================================
'Program Type -- Modified Print
'Modified: Andrew Diamond
'Web Page: http://www.geocities.com/SiliconValley/Heights/3128/QBASIC.HTM
'Date: 12/5/96
'

DECLARE SUB slowtype (Talk$, x!, Y!, speed#, backColor!, middle!, top!)
DECLARE SUB pause (tdelay#)

SCREEN 13     'Use good colors!
DEFINT A-Z    'Always DEFINT!

' This routine is actually part of Mike Helms Alienoid
' I just edited a little bit of it because it looked cool.
' Don't think he'll mind much!  After all, I mentioned his name!
' slowtype (talk$, x!, y!, speed#, HighLighter, TrailColor, WordColor)
'

slowtype "Slow Type This Dude!", 11, 8, .001, 15, 8, 7

SUB pause (tdelay#)
'------------------------------------------------------------------------------
time1# = TIMER
DO
LOOP WHILE (TIMER - time1# < tdelay#) OR (time1# > TIMER)

END SUB

DEFSNG A-Z
SUB slowtype (Talk$, Y!, x!, speed#, HighLighter, TrailColor, WordColor)
a = 1
DO UNTIL a = LEN(Talk$) + 3
COLOR 8: LOCATE x!, Y!:
IF a > 1 THEN COLOR HighLighter: LOCATE x!, Y!: PRINT LEFT$(Talk$, a - 1)
IF a > 2 THEN COLOR TrailColor: LOCATE x!, Y!: PRINT LEFT$(Talk$, a - 2)
IF a > 3 THEN COLOR WordColor: LOCATE x!, Y!: PRINT LEFT$(Talk$, a - 3)
pause speed#
a = a + 1
LOOP
LOCATE x!, Y!: COLOR WordColor: PRINT Talk$
END SUB