//create an array; split into tokens on ";"
Stringvar Array foo := Split(1;1 0;2 0;3 1;3 1;4 1;5 0;6, ";");

Numbervar i;

// examine all elements in the array
For i:=0 To Ubound(Foo) Do (

  // create second array base on first; split on " "
  Stringvar Bar := Split(Foo[i]," ");

  // first test
  If ToNumber(Bar[1])=1 And ToNumber([2])=[] Then
    //whatever

  ElseIf ToNumber(Bar[1])=1 And ToNumber([2])=[] Then
    // whatever

  ; // semi-colon might be required; doing this code from memory
)