REM  *****  BASIC  *****

Sub Main
    InSheet = thisComponent.Sheets(3)
    OutSheet = thisComponent.Sheets(4)

    Dim r as Integer

    Dim out as Integer

    out = 1

    OutTest = OutSheet.getCellByPosition(1,0)
    OutTest.String = "Hello world!"

    For r = 1 to 888
        InURL = InSheet.getCellByPosition(0,r)
        InMark = InSheet.getCellByPosition(9,r)
        InTrust = InSheet.getCellByPosition(10,r)

        If (InMark.String <> "N/A" Or InMark.String <> "no") Then
            OutURL = OutSheet.getCellByPosition(0,out)
            OutSheet.getCellByPosition(1,out).String = "test"
            OutSheet.getCellByPosition(2,out).String = InMark.String
            OutURL.String = InURL.String
            out = out + 1
        ElseIf InTrust.String = "yes" Then
            OutURL = OutSheet.getCellByPosition(0,out)
            OutURL.String = InURL.String
            out = out + 1
        Else
            OutURL.String = "Wrong"
        EndIf
        Next r
End Sub