process Snow %process to have the snow animation and the title
    View.Set ("offscreenonly") %doing eveything from here offscreen
    loop
        Draw.Fill (1, 1, 16, 124) %making the whole screen black except the letters

       
        button := GUI.CreateButton (500, 300, 0, "SINGLE PLAYER", Single) %button for single player mode
        button := GUI.CreateButton (505, 270, 0, "MULTIPLAYER", Multiplayer) %button for multiplayer mode
        for i : 1 .. 500
            snow (i) := Rand.Int (1, 10) %assigning the amount the snowflake falls by
            yy (i) := yy (i) - snow (i) %subtracting the amount the snowflake falls by (so that the snowflake falls)
            if yy (i) < 0 then %if the snowflake reached the bottom; reset the variable for the snowflake
                yy (i) := Rand.Int (600, 700) %reassigning the snowflakes the hit the bottom of the screen; back to the top
            end if
            Draw.FillOval (xx (i), yy (i), 1, 1, white) %drawing the snowflake
        end for
        View.Update %updating what is on the screen
        delay (30)
        exit when done = true %when the hangman portion of the game starts; or instructions page
    end loop
    View.Set ("nooffscreenonly")
end Snow
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

fork PlayMusic %plays music
fork Snow  %starts the whole game; including animation and start page
loop
    exit when GUI.ProcessEvent
end loop