Code:

dim ask$(35,6) ask$(1,1)="Who is an amateur operator as defined in Part 97?" ask$(1,2)="A person named in an amateur operator/primary license grant in the FCC ULS database" ask$(1,3)="A person who has passed a written license examination." ask$(1,4)="The person named on the FCC Form 605 application" ask$(1,5)="A person holding a Resticted Operating Permit" ask$(1,6)="A" ask$(2,1)="What is the ITU?" ask$(2,2)="The International Telecommunications Utility" ask$(2,3)="The International Telephone Union" ask$(2,4)="The International Telecommunication Union" ask$(2,5)="The International Technology Union" ask$(2,6)="B" cssid #main,"{width:50em; height:auto; border:solid 2px #f00; margin:auto;}" cssid #box1,"{width:40em; border:solid 2px #00f; margin:auto; margin-bottom:1em; background:#CFF; padding:10px;}" cssid #box2,"{width:98%; height:30em; border:solid 2px #0f0; margin:auto; margin-bottom:1em; padding:0;}" cssid #box21,"{ border:solid 2px #F00; height:6em; margin:1em;}" cssid #box2a,"{float:left; width:3em; height:4em; background:#0f0; padding:20px 0 0 6px;}" cssid #box2b,"{float:left; width:35em; height:4em; background:#FFA; padding:10px; margin-left:1em;}" cssid #pick,"{clear:left;}" num=1 div main div box1 print ask$(num,1) end div div box2 for i=1 to 4 div box21 div box2a a$=chr$(64+i) button #b1,a$,check #b1 setkey(a$) end div div box2b print ask$(num,i+1) end div end div next i 'end of green box end div 'end of main end div wait sub check handle$ print if EventKey$>"" then if num<1 then num=1 select case EventKey$ case "A","B","C","D" cssid #box1,"{ display:none; }" cssid #box2,"{ display:none; }" cssid #abox,"{width:40em; border:solid 2px #00f; margin:auto; margin-bottom:1em; background:#CFF; padding:10px;}" div abox print ask$(num,1) end div end select end if end sub wait

Code:

cssid #main,"{width:50em; height:50em; border:solid 2px #f00; margin:auto;}" num=0 div main while num<5 num=num+1 print num call part1 wend end div wait sub part1 cssid #box1,"{width:25em; margin:1em; border:solid 2px #00f; background:#CFF; padding:1em; }" div box1 ' holds the question print "what is the question?" end div cssid #box2,"{ clear:left; width:45em; height:auto; padding:1em; border:solid 2px #0f0; margin:1em; }" cssid #qa,"{ height:4em;}" cssid #but,"{float:left; background:#0f0; width:3em; height:2em; margin:0; }" cssid #show1,"{float:left; margin-left:1em; background:#ffa; width:40em;}" div box2 ' holds buttons and answers div qa div but button #b1,"A",[check] #b1 setkey("A") end div div show1 print "why? why? why? why? why? why? why? why? why? why? why? why? why? why? why? why? why? why? why? why?" end div div space end div wait end div end div div box3 [check2] print "hello" end div end sub [check] goto [check2] wait

Code:

[start] cls print UserAddress$ link #reload, " Reload ", [start] wait

    cssid #main,"{width:40em; height:30em; border:solid 2px #f00;}"

    div main
        call part1
    end div
    wait

sub part1
    cssid #but,"{ clear:left; float:left; width:3em; margin:1em; background:#0f0; padding:5px;}"
    cssid #answer,"{float:left; width:25em; background:#ffa;border:solid 2px #00f; padding:5px;}"

    div but
        button #A,"A",check
    end div

    div answer
        print "one"
    end div

    div but
        button #B,"B",check
    end div

    div but
        button #C,"C",check
    end div

    div but
        button #D,"D",check
    end div

    wait
end sub

sub check handle$
    print
    print "you chose "; right$(handle$,1)
end sub

Code:

cssid #main,"{width:40em; height:30em; border:solid 2px #f00;}" div main call part1 end div wait sub part1 cssid #but,"{ clear:left; float:left; width:3em; margin:1em; background:#0f0; padding:5px;}" cssid #answer,"{float:left; width:25em; background:#ffa; border:solid 2px #00f; padding:5px;}" div but button #b1,"A",check #b1 setkey("A") div answer print "one" end div end div div but button #b1,"B",check #b1 setkey("B") end div div but button #b1,"C",check #b1 setkey("C") end div div but button #b1,"D",check #b1 setkey("D") end div wait end sub sub check handle$ print print "you chose ";EventKey$ end sub

Code:

cssid #main,"{width:30em; height:30em; border:solid 2px #f00;}" div main call part1 end div wait sub part1 button #b1,"A",check #b1 setkey("A") button #b1,"B",check #b1 setkey("B") button #b1,"C",check #b1 setkey("C") button #b1,"D",check #b1 setkey("D") wait end sub sub check handle$ print print "you chose ";EventKey$ end sub

    global reply$
    cssid #main,"{width:30em; height:30em; border:solid 2px #f00;}"

[begin]
    call main
    wait

sub main
    ' cls    ' uncomment to display div only once
    div main
        button #b1,"A",check
        #b1 setkey("A")
        if EventKey$<>"" and EventKey$=reply$ then print "yes"
    end div

    print "Main .... "; EventKey$
    print "Reply ... "; reply$
end sub

sub check handle$
    print "Sub ..... "; EventKey$
    reply$=EventKey$

    call main
end sub

Code:

cssid #main,"{width:30em; height:30em; border:solid 2px #f00;}" [begin] div main button #b1,"A",check #b1 setkey("A") if EventKey$>"" and EventKey$=reply$ then print "yes" end div wait sub check handle$ print "ok" print EventKey$ reply$=EventKey$ end sub wait