'
'   Scrolling Credits
'
' scrolltxt$ = the lines to scroll
' length     = how many lines you want to scroll then plus 50
' clr        = the color you want the text to be
' over       = how far over you want the line to be,
'              note that -1 is centered
' delay      = how many seconds to wait between scroll
' start      = number of lines down to start


DECLARE SUB credits (length%, clr%, over%, delay!, start%)

'                          This number is how many lines you want + 50
'                          ³
'                          
DIM SHARED scrolltxt(1 TO 100) AS STRING

CLS : SCREEN 13
RANDOMIZE TIMER

'            This number is how many lines you want
'            ³
'            
FOR i = 1 TO 50
 READ scrolltxt$(i)
NEXT i                   ' .3 is about a 1/3 a second
                         '
                         '
CALL credits(100, 4, -1, 0, 0)

'Text goes below
DATA "****************************************"
DATA "***********************************"
DATA "******************"
DATA "***********************************"
DATA "****************************************"
DATA "****************************************"
DATA "****************************************"
DATA "******                            ******"
DATA "******                            ******"
DATA "******     Demo of Scrolling      ******"
DATA "******                            ******"
DATA "******          Credits           ******"
DATA "******                            ******"
DATA "******                            ******"
DATA "******            by              ******"
DATA "******                            ******"
DATA "******                            ******"
DATA "******                            ******"
DATA "******      STEVE NUNNALLY        ******"
DATA "******                            ******"
DATA "******                            ******"
DATA "****************************************"
DATA "****************************************"
DATA "******************************"
DATA "******************************"
DATA "****************************************"
DATA "****************************************"
DATA "******                            ******"
DATA "******                            ******"
DATA "******                            ******"
DATA "******       Hope you like!       ******"
DATA "******                            ******"
DATA "******            For             ******"
DATA "******                            ******"
DATA "******      More Great Demos      ******"
DATA "******                            ******"
DATA "******         Check Out          ******"
DATA "                                        "
DATA "         http://www.pinn.net/           "
DATA "     ~nunnally/qbasic/qbasic.html       "
DATA "                                        "
DATA "****************************************"
DATA "****************************************"
DATA "*********************************"
DATA "*****************************"
DATA "*********************************"
DATA "*****************************"
DATA "*********************************"
DATA "****************************************"
DATA "****************************************"

SUB credits (length%, clr%, over%, delay!, start%)

 down% = 24 - start%: begin% = 1

 FOR i% = 1 TO length% - 25
  down% = down% - 1
  IF down% < 1 THEN down% = 1
  upness% = 0
 
  FOR a% = 0 TO (24 - down%)
   IF over% = -1 THEN
    ovr% = LEN(scrolltxt$(begin% + a%))
    ovr% = (40 - ovr%) / 2
   ELSE
    ovr% = over%
   END IF
   IF ovr% = 0 THEN ovr% = 1

   COLOR clr%
   LOCATE down% + upness%, ovr%
   PRINT scrolltxt$(begin% + a%)
  
   upness% = upness% + 1

  NEXT a%
 
  IF down% > 1 THEN
   begin% = 1
  ELSE
   begin% = begin% + 1
  END IF
 
  CurrentTimer! = TIMER
  WHILE TIMER < (CurrentTimer! + delay!)
  WEND

 NEXT i%


END SUB