Something

colorback (80)
cls
proc Storyboard
    var font, font2, release, PosX, PosY, MouseX, MouseY, button : int
    var fontsize : string
    fontsize := "calibri:" + intstr (maxx div 14)
    font := Font.New (fontsize)
    assert font > 0
    font2 := Font.New ("calibri:8")
    assert font2 > 0
    PosX := maxx
    PosY := maxy div 2
    for i : 1 .. (maxx div 2 + Font.Width ("Woloszyn Accounting", font) div 2) div 2
        delay (10)
        cls
        Draw.Text ("Woloszyn Accounting", PosX, PosY, font, 16)
        PosX := maxx - i * 2
    end for
    delay (2000)
    for i : 1 .. maxy div 8
        delay (10)
        cls
        Draw.Text ("Woloszyn Accounting", PosX, PosY, font, 16)
        PosY := (maxy div 2 - i * 4) + 10
    end for
    delay (1000)
    for i : 1 .. maxx
        delay (6)
        Draw.FillBox (0, 0, i, maxy, whatcolourback)
    end for
    delay (1000)
    var A1, A2, A3, A4, A5, A6, A7, A8, A9 : int
    loop
        for i : 1 .. maxy
            delay (10)
            cls
            if maxy - i - 50 >= 0 then
                A1 := maxy - i - 50
            else
                A1 := maxy + maxy - i - 0
            end if
            if maxy - i - 200 >= 0 then
                A2 := maxy - i - 200
            else
                A2 := maxy + maxy - i - 200
            end if
            if maxy - i - 100 >= 0 then
                A3 := maxy - i - 100
            else
                A3 := maxy + maxy - i - 100
            end if
            if maxy - i - 150 >= 0 then
                A4 := maxy - i - 150
            else
                A4 := maxy + maxy - i - 150
            end if
            if maxy - i - 75 >= 0 then
                A5 := maxy - i - 75
            else
                A5 := maxy + maxy - i - 75
            end if
            if maxy - i - 200 >= 0 then
                A6 := maxy - i - 200
            else
                A6 := maxy + maxy - i - 200
            end if
            if maxy - i - 250 >= 0 then
                A7 := maxy - i - 250
            else
                A7 := maxy + maxy - i - 250
            end if
            if maxy - i - 275 >= 0 then
                A8 := maxy - i - 275
            else
                A8 := maxy + maxy - i - 275
            end if
            if maxy - i - 150 >= 0 then
                A9 := maxy - i - 150
            else
                A9 := maxy + maxy - i - 150
            end if
            Draw.Text ("$", 0, A1, font, green)
            Draw.Text ("$", maxx div 8 * 1, A2, font, green)
            Draw.Text ("$", maxx div 8 * 2, A3, font, green)
            Draw.Text ("$", maxx div 8 * 3, A4, font, green)
            Draw.Text ("$", maxx div 8 * 4, A5, font, green)
            Draw.Text ("$", maxx div 8 * 5, A6, font, green)
            Draw.Text ("$", maxx div 8 * 6, A7, font, green)
            Draw.Text ("$", maxx div 8 * 7, A8, font, green)
            Draw.Text ("$", maxx - 15, A9, font, green)
            Draw.FillBox (maxx div 2 - 75, 0, maxx div 2 + 75, 20, 16)
            Draw.Text ("Click Here to Continue", maxx div 2 - Font.Width ("Click Here to Continue", font2) div 2, 10, font2, 0)
            Mouse.Where (MouseX, MouseY, button)
            if MouseX >= maxx div 2 - 75 and MouseX <= maxx div 2 + 75 and MouseY >= 0 and MouseY >= 20 and button = 1 then
                put "1"
                if button = 0 then
                    put "0"
                end if
            end if
        end for
    end loop
       /*
     for i : 1..maxx div 4
     delay(10)
     Draw.FillOval(maxx div 2 - i,maxy div 2 + sqrt((maxy div 4)**2 - i**2) div 1,10,10,16)
     end for
     */
end Storyboard

Storyboard