'-----------------------------------------------------------------------
' IF1.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                   ' check for first condition
  discount! = order! * .1
END IF

IF order! >= 100 THEN                   ' check for second condition
  discount! = order * .15
END IF

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