'===========================================================================
' Subject: LETTER DROP                       Date: 09-05-97 (19:00)       
' Author:  Nick Kochakian                    Code: QB, QBasic, PDS        
' Origin:  NickK@worldnet.att.net          Packet: TEXT.ABC
'===========================================================================
DECLARE SUB letdrop (x!, y!, txt$, dly!, bottomy!)
'LetTer DRoP
'
'9/4/97 By: - Nick Kochakian -
'
'Don't forget to check out my web page... I don't have ALL of my code
'for QB and C there yet... But there are alot of cool things to do there...
'
'If you have any questions or comments please contact me at either e-mail
'address.
'
'web address: http://www.geocities.com/siliconvalley/heights/5914/
'e-mail 1:    nickk@worldnet.att.net
'e-mail 2:    dnukem3@geocities.com

txt$ = "LetTer DRoP --- 1997 --- Nick Kochakian"

CLS
CALL letdrop(1, 1, txt$, 999, 23)

'This produces a kinda neat effect if bottomy is equal to 24 or 25...

'letdrop(x,y,txt$,dly,bottomy)
'
'x - x location of where to start the message
'y - y almost the same thing as x
'txt$ - The string of text
'dly - delay
'bottomy - Where the text should stop

SUB letdrop (x, y, txt$, dly, bottomy)

LOCATE x, y

letmax = LEN(txt$)

FOR i = 1 TO letmax

FOR a = x TO bottomy
a2 = a

IF a = 1 THEN a2 = 1 ELSE a2 = a2 - 1

LOCATE a2, y
PRINT " "
LOCATE a, y
PRINT MID$(txt$, i, 1)

FOR e = 1 TO dly
NEXT e

NEXT a
y = y + 1

'SLEEP 1

NEXT i

END SUB