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


Sub Main
        
        doc = ThisComponent
        status_bar = doc.CurrentController.StatusIndicator

        status_bar.start("In line ", 10)

        For i = 1 To 10
            status_bar.setValue(i)
            status_bar.setText("Line: " & i)
            Wait 1000

        Next
        status_bar.end()
        
End Sub