View.Set ("graphics:max,max;offscreenonly")

proc intro
    var mx, my, mb : int
    var font1, font2, font4 : int
    var horseintro : int := Pic.FileNew ("horse9.jpg")
    font2 := Font.New ("Hollywood Hills:50:bold,italic")
    font4 := Font.New ("Hollywood Hills:24:bold,italic")
    font1 := Font.New ("Hollywood Hills:12:bold,italic")
    loop
        mousewhere (mx, my, mb)
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("Welcome to ", 0, 600, font4, red)
        Font.Draw ("Horse Racing", 90, 500, font2, red)
        Font.Draw ("Intructions", 350, 200, font4, red)
        Font.Draw ("Race", 350, 250, font4, red)

        View.Update
        if mb = 1 and mx > 200 and my < 250 and my > 200 then
            loop
                mousewhere (mx, my, mb)
                exit when mb = 0
            end loop
            loop
                mousewhere (mx, my, mb)
                cls
                drawfillbox (0, 0, maxx, maxy, black)
                Pic.Draw (horseintro, 250, 150, picCopy)
                Font.Draw ("Bet your money on the horse you think will win!", 50, 500, font1, red)
                Font.Draw ("Your objective is simple... Win as much money as you can!", 50, 450, font1, red)
                Font.Draw ("Click the horse to continue", 50, 400, font4, brown)
                View.Update

                if mb = 1 and mx > 250 and my < 400 and my > 150 then
                    exit

                end if

            end loop
            loop
                mousewhere (mx, my, mb)
                exit when mb = 0
            end loop

        end if
        if mb = 1 and mx > 350 and my < 350 and my > 250 then
            exit

        end if

    end loop
    cls
end intro
intro