'-----------------------------------------------------------------------
' IFELSE2.BAS
'
' CIS 120 Lecture Notes example
' Mike Huffman
' Portland Community College, Computer Information Systems
' CIS 120 WINTER TERM 2001
'
' Last update: 12 FEB 2001
'-----------------------------------------------------------------------

CLS                                             ' clear the screen
INPUT "What is your total order? ", order!      ' how much did customer spend

IF order! < 100! THEN
  discount! = order! * .1

ELSEIF order! < 500 THEN                ' better, clearer that we are
  discount! = order * .15               ' doing an "either - or" test

ELSE                                    ' easy to add 3rd test
  discount! = order * .2                ' big spender gets big discount

END IF

PRINT "Your discount is $"; discount!   ' display results