'===========================================================================
' Subject: TEXT W/COLOR SCROLLER             Date: 11-16-97 (20:36)       
' Author:  Brian Wilkins                     Code: QB, QBasic, PDS        
' Origin:  sonic@digital.net               Packet: TEXT.ABC
'===========================================================================

' ****                  Program created on 97-November-11
' **** Color Scroll by Brian Wilkins.
' ****          This program will scroll any pre-determined text string
' **** onto the screen in various random colors.
' **** I slowed the scroll down a bit, but you may still see some flickering
' **** while scrolling.
' **** THIS PROGRAM IS FREEWARE. Although, copyright laws still apply.
' **** If you wish to use this program, please ask me permission before you
' **** do so.
' ****                  E-mail: sonic@digital.net




CLS                                       ' uhmm.. wonder what this does?

DIM X(6): LET Y = 0                       ' dimension stuff

FOR K = 1 TO 5
        PRINT TAB(K + K); K
        PRINT TAB(1);
        X(K) = 2
NEXT K

60 ' *** SUBROUTINE ***

FOR a = 1 TO 500                                    ' Different colors
        clr = INT(RND * 10) + 2
        COLOR clr
NEXT a

FOR K = 1 TO 6
        CLS                                         ' NOTE: You must have TAB
        PRINT TAB(X(K)); " 1997 Brian Wilkins  "
        IF X(K) = 60 AND Y = 0 THEN Y = K          ' X(K) = ## is how long
        R = INT(RND(4) * 1 + 1)                     ' text scrolls.
        IF R = 1 THEN X(K) = X(K) + 1
NEXT K

IF Y = 0 THEN GOTO 60