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

Dim Direction

Dim Pages(15) as Object

Sub Main
    Dim Doc as Object
    Dim oSlide as Object
    Dim Present as Object
    Dim Control as Object
    Dim RectangleShape As Object
    Dim Size As New com.sun.star.awt.Size

    Direction = 1

    oDoc = ThisComponent
    Present = oDoc.Presentation

    Dim X
    Dim Y
    X = 1000
    Y = 1000

    Size.Width = 500
    Size.Height = 500

    Dim Page As Object
    Page = oDoc.DrawPages(0)
    Page.Change = 1
    Page.Duration = 0.4
    Page.TransitionDirection = False

    Pages(0) = Page

    Dim Offset
    For Offset = 1 To 16
        Dim I
        For I = 1 To 27
            Dim Point As New com.sun.star.awt.Point
            Point.x = X * I
            Point.y = Y * ((I + Offset) MOD 16)

            RectangleShape = oDoc.createInstance("com.sun.star.drawing.RectangleShape")
            RectangleShape.Size = Size
            RectangleShape.Position = Point

            Page.add(RectangleShape)
        Next I

        If Offset < 16 Then
            Page = oDoc.Drawpages.insertNewByIndex(Offset)
            Page.Change = 1
            Page.Duration = 0.4
            Page.TransitionDirection = False
            Page.Name = "Frame" + Offset

            Pages(Offset) = Page
        End If
    Next Offset

    Present.Start

End Sub

Sub ChangeDir
    If Direction = 1 Then
        Direction = 0
    Else
        Direction = 1
    EndIf

    For Offset = 1 To 16
        Pages(0).Duration = 0.8
    Next Offset
End Sub

Sub Listener_mousePressed(oMouseEvent) As Boolean
    If Direction = 1 Then
        Direction = 0
    Else
        Direction = 1
    EndIf

    For Offset = 1 To 16
        Pages(0).Duration = 0.8
    Next Offset
End Sub