'-----------------------------------------------------------------------
' IFELSE1.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! >= 100 THEN               ' better, clearer that we are
  discount! = order * .15               ' doing an "either - or" test
END IF

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