'===========================================================================
' Subject: SCROLLING TEXT                    Date: 09-14-97 (21:42)       
' Author:  Tommi Utriainen                   Code: QB, QBasic, PDS        
' Origin:  tomppa@pcuf.fi                  Packet: TEXT.ABC
'===========================================================================
'
' simple scrolling text..

CLS
SCREEN 9

LOCATE 10, 10

a$ =  _
"                        Joo, laitetaan nytten sitten yhteen ja samaan muuttujaan eik„ ollenkaan k„ytet„ dataa, niin on paljon helpompi juttu tehd„.. Sill„ voihan yx muuttuja olla vissiin ihan tarpeeksi pitk„ meid„n scrolli tekstille, vai eik” t„m„ riit„??? HŽ???" _

a$ = a$ + " Seli seli, sitten pit„„ vaan jatkaa muuttujaa t„h„n tyyliin, ett„s tied„t.. Tosi hillitt”m„sti teksti„ vai?? No joo, mutta ihan riitt„v„sti kuitenkin, pari rivi„ voipi laittaa ihan hyvin.. "
'a$ = UCASE$(a$)

COLOR 12
RESTORE pale:

FOR t = 1 TO LEN(a$)


a = a + 1
IF a = 1 THEN
READ pal: IF pal = 99 THEN RESTORE: READ pal
PALETTE 12, pal
a = 0
END IF



                alku = TIMER
                DO WHILE TIMER - alku < .045
                LOOP

LOCATE 10, 3
PRINT MID$(a$, t, 75);

NEXT

pale:
DATA 0,8,1,9,25,11,31,31,31,31,31,31,31,31,31,31,11,25,9,1,8,99