'===========================================================================
' Subject: FALLING TEXT                      Date: 05-31-97 (03:52)       
' Author:  Jason Lashua                      Code: QB, QBasic, PDS        
' Origin:  allthat@ix.netcom.com           Packet: TEXT.ABC
'===========================================================================
DECLARE SUB FallText (text$, x!, y!, desty!)
DECLARE SUB gotoxy (x!, y!)
' FallText! V1.0 by Jason Lashua
'
' whut this dumb thing does, is just makes a text string 'fall' 1 letter at a
' time to a user defined line on the screen.
'
' if u use this source in your programs, please give me credit where it is
' due
'
' Syntax: falltext "Text message" X,Y,DestY
' where X,Y are the cooridinates of the screen to place the string
' DestY is the destination line on the screen to make the text fall to
'
' Lets try it..
'
FallText "Falling Text!!! WOOOOHOOOO! lalalalalalalaal blah", 1, 1, 23




SUB FallText (text$, x, y, desty)
gotoxy x, y
PRINT text$
FOR i = 1 TO LEN(text$)
FOR y = 1 TO desty
fall$ = MID$(text$, i, 1)
gotoxy i, y
PRINT " ";
gotoxy i, y + 1
PRINT fall$;
FOR delay = 1 TO 300: NEXT delay'edit to taste
NEXT y
NEXT i
END SUB

SUB gotoxy (x, y)
' ok, i hate LOCATE .. y? its BACKWARDS!!!
' 'nuff sed.
LOCATE y, x
END SUB