var n: string
var win := Window.Open ("graphics:400;125,position:300;400,nobuttonbar,noecho,nocursor")
View.Set ("offscreenonly")

var font := Font.New ("Sherwood:48:italic")
var text : string := "*OOT Quiz*"
var angle := 0
type dottype :
    record
        x, y, depth, middist : int
    end record

var dot : flexible array 1 .. 0 of dottype

for decreasing i : 31 .. 16
    Font.Draw (text, maxx div 2 - Font.Width (text, font) div 2, maxy div 3, font, i)
    delay (60)
end for
for x : 0 .. Font.Width (text, font) div 3
    for y : 0 .. 15
        if whatdotcolour (x * 3 + maxx div 2 - Font.Width (text, font) div 2, y * 3 + maxy div 3) = 7 then
            new dot, upper (dot) + 1
            dot (upper (dot)).x := x * 3 - Font.Width (text, font) div 2
            dot (upper (dot)).y := y
            dot (upper (dot)).depth := Rand.Int (-5, 5) * 3

        end if
    end for
end for
for i : 16 .. 31
    Font.Draw (text, maxx div 2 - Font.Width (text, font) div 2, maxy div 3, font, i)
    delay (40)
end for

for decreasing j : 31 .. 16
    for i : 1 .. upper (dot)
        drawdot (dot (i).x + maxx div 2, dot (i).y * 3 + maxy div 3, j)
    end for
    delay (40)
end for

loop
    for i : 1 .. upper (dot)
        drawdot (round (cosd (angle + 90) * dot (i).depth) + round (cosd (angle) * dot (i).x) + maxx div 2, dot (i).y * 3 + maxy div 3, 54)
    end for

    angle += 5


    if angle mod 180 = 0 then
        delay (80)
    else
        delay (45)
    end if
    drawfillbox (0, maxy div 3 - 15, maxx, maxy div 3 + 55, 198)
end loop