'===========================================================================
' Subject: RUNNING TEXT                      Date: 12-02-98 (15:11)       
' Author:  Dieter Folger                     Code: QB, QBasic, PDS        
' Origin:  folger@bamberg.baynet.de        Packet: GRAPHICS.ABC
'===========================================================================
'Running text for QBASIC
'Written by Dieter Folger 1997
'Public Domain
Text$ = " ABC - Your source for BASIC sources "
SCREEN 13
DIM Textfield(800)
C = 31: Y = 10
DO
    P = P + 1: IF P > LEN(Text$) THEN P = 1 'increase char
    C = C + 1: IF C = 104 THEN C = 32 'color to use
    COLOR C: LOCATE 2, 40
    PRINT MID$(Text$, P, 1);
    FOR i = 1 TO 15
        GET (1, 7)-(319, 16), Textfield
        PUT (0, 7), Textfield, PSET
        PUT (0, Y), Textfield, PSET
        PUT (0, 180), Textfield, PSET
        d = 0: DO: d = d + 1: LOOP UNTIL d = 200
        IF Y = 170 THEN R = 1 'change direction (upward)
        IF Y = 16 THEN R = 0  'downward
        IF R = 1 THEN Y = Y - 1 ELSE Y = Y + 1
    NEXT
LOOP WHILE INKEY$ = ""
END