'===========================================================================
' Subject: ICE WRITE                          Date: 05-31-97 (03:52)       
'  Author: Jason Lashua                       Code: QB, QBasic, PDS        
'  Origin: allthat@ix.netcom.com            Packet: TEXT.ABC
'===========================================================================
'
' IceWrite! Ver 0.26a By Jason Lashua -- yet another useless program..
'
' Uhm, ok.. heres deh deal.  you just type
' IceWrite " This is my text f00", y
' where Y is which line on the screen to write the line.
' and it makes the text fade like ice or something, and gives it a moving
' effect.. lot smoother than some other QB sources i've seen
' easy 'nuff eh? herez a l'il example
'
' By the way,  if somebody could make a textmode GET/PUT routine that WORKS,
' Please do =] i just dont like all these type mismatch errors..kinda.. make
' me.. dizzy.. wwoooo
' aight, 'less talk, more program
'
DECLARE SUB IceWrite (writing$, y)
'
'
CLS
' notice the leading space, thats just so it shows all the letters, instead of
' cutting off the first one..

IceWrite "This looks like Ice fading, or something!! woohoo", 4
IceWrite "hey! waddaya know?? it actually works!! something that REALLY WORKS!=]", 10

' puts the text "This looks like Ice fading, or something!! woohoo on line 4
' press F-5 and try it!
'
'
' Oh yea, if you use this source in your program, please give me credit where
' it is due

SUB IceWrite (writing$, y)
'the iceing
'keeps repeating until a key is pressed
DO WHILE INKEY$ = ""
  FOR i = 1 TO LEN(writing$)
    LOCATE y, i
    COLOR 0
    PRINT MID$(writing$, i, 1);
    COLOR 7
    PRINT MID$(writing$, i + 1, 1);
    COLOR 15
    PRINT MID$(writing$, i + 2, 1);
    COLOR 11
    PRINT MID$(writing$, i + 3, 1);
    COLOR 9
    PRINT MID$(writing$, i + 4, 1);
    COLOR (1)
    PRINT MID$(writing$, i + 5, 1);
    COLOR (9)
    PRINT MID$(writing$, i + 6, 1);
    COLOR (11)
    PRINT MID$(writing$, i + 7, 1);
    COLOR (0)
    PRINT MID$(writing$, i + 8, length)
    ' this right here is the delay between each letter
    ' adjust to taste
    FOR x = 1 TO 8000: NEXT x
    LOCATE y, i
  NEXT i
  LOOP
END SUB