[dsprdtitl]
    UpperLeftX = 20
    UpperLeftY = 200
    WindowWidth = 1200
    WindowHeight = 500
    statictext #graph.txt, "", 400, 100, 400, 100
    statictext #graph.txt1, "", 100, 200, 1000, 300
    open " " for graphics_nsb as #graph
    #graph "trapclose [quit]"
    print #graph, "when characterInput [quit]"
    print #graph, "setfocus"
    print #graph.txt, "!font arial_black 36 italic"
    print #graph.txt1, "!font arial_black 48"
    str$ = "Round  " + str$(rd)
    l = len(rdnm$)
    str1$ = ""
    l = (20 - l) / 2
    for i = 1 to l
        str1$ = str1$ + " "
    next i
    str1$ = str1$ + rdnm$(rd)
    #graph.txt, str$
    #graph.txt1, str1$
    input r$
    WAIT
    [quit]
    close #graph
    return
 

[getanswer]
function geta(c,n)
        locate c, n
        print "?";
        a$ = input$(1)
        locate c, n
        print "  "
        geta = 0
end function
 

[[runquiz]
        gosub [menu4] 
        [inprd]
        locate 12,2
        print "           ";
        locate 13,2
        input a$
        r2$ = a$
        rd = val(r2$)
        if rd < 1 or rd > 10 then
            goto [inprd]
        end if
        locate 12,2
        print "           ";
        gosub [dsprdtitl]
        [rerun]
        locate 12,2
        print using ("##",rd)
        locate 22,2
        print rdnm$(rd);
        gosub [tmsdisp] ' display teams
        gosub [scdisp]  ' display scores
        if sc(rd,1) = 0 then  'no scores for this round yet
            for tm = 1 to 20   'so get some
                gosub [getscore]
            next tm
        end if
        [start1] 'await next action command
        r = geta(45,19)
        if upper$(a$) = "X" then
            return
        end if
        tm = instr(tm$, upper$(a$)) 'get Team No from letter
        if tm > 0 and tm < 21 then
            gosub [getscore] ' get a score for team selected
            goto [start1]
        end if
        r4$ = a$ ' now choose which action
        select case r4$
        case "0"
            goto [inprd]
        case "1"
            gosub [scdisp] '  display round scores
        case "2"
            gosub [rtotdisp]  'display running total scores
        case "3"
            gosub [gtotdisp]   ' total scores  for all rounds
        case "4"
            gosub [position] 'displays ranking of teams
            gosub [menu4]   ' then redisplays current screen
            goto [rerun]
        case "5"
            gosub [dsprdtitl]  'graphic display of round title
        case "6"
            gosub [dspwin]  ' graphics display of winners
        end select
        goto [start1]
    return

[menu4]
    cls
    locate 2,2
    print"Round No."
    locate 3,4
    print"('ENTER' retains 'old' data"
    locate 2,6
    print"Tm  Sc          Name            Tm  Sc           Name"
    locate 2,8
    print"A                               B"
    locate 2,9
    print"C                               D"
    locate 2,10
    print"E                               F"
    locate 2,11
    print"G                               H"
    locate 2,12
    print"I                               J"
    locate 2,13
    print"K                               L"
    locate 2,14
    print"M                               N"
    locate 2,15
    print"O                               P"
    locate 2,16
    print"Q                               R"
    locate 2,17
    print"S                               T"
    locate 15,19
    print "Round/Team/eXit (0/A - T/X)";
    locate 2,20
    print "1-Rnd Sc, 2-Run Tot, 3-Ovl Tot, 4-Leaders, 5-Rnd Tttl, 6-Win";
    return