/'soll:
111111111111111111111
000111000000000000001
000000000000000000001
000000000000000000001
000000000000000000001
000000000000000000001
000000000000000000001
000000000000000000001
000000000000000000001
'/

Dim text As String
Dim count As Integer
Dim kollisionen2 () As Boolean

Open "level.col" For Binary As #1
    Do
        count = count + 1
        Line Input #1 , text
        ReDim Preserve kollisionen2 (Len (text) - 1 , 8) As Boolean

        For zaehler As Integer = 1 To Len (text)
            If Mid (text , zaehler , 1) = "0" Then
                kollisionen2 (zaehler - 1 , count - 1) = FALSE
            ElseIf Mid (text , zaehler , 1) = "1" Then
                kollisionen2 (zaehler - 1 , count - 1) = TRUE
            EndIf
        Next zaehler

        Open Cons For Output As #2
            Print #2 , text
        Close #2
    Loop Until Eof (1)
Close #1

/' ist = soll '/


Dim text As String
Dim count As Integer
Dim kollisionen2 () As Boolean

Open "level.col" For Binary As #1
    Do
        count = count + 1
        Line Input #1 , text
        ReDim Preserve kollisionen2 (Len (text) - 1 , count) As Boolean

        For zaehler As Integer = 1 To Len (text)
            If Mid (text , zaehler , 1) = "0" Then
                kollisionen2 (zaehler - 1 , count - 1) = FALSE
            ElseIf Mid (text , zaehler , 1) = "1" Then
                kollisionen2 (zaehler - 1 , count - 1) = TRUE
            EndIf
        Next zaehler

        Open Cons For Output As #2
            Print #2 , text
        Close #2
    Loop Until Eof (1)
Close #1

/'ist:
101000000000000000000
000000000000000000000
000100000000000000000
000000000000000000000
001000000000000000000
000000000000001000000
000100000000000010000
000000000000000000100
000000000000000000001
'/