Graphics 800,600,32,2


For i=1 To 100
    staggerPrint("wobl wobl wobl! testing testing.")
Next

WaitKey()



Function staggerPrint(tmpTxt$)

    tmpLen=Len(tmpTxt$)
    r=Rnd(100,200)
    g=Rnd(100,200)
    b=Rnd(100,200)
    For i=1 To tmpLen
        tmpChar$=Left(tmpTxt$,1)
        If tmpChar$="." Or tmpChar$="," Or tmpChar$="!" Then
            Delay(50)
        Else
            Delay(10)
        End If

        Color r,g,b
        Write tmpChar$
        tmpTxt$=Right(tmpTxt$,Len(tmpTxt$)-1)
        r=r+Rnd(-20,20) If r<0 Then r=0 If r>255 Then r=255
        g=g+Rnd(-20,20) If g<0 Then g=0 If g>255 Then g=255
        b=b+Rnd(-20,20) If b<0 Then b=0 If b>255 Then b=255
    Next
    Print ""

End Function