type question :
    record
        proposition : string
        first_word : string
        answer : string
    end record

var choice : int

procedure do_widget
    choice := GUI.GetEventWidgetID
end do_widget

procedure round_one

    var input : string (1)
    var category : array 1 .. 6 of string
    category (1) := "Math"
    category (2) := "Science"
    category (3) := "History"
    category (4) := "Toronto"
    category (5) := "Ends With ''y''"
    category (6) := "Food"

    var size : int := sizeof (question)

    var round_question : array 1 .. 6, 1 .. 5 of question

    var question_stream : int
    open : question_stream, "record_round_one.dat", read, seek
    assert question_stream > 0

    for category_chosen : 1 .. 6
        for question_chosen : 1 .. 5
            var rand_num : int
            randint (rand_num, 1, 4)
            seek : question_stream, size * (rand_num + 4 * (question_chosen - 1) + 20 * (category_chosen - 1) - 1)
            read : question_stream, round_question (category_chosen, question_chosen)
        end for
    end for

    close : question_stream

    var exists : array 1 .. 6, 1 .. 5 of boolean

    for button_column : 1 .. 6
        for button_value : 1 .. 5
            exists (button_column, button_value) := true
        end for
    end for

    loop

        colourback (blue)
        cls

        var array_button : array 1 .. 6, 1 .. 5 of int

        for button_column : 1 .. 6
            for button_value : 1 .. 5
                if exists (button_column, button_value) then
                    array_button (button_column, button_value) := GUI.CreateButton (round ((button_column - 1) / 6 * maxx), maxy - round (button_value / 6 * maxy + maxy div 12), round (maxx div 6),
                        "$" +
                        intstr (100 * button_value), do_widget)
                end if
            end for
        end for

        var chosen_column, chosen_row : int

        loop
            choice := 0
            chosen_column := 0
            chosen_row := 0
            exit when GUI.ProcessEvent
            var done : boolean := false
            if choice > 0 then
                for button_column : 1 .. 6
                    for button_value : 1 .. 5
                        if exists (button_column, button_value) then
                            if array_button (button_column, button_value) = choice then
                                chosen_column := button_column
                                chosen_row := button_value
                                done := true
                                exit
                            end if
                        end if
                    end for
                    exit when done
                end for
            end if
            exit when done
        end loop

        exists (chosen_column, chosen_row) := false
        GUI.Dispose (array_button (chosen_column, chosen_row))

    end loop

end round_one
 

