var name : string
var answer1 : string
var score : int
var answer : string
var key : string (1)
var answer2 : string
var answer3 : string

put "Hello Are You Ready To Play The Greatest Comic Book, Sports, Movie"
put "Anime, And Technology Game Ever Made Then Input Your Name If You Dare"

get name
cls


put "Ok Here Are The Rules If You Answer A Question Right You Will Get Points"
put "The Number Of Points Will Depend On The Difficulity Of The Question"
put "If You Get 1 Question Wrong The Computer Will Self-Destruct"
put "If You Understand Press Any Button To Continue"

getch (key)
cls

put "Ok " ..
put name, " For $100 Dollars What Is The Name Of Supermans Home Planet?"
put "1) Krypton"
put "2) Pluto"
put "3) Kryptonia"
put "4) Earth"

put "Please Input The Number Of Your Choice"
get answer1
cls

if answer1 = "1" then
    score := +100
    put "Congrats " ..
    put name, " You Got This Question Right So Far You Have Won " ..
    put score ..
    put " Dollars"
    getch (key)
    cls

elsif answer1 = "2" or answer1 = "3" or answer1 = "4"

        then
    put "I'm Sorry But That is Incorrect This Computer Will Now Self Destruct"
end if

put " Question 2 For $150 Dollars What Does The Acronym R.A.M Stand For"

put " 1) Restarting Access Memory"
put " 2) Recent Activation Medical"
put " 3) Royal Arch Masonry"
put " 4) Random Access Memory"

get answer

if answer = "4" then
    score := +250
    cls

    put "Congrats You Got This Question Right So Far You Have Won " ..
    put score ..
    put " Dollars"
    getch (key)

elsif answer = "1" or answer = "2" or answer = "3"
        then
    put "I'm Sorry But That is Incorrect This Computer Will Now Self Destruct"
end if
cls

put name, " Your Next Question Is About Sports And Its Worth $200 Dollars  "


put
    "In What Major League Sport Does A City Represent A Entire Country"
put "1) Canadian Football League And The USA"
put "2) National Basketball Association And Canada"
put "3) National Hockey League And Sweeden"
put "4) Major League Baseball And Mexico"

get answer2

if answer2 = "2" then
    score := +450
    cls
    put "Congrats You Got This Question Right So Far You Have Won " ..
    put score ..
    put " Dollars"
    getch (key)
    cls

elsif answer2 not= "2" then
    put "I'm Sorry But That is Incorrect This Computer Will Now Self Destruct"
end if