'--------------------------------------------------------------
' mega48.bas
' mega48 sample file
' (c) 1995-2005, MCS Electronics
'--------------------------------------------------------------
$regfile = "m48def.dat"
$crystal = 8000000
$baud = 19200
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
 
 
Dim S As String * 80
Dim Ar(5) As String * 10
Dim Bcount As Byte
 
'Die Split-Funktion zerteilt eine Zeichenkette oder Zeichenketten-Konstante auf einzelne Teile.
'Die Funktion gibt die Anzahl der Teile zurück.
'Es müssen genügend Array-Elemente vorhanden sein und jedes Array-Element muss groß genug sein
'um das Ergebnis aufzunehmen
'Wenn das Ergebnis in ein Element nicht passt dann wird in das nachfolgende Element geschrieben.
'Der Speicher ist gegen Überschreiben geschützt.
 
S = "this is a test"
 
Bcount = Split( "this is a test" , Ar(1) , " ")
'bcount enthält die Anzahl der gefüllten Elemente
'ar(1) ist die Startaddress des aufnehmenden Arrays.
'" " heißt, dass an Leerzeichen getrennt wird
 
'When you use " aa" , the first element will contain a space
Bcount = Split( "thiscannotfit! into the element" , Ar(1) , " ")
 
Dim J As Byte
For J = 1 To Bcount
Print Ar(j)
Next
 
'Bei diesem Beispiel wird der nachfolgende Speicher vor Überschreiben geschützt.
'Es sind nur 5 Elemente definiert.
' Element 6 geht verloren.
Bcount = Split( "do not overflow the array please" , Ar(1) , " ")
 
For J = 1 To Bcount
Print Ar(j)
Next
End