Sorry your browser is not supported!

Sync On
Sync Rate 60
Set Window Size 1024, 768
Set Display Mode 1024, 768, 32, 1

myData$ = "Alpha,Beta,Gamma,Delta,Epsilon,Zeta,Eta,Theta,Iota,Kappa,Lambda,Mu,Nu,Xi,Omicron,Pi,Rho,Sigma,Tau,Upsilon,Phi,Chi,Psi,Omega"
Global DIM DataArray$(0)

TokensInString = GetTokenCount( myData$, "," )
CreateDataArray( myData$, "," )

Do
    Text 10, 10, Str$(TokensInString) + " Tokens in Data String"
    
    For Index = 0 To Array Count( DataArray$(0) )
        Text 10, 10 + ( 10 * (Index + 1) ), DataArray$( Index )
    Next
    
    FastSync()
Loop

Function GetTokenCount( In$, Token$ )
    Local Char$
    Local TokenCount
    
    For Pos = 1 To Len( In$ )
        Char$ = Mid$( In$, Pos )
        If Char$ = Token$ Then Inc TokenCount
    Next
EndFunction TokenCount

Function CreateDataArray( In$, Token$ )
    Local Char$, Buffer$
    
    Empty Array DataArray$(0)
    
    For Pos = 1 To Len( In$ )
        Char$ = Mid$( In$, Pos )
        If Char$ = Token$
            Array Insert At Bottom DataArray$(0)
            Index = Array Count( DataArray$(0) )
            DataArray$(Index) = Buffer$
            Buffer$ = ""
        Else
            Buffer$ = Buffer$ + Char$
        EndIf
    Next
EndFunction