CLS
score = 0
life = 3
      'n + Y
b = 4
c = 8
     'e  - Y
d = 5
e = 2
     's  /
f = 9
g = 3
     'w  * Y
h = 3
i = 9
     'ne + Y
j = 7
k = 4
     'se - Y
l = 9
m = 4
     'sw / Y
n = 81
o = 9
     'nw * Y
p = 9
q = 6
CLS
PRINT
PRINT "###########################################################"
PRINT "######################## ##################################"
PRINT "######################## # ################################"
PRINT "###################### # #  ###############################"
PRINT "#####################  # #   ######################    ####"
PRINT "####################   # #    ####################      ###"
PRINT "######################## ########################  ##    ##"
PRINT "######################## ########################  ###    #"
PRINT "###########                            ##############     #"
PRINT "############                          ##############      #"
PRINT "#############                        ##############       #"
PRINT "# ##  ##  ## #                      #  ##  ##  ###        #"
PRINT "##  ##  ##  ###########################  ##  ##           #"
PRINT "###########################################################"
SLEEP 1
CLS
PRINT
PRINT "###########################################################"
PRINT "######################## ##################################"
PRINT "######################## # ################################"
PRINT "###################### # #  ###############################"
PRINT "#####################  # #   #####################    #####"
PRINT "####################   # #    ##################       ####"
PRINT "######################## ######################   ##    ###"
PRINT "######################## ######################   ###   ###"
PRINT "###########                            ##############   ###"
PRINT "############                          ##############    ###"
PRINT "#############                        ##############     ###"
PRINT "# ##  ##  ## #                      #  ##  ##  ###      ###"
PRINT "##  ##  ##  ###########################  ##  ##         ###"
PRINT "###########################################################"
SLEEP 1
CLS
PRINT
PRINT "###########################################################"
PRINT "###########################################################"
PRINT "###############################  ##########################"
PRINT "##############################    #########################"
PRINT "#############################      ########################"
PRINT "############################        #######################"
PRINT "#############################        ######################"
PRINT "##############################              ###############"
PRINT "###############################        ##### ##############"
PRINT "################################        ##### #############"
PRINT "#################################        ##### ############"
PRINT "# ##  ##  ##  ##  ##  ##  ##  #  ##########  ###  ##  ##  #"
PRINT "##  ##  ##  ##  ##  ##  ##  ##  #############  ###  ##  ###"
PRINT "###########################################################"
SLEEP 1
PRINT "W E L C O M E   T O..."
SLEEP 2
PRINT "C O M P A S S   M A T H!"
mini: SLEEP 3
CLS
LOCATE 1, 30
PRINT "score: "; score
LOCATE 1, 57
PRINT "Lives: "; life
LOCATE 1, 1
PRINT "NW  N  NE"
PRINT "  \ | /  "
PRINT "W-------E"
PRINT "  / | \  "
PRINT "SW  S  SE"
PRINT
PRINT "To end, enter <q>"
INPUT "Enter in DIRECTION: "; a$
SELECT CASE a$

CASE "q"
PRINT
PRINT "Thanks for playing compass maths."
PRINT
PRINT "T O T A L   S C O R E   I S   "; score
PRINT
PRINT "T O T A L   L I V E S   A R E   "; life
END

CASE "n"
PRINT b; "+"; c
INPUT ""; a
IF a = b + c THEN
PRINT "Correct"
PRINT "You Survive The Wave."
score = score + 5
c = c + c
b = b + b
ELSE
PRINT "Wrong"
PRINT "You Lose A Man From The Impact Of The Wave."
life = life - 1
IF life = 0 THEN GOTO en
END IF
GOTO mini

CASE "e"
PRINT d; "-"; e
INPUT ""; a
IF a = d - e THEN
PRINT "Correct"
PRINT "You Survive The Wave."
score = score + 5
d = d + d
e = e + e
ELSE
PRINT "Wrong"
PRINT "You Lose A Man From The Impact Of The Wave."
life = life - 1
IF life = 0 THEN GOTO en
END IF
GOTO mini

CASE "s"
PRINT f; "divide"; g
INPUT ""; a
IF a = f / g THEN
PRINT "Correct"
PRINT "You Survive The Wave."
score = score + 5
f = f + f
g = g + g
ELSE
PRINT "Wrong"
PRINT "You Lose A Man From The Impact Of The Wave."
life = life - 1
IF life = 0 THEN GOTO en
END IF
GOTO mini

CASE "w"
PRINT h; "X"; i
INPUT ""; a
IF a = h * i THEN
PRINT "Correct"
PRINT "You Survive The Wave."
score = score + 5
h = h + h
i = i + i
ELSE
PRINT "Wrong"
PRINT "You Lose A Man From The Impact Of The Wave."
life = life - 1
IF life = 0 THEN GOTO en
END IF
GOTO mini

CASE "ne"
PRINT j; "+"; k
INPUT ""; a
IF a = j + k THEN
PRINT "Correct"
PRINT "You Survive The Wave."
score = score + 5
j = j + j
k = k + k
ELSE
PRINT "Wrong"
PRINT "You Lose A Man From The Impact Of The Wave."
life = life - 1
IF life = 0 THEN GOTO en
END IF
GOTO mini

CASE "se"
PRINT l; "-"; m
INPUT ""; a
IF a = l - m THEN
PRINT "Correct"
PRINT "You Survive The Wave."
score = score + 5
l = l + l
m = m + m
ELSE
PRINT "Wrong"
PRINT "You Lose A Man From The Impact Of The Wave."
life = life - 1
IF life = 0 THEN GOTO en
END IF
GOTO mini

CASE "sw"
PRINT n; "divide"; o
INPUT ""; a
IF a = n / o THEN
PRINT "Correct"
PRINT "You Survive The Wave."
score = score + 5
n = n + n
o = o + o
ELSE
PRINT "Wrong"
PRINT "You Lose A Man From The Impact Of The Wave."
life = life - 1
IF life = 0 THEN GOTO en
END IF
GOTO mini

CASE "nw"
PRINT p; "X"; q
INPUT ""; a
IF a = p * q THEN
PRINT "Correct"
PRINT "You Survive The Wave."
score = score + 5
p = p + p
q = q + q
ELSE
PRINT "Wrong"
PRINT "You Lose A Man From The Impact Of The Wave."
life = life - 1
IF life = 0 THEN GOTO en
END IF
GOTO mini

CASE ELSE
PRINT "Please enter a valid letter!"
GOTO mini
END SELECT

en: CLS
LOCATE 1, 30
PRINT "score: "; score
LOCATE 1, 57
PRINT "Lives: "; life
LOCATE 1, 1
PRINT "NW  N  NE"
PRINT "  \ | /  "
PRINT "W-------E"
PRINT "  / | \  "
PRINT "SW  S  SE"
PRINT
PRINT "G A M E   O V E R"
PRINT
PRINT "T O T A L   S C O R E   I S   "; score