import GUI in "%oot/support/lib/GUI"Window.Set (defWinID, "title:JEOPARDY, nobuttonbar")View.Set ("graphics:max;max")procedure put_middle (output : string, row : int)    locate (row, (97 - length (output)) div 2)    put output ..end put_middletype character :    record        name : string        score : int        buzzer : int    end recordtype question :    record        proposition : string        first_word : string        answer : string    end recordvar person : array 1 .. 3 of charactervar choice : inttype high_scores :    record        name : string        score : int    end recordvar high_score_person : array 1 .. 5 of high_scoresprocedure result_new_game    choice := 1end result_new_gameprocedure result_high_scores    choice := 2end result_high_scoresprocedure result_rules    choice := 3end result_rulesprocedure result_exit    choice := 4end result_exitprocedure title    choice := 0    var background : int := Pic.FileNew ("title_bg.bmp")    assert background > 0    background := Pic.Scale (background, maxx, maxy)    Pic.Draw (background, 0, 0, picCopy)    Pic.Free (background)    var new_game_button : int := GUI.CreateButton (round (0.4 * maxx), round (0.5 * maxy), round (0.2 * maxx), "New Game", result_new_game)    var high_scores_button : int := GUI.CreateButton (round (0.4 * maxx), round (0.45 * maxy), round (0.2 * maxx), "High Scores", result_high_scores)    var rules_button : int := GUI.CreateButton (round (0.4 * maxx), round (0.4 * maxy), round (0.2 * maxx), "View Rules", result_rules)    var exit_button : int := GUI.CreateButton (round (0.4 * maxx), round (0.35 * maxy), round (0.2 * maxx), "Exit", result_exit)    loop        exit when GUI.ProcessEvent        exit when choice > 0    end loop    GUI.Dispose (new_game_button)    GUI.Dispose (high_scores_button)    GUI.Dispose (rules_button)    GUI.Dispose (exit_button)end titleprocedure do_widget    choice := GUI.GetEventWidgetIDend do_widgetprocedure pose_question (round, category_num, question_num : int, list : array 1 .. 6, 1 .. 5 of question)    put_middle (list (category_num, question_num).proposition, 15)end pose_questionprocedure round_one    var input : string (1)    var category : array 1 .. 6 of string    category (1) := "Math"    category (2) := "Science"    category (3) := "History"    category (4) := "Toronto"    category (5) := "Ends With ''y''"    category (6) := "Food"    var size : int := sizeof (question)    var round_question : array 1 .. 6, 1 .. 5 of question    var question_stream : int    open : question_stream, "record_round_one.dat", read, seek    assert question_stream > 0    for category_chosen : 1 .. 6        for question_chosen : 1 .. 5            var rand_num : int            randint (rand_num, 1, 4)            seek : question_stream, size * (rand_num + 4 * (question_chosen - 1) + 20 * (category_chosen - 1) - 1)            read : question_stream, round_question (category_chosen, question_chosen)        end for    end for    close : question_stream    var exists : array 1 .. 6, 1 .. 5 of boolean    for button_column : 1 .. 6        for button_value : 1 .. 5            exists (button_column, button_value) := true        end for    end for    loop        colourback (blue)        cls        var array_button : array 1 .. 6, 1 .. 5 of int        for button_column : 1 .. 6            for button_value : 1 .. 5                if exists (button_column, button_value) then                    array_button (button_column, button_value) := GUI.CreateButton (round ((button_column - 1) / 6 * maxx), maxy - round (button_value / 6 * maxy + maxy div 12), round (maxx div 6),                        "$" +                        intstr (100 * button_value), do_widget)                end if            end for        end for        var chosen_column, chosen_row : int        loop            choice := 0            loop                exit when GUI.ProcessEvent                exit when choice > 0            end loop            var done : boolean := false            for button_column : 1 .. 6                for button_value : 1 .. 5                    if exists (button_column, button_value) then                        if array_button (button_column, button_value) = choice then                            chosen_column := button_column                            chosen_row := button_value                            done := true                            exit                        end if                    end if                end for                exit when done            end for            exit when done        end loop        exists (chosen_column, chosen_row) := false        for any_column : 1 .. 6            for any_row : 1 .. 5                GUI.Dispose (array_button (any_column, any_row))            end for        end for    end loopend round_oneprocedure new_game    colourback (black)    cls    color (white)    put_middle ("How many players will there be?", 2)    var number_of_players : int    var number_of_players_string : string (1)    loop        loop            locate (3, 40)            getch (number_of_players_string)            exit when strintok (number_of_players_string)        end loop        number_of_players := strint (number_of_players_string)        exit when number_of_players >= 1 and number_of_players <= 3    end loop    put number_of_players    for set_not_human : 1 .. 3        person (set_not_human).score := 0        person (set_not_human).buzzer := 0        person (set_not_human).name := "Computer"    end for    for name_entry : 1 .. 3        if number_of_players >= name_entry then            put_middle ("Enter player #" + intstr (name_entry) + "''s name:", 3 + 6 * name_entry)            locate (4 + 6 * name_entry, 40)            get person (name_entry).name : *            if length (person (name_entry).name) > 10 then                person (name_entry).name := person (name_entry).name (1 .. 10)            end if            put_middle ("Press the key you will use for your buzzer:", 6 + 6 * name_entry)            var key : string (1)            loop                locate (7 + 6 * name_entry, 40)                getch (key)                var original : boolean := true                for test : 1 .. name_entry - 1                    if ord (key) = person (test).buzzer then                        original := false                    end if                end for                exit when original            end loop            put "\"", key, "\"" ..            person (name_entry).buzzer := ord (key)        end if    end forend new_gameprocedure reset_high_scores    choice := 1    var score_stream : int    open : score_stream, "high_scores.txt", put    assert score_stream > 0    for list_member : 1 .. 5        high_score_person (list_member).name := "Computer"        put : score_stream, high_score_person (list_member).name        high_score_person (list_member).score := 0        put : score_stream, high_score_person (list_member).score    end for    close : score_streamend reset_high_scoresprocedure back    choice := 2end backprocedure show_high_scores    var score_stream : int    open : score_stream, "high_scores.txt", get    assert score_stream > 0    for entry : 1 .. 5        get : score_stream, high_score_person (entry).name : *        get : score_stream, high_score_person (entry).score    end for    close : score_stream    colorback (black)    cls    var money : int := Pic.FileNew ("money.bmp")    assert money > 0    money := Pic.Scale (money, maxx div 8, maxy div 6)    for position : 1 .. 6        Pic.Draw (money, 0, (position - 1) * maxy div 6, picMerge)    end for    for position : 1 .. 6        Pic.Draw (money, maxx - maxx div 8, (position - 1) * maxy div 6, picMerge)    end for    Pic.Free (money)    colour (yellow)    put_middle ("HIGH SCORES", 2)    locate (8, 20)    put "Name" ..    locate (8, 68)    put "Score" ..    drawline (round (0.19 * maxx), round (0.73 * maxy), round (0.81 * maxx), round (0.73 * maxy), yellow)    drawline (maxx div 2, round (0.76 * maxy), maxx div 2, round (0.35 * maxy), yellow)    var reset_scores_button : int := GUI.CreateButton (round (0.4 * maxx), round (0.2 * maxy), round (0.2 * maxx), "Reset High Scores", reset_high_scores)    var back_button : int := GUI.CreateButton (round (0.4 * maxx), round (0.1 * maxy), round (0.2 * maxx), "Back", back)    loop        choice := 0        for names : 1 .. 5            locate (9 + 2 * names, 20)            put high_score_person (names).name ..            put "" : (10 - length (high_score_person (names).name)) ..            locate (9 + 2 * names, 68)            put "$", high_score_person (names).score ..            put "" : (6 - length (intstr ((high_score_person (names).score)))) ..        end for        loop            exit when GUI.ProcessEvent            exit when choice > 0        end loop        exit when choice = 2    end loop    GUI.Dispose (reset_scores_button)    GUI.Dispose (back_button)end show_high_scoresprocedure result_next    choice := 1end result_nextprocedure show_rules    var rules_stream : int    open : rules_stream, "rules.txt", get    assert rules_stream > 0    loop        colorback (white)        cls        color (black)        var rules_bg : int        rules_bg := Pic.FileNew ("rules_bg.bmp")        assert rules_bg > 0        rules_bg := Pic.Scale (rules_bg, maxx div 20, maxy div 6)        for spot : 1 .. 6            Pic.Draw (rules_bg, 0, maxy * (spot - 1) div 6, picMerge)        end for        Pic.Free (rules_bg)        var next_button : int := GUI.CreateButton (round (0.4 * maxx), round (0.05 * maxy), round (0.2 * maxx), "Next", result_next)        for screen_line : 2 .. 29            var line : string            exit when eof (rules_stream)            get : rules_stream, line : *            put_middle (line, screen_line)        end for        choice := 0        loop            exit when GUI.ProcessEvent            exit when choice > 0        end loop        exit when eof (rules_stream)        GUI.Dispose (next_button)    end loop    close : rules_streamend show_rulesloop    title    exit when choice = 4    if choice = 1 then        new_game        round_one    elsif choice = 2 then        show_high_scores    else        show_rules    end ifend loopcolourback (black)clsvar game_over : int := Pic.FileNew ("game_over.bmp")game_over := Pic.Scale (game_over, maxx div 4, maxy div 8)Pic.Draw (game_over, maxx div 2 - maxx div 8, maxy div 2 - maxy div 16, picMerge)Pic.Free (game_over